17: BEGIN
18:
19: g_action := 'vendor site details lookup';
20: IF l_debug_level <= 1 then
21: itg_debug_pub.add('Entering get_vendorsite_rec');
22: itg_debug_pub.add('p_vendorsite_id ' || p_vendorsite_id);
23: itg_debug_pub.add('p_vendor_id ' || p_vendor_id);
24: END IF;
25:
18:
19: g_action := 'vendor site details lookup';
20: IF l_debug_level <= 1 then
21: itg_debug_pub.add('Entering get_vendorsite_rec');
22: itg_debug_pub.add('p_vendorsite_id ' || p_vendorsite_id);
23: itg_debug_pub.add('p_vendor_id ' || p_vendor_id);
24: END IF;
25:
26: SELECT
19: g_action := 'vendor site details lookup';
20: IF l_debug_level <= 1 then
21: itg_debug_pub.add('Entering get_vendorsite_rec');
22: itg_debug_pub.add('p_vendorsite_id ' || p_vendorsite_id);
23: itg_debug_pub.add('p_vendor_id ' || p_vendor_id);
24: END IF;
25:
26: SELECT
27: VENDOR_SITE_ID, VENDOR_ID, VENDOR_SITE_CODE,
99: WHERE vendor_id = p_vendor_id
100: and vendor_site_id = p_vendorsite_id;
101:
102: IF l_debug_level <= 1 then
103: itg_debug_pub.add('Exiting get_vendorsite_rec normal');
104: END IF;
105: EXCEPTION
106: WHEN NO_DATA_FOUND THEN
107: itg_msg.no_vendor_site(p_vendorsite_id);
107: itg_msg.no_vendor_site(p_vendorsite_id);
108: RAISE FND_API.G_EXC_ERROR;
109: WHEN OTHERS THEN
110: IF l_debug_level <= 1 THEN
111: itg_debug_pub.add('Error in get_vendorsite_rec ' || SQLCODE || ' - ' || SQLERRM,1);
112: END IF;
113: RAISE;
114: END;
115:
119: p_vendor_id IN NUMBER) IS
120: BEGIN
121: g_action := 'vendor details lookup';
122: IF l_debug_level <= 1 then
123: itg_debug_pub.add('Entering get_vendor_rec');
124: itg_debug_pub.add('p_vendor_id ' || p_vendor_id);
125: END IF;
126:
127: SELECT
120: BEGIN
121: g_action := 'vendor details lookup';
122: IF l_debug_level <= 1 then
123: itg_debug_pub.add('Entering get_vendor_rec');
124: itg_debug_pub.add('p_vendor_id ' || p_vendor_id);
125: END IF;
126:
127: SELECT
128: VENDOR_ID, VENDOR_NAME, VENDOR_NAME_ALT, SUMMARY_FLAG, ENABLED_FLAG, EMPLOYEE_ID,
179: FROM ap_vendors_v
180: WHERE vendor_id = p_vendor_id ;
181:
182: IF l_debug_level <= 1 then
183: itg_debug_pub.add('Exiting get_vendor_rec normal');
184: END IF;
185: EXCEPTION
186: WHEN NO_DATA_FOUND THEN
187: itg_msg.vendor_not_found(p_vendor_id);
187: itg_msg.vendor_not_found(p_vendor_id);
188: RAISE FND_API.G_EXC_ERROR;
189: WHEN OTHERS THEN
190: IF l_debug_level <= 1 THEN
191: itg_debug_pub.add('Error in get_vendor_rec ' || SQLCODE || ' - ' || SQLERRM,1);
192: END IF;
193: RAISE;
194: END;
195:
243: BEGIN
244: g_action := 'Sync-vendor parameter validation';
245:
246: IF (l_Debug_Level <= 1) THEN
247: itg_debug_pub.Add(g_action,1);
248: END IF;
249:
250: IF p_org IS NULL THEN -- MOAC
251: itg_msg.invalid_org(p_org);
265: END IF;
266:
267: IF p_paymethod IS NOT NULL THEN
268: IF (l_Debug_Level <= 1) THEN
269: itg_debug_pub.Add('SV- Checking paymethod', 1);
270: END IF;
271:
272:
273: BEGIN
284: END IF;
285:
286: IF p_termid IS NOT NULL THEN
287: IF (l_Debug_Level <= 1) THEN
288: itg_debug_pub.Add('SV- Checking termid', 1);
289: END IF;
290:
291: BEGIN
292: SELECT term_id
356: RAISE FND_API.G_EXC_ERROR;
357: END IF;
358:
359: IF (l_Debug_Level <= 1) THEN
360: itg_debug_pub.Add('Validation complete', 1);
361: END IF;
362: EXCEPTION
363: WHEN OTHERS THEN
364: IF l_debug_level <= 1 THEN
361: END IF;
362: EXCEPTION
363: WHEN OTHERS THEN
364: IF l_debug_level <= 1 THEN
365: itg_debug_pub.add('Error in validate_vendor_params ' || SQLCODE || ' - ' || SQLERRM,1);
366: END IF;
367: RAISE;
368: END;
369:
379: BEGIN
380: g_action := 'defaulting vendor parameters';
381:
382: IF (l_Debug_Level <= 1) THEN
383: itg_debug_pub.Add('SV - default vendor parameters', 1);
384: END IF;
385:
386: AP_Apxvdmvd_PKG.Initialize(
387: x_user_defined_vendor_num_code => l_dummy_char,
458: x_calling_sequence => 'APXVDMVD'
459: );
460:
461: IF (l_Debug_Level <= 1) THEN
462: itg_debug_pub.Add('Exiting default vendor parameters', 1);
463: END IF;
464: EXCEPTION
465: WHEN OTHERS THEN
466: IF l_debug_level <= 1 THEN
463: END IF;
464: EXCEPTION
465: WHEN OTHERS THEN
466: IF l_debug_level <= 1 THEN
467: itg_debug_pub.add('Error in default_vendor_params ' || SQLCODE || ' - ' || SQLERRM,1);
468: END IF;
469: itg_msg.apicallret('AP_Apxvdmvd_PKG.Initialize','U',substr((SQLCODE || SQLERRM),1,200));
470: RAISE FND_API.G_EXC_ERROR;
471: END;
514: SAVEPOINT Sync_Vendor_PVT;
515:
516: -- now in wrapperFND_MSG_PUB.Initialize;
517: IF (l_Debug_Level <= 1) THEN
518: itg_debug_pub.Add('--- Parameters Obtained ---' ,1);
519: itg_debug_pub.Add('SV - Top of procedure.' ,1);
520: itg_debug_pub.Add('SV - p_syncind ' ||p_syncind,1);
521: itg_debug_pub.Add('SV - p_name ' ||p_name,1);
522: itg_debug_pub.Add('SV - p_onetime ' ||p_onetime,1);
515:
516: -- now in wrapperFND_MSG_PUB.Initialize;
517: IF (l_Debug_Level <= 1) THEN
518: itg_debug_pub.Add('--- Parameters Obtained ---' ,1);
519: itg_debug_pub.Add('SV - Top of procedure.' ,1);
520: itg_debug_pub.Add('SV - p_syncind ' ||p_syncind,1);
521: itg_debug_pub.Add('SV - p_name ' ||p_name,1);
522: itg_debug_pub.Add('SV - p_onetime ' ||p_onetime,1);
523: itg_debug_pub.Add('SV - p_partnerid ' ||p_partnerid,1);
516: -- now in wrapperFND_MSG_PUB.Initialize;
517: IF (l_Debug_Level <= 1) THEN
518: itg_debug_pub.Add('--- Parameters Obtained ---' ,1);
519: itg_debug_pub.Add('SV - Top of procedure.' ,1);
520: itg_debug_pub.Add('SV - p_syncind ' ||p_syncind,1);
521: itg_debug_pub.Add('SV - p_name ' ||p_name,1);
522: itg_debug_pub.Add('SV - p_onetime ' ||p_onetime,1);
523: itg_debug_pub.Add('SV - p_partnerid ' ||p_partnerid,1);
524: itg_debug_pub.Add('SV - p_active ' ||p_active,1);
517: IF (l_Debug_Level <= 1) THEN
518: itg_debug_pub.Add('--- Parameters Obtained ---' ,1);
519: itg_debug_pub.Add('SV - Top of procedure.' ,1);
520: itg_debug_pub.Add('SV - p_syncind ' ||p_syncind,1);
521: itg_debug_pub.Add('SV - p_name ' ||p_name,1);
522: itg_debug_pub.Add('SV - p_onetime ' ||p_onetime,1);
523: itg_debug_pub.Add('SV - p_partnerid ' ||p_partnerid,1);
524: itg_debug_pub.Add('SV - p_active ' ||p_active,1);
525: itg_debug_pub.Add('SV - p_currency ' ||p_currency,1);
518: itg_debug_pub.Add('--- Parameters Obtained ---' ,1);
519: itg_debug_pub.Add('SV - Top of procedure.' ,1);
520: itg_debug_pub.Add('SV - p_syncind ' ||p_syncind,1);
521: itg_debug_pub.Add('SV - p_name ' ||p_name,1);
522: itg_debug_pub.Add('SV - p_onetime ' ||p_onetime,1);
523: itg_debug_pub.Add('SV - p_partnerid ' ||p_partnerid,1);
524: itg_debug_pub.Add('SV - p_active ' ||p_active,1);
525: itg_debug_pub.Add('SV - p_currency ' ||p_currency,1);
526: itg_debug_pub.Add('SV - p_dunsnumber ' ||p_dunsnumber,1);
519: itg_debug_pub.Add('SV - Top of procedure.' ,1);
520: itg_debug_pub.Add('SV - p_syncind ' ||p_syncind,1);
521: itg_debug_pub.Add('SV - p_name ' ||p_name,1);
522: itg_debug_pub.Add('SV - p_onetime ' ||p_onetime,1);
523: itg_debug_pub.Add('SV - p_partnerid ' ||p_partnerid,1);
524: itg_debug_pub.Add('SV - p_active ' ||p_active,1);
525: itg_debug_pub.Add('SV - p_currency ' ||p_currency,1);
526: itg_debug_pub.Add('SV - p_dunsnumber ' ||p_dunsnumber,1);
527: itg_debug_pub.Add('SV - p_parentid ' ||p_parentid,1);
520: itg_debug_pub.Add('SV - p_syncind ' ||p_syncind,1);
521: itg_debug_pub.Add('SV - p_name ' ||p_name,1);
522: itg_debug_pub.Add('SV - p_onetime ' ||p_onetime,1);
523: itg_debug_pub.Add('SV - p_partnerid ' ||p_partnerid,1);
524: itg_debug_pub.Add('SV - p_active ' ||p_active,1);
525: itg_debug_pub.Add('SV - p_currency ' ||p_currency,1);
526: itg_debug_pub.Add('SV - p_dunsnumber ' ||p_dunsnumber,1);
527: itg_debug_pub.Add('SV - p_parentid ' ||p_parentid,1);
528: itg_debug_pub.Add('SV - p_paymethod' ||p_paymethod,1);
521: itg_debug_pub.Add('SV - p_name ' ||p_name,1);
522: itg_debug_pub.Add('SV - p_onetime ' ||p_onetime,1);
523: itg_debug_pub.Add('SV - p_partnerid ' ||p_partnerid,1);
524: itg_debug_pub.Add('SV - p_active ' ||p_active,1);
525: itg_debug_pub.Add('SV - p_currency ' ||p_currency,1);
526: itg_debug_pub.Add('SV - p_dunsnumber ' ||p_dunsnumber,1);
527: itg_debug_pub.Add('SV - p_parentid ' ||p_parentid,1);
528: itg_debug_pub.Add('SV - p_paymethod' ||p_paymethod,1);
529: itg_debug_pub.Add('SV - p_taxid ' ||p_taxid,1);
522: itg_debug_pub.Add('SV - p_onetime ' ||p_onetime,1);
523: itg_debug_pub.Add('SV - p_partnerid ' ||p_partnerid,1);
524: itg_debug_pub.Add('SV - p_active ' ||p_active,1);
525: itg_debug_pub.Add('SV - p_currency ' ||p_currency,1);
526: itg_debug_pub.Add('SV - p_dunsnumber ' ||p_dunsnumber,1);
527: itg_debug_pub.Add('SV - p_parentid ' ||p_parentid,1);
528: itg_debug_pub.Add('SV - p_paymethod' ||p_paymethod,1);
529: itg_debug_pub.Add('SV - p_taxid ' ||p_taxid,1);
530: itg_debug_pub.Add('SV - p_termid ' ||p_termid,1);
523: itg_debug_pub.Add('SV - p_partnerid ' ||p_partnerid,1);
524: itg_debug_pub.Add('SV - p_active ' ||p_active,1);
525: itg_debug_pub.Add('SV - p_currency ' ||p_currency,1);
526: itg_debug_pub.Add('SV - p_dunsnumber ' ||p_dunsnumber,1);
527: itg_debug_pub.Add('SV - p_parentid ' ||p_parentid,1);
528: itg_debug_pub.Add('SV - p_paymethod' ||p_paymethod,1);
529: itg_debug_pub.Add('SV - p_taxid ' ||p_taxid,1);
530: itg_debug_pub.Add('SV - p_termid ' ||p_termid,1);
531: itg_debug_pub.Add('SV - p_us_flag ' ||p_us_flag,1);
524: itg_debug_pub.Add('SV - p_active ' ||p_active,1);
525: itg_debug_pub.Add('SV - p_currency ' ||p_currency,1);
526: itg_debug_pub.Add('SV - p_dunsnumber ' ||p_dunsnumber,1);
527: itg_debug_pub.Add('SV - p_parentid ' ||p_parentid,1);
528: itg_debug_pub.Add('SV - p_paymethod' ||p_paymethod,1);
529: itg_debug_pub.Add('SV - p_taxid ' ||p_taxid,1);
530: itg_debug_pub.Add('SV - p_termid ' ||p_termid,1);
531: itg_debug_pub.Add('SV - p_us_flag ' ||p_us_flag,1);
532: itg_debug_pub.Add('SV - p_date ' ||p_date,1);
525: itg_debug_pub.Add('SV - p_currency ' ||p_currency,1);
526: itg_debug_pub.Add('SV - p_dunsnumber ' ||p_dunsnumber,1);
527: itg_debug_pub.Add('SV - p_parentid ' ||p_parentid,1);
528: itg_debug_pub.Add('SV - p_paymethod' ||p_paymethod,1);
529: itg_debug_pub.Add('SV - p_taxid ' ||p_taxid,1);
530: itg_debug_pub.Add('SV - p_termid ' ||p_termid,1);
531: itg_debug_pub.Add('SV - p_us_flag ' ||p_us_flag,1);
532: itg_debug_pub.Add('SV - p_date ' ||p_date,1);
533: itg_debug_pub.Add('SV - org ' ||p_org,1);
526: itg_debug_pub.Add('SV - p_dunsnumber ' ||p_dunsnumber,1);
527: itg_debug_pub.Add('SV - p_parentid ' ||p_parentid,1);
528: itg_debug_pub.Add('SV - p_paymethod' ||p_paymethod,1);
529: itg_debug_pub.Add('SV - p_taxid ' ||p_taxid,1);
530: itg_debug_pub.Add('SV - p_termid ' ||p_termid,1);
531: itg_debug_pub.Add('SV - p_us_flag ' ||p_us_flag,1);
532: itg_debug_pub.Add('SV - p_date ' ||p_date,1);
533: itg_debug_pub.Add('SV - org ' ||p_org,1);
534: END IF;
527: itg_debug_pub.Add('SV - p_parentid ' ||p_parentid,1);
528: itg_debug_pub.Add('SV - p_paymethod' ||p_paymethod,1);
529: itg_debug_pub.Add('SV - p_taxid ' ||p_taxid,1);
530: itg_debug_pub.Add('SV - p_termid ' ||p_termid,1);
531: itg_debug_pub.Add('SV - p_us_flag ' ||p_us_flag,1);
532: itg_debug_pub.Add('SV - p_date ' ||p_date,1);
533: itg_debug_pub.Add('SV - org ' ||p_org,1);
534: END IF;
535:
528: itg_debug_pub.Add('SV - p_paymethod' ||p_paymethod,1);
529: itg_debug_pub.Add('SV - p_taxid ' ||p_taxid,1);
530: itg_debug_pub.Add('SV - p_termid ' ||p_termid,1);
531: itg_debug_pub.Add('SV - p_us_flag ' ||p_us_flag,1);
532: itg_debug_pub.Add('SV - p_date ' ||p_date,1);
533: itg_debug_pub.Add('SV - org ' ||p_org,1);
534: END IF;
535:
536: BEGIN
529: itg_debug_pub.Add('SV - p_taxid ' ||p_taxid,1);
530: itg_debug_pub.Add('SV - p_termid ' ||p_termid,1);
531: itg_debug_pub.Add('SV - p_us_flag ' ||p_us_flag,1);
532: itg_debug_pub.Add('SV - p_date ' ||p_date,1);
533: itg_debug_pub.Add('SV - org ' ||p_org,1);
534: END IF;
535:
536: BEGIN
537: MO_GLOBAL.set_policy_context('S', p_org); -- MOAC
538: EXCEPTION
539: WHEN OTHERS THEN
540: itg_msg.invalid_org(p_org);
541: IF l_debug_level <= 6 THEN
542: itg_debug_pub.Add('MO_GLOBAL.set_policy_context ' || SQLCODE || ' - ' || SQLERRM,6);
543: END IF;
544: RAISE FND_API.G_EXC_ERROR;
545: END;
546:
544: RAISE FND_API.G_EXC_ERROR;
545: END;
546:
547: IF l_debug_level <= 1 THEN
548: itg_debug_pub.add('Before sync vendor, parameter validation ',1);
549: END IF;
550:
551: validate_vendor_params(
552: p_syncind => p_syncind,
564: p_date => p_date,
565: p_org => p_org);
566:
567: IF l_debug_level <= 1 THEN
568: itg_debug_pub.add('After sync vendor, parameter validation ',1);
569: END IF;
570:
571: l_syncind := UPPER(p_syncind);
572: IF p_termid IS NOT NULL THEN
578: l_term_id := null;
579: END IF;
580:
581: IF l_debug_level <= 1 THEN
582: itg_debug_pub.add('SV - Termid - ' || l_term_id ,1);
583: END IF;
584:
585: x_vinfo_rec.syncind := UPPER(p_syncind);
586: x_vinfo_rec.currency := p_currency;
601: l_org := p_org;
602: default_vendor_params(r_vendor_rec,x_vinfo_rec,l_org);
603:
604: IF l_debug_level <= 1 THEN
605: itg_debug_pub.add('SV - Vendor params defaulted',1);
606: END IF;
607:
608: r_vendor_rec.one_time_flag := flag_value(NVL(to_number(p_onetime), 0) <> 0);
609: r_vendor_rec.summary_flag := flag_value(NVL(p_parentid, 0) <> 0);
621: r_vendor_rec.terms_date_basis := NVL(r_vendor_rec.terms_date_basis, 'Goods Received');
622:
623:
624: IF l_debug_level <= 1 THEN
625: itg_debug_pub.add('Call to create vendor',1);
626: END IF;
627:
628: ap_vendor_pub_pkg.Create_Vendor(
629: p_api_version => '1.0',
636:
637: x_vinfo_rec.vendor_id := r_vendor_rec.vendor_id;
638:
639: IF l_debug_level <= 1 THEN
640: itg_debug_pub.add('Create vendor returns - ' || l_ret_status || ' - ' || l_ret_msg ,1);
641: ITG_Debug_pub.add('SV - vendor_id ' || r_vendor_rec.vendor_id,1);
642: END IF;
643:
644: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
637: x_vinfo_rec.vendor_id := r_vendor_rec.vendor_id;
638:
639: IF l_debug_level <= 1 THEN
640: itg_debug_pub.add('Create vendor returns - ' || l_ret_status || ' - ' || l_ret_msg ,1);
641: ITG_Debug_pub.add('SV - vendor_id ' || r_vendor_rec.vendor_id,1);
642: END IF;
643:
644: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
645: IF l_debug_level <= 6 THEN
642: END IF;
643:
644: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
645: IF l_debug_level <= 6 THEN
646: itg_debug_pub.add('Error occured in Create Vendor',6);
647: END IF;
648: itg_msg.apicallret('Ap_vendor_pub_pkg.Create_Vendor',l_ret_status,substr(l_ret_msg,1,200));
649: RAISE FND_API.G_EXC_ERROR;
650: END IF;
655: INTO l_override_vendornum
656: FROM ap_vendors_v
657: WHERE vendor_id = r_vendor_rec.vendor_id;
658: IF l_debug_level <= 1 THEN
659: itg_debug_pub.Add('SV - segment1 '|| l_override_vendornum ,1);
660: END IF;
661: EXCEPTION
662: WHEN OTHERS THEN
663: IF l_debug_level <= 6 THEN
660: END IF;
661: EXCEPTION
662: WHEN OTHERS THEN
663: IF l_debug_level <= 6 THEN
664: itg_debug_pub.add('Error occured while retrieving vendor_number',6);
665: END IF;
666: RAISE FND_API.G_EXC_ERROR;
667: END;
668:
665: END IF;
666: RAISE FND_API.G_EXC_ERROR;
667: END;
668:
669: itg_debug_pub.Add('SV - p_partnerid '||p_partnerid ,1);
670:
671: IF l_override_vendornum <> p_partnerid THEN
672: IF (l_Debug_Level <= 1) THEN
673: itg_debug_pub.Add('SV - Segment1 automatically allocated, overriding.' ,1);
669: itg_debug_pub.Add('SV - p_partnerid '||p_partnerid ,1);
670:
671: IF l_override_vendornum <> p_partnerid THEN
672: IF (l_Debug_Level <= 1) THEN
673: itg_debug_pub.Add('SV - Segment1 automatically allocated, overriding.' ,1);
674: END IF;
675: l_syncind := 'C';
676: END IF;
677: -- sync ind <> A (else) condtion block begins
678: ELSE
679: g_action := 'Vendor record update';
680:
681: IF (l_Debug_Level <= 1) THEN
682: itg_debug_pub.Add('SV - Changing the vendor info.',1);
683: END IF;
684:
685: BEGIN
686: SELECT vendor_id
690:
691: x_vinfo_rec.vendor_id := r_vendor_rec.vendor_id;
692:
693: IF (l_Debug_Level <= 1) THEN
694: itg_debug_pub.Add('x_vinfo_rec.vendor_id - '|| x_vinfo_rec.vendor_id,1);
695: END IF;
696: EXCEPTION
697: WHEN NO_DATA_FOUND THEN
698: itg_msg.vendor_not_found(p_name);
708:
709: get_vendor_rec(r_vendor_rec,x_vinfo_rec.vendor_id);
710:
711: IF (l_Debug_Level <= 1) THEN
712: itg_debug_pub.Add('Obtained vendor details ',1);
713: END IF;
714:
715:
716: r_vendor_rec.one_time_flag := flag_value(NVL(to_number(p_onetime), 0) <> 0);
742: END IF;
743:
744:
745: IF (l_Debug_Level <= 1) THEN
746: itg_debug_pub.Add('SV - vendor_id'||r_vendor_rec.vendor_id ,1);
747: END IF;
748:
749: ap_vendor_pub_pkg.update_vendor(
750: p_api_version => '1.0',
755: p_vendor_id => r_vendor_rec.vendor_id
756: );
757:
758: IF l_debug_level <= 1 THEN
759: itg_debug_pub.add('Update vendor returns - ' || l_ret_status || ' - ' || l_ret_msg ,1);
760: ITG_Debug_pub.add('SV - vendor_id ' || r_vendor_rec.vendor_id,1);
761: END IF;
762:
763: /*Added following block to fix Bug :5186022 */
756: );
757:
758: IF l_debug_level <= 1 THEN
759: itg_debug_pub.add('Update vendor returns - ' || l_ret_status || ' - ' || l_ret_msg ,1);
760: ITG_Debug_pub.add('SV - vendor_id ' || r_vendor_rec.vendor_id,1);
761: END IF;
762:
763: /*Added following block to fix Bug :5186022 */
764:
777: from hz_parties
778: where party_id=l_party_id;
779:
780: IF (l_Debug_Level <= 1) THEN
781: itg_debug_pub.Add('party_id - '|| l_party_id,1);
782: itg_debug_pub.Add('party_object_version_number - '|| l_party_object_version_number,1);
783: itg_debug_pub.Add('party_number - '|| l_party_number,1);
784: itg_debug_pub.Add('party_duns_number - '|| l_duns_number,1);
785:
778: where party_id=l_party_id;
779:
780: IF (l_Debug_Level <= 1) THEN
781: itg_debug_pub.Add('party_id - '|| l_party_id,1);
782: itg_debug_pub.Add('party_object_version_number - '|| l_party_object_version_number,1);
783: itg_debug_pub.Add('party_number - '|| l_party_number,1);
784: itg_debug_pub.Add('party_duns_number - '|| l_duns_number,1);
785:
786: END IF;
779:
780: IF (l_Debug_Level <= 1) THEN
781: itg_debug_pub.Add('party_id - '|| l_party_id,1);
782: itg_debug_pub.Add('party_object_version_number - '|| l_party_object_version_number,1);
783: itg_debug_pub.Add('party_number - '|| l_party_number,1);
784: itg_debug_pub.Add('party_duns_number - '|| l_duns_number,1);
785:
786: END IF;
787:
780: IF (l_Debug_Level <= 1) THEN
781: itg_debug_pub.Add('party_id - '|| l_party_id,1);
782: itg_debug_pub.Add('party_object_version_number - '|| l_party_object_version_number,1);
783: itg_debug_pub.Add('party_number - '|| l_party_number,1);
784: itg_debug_pub.Add('party_duns_number - '|| l_duns_number,1);
785:
786: END IF;
787:
788: EXCEPTION
787:
788: EXCEPTION
789: WHEN NO_DATA_FOUND THEN
790: IF (l_Debug_Level <= 1) THEN
791: itg_debug_pub.Add('Couldn''t find party_id from ap_suppliers or obj_ver,party_num,duns_num from hz_parties ');
792: END IF;
793: RAISE FND_API.G_EXC_ERROR;
794: END;
795:
809:
810:
811: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
812: IF l_debug_level <= 6 THEN
813: itg_debug_pub.add('Error occured in update Vendor or update organization',6);
814: END IF;
815: itg_msg.apicallret('ap_vendor_pub_pkg.Update_vendor or hz_party_v2pub.update_organization returns-',l_ret_status,substr(l_ret_msg,1,200));
816: RAISE FND_API.G_EXC_ERROR;
817: END IF;
819:
820: END IF;
821:
822: IF (l_Debug_Level <= 1) THEN
823: itg_debug_pub.Add('Commiting work',1);
824: END IF;
825:
826: COMMIT WORK;
827:
825:
826: COMMIT WORK;
827:
828: IF (l_Debug_Level <= 2) THEN
829: itg_debug_pub.Add('EXITING - Sync_Vendor.', 2);
830: END IF;
831: EXCEPTION
832: WHEN FND_API.G_EXC_ERROR THEN
833: ROLLBACK TO Sync_Vendor_PVT;
834: COMMIT;
835: x_return_status := FND_API.G_RET_STS_ERROR;
836: ITG_msg.checked_error(g_action);
837: IF (l_Debug_Level <= 6) THEN
838: itg_debug_pub.Add('EXITING - Sync_Vendor:: ERROR', 6);
839: END IF;
840:
841: WHEN OTHERS THEN
842: ROLLBACK TO Sync_Vendor_PVT;
844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
845: itg_debug.msg('Unexpected error (Vendor sync) - ' || substr(SQLERRM,1,255),true);
846: ITG_msg.unexpected_error(g_action);
847: IF (l_Debug_Level <= 6) THEN
848: itg_debug_pub.Add('EXITING - Sync_Vendor:: ERROR', 6);
849: END IF;
850:
851: -- Removed FND_MSG_PUB.Count_And_Get
852: END Sync_Vendor;
1000:
1001: SAVEPOINT Sync_VendorSite_PVT;
1002:
1003: IF (l_Debug_Level <= 1) THEN
1004: itg_debug_pub.Add('Top of procedure.', 1);
1005: itg_debug_pub.Add('p_addrline1' ||p_addrline1, 1);
1006: itg_debug_pub.Add('p_addrline2' ||p_addrline2, 1);
1007: itg_debug_pub.Add('p_addrline3' ||p_addrline3, 1);
1008: itg_debug_pub.Add('p_addrline4' ||p_addrline4, 1);
1001: SAVEPOINT Sync_VendorSite_PVT;
1002:
1003: IF (l_Debug_Level <= 1) THEN
1004: itg_debug_pub.Add('Top of procedure.', 1);
1005: itg_debug_pub.Add('p_addrline1' ||p_addrline1, 1);
1006: itg_debug_pub.Add('p_addrline2' ||p_addrline2, 1);
1007: itg_debug_pub.Add('p_addrline3' ||p_addrline3, 1);
1008: itg_debug_pub.Add('p_addrline4' ||p_addrline4, 1);
1009: itg_debug_pub.Add('p_city' ||p_city, 1 );
1002:
1003: IF (l_Debug_Level <= 1) THEN
1004: itg_debug_pub.Add('Top of procedure.', 1);
1005: itg_debug_pub.Add('p_addrline1' ||p_addrline1, 1);
1006: itg_debug_pub.Add('p_addrline2' ||p_addrline2, 1);
1007: itg_debug_pub.Add('p_addrline3' ||p_addrline3, 1);
1008: itg_debug_pub.Add('p_addrline4' ||p_addrline4, 1);
1009: itg_debug_pub.Add('p_city' ||p_city, 1 );
1010: itg_debug_pub.Add('p_country' ||p_country, 1 );
1003: IF (l_Debug_Level <= 1) THEN
1004: itg_debug_pub.Add('Top of procedure.', 1);
1005: itg_debug_pub.Add('p_addrline1' ||p_addrline1, 1);
1006: itg_debug_pub.Add('p_addrline2' ||p_addrline2, 1);
1007: itg_debug_pub.Add('p_addrline3' ||p_addrline3, 1);
1008: itg_debug_pub.Add('p_addrline4' ||p_addrline4, 1);
1009: itg_debug_pub.Add('p_city' ||p_city, 1 );
1010: itg_debug_pub.Add('p_country' ||p_country, 1 );
1011: itg_debug_pub.Add('p_county' ||p_county, 1);
1004: itg_debug_pub.Add('Top of procedure.', 1);
1005: itg_debug_pub.Add('p_addrline1' ||p_addrline1, 1);
1006: itg_debug_pub.Add('p_addrline2' ||p_addrline2, 1);
1007: itg_debug_pub.Add('p_addrline3' ||p_addrline3, 1);
1008: itg_debug_pub.Add('p_addrline4' ||p_addrline4, 1);
1009: itg_debug_pub.Add('p_city' ||p_city, 1 );
1010: itg_debug_pub.Add('p_country' ||p_country, 1 );
1011: itg_debug_pub.Add('p_county' ||p_county, 1);
1012: itg_debug_pub.Add('p_site_code' ||p_site_code, 1);
1005: itg_debug_pub.Add('p_addrline1' ||p_addrline1, 1);
1006: itg_debug_pub.Add('p_addrline2' ||p_addrline2, 1);
1007: itg_debug_pub.Add('p_addrline3' ||p_addrline3, 1);
1008: itg_debug_pub.Add('p_addrline4' ||p_addrline4, 1);
1009: itg_debug_pub.Add('p_city' ||p_city, 1 );
1010: itg_debug_pub.Add('p_country' ||p_country, 1 );
1011: itg_debug_pub.Add('p_county' ||p_county, 1);
1012: itg_debug_pub.Add('p_site_code' ||p_site_code, 1);
1013: itg_debug_pub.Add('p_fax' ||p_fax, 1);
1006: itg_debug_pub.Add('p_addrline2' ||p_addrline2, 1);
1007: itg_debug_pub.Add('p_addrline3' ||p_addrline3, 1);
1008: itg_debug_pub.Add('p_addrline4' ||p_addrline4, 1);
1009: itg_debug_pub.Add('p_city' ||p_city, 1 );
1010: itg_debug_pub.Add('p_country' ||p_country, 1 );
1011: itg_debug_pub.Add('p_county' ||p_county, 1);
1012: itg_debug_pub.Add('p_site_code' ||p_site_code, 1);
1013: itg_debug_pub.Add('p_fax' ||p_fax, 1);
1014: itg_debug_pub.Add('p_zip' ||p_zip, 1);
1007: itg_debug_pub.Add('p_addrline3' ||p_addrline3, 1);
1008: itg_debug_pub.Add('p_addrline4' ||p_addrline4, 1);
1009: itg_debug_pub.Add('p_city' ||p_city, 1 );
1010: itg_debug_pub.Add('p_country' ||p_country, 1 );
1011: itg_debug_pub.Add('p_county' ||p_county, 1);
1012: itg_debug_pub.Add('p_site_code' ||p_site_code, 1);
1013: itg_debug_pub.Add('p_fax' ||p_fax, 1);
1014: itg_debug_pub.Add('p_zip' ||p_zip, 1);
1015: itg_debug_pub.Add('p_state' ||p_state, 1);
1008: itg_debug_pub.Add('p_addrline4' ||p_addrline4, 1);
1009: itg_debug_pub.Add('p_city' ||p_city, 1 );
1010: itg_debug_pub.Add('p_country' ||p_country, 1 );
1011: itg_debug_pub.Add('p_county' ||p_county, 1);
1012: itg_debug_pub.Add('p_site_code' ||p_site_code, 1);
1013: itg_debug_pub.Add('p_fax' ||p_fax, 1);
1014: itg_debug_pub.Add('p_zip' ||p_zip, 1);
1015: itg_debug_pub.Add('p_state' ||p_state, 1);
1016: itg_debug_pub.Add('p_phone' ||p_phone, 1);
1009: itg_debug_pub.Add('p_city' ||p_city, 1 );
1010: itg_debug_pub.Add('p_country' ||p_country, 1 );
1011: itg_debug_pub.Add('p_county' ||p_county, 1);
1012: itg_debug_pub.Add('p_site_code' ||p_site_code, 1);
1013: itg_debug_pub.Add('p_fax' ||p_fax, 1);
1014: itg_debug_pub.Add('p_zip' ||p_zip, 1);
1015: itg_debug_pub.Add('p_state' ||p_state, 1);
1016: itg_debug_pub.Add('p_phone' ||p_phone, 1);
1017: itg_debug_pub.Add('p_purch_site'||p_purch_site, 1);
1010: itg_debug_pub.Add('p_country' ||p_country, 1 );
1011: itg_debug_pub.Add('p_county' ||p_county, 1);
1012: itg_debug_pub.Add('p_site_code' ||p_site_code, 1);
1013: itg_debug_pub.Add('p_fax' ||p_fax, 1);
1014: itg_debug_pub.Add('p_zip' ||p_zip, 1);
1015: itg_debug_pub.Add('p_state' ||p_state, 1);
1016: itg_debug_pub.Add('p_phone' ||p_phone, 1);
1017: itg_debug_pub.Add('p_purch_site'||p_purch_site, 1);
1018: itg_debug_pub.Add('p_pay_site' ||p_pay_site, 1);
1011: itg_debug_pub.Add('p_county' ||p_county, 1);
1012: itg_debug_pub.Add('p_site_code' ||p_site_code, 1);
1013: itg_debug_pub.Add('p_fax' ||p_fax, 1);
1014: itg_debug_pub.Add('p_zip' ||p_zip, 1);
1015: itg_debug_pub.Add('p_state' ||p_state, 1);
1016: itg_debug_pub.Add('p_phone' ||p_phone, 1);
1017: itg_debug_pub.Add('p_purch_site'||p_purch_site, 1);
1018: itg_debug_pub.Add('p_pay_site' ||p_pay_site, 1);
1019: itg_debug_pub.Add('p_pc_site' ||p_pc_site, 1);
1012: itg_debug_pub.Add('p_site_code' ||p_site_code, 1);
1013: itg_debug_pub.Add('p_fax' ||p_fax, 1);
1014: itg_debug_pub.Add('p_zip' ||p_zip, 1);
1015: itg_debug_pub.Add('p_state' ||p_state, 1);
1016: itg_debug_pub.Add('p_phone' ||p_phone, 1);
1017: itg_debug_pub.Add('p_purch_site'||p_purch_site, 1);
1018: itg_debug_pub.Add('p_pay_site' ||p_pay_site, 1);
1019: itg_debug_pub.Add('p_pc_site' ||p_pc_site, 1);
1020: itg_debug_pub.Add('p_rfq_site' ||p_rfq_site, 1);
1013: itg_debug_pub.Add('p_fax' ||p_fax, 1);
1014: itg_debug_pub.Add('p_zip' ||p_zip, 1);
1015: itg_debug_pub.Add('p_state' ||p_state, 1);
1016: itg_debug_pub.Add('p_phone' ||p_phone, 1);
1017: itg_debug_pub.Add('p_purch_site'||p_purch_site, 1);
1018: itg_debug_pub.Add('p_pay_site' ||p_pay_site, 1);
1019: itg_debug_pub.Add('p_pc_site' ||p_pc_site, 1);
1020: itg_debug_pub.Add('p_rfq_site' ||p_rfq_site, 1);
1021: itg_debug_pub.Add('p_vat_code' ||p_vat_code, 1);
1014: itg_debug_pub.Add('p_zip' ||p_zip, 1);
1015: itg_debug_pub.Add('p_state' ||p_state, 1);
1016: itg_debug_pub.Add('p_phone' ||p_phone, 1);
1017: itg_debug_pub.Add('p_purch_site'||p_purch_site, 1);
1018: itg_debug_pub.Add('p_pay_site' ||p_pay_site, 1);
1019: itg_debug_pub.Add('p_pc_site' ||p_pc_site, 1);
1020: itg_debug_pub.Add('p_rfq_site' ||p_rfq_site, 1);
1021: itg_debug_pub.Add('p_vat_code' ||p_vat_code, 1);
1022: itg_debug_pub.Add('p_org ' ||p_org, 1);
1015: itg_debug_pub.Add('p_state' ||p_state, 1);
1016: itg_debug_pub.Add('p_phone' ||p_phone, 1);
1017: itg_debug_pub.Add('p_purch_site'||p_purch_site, 1);
1018: itg_debug_pub.Add('p_pay_site' ||p_pay_site, 1);
1019: itg_debug_pub.Add('p_pc_site' ||p_pc_site, 1);
1020: itg_debug_pub.Add('p_rfq_site' ||p_rfq_site, 1);
1021: itg_debug_pub.Add('p_vat_code' ||p_vat_code, 1);
1022: itg_debug_pub.Add('p_org ' ||p_org, 1);
1023: END IF;
1016: itg_debug_pub.Add('p_phone' ||p_phone, 1);
1017: itg_debug_pub.Add('p_purch_site'||p_purch_site, 1);
1018: itg_debug_pub.Add('p_pay_site' ||p_pay_site, 1);
1019: itg_debug_pub.Add('p_pc_site' ||p_pc_site, 1);
1020: itg_debug_pub.Add('p_rfq_site' ||p_rfq_site, 1);
1021: itg_debug_pub.Add('p_vat_code' ||p_vat_code, 1);
1022: itg_debug_pub.Add('p_org ' ||p_org, 1);
1023: END IF;
1024:
1017: itg_debug_pub.Add('p_purch_site'||p_purch_site, 1);
1018: itg_debug_pub.Add('p_pay_site' ||p_pay_site, 1);
1019: itg_debug_pub.Add('p_pc_site' ||p_pc_site, 1);
1020: itg_debug_pub.Add('p_rfq_site' ||p_rfq_site, 1);
1021: itg_debug_pub.Add('p_vat_code' ||p_vat_code, 1);
1022: itg_debug_pub.Add('p_org ' ||p_org, 1);
1023: END IF;
1024:
1025: validate_vendorsite_params(
1018: itg_debug_pub.Add('p_pay_site' ||p_pay_site, 1);
1019: itg_debug_pub.Add('p_pc_site' ||p_pc_site, 1);
1020: itg_debug_pub.Add('p_rfq_site' ||p_rfq_site, 1);
1021: itg_debug_pub.Add('p_vat_code' ||p_vat_code, 1);
1022: itg_debug_pub.Add('p_org ' ||p_org, 1);
1023: END IF;
1024:
1025: validate_vendorsite_params(
1026: p_addrline1 => p_addrline1,
1044: p_vinfo_rec => p_vinfo_rec);
1045:
1046: BEGIN
1047: IF (l_Debug_Level <= 1) THEN
1048: itg_debug_pub.Add('Retrieving vendor record - ' || p_vinfo_rec.vendor_id ,1);
1049: END IF;
1050:
1051: g_action := 'query vendor details';
1052:
1057:
1058: EXCEPTION
1059: WHEN NO_DATA_FOUND THEN
1060: IF (l_Debug_Level <= 1) THEN
1061: itg_debug_pub.Add('Vendor not found - erroring out' ,1);
1062: END IF;
1063: itg_msg.vendor_not_found('vendorid:' ||p_vinfo_rec.vendor_id);
1064: RAISE FND_API.G_EXC_ERROR;
1065: END;
1075:
1076: l_vendor_found := true;
1077:
1078: IF (l_Debug_Level <= 1) THEN
1079: itg_debug_pub.add('Vendor site obtained as - ' || l_vendor_site_id);
1080: END IF;
1081:
1082: EXCEPTION
1083: WHEN NO_DATA_FOUND THEN
1081:
1082: EXCEPTION
1083: WHEN NO_DATA_FOUND THEN
1084: IF (l_Debug_Level <= 1) THEN
1085: itg_debug_pub.add('Vendor site not found');
1086: END IF;
1087: l_vendor_found := false;
1088: END;
1089:
1088: END;
1089:
1090: IF p_org IS NOT NULL THEN
1091: IF (l_Debug_Level <= 1) THEN
1092: itg_debug_pub.Add('SVS - Looking up set_of_books_id',1);
1093: END IF;
1094:
1095: OPEN sob_csr(p_org);
1096: FETCH sob_csr
1100:
1101:
1102: IF l_sob_found THEN
1103: IF (l_Debug_Level <= 1) THEN
1104: itg_debug_pub.Add('SVS - Looking up financial params' ,1);
1105: itg_debug_pub.Add('SVS - set_of_books_id'||l_ven_rec.set_of_books_id,1);
1106: END IF;
1107:
1108: OPEN fin_params_csr(p_sob_id => l_ven_rec.set_of_books_id);
1101:
1102: IF l_sob_found THEN
1103: IF (l_Debug_Level <= 1) THEN
1104: itg_debug_pub.Add('SVS - Looking up financial params' ,1);
1105: itg_debug_pub.Add('SVS - set_of_books_id'||l_ven_rec.set_of_books_id,1);
1106: END IF;
1107:
1108: OPEN fin_params_csr(p_sob_id => l_ven_rec.set_of_books_id);
1109: FETCH fin_params_csr
1121:
1122:
1123: IF NOT l_vendor_found THEN
1124: IF (l_Debug_Level <= 1) THEN
1125: itg_debug_pub.add('Creating vendor record');
1126: END IF;
1127:
1128: g_action := 'vendor site creation';
1129: l_vendorsite_rec.vendor_site_code := p_site_code;
1180: x_location_id => l_location_id
1181: );
1182:
1183: IF (l_Debug_Level <= 1) THEN
1184: itg_debug_pub.add('return from ap_vendors_pub_pkg.create_vendor_site');
1185: itg_debug_pub.add('l_return_status ' || l_return_status);
1186: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1187: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1188: itg_debug_pub.add('l_vendor_site_id ' || l_vendor_site_id);
1181: );
1182:
1183: IF (l_Debug_Level <= 1) THEN
1184: itg_debug_pub.add('return from ap_vendors_pub_pkg.create_vendor_site');
1185: itg_debug_pub.add('l_return_status ' || l_return_status);
1186: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1187: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1188: itg_debug_pub.add('l_vendor_site_id ' || l_vendor_site_id);
1189: itg_debug_pub.add('l_party_id ' || l_party_id);
1182:
1183: IF (l_Debug_Level <= 1) THEN
1184: itg_debug_pub.add('return from ap_vendors_pub_pkg.create_vendor_site');
1185: itg_debug_pub.add('l_return_status ' || l_return_status);
1186: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1187: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1188: itg_debug_pub.add('l_vendor_site_id ' || l_vendor_site_id);
1189: itg_debug_pub.add('l_party_id ' || l_party_id);
1190: itg_debug_pub.add('l_location_id ' || l_location_id);
1183: IF (l_Debug_Level <= 1) THEN
1184: itg_debug_pub.add('return from ap_vendors_pub_pkg.create_vendor_site');
1185: itg_debug_pub.add('l_return_status ' || l_return_status);
1186: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1187: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1188: itg_debug_pub.add('l_vendor_site_id ' || l_vendor_site_id);
1189: itg_debug_pub.add('l_party_id ' || l_party_id);
1190: itg_debug_pub.add('l_location_id ' || l_location_id);
1191: END IF;
1184: itg_debug_pub.add('return from ap_vendors_pub_pkg.create_vendor_site');
1185: itg_debug_pub.add('l_return_status ' || l_return_status);
1186: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1187: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1188: itg_debug_pub.add('l_vendor_site_id ' || l_vendor_site_id);
1189: itg_debug_pub.add('l_party_id ' || l_party_id);
1190: itg_debug_pub.add('l_location_id ' || l_location_id);
1191: END IF;
1192:
1185: itg_debug_pub.add('l_return_status ' || l_return_status);
1186: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1187: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1188: itg_debug_pub.add('l_vendor_site_id ' || l_vendor_site_id);
1189: itg_debug_pub.add('l_party_id ' || l_party_id);
1190: itg_debug_pub.add('l_location_id ' || l_location_id);
1191: END IF;
1192:
1193: ELSE
1186: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1187: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1188: itg_debug_pub.add('l_vendor_site_id ' || l_vendor_site_id);
1189: itg_debug_pub.add('l_party_id ' || l_party_id);
1190: itg_debug_pub.add('l_location_id ' || l_location_id);
1191: END IF;
1192:
1193: ELSE
1194:
1193: ELSE
1194:
1195: g_action := 'vendor site update';
1196: IF (l_Debug_Level <= 1) THEN
1197: itg_debug_pub.add('Updating vendor record');
1198: END IF;
1199:
1200: g_action := 'Vendor-site info update';
1201: get_vendorsite_rec(l_vendorsite_rec,l_vendor_site_id,p_vinfo_rec.vendor_id);
1200: g_action := 'Vendor-site info update';
1201: get_vendorsite_rec(l_vendorsite_rec,l_vendor_site_id,p_vinfo_rec.vendor_id);
1202:
1203: IF (l_Debug_Level <= 1) THEN
1204: itg_debug_pub.add('Retrieved old vendor record information');
1205: END IF;
1206: l_vendorsite_rec.vendor_site_code := null;
1207: l_vendorsite_rec.PHONE := NVL(p_phone, l_vendorsite_rec.phone);
1208: l_vendorsite_rec.FAX := NVL(p_fax, l_vendorsite_rec.fax);
1228: l_vendorsite_rec.org_id := p_org;
1229: l_vendorsite_rec.vendor_site_id := l_vendor_site_id;
1230:
1231: IF (l_Debug_Level <= 1) THEN
1232: itg_debug_pub.add('Calling ap_vendors_pub_pkg.update_vendor_site');
1233: END IF;
1234: l_api_name := 'ap_vendor_pub_pkg.update_vendor_site';
1235: ap_vendor_pub_pkg.update_vendor_site
1236: (
1242: p_vendor_site_id => l_vendor_site_id
1243: );
1244:
1245: IF (l_Debug_Level <= 1) THEN
1246: itg_debug_pub.add('Return from ap_vendors_pub_pkg.update_vendor_site');
1247: itg_debug_pub.add('l_return_status ' || l_return_status);
1248: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1249: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1250: itg_debug_pub.add('l_vendor_site_id ' || l_vendor_site_id);
1243: );
1244:
1245: IF (l_Debug_Level <= 1) THEN
1246: itg_debug_pub.add('Return from ap_vendors_pub_pkg.update_vendor_site');
1247: itg_debug_pub.add('l_return_status ' || l_return_status);
1248: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1249: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1250: itg_debug_pub.add('l_vendor_site_id ' || l_vendor_site_id);
1251: END IF;
1244:
1245: IF (l_Debug_Level <= 1) THEN
1246: itg_debug_pub.add('Return from ap_vendors_pub_pkg.update_vendor_site');
1247: itg_debug_pub.add('l_return_status ' || l_return_status);
1248: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1249: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1250: itg_debug_pub.add('l_vendor_site_id ' || l_vendor_site_id);
1251: END IF;
1252:
1245: IF (l_Debug_Level <= 1) THEN
1246: itg_debug_pub.add('Return from ap_vendors_pub_pkg.update_vendor_site');
1247: itg_debug_pub.add('l_return_status ' || l_return_status);
1248: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1249: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1250: itg_debug_pub.add('l_vendor_site_id ' || l_vendor_site_id);
1251: END IF;
1252:
1253: /* Adding following block to Fix Bug: 5258874 to update supplier site address locations*/
1246: itg_debug_pub.add('Return from ap_vendors_pub_pkg.update_vendor_site');
1247: itg_debug_pub.add('l_return_status ' || l_return_status);
1248: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1249: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1250: itg_debug_pub.add('l_vendor_site_id ' || l_vendor_site_id);
1251: END IF;
1252:
1253: /* Adding following block to Fix Bug: 5258874 to update supplier site address locations*/
1254: BEGIN
1255: select location_id into p_location_rec.location_id
1256: from ap_supplier_sites
1257: where vendor_id = p_vinfo_rec.vendor_id and vendor_site_id = l_vendor_site_id;
1258: IF (l_Debug_Level <= 1) THEN
1259: itg_debug_pub.Add('location_id - '|| p_location_rec.location_id,1);
1260: END IF;
1261:
1262: EXCEPTION
1263: WHEN NO_DATA_FOUND THEN
1261:
1262: EXCEPTION
1263: WHEN NO_DATA_FOUND THEN
1264: IF (l_Debug_Level <= 1) THEN
1265: itg_debug_pub.Add('Couldn''t find location_id ');
1266: END IF;
1267: RAISE FND_API.G_EXC_ERROR;
1268: END;
1269:
1274: from hz_locations
1275: where location_id = p_location_rec.location_id;
1276:
1277: IF (l_Debug_Level <= 1) THEN
1278: itg_debug_pub.Add('object_version_number - '|| p_object_version_number);
1279: END IF;
1280:
1281: EXCEPTION
1282: WHEN NO_DATA_FOUND THEN
1280:
1281: EXCEPTION
1282: WHEN NO_DATA_FOUND THEN
1283: IF (l_Debug_Level <= 1) THEN
1284: itg_debug_pub.Add('Couldn''t find object_version_number');
1285: END IF;
1286: RAISE FND_API.G_EXC_ERROR;
1287:
1288: END;
1300: p_location_rec.province := NVL(p_state, l_vendorsite_rec.state);
1301: p_location_rec.county := NVL(p_county, l_vendorsite_rec.county);
1302:
1303: IF (l_Debug_Level <= 1) THEN
1304: itg_debug_pub.add('Calling hz_location_v2pub.update_location ');
1305:
1306: END IF;
1307: l_api_name := 'hz_location_v2pub.update_location';
1308: hz_location_v2pub.update_location
1315: x_msg_data => l_ret_msg
1316:
1317: );
1318: IF (l_Debug_Level <= 1) THEN
1319: itg_debug_pub.add('Return from hz_location_v2pub.update_location');
1320: itg_debug_pub.add('l_return_status ' || l_return_status);
1321: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1322: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1323: End if;
1316:
1317: );
1318: IF (l_Debug_Level <= 1) THEN
1319: itg_debug_pub.add('Return from hz_location_v2pub.update_location');
1320: itg_debug_pub.add('l_return_status ' || l_return_status);
1321: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1322: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1323: End if;
1324: END IF;
1317: );
1318: IF (l_Debug_Level <= 1) THEN
1319: itg_debug_pub.add('Return from hz_location_v2pub.update_location');
1320: itg_debug_pub.add('l_return_status ' || l_return_status);
1321: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1322: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1323: End if;
1324: END IF;
1325:
1318: IF (l_Debug_Level <= 1) THEN
1319: itg_debug_pub.add('Return from hz_location_v2pub.update_location');
1320: itg_debug_pub.add('l_return_status ' || l_return_status);
1321: itg_debug_pub.add('l_msg_count ' || l_msg_count);
1322: itg_debug_pub.add('l_ret_msg ' || l_ret_msg);
1323: End if;
1324: END IF;
1325:
1326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1325:
1326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1327:
1328: IF (l_Debug_Level <= 1) THEN
1329: itg_debug_pub.add('Create/Update_vendor_site/update_location API returns - ' || l_return_status || ' - ' || l_ret_msg);
1330: END IF;
1331: itg_msg.apicallret(l_api_name, l_return_status, l_ret_msg);
1332: RAISE FND_API.G_EXC_ERROR;
1333: END IF;
1332: RAISE FND_API.G_EXC_ERROR;
1333: END IF;
1334:
1335: IF (l_Debug_Level <= 1) THEN
1336: itg_debug_pub.Add('Commiting work',1);
1337: END IF;
1338:
1339: COMMIT WORK;
1340:
1338:
1339: COMMIT WORK;
1340:
1341: IF (l_Debug_Level <= 2) THEN
1342: itg_debug_pub.Add('EXITING - Sync_VendorSite.', 2);
1343: END IF;
1344:
1345: EXCEPTION
1346: WHEN FND_API.G_EXC_ERROR THEN
1349: x_return_status := FND_API.G_RET_STS_ERROR;
1350: ITG_msg.checked_error(g_action);
1351: itg_msg.vendor_site_only;
1352: IF (l_Debug_Level <= 6) THEN
1353: itg_debug_pub.Add('EXITING - Sync_VendorSite :ERROR', 6);
1354: END IF;
1355:
1356:
1357: WHEN OTHERS THEN
1361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1362: itg_msg.vendor_site_only;
1363: itg_debug.msg('Unexpected error (VendorSite sync) - ' || substr(SQLERRM,1,255),true);
1364: IF (l_Debug_Level <= 6) THEN
1365: itg_debug_pub.Add('EXITING - Sync_VendorSite :ERROR', 6);
1366: END IF;
1367:
1368:
1369: END Sync_VendorSite;
1405: x_return_status := FND_API.G_RET_STS_SUCCESS;
1406: g_action := 'Vendor-contact parameter validation';
1407:
1408: IF (l_Debug_Level <= 2) THEN
1409: itg_debug_pub.Add('ENTERING - Sync_VendorContact', 2);
1410: itg_debug_pub.Add('p_title - ' || p_title, 2);
1411: itg_debug_pub.Add('p_first_name - ' || p_first_name, 2);
1412: itg_debug_pub.Add('p_middle_name - ' || p_middle_name, 2);
1413: itg_debug_pub.Add('p_last_name - ' || p_last_name, 2);
1406: g_action := 'Vendor-contact parameter validation';
1407:
1408: IF (l_Debug_Level <= 2) THEN
1409: itg_debug_pub.Add('ENTERING - Sync_VendorContact', 2);
1410: itg_debug_pub.Add('p_title - ' || p_title, 2);
1411: itg_debug_pub.Add('p_first_name - ' || p_first_name, 2);
1412: itg_debug_pub.Add('p_middle_name - ' || p_middle_name, 2);
1413: itg_debug_pub.Add('p_last_name - ' || p_last_name, 2);
1414: itg_debug_pub.Add('p_phone - ' || p_phone, 2);
1407:
1408: IF (l_Debug_Level <= 2) THEN
1409: itg_debug_pub.Add('ENTERING - Sync_VendorContact', 2);
1410: itg_debug_pub.Add('p_title - ' || p_title, 2);
1411: itg_debug_pub.Add('p_first_name - ' || p_first_name, 2);
1412: itg_debug_pub.Add('p_middle_name - ' || p_middle_name, 2);
1413: itg_debug_pub.Add('p_last_name - ' || p_last_name, 2);
1414: itg_debug_pub.Add('p_phone - ' || p_phone, 2);
1415: itg_debug_pub.Add('p_site_code - ' || p_site_code, 2);
1408: IF (l_Debug_Level <= 2) THEN
1409: itg_debug_pub.Add('ENTERING - Sync_VendorContact', 2);
1410: itg_debug_pub.Add('p_title - ' || p_title, 2);
1411: itg_debug_pub.Add('p_first_name - ' || p_first_name, 2);
1412: itg_debug_pub.Add('p_middle_name - ' || p_middle_name, 2);
1413: itg_debug_pub.Add('p_last_name - ' || p_last_name, 2);
1414: itg_debug_pub.Add('p_phone - ' || p_phone, 2);
1415: itg_debug_pub.Add('p_site_code - ' || p_site_code, 2);
1416: END IF;
1409: itg_debug_pub.Add('ENTERING - Sync_VendorContact', 2);
1410: itg_debug_pub.Add('p_title - ' || p_title, 2);
1411: itg_debug_pub.Add('p_first_name - ' || p_first_name, 2);
1412: itg_debug_pub.Add('p_middle_name - ' || p_middle_name, 2);
1413: itg_debug_pub.Add('p_last_name - ' || p_last_name, 2);
1414: itg_debug_pub.Add('p_phone - ' || p_phone, 2);
1415: itg_debug_pub.Add('p_site_code - ' || p_site_code, 2);
1416: END IF;
1417:
1410: itg_debug_pub.Add('p_title - ' || p_title, 2);
1411: itg_debug_pub.Add('p_first_name - ' || p_first_name, 2);
1412: itg_debug_pub.Add('p_middle_name - ' || p_middle_name, 2);
1413: itg_debug_pub.Add('p_last_name - ' || p_last_name, 2);
1414: itg_debug_pub.Add('p_phone - ' || p_phone, 2);
1415: itg_debug_pub.Add('p_site_code - ' || p_site_code, 2);
1416: END IF;
1417:
1418: -- sync vendor
1411: itg_debug_pub.Add('p_first_name - ' || p_first_name, 2);
1412: itg_debug_pub.Add('p_middle_name - ' || p_middle_name, 2);
1413: itg_debug_pub.Add('p_last_name - ' || p_last_name, 2);
1414: itg_debug_pub.Add('p_phone - ' || p_phone, 2);
1415: itg_debug_pub.Add('p_site_code - ' || p_site_code, 2);
1416: END IF;
1417:
1418: -- sync vendor
1419: SAVEPOINT Sync_VendorContact_PVT;
1429: WHERE UPPER(vendor_site_code) = UPPER(p_site_code)
1430: AND vendor_id = p_vinfo_rec.vendor_id;
1431:
1432: IF (l_Debug_Level <= 1) THEN
1433: itg_debug_pub.Add('Getting vendor site ID - ' || l_vsite_id ,1);
1434: END IF;
1435: EXCEPTION
1436: WHEN NO_DATA_FOUND THEN
1437: itg_msg.no_vendor_site('vendor-sitecode:' || p_site_code);
1454:
1455: l_found := true;
1456:
1457: IF (l_Debug_Level <= 1) THEN
1458: itg_debug_pub.Add('Contact party id - ' || l_party_id ,1);
1459: itg_debug_pub.Add('Contact obj version - ' || l_obj_ver_num ,1);
1460: END IF;
1461:
1462:
1455: l_found := true;
1456:
1457: IF (l_Debug_Level <= 1) THEN
1458: itg_debug_pub.Add('Contact party id - ' || l_party_id ,1);
1459: itg_debug_pub.Add('Contact obj version - ' || l_obj_ver_num ,1);
1460: END IF;
1461:
1462:
1463: EXCEPTION
1462:
1463: EXCEPTION
1464: WHEN NO_DATA_FOUND THEN
1465: IF (l_Debug_Level <= 5) THEN
1466: itg_debug_pub.Add('SVC - Contact record not found, trying to add it' ,5);
1467: END IF;
1468: l_found := false;
1469: END;
1470:
1497: x_party_site_id => l_party_site_id
1498: );
1499:
1500: IF l_debug_level <= 1 THEN
1501: itg_debug_pub.Add('Create_Vendor_Contact - ' || l_ret_status || ' - ' || l_msg_data ,1);
1502: itg_debug_pub.Add('l_per_party_id - ' || l_per_party_id,1);
1503: itg_debug_pub.Add('l_rel_party_id - ' || l_rel_party_id,1);
1504: itg_debug_pub.Add('l_rel_id - ' || l_rel_id,1 );
1505: itg_debug_pub.Add('l_org_contact_id - ' || l_org_contact_id,1 );
1498: );
1499:
1500: IF l_debug_level <= 1 THEN
1501: itg_debug_pub.Add('Create_Vendor_Contact - ' || l_ret_status || ' - ' || l_msg_data ,1);
1502: itg_debug_pub.Add('l_per_party_id - ' || l_per_party_id,1);
1503: itg_debug_pub.Add('l_rel_party_id - ' || l_rel_party_id,1);
1504: itg_debug_pub.Add('l_rel_id - ' || l_rel_id,1 );
1505: itg_debug_pub.Add('l_org_contact_id - ' || l_org_contact_id,1 );
1506: itg_debug_pub.Add('l_party_site_id - ' || l_party_site_id,1 );
1499:
1500: IF l_debug_level <= 1 THEN
1501: itg_debug_pub.Add('Create_Vendor_Contact - ' || l_ret_status || ' - ' || l_msg_data ,1);
1502: itg_debug_pub.Add('l_per_party_id - ' || l_per_party_id,1);
1503: itg_debug_pub.Add('l_rel_party_id - ' || l_rel_party_id,1);
1504: itg_debug_pub.Add('l_rel_id - ' || l_rel_id,1 );
1505: itg_debug_pub.Add('l_org_contact_id - ' || l_org_contact_id,1 );
1506: itg_debug_pub.Add('l_party_site_id - ' || l_party_site_id,1 );
1507: END IF;
1500: IF l_debug_level <= 1 THEN
1501: itg_debug_pub.Add('Create_Vendor_Contact - ' || l_ret_status || ' - ' || l_msg_data ,1);
1502: itg_debug_pub.Add('l_per_party_id - ' || l_per_party_id,1);
1503: itg_debug_pub.Add('l_rel_party_id - ' || l_rel_party_id,1);
1504: itg_debug_pub.Add('l_rel_id - ' || l_rel_id,1 );
1505: itg_debug_pub.Add('l_org_contact_id - ' || l_org_contact_id,1 );
1506: itg_debug_pub.Add('l_party_site_id - ' || l_party_site_id,1 );
1507: END IF;
1508:
1501: itg_debug_pub.Add('Create_Vendor_Contact - ' || l_ret_status || ' - ' || l_msg_data ,1);
1502: itg_debug_pub.Add('l_per_party_id - ' || l_per_party_id,1);
1503: itg_debug_pub.Add('l_rel_party_id - ' || l_rel_party_id,1);
1504: itg_debug_pub.Add('l_rel_id - ' || l_rel_id,1 );
1505: itg_debug_pub.Add('l_org_contact_id - ' || l_org_contact_id,1 );
1506: itg_debug_pub.Add('l_party_site_id - ' || l_party_site_id,1 );
1507: END IF;
1508:
1509: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1502: itg_debug_pub.Add('l_per_party_id - ' || l_per_party_id,1);
1503: itg_debug_pub.Add('l_rel_party_id - ' || l_rel_party_id,1);
1504: itg_debug_pub.Add('l_rel_id - ' || l_rel_id,1 );
1505: itg_debug_pub.Add('l_org_contact_id - ' || l_org_contact_id,1 );
1506: itg_debug_pub.Add('l_party_site_id - ' || l_party_site_id,1 );
1507: END IF;
1508:
1509: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1510: itg_msg.apicallret('Ap_vendor_pub_pkg.Create_Vendor_Contact',l_ret_status,l_msg_data);
1529: x_msg_count => l_msg_count,
1530: x_msg_data => l_msg_data);
1531:
1532: IF l_debug_level <= 1 THEN
1533: itg_debug_pub.Add('HZ_PARTY_V2PUB.update_person - ' || l_ret_status || ' - ' || l_msg_data ,1);
1534: itg_debug_pub.Add('l_obj_ver_num - ' || l_msg_count,1);
1535: itg_debug_pub.Add('l_profile_id - ' || l_obj_ver_num,1);
1536: itg_debug_pub.Add('l_msg_count - ' || l_profile_id,1 );
1537:
1530: x_msg_data => l_msg_data);
1531:
1532: IF l_debug_level <= 1 THEN
1533: itg_debug_pub.Add('HZ_PARTY_V2PUB.update_person - ' || l_ret_status || ' - ' || l_msg_data ,1);
1534: itg_debug_pub.Add('l_obj_ver_num - ' || l_msg_count,1);
1535: itg_debug_pub.Add('l_profile_id - ' || l_obj_ver_num,1);
1536: itg_debug_pub.Add('l_msg_count - ' || l_profile_id,1 );
1537:
1538: END IF;
1531:
1532: IF l_debug_level <= 1 THEN
1533: itg_debug_pub.Add('HZ_PARTY_V2PUB.update_person - ' || l_ret_status || ' - ' || l_msg_data ,1);
1534: itg_debug_pub.Add('l_obj_ver_num - ' || l_msg_count,1);
1535: itg_debug_pub.Add('l_profile_id - ' || l_obj_ver_num,1);
1536: itg_debug_pub.Add('l_msg_count - ' || l_profile_id,1 );
1537:
1538: END IF;
1539:
1532: IF l_debug_level <= 1 THEN
1533: itg_debug_pub.Add('HZ_PARTY_V2PUB.update_person - ' || l_ret_status || ' - ' || l_msg_data ,1);
1534: itg_debug_pub.Add('l_obj_ver_num - ' || l_msg_count,1);
1535: itg_debug_pub.Add('l_profile_id - ' || l_obj_ver_num,1);
1536: itg_debug_pub.Add('l_msg_count - ' || l_profile_id,1 );
1537:
1538: END IF;
1539:
1540: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1544:
1545: END IF;
1546:
1547: IF (l_Debug_Level <= 1) THEN
1548: itg_debug_pub.Add('Committing work' ,1);
1549: END IF;
1550:
1551: COMMIT WORK;
1552:
1550:
1551: COMMIT WORK;
1552:
1553: IF (l_Debug_Level <= 2) THEN
1554: itg_debug_pub.Add('EXTING - Sync_VendorContact', 2);
1555: END IF;
1556:
1557:
1558: EXCEPTION
1562: x_return_status := FND_API.G_RET_STS_ERROR;
1563: ITG_msg.checked_error(g_action);
1564: itg_msg.vendor_contact_only;
1565: IF (l_Debug_Level <= 6) THEN
1566: itg_debug_pub.Add('EXTING - Sync_VendorContact :OTHER ERROR', 6);
1567: END IF;
1568:
1569:
1570: WHEN OTHERS THEN
1574: ITG_msg.unexpected_error(g_action);
1575: itg_msg.vendor_contact_only;
1576: itg_debug.msg('Unexpected error (VendorContact sync) - ' || substr(SQLERRM,1,255),true);
1577: IF (l_Debug_Level <= 6) THEN
1578: itg_debug_pub.Add('EXTING - Sync_VendorContact :OTHER ERROR', 6);
1579: END IF;
1580:
1581: END Sync_VendorContact;
1582: