[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.
849: -- If there was any abnormal termination previously, we want to clean up
850: -- that data before proceding.
851: g_error_stage := 'Calling delete pending transactions';
852:
853: gms_funds_control_pkg.delete_pending_txns(l_err_code, l_err_buf);
854:
855: if g_process = 'Costing' then
856:
857: g_error_stage := 'Calling Populate BC Packets for Costing Fundscheck';
895:
896: g_error_stage := 'Calling gms_fck';
897:
898: -- Call Fundscheck process.
899: if NOT gms_funds_control_pkg.gms_fck (x_sobid => g_set_of_books_id,
900: x_packetid => g_packet_id,
901: x_mode => l_fc_mode,
902: x_override => 'N',
903: x_partial => l_partial_mode,
1512: g_error_stage := 'Calling setup_rlmi for non-fundschecked txns.';
1513: IF g_debug_context = 'Y' THEN
1514: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
1515: END IF;
1516: gms_funds_control_pkg.setup_rlmi(g_packet_id, 'R', l_err_code, l_err_buf);
1517:
1518: g_error_stage := 'Calling update top task and parent resource for non-FCd txns';
1519: IF g_debug_context = 'Y' THEN
1520: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
1555: commit;
1556:
1557: p_fck_return_code := 0;
1558:
1559: if NOT gms_funds_control_pkg.gms_fck (x_sobid => g_set_of_books_id,
1560: x_packetid => g_packet_id,
1561: x_mode => l_fc_mode,
1562: x_override => 'N',
1563: x_partial => l_partial_mode,