140: x_msg_count => l_msg_count,
141: x_msg_data => l_msg_data);
142:
143:
144: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
145: --
146: --
147: IF l_msg_count > 0 THEN
148: --
155: );
156: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
157: End LOOP;
158: END IF;
159: RAISE FND_API.G_EXC_ERROR;
160: END IF;
161:
162: FND_FILE.Put_Line(FND_FILE.Log,'Calling Fixed Assets API');
163:
163:
164: -- Fixed Assets
165: FA_VendorMerge_GRP.Merge_Vendor(
166: p_api_version => 1.0
167: , p_init_msg_list => FND_API.G_FALSE
168: , p_commit => FND_API.G_FALSE
169: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
170: , x_return_status => l_return_status
171: , x_msg_count => l_msg_count
164: -- Fixed Assets
165: FA_VendorMerge_GRP.Merge_Vendor(
166: p_api_version => 1.0
167: , p_init_msg_list => FND_API.G_FALSE
168: , p_commit => FND_API.G_FALSE
169: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
170: , x_return_status => l_return_status
171: , x_msg_count => l_msg_count
172: , x_msg_data => l_msg_data
165: FA_VendorMerge_GRP.Merge_Vendor(
166: p_api_version => 1.0
167: , p_init_msg_list => FND_API.G_FALSE
168: , p_commit => FND_API.G_FALSE
169: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
170: , x_return_status => l_return_status
171: , x_msg_count => l_msg_count
172: , x_msg_data => l_msg_data
173: , p_vendor_id => l_invoice_row.C_Vendor_Id
181: , p_segment1 => l_invoice_row.C_New_Vendor_Number
182: , p_dup_segment1 => l_invoice_row.C_Old_Vendor_Number
183: , p_vendor_name => l_invoice_row.C_Vendor_Name);
184:
185: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
186: --
187: --
188: IF l_msg_count > 0 THEN
189: --
196: );
197: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
198: End LOOP;
199: END IF;
200: RAISE FND_API.G_EXC_ERROR;
201: END IF;
202:
203: FND_FILE.Put_Line(FND_FILE.Log,'Calling Trade Management API');
204:
204:
205: -- Trade Management
206: OZF_VENDORMERGE_GRP.Merge_Vendor(
207: p_api_version => 1.0
208: , p_init_msg_list => FND_API.G_FALSE
209: , p_commit => FND_API.G_FALSE
210: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
211: , p_return_status => l_return_status
212: , p_msg_count => l_msg_count
205: -- Trade Management
206: OZF_VENDORMERGE_GRP.Merge_Vendor(
207: p_api_version => 1.0
208: , p_init_msg_list => FND_API.G_FALSE
209: , p_commit => FND_API.G_FALSE
210: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
211: , p_return_status => l_return_status
212: , p_msg_count => l_msg_count
213: , p_msg_data => l_msg_data
206: OZF_VENDORMERGE_GRP.Merge_Vendor(
207: p_api_version => 1.0
208: , p_init_msg_list => FND_API.G_FALSE
209: , p_commit => FND_API.G_FALSE
210: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
211: , p_return_status => l_return_status
212: , p_msg_count => l_msg_count
213: , p_msg_data => l_msg_data
214: , p_vendor_id => l_invoice_row.C_Vendor_Id
219: , p_dup_party_id => l_invoice_row.C_Dup_Party_Id
220: , p_party_site_id => l_invoice_row.C_Party_Site_Id
221: , p_dup_party_site_id => l_invoice_row.C_Dup_Party_Site_Id);
222:
223: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
224: --
225: --
226: IF l_msg_count > 0 THEN
227: --
234: );
235: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
236: End LOOP;
237: END IF;
238: RAISE FND_API.G_EXC_ERROR;
239: END IF;
240:
241: FND_FILE.Put_Line(FND_FILE.Log,'Calling CMRO API');
242:
242:
243: -- Complex Maintenance Repair and Overhaul
244: AHL_VENDORMERGE_GRP.Merge_Vendor(
245: p_api_version => 1.0
246: , p_init_msg_list => FND_API.G_FALSE
247: , p_commit => FND_API.G_FALSE
248: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
249: , x_return_status => l_return_status
250: , x_msg_count => l_msg_count
243: -- Complex Maintenance Repair and Overhaul
244: AHL_VENDORMERGE_GRP.Merge_Vendor(
245: p_api_version => 1.0
246: , p_init_msg_list => FND_API.G_FALSE
247: , p_commit => FND_API.G_FALSE
248: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
249: , x_return_status => l_return_status
250: , x_msg_count => l_msg_count
251: , x_msg_data => l_msg_data
244: AHL_VENDORMERGE_GRP.Merge_Vendor(
245: p_api_version => 1.0
246: , p_init_msg_list => FND_API.G_FALSE
247: , p_commit => FND_API.G_FALSE
248: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
249: , x_return_status => l_return_status
250: , x_msg_count => l_msg_count
251: , x_msg_data => l_msg_data
252: , p_vendor_id => l_invoice_row.C_Vendor_Id
257: , p_dup_party_id => l_invoice_row.C_Dup_Party_Id
258: , p_party_site_id => l_invoice_row.C_Party_Site_Id
259: , p_dup_party_site_id => l_invoice_row.C_Dup_Party_Site_Id);
260:
261: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
262: --
263: --
264: IF l_msg_count > 0 THEN
265: --
272: );
273: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
274: End LOOP;
275: END IF;
276: RAISE FND_API.G_EXC_ERROR;
277: END IF;
278:
279: FND_FILE.Put_Line(FND_FILE.Log,'Calling Netting API');
280:
280:
281: -- Netting
282: FUN_VENDORMERGE_GRP.Merge_Vendor(
283: p_api_version => 1.0
284: , p_init_msg_list => FND_API.G_FALSE
285: , p_commit => FND_API.G_FALSE
286: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
287: , p_return_status => l_return_status
288: , p_msg_count => l_msg_count
281: -- Netting
282: FUN_VENDORMERGE_GRP.Merge_Vendor(
283: p_api_version => 1.0
284: , p_init_msg_list => FND_API.G_FALSE
285: , p_commit => FND_API.G_FALSE
286: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
287: , p_return_status => l_return_status
288: , p_msg_count => l_msg_count
289: , p_msg_data => l_msg_data
282: FUN_VENDORMERGE_GRP.Merge_Vendor(
283: p_api_version => 1.0
284: , p_init_msg_list => FND_API.G_FALSE
285: , p_commit => FND_API.G_FALSE
286: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
287: , p_return_status => l_return_status
288: , p_msg_count => l_msg_count
289: , p_msg_data => l_msg_data
290: , p_vendor_id => l_invoice_row.C_Vendor_Id
291: , p_dup_vendor_id => l_invoice_row.C_Dup_Vendor_Id
292: , p_vendor_site_id => l_invoice_row.C_Vendor_Site_Id
293: , p_dup_vendor_site_id => l_invoice_row.C_Dup_Vendor_Site_Id);
294:
295: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
296: --
297: --
298: IF l_msg_count > 0 THEN
299: --
306: );
307: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
308: End LOOP;
309: END IF;
310: RAISE FND_API.G_EXC_ERROR;
311: END IF;
312:
313: FND_FILE.Put_Line(FND_FILE.Log,'Calling iRecruitment API');
314:
314:
315: -- iRecruitment
316: IRC_VENDORMERGE_GRP.Merge_Vendor(
317: p_api_version => 1.0
318: , p_init_msg_list => FND_API.G_FALSE
319: , p_commit => FND_API.G_FALSE
320: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
321: , p_return_status => l_return_status
322: , p_msg_count => l_msg_count
315: -- iRecruitment
316: IRC_VENDORMERGE_GRP.Merge_Vendor(
317: p_api_version => 1.0
318: , p_init_msg_list => FND_API.G_FALSE
319: , p_commit => FND_API.G_FALSE
320: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
321: , p_return_status => l_return_status
322: , p_msg_count => l_msg_count
323: , p_msg_data => l_msg_data
316: IRC_VENDORMERGE_GRP.Merge_Vendor(
317: p_api_version => 1.0
318: , p_init_msg_list => FND_API.G_FALSE
319: , p_commit => FND_API.G_FALSE
320: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
321: , p_return_status => l_return_status
322: , p_msg_count => l_msg_count
323: , p_msg_data => l_msg_data
324: , p_vendor_id => l_invoice_row.C_Vendor_Id
329: , p_dup_party_id => l_invoice_row.C_Dup_Party_Id
330: , p_party_site_id => l_invoice_row.C_Party_Site_Id
331: , p_dup_party_site_id => l_invoice_row.C_Dup_Party_Site_Id);
332:
333: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
334: --
335: --
336: IF l_msg_count > 0 THEN
337: --
344: );
345: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
346: End LOOP;
347: END IF;
348: RAISE FND_API.G_EXC_ERROR;
349: END IF;
350:
351: -- Bug 6018743. Added the call to Oracle Loans API.
352: FND_FILE.Put_Line(FND_FILE.Log,'Calling OKL API');
353:
354: --Oracle Loans
355: OKL_VENDORMERGE_GRP.Merge_Vendor(
356: p_api_version => 1.0
357: , p_init_msg_list => FND_API.G_FALSE
358: , p_commit => FND_API.G_FALSE
359: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
360: , p_return_status => l_return_status
361: , p_msg_count => l_msg_count
354: --Oracle Loans
355: OKL_VENDORMERGE_GRP.Merge_Vendor(
356: p_api_version => 1.0
357: , p_init_msg_list => FND_API.G_FALSE
358: , p_commit => FND_API.G_FALSE
359: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
360: , p_return_status => l_return_status
361: , p_msg_count => l_msg_count
362: , p_msg_data => l_msg_data
355: OKL_VENDORMERGE_GRP.Merge_Vendor(
356: p_api_version => 1.0
357: , p_init_msg_list => FND_API.G_FALSE
358: , p_commit => FND_API.G_FALSE
359: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
360: , p_return_status => l_return_status
361: , p_msg_count => l_msg_count
362: , p_msg_data => l_msg_data
363: , p_vendor_id => l_invoice_row.C_Vendor_Id
368: , p_dup_party_id => l_invoice_row.C_Dup_Party_Id
369: , p_party_site_id => l_invoice_row.C_Party_Site_Id
370: , p_dup_party_site_id => l_invoice_row.C_Dup_Party_Site_Id);
371:
372: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
373: --
374: --
375: IF l_msg_count > 0 THEN
376: --
383: );
384: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
385: End LOOP;
386: END IF;
387: RAISE FND_API.G_EXC_ERROR;
388: END IF;
389: -- Bug 6018743 ends.
390:
391: -- Bug6679421 . Added the call to Oracle Price Protection (DPP) API.
393: FND_FILE.Put_Line(FND_FILE.Log,'Calling DPP API');
394:
395: DPP_VENDORMERGE_GRP.Merge_Vendor(
396: p_api_version => 1.0
397: , p_init_msg_list => FND_API.G_FALSE
398: , p_commit => FND_API.G_FALSE
399: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
400: , p_return_status => l_return_status
401: , p_msg_count => l_msg_count
394:
395: DPP_VENDORMERGE_GRP.Merge_Vendor(
396: p_api_version => 1.0
397: , p_init_msg_list => FND_API.G_FALSE
398: , p_commit => FND_API.G_FALSE
399: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
400: , p_return_status => l_return_status
401: , p_msg_count => l_msg_count
402: , p_msg_data => l_msg_data
395: DPP_VENDORMERGE_GRP.Merge_Vendor(
396: p_api_version => 1.0
397: , p_init_msg_list => FND_API.G_FALSE
398: , p_commit => FND_API.G_FALSE
399: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
400: , p_return_status => l_return_status
401: , p_msg_count => l_msg_count
402: , p_msg_data => l_msg_data
403: , p_vendor_id => l_invoice_row.C_Vendor_Id
408: , p_dup_party_id => l_invoice_row.C_Dup_Party_Id
409: , p_party_site_id => l_invoice_row.C_Party_Site_Id
410: , p_dup_party_site_id => l_invoice_row.C_Dup_Party_Site_Id);
411:
412: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
413: --
414: --
415: IF l_msg_count > 0 THEN
416: --
423: );
424: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
425: End LOOP;
426: END IF;
427: RAISE FND_API.G_EXC_ERROR;
428: END IF;
429: --Bug6679421 ends.
430:
431: FND_FILE.Put_Line(FND_FILE.Log,'Invoices: Complete');
471: x_return_status => l_return_status,
472: x_msg_count => l_msg_count,
473: x_msg_data => l_msg_data);
474:
475: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
476: --
477: --
478: IF l_msg_count > 0 THEN
479: --
486: );
487: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
488: End LOOP;
489: END IF;
490: RAISE FND_API.G_EXC_ERROR;
491: END IF;
492:
493: FND_FILE.Put_Line(FND_FILE.Log,'PO: Calling MRP API');
494:
494:
495: -- MRP
496: MRP_VendorMerge_GRP.Merge_Vendor(
497: p_api_version => 1.0
498: , p_init_msg_list => FND_API.G_FALSE
499: , p_commit => FND_API.G_FALSE
500: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
501: , x_return_status => l_return_status
502: , x_msg_count => l_msg_count
495: -- MRP
496: MRP_VendorMerge_GRP.Merge_Vendor(
497: p_api_version => 1.0
498: , p_init_msg_list => FND_API.G_FALSE
499: , p_commit => FND_API.G_FALSE
500: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
501: , x_return_status => l_return_status
502: , x_msg_count => l_msg_count
503: , x_msg_data => l_msg_data
496: MRP_VendorMerge_GRP.Merge_Vendor(
497: p_api_version => 1.0
498: , p_init_msg_list => FND_API.G_FALSE
499: , p_commit => FND_API.G_FALSE
500: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
501: , x_return_status => l_return_status
502: , x_msg_count => l_msg_count
503: , x_msg_data => l_msg_data
504: , p_vendor_id => l_po_row.C_Vendor_Id
505: , p_vendor_site_id => l_po_row.C_Vendor_Site_Id
506: , p_dup_vendor_id => l_po_row.C_Dup_Vendor_Id
507: , p_dup_vendor_site_id => l_po_row.C_Dup_Vendor_Site_Id);
508:
509: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
510: --
511: --
512: IF l_msg_count > 0 THEN
513: --
520: );
521: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
522: END LOOP;
523: END IF;
524: RAISE FND_API.G_EXC_ERROR;
525: END IF;
526:
527: FND_FILE.Put_Line(FND_FILE.Log,'PO: Calling Sourcing API');
528:
536: , p_party_id => l_po_row.C_Party_Id
537: , p_dup_party_id => l_po_row.C_Dup_Party_Id
538: , p_party_site_id => l_po_row.C_Party_Site_Id
539: , p_dup_party_site_id => l_po_row.C_Dup_Party_Site_Id
540: , p_init_msg_list => FND_API.G_FALSE
541: , p_commit => FND_API.G_FALSE
542: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
543: , p_return_status => l_return_status
544: , p_msg_count => l_msg_count
537: , p_dup_party_id => l_po_row.C_Dup_Party_Id
538: , p_party_site_id => l_po_row.C_Party_Site_Id
539: , p_dup_party_site_id => l_po_row.C_Dup_Party_Site_Id
540: , p_init_msg_list => FND_API.G_FALSE
541: , p_commit => FND_API.G_FALSE
542: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
543: , p_return_status => l_return_status
544: , p_msg_count => l_msg_count
545: , p_msg_data => l_msg_data);
538: , p_party_site_id => l_po_row.C_Party_Site_Id
539: , p_dup_party_site_id => l_po_row.C_Dup_Party_Site_Id
540: , p_init_msg_list => FND_API.G_FALSE
541: , p_commit => FND_API.G_FALSE
542: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
543: , p_return_status => l_return_status
544: , p_msg_count => l_msg_count
545: , p_msg_data => l_msg_data);
546:
543: , p_return_status => l_return_status
544: , p_msg_count => l_msg_count
545: , p_msg_data => l_msg_data);
546:
547: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
548: --
549: --
550: IF l_msg_count > 0 THEN
551: --
558: );
559: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
560: END LOOP;
561: END IF;
562: RAISE FND_API.G_EXC_ERROR;
563: END IF;
564:
565: FND_FILE.Put_Line(FND_FILE.Log,'PO: Calling iSP API');
566:
566:
567: -- iSupplier Portal
568: POS_VENDORMERGE_GRP.merge_vendor (
569: p_api_version => 1.0,
570: p_init_msg_list => fnd_api.g_false,
571: p_commit => fnd_api.g_false,
572: p_validation_level => fnd_api.g_valid_level_full,
573: p_return_status => l_return_status,
574: p_msg_count => l_msg_count,
567: -- iSupplier Portal
568: POS_VENDORMERGE_GRP.merge_vendor (
569: p_api_version => 1.0,
570: p_init_msg_list => fnd_api.g_false,
571: p_commit => fnd_api.g_false,
572: p_validation_level => fnd_api.g_valid_level_full,
573: p_return_status => l_return_status,
574: p_msg_count => l_msg_count,
575: p_msg_data => l_msg_data,
568: POS_VENDORMERGE_GRP.merge_vendor (
569: p_api_version => 1.0,
570: p_init_msg_list => fnd_api.g_false,
571: p_commit => fnd_api.g_false,
572: p_validation_level => fnd_api.g_valid_level_full,
573: p_return_status => l_return_status,
574: p_msg_count => l_msg_count,
575: p_msg_data => l_msg_data,
576: p_vendor_id => l_po_row.C_Vendor_Id,
581: p_dup_party_id => l_po_row.C_Dup_Party_Id,
582: p_party_site_id => l_po_row.C_Party_Site_Id,
583: p_dup_party_site_id => l_po_row.C_Dup_Party_Site_Id);
584:
585: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
586: --
587: --
588: IF l_msg_count > 0 THEN
589: --
596: );
597: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
598: END LOOP;
599: END IF;
600: RAISE FND_API.G_EXC_ERROR;
601: END IF;
602:
603: FND_FILE.Put_Line(FND_FILE.Log,'PO: Calling Procurement API');
604:
604:
605: -- Procurement
606: PO_VENDORMERGE_GRP.merge_vendor (
607: p_api_version => 1.0,
608: p_init_msg_list => fnd_api.g_false,
609: p_commit => fnd_api.g_false,
610: p_validation_level => fnd_api.g_valid_level_full,
611: x_return_status => l_return_status,
612: x_msg_count => l_msg_count,
605: -- Procurement
606: PO_VENDORMERGE_GRP.merge_vendor (
607: p_api_version => 1.0,
608: p_init_msg_list => fnd_api.g_false,
609: p_commit => fnd_api.g_false,
610: p_validation_level => fnd_api.g_valid_level_full,
611: x_return_status => l_return_status,
612: x_msg_count => l_msg_count,
613: x_msg_data => l_msg_data,
606: PO_VENDORMERGE_GRP.merge_vendor (
607: p_api_version => 1.0,
608: p_init_msg_list => fnd_api.g_false,
609: p_commit => fnd_api.g_false,
610: p_validation_level => fnd_api.g_valid_level_full,
611: x_return_status => l_return_status,
612: x_msg_count => l_msg_count,
613: x_msg_data => l_msg_data,
614: p_vendor_id => l_po_row.C_Vendor_Id,
619: p_dup_party_id => l_po_row.C_Dup_Party_Id,
620: p_party_site_id => l_po_row.C_Party_Site_Id,
621: p_dup_party_site_id => l_po_row.C_Dup_Party_Site_Id);
622:
623: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
624: --
625: --
626: IF l_msg_count > 0 THEN
627: --
634: );
635: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
636: END LOOP;
637: END IF;
638: RAISE FND_API.G_EXC_ERROR;
639: END IF;
640:
641: FND_FILE.Put_Line(FND_FILE.Log,'PO: Complete');
642: -- Bug 7592393 Start. Call to update receiving tables
642: -- Bug 7592393 Start. Call to update receiving tables
643: FND_FILE.Put_Line(FND_FILE.Log,'PO: Calling Receiving API');
644:
645: -- Receiving
646: RCV_UTILITIES.Merge_Vendor ( p_commit => fnd_api.g_false,
647: x_return_status => l_return_status,
648: x_msg_count => l_msg_count,
649: x_msg_data => l_msg_data,
650: p_vendor_id => l_po_row.C_Vendor_Id,
652: p_dup_vendor_id => l_po_row.C_Dup_Vendor_Id,
653: p_dup_vendor_site_id => l_po_row.C_Dup_Vendor_Site_Id);
654:
655:
656: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
657: IF l_msg_count > 0 THEN
658: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
659: FND_MSG_PUB.Get( p_msg_index => i,
660: p_encoded => 'F',
663: );
664: FND_FILE.Put_Line(FND_FILE.Log,l_msg_data);
665: END LOOP;
666: END IF;
667: RAISE FND_API.G_EXC_ERROR;
668: END IF;
669: -- Bug 7592393 End.
670:
671:
673: CLOSE PO_Cursor;
674: --
675:
676: EXCEPTION
677: WHEN FND_API.G_EXC_ERROR THEN
678: FND_MSG_PUB.Count_And_Get
679: ( p_count => l_msg_count,
680: p_data => l_msg_data
681: );
689:
690: ROLLBACK;
691: APP_EXCEPTION.RAISE_EXCEPTION;
692:
693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
694: FND_MSG_PUB.Count_And_Get
695: ( p_count => l_msg_count,
696: p_data => l_msg_data
697: );
974: relationship_id = l_relationship_id,
975: party_site_id = l_party_site_id
976: WHERE vendor_contact_id = contact_loop_c.vendor_contact_id;
977:
978: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
979: IF x_msg_count > 0 THEN
980: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
981: FND_MSG_PUB.Get( p_msg_index => i,
982: p_encoded => 'F',
985: );
986: FND_FILE.Put_Line(FND_FILE.Log,x_msg_data);
987: END LOOP;
988: END IF;
989: RAISE FND_API.G_EXC_ERROR;
990: END IF;
991:
992: FND_FILE.Put_Line(FND_FILE.Log,'End AP_VENDOR_PARTY_MERGE_PKG.AP_TCA_Contact_Merge API call');
993: