[Home] [Help]
133: -- 2. Query CDLs based on the request id passed and see if there are any
134: -- to be processed. If no CDLs are found then return to calling point.
135: -- Else process them.
136: -- 3. If there are CDLs to be processed populate gms_bc_packets table and
137: -- call gms_funds_control_pkg.gms_fck in 'X' mode for fundschecking.
138: -- 4. If packet fails fundscheck, mark the expenditures with rejection code
139: -- and delete the corresponding CDLs.
140: --
141: -- Parameters and meaning.
818: -- If there was any abnormal termination previously, we want to clean up
819: -- that data before proceding.
820: g_error_stage := 'Calling delete pending transactions';
821:
822: gms_funds_control_pkg.delete_pending_txns(l_err_code, l_err_buf);
823:
824: if g_process = 'Costing' then
825:
826: g_error_stage := 'Calling Populate BC Packets for Costing Fundscheck';
864:
865: g_error_stage := 'Calling gms_fck';
866:
867: -- Call Fundscheck process.
868: if NOT gms_funds_control_pkg.gms_fck (x_sobid => g_set_of_books_id,
869: x_packetid => g_packet_id,
870: x_mode => l_fc_mode,
871: x_override => 'N',
872: x_partial => l_partial_mode,
1481: g_error_stage := 'Calling setup_rlmi for non-fundschecked txns.';
1482: IF g_debug_context = 'Y' THEN
1483: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
1484: END IF;
1485: gms_funds_control_pkg.setup_rlmi(g_packet_id, 'R', l_err_code, l_err_buf);
1486:
1487: g_error_stage := 'Calling update top task and parent resource for non-FCd txns';
1488: IF g_debug_context = 'Y' THEN
1489: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
1524: commit;
1525:
1526: p_fck_return_code := 0;
1527:
1528: if NOT gms_funds_control_pkg.gms_fck (x_sobid => g_set_of_books_id,
1529: x_packetid => g_packet_id,
1530: x_mode => l_fc_mode,
1531: x_override => 'N',
1532: x_partial => l_partial_mode,