[Home] [Help]
8032: ,g_tab_r_list_id(i)
8033: ,p_packet_id
8034: ,g_tab_bc_packet_id(i)
8035: ,g_tab_project_id(i)
8036: FROM DUAL
8037: WHERE substr(nvl(g_tab_result_code(i),'P'),1,1) not in ('R','F')
8038: AND g_tab_r_list_id(i) = resList.resource_list_id
8039: AND g_tab_budget_version_id(i) = resList.budget_version_id
8040: AND g_tab_category_code(i) = 'R' ;
10669: l_err_code NUMBER := 0;
10670: l_return_code varchar2(1):= 'S';
10671: CURSOR cur_fatal_error IS
10672: SELECT 1
10673: FROM DUAL
10674: WHERE EXISTS (SELECT null
10675: FROM pa_bc_packets
10676: WHERE packet_id = p_packet_id
10677: AND status_code = 'T'
10678: );
10679:
10680: CURSOR cur_normal_error IS
10681: SELECT 1
10682: FROM DUAL
10683: WHERE EXISTS (SELECT null
10684: FROM pa_bc_packets
10685: WHERE packet_id = p_packet_id
10686: AND SUBSTR ( nvl(result_code,'P'), 1, 1 ) = 'F'
10688:
10689: /* To check at least one transaction is passed in partial mode */
10690: CURSOR cur_success_recs IS
10691: SELECT 1
10692: FROM DUAL
10693: WHERE EXISTS (SELECT null
10694: FROM pa_bc_packets
10695: WHERE packet_id = p_packet_id
10696: AND SUBSTR ( nvl(result_code,'P'), 1, 1 ) = 'P'
12050: x_e_stage VARCHAR2(2000);
12051:
12052: CURSOR cur_packets IS
12053: SELECT gl_bc_packets_s.nextval
12054: FROM dual;
12055:
12056: CURSOR cur_sob(v_packet_id number) IS
12057: SELECT set_of_books_id
12058: FROM pa_bc_packets
13629: End if;
13630:
13631: select decode(p_gl_cbc_return_code,'S',decode(nvl(g_adv_result_code,'X'),'A','A',p_gl_cbc_return_code),p_gl_cbc_return_code)
13632: into p_gl_cbc_return_code -- Added for bug 9156359
13633: from dual;
13634:
13635: -- Reset the error stack
13636: PA_DEBUG.reset_err_stack;
13637:
14080: -- entries by PA (PA_PO_BURDEN) are present and that will synch the records
14081: -- so, the issue is only for non-integrated budgets ..
14082: Cursor cur_ap_matched_case is
14083: SELECT 'Y'
14084: FROM dual
14085: WHERE EXISTS(
14086: select 1
14087: from pa_bc_packets pbc1
14088: where pbc1.packet_id = p_pa_packet_id
14306: Begin
14307:
14308: select null -- null is ok ..
14309: into x_result_code
14310: from dual
14311: where exists
14312: (Select 1
14313: from pa_bc_packets
14314: where packet_id = l_pa_packet_id
14379: Begin
14380:
14381: select null -- null is ok ..
14382: into x_result_code
14383: from dual
14384: where exists
14385: (Select 1
14386: from pa_bc_packets
14387: where packet_id = l_pa_packet_id
14458: Begin
14459:
14460: select null -- null is ok ..
14461: into x_result_code
14462: from dual
14463: where exists
14464: (Select 1
14465: from pa_bc_packets
14466: where packet_id = l_pa_packet_id
14562: -- Check if its a "projects transaction" related FC
14563:
14564: Select 'TXN_FC'
14565: into p_return_code
14566: from dual
14567: where exists
14568: (select 1 from pa_bc_packets
14569: where packet_id = p_packet_id);
14570:
14828: log_message(p_msg_token1=>'Any_txns_against_project:Baseline/CF Mode-Check if txns. exists in pa_bc_packets');
14829: End If;
14830:
14831: Begin
14832: Select 'Y' into p_txn_exists_in_bc_pkt from dual where exists
14833: (select 1 from pa_bc_packets where project_id = p_project_id and status_code in ('A','P','I'));
14834: Exception
14835: When no_data_found then
14836: p_txn_exists_in_bc_pkt := 'N';
14840: log_message(p_msg_token1=>'Any_txns_against_project:Baseline/CF Mode-Check if txns. exists in pa_bc_commitments');
14841: End If;
14842:
14843: Begin
14844: Select 'Y' into p_txn_exists_in_bc_cmt from dual where exists
14845: (select 1 from pa_bc_commitments where project_id = p_project_id);
14846: Exception
14847: When no_data_found then
14848: p_txn_exists_in_bc_cmt := 'N';
15051: l_dummy_value := 0;
15052:
15053: Begin
15054:
15055: Select 1 into l_dummy_value from dual
15056: where exists (Select 1
15057: from gl_bc_packets glbc,
15058: pa_budget_lines pbl
15059: where glbc.packet_id = p_packet_id
15338: End If;
15339:
15340: Begin
15341:
15342: Select 'Y' into l_gl_failure_flag from dual where exists
15343: (select 1 from gl_bc_packets
15344: where packet_id = p_packet_id
15345: and substr(nvl(result_code,'P'),1,1) = 'F');
15346: Exception
16890:
16891: Begin
16892: select 'Y'
16893: into l_baseline_failed
16894: from dual
16895: where exists
16896: (select packet_id
16897: from gl_bc_packets glbc
16898: where glbc.event_id in