[Home] [Help]
549: P_allowed_flag IN g_tab_allow_flag%TYPE,
550: P_result_code IN OUT NOCOPY VARCHAR2);
551:
552: -- --------------------------------------------------------------------------------+
553: -- This procedure will mark gl_bc_packets records to a status such that GL does
554: -- not execute funds available validation. Previously we used to create liquidation
555: -- entries. Instead of that, we're executing the following procedure.
556: -- This is for NO/SEPARATE LINE BURDENING only.
557: -- This procedure is called from function pa_funds_check
555: -- entries. Instead of that, we're executing the following procedure.
556: -- This is for NO/SEPARATE LINE BURDENING only.
557: -- This procedure is called from function pa_funds_check
558: -- --------------------------------------------------------------------------------+
559: -- PROCEDURE Mark_gl_bc_packets_for_no_fc (p_packet_id IN Number);
560:
561: -- --------------------------------------------------------------------------------+
562: -- This procedure will determine whether funds check/ funds check tieback
563: -- has been called for non-project related/project related txn. or budget
573: -- This procedure will update the following columns in pa_bc_packets: serial_id,
574: -- session_id,actual_flag,packet_id and status. Status will be upated from I to P.
575: -- Called from pa_funds_check
576: -- This procedure will also check if the extracts were successful, meaning that:
577: -- A. pa_bc_packet records have been extracted into gl_bc_packets
578: -- B. core records have been extracted into gl_bc_packets
579: -- C. project relieveing entries are created in gl_bc_packets
580: -- --------------------------------------------------------------------------------+
581: PROCEDURE Synch_pa_gl_packets(x_packet_id IN Number,
574: -- session_id,actual_flag,packet_id and status. Status will be upated from I to P.
575: -- Called from pa_funds_check
576: -- This procedure will also check if the extracts were successful, meaning that:
577: -- A. pa_bc_packet records have been extracted into gl_bc_packets
578: -- B. core records have been extracted into gl_bc_packets
579: -- C. project relieveing entries are created in gl_bc_packets
580: -- --------------------------------------------------------------------------------+
581: PROCEDURE Synch_pa_gl_packets(x_packet_id IN Number,
582: x_partial_flag IN VARCHAR2,
575: -- Called from pa_funds_check
576: -- This procedure will also check if the extracts were successful, meaning that:
577: -- A. pa_bc_packet records have been extracted into gl_bc_packets
578: -- B. core records have been extracted into gl_bc_packets
579: -- C. project relieveing entries are created in gl_bc_packets
580: -- --------------------------------------------------------------------------------+
581: PROCEDURE Synch_pa_gl_packets(x_packet_id IN Number,
582: x_partial_flag IN VARCHAR2,
583: x_mode IN VARCHAR2,
10231: If g_debug_mode = 'Y' Then
10232: log_message(p_msg_token1 => 'Inside the create_liqd_entry api ');
10233: End if;
10234: /** Bug fix : 1900229 During Check mode also insert liquidation and burden transaction
10235: * to gl_bc_packets and igc_cc_interface tables
10236: */
10237:
10238: IF p_calling_module = 'CBC' and p_mode in ('R','U','C','F') then
10239:
10528: x_return_status OUT NOCOPY VARCHAR2
10529: ) IS
10530:
10531: l_BCPacketID Number(15);
10532: l_GLRowNumber GL_BC_Packets.Originating_RowID%Type;
10533: l_cbcrownumber urowid;
10534: l_max_batch_line_id number(15);
10535:
10536: --This cursor is defined to pick up all the burden cost lines
10541: FROM PA_BC_Packets
10542: WHERE Packet_ID=p_Packet_ID AND
10543: Parent_BC_Packet_ID IS NOT NULL;
10544:
10545: -- This cursor is defined to pick up the Row Number in the GL_BC_Packets
10546: -- table that corresponds to the BCPacket ID stored in PA_BC_Packets table.
10547:
10548: CURSOR c_Row_Number(
10549: l_BCPacketID IN Number) IS
10547:
10548: CURSOR c_Row_Number(
10549: l_BCPacketID IN Number) IS
10550: SELECT RowID
10551: FROM GL_BC_Packets
10552: WHERE Template_ID=l_BCPacketID;
10553:
10554: l_rowcount NUMBER := 0;
10555:
10763:
10764: CURSOR gl_status is
10765: SELECT decode(count(*), count(decode(substr(nvl
10766: (gl.result_code,'P'),1,1),'P',1)),'P','F')
10767: FROM gl_bc_packets gl
10768: WHERE gl.packet_id = p_packet_id;
10769: BEGIN
10770:
10771: --Initialize the err stack
10788: IF p_calling_module in ('GL','GL_TIEBACK') and p_mode in ('R','U','C','F') then
10789: If g_debug_mode = 'Y' Then
10790: log_message(p_msg_token1 =>' update gl bc packet with result code ');
10791: End if;
10792: UPDATE gl_bc_packets gl
10793: SET gl.result_code =
10794: (select MAX(
10795: decode(substr(nvl(gl.result_code,'P'),1,1),'P',
10796: decode( pbc.result_code,'F100','X00',
11012: If g_debug_mode = 'Y' Then
11013: log_message(p_msg_token1 =>'no of rows result code updated after= '||sql%rowcount);
11014: End if;
11015:
11016: -- Following code is being added as in case of AP-PO matched case, in gl_bc_packets
11017: -- source_distribution_id_num_1 points to AP
11018: -- this is only reqd. in case of non-integrated budgets as for non-integrated budgets we do
11019: -- not create "PA_PO_BURDEN" records so no records in gl_bc_packets gets updated ..
11020:
11015:
11016: -- Following code is being added as in case of AP-PO matched case, in gl_bc_packets
11017: -- source_distribution_id_num_1 points to AP
11018: -- this is only reqd. in case of non-integrated budgets as for non-integrated budgets we do
11019: -- not create "PA_PO_BURDEN" records so no records in gl_bc_packets gets updated ..
11020:
11021: If nvl(g_ap_matched_case,'N') = 'Y' then
11022: If g_debug_mode = 'Y' Then
11023: log_message(p_msg_token1 =>' update gl bc packet with result code for PO for AP matched');
11022: If g_debug_mode = 'Y' Then
11023: log_message(p_msg_token1 =>' update gl bc packet with result code for PO for AP matched');
11024: End if;
11025:
11026: UPDATE gl_bc_packets gl
11027: SET gl.result_code =
11028: (select MAX(
11029: decode(substr(nvl(gl.result_code,'P'),1,1),'P',
11030: decode( pbc.result_code,'F100','X00',
11221: If g_debug_mode = 'Y' Then
11222: log_message(p_msg_token1 =>'p_calling_module ['||p_calling_module||']l_gl_status ['||l_igc_status||']');
11223: End if;
11224:
11225: UPDATE gl_bc_packets gl
11226: SET gl.result_code = decode(substr(gl.result_code,1,1),'P',
11227: decode(sign(nvl(gl.accounted_dr,0) - nvl(gl.accounted_cr,0)),
11228: -1, 'P32',
11229: gl.result_code),gl.result_code),
11779: x_e_code VARCHAR2(10);
11780: x_e_stage VARCHAR2(2000);
11781:
11782: CURSOR cur_packets IS
11783: SELECT gl_bc_packets_s.nextval
11784: FROM dual;
11785:
11786: CURSOR cur_sob(v_packet_id number) IS
11787: SELECT set_of_books_id
11896: -------->6599207 ------END
11897:
11898: -- -----------------------------------------------------------------------------------+
11899: -- This procedure will synch packet_id, serial_id, session_id, actual_flag,status_code
11900: -- from gl_bc_packets to pa_bc_packets ..
11901: -- Synch up only required for Commitment Funds check ..
11902: -- -----------------------------------------------------------------------------------+
11903:
11904: If p_calling_module not in
12337: log_message(p_msg_token1 => 'The return code of the FC process :'||l_packet_status);
12338: end if;
12339:
12340: -- --------------------------------------------------------------------------+
12341: -- Update gl_bc_packets status such that GL FC will not execute funds
12342: -- avaialble validation ... This is for no/separate line burdening
12343: -- --------------------------------------------------------------------------+
12344: --IF p_calling_module in ('GL','CBC') and l_mode IN ('R','C','F') then
12345:
12342: -- avaialble validation ... This is for no/separate line burdening
12343: -- --------------------------------------------------------------------------+
12344: --IF p_calling_module in ('GL','CBC') and l_mode IN ('R','C','F') then
12345:
12346: -- MARK_GL_BC_PACKETS_FOR_NO_FC(p_packet_id => l_packet_id);
12347:
12348: --End if;
12349:
12350: -------->6599207 ------As part of CC Enhancements
12373: end if;
12374:
12375: ----------------------------------------------------------------------------------
12376: -- if the project funds check is success full then call encumbrance liquidation
12377: -- entries in gl bc packets and igc cc interface tables
12378: ----------------------------------------------------------------------------------
12379: If g_debug_mode = 'Y' then
12380: log_message(p_stage => 120, p_msg_token1 => 'Calling create_liqd_entry API');
12381: end if;
12593:
12594: -- check for fatal error for the transactions in full mode
12595: cursor gl_status_fatal_error is
12596: SELECT 1
12597: FROM gl_bc_packets a
12598: WHERE a.packet_id = p_packet_id
12599: AND EXISTS (
12600: SELECT 'Y'
12601: FROM gl_bc_packets b
12597: FROM gl_bc_packets a
12598: WHERE a.packet_id = p_packet_id
12599: AND EXISTS (
12600: SELECT 'Y'
12601: FROM gl_bc_packets b
12602: WHERE b.status_code = 'T'
12603: AND b.packet_id = a.packet_id
12604: );
12605:
12605:
12606: -- check for normal error for the transaction in full mode
12607: cursor gl_status_normal_error is
12608: SELECT 1
12609: FROM gl_bc_packets a
12610: WHERE a.packet_id = p_packet_id
12611: AND EXISTS (
12612: SELECT 'Y'
12613: FROM gl_bc_packets b
12609: FROM gl_bc_packets a
12610: WHERE a.packet_id = p_packet_id
12611: AND EXISTS (
12612: SELECT 'Y'
12613: FROM gl_bc_packets b
12614: WHERE b.packet_id = a.packet_id
12615: AND ((b.status_code in ('R','F','T')
12616: AND substr(b.result_code,1,1) = ('F')
12617: ) OR
12622: -- Check for at least on passed transaction in gl in partial mode
12623: -- if not found then all transactions are rejected
12624: cursor gl_status_partial is
12625: SELECT 1
12626: FROM gl_bc_packets a
12627: WHERE a.packet_id = p_packet_id
12628: AND EXISTS
12629: (SELECT 'Y'
12630: FROM gl_bc_packets b
12626: FROM gl_bc_packets a
12627: WHERE a.packet_id = p_packet_id
12628: AND EXISTS
12629: (SELECT 'Y'
12630: FROM gl_bc_packets b
12631: WHERE b.status_code in ('S','A','P')
12632: AND substr(b.result_code,1,1) IN ('P','A')
12633: AND b.packet_id = a.packet_id
12634: );
12869: 'PO_DISTRIBUTIONS_ALL','PO',
12870: 'PA_PO_BURDEN','PO',
12871: 'PA_REQ_BURDEN','REQ',
12872: 'PO_REQ_DISTRIBUTIONS_ALL','REQ') source_distribution_type
12873: FROM gl_bc_packets gl
12874: WHERE gl.packet_id = v_packet_id
12875: AND ( (nvl(substr(gl.result_code,1,1),'P') = 'F'
12876: AND gl.status_code in ('F','R'))
12877: OR (gl.status_code = 'T')
12878: );
12879:
12880: -- Cursor to check the number of failed/passed records in gl and accordingly pass return status back to PSA.
12881: -- Note : No need to have partial flag logic here as procedure update_GL_CBC_result_code has already stamped
12882: -- gl bc packets status code based on partial flag.
12883: -- Output values :
12884: -- return 'F' if all have failed --fail
12885: -- return 'P' if some of the records have failed --partial
12886: -- return 'S' if all have success --success
12889: SELECT decode(count(*)
12890: ,count(decode(substr(nvl(gl.result_code,'P'),1,1),'P',1)),'S'
12891: ,count(decode(substr(nvl(gl.result_code,'P'),1,1),'F',1,'X',1)),'F'
12892: ,decode(p_partial_flag,'N','F','P')) -- Bug 5522810 : p_partial_flag is also checked before returning partial mode
12893: FROM gl_bc_packets gl
12894: WHERE gl.packet_id = p_packet_id;
12895:
12896: -------->6599207 ------As part of CC Enhancements
12897: CURSOR cbc_cur IS
13702:
13703: CURSOR cur_get_gl_data IS
13704: SELECT session_id,
13705: serial_id
13706: FROM gl_bc_packets
13707: WHERE packet_id = p_gl_packet_id
13708: AND ROWNUM =1 ;
13709:
13710: -- Note: bc_event_id is null being used as for integrated case, the balancing
13780: -- This procedure will update the following columns in pa_bc_packets: serial_id,
13781: -- session_id,actual_flag,packet_id and status. Status will be upated from I to P.
13782: -- Called from pa_funds_check
13783: -- This procedure will also check if the extracts were successful, meaning that:
13784: -- A. pa_bc_packet records have been extracted into gl_bc_packets
13785: -- B. core records have been extracted into gl_bc_packets
13786: -- C. project relieveing entries are created in gl_bc_packets
13787: -- --------------------------------------------------------------------------------+
13788: PROCEDURE Synch_pa_gl_packets(x_packet_id IN Number,
13781: -- session_id,actual_flag,packet_id and status. Status will be upated from I to P.
13782: -- Called from pa_funds_check
13783: -- This procedure will also check if the extracts were successful, meaning that:
13784: -- A. pa_bc_packet records have been extracted into gl_bc_packets
13785: -- B. core records have been extracted into gl_bc_packets
13786: -- C. project relieveing entries are created in gl_bc_packets
13787: -- --------------------------------------------------------------------------------+
13788: PROCEDURE Synch_pa_gl_packets(x_packet_id IN Number,
13789: x_partial_flag IN VARCHAR2,
13782: -- Called from pa_funds_check
13783: -- This procedure will also check if the extracts were successful, meaning that:
13784: -- A. pa_bc_packet records have been extracted into gl_bc_packets
13785: -- B. core records have been extracted into gl_bc_packets
13786: -- C. project relieveing entries are created in gl_bc_packets
13787: -- --------------------------------------------------------------------------------+
13788: PROCEDURE Synch_pa_gl_packets(x_packet_id IN Number,
13789: x_partial_flag IN VARCHAR2,
13790: x_mode IN VARCHAR2,
13796: Select pb.packet_id
13797: from pa_bc_packets pb
13798: where pb.bc_event_id in
13799: (select glbc.event_id
13800: from gl_bc_packets glbc
13801: where glbc.packet_id = x_packet_id)
13802: union all
13803: Select pb.packet_id
13804: from pa_bc_packets pb
13803: Select pb.packet_id
13804: from pa_bc_packets pb
13805: where pb.source_event_id in
13806: (select glbc.event_id
13807: from gl_bc_packets glbc
13808: where glbc.packet_id = x_packet_id);
13809:
13810: -- 1st select reqd. in the case where core distribution not in gl_bc_packets
13811: -- 2nd select reqd. in the case where PA distribution not in gl_bc_packets
13806: (select glbc.event_id
13807: from gl_bc_packets glbc
13808: where glbc.packet_id = x_packet_id);
13809:
13810: -- 1st select reqd. in the case where core distribution not in gl_bc_packets
13811: -- 2nd select reqd. in the case where PA distribution not in gl_bc_packets
13812:
13813: BEGIN
13814:
13807: from gl_bc_packets glbc
13808: where glbc.packet_id = x_packet_id);
13809:
13810: -- 1st select reqd. in the case where core distribution not in gl_bc_packets
13811: -- 2nd select reqd. in the case where PA distribution not in gl_bc_packets
13812:
13813: BEGIN
13814:
13815: l_program_name := 'Synch_pa_gl_packets:';
13845: where packet_id = l_pa_packet_id
13846: and pbc.bc_event_id is not null -- to filter out non-integrated budgets ...
13847: group by pbc.bc_event_id,pbc.document_distribution_id,pbc.document_type
13848: having count(pbc.bc_event_id) > (select count(glbc.event_id)
13849: from gl_bc_packets glbc--,
13850: --xla_distribution_links xlad
13851: where glbc.packet_id = x_packet_id
13852: and glbc.event_id = pbc.bc_event_id
13853: and glbc.source_distribution_id_num_1 = pbc.document_distribution_id
13923: where pbc.packet_id = l_pa_packet_id
13924: and pbc.status_code = 'I'
13925: and pbc.source_event_id is not null
13926: and not exists (select 1
13927: from gl_bc_packets glbc
13928: where glbc.packet_id = x_packet_id
13929: and glbc.event_id = pbc.source_event_id
13930: and glbc.source_distribution_id_num_1 = pbc.document_distribution_id);
13931:
13997: where pbc.packet_id = l_pa_packet_id
13998: and pbc.status_code = 'I'
13999: and pbc.bc_event_id is not null
14000: and not exists (select glbc.source_distribution_id_num_1
14001: from gl_bc_packets glbc
14002: where glbc.packet_id = x_packet_id
14003: and (glbc.event_id = pbc.bc_event_id
14004: OR
14005: glbc.event_id = pbc.source_event_id)
14073:
14074: End Synch_pa_gl_packets;
14075:
14076: -- --------------------------------------------------------------------------------+
14077: -- This procedure will mark gl_bc_packets records to a status such that GL does
14078: -- not execute funds available validation. Previously we used to create liquidation
14079: -- entries. Instead of that, we're executing the following procedure.
14080: -- This is for NO/SEPARATE LINE BURDENING only.
14081: -- This procedure is called from function pa_funds_check
14080: -- This is for NO/SEPARATE LINE BURDENING only.
14081: -- This procedure is called from function pa_funds_check
14082: -- --------------------------------------------------------------------------------+
14083: /*
14084: PROCEDURE Mark_gl_bc_packets_for_no_fc (p_packet_id IN Number)
14085: IS
14086: -- At this point we should not check for result code ...
14087: Cursor c_bc_packet_id is
14088: select distinct pabc.project_id
14092: l_project_burden_method VARCHAR2(15);
14093:
14094: Begin
14095: If g_debug_mode = 'Y' Then
14096: log_message(p_msg_token1 =>'In Mark_gl_bc_packets_for_no_fc - Start');
14097: End if;
14098:
14099: for x in c_bc_packet_id loop
14100:
14101: l_project_burden_method := pa_funds_control_pkg.check_bdn_on_sep_item(x.project_id);
14102:
14103: If (l_project_burden_method <> 'DIFFERENT') then
14104:
14105: Update gl_bc_packets glbc
14106: set status_code = 'P' -- Open Issue no 4 in DLD: Check if this is final ?????
14107: where glbc.rowid in
14108: (select pabc.gl_row_number
14109: from pa_bc_packets pabc
14114: End If;
14115: end loop;
14116:
14117: If g_debug_mode = 'Y' Then
14118: log_message(p_msg_token1 =>'In Mark_gl_bc_packets_for_no_fc - End');
14119: End if;
14120:
14121: End Mark_gl_bc_packets_for_no_fc;
14122: */
14117: If g_debug_mode = 'Y' Then
14118: log_message(p_msg_token1 =>'In Mark_gl_bc_packets_for_no_fc - End');
14119: End if;
14120:
14121: End Mark_gl_bc_packets_for_no_fc;
14122: */
14123: -- --------------------------------------------------------------------------------+
14124: -- This procedure will determine whether funds check/ funds check tieback
14125: -- has been called for non-project related/project related txn. or budget
14508: -- pra.task_id = 0)
14509: -- and glps.period_name = pbc.period_name
14510: -- );
14511:
14512: -- Step 3.0: Identify records that have failed in gl_bc_packets ..
14513: Cursor c_gl_failure(p_budget_version_id in number) is
14514: select pbl.code_combination_id budget_ccid,
14515: pbl.period_name period_name,
14516: 'N' allow_flag ,
14518: pra.task_id,
14519: pra.resource_list_member_id rlmi,
14520: pbl.start_date,
14521: pbl.txn_currency_code
14522: from gl_bc_packets glbc,
14523: pa_budget_lines pbl,
14524: pa_resource_assignments pra
14525: where glbc.packet_id = p_packet_id
14526: and pbl.budget_version_id = p_budget_version_id
14529: and pra.resource_assignment_id = pbl.resource_assignment_id
14530: and pra.budget_version_id = pbl.budget_version_id;
14531: --and nvl(glbc.result_code,'P) <> 'F35';
14532:
14533: -- Step 4.0: This cursor is used to synch account data between gl_bc_packets and the budget ..
14534: Cursor c_budget_lines_synch(p_budget_version_id in number) is
14535: select glbc.code_combination_id sla_ccid,
14536: glbc.rowid gl_rowid,
14537: pbl.code_combination_id budget_ccid,
14546: pra.project_id,
14547: pra.task_id,
14548: pra.resource_list_member_id,
14549: nvl(prlm.parent_member_id,-99) parent_rlmi
14550: from gl_bc_packets glbc,
14551: pa_budget_lines pbl,
14552: pa_resource_assignments pra,
14553: pa_resource_list_members prlm
14554: where glbc.packet_id = p_packet_id
14599: -- 10.0: Cursor used to select records to fail all records ....
14600: -- As data split between packet, records were not being failed in the credit packet ..
14601: Cursor c_gl_records is
14602: select glbc.rowid,glbc.ae_header_id,glbc.ledger_id
14603: from gl_bc_packets glbc
14604: where glbc.event_id in
14605: (select event_id from psa_bc_xla_events_gt);
14606:
14607: l_dummy_value number(1);
14631: Begin
14632:
14633: Select 1 into l_dummy_value from dual
14634: where exists (Select 1
14635: from gl_bc_packets glbc,
14636: pa_budget_lines pbl
14637: where glbc.packet_id = p_packet_id
14638: and pbl.budget_version_id = pa_budget_fund_pkg.g_cost_current_bvid
14639: and pbl.budget_line_id = glbc.source_distribution_id_num_1);
14908:
14909: Begin
14910:
14911: Select 'Y' into l_gl_failure_flag from dual where exists
14912: (select 1 from gl_bc_packets
14913: where packet_id = p_packet_id
14914: and substr(nvl(result_code,'P'),1,1) = 'F');
14915: Exception
14916: When no_data_found then
15115: -- -------------------------- STEP 4 -----------------------------------------+
15116: -- If (Top-Down and re-baseline and "reserve"/"check funds"/"year end")
15117: -- execute "budget account validation" (for the latest budget
15118: -- version only). i.e. account change not allowed on a budget line
15119: -- that has txn.s against it. If any found, fail gl_bc_packets with F35
15120: --
15121: -- IF ACCOUNT CHANGE ALLOWED, then update the account information on
15122: -- pa_budget_lines
15123: -- Note: We however have to synch data for all modes and all budget types ..
15398:
15399: If l_validation_failed = 'Y' then
15400:
15401: -- ----------------------------------------------------------------------------------+
15402: -- ## Fail gl_bc_packets ..
15403: If g_debug_mode = 'Y' then
15404: log_message(p_msg_token1=>l_program_name||': Acct. val. failed - Fail gl_bc_packets');
15405: End If;
15406: -- ----------------------------------------------------------------------------------+
15400:
15401: -- ----------------------------------------------------------------------------------+
15402: -- ## Fail gl_bc_packets ..
15403: If g_debug_mode = 'Y' then
15404: log_message(p_msg_token1=>l_program_name||': Acct. val. failed - Fail gl_bc_packets');
15405: End If;
15406: -- ----------------------------------------------------------------------------------+
15407:
15408: Forall x in t_bud_ccid.FIRST..t_bud_ccid.LAST
15405: End If;
15406: -- ----------------------------------------------------------------------------------+
15407:
15408: Forall x in t_bud_ccid.FIRST..t_bud_ccid.LAST
15409: Update gl_bc_packets glbc
15410: set glbc.result_code = 'F35'
15411: where glbc.packet_id = p_packet_id
15412: and glbc.source_distribution_id_num_1 = g_tab_budget_line_id(x)
15413: and g_tab_allow_flag(x) = 'N';
15742: If l_count > 0 then
15743:
15744: -- ----------------------------------------------------------------------------------+
15745: If g_debug_mode = 'Y' then
15746: log_message(p_msg_token1=>l_program_name||':Account Level Funds Check failed - Fail gl_bc_packets');
15747:
15748: For x in g_tab_budget_ccid.FIRST..g_tab_budget_ccid.LAST loop
15749: log_message(p_msg_token1=>l_program_name||':g_tab_budget_ccid'||g_tab_budget_ccid(x)
15750: ||'g_tab_period_name'|| g_tab_period_name(x));
15751: end loop;
15752: End If;
15753: -- ----------------------------------------------------------------------------------+
15754:
15755: -- A. Fail gl_bc_packets:
15756: Forall x in g_tab_budget_ccid.FIRST..g_tab_budget_ccid.LAST
15757: Update gl_bc_packets glbc
15758: set glbc.result_code = 'F35'
15759: where glbc.packet_id = p_packet_id
15753: -- ----------------------------------------------------------------------------------+
15754:
15755: -- A. Fail gl_bc_packets:
15756: Forall x in g_tab_budget_ccid.FIRST..g_tab_budget_ccid.LAST
15757: Update gl_bc_packets glbc
15758: set glbc.result_code = 'F35'
15759: where glbc.packet_id = p_packet_id
15760: and glbc.code_combination_id = g_tab_budget_ccid(x)
15761: and glbc.period_name = g_tab_period_name(x);
16434: -- Cursor used to select records to fail all records ....
16435: -- As data split between packet, records were not being failed in the credit packet ..
16436: Cursor c_gl_records is
16437: select glbc.rowid,glbc.ae_header_id,glbc.ledger_id
16438: from gl_bc_packets glbc
16439: where glbc.event_id in
16440: (select event_id from psa_bc_xla_events_gt);
16441:
16442: l_baseline_failed Varchar2(1);
16458: into l_baseline_failed
16459: from dual
16460: where exists
16461: (select packet_id
16462: from gl_bc_packets glbc
16463: where glbc.event_id in
16464: (select event_id from psa_bc_xla_events_gt)
16465: and glbc.result_code like 'F%');
16466: Exception
16498: -- -------------------------------------------------------------------------- +
16499: -- Fail gl_bc_packet records ...
16500: -- -------------------------------------------------------------------------- +
16501: forall i in t_glrowid.FIRST..t_glrowid.LAST
16502: Update gl_bc_packets glbc
16503: set glbc.result_code = decode(substr(glbc.result_code,1,1),'F',glbc.result_code,'F35'),
16504: glbc.status_code = decode(pa_budget_fund_pkg.g_processing_mode,
16505: 'CHECK_FUNDS','F','R')
16506: where rowid = t_glrowid(i);