94: --g_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.VALUE('IGC_DEBUG_ENABLED'),'N');
95: g_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
96: --g_legal_entity_id NUMBER; --R12 Uptake Refer Bug No 6341012
97:
98: g_ledger_tbl PSA_FUNDS_CHECKER_PKG.num_rec;
99: g_event_tbl PSA_FUNDS_CHECKER_PKG.num_rec;
100:
101: g_event_ind NUMBER;
102: g_ledger_ind NUMBER;
95: g_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
96: --g_legal_entity_id NUMBER; --R12 Uptake Refer Bug No 6341012
97:
98: g_ledger_tbl PSA_FUNDS_CHECKER_PKG.num_rec;
99: g_event_tbl PSA_FUNDS_CHECKER_PKG.num_rec;
100:
101: g_event_ind NUMBER;
102: g_ledger_ind NUMBER;
103:
128: x_batch_result_code OUT NOCOPY VARCHAR2
129: );
130:
131: PROCEDURE UNDO_GL_BC_PACKETS(
132: p_ledger_array IN PSA_FUNDS_CHECKER_PKG.num_rec,
133: p_event_array IN PSA_FUNDS_CHECKER_PKG.num_rec,
134: p_return_status OUT NOCOPY VARCHAR2
135: );
136:
129: );
130:
131: PROCEDURE UNDO_GL_BC_PACKETS(
132: p_ledger_array IN PSA_FUNDS_CHECKER_PKG.num_rec,
133: p_event_array IN PSA_FUNDS_CHECKER_PKG.num_rec,
134: p_return_status OUT NOCOPY VARCHAR2
135: );
136:
137: PROCEDURE Get_Status(
283:
284: /*TO DO: Get CBC Ledger ID from GL tables based on p_sobid*/
285:
286: /*Initialize the Ledger and Event Tables*/
287: g_event_tbl := PSA_FUNDS_CHECKER_PKG.num_rec();
288: g_ledger_tbl := PSA_FUNDS_CHECKER_PKG.num_rec();
289: --Initialize global variables
290: -- If packet id is not null, it means the call has come from outside
291: -- CC module, primarily from the PO Funds Checker.
284: /*TO DO: Get CBC Ledger ID from GL tables based on p_sobid*/
285:
286: /*Initialize the Ledger and Event Tables*/
287: g_event_tbl := PSA_FUNDS_CHECKER_PKG.num_rec();
288: g_ledger_tbl := PSA_FUNDS_CHECKER_PKG.num_rec();
289: --Initialize global variables
290: -- If packet id is not null, it means the call has come from outside
291: -- CC module, primarily from the PO Funds Checker.
292: -- Bidisha S, 28 Nov 2002
1088: x_sev_rank := l_max_sev_rank;
1089: END Get_Status;
1090:
1091: PROCEDURE UNDO_GL_BC_PACKETS(
1092: p_ledger_array IN PSA_FUNDS_CHECKER_PKG.num_rec,
1093: p_event_array IN PSA_FUNDS_CHECKER_PKG.num_rec,
1094: p_return_status OUT NOCOPY VARCHAR2
1095:
1096: ) IS
1089: END Get_Status;
1090:
1091: PROCEDURE UNDO_GL_BC_PACKETS(
1092: p_ledger_array IN PSA_FUNDS_CHECKER_PKG.num_rec,
1093: p_event_array IN PSA_FUNDS_CHECKER_PKG.num_rec,
1094: p_return_status OUT NOCOPY VARCHAR2
1095:
1096: ) IS
1097:
1108: Put_Debug_Msg (l_full_path, 'Switching to Autonomous Transaction Mode' );
1109: Put_Debug_Msg (l_full_path, 'Undoing GL_BC_PACKETS by calling sync_xla_errors' );
1110: END IF;
1111:
1112: PSA_FUNDS_CHECKER_PKG.sync_xla_errors(
1113: p_failed_ldgr_array => p_ledger_array,
1114: p_failed_evnt_array => p_event_array
1115: );
1116: