eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.IBY_SUPP_BANK_MERGE_PUB dependencies on FND_FILE

Line 61: fnd_file.put_line(fnd_file.log, g_mesg);

57:
58: BEGIN
59: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
60: g_mesg := ' Start MERGE_BANKS ' ;
61: fnd_file.put_line(fnd_file.log, g_mesg);
62: END IF;
63: -- For all Bank Accounts for From supplier
64: IF (from_bank_account_id_list.COUNT > 0) THEN
65: FOR I IN from_bank_account_id_list.FIRST..from_bank_account_id_list.LAST

Line 69: fnd_file.put_line(fnd_file.log, g_mesg);

65: FOR I IN from_bank_account_id_list.FIRST..from_bank_account_id_list.LAST
66: LOOP
67: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
68: g_mesg := ' Start Processing Bank Account Id => '|| from_bank_account_id_list(I) ;
69: fnd_file.put_line(fnd_file.log, g_mesg);
70: END IF;
71: l_bank_account_exits := FALSE;
72: l_max_order_of_pref := 0;
73: l_is_primary := 'N';

Line 80: fnd_file.put_line(fnd_file.log, g_mesg);

76: -- Check whether bank account is already associated to to-Supplier
77: IF (to_bank_account_id_list.COUNT > 0) THEN
78: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
79: g_mesg := ' Check whether the bank account is already existing for to-supplier ' ;
80: fnd_file.put_line(fnd_file.log, g_mesg);
81: END IF;
82:
83: FOR J IN to_bank_account_id_list.FIRST..to_bank_account_id_list.LAST
84: LOOP

Line 89: fnd_file.put_line(fnd_file.log, g_mesg);

85: IF (from_bank_account_id_list(I) = to_bank_account_id_list(J)) THEN
86: l_bank_account_exits := TRUE;
87: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
88: g_mesg := ' Bank Account exist for Supplier2' ;
89: fnd_file.put_line(fnd_file.log, g_mesg);
90: END IF;
91: END IF;
92: END LOOP;
93: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 95: fnd_file.put_line(fnd_file.log, g_mesg);

91: END IF;
92: END LOOP;
93: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
94: g_mesg := ' End of To Bank account id list Loop' ;
95: fnd_file.put_line(fnd_file.log, g_mesg);
96: END IF;
97: OPEN max_order_of_pref(p_to_ext_payee_id);
98: FETCH max_order_of_pref INTO l_max_order_of_pref;
99: CLOSE max_order_of_pref;

Line 106: fnd_file.put_line(fnd_file.log, g_mesg);

102: -- If Bank account is not associated to To-Supplier
103: IF NOT l_bank_account_exits THEN
104: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
105: g_mesg := ' Bank Account Does not exist for Supplier2 ' ;
106: fnd_file.put_line(fnd_file.log, g_mesg);
107: END IF;
108:
109: OPEN get_from_instr_use_dtls(from_instr_pmt_use_list(i));
110: FETCH get_from_instr_use_dtls INTO rec_get_from_instr_use_dtls;

Line 114: fnd_file.put_line(fnd_file.log, g_mesg);

