337: AND ORG_ID = P_ORG_ID;
338:
339: EXCEPTION
340: WHEN OTHERS THEN
341: -- fnd_message.set_name('IGI', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
342: -- fnd_message.set_token('MODULE','STEP 1');
343: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
344:
345: --bug 3199481 fnd logging changes: sdixit
338:
339: EXCEPTION
340: WHEN OTHERS THEN
341: -- fnd_message.set_name('IGI', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
342: -- fnd_message.set_token('MODULE','STEP 1');
343: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
344:
345: --bug 3199481 fnd logging changes: sdixit
346: IF ( l_unexp_level >= l_debug_level ) THEN
339: EXCEPTION
340: WHEN OTHERS THEN
341: -- fnd_message.set_name('IGI', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
342: -- fnd_message.set_token('MODULE','STEP 1');
343: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
344:
345: --bug 3199481 fnd logging changes: sdixit
346: IF ( l_unexp_level >= l_debug_level ) THEN
347:
344:
345: --bug 3199481 fnd logging changes: sdixit
346: IF ( l_unexp_level >= l_debug_level ) THEN
347:
348: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
349: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
350: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
351: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.feed_packages',TRUE);
352: END IF;
345: --bug 3199481 fnd logging changes: sdixit
346: IF ( l_unexp_level >= l_debug_level ) THEN
347:
348: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
349: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
350: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
351: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.feed_packages',TRUE);
352: END IF;
353: RAISE_APPLICATION_ERROR(-20010, 'Error in feed_packages procedure');
346: IF ( l_unexp_level >= l_debug_level ) THEN
347:
348: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
349: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
350: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
351: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.feed_packages',TRUE);
352: END IF;
353: RAISE_APPLICATION_ERROR(-20010, 'Error in feed_packages procedure');
354: END feed_packages;
369: Rollback;
370: --bug 3199481 fnd logging changes: sdixit
371: IF ( l_unexp_level >= l_debug_level ) THEN
372:
373: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
374: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
375: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
376: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Delete_Candidates',TRUE);
377: END IF;
370: --bug 3199481 fnd logging changes: sdixit
371: IF ( l_unexp_level >= l_debug_level ) THEN
372:
373: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
374: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
375: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
376: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Delete_Candidates',TRUE);
377: END IF;
378: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
371: IF ( l_unexp_level >= l_debug_level ) THEN
372:
373: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
374: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
375: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
376: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Delete_Candidates',TRUE);
377: END IF;
378: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
379: -- fnd_message.set_token('MODULE','STEP 2');
374: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
375: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
376: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Delete_Candidates',TRUE);
377: END IF;
378: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
379: -- fnd_message.set_token('MODULE','STEP 2');
380: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
381: RAISE_APPLICATION_ERROR(-20010, 'Error in delete_candidates procedure');
382: END Delete_Candidates;
375: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
376: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Delete_Candidates',TRUE);
377: END IF;
378: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
379: -- fnd_message.set_token('MODULE','STEP 2');
380: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
381: RAISE_APPLICATION_ERROR(-20010, 'Error in delete_candidates procedure');
382: END Delete_Candidates;
383:
376: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Delete_Candidates',TRUE);
377: END IF;
378: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
379: -- fnd_message.set_token('MODULE','STEP 2');
380: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
381: RAISE_APPLICATION_ERROR(-20010, 'Error in delete_candidates procedure');
382: END Delete_Candidates;
383:
384:
602: END LOOP;
603: END IF;
604: EXCEPTION
605: WHEN OTHERS THEN
606: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
607: -- fnd_message.set_token('MODULE','STEP 3');
608: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
609: if l_flag = '1' then
610:
603: END IF;
604: EXCEPTION
605: WHEN OTHERS THEN
606: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
607: -- fnd_message.set_token('MODULE','STEP 3');
608: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
609: if l_flag = '1' then
610:
611: --bug 3199481 fnd logging changes: sdixit
604: EXCEPTION
605: WHEN OTHERS THEN
606: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
607: -- fnd_message.set_token('MODULE','STEP 3');
608: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
609: if l_flag = '1' then
610:
611: --bug 3199481 fnd logging changes: sdixit
612: IF ( l_unexp_level >= l_debug_level ) THEN
610:
611: --bug 3199481 fnd logging changes: sdixit
612: IF ( l_unexp_level >= l_debug_level ) THEN
613:
614: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
615: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
616: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
617: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg1',TRUE);
618: END IF;
611: --bug 3199481 fnd logging changes: sdixit
612: IF ( l_unexp_level >= l_debug_level ) THEN
613:
614: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
615: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
616: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
617: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg1',TRUE);
618: END IF;
619:
612: IF ( l_unexp_level >= l_debug_level ) THEN
613:
614: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
615: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
616: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
617: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg1',TRUE);
618: END IF;
619:
620: RAISE_APPLICATION_ERROR(-20010, 'Error in netting procedure Receivable AC ');
621: elsif l_flag = '2' then
622: --bug 3199481 fnd logging changes: sdixit
623: IF ( l_unexp_level >= l_debug_level ) THEN
624:
625: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
626: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
627: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
628: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg2',TRUE);
629: END IF;
622: --bug 3199481 fnd logging changes: sdixit
623: IF ( l_unexp_level >= l_debug_level ) THEN
624:
625: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
626: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
627: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
628: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg2',TRUE);
629: END IF;
630: RAISE_APPLICATION_ERROR(-20010, 'Error in netting procedure Liability AC');
623: IF ( l_unexp_level >= l_debug_level ) THEN
624:
625: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
626: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
627: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
628: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg2',TRUE);
629: END IF;
630: RAISE_APPLICATION_ERROR(-20010, 'Error in netting procedure Liability AC');
631: else
631: else
632: --bug 3199481 fnd logging changes: sdixit
633: IF ( l_unexp_level >= l_debug_level ) THEN
634:
635: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
636: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
637: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
638: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg3',TRUE);
639: END IF;
632: --bug 3199481 fnd logging changes: sdixit
633: IF ( l_unexp_level >= l_debug_level ) THEN
634:
635: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
636: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
637: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
638: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg3',TRUE);
639: END IF;
640: RAISE_APPLICATION_ERROR(-20010, 'Error in netting procedure');
633: IF ( l_unexp_level >= l_debug_level ) THEN
634:
635: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
636: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
637: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
638: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.Netting.msg3',TRUE);
639: END IF;
640: RAISE_APPLICATION_ERROR(-20010, 'Error in netting procedure');
641: end if;
860: END LOOP;
861:
862: EXCEPTION
863: WHEN OTHERS THEN
864: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
865: -- fnd_message.set_token('MODULE',l_message);
866: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
867: if l_flag = '1' then
868: --bug 3199481 fnd logging changes: sdixit
861:
862: EXCEPTION
863: WHEN OTHERS THEN
864: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
865: -- fnd_message.set_token('MODULE',l_message);
866: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
867: if l_flag = '1' then
868: --bug 3199481 fnd logging changes: sdixit
869: IF ( l_unexp_level >= l_debug_level ) THEN
862: EXCEPTION
863: WHEN OTHERS THEN
864: -- fnd_message.set_name('SQLGL', 'MRC_SYSTEM_OPTIONS_NOT_FOUND');
865: -- fnd_message.set_token('MODULE',l_message);
866: -- RAISE_APPLICATION_ERROR(-20010, fnd_message.get);
867: if l_flag = '1' then
868: --bug 3199481 fnd logging changes: sdixit
869: IF ( l_unexp_level >= l_debug_level ) THEN
870:
867: if l_flag = '1' then
868: --bug 3199481 fnd logging changes: sdixit
869: IF ( l_unexp_level >= l_debug_level ) THEN
870:
871: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
872: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
873: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
874: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg1',TRUE);
875: END IF;
868: --bug 3199481 fnd logging changes: sdixit
869: IF ( l_unexp_level >= l_debug_level ) THEN
870:
871: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
872: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
873: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
874: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg1',TRUE);
875: END IF;
876: RAISE_APPLICATION_ERROR(-20010, 'Error in ap_only_netting procedure vendor site id');
869: IF ( l_unexp_level >= l_debug_level ) THEN
870:
871: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
872: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
873: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
874: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg1',TRUE);
875: END IF;
876: RAISE_APPLICATION_ERROR(-20010, 'Error in ap_only_netting procedure vendor site id');
877: elsif l_flag = '2' then
877: elsif l_flag = '2' then
878: --bug 3199481 fnd logging changes: sdixit
879: IF ( l_unexp_level >= l_debug_level ) THEN
880:
881: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
882: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
883: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
884: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg2',TRUE);
885: END IF;
878: --bug 3199481 fnd logging changes: sdixit
879: IF ( l_unexp_level >= l_debug_level ) THEN
880:
881: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
882: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
883: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
884: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg2',TRUE);
885: END IF;
886: RAISE_APPLICATION_ERROR(-20010, 'Error in ap_only_netting procedure liability account');
879: IF ( l_unexp_level >= l_debug_level ) THEN
880:
881: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
882: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
883: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
884: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg2',TRUE);
885: END IF;
886: RAISE_APPLICATION_ERROR(-20010, 'Error in ap_only_netting procedure liability account');
887: else
887: else
888: --bug 3199481 fnd logging changes: sdixit
889: IF ( l_unexp_level >= l_debug_level ) THEN
890:
891: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
892: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
893: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
894: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg3',TRUE);
895: END IF;
888: --bug 3199481 fnd logging changes: sdixit
889: IF ( l_unexp_level >= l_debug_level ) THEN
890:
891: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
892: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
893: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
894: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg3',TRUE);
895: END IF;
896: RAISE_APPLICATION_ERROR(-20010, 'Error in ap_only_netting procedure' );
889: IF ( l_unexp_level >= l_debug_level ) THEN
890:
891: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
892: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
893: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
894: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.AP_Only_Netting.msg3',TRUE);
895: END IF;
896: RAISE_APPLICATION_ERROR(-20010, 'Error in ap_only_netting procedure' );
897: end if;
1122: WHEN OTHERS THEN
1123: --bug 3199481 fnd logging changes: sdixit
1124: IF ( l_unexp_level >= l_debug_level ) THEN
1125:
1126: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1127: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1128: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1129: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_netting',TRUE);
1130: END IF;
1123: --bug 3199481 fnd logging changes: sdixit
1124: IF ( l_unexp_level >= l_debug_level ) THEN
1125:
1126: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1127: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1128: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1129: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_netting',TRUE);
1130: END IF;
1131:
1124: IF ( l_unexp_level >= l_debug_level ) THEN
1125:
1126: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1127: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1128: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1129: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.pay_excess_netting',TRUE);
1130: END IF;
1131:
1132: if l_flag = '1' then
1265: WHEN OTHERS THEN
1266: --bug 3199481 fnd logging changes: sdixit
1267: IF ( l_unexp_level >= l_debug_level ) THEN
1268:
1269: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1270: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1271: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1272: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_netting',TRUE);
1273: END IF;
1266: --bug 3199481 fnd logging changes: sdixit
1267: IF ( l_unexp_level >= l_debug_level ) THEN
1268:
1269: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1270: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1271: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1272: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_netting',TRUE);
1273: END IF;
1274: if l_flag = '1' then
1267: IF ( l_unexp_level >= l_debug_level ) THEN
1268:
1269: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
1270: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1271: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1272: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igistpcb.IGI_STP_CREATE_PCK_PKG.sup_reimb_netting',TRUE);
1273: END IF;
1274: if l_flag = '1' then
1275: RAISE_APPLICATION_ERROR(-20010, 'Error in supplier reimb netting procedure Liability AC');