2: /* $Header: apvdmrgb.pls 120.22.12020000.2 2012/07/13 19:42:51 mkmeda ship $ */
3:
4: --Global constants for logging
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_VENDOR_PARTY_MERGE_PKG';
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
3:
4: --Global constants for logging
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_VENDOR_PARTY_MERGE_PKG';
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
11: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
4: --Global constants for logging
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_VENDOR_PARTY_MERGE_PKG';
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
11: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
12: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_VENDOR_PARTY_MERGE_PKG';
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
11: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
12: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
13:
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
11: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
12: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
13:
14: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
11: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
12: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
13:
14: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
15: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
220: --
221: IF l_msg_count > 0 THEN
222: --
223: --
224: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
225: FND_MSG_PUB.Get( p_msg_index => i,
226: p_encoded => 'F',
227: p_data => l_msg_data,
228: p_msg_index_out => l_msg_index_out
221: IF l_msg_count > 0 THEN
222: --
223: --
224: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
225: FND_MSG_PUB.Get( p_msg_index => i,
226: p_encoded => 'F',
227: p_data => l_msg_data,
228: p_msg_index_out => l_msg_index_out
229: );
343: --
344: IF l_msg_count > 0 THEN
345: --
346: --
347: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
348: FND_MSG_PUB.Get( p_msg_index => i,
349: p_encoded => 'F',
350: p_data => l_msg_data,
351: p_msg_index_out => l_msg_index_out
344: IF l_msg_count > 0 THEN
345: --
346: --
347: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
348: FND_MSG_PUB.Get( p_msg_index => i,
349: p_encoded => 'F',
350: p_data => l_msg_data,
351: p_msg_index_out => l_msg_index_out
352: );
384: --
385: IF l_msg_count > 0 THEN
386: --
387: --
388: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
389: FND_MSG_PUB.Get( p_msg_index => i,
390: p_encoded => 'F',
391: p_data => l_msg_data,
392: p_msg_index_out => l_msg_index_out
385: IF l_msg_count > 0 THEN
386: --
387: --
388: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
389: FND_MSG_PUB.Get( p_msg_index => i,
390: p_encoded => 'F',
391: p_data => l_msg_data,
392: p_msg_index_out => l_msg_index_out
393: );
422: --
423: IF l_msg_count > 0 THEN
424: --
425: --
426: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
427: FND_MSG_PUB.Get( p_msg_index => i,
428: p_encoded => 'F',
429: p_data => l_msg_data,
430: p_msg_index_out => l_msg_index_out
423: IF l_msg_count > 0 THEN
424: --
425: --
426: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
427: FND_MSG_PUB.Get( p_msg_index => i,
428: p_encoded => 'F',
429: p_data => l_msg_data,
430: p_msg_index_out => l_msg_index_out
431: );
460: --
461: IF l_msg_count > 0 THEN
462: --
463: --
464: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
465: FND_MSG_PUB.Get( p_msg_index => i,
466: p_encoded => 'F',
467: p_data => l_msg_data,
468: p_msg_index_out => l_msg_index_out
461: IF l_msg_count > 0 THEN
462: --
463: --
464: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
465: FND_MSG_PUB.Get( p_msg_index => i,
466: p_encoded => 'F',
467: p_data => l_msg_data,
468: p_msg_index_out => l_msg_index_out
469: );
494: --
495: IF l_msg_count > 0 THEN
496: --
497: --
498: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
499: FND_MSG_PUB.Get( p_msg_index => i,
500: p_encoded => 'F',
501: p_data => l_msg_data,
502: p_msg_index_out => l_msg_index_out
495: IF l_msg_count > 0 THEN
496: --
497: --
498: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
499: FND_MSG_PUB.Get( p_msg_index => i,
500: p_encoded => 'F',
501: p_data => l_msg_data,
502: p_msg_index_out => l_msg_index_out
503: );
532: --
533: IF l_msg_count > 0 THEN
534: --
535: --
536: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
537: FND_MSG_PUB.Get( p_msg_index => i,
538: p_encoded => 'F',
539: p_data => l_msg_data,
540: p_msg_index_out => l_msg_index_out
533: IF l_msg_count > 0 THEN
534: --
535: --
536: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
537: FND_MSG_PUB.Get( p_msg_index => i,
538: p_encoded => 'F',
539: p_data => l_msg_data,
540: p_msg_index_out => l_msg_index_out
541: );
571: --
572: IF l_msg_count > 0 THEN
573: --
574: --
575: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
576: FND_MSG_PUB.Get( p_msg_index => i,
577: p_encoded => 'F',
578: p_data => l_msg_data,
579: p_msg_index_out => l_msg_index_out
572: IF l_msg_count > 0 THEN
573: --
574: --
575: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
576: FND_MSG_PUB.Get( p_msg_index => i,
577: p_encoded => 'F',
578: p_data => l_msg_data,
579: p_msg_index_out => l_msg_index_out
580: );
612: --
613: IF l_msg_count > 0 THEN
614: --
615: --
616: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
617: FND_MSG_PUB.Get( p_msg_index => i,
618: p_encoded => 'F',
619: p_data => l_msg_data,
620: p_msg_index_out => l_msg_index_out
613: IF l_msg_count > 0 THEN
614: --
615: --
616: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
617: FND_MSG_PUB.Get( p_msg_index => i,
618: p_encoded => 'F',
619: p_data => l_msg_data,
620: p_msg_index_out => l_msg_index_out
621: );
675: --
676: IF l_msg_count > 0 THEN
677: --
678: --
679: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
680: FND_MSG_PUB.Get( p_msg_index => i,
681: p_encoded => 'F',
682: p_data => l_msg_data,
683: p_msg_index_out => l_msg_index_out
676: IF l_msg_count > 0 THEN
677: --
678: --
679: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
680: FND_MSG_PUB.Get( p_msg_index => i,
681: p_encoded => 'F',
682: p_data => l_msg_data,
683: p_msg_index_out => l_msg_index_out
684: );
709: --
710: IF l_msg_count > 0 THEN
711: --
712: --
713: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
714: FND_MSG_PUB.Get( p_msg_index => i,
715: p_encoded => 'F',
716: p_data => l_msg_data,
717: p_msg_index_out => l_msg_index_out
710: IF l_msg_count > 0 THEN
711: --
712: --
713: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
714: FND_MSG_PUB.Get( p_msg_index => i,
715: p_encoded => 'F',
716: p_data => l_msg_data,
717: p_msg_index_out => l_msg_index_out
718: );
747: --
748: IF l_msg_count > 0 THEN
749: --
750: --
751: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
752: FND_MSG_PUB.Get( p_msg_index => i,
753: p_encoded => 'F',
754: p_data => l_msg_data,
755: p_msg_index_out => l_msg_index_out
748: IF l_msg_count > 0 THEN
749: --
750: --
751: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
752: FND_MSG_PUB.Get( p_msg_index => i,
753: p_encoded => 'F',
754: p_data => l_msg_data,
755: p_msg_index_out => l_msg_index_out
756: );
785: --
786: IF l_msg_count > 0 THEN
787: --
788: --
789: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
790: FND_MSG_PUB.Get( p_msg_index => i,
791: p_encoded => 'F',
792: p_data => l_msg_data,
793: p_msg_index_out => l_msg_index_out
786: IF l_msg_count > 0 THEN
787: --
788: --
789: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
790: FND_MSG_PUB.Get( p_msg_index => i,
791: p_encoded => 'F',
792: p_data => l_msg_data,
793: p_msg_index_out => l_msg_index_out
794: );
823: --
824: IF l_msg_count > 0 THEN
825: --
826: --
827: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
828: FND_MSG_PUB.Get( p_msg_index => i,
829: p_encoded => 'F',
830: p_data => l_msg_data,
831: p_msg_index_out => l_msg_index_out
824: IF l_msg_count > 0 THEN
825: --
826: --
827: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
828: FND_MSG_PUB.Get( p_msg_index => i,
829: p_encoded => 'F',
830: p_data => l_msg_data,
831: p_msg_index_out => l_msg_index_out
832: );
852:
853:
854: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
855: IF l_msg_count > 0 THEN
856: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
857: FND_MSG_PUB.Get( p_msg_index => i,
858: p_encoded => 'F',
859: p_data => l_msg_data,
860: p_msg_index_out => l_msg_index_out
853:
854: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
855: IF l_msg_count > 0 THEN
856: FOR i in 1..FND_MSG_PUB.Count_Msg LOOP
857: FND_MSG_PUB.Get( p_msg_index => i,
858: p_encoded => 'F',
859: p_data => l_msg_data,
860: p_msg_index_out => l_msg_index_out
861: );
872: --
873:
874: EXCEPTION
875: WHEN FND_API.G_EXC_ERROR THEN
876: FND_MSG_PUB.Count_And_Get
877: ( p_count => l_msg_count,
878: p_data => l_msg_data
879: );
880: IF Invoice_Cursor%ISOPEN THEN
888: ROLLBACK;
889: APP_EXCEPTION.RAISE_EXCEPTION;
890:
891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
892: FND_MSG_PUB.Count_And_Get
893: ( p_count => l_msg_count,
894: p_data => l_msg_data
895: );
896: IF Invoice_Cursor%ISOPEN THEN
904: ROLLBACK;
905: APP_EXCEPTION.RAISE_EXCEPTION;
906:
907: WHEN OTHERS THEN
908: IF FND_MSG_PUB.Check_Msg_Level
909: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
910: FND_MSG_PUB.Add_Exc_Msg
911: ( G_PKG_NAME ,
912: 'AP_VENDOR_PARTY_MERGE_PKG.Other_Products_VendorMerge'
905: APP_EXCEPTION.RAISE_EXCEPTION;
906:
907: WHEN OTHERS THEN
908: IF FND_MSG_PUB.Check_Msg_Level
909: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
910: FND_MSG_PUB.Add_Exc_Msg
911: ( G_PKG_NAME ,
912: 'AP_VENDOR_PARTY_MERGE_PKG.Other_Products_VendorMerge'
913: );
906:
907: WHEN OTHERS THEN
908: IF FND_MSG_PUB.Check_Msg_Level
909: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
910: FND_MSG_PUB.Add_Exc_Msg
911: ( G_PKG_NAME ,
912: 'AP_VENDOR_PARTY_MERGE_PKG.Other_Products_VendorMerge'
913: );
914: END IF;
911: ( G_PKG_NAME ,
912: 'AP_VENDOR_PARTY_MERGE_PKG.Other_Products_VendorMerge'
913: );
914: END IF;
915: FND_MSG_PUB.Count_And_Get
916: ( p_count => l_msg_count,
917: p_data => l_msg_data
918: );
919: IF (SQLCODE <> -20001) THEN
1125: FND_FILE.Put_Line(FND_FILE.Log,'Inside if clause after calling hz_party_contact_v2pub.create_org_contact');
1126:
1127: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1128: IF x_msg_count > 0 THEN
1129: FOR i IN 1.. fnd_msg_pub.count_msg LOOP
1130: fnd_msg_pub.Get(p_msg_index => i,p_encoded => 'F',p_data => x_msg_data,
1131: p_msg_index_out => l_msg_index_out);
1132:
1133: FND_FILE.Put_Line(FND_FILE.Log,x_msg_data||' for Vendor contact : '||contact_loop_c.vendor_contact_id);
1126:
1127: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1128: IF x_msg_count > 0 THEN
1129: FOR i IN 1.. fnd_msg_pub.count_msg LOOP
1130: fnd_msg_pub.Get(p_msg_index => i,p_encoded => 'F',p_data => x_msg_data,
1131: p_msg_index_out => l_msg_index_out);
1132:
1133: FND_FILE.Put_Line(FND_FILE.Log,x_msg_data||' for Vendor contact : '||contact_loop_c.vendor_contact_id);
1134: END LOOP;
1149: FND_FILE.Put_Line(FND_FILE.Log,'Inside else clause after calling hz_relationship_v2pub.create_relationship');
1150:
1151: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1152: IF x_msg_count > 0 THEN
1153: FOR i IN 1.. fnd_msg_pub.count_msg LOOP
1154: fnd_msg_pub.Get(p_msg_index => i,p_encoded => 'F',p_data => x_msg_data,
1155: p_msg_index_out => l_msg_index_out);
1156:
1157: FND_FILE.Put_Line(FND_FILE.Log,'Error : '||x_msg_data);
1150:
1151: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1152: IF x_msg_count > 0 THEN
1153: FOR i IN 1.. fnd_msg_pub.count_msg LOOP
1154: fnd_msg_pub.Get(p_msg_index => i,p_encoded => 'F',p_data => x_msg_data,
1155: p_msg_index_out => l_msg_index_out);
1156:
1157: FND_FILE.Put_Line(FND_FILE.Log,'Error : '||x_msg_data);
1158: END LOOP;
1201: x_party_site_number => l_party_site_number);
1202:
1203: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1204: IF x_msg_count > 0 THEN
1205: FOR i IN 1.. fnd_msg_pub.count_msg LOOP
1206: fnd_msg_pub.Get(p_msg_index => i,p_encoded => 'F',p_data => x_msg_data,
1207: p_msg_index_out => l_msg_index_out);
1208:
1209: FND_FILE.Put_Line(FND_FILE.Log,'Error : '||x_msg_data);
1202:
1203: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1204: IF x_msg_count > 0 THEN
1205: FOR i IN 1.. fnd_msg_pub.count_msg LOOP
1206: fnd_msg_pub.Get(p_msg_index => i,p_encoded => 'F',p_data => x_msg_data,
1207: p_msg_index_out => l_msg_index_out);
1208:
1209: FND_FILE.Put_Line(FND_FILE.Log,'Error : '||x_msg_data);
1210: END LOOP;
1305: FND_FILE.Put_Line(FND_FILE.Log,'x_return_status: '||x_return_status);
1306:
1307: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1308: IF x_msg_count > 0 THEN
1309: FOR i IN 1.. fnd_msg_pub.count_msg LOOP
1310: fnd_msg_pub.Get(p_msg_index => i,p_encoded => 'F',p_data => x_msg_data,
1311: p_msg_index_out => l_msg_index_out);
1312: FND_FILE.Put_Line(FND_FILE.Log,'Error : '||x_msg_data);
1313: END LOOP;
1306:
1307: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1308: IF x_msg_count > 0 THEN
1309: FOR i IN 1.. fnd_msg_pub.count_msg LOOP
1310: fnd_msg_pub.Get(p_msg_index => i,p_encoded => 'F',p_data => x_msg_data,
1311: p_msg_index_out => l_msg_index_out);
1312: FND_FILE.Put_Line(FND_FILE.Log,'Error : '||x_msg_data);
1313: END LOOP;
1314: END IF;
1557: FND_FILE.Put_Line(FND_FILE.Log,'x_return_status: '||x_return_status);
1558:
1559: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1560: IF x_msg_count > 0 THEN
1561: FOR i IN 1.. fnd_msg_pub.count_msg LOOP
1562: fnd_msg_pub.Get(p_msg_index => i,p_encoded => 'F',p_data => x_msg_data,
1563: p_msg_index_out => l_msg_index_out);
1564: FND_FILE.Put_Line(FND_FILE.Log,'Error : '||x_msg_data);
1565: END LOOP;
1558:
1559: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1560: IF x_msg_count > 0 THEN
1561: FOR i IN 1.. fnd_msg_pub.count_msg LOOP
1562: fnd_msg_pub.Get(p_msg_index => i,p_encoded => 'F',p_data => x_msg_data,
1563: p_msg_index_out => l_msg_index_out);
1564: FND_FILE.Put_Line(FND_FILE.Log,'Error : '||x_msg_data);
1565: END LOOP;
1566: END IF;
1580: FND_FILE.Put_Line(FND_FILE.Log,'End AP_VENDOR_PARTY_MERGE_PKG.AP_TCA_Contact_Merge API call');
1581:
1582: EXCEPTION
1583: WHEN FND_API.G_EXC_ERROR THEN
1584: FND_MSG_PUB.Count_And_Get
1585: ( p_count => x_msg_count,
1586: p_data => x_msg_data
1587: );
1588:
1593: ROLLBACK;
1594: x_return_status := FND_API.G_RET_STS_ERROR;
1595:
1596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1597: FND_MSG_PUB.Count_And_Get
1598: ( p_count => x_msg_count,
1599: p_data => x_msg_data
1600: );
1601: IF c_contact_point%ISOPEN THEN
1605: ROLLBACK;
1606: APP_EXCEPTION.RAISE_EXCEPTION;
1607:
1608: WHEN OTHERS THEN
1609: IF FND_MSG_PUB.Check_Msg_Level
1610: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1611: FND_MSG_PUB.Add_Exc_Msg
1612: ( G_PKG_NAME ,
1613: 'AP_VENDOR_PARTY_MERGE_PKG.AP_TCA_Contact_Merge'
1606: APP_EXCEPTION.RAISE_EXCEPTION;
1607:
1608: WHEN OTHERS THEN
1609: IF FND_MSG_PUB.Check_Msg_Level
1610: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1611: FND_MSG_PUB.Add_Exc_Msg
1612: ( G_PKG_NAME ,
1613: 'AP_VENDOR_PARTY_MERGE_PKG.AP_TCA_Contact_Merge'
1614: );
1607:
1608: WHEN OTHERS THEN
1609: IF FND_MSG_PUB.Check_Msg_Level
1610: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1611: FND_MSG_PUB.Add_Exc_Msg
1612: ( G_PKG_NAME ,
1613: 'AP_VENDOR_PARTY_MERGE_PKG.AP_TCA_Contact_Merge'
1614: );
1615: END IF;
1612: ( G_PKG_NAME ,
1613: 'AP_VENDOR_PARTY_MERGE_PKG.AP_TCA_Contact_Merge'
1614: );
1615: END IF;
1616: FND_MSG_PUB.Count_And_Get
1617: ( p_count => x_msg_count,
1618: p_data => x_msg_data
1619: );
1620: IF (SQLCODE <> -20001) THEN