110: FETCH get_from_instr_use_dtls INTO rec_get_from_instr_use_dtls;
111: CLOSE get_from_instr_use_dtls;
112: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
113: g_mesg := ' Inserting record into Instruments l_max_order_of_pref => '|| l_max_order_of_pref ;
114: fnd_file.put_line(fnd_file.log, g_mesg);
115: END IF;
116: INSERT INTO iby_pmt_instr_uses_all(
117: INSTRUMENT_PAYMENT_USE_ID,
118: PAYMENT_FLOW ,

Line 200: fnd_file.put_line(fnd_file.log, g_mesg);

196: CLOSE cur_is_ownership_exists;
197:
198: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
199: g_mesg := ' Processing Bank Account Ownership';
200: fnd_file.put_line(fnd_file.log, g_mesg);
201: END IF;
202:
203: IF p_last_site_flag = 'Y' THEN
204: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 206: fnd_file.put_line(fnd_file.log, g_mesg);

202:
203: IF p_last_site_flag = 'Y' THEN
204: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
205: g_mesg := ' p_last_site_flag := Y ' ;
206: fnd_file.put_line(fnd_file.log, g_mesg);
207: END IF;
208:
209: OPEN cur_get_primary_ownership(p_from_party_id, from_bank_account_id_list(I));
210: FETCH cur_get_primary_ownership INTO l_is_primary;

Line 215: fnd_file.put_line(fnd_file.log, g_mesg);

211: CLOSE cur_get_primary_ownership;
212:
213: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
214: g_mesg := ' Is From Supplier Primary? '|| l_is_primary;
215: fnd_file.put_line(fnd_file.log, g_mesg);
216: g_mesg := ' Is To Supplier Ownership Exists? '|| l_is_ownership_exist;
217: fnd_file.put_line(fnd_file.log, g_mesg);
218: END IF;
219:

Line 217: fnd_file.put_line(fnd_file.log, g_mesg);

213: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
214: g_mesg := ' Is From Supplier Primary? '|| l_is_primary;
215: fnd_file.put_line(fnd_file.log, g_mesg);
216: g_mesg := ' Is To Supplier Ownership Exists? '|| l_is_ownership_exist;
217: fnd_file.put_line(fnd_file.log, g_mesg);
218: END IF;
219:
220:
221: IF l_is_primary = 'Y' AND l_is_ownership_exist IS NOT NULL THEN

Line 224: fnd_file.put_line(fnd_file.log, g_mesg);

220:
221: IF l_is_primary = 'Y' AND l_is_ownership_exist IS NOT NULL THEN
222: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
223: g_mesg := ' From Supplier is Primary and To Supplier Ownership Exists ' ;
224: fnd_file.put_line(fnd_file.log, g_mesg);
225: END IF;
226:
227: UPDATE iby_account_owners
228: SET primary_flag = 'N'

Line 240: fnd_file.put_line(fnd_file.log, g_mesg);

236:
237: ELSIF l_is_primary = 'Y' AND l_is_ownership_exist IS NULL THEN
238: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
239: g_mesg := ' From Supplier is Primary and To Supplier Ownership Does not Exist ' ;
240: fnd_file.put_line(fnd_file.log, g_mesg);
241: END IF;
242:
243: UPDATE iby_account_owners
244: SET primary_flag = 'N'

Line 276: fnd_file.put_line(fnd_file.log, g_mesg);

272: );
273: ELSIF l_is_primary = 'N' AND l_is_ownership_exist IS NULL THEN
274: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
275: g_mesg := ' From Supplier is non Primary and To Supplier Ownership Does not Exist ' ;
276: fnd_file.put_line(fnd_file.log, g_mesg);
277: END IF;
278:
279: INSERT INTO iby_account_owners(
280: ACCOUNT_OWNER_ID ,

Line 308: fnd_file.put_line(fnd_file.log, g_mesg);

304: END IF;
305: ELSIF l_is_ownership_exist IS NULL THEN
306: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
307: g_mesg := ' To Supplier Ownership Does not Exist ' ;
308: fnd_file.put_line(fnd_file.log, g_mesg);
309: END IF;
310:
311: INSERT INTO iby_account_owners(
312: ACCOUNT_OWNER_ID ,

Line 341: fnd_file.put_line(fnd_file.log, g_mesg);

337: END IF;
338: IF p_level = 'SITE' THEN
339: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
340: g_mesg := ' Inactivating instruments at site level';
341: fnd_file.put_line(fnd_file.log, g_mesg);
342: END IF;
343:
344: UPDATE iby_pmt_instr_uses_all
345: SET end_date = SYSDATE

Line 351: fnd_file.put_line(fnd_file.log, g_mesg);

347: AND NVL(end_date,SYSDATE) >= SYSDATE/*Bug 14587066 */;
348:
349: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
350: g_mesg := ' End Processing for Bank Account Id => '||from_bank_account_id_list(I);
351: fnd_file.put_line(fnd_file.log, g_mesg);
352: END IF;
353: END IF;
354: END LOOP;
355: END IF;

Line 360: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );

356: EXCEPTION
357: WHEN OTHERS THEN
358:
359: g_mesg :='Unexpected error: ' || SQLERRM;
360: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
361:
362: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
363: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
364: FND_MSG_PUB.ADD;

Line 455: fnd_file.put_line(fnd_file.log, 'Exception: insert_payee_row: '||SQLERRM);

451: ext_payee_rec.remit_advice_fax);
452:
453: EXCEPTION
454: WHEN OTHERS THEN
455: fnd_file.put_line(fnd_file.log, 'Exception: insert_payee_row: '||SQLERRM);
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
457: X_MSG_DATA := 'Exception: insert_payee_row: '||SQLERRM;
458:
459: END INSERT_PAYEE_ROW;

Line 498: fnd_file.put_line(fnd_file.log, g_mesg);

494: IF P_LEVEL = 'ADDRESS_OU' THEN
495: -- Address_OU Record
496: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
497: g_mesg := 'Creating External Payee Record at Address-OU level';
498: fnd_file.put_line(fnd_file.log, g_mesg);
499: END IF;
500: l_Ext_payee_rec.supplier_site_id := NULL;
501: insert_payee_row(l_Ext_payee_rec, P_EXT_PAYEE_ID, x_return_status, X_MSG_COUNT, X_MSG_DATA);
502: ELSIF P_LEVEL = 'ADDRESS' THEN

Line 506: fnd_file.put_line(fnd_file.log, g_mesg);

502: ELSIF P_LEVEL = 'ADDRESS' THEN
503: -- Address Record
504: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
505: g_mesg := 'Creating External Payee Record at Address level';
506: fnd_file.put_line(fnd_file.log, g_mesg);
507: END IF;
508: l_Ext_payee_rec.supplier_site_id := NULL;
509: l_Ext_payee_rec.Org_Id := NULL;
510: l_Ext_payee_rec.Org_Type := NULL;

Line 516: fnd_file.put_line(fnd_file.log, g_mesg);

512: ELSIF P_LEVEL = 'SUPPLIER' THEN
513: -- Supplier Record
514: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
515: g_mesg := 'Creating External Payee Record at Supplier level';
516: fnd_file.put_line(fnd_file.log, g_mesg);
517: END IF;
518: l_Ext_payee_rec.supplier_site_id := NULL;
519: l_Ext_payee_rec.Org_Id := NULL;
520: l_Ext_payee_rec.Org_Type := NULL;

Line 605: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );

601:
602: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
603: -- Log All Parameters
604: g_mesg := 'Entering IBY_SUPP_BANK_MERGE.BANK_ACCOUNTS_MERGE ';
605: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
606:
607: g_mesg := 'P_FROM_VENDOR_ID : '|| p_from_vendor_id;
608: fnd_file.put_line(fnd_file.log, g_mesg );
609:

Line 608: fnd_file.put_line(fnd_file.log, g_mesg );

604: g_mesg := 'Entering IBY_SUPP_BANK_MERGE.BANK_ACCOUNTS_MERGE ';
605: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
606:
607: g_mesg := 'P_FROM_VENDOR_ID : '|| p_from_vendor_id;
608: fnd_file.put_line(fnd_file.log, g_mesg );
609:
610: g_mesg := 'P_FROM_VENDOR_ID => '||P_from_vendor_id;
611: fnd_file.put_line(fnd_file.log, g_mesg);
612:

Line 611: fnd_file.put_line(fnd_file.log, g_mesg);

607: g_mesg := 'P_FROM_VENDOR_ID : '|| p_from_vendor_id;
608: fnd_file.put_line(fnd_file.log, g_mesg );
609:
610: g_mesg := 'P_FROM_VENDOR_ID => '||P_from_vendor_id;
611: fnd_file.put_line(fnd_file.log, g_mesg);
612:
613: g_mesg := 'P_TO_VENDOR_ID => '||P_to_vendor_id ;
614: fnd_file.put_line(fnd_file.log, g_mesg);
615:

Line 614: fnd_file.put_line(fnd_file.log, g_mesg);

610: g_mesg := 'P_FROM_VENDOR_ID => '||P_from_vendor_id;
611: fnd_file.put_line(fnd_file.log, g_mesg);
612:
613: g_mesg := 'P_TO_VENDOR_ID => '||P_to_vendor_id ;
614: fnd_file.put_line(fnd_file.log, g_mesg);
615:
616: g_mesg := 'P_FROM_PARTY_ID => '|| P_from_party_id;
617: fnd_file.put_line(fnd_file.log, g_mesg);
618:

Line 617: fnd_file.put_line(fnd_file.log, g_mesg);

613: g_mesg := 'P_TO_VENDOR_ID => '||P_to_vendor_id ;
614: fnd_file.put_line(fnd_file.log, g_mesg);
615:
616: g_mesg := 'P_FROM_PARTY_ID => '|| P_from_party_id;
617: fnd_file.put_line(fnd_file.log, g_mesg);
618:
619: g_mesg := 'P_TO_PARTY_ID => '|| P_to_party_id ;
620: fnd_file.put_line(fnd_file.log, g_mesg);
621:

Line 620: fnd_file.put_line(fnd_file.log, g_mesg);

616: g_mesg := 'P_FROM_PARTY_ID => '|| P_from_party_id;
617: fnd_file.put_line(fnd_file.log, g_mesg);
618:
619: g_mesg := 'P_TO_PARTY_ID => '|| P_to_party_id ;
620: fnd_file.put_line(fnd_file.log, g_mesg);
621:
622: g_mesg := 'P_FROM_VENDOR_SITE_ID => '|| P_from_vendor_site_id ;
623: fnd_file.put_line(fnd_file.log, g_mesg);
624:

Line 623: fnd_file.put_line(fnd_file.log, g_mesg);

619: g_mesg := 'P_TO_PARTY_ID => '|| P_to_party_id ;
620: fnd_file.put_line(fnd_file.log, g_mesg);
621:
622: g_mesg := 'P_FROM_VENDOR_SITE_ID => '|| P_from_vendor_site_id ;
623: fnd_file.put_line(fnd_file.log, g_mesg);
624:
625: g_mesg := 'P_TO_VENDOR_SITE_ID => '|| P_to_vendor_site_id ;
626: fnd_file.put_line(fnd_file.log, g_mesg);
627:

Line 626: fnd_file.put_line(fnd_file.log, g_mesg);

622: g_mesg := 'P_FROM_VENDOR_SITE_ID => '|| P_from_vendor_site_id ;
623: fnd_file.put_line(fnd_file.log, g_mesg);
624:
625: g_mesg := 'P_TO_VENDOR_SITE_ID => '|| P_to_vendor_site_id ;
626: fnd_file.put_line(fnd_file.log, g_mesg);
627:
628: g_mesg := 'P_FROM_PARTY_SITE_ID => '|| P_from_party_site_id ;
629: fnd_file.put_line(fnd_file.log, g_mesg);
630:

Line 629: fnd_file.put_line(fnd_file.log, g_mesg);

625: g_mesg := 'P_TO_VENDOR_SITE_ID => '|| P_to_vendor_site_id ;
626: fnd_file.put_line(fnd_file.log, g_mesg);
627:
628: g_mesg := 'P_FROM_PARTY_SITE_ID => '|| P_from_party_site_id ;
629: fnd_file.put_line(fnd_file.log, g_mesg);
630:
631: g_mesg := 'P_TO_PARTYSITE_ID => '|| P_to_partysite_id ;
632: fnd_file.put_line(fnd_file.log, g_mesg);
633:

Line 632: fnd_file.put_line(fnd_file.log, g_mesg);

628: g_mesg := 'P_FROM_PARTY_SITE_ID => '|| P_from_party_site_id ;
629: fnd_file.put_line(fnd_file.log, g_mesg);
630:
631: g_mesg := 'P_TO_PARTYSITE_ID => '|| P_to_partysite_id ;
632: fnd_file.put_line(fnd_file.log, g_mesg);
633:
634: g_mesg := 'P_FROM_ORG_ID => '|| P_from_org_id ;
635: fnd_file.put_line(fnd_file.log, g_mesg);
636:

Line 635: fnd_file.put_line(fnd_file.log, g_mesg);

