197: EXCEPTION
198: WHEN OTHERS THEN
199: x_return_status := Fnd_Api.G_Ret_Sts_Error;
200: IF (SQLCODE <> -20001) THEN
201: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
202: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
203: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
204: END IF;
205: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
198: WHEN OTHERS THEN
199: x_return_status := Fnd_Api.G_Ret_Sts_Error;
200: IF (SQLCODE <> -20001) THEN
201: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
202: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
203: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
204: END IF;
205: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
206: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Delete_Events Procedure' );
199: x_return_status := Fnd_Api.G_Ret_Sts_Error;
200: IF (SQLCODE <> -20001) THEN
201: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
202: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
203: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
204: END IF;
205: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
206: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Delete_Events Procedure' );
207: Fnd_Msg_Pub.Count_And_Get
283: );
284: psa_utils.debug_other_string(g_state_level,l_path_name, 'l_entity_ret_code='||l_entity_ret_code);
285: ELSIF (l_event_status_code = 'P') THEN
286: psa_utils.debug_other_string(g_state_level,l_path_name, 'Event:'||p_tab_fc_dist(i).bc_event_id||' is in processed status');
287: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
288: fnd_message.set_token('EVENT_ID',p_tab_fc_dist(i).bc_event_id);
289: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
290: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
291: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
284: psa_utils.debug_other_string(g_state_level,l_path_name, 'l_entity_ret_code='||l_entity_ret_code);
285: ELSIF (l_event_status_code = 'P') THEN
286: psa_utils.debug_other_string(g_state_level,l_path_name, 'Event:'||p_tab_fc_dist(i).bc_event_id||' is in processed status');
287: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
288: fnd_message.set_token('EVENT_ID',p_tab_fc_dist(i).bc_event_id);
289: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
290: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
291: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
292:
285: ELSIF (l_event_status_code = 'P') THEN
286: psa_utils.debug_other_string(g_state_level,l_path_name, 'Event:'||p_tab_fc_dist(i).bc_event_id||' is in processed status');
287: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
288: fnd_message.set_token('EVENT_ID',p_tab_fc_dist(i).bc_event_id);
289: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
290: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
291: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
292:
293: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
286: psa_utils.debug_other_string(g_state_level,l_path_name, 'Event:'||p_tab_fc_dist(i).bc_event_id||' is in processed status');
287: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
288: fnd_message.set_token('EVENT_ID',p_tab_fc_dist(i).bc_event_id);
289: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
290: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
291: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
292:
293: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
294: fnd_message.set_token('EVENT_ID',p_tab_fc_dist(i).bc_event_id);
289: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
290: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
291: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
292:
293: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
294: fnd_message.set_token('EVENT_ID',p_tab_fc_dist(i).bc_event_id);
295: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
296: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
297: Fnd_Msg_Pub.ADD;
290: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
291: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
292:
293: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
294: fnd_message.set_token('EVENT_ID',p_tab_fc_dist(i).bc_event_id);
295: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
296: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
297: Fnd_Msg_Pub.ADD;
298: Fnd_Msg_Pub.Count_And_Get
291: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
292:
293: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
294: fnd_message.set_token('EVENT_ID',p_tab_fc_dist(i).bc_event_id);
295: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
296: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
297: Fnd_Msg_Pub.ADD;
298: Fnd_Msg_Pub.Count_And_Get
299: (
292:
293: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
294: fnd_message.set_token('EVENT_ID',p_tab_fc_dist(i).bc_event_id);
295: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
296: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
297: Fnd_Msg_Pub.ADD;
298: Fnd_Msg_Pub.Count_And_Get
299: (
300: p_count => p_msg_count,
339: psa_utils.debug_other_string(g_state_level,l_path_name, 'l_entity_ret_code='||l_entity_ret_code);
340: ELSIF (l_event_status_code = 'P') THEN
341: psa_utils.debug_other_string(g_state_level,l_path_name, 'Event:'||p_tab_fc_dist(i).bc_event_id||' is in processed status');
342:
343: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
344: fnd_message.set_token('EVENT_ID',event_rec.event_id);
345: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
346: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
347: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
340: ELSIF (l_event_status_code = 'P') THEN
341: psa_utils.debug_other_string(g_state_level,l_path_name, 'Event:'||p_tab_fc_dist(i).bc_event_id||' is in processed status');
342:
343: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
344: fnd_message.set_token('EVENT_ID',event_rec.event_id);
345: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
346: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
347: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
348:
341: psa_utils.debug_other_string(g_state_level,l_path_name, 'Event:'||p_tab_fc_dist(i).bc_event_id||' is in processed status');
342:
343: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
344: fnd_message.set_token('EVENT_ID',event_rec.event_id);
345: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
346: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
347: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
348:
349: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
342:
343: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
344: fnd_message.set_token('EVENT_ID',event_rec.event_id);
345: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
346: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
347: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
348:
349: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
350: fnd_message.set_token('EVENT_ID',event_rec.event_id);
345: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
346: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
347: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
348:
349: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
350: fnd_message.set_token('EVENT_ID',event_rec.event_id);
351: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
352: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
353: Fnd_Msg_Pub.ADD;
346: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
347: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
348:
349: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
350: fnd_message.set_token('EVENT_ID',event_rec.event_id);
351: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
352: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
353: Fnd_Msg_Pub.ADD;
354: Fnd_Msg_Pub.Count_And_Get
347: psa_bc_xla_pvt.psa_xla_error ('PSA_BC_EVENT_ALREADY_PROCESSED');
348:
349: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
350: fnd_message.set_token('EVENT_ID',event_rec.event_id);
351: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
352: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
353: Fnd_Msg_Pub.ADD;
354: Fnd_Msg_Pub.Count_And_Get
355: (
348:
349: fnd_message.set_name('PSA','PSA_BC_EVENT_ALREADY_PROCESSED');
350: fnd_message.set_token('EVENT_ID',event_rec.event_id);
351: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(i).invoice_id);
352: fnd_message.set_token('INV_DISTRIBUTION_ID',p_tab_fc_dist(i).inv_distribution_id);
353: Fnd_Msg_Pub.ADD;
354: Fnd_Msg_Pub.Count_And_Get
355: (
356: p_count => p_msg_count,
370: END LOOP;
371: EXCEPTION
372: WHEN OTHERS THEN
373: p_return_status := Fnd_Api.G_Ret_Sts_Error;
374: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
375: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
376: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
377: FND_MESSAGE.SET_TOKEN('PARAMETERS','');
378: psa_utils.debug_other_string(g_excep_level,l_path_name,'EXCEPTION: '|| SQLERRM(sqlcode));
371: EXCEPTION
372: WHEN OTHERS THEN
373: p_return_status := Fnd_Api.G_Ret_Sts_Error;
374: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
375: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
376: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
377: FND_MESSAGE.SET_TOKEN('PARAMETERS','');
378: psa_utils.debug_other_string(g_excep_level,l_path_name,'EXCEPTION: '|| SQLERRM(sqlcode));
379: psa_utils.debug_other_string(g_excep_level,l_path_name,'Error in delete_unprocessed_events Procedure' );
372: WHEN OTHERS THEN
373: p_return_status := Fnd_Api.G_Ret_Sts_Error;
374: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
375: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
376: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
377: FND_MESSAGE.SET_TOKEN('PARAMETERS','');
378: psa_utils.debug_other_string(g_excep_level,l_path_name,'EXCEPTION: '|| SQLERRM(sqlcode));
379: psa_utils.debug_other_string(g_excep_level,l_path_name,'Error in delete_unprocessed_events Procedure' );
380: Fnd_Msg_Pub.Count_And_Get
373: p_return_status := Fnd_Api.G_Ret_Sts_Error;
374: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
375: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
376: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
377: FND_MESSAGE.SET_TOKEN('PARAMETERS','');
378: psa_utils.debug_other_string(g_excep_level,l_path_name,'EXCEPTION: '|| SQLERRM(sqlcode));
379: psa_utils.debug_other_string(g_excep_level,l_path_name,'Error in delete_unprocessed_events Procedure' );
380: Fnd_Msg_Pub.Count_And_Get
381: (
591: EXCEPTION
592: WHEN OTHERS THEN
593: p_return_status := Fnd_Api.G_Ret_Sts_Error;
594: IF (SQLCODE <> -20001) THEN
595: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
596: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
597: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', p_calling_sequence);
598: END IF;
599: psa_utils.debug_other_string(g_excep_level,l_path_name,'EXCEPTION: '|| SQLERRM(sqlcode));
592: WHEN OTHERS THEN
593: p_return_status := Fnd_Api.G_Ret_Sts_Error;
594: IF (SQLCODE <> -20001) THEN
595: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
596: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
597: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', p_calling_sequence);
598: END IF;
599: psa_utils.debug_other_string(g_excep_level,l_path_name,'EXCEPTION: '|| SQLERRM(sqlcode));
600: psa_utils.debug_other_string(g_excep_level,l_path_name,'Error in delete_processed_orphan_events Procedure' );
593: p_return_status := Fnd_Api.G_Ret_Sts_Error;
594: IF (SQLCODE <> -20001) THEN
595: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
596: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
597: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', p_calling_sequence);
598: END IF;
599: psa_utils.debug_other_string(g_excep_level,l_path_name,'EXCEPTION: '|| SQLERRM(sqlcode));
600: psa_utils.debug_other_string(g_excep_level,l_path_name,'Error in delete_processed_orphan_events Procedure' );
601: Fnd_Msg_Pub.Count_And_Get
1173:
1174: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1175: psa_utils.debug_other_string(g_error_level,l_api_name, ' PSA_AP_BC_PVT.CREATE_EVENT Failed ');
1176: psa_utils.debug_other_string(g_error_level,l_api_name, 'ERROR: Wrong BC event stamped on distributions for invoice id: ' || p_tab_fc_dist(1).invoice_id );
1177: fnd_message.set_name('PSA','PSA_AP_BC_STAMPING_ERROR');
1178: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(1).invoice_id);
1179: psa_bc_xla_pvt.psa_xla_error ('PSA_AP_BC_STAMPING_ERROR');
1180:
1181: fnd_message.set_name('PSA','PSA_AP_BC_STAMPING_ERROR');
1174: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1175: psa_utils.debug_other_string(g_error_level,l_api_name, ' PSA_AP_BC_PVT.CREATE_EVENT Failed ');
1176: psa_utils.debug_other_string(g_error_level,l_api_name, 'ERROR: Wrong BC event stamped on distributions for invoice id: ' || p_tab_fc_dist(1).invoice_id );
1177: fnd_message.set_name('PSA','PSA_AP_BC_STAMPING_ERROR');
1178: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(1).invoice_id);
1179: psa_bc_xla_pvt.psa_xla_error ('PSA_AP_BC_STAMPING_ERROR');
1180:
1181: fnd_message.set_name('PSA','PSA_AP_BC_STAMPING_ERROR');
1182: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(1).invoice_id);
1177: fnd_message.set_name('PSA','PSA_AP_BC_STAMPING_ERROR');
1178: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(1).invoice_id);
1179: psa_bc_xla_pvt.psa_xla_error ('PSA_AP_BC_STAMPING_ERROR');
1180:
1181: fnd_message.set_name('PSA','PSA_AP_BC_STAMPING_ERROR');
1182: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(1).invoice_id);
1183: Fnd_Msg_Pub.ADD;
1184: Fnd_Msg_Pub.Count_And_Get
1185: (
1178: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(1).invoice_id);
1179: psa_bc_xla_pvt.psa_xla_error ('PSA_AP_BC_STAMPING_ERROR');
1180:
1181: fnd_message.set_name('PSA','PSA_AP_BC_STAMPING_ERROR');
1182: fnd_message.set_token('INVOICE_ID',p_tab_fc_dist(1).invoice_id);
1183: Fnd_Msg_Pub.ADD;
1184: Fnd_Msg_Pub.Count_And_Get
1185: (
1186: p_count => x_msg_count,
1196: EXCEPTION
1197: WHEN OTHERS THEN
1198: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1199: IF (SQLCODE <> -20001) THEN
1200: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1201: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1202: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1203: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1204: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
1197: WHEN OTHERS THEN
1198: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1199: IF (SQLCODE <> -20001) THEN
1200: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1201: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1202: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1203: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1204: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
1205: ||',Calling_Mode = '|| p_calling_mode);
1198: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1199: IF (SQLCODE <> -20001) THEN
1200: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1201: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1202: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1203: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1204: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
1205: ||',Calling_Mode = '|| p_calling_mode);
1206: END IF;
1199: IF (SQLCODE <> -20001) THEN
1200: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1201: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1202: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1203: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1204: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
1205: ||',Calling_Mode = '|| p_calling_mode);
1206: END IF;
1207: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
1306: EXCEPTION
1307: WHEN OTHERS THEN
1308: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1309: IF (SQLCODE <> -20001) THEN
1310: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1311: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1312: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1313: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id));
1314: END IF;
1307: WHEN OTHERS THEN
1308: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1309: IF (SQLCODE <> -20001) THEN
1310: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1311: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1312: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1313: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id));
1314: END IF;
1315:
1308: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1309: IF (SQLCODE <> -20001) THEN
1310: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1311: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1312: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1313: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id));
1314: END IF;
1315:
1316: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
1309: IF (SQLCODE <> -20001) THEN
1310: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1311: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1312: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1313: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id));
1314: END IF;
1315:
1316: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: '|| SQLERRM(sqlcode));
1317: psa_utils.debug_other_string(g_excep_level,l_api_name,'Error in Get_Detailed_Results Procedure' );
1438:
1439: EXCEPTION
1440: WHEN OTHERS THEN
1441: IF (SQLCODE <> -20001) THEN
1442: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1443: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1444: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1445: END IF;
1446: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Procedure Get_GL_FundsChk_Result_Code');
1439: EXCEPTION
1440: WHEN OTHERS THEN
1441: IF (SQLCODE <> -20001) THEN
1442: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1443: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1444: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1445: END IF;
1446: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Procedure Get_GL_FundsChk_Result_Code');
1447: APP_EXCEPTION.RAISE_EXCEPTION;
1440: WHEN OTHERS THEN
1441: IF (SQLCODE <> -20001) THEN
1442: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1443: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1444: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1445: END IF;
1446: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Procedure Get_GL_FundsChk_Result_Code');
1447: APP_EXCEPTION.RAISE_EXCEPTION;
1448: END Get_GL_FundsChk_Result_Code;
1532:
1533: EXCEPTION
1534: WHEN OTHERS THEN
1535: IF (SQLCODE <> -20001) THEN
1536: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1537: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1539: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id)
1540: ||', Dist_line_num = '|| to_char(p_dist_line_num));
1533: EXCEPTION
1534: WHEN OTHERS THEN
1535: IF (SQLCODE <> -20001) THEN
1536: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1537: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1539: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id)
1540: ||', Dist_line_num = '|| to_char(p_dist_line_num));
1541: END IF;
1534: WHEN OTHERS THEN
1535: IF (SQLCODE <> -20001) THEN
1536: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1537: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1539: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id)
1540: ||', Dist_line_num = '|| to_char(p_dist_line_num));
1541: END IF;
1542:
1535: IF (SQLCODE <> -20001) THEN
1536: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1537: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1538: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1539: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice_id = '|| to_char(p_invoice_id)
1540: ||', Dist_line_num = '|| to_char(p_dist_line_num));
1541: END IF;
1542:
1543: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Process_Fundschk_Failure_Code Procedure');
2129: EXCEPTION
2130: WHEN OTHERS THEN
2131: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2132: IF (SQLCODE <> -20001) THEN
2133: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2134: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2135: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
2136: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2137: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
2130: WHEN OTHERS THEN
2131: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2132: IF (SQLCODE <> -20001) THEN
2133: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2134: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2135: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
2136: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2137: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
2138: ||',Calling_Mode = CANCEL ');
2131: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2132: IF (SQLCODE <> -20001) THEN
2133: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2134: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2135: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
2136: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2137: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
2138: ||',Calling_Mode = CANCEL ');
2139: END IF;
2132: IF (SQLCODE <> -20001) THEN
2133: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2134: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2135: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_calling_sequence);
2136: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2137: 'Invoice_id = '|| to_char(p_tab_fc_dist(1).invoice_id)
2138: ||',Calling_Mode = CANCEL ');
2139: END IF;
2140: psa_utils.debug_other_string(g_excep_level,l_api_name,'EXCEPTION: Unknown Error in Reinstate_PO_Encumbrance Procedure');