631: g_mesg := 'P_TO_PARTYSITE_ID => '|| P_to_partysite_id ;
632: fnd_file.put_line(fnd_file.log, g_mesg);
633:
634: g_mesg := 'P_FROM_ORG_ID => '|| P_from_org_id ;
635: fnd_file.put_line(fnd_file.log, g_mesg);
636:
637: g_mesg := 'P_TO_ORG_ID => '|| P_to_org_id ;
638: fnd_file.put_line(fnd_file.log, g_mesg);
639:

Line 638: fnd_file.put_line(fnd_file.log, g_mesg);

634: g_mesg := 'P_FROM_ORG_ID => '|| P_from_org_id ;
635: fnd_file.put_line(fnd_file.log, g_mesg);
636:
637: g_mesg := 'P_TO_ORG_ID => '|| P_to_org_id ;
638: fnd_file.put_line(fnd_file.log, g_mesg);
639:
640: g_mesg := 'P_FROM_ORG_TYPE => '||P_from_org_type ;
641: fnd_file.put_line(fnd_file.log, g_mesg);
642:

Line 641: fnd_file.put_line(fnd_file.log, g_mesg);

637: g_mesg := 'P_TO_ORG_ID => '|| P_to_org_id ;
638: fnd_file.put_line(fnd_file.log, g_mesg);
639:
640: g_mesg := 'P_FROM_ORG_TYPE => '||P_from_org_type ;
641: fnd_file.put_line(fnd_file.log, g_mesg);
642:
643: g_mesg := 'P_TO_ORG_TYPE => '||P_to_org_type ;
644: fnd_file.put_line(fnd_file.log, g_mesg);
645:

Line 644: fnd_file.put_line(fnd_file.log, g_mesg);

640: g_mesg := 'P_FROM_ORG_TYPE => '||P_from_org_type ;
641: fnd_file.put_line(fnd_file.log, g_mesg);
642:
643: g_mesg := 'P_TO_ORG_TYPE => '||P_to_org_type ;
644: fnd_file.put_line(fnd_file.log, g_mesg);
645:
646: g_mesg := 'P_KEEP_SITE_FLAG => '||p_keep_site_flag ;
647: fnd_file.put_line(fnd_file.log, g_mesg);
648:

Line 647: fnd_file.put_line(fnd_file.log, g_mesg);

643: g_mesg := 'P_TO_ORG_TYPE => '||P_to_org_type ;
644: fnd_file.put_line(fnd_file.log, g_mesg);
645:
646: g_mesg := 'P_KEEP_SITE_FLAG => '||p_keep_site_flag ;
647: fnd_file.put_line(fnd_file.log, g_mesg);
648:
649: g_mesg := 'P_LAST_SITE_FLAG => '||p_keep_site_flag ;
650: fnd_file.put_line(fnd_file.log, g_mesg);
651:

Line 650: fnd_file.put_line(fnd_file.log, g_mesg);

646: g_mesg := 'P_KEEP_SITE_FLAG => '||p_keep_site_flag ;
647: fnd_file.put_line(fnd_file.log, g_mesg);
648:
649: g_mesg := 'P_LAST_SITE_FLAG => '||p_keep_site_flag ;
650: fnd_file.put_line(fnd_file.log, g_mesg);
651:
652: --Merge Bank Accounts at Supplier Site level
653: g_mesg := 'Start Merging Bank Accounts at Suppier Site Level';
654: fnd_file.put_line(fnd_file.log, g_mesg);

Line 654: fnd_file.put_line(fnd_file.log, g_mesg);

650: fnd_file.put_line(fnd_file.log, g_mesg);
651:
652: --Merge Bank Accounts at Supplier Site level
653: g_mesg := 'Start Merging Bank Accounts at Suppier Site Level';
654: fnd_file.put_line(fnd_file.log, g_mesg);
655: END IF;
656: -- Incase of COPY, new party site is created. Get the new party site id associated to the To Supplier Site.
657: IF p_keep_site_flag = 'Y' THEN
658: OPEN cur_get_to_party_site_id(P_to_vendor_site_id);

Line 667: fnd_file.put_line(fnd_file.log, g_mesg);

663: END IF;
664:
665: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
666: g_mesg := 'l_to_party_site_id: '||l_to_party_site_id;
667: fnd_file.put_line(fnd_file.log, g_mesg);
668: END IF;
669:
670: -- Get the From Supplier Bank Accounts at Supplier Site Level
671: OPEN get_supplier_site_bank_dtls(P_from_party_id, P_from_vendor_site_id, P_from_party_site_id, P_from_org_id, P_from_org_type);

Line 687: fnd_file.put_line(fnd_file.log, g_mesg);

683: CLOSE cur_get_ext_payee_id;
684:
685: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
686: g_mesg := 'Payee ID => '||l_to_ext_payee_id ;
687: fnd_file.put_line(fnd_file.log, g_mesg);
688: END IF;
689:
690: l_site_payee_id := l_to_ext_payee_id;
691:

Line 698: fnd_file.put_line(fnd_file.log, g_mesg);

694: P_from_party_id, P_to_party_id,'SITE',p_last_site_flag, X_return_status, X_msg_count, X_msg_data);
695:
696: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
697: g_mesg := 'End Merging Bank Accounts at Suppier Site Level';
698: fnd_file.put_line(fnd_file.log, g_mesg);
699: END IF;
700:
701: --Merge Bank Accounts at Address OU level
702: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 704: fnd_file.put_line(fnd_file.log, g_mesg);

700:
701: --Merge Bank Accounts at Address OU level
702: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
703: g_mesg := 'Start Merging Bank Accounts at Suppier Address - OU Level';
704: fnd_file.put_line(fnd_file.log, g_mesg);
705: END IF;
706: -- Get the From Supplier Bank Accounts at Address-OU Level
707: OPEN get_supplier_site_bank_dtls(P_from_party_id, null, P_from_party_site_id, P_from_org_id, P_from_org_type);
708: FETCH get_supplier_site_bank_dtls BULK COLLECT INTO from_instr_pmt_use_list, from_ext_payee_id_list, from_bank_account_id_list;

Line 726: fnd_file.put_line(fnd_file.log, 'Exception: '||X_MSG_DATA);

722: -- If external Payee record is not available and there are bank accounts associated to From Supplier Address-OU Then create External payee at address-OU level.
723: IF l_to_ext_payee_id IS NULL AND from_instr_pmt_use_list.Count > 0 THEN
724: Create_external_payee(l_site_payee_id, 'ADDRESS_OU', l_to_ext_payee_id, X_RETURN_STATUS, X_MSG_COUNT, X_MSG_DATA);
725: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
726: fnd_file.put_line(fnd_file.log, 'Exception: '||X_MSG_DATA);
727: END IF;
728: END IF;
729:
730: -- Invoke Merge Banks

Line 736: fnd_file.put_line(fnd_file.log, g_mesg);

732: P_from_party_id, P_to_party_id,'ADDRESS_OU',p_last_site_flag, X_return_status, X_msg_count, X_msg_data);
733:
734: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
735: g_mesg := 'End Merging Bank Accounts at Suppier Address - OU Level';
736: fnd_file.put_line(fnd_file.log, g_mesg);
737: END IF;
738: --Merge Bank Accounts at Address level
739: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
740: g_mesg := 'Start Merging Bank Accounts at Suppier Address Level';

Line 741: fnd_file.put_line(fnd_file.log, g_mesg);

737: END IF;
738: --Merge Bank Accounts at Address level
739: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
740: g_mesg := 'Start Merging Bank Accounts at Suppier Address Level';
741: fnd_file.put_line(fnd_file.log, g_mesg);
742: END IF;
743: -- Get the From Supplier Bank Accounts at Address Level
744: OPEN get_supplier_site_bank_dtls(P_from_party_id, null, P_from_party_site_id, null, null);
745: FETCH get_supplier_site_bank_dtls BULK COLLECT INTO from_instr_pmt_use_list, from_ext_payee_id_list, from_bank_account_id_list;

Line 763: fnd_file.put_line(fnd_file.log, 'Exception: '||X_MSG_DATA);

759: -- If external Payee record is not available and there are bank accounts associated to 'From Supplier' Address Then create External payee at address level.
760: IF l_to_ext_payee_id IS NULL AND from_instr_pmt_use_list.Count > 0 THEN
761: Create_external_payee(l_site_payee_id, 'ADDRESS', l_to_ext_payee_id, X_RETURN_STATUS, X_MSG_COUNT, X_MSG_DATA);
762: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
763: fnd_file.put_line(fnd_file.log, 'Exception: '||X_MSG_DATA);
764: END IF;
765: END IF;
766:
767: -- Invoke Merge Banks

Line 773: fnd_file.put_line(fnd_file.log, g_mesg);

769: P_from_party_id, P_to_party_id, 'ADDRESS', p_last_site_flag, X_return_status, X_msg_count, X_msg_data);
770:
771: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
772: g_mesg := 'End Merging Bank Accounts at Suppier Address Level';
773: fnd_file.put_line(fnd_file.log, g_mesg);
774: END IF;
775: --Merge Bank Accounts at Address level
776: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
777: g_mesg := 'Start Merging Bank Accounts at Suppier Level';

Line 778: fnd_file.put_line(fnd_file.log, g_mesg);

774: END IF;
775: --Merge Bank Accounts at Address level
776: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
777: g_mesg := 'Start Merging Bank Accounts at Suppier Level';
778: fnd_file.put_line(fnd_file.log, g_mesg);
779: END IF;
780:
781: -- Get the From Supplier Bank Accounts at Supplier Level
782: OPEN get_supplier_site_bank_dtls(P_from_party_id, null, null, null, null);

Line 801: fnd_file.put_line(fnd_file.log, 'Exception: '||X_MSG_DATA);

797: -- If external Payee record is not available and there are bank accounts associated to 'From Supplier' Then create External payee at Supplier level.
798: IF l_to_ext_payee_id IS NULL AND from_instr_pmt_use_list.Count > 0 THEN
799: Create_external_payee(l_site_payee_id, 'SUPPLIER', l_to_ext_payee_id, X_RETURN_STATUS, X_MSG_COUNT, X_MSG_DATA);
800: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
801: fnd_file.put_line(fnd_file.log, 'Exception: '||X_MSG_DATA);
802: END IF;
803: END IF;
804:
805: -- Invoke Merge Banks

Line 811: fnd_file.put_line(fnd_file.log, g_mesg);

807: l_to_ext_payee_id, P_from_party_id, P_to_party_id, 'SUPPLIER', p_last_site_flag, X_return_status, X_msg_count, X_msg_data);
808:
809: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
810: g_mesg := 'End Merging Bank Accounts at Suppier Level';
811: fnd_file.put_line(fnd_file.log, g_mesg);
812: END IF;
813: -- If Last Site for the supplier then inactivate bank account associations for from supplier at all levels.
814: IF p_last_site_flag = 'Y' THEN
815: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 817: fnd_file.put_line(fnd_file.log, g_mesg);

813: -- If Last Site for the supplier then inactivate bank account associations for from supplier at all levels.
814: IF p_last_site_flag = 'Y' THEN
815: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
816: g_mesg := 'Inactivating all Bank account associations of From Supplier';
817: fnd_file.put_line(fnd_file.log, g_mesg);
818: END IF;
819:
820: -- Added the filter condition in inner query for Bug 12910775, do not inactivate the sites of the same supplier
821:

Line 840: fnd_file.put_line(fnd_file.log, g_mesg);

836: END IF;
837:
838: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
839: g_mesg :='Exit';
840: fnd_file.put_line(fnd_file.log, g_mesg);
841: END IF;
842: EXCEPTION
843: WHEN OTHERS THEN
844:

Line 846: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );

842: EXCEPTION
843: WHEN OTHERS THEN
844:
845: g_mesg :='Unexpected error:=' || SQLERRM;
846: fnd_file.put_line(fnd_file.log, g_mesg || l_dbg_mod );
847:
848: FND_MESSAGE.SET_NAME('IBY', 'IBY_9999');
849: FND_MESSAGE.SET_TOKEN('MESSAGE_TEXT' ,SQLERRM);
850: FND_MSG_PUB.ADD;