423:
424: x_to_id := l_to_id;
425: EXCEPTION
426: WHEN OTHERS THEN
427: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
428: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
429: FND_MSG_PUB.ADD;
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: END party_merge;
424: x_to_id := l_to_id;
425: EXCEPTION
426: WHEN OTHERS THEN
427: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
428: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
429: FND_MSG_PUB.ADD;
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: END party_merge;
432:
465:
466: x_to_id := l_to_id;
467: EXCEPTION
468: WHEN OTHERS THEN
469: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
470: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
471: FND_MSG_PUB.ADD;
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473: END org_profile_merge;
466: x_to_id := l_to_id;
467: EXCEPTION
468: WHEN OTHERS THEN
469: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
470: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
471: FND_MSG_PUB.ADD;
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473: END org_profile_merge;
474:
507:
508: x_to_id := l_to_id;
509: EXCEPTION
510: WHEN OTHERS THEN
511: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
512: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
513: FND_MSG_PUB.ADD;
514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
515: END party_relationship_merge;
508: x_to_id := l_to_id;
509: EXCEPTION
510: WHEN OTHERS THEN
511: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
512: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
513: FND_MSG_PUB.ADD;
514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
515: END party_relationship_merge;
516:
549:
550: x_to_id := l_to_id;
551: EXCEPTION
552: WHEN OTHERS THEN
553: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
554: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
555: FND_MSG_PUB.ADD;
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
557: END per_profile_merge;
550: x_to_id := l_to_id;
551: EXCEPTION
552: WHEN OTHERS THEN
553: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
554: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
555: FND_MSG_PUB.ADD;
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
557: END per_profile_merge;
558:
593:
594: x_to_id := l_to_id;
595: EXCEPTION
596: WHEN OTHERS THEN
597: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
598: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
599: FND_MSG_PUB.ADD;
600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
601: END party_usage_merge;
594: x_to_id := l_to_id;
595: EXCEPTION
596: WHEN OTHERS THEN
597: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
598: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
599: FND_MSG_PUB.ADD;
600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
601: END party_usage_merge;
602:
652:
653: x_to_id := l_to_id;
654: EXCEPTION
655: WHEN OTHERS THEN
656: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
657: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
658: FND_MSG_PUB.ADD;
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
660: END party_reln_subject_merge;
653: x_to_id := l_to_id;
654: EXCEPTION
655: WHEN OTHERS THEN
656: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
657: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
658: FND_MSG_PUB.ADD;
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
660: END party_reln_subject_merge;
661:
711:
712: x_to_id := l_to_id;
713: EXCEPTION
714: WHEN OTHERS THEN
715: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
716: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
717: FND_MSG_PUB.ADD;
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
719: END party_reln_object_merge;
712: x_to_id := l_to_id;
713: EXCEPTION
714: WHEN OTHERS THEN
715: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
716: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
717: FND_MSG_PUB.ADD;
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
719: END party_reln_object_merge;
720:
752:
753: x_to_id := l_to_id;
754: EXCEPTION
755: WHEN OTHERS THEN
756: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
757: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
758: FND_MSG_PUB.ADD;
759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
760: END org_contact_merge;
753: x_to_id := l_to_id;
754: EXCEPTION
755: WHEN OTHERS THEN
756: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
757: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
758: FND_MSG_PUB.ADD;
759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
760: END org_contact_merge;
761:
809:
810: x_to_id := l_to_id;
811: EXCEPTION
812: WHEN OTHERS THEN
813: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
814: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
815: FND_MSG_PUB.ADD;
816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
817: END org_contact_merge2;
810: x_to_id := l_to_id;
811: EXCEPTION
812: WHEN OTHERS THEN
813: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
814: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
815: FND_MSG_PUB.ADD;
816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
817: END org_contact_merge2;
818:
892:
893: x_to_id := l_to_id;
894: EXCEPTION
895: WHEN OTHERS THEN
896: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
897: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
898: FND_MSG_PUB.ADD;
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
900: END party_site_merge;
893: x_to_id := l_to_id;
894: EXCEPTION
895: WHEN OTHERS THEN
896: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
897: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
898: FND_MSG_PUB.ADD;
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
900: END party_site_merge;
901:
969:
970: x_to_id := l_to_id;
971: EXCEPTION
972: WHEN OTHERS THEN
973: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
974: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
975: FND_MSG_PUB.ADD;
976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
977: END cust_account_merge;
970: x_to_id := l_to_id;
971: EXCEPTION
972: WHEN OTHERS THEN
973: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
974: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
975: FND_MSG_PUB.ADD;
976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
977: END cust_account_merge;
978:
1021:
1022: x_to_id := l_to_id;
1023: EXCEPTION
1024: WHEN OTHERS THEN
1025: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1026: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1027: FND_MSG_PUB.ADD;
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: END cust_account_selling_merge;
1022: x_to_id := l_to_id;
1023: EXCEPTION
1024: WHEN OTHERS THEN
1025: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1026: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1027: FND_MSG_PUB.ADD;
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: END cust_account_selling_merge;
1030:
1068:
1069: x_to_id := l_to_id;
1070: EXCEPTION
1071: WHEN OTHERS THEN
1072: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1073: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1074: FND_MSG_PUB.ADD;
1075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1076: END cust_account_role_merge;
1069: x_to_id := l_to_id;
1070: EXCEPTION
1071: WHEN OTHERS THEN
1072: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1073: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1074: FND_MSG_PUB.ADD;
1075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1076: END cust_account_role_merge;
1077:
1117:
1118: x_to_id := l_to_id;
1119: EXCEPTION
1120: WHEN OTHERS THEN
1121: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1122: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1123: FND_MSG_PUB.ADD;
1124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1125: END cust_account_site_merge;
1118: x_to_id := l_to_id;
1119: EXCEPTION
1120: WHEN OTHERS THEN
1121: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1122: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1123: FND_MSG_PUB.ADD;
1124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1125: END cust_account_site_merge;
1126:
1195:
1196: x_to_id := l_to_id;
1197: EXCEPTION
1198: WHEN OTHERS THEN
1199: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1200: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1201: FND_MSG_PUB.ADD;
1202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1203: END financial_profile_merge;
1196: x_to_id := l_to_id;
1197: EXCEPTION
1198: WHEN OTHERS THEN
1199: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1200: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1201: FND_MSG_PUB.ADD;
1202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1203: END financial_profile_merge;
1204:
1288:
1289: x_to_id := l_to_id;
1290: EXCEPTION
1291: WHEN OTHERS THEN
1292: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1293: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1294: FND_MSG_PUB.ADD;
1295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1296: END contact_point_merge;
1289: x_to_id := l_to_id;
1290: EXCEPTION
1291: WHEN OTHERS THEN
1292: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1293: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1294: FND_MSG_PUB.ADD;
1295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1296: END contact_point_merge;
1297:
1367:
1368: x_to_id := l_to_id;
1369: EXCEPTION
1370: WHEN OTHERS THEN
1371: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1372: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1373: FND_MSG_PUB.ADD;
1374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1375: END references_merge;
1368: x_to_id := l_to_id;
1369: EXCEPTION
1370: WHEN OTHERS THEN
1371: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1372: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1373: FND_MSG_PUB.ADD;
1374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1375: END references_merge;
1376:
1447:
1448: x_to_id := l_to_id;
1449: EXCEPTION
1450: WHEN OTHERS THEN
1451: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1452: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1453: FND_MSG_PUB.ADD;
1454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1455: END certification_merge;
1448: x_to_id := l_to_id;
1449: EXCEPTION
1450: WHEN OTHERS THEN
1451: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1452: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1453: FND_MSG_PUB.ADD;
1454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1455: END certification_merge;
1456:
1496:
1497: x_to_id := l_to_id;
1498: EXCEPTION
1499: WHEN OTHERS THEN
1500: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1501: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1502: FND_MSG_PUB.ADD;
1503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1504: END credit_ratings_merge;
1497: x_to_id := l_to_id;
1498: EXCEPTION
1499: WHEN OTHERS THEN
1500: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1501: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1502: FND_MSG_PUB.ADD;
1503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1504: END credit_ratings_merge;
1505:
1547:
1548: x_to_id := l_to_id;
1549: EXCEPTION
1550: WHEN OTHERS THEN
1551: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1552: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1553: FND_MSG_PUB.ADD;
1554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1555: END security_issued_merge;
1548: x_to_id := l_to_id;
1549: EXCEPTION
1550: WHEN OTHERS THEN
1551: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1552: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1553: FND_MSG_PUB.ADD;
1554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1555: END security_issued_merge;
1556:
1596:
1597: x_to_id := l_to_id;
1598: EXCEPTION
1599: WHEN OTHERS THEN
1600: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1601: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1602: FND_MSG_PUB.ADD;
1603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1604: END financial_reports_merge;
1597: x_to_id := l_to_id;
1598: EXCEPTION
1599: WHEN OTHERS THEN
1600: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1601: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1602: FND_MSG_PUB.ADD;
1603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1604: END financial_reports_merge;
1605:
1646:
1647: x_to_id := l_to_id;
1648: EXCEPTION
1649: WHEN OTHERS THEN
1650: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1651: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1652: FND_MSG_PUB.ADD;
1653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1654: END org_indicators_merge;
1647: x_to_id := l_to_id;
1648: EXCEPTION
1649: WHEN OTHERS THEN
1650: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1651: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1652: FND_MSG_PUB.ADD;
1653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1654: END org_indicators_merge;
1655:
1695:
1696: x_to_id := l_to_id;
1697: EXCEPTION
1698: WHEN OTHERS THEN
1699: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1700: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1701: FND_MSG_PUB.ADD;
1702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1703: END org_ind_reference_merge;
1696: x_to_id := l_to_id;
1697: EXCEPTION
1698: WHEN OTHERS THEN
1699: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1700: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1701: FND_MSG_PUB.ADD;
1702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1703: END org_ind_reference_merge;
1704:
1745:
1746: x_to_id := l_to_id;
1747: EXCEPTION
1748: WHEN OTHERS THEN
1749: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1750: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1751: FND_MSG_PUB.ADD;
1752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1753: END per_interest_merge;
1746: x_to_id := l_to_id;
1747: EXCEPTION
1748: WHEN OTHERS THEN
1749: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1750: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1751: FND_MSG_PUB.ADD;
1752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1753: END per_interest_merge;
1754:
1794:
1795: x_to_id := l_to_id;
1796: EXCEPTION
1797: WHEN OTHERS THEN
1798: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1799: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1800: FND_MSG_PUB.ADD;
1801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1802: END citizenship_merge;
1795: x_to_id := l_to_id;
1796: EXCEPTION
1797: WHEN OTHERS THEN
1798: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1799: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1800: FND_MSG_PUB.ADD;
1801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1802: END citizenship_merge;
1803:
1843:
1844: x_to_id := l_to_id;
1845: EXCEPTION
1846: WHEN OTHERS THEN
1847: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1848: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1849: FND_MSG_PUB.ADD;
1850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1851: END education_merge;
1844: x_to_id := l_to_id;
1845: EXCEPTION
1846: WHEN OTHERS THEN
1847: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1848: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1849: FND_MSG_PUB.ADD;
1850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1851: END education_merge;
1852:
1892:
1893: x_to_id := l_to_id;
1894: EXCEPTION
1895: WHEN OTHERS THEN
1896: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1897: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1898: FND_MSG_PUB.ADD;
1899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1900: END education_school_merge;
1893: x_to_id := l_to_id;
1894: EXCEPTION
1895: WHEN OTHERS THEN
1896: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1897: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1898: FND_MSG_PUB.ADD;
1899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1900: END education_school_merge;
1901:
1941:
1942: x_to_id := l_to_id;
1943: EXCEPTION
1944: WHEN OTHERS THEN
1945: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1946: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1947: FND_MSG_PUB.ADD;
1948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1949: END emp_history_merge;
1942: x_to_id := l_to_id;
1943: EXCEPTION
1944: WHEN OTHERS THEN
1945: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1946: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1947: FND_MSG_PUB.ADD;
1948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1949: END emp_history_merge;
1950:
1990:
1991: x_to_id := l_to_id;
1992: EXCEPTION
1993: WHEN OTHERS THEN
1994: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1995: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1996: FND_MSG_PUB.ADD;
1997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1998: END emp_history_employed_merge;
1991: x_to_id := l_to_id;
1992: EXCEPTION
1993: WHEN OTHERS THEN
1994: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1995: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1996: FND_MSG_PUB.ADD;
1997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1998: END emp_history_employed_merge;
1999:
2039:
2040: x_to_id := l_to_id;
2041: EXCEPTION
2042: WHEN OTHERS THEN
2043: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2044: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2045: FND_MSG_PUB.ADD;
2046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2047: END work_class_merge;
2040: x_to_id := l_to_id;
2041: EXCEPTION
2042: WHEN OTHERS THEN
2043: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2044: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2045: FND_MSG_PUB.ADD;
2046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2047: END work_class_merge;
2048:
2088:
2089: x_to_id := l_to_id;
2090: EXCEPTION
2091: WHEN OTHERS THEN
2092: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2093: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2094: FND_MSG_PUB.ADD;
2095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2096: END code_assignment_merge;
2089: x_to_id := l_to_id;
2090: EXCEPTION
2091: WHEN OTHERS THEN
2092: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2093: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2094: FND_MSG_PUB.ADD;
2095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2096: END code_assignment_merge;
2097:
2137:
2138: x_to_id := l_to_id;
2139: EXCEPTION
2140: WHEN OTHERS THEN
2141: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2142: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2143: FND_MSG_PUB.ADD;
2144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2145: END code_assignment_merge2;
2138: x_to_id := l_to_id;
2139: EXCEPTION
2140: WHEN OTHERS THEN
2141: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2142: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2143: FND_MSG_PUB.ADD;
2144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2145: END code_assignment_merge2;
2146:
2186:
2187: x_to_id := l_to_id;
2188: EXCEPTION
2189: WHEN OTHERS THEN
2190: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2191: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2192: FND_MSG_PUB.ADD;
2193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2194: END org_contact_role_merge;
2187: x_to_id := l_to_id;
2188: EXCEPTION
2189: WHEN OTHERS THEN
2190: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2191: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2192: FND_MSG_PUB.ADD;
2193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2194: END org_contact_role_merge;
2195:
2235:
2236: x_to_id := l_to_id;
2237: EXCEPTION
2238: WHEN OTHERS THEN
2239: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2240: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2241: FND_MSG_PUB.ADD;
2242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2243: END financial_number_merge;
2236: x_to_id := l_to_id;
2237: EXCEPTION
2238: WHEN OTHERS THEN
2239: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2240: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2241: FND_MSG_PUB.ADD;
2242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2243: END financial_number_merge;
2244:
2284:
2285: x_to_id := l_to_id;
2286: EXCEPTION
2287: WHEN OTHERS THEN
2288: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2289: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2290: FND_MSG_PUB.ADD;
2291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2292: END per_languages_merge;
2285: x_to_id := l_to_id;
2286: EXCEPTION
2287: WHEN OTHERS THEN
2288: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2289: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2290: FND_MSG_PUB.ADD;
2291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2292: END per_languages_merge;
2293:
2333:
2334: x_to_id := l_to_id;
2335: EXCEPTION
2336: WHEN OTHERS THEN
2337: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2338: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2339: FND_MSG_PUB.ADD;
2340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2341: END party_site_use_merge;
2334: x_to_id := l_to_id;
2335: EXCEPTION
2336: WHEN OTHERS THEN
2337: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2338: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2339: FND_MSG_PUB.ADD;
2340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2341: END party_site_use_merge;
2342:
2398:
2399: x_to_id := l_to_id;
2400: EXCEPTION
2401: WHEN OTHERS THEN
2402: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2403: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2404: FND_MSG_PUB.ADD;
2405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2406: END contact_point_merge2;
2399: x_to_id := l_to_id;
2400: EXCEPTION
2401: WHEN OTHERS THEN
2402: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2403: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2404: FND_MSG_PUB.ADD;
2405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2406: END contact_point_merge2;
2407:
2476:
2477: x_to_id := l_to_id;
2478: EXCEPTION
2479: WHEN OTHERS THEN
2480: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2481: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2482: FND_MSG_PUB.ADD;
2483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2484: END contact_preference_merge;
2477: x_to_id := l_to_id;
2478: EXCEPTION
2479: WHEN OTHERS THEN
2480: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2481: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2482: FND_MSG_PUB.ADD;
2483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2484: END contact_preference_merge;
2485:
2554:
2555: x_to_id := l_to_id;
2556: EXCEPTION
2557: WHEN OTHERS THEN
2558: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2559: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2560: FND_MSG_PUB.ADD;
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2562: END contact_preference_merge2;
2555: x_to_id := l_to_id;
2556: EXCEPTION
2557: WHEN OTHERS THEN
2558: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2559: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2560: FND_MSG_PUB.ADD;
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2562: END contact_preference_merge2;
2563:
2633:
2634: x_to_id := l_to_id;
2635: EXCEPTION
2636: WHEN OTHERS THEN
2637: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2638: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2639: FND_MSG_PUB.ADD;
2640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2641: END contact_preference_merge3;
2634: x_to_id := l_to_id;
2635: EXCEPTION
2636: WHEN OTHERS THEN
2637: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2638: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2639: FND_MSG_PUB.ADD;
2640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2641: END contact_preference_merge3;
2642:
2673: do_displayed_duns_merge(p_from_id, l_to_id, p_from_fk_id, p_to_fk_id,
2674: x_return_status);
2675: EXCEPTION
2676: WHEN OTHERS THEN
2677: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2678: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2679: FND_MSG_PUB.ADD;
2680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2681: END displayed_duns_merge;
2674: x_return_status);
2675: EXCEPTION
2676: WHEN OTHERS THEN
2677: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2678: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2679: FND_MSG_PUB.ADD;
2680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2681: END displayed_duns_merge;
2682:
2698:
2699: BEGIN
2700: IF (p_entity_name <> p_exp_ent_name OR
2701: p_par_entity_name <> p_exp_par_ent_name) THEN
2702: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_ENTITIES');
2703: FND_MESSAGE.SET_TOKEN('ENTITY' ,p_entity_name);
2704: FND_MESSAGE.SET_TOKEN('PENTITY' ,p_par_entity_name);
2705: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2706: FND_MSG_PUB.ADD;
2699: BEGIN
2700: IF (p_entity_name <> p_exp_ent_name OR
2701: p_par_entity_name <> p_exp_par_ent_name) THEN
2702: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_ENTITIES');
2703: FND_MESSAGE.SET_TOKEN('ENTITY' ,p_entity_name);
2704: FND_MESSAGE.SET_TOKEN('PENTITY' ,p_par_entity_name);
2705: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2706: FND_MSG_PUB.ADD;
2707: x_return_status := FND_API.G_RET_STS_ERROR;
2700: IF (p_entity_name <> p_exp_ent_name OR
2701: p_par_entity_name <> p_exp_par_ent_name) THEN
2702: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_ENTITIES');
2703: FND_MESSAGE.SET_TOKEN('ENTITY' ,p_entity_name);
2704: FND_MESSAGE.SET_TOKEN('PENTITY' ,p_par_entity_name);
2705: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2706: FND_MSG_PUB.ADD;
2707: x_return_status := FND_API.G_RET_STS_ERROR;
2708: END IF;
2701: p_par_entity_name <> p_exp_par_ent_name) THEN
2702: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_ENTITIES');
2703: FND_MESSAGE.SET_TOKEN('ENTITY' ,p_entity_name);
2704: FND_MESSAGE.SET_TOKEN('PENTITY' ,p_par_entity_name);
2705: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2706: FND_MSG_PUB.ADD;
2707: x_return_status := FND_API.G_RET_STS_ERROR;
2708: END IF;
2709:
2707: x_return_status := FND_API.G_RET_STS_ERROR;
2708: END IF;
2709:
2710: IF (p_from_id = FND_API.G_MISS_NUM) THEN
2711: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_REC');
2712: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2713: FND_MESSAGE.SET_TOKEN('ENTITY',p_entity_name);
2714: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2715: FND_MESSAGE.SET_TOKEN('PKVALUE',p_to_id);
2708: END IF;
2709:
2710: IF (p_from_id = FND_API.G_MISS_NUM) THEN
2711: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_REC');
2712: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2713: FND_MESSAGE.SET_TOKEN('ENTITY',p_entity_name);
2714: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2715: FND_MESSAGE.SET_TOKEN('PKVALUE',p_to_id);
2716: FND_MSG_PUB.ADD;
2709:
2710: IF (p_from_id = FND_API.G_MISS_NUM) THEN
2711: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_REC');
2712: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2713: FND_MESSAGE.SET_TOKEN('ENTITY',p_entity_name);
2714: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2715: FND_MESSAGE.SET_TOKEN('PKVALUE',p_to_id);
2716: FND_MSG_PUB.ADD;
2717: x_return_status := FND_API.G_RET_STS_ERROR;
2710: IF (p_from_id = FND_API.G_MISS_NUM) THEN
2711: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_REC');
2712: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2713: FND_MESSAGE.SET_TOKEN('ENTITY',p_entity_name);
2714: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2715: FND_MESSAGE.SET_TOKEN('PKVALUE',p_to_id);
2716: FND_MSG_PUB.ADD;
2717: x_return_status := FND_API.G_RET_STS_ERROR;
2718: END IF;
2711: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_REC');
2712: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2713: FND_MESSAGE.SET_TOKEN('ENTITY',p_entity_name);
2714: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2715: FND_MESSAGE.SET_TOKEN('PKVALUE',p_to_id);
2716: FND_MSG_PUB.ADD;
2717: x_return_status := FND_API.G_RET_STS_ERROR;
2718: END IF;
2719:
2718: END IF;
2719:
2720: IF (p_exp_par_ent_name <> FND_API.G_MISS_CHAR AND
2721: p_to_fk_id = FND_API.G_MISS_NUM ) THEN
2722: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_PAR_REC');
2723: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2724: FND_MESSAGE.SET_TOKEN('ENTITY',p_par_entity_name);
2725: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2726: FND_MESSAGE.SET_TOKEN('PKVALUE',p_to_id);
2719:
2720: IF (p_exp_par_ent_name <> FND_API.G_MISS_CHAR AND
2721: p_to_fk_id = FND_API.G_MISS_NUM ) THEN
2722: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_PAR_REC');
2723: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2724: FND_MESSAGE.SET_TOKEN('ENTITY',p_par_entity_name);
2725: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2726: FND_MESSAGE.SET_TOKEN('PKVALUE',p_to_id);
2727: FND_MSG_PUB.ADD;
2720: IF (p_exp_par_ent_name <> FND_API.G_MISS_CHAR AND
2721: p_to_fk_id = FND_API.G_MISS_NUM ) THEN
2722: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_PAR_REC');
2723: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2724: FND_MESSAGE.SET_TOKEN('ENTITY',p_par_entity_name);
2725: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2726: FND_MESSAGE.SET_TOKEN('PKVALUE',p_to_id);
2727: FND_MSG_PUB.ADD;
2728: x_return_status := FND_API.G_RET_STS_ERROR;
2721: p_to_fk_id = FND_API.G_MISS_NUM ) THEN
2722: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_PAR_REC');
2723: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2724: FND_MESSAGE.SET_TOKEN('ENTITY',p_par_entity_name);
2725: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2726: FND_MESSAGE.SET_TOKEN('PKVALUE',p_to_id);
2727: FND_MSG_PUB.ADD;
2728: x_return_status := FND_API.G_RET_STS_ERROR;
2729: END IF;
2722: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_PAR_REC');
2723: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2724: FND_MESSAGE.SET_TOKEN('ENTITY',p_par_entity_name);
2725: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2726: FND_MESSAGE.SET_TOKEN('PKVALUE',p_to_id);
2727: FND_MSG_PUB.ADD;
2728: x_return_status := FND_API.G_RET_STS_ERROR;
2729: END IF;
2730: EXCEPTION
2728: x_return_status := FND_API.G_RET_STS_ERROR;
2729: END IF;
2730: EXCEPTION
2731: WHEN OTHERS THEN
2732: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2733: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2734: FND_MSG_PUB.ADD;
2735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2736: END check_params;
2729: END IF;
2730: EXCEPTION
2731: WHEN OTHERS THEN
2732: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2733: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2734: FND_MSG_PUB.ADD;
2735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2736: END check_params;
2737:
2773: x_return_status => x_return_status,
2774: x_msg_count =>l_msg_count,
2775: x_msg_data =>l_msg_data);
2776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2777: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2778: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
2779: FND_MSG_PUB.ADD;
2780: x_return_status := FND_API.G_RET_STS_ERROR;
2781: RETURN;
2774: x_msg_count =>l_msg_count,
2775: x_msg_data =>l_msg_data);
2776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2777: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2778: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
2779: FND_MSG_PUB.ADD;
2780: x_return_status := FND_API.G_RET_STS_ERROR;
2781: RETURN;
2782: END IF;
2796: END IF;
2797:
2798: EXCEPTION
2799: WHEN OTHERS THEN
2800: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2801: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2802: FND_MSG_PUB.ADD;
2803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2804: END do_cust_account_transfer;
2797:
2798: EXCEPTION
2799: WHEN OTHERS THEN
2800: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2801: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2802: FND_MSG_PUB.ADD;
2803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2804: END do_cust_account_transfer;
2805:
2865: x_return_status => x_return_status,
2866: x_msg_count =>l_msg_count,
2867: x_msg_data =>l_msg_data);
2868: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2869: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2870: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
2871: FND_MSG_PUB.ADD;
2872: x_return_status := FND_API.G_RET_STS_ERROR;
2873: RETURN;
2866: x_msg_count =>l_msg_count,
2867: x_msg_data =>l_msg_data);
2868: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2869: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2870: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
2871: FND_MSG_PUB.ADD;
2872: x_return_status := FND_API.G_RET_STS_ERROR;
2873: RETURN;
2874: END IF;
2909: END IF;
2910:
2911: EXCEPTION
2912: WHEN OTHERS THEN
2913: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2914: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2915: FND_MSG_PUB.ADD;
2916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2917: END do_cust_account_role_transfer;
2910:
2911: EXCEPTION
2912: WHEN OTHERS THEN
2913: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2914: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2915: FND_MSG_PUB.ADD;
2916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2917: END do_cust_account_role_transfer;
2918:
2956: END IF;
2957:
2958: EXCEPTION
2959: WHEN OTHERS THEN
2960: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2961: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2962: FND_MSG_PUB.ADD;
2963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2964: END do_fin_profile_transfer;
2957:
2958: EXCEPTION
2959: WHEN OTHERS THEN
2960: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2961: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2962: FND_MSG_PUB.ADD;
2963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2964: END do_fin_profile_transfer;
2965:
3035: x_return_status => x_return_status,
3036: x_msg_count =>l_msg_count,
3037: x_msg_data =>l_msg_data);
3038: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3039: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3040: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
3041: FND_MSG_PUB.ADD;
3042: x_return_status := FND_API.G_RET_STS_ERROR;
3043: RETURN;
3036: x_msg_count =>l_msg_count,
3037: x_msg_data =>l_msg_data);
3038: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3039: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3040: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
3041: FND_MSG_PUB.ADD;
3042: x_return_status := FND_API.G_RET_STS_ERROR;
3043: RETURN;
3044: END IF;
3127: END IF;
3128:
3129: EXCEPTION
3130: WHEN OTHERS THEN
3131: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3132: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3133: FND_MSG_PUB.ADD;
3134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3135: END do_contact_point_transfer;
3128:
3129: EXCEPTION
3130: WHEN OTHERS THEN
3131: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3132: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3133: FND_MSG_PUB.ADD;
3134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3135: END do_contact_point_transfer;
3136:
3193: x_return_status => x_return_status,
3194: x_msg_count =>l_msg_count,
3195: x_msg_data =>l_msg_data);
3196: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3197: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3198: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
3199: FND_MSG_PUB.ADD;
3200: x_return_status := FND_API.G_RET_STS_ERROR;
3201: RETURN;
3194: x_msg_count =>l_msg_count,
3195: x_msg_data =>l_msg_data);
3196: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3197: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3198: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
3199: FND_MSG_PUB.ADD;
3200: x_return_status := FND_API.G_RET_STS_ERROR;
3201: RETURN;
3202: END IF;
3259: END IF;
3260:
3261: EXCEPTION
3262: WHEN OTHERS THEN
3263: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3264: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3265: FND_MSG_PUB.ADD;
3266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3267: END do_contact_point_transfer2;
3260:
3261: EXCEPTION
3262: WHEN OTHERS THEN
3263: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3264: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3265: FND_MSG_PUB.ADD;
3266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3267: END do_contact_point_transfer2;
3268:
3305: END IF;
3306:
3307: EXCEPTION
3308: WHEN OTHERS THEN
3309: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3310: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3311: FND_MSG_PUB.ADD;
3312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3313: END do_contact_pref_transfer;
3306:
3307: EXCEPTION
3308: WHEN OTHERS THEN
3309: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3310: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3311: FND_MSG_PUB.ADD;
3312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3313: END do_contact_pref_transfer;
3314:
3352: END IF;
3353:
3354: EXCEPTION
3355: WHEN OTHERS THEN
3356: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3357: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3358: FND_MSG_PUB.ADD;
3359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3360: END do_references_transfer;
3353:
3354: EXCEPTION
3355: WHEN OTHERS THEN
3356: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3357: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3358: FND_MSG_PUB.ADD;
3359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3360: END do_references_transfer;
3361:
3399: END IF;
3400:
3401: EXCEPTION
3402: WHEN OTHERS THEN
3403: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3404: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3405: FND_MSG_PUB.ADD;
3406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3407: END do_certification_transfer;
3400:
3401: EXCEPTION
3402: WHEN OTHERS THEN
3403: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3404: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3405: FND_MSG_PUB.ADD;
3406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3407: END do_certification_transfer;
3408:
3446: END IF;
3447:
3448: EXCEPTION
3449: WHEN OTHERS THEN
3450: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3451: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3452: FND_MSG_PUB.ADD;
3453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3454: END do_credit_ratings_transfer;
3447:
3448: EXCEPTION
3449: WHEN OTHERS THEN
3450: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3451: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3452: FND_MSG_PUB.ADD;
3453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3454: END do_credit_ratings_transfer;
3455:
3493: END IF;
3494:
3495: EXCEPTION
3496: WHEN OTHERS THEN
3497: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3498: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3499: FND_MSG_PUB.ADD;
3500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3501: END do_security_issued_transfer;
3494:
3495: EXCEPTION
3496: WHEN OTHERS THEN
3497: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3498: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3499: FND_MSG_PUB.ADD;
3500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3501: END do_security_issued_transfer;
3502:
3540: END IF;
3541:
3542: EXCEPTION
3543: WHEN OTHERS THEN
3544: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3546: FND_MSG_PUB.ADD;
3547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3548: END do_financial_reports_transfer;
3541:
3542: EXCEPTION
3543: WHEN OTHERS THEN
3544: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3546: FND_MSG_PUB.ADD;
3547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3548: END do_financial_reports_transfer;
3549:
3587: END IF;
3588:
3589: EXCEPTION
3590: WHEN OTHERS THEN
3591: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3592: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3593: FND_MSG_PUB.ADD;
3594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3595: END do_org_indicators_transfer;
3588:
3589: EXCEPTION
3590: WHEN OTHERS THEN
3591: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3592: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3593: FND_MSG_PUB.ADD;
3594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3595: END do_org_indicators_transfer;
3596:
3634: END IF;
3635:
3636: EXCEPTION
3637: WHEN OTHERS THEN
3638: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3639: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3640: FND_MSG_PUB.ADD;
3641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3642: END do_ind_reference_transfer;
3635:
3636: EXCEPTION
3637: WHEN OTHERS THEN
3638: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3639: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3640: FND_MSG_PUB.ADD;
3641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3642: END do_ind_reference_transfer;
3643:
3681: END IF;
3682:
3683: EXCEPTION
3684: WHEN OTHERS THEN
3685: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3686: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3687: FND_MSG_PUB.ADD;
3688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3689: END do_per_interest_transfer;
3682:
3683: EXCEPTION
3684: WHEN OTHERS THEN
3685: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3686: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3687: FND_MSG_PUB.ADD;
3688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3689: END do_per_interest_transfer;
3690:
3728: END IF;
3729:
3730: EXCEPTION
3731: WHEN OTHERS THEN
3732: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3733: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3734: FND_MSG_PUB.ADD;
3735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3736: END do_citizenship_transfer;
3729:
3730: EXCEPTION
3731: WHEN OTHERS THEN
3732: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3733: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3734: FND_MSG_PUB.ADD;
3735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3736: END do_citizenship_transfer;
3737:
3775: END IF;
3776:
3777: EXCEPTION
3778: WHEN OTHERS THEN
3779: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3780: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3781: FND_MSG_PUB.ADD;
3782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3783: END do_education_transfer;
3776:
3777: EXCEPTION
3778: WHEN OTHERS THEN
3779: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3780: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3781: FND_MSG_PUB.ADD;
3782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3783: END do_education_transfer;
3784:
3822: END IF;
3823:
3824: EXCEPTION
3825: WHEN OTHERS THEN
3826: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3827: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3828: FND_MSG_PUB.ADD;
3829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3830: END do_education_school_transfer;
3823:
3824: EXCEPTION
3825: WHEN OTHERS THEN
3826: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3827: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3828: FND_MSG_PUB.ADD;
3829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3830: END do_education_school_transfer;
3831:
3870: END IF;
3871:
3872: EXCEPTION
3873: WHEN OTHERS THEN
3874: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3875: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3876: FND_MSG_PUB.ADD;
3877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3878: END do_emp_history_transfer;
3871:
3872: EXCEPTION
3873: WHEN OTHERS THEN
3874: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3875: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3876: FND_MSG_PUB.ADD;
3877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3878: END do_emp_history_transfer;
3879:
3917: END IF;
3918:
3919: EXCEPTION
3920: WHEN OTHERS THEN
3921: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3922: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3923: FND_MSG_PUB.ADD;
3924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3925: END do_employed_transfer;
3918:
3919: EXCEPTION
3920: WHEN OTHERS THEN
3921: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3922: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3923: FND_MSG_PUB.ADD;
3924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3925: END do_employed_transfer;
3926:
3965: END IF;
3966:
3967: EXCEPTION
3968: WHEN OTHERS THEN
3969: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3970: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3971: FND_MSG_PUB.ADD;
3972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3973: END do_work_class_transfer;
3966:
3967: EXCEPTION
3968: WHEN OTHERS THEN
3969: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3970: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3971: FND_MSG_PUB.ADD;
3972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3973: END do_work_class_transfer;
3974:
4019: x_return_status => x_return_status,
4020: x_msg_count =>l_msg_count,
4021: x_msg_data =>l_msg_data);
4022: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4023: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4024: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4025: FND_MSG_PUB.ADD;
4026: x_return_status := FND_API.G_RET_STS_ERROR;
4027: RETURN;
4020: x_msg_count =>l_msg_count,
4021: x_msg_data =>l_msg_data);
4022: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4023: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4024: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4025: FND_MSG_PUB.ADD;
4026: x_return_status := FND_API.G_RET_STS_ERROR;
4027: RETURN;
4028: END IF;
4094: END IF;
4095:
4096: EXCEPTION
4097: WHEN OTHERS THEN
4098: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4099: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4100: FND_MSG_PUB.ADD;
4101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4102: END do_org_contact_role_transfer;
4095:
4096: EXCEPTION
4097: WHEN OTHERS THEN
4098: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4099: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4100: FND_MSG_PUB.ADD;
4101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4102: END do_org_contact_role_transfer;
4103:
4140: END IF;
4141:
4142: EXCEPTION
4143: WHEN OTHERS THEN
4144: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4145: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4146: FND_MSG_PUB.ADD;
4147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4148: END do_financial_number_transfer;
4141:
4142: EXCEPTION
4143: WHEN OTHERS THEN
4144: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4145: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4146: FND_MSG_PUB.ADD;
4147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4148: END do_financial_number_transfer;
4149:
4253: END IF;
4254:
4255: EXCEPTION
4256: WHEN OTHERS THEN
4257: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4258: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4259: FND_MSG_PUB.ADD;
4260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4261: END do_code_assignment_transfer;
4254:
4255: EXCEPTION
4256: WHEN OTHERS THEN
4257: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4258: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4259: FND_MSG_PUB.ADD;
4260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4261: END do_code_assignment_transfer;
4262:
4351: END IF;
4352:
4353: EXCEPTION
4354: WHEN OTHERS THEN
4355: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4356: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4357: FND_MSG_PUB.ADD;
4358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4359: END do_code_assignment_transfer2;
4352:
4353: EXCEPTION
4354: WHEN OTHERS THEN
4355: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4356: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4357: FND_MSG_PUB.ADD;
4358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4359: END do_code_assignment_transfer2;
4360:
4457: END IF;
4458:
4459: EXCEPTION
4460: WHEN OTHERS THEN
4461: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4462: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4463: FND_MSG_PUB.ADD;
4464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4465: END do_per_languages_transfer;
4458:
4459: EXCEPTION
4460: WHEN OTHERS THEN
4461: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4462: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4463: FND_MSG_PUB.ADD;
4464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4465: END do_per_languages_transfer;
4466:
4526: x_msg_count => l_msg_count,
4527: x_msg_data => l_msg_data );
4528:
4529: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4530: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4531: FND_MESSAGE.SET_TOKEN('ERROR','Cannot get party site use ID : ' || p_from_id);
4532: FND_MSG_PUB.ADD;
4533: x_return_status := FND_API.G_RET_STS_ERROR;
4534:
4527: x_msg_data => l_msg_data );
4528:
4529: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4530: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4531: FND_MESSAGE.SET_TOKEN('ERROR','Cannot get party site use ID : ' || p_from_id);
4532: FND_MSG_PUB.ADD;
4533: x_return_status := FND_API.G_RET_STS_ERROR;
4534:
4535: RETURN;
4564: x_msg_count => l_msg_count,
4565: x_msg_data => l_msg_data );
4566:
4567: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4568: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4569: FND_MESSAGE.SET_TOKEN('ERROR','Cannot copy party site use for ID : ' || p_from_id);
4570: FND_MSG_PUB.ADD;
4571: x_return_status := FND_API.G_RET_STS_ERROR;
4572: RETURN;
4565: x_msg_data => l_msg_data );
4566:
4567: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4568: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4569: FND_MESSAGE.SET_TOKEN('ERROR','Cannot copy party site use for ID : ' || p_from_id);
4570: FND_MSG_PUB.ADD;
4571: x_return_status := FND_API.G_RET_STS_ERROR;
4572: RETURN;
4573: END IF;
4590: END IF;
4591:
4592: EXCEPTION
4593: WHEN OTHERS THEN
4594: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4595: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4596: FND_MSG_PUB.ADD;
4597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4598: END do_party_site_use_transfer;
4591:
4592: EXCEPTION
4593: WHEN OTHERS THEN
4594: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4595: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4596: FND_MSG_PUB.ADD;
4597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4598: END do_party_site_use_transfer;
4599:
4634: x_return_status => x_return_status,
4635: x_msg_count =>l_msg_count,
4636: x_msg_data =>l_msg_data);
4637: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4638: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4639: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4640: FND_MSG_PUB.ADD;
4641: x_return_status := FND_API.G_RET_STS_ERROR;
4642: RETURN;
4635: x_msg_count =>l_msg_count,
4636: x_msg_data =>l_msg_data);
4637: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4638: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4639: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4640: FND_MSG_PUB.ADD;
4641: x_return_status := FND_API.G_RET_STS_ERROR;
4642: RETURN;
4643: END IF;
4658: END IF;
4659:
4660: EXCEPTION
4661: WHEN OTHERS THEN
4662: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4663: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4664: FND_MSG_PUB.ADD;
4665: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4666: END do_cust_account_site_transfer;
4659:
4660: EXCEPTION
4661: WHEN OTHERS THEN
4662: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4663: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4664: FND_MSG_PUB.ADD;
4665: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4666: END do_cust_account_site_transfer;
4667:
4705: x_return_status => x_return_status,
4706: x_msg_count =>l_msg_count,
4707: x_msg_data =>l_msg_data);
4708: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4709: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4710: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4711: FND_MSG_PUB.ADD;
4712: x_return_status := FND_API.G_RET_STS_ERROR;
4713: RETURN;
4706: x_msg_count =>l_msg_count,
4707: x_msg_data =>l_msg_data);
4708: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4709: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4710: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4711: FND_MSG_PUB.ADD;
4712: x_return_status := FND_API.G_RET_STS_ERROR;
4713: RETURN;
4714: END IF;
4729: END IF;
4730:
4731: EXCEPTION
4732: WHEN OTHERS THEN
4733: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4734: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4735: FND_MSG_PUB.ADD;
4736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4737: END do_org_contact_transfer;
4730:
4731: EXCEPTION
4732: WHEN OTHERS THEN
4733: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4734: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4735: FND_MSG_PUB.ADD;
4736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4737: END do_org_contact_transfer;
4738:
4878: x_return_status => x_return_status,
4879: x_msg_count =>l_msg_count,
4880: x_msg_data =>l_msg_data);
4881: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4882: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4883: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4884: FND_MSG_PUB.ADD;
4885: x_return_status := FND_API.G_RET_STS_ERROR;
4886: RETURN;
4879: x_msg_count =>l_msg_count,
4880: x_msg_data =>l_msg_data);
4881: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4882: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4883: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4884: FND_MSG_PUB.ADD;
4885: x_return_status := FND_API.G_RET_STS_ERROR;
4886: RETURN;
4887: END IF;
4891: END IF;
4892:
4893: EXCEPTION
4894: WHEN OTHERS THEN
4895: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4896: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4897: FND_MSG_PUB.ADD;
4898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4899: END do_org_contact_transfer2;
4892:
4893: EXCEPTION
4894: WHEN OTHERS THEN
4895: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4896: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4897: FND_MSG_PUB.ADD;
4898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4899: END do_org_contact_transfer2;
4900:
5027: -- END IF; --l_from_usage_code
5028:
5029: EXCEPTION
5030: WHEN OTHERS THEN
5031: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5032: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5033: FND_MSG_PUB.ADD;
5034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5035: END do_party_usage_merge;
5028:
5029: EXCEPTION
5030: WHEN OTHERS THEN
5031: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5032: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5033: FND_MSG_PUB.ADD;
5034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5035: END do_party_usage_merge;
5036:
5146: CLOSE c_party;
5147:
5148: IF l_to_party_id IS NOT NULL AND l_from_party_id IS NOT NULL
5149: AND l_from_party_id <> l_to_party_id THEN
5150: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_MERGE_NOT_ALLOWED');
5151: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5152: FND_MESSAGE.SET_TOKEN('TOID',x_to_id);
5153: FND_MSG_PUB.ADD;
5154: x_return_status := FND_API.G_RET_STS_ERROR;
5147:
5148: IF l_to_party_id IS NOT NULL AND l_from_party_id IS NOT NULL
5149: AND l_from_party_id <> l_to_party_id THEN
5150: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_MERGE_NOT_ALLOWED');
5151: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5152: FND_MESSAGE.SET_TOKEN('TOID',x_to_id);
5153: FND_MSG_PUB.ADD;
5154: x_return_status := FND_API.G_RET_STS_ERROR;
5155: RETURN;
5148: IF l_to_party_id IS NOT NULL AND l_from_party_id IS NOT NULL
5149: AND l_from_party_id <> l_to_party_id THEN
5150: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_MERGE_NOT_ALLOWED');
5151: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5152: FND_MESSAGE.SET_TOKEN('TOID',x_to_id);
5153: FND_MSG_PUB.ADD;
5154: x_return_status := FND_API.G_RET_STS_ERROR;
5155: RETURN;
5156: END IF;
5218: (l_request_id <> hz_utility_pub.request_id) AND
5219: (l_to_rel_status = 'A' OR (l_to_rel_status = 'I' AND l_from_rel_status = 'I'))
5220: AND (HZ_PARTY_MERGE.g_automerge_flag = 'N') ) THEN
5221: CLOSE c_check_valid_merge;
5222: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_TRANSFER_NOT_ALLOWED');
5223: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5224: FND_MSG_PUB.ADD;
5225: x_return_status := FND_API.G_RET_STS_ERROR;
5226: CLOSE c_check_valid_merge;
5219: (l_to_rel_status = 'A' OR (l_to_rel_status = 'I' AND l_from_rel_status = 'I'))
5220: AND (HZ_PARTY_MERGE.g_automerge_flag = 'N') ) THEN
5221: CLOSE c_check_valid_merge;
5222: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_TRANSFER_NOT_ALLOWED');
5223: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5224: FND_MSG_PUB.ADD;
5225: x_return_status := FND_API.G_RET_STS_ERROR;
5226: CLOSE c_check_valid_merge;
5227: RETURN;
5485: END IF;
5486:
5487: EXCEPTION
5488: WHEN OTHERS THEN
5489: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5490: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5491: FND_MSG_PUB.ADD;
5492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5493: END do_party_reln_obj_merge;
5486:
5487: EXCEPTION
5488: WHEN OTHERS THEN
5489: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5490: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5491: FND_MSG_PUB.ADD;
5492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5493: END do_party_reln_obj_merge;
5494:
5605:
5606:
5607: IF l_to_party_id IS NOT NULL AND l_from_party_id IS NOT NULL
5608: AND l_from_party_id <> l_to_party_id THEN
5609: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_MERGE_NOT_ALLOWED');
5610: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5611: FND_MESSAGE.SET_TOKEN('TOID',x_to_id);
5612: FND_MSG_PUB.ADD;
5613: x_return_status := FND_API.G_RET_STS_ERROR;
5606:
5607: IF l_to_party_id IS NOT NULL AND l_from_party_id IS NOT NULL
5608: AND l_from_party_id <> l_to_party_id THEN
5609: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_MERGE_NOT_ALLOWED');
5610: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5611: FND_MESSAGE.SET_TOKEN('TOID',x_to_id);
5612: FND_MSG_PUB.ADD;
5613: x_return_status := FND_API.G_RET_STS_ERROR;
5614: RETURN;
5607: IF l_to_party_id IS NOT NULL AND l_from_party_id IS NOT NULL
5608: AND l_from_party_id <> l_to_party_id THEN
5609: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_MERGE_NOT_ALLOWED');
5610: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5611: FND_MESSAGE.SET_TOKEN('TOID',x_to_id);
5612: FND_MSG_PUB.ADD;
5613: x_return_status := FND_API.G_RET_STS_ERROR;
5614: RETURN;
5615: END IF;
5680: (l_request_id <> hz_utility_pub.request_id) AND
5681: (l_to_rel_status = 'A' OR (l_to_rel_status = 'I' AND l_from_rel_status = 'I'))
5682: AND (HZ_PARTY_MERGE.g_automerge_flag = 'N')) THEN
5683:
5684: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_TRANSFER_NOT_ALLOWED');
5685: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5686: FND_MSG_PUB.ADD;
5687: x_return_status := FND_API.G_RET_STS_ERROR;
5688: CLOSE c_check_valid_merge;
5681: (l_to_rel_status = 'A' OR (l_to_rel_status = 'I' AND l_from_rel_status = 'I'))
5682: AND (HZ_PARTY_MERGE.g_automerge_flag = 'N')) THEN
5683:
5684: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_TRANSFER_NOT_ALLOWED');
5685: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5686: FND_MSG_PUB.ADD;
5687: x_return_status := FND_API.G_RET_STS_ERROR;
5688: CLOSE c_check_valid_merge;
5689: RETURN;
5943: END IF;
5944:
5945: EXCEPTION
5946: WHEN OTHERS THEN
5947: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5948: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5949: FND_MSG_PUB.ADD;
5950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5951: END do_party_reln_subj_merge;
5944:
5945: EXCEPTION
5946: WHEN OTHERS THEN
5947: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5948: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5949: FND_MSG_PUB.ADD;
5950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5951: END do_party_reln_subj_merge;
5952:
5974: OPEN c_merge_to_party_reln;
5975: FETCH c_merge_to_party_reln INTO l_to_preln_id;
5976: IF c_merge_to_party_reln%NOTFOUND THEN
5977: CLOSE c_merge_to_party_reln;
5978: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_PRELN');
5979: FND_MESSAGE.SET_TOKEN('TOPARTYID',p_to_fk_id);
5980: FND_MSG_PUB.ADD;
5981: x_return_status := FND_API.G_RET_STS_ERROR;
5982: ELSE
5975: FETCH c_merge_to_party_reln INTO l_to_preln_id;
5976: IF c_merge_to_party_reln%NOTFOUND THEN
5977: CLOSE c_merge_to_party_reln;
5978: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_PRELN');
5979: FND_MESSAGE.SET_TOKEN('TOPARTYID',p_to_fk_id);
5980: FND_MSG_PUB.ADD;
5981: x_return_status := FND_API.G_RET_STS_ERROR;
5982: ELSE
5983: CLOSE c_merge_to_party_reln;
6008: x_to_id := l_to_preln_id;
6009: END IF;
6010: EXCEPTION
6011: WHEN OTHERS THEN
6012: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6013: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6014: FND_MSG_PUB.ADD;
6015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6016: END do_party_relationship_merge;
6009: END IF;
6010: EXCEPTION
6011: WHEN OTHERS THEN
6012: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6013: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6014: FND_MSG_PUB.ADD;
6015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6016: END do_party_relationship_merge;
6017:
6069: OPEN c_merge_to_org_prof('SST');
6070: FETCH c_merge_to_org_prof INTO x_to_id, l_to_last_upd_date, l_to_duns_number;
6071: IF c_merge_to_org_prof%NOTFOUND THEN
6072: CLOSE c_merge_to_org_prof;
6073: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_ORGPRO');
6074: FND_MESSAGE.SET_TOKEN('ToId',p_to_fk_id);
6075: FND_MSG_PUB.ADD;
6076: x_return_status := FND_API.G_RET_STS_ERROR;
6077: RETURN;
6070: FETCH c_merge_to_org_prof INTO x_to_id, l_to_last_upd_date, l_to_duns_number;
6071: IF c_merge_to_org_prof%NOTFOUND THEN
6072: CLOSE c_merge_to_org_prof;
6073: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_ORGPRO');
6074: FND_MESSAGE.SET_TOKEN('ToId',p_to_fk_id);
6075: FND_MSG_PUB.ADD;
6076: x_return_status := FND_API.G_RET_STS_ERROR;
6077: RETURN;
6078: END IF;
6089: OPEN c_merge_to_org_prof('USER_ENTERED');
6090: FETCH c_merge_to_org_prof INTO x_to_id, l_to_last_upd_date, l_to_duns_number;
6091: IF c_merge_to_org_prof%NOTFOUND THEN
6092: CLOSE c_merge_to_org_prof;
6093: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_ORGPRO');
6094: FND_MESSAGE.SET_TOKEN('ToId',p_to_fk_id);
6095: FND_MSG_PUB.ADD;
6096: x_return_status := FND_API.G_RET_STS_ERROR;
6097: RETURN;
6090: FETCH c_merge_to_org_prof INTO x_to_id, l_to_last_upd_date, l_to_duns_number;
6091: IF c_merge_to_org_prof%NOTFOUND THEN
6092: CLOSE c_merge_to_org_prof;
6093: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_ORGPRO');
6094: FND_MESSAGE.SET_TOKEN('ToId',p_to_fk_id);
6095: FND_MSG_PUB.ADD;
6096: x_return_status := FND_API.G_RET_STS_ERROR;
6097: RETURN;
6098: END IF;
6147: WHERE organization_profile_id = p_from_id;
6148:
6149: EXCEPTION
6150: WHEN OTHERS THEN
6151: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6152: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6153: FND_MSG_PUB.ADD;
6154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6155: END do_org_profile_merge;
6148:
6149: EXCEPTION
6150: WHEN OTHERS THEN
6151: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6152: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6153: FND_MSG_PUB.ADD;
6154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6155: END do_org_profile_merge;
6156:
6187: FETCH c_merge_to_per_prof INTO l_to_perpro_id;
6188: IF c_merge_to_per_prof%NOTFOUND THEN
6189: CLOSE c_merge_to_per_prof;
6190: IF l_cont_source = 'USER_ENTERED' THEN
6191: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_PERPRO');
6192: FND_MESSAGE.SET_TOKEN('ToId',p_to_fk_id);
6193: FND_MSG_PUB.ADD;
6194: x_return_status := FND_API.G_RET_STS_ERROR;
6195: ELSE
6188: IF c_merge_to_per_prof%NOTFOUND THEN
6189: CLOSE c_merge_to_per_prof;
6190: IF l_cont_source = 'USER_ENTERED' THEN
6191: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_PERPRO');
6192: FND_MESSAGE.SET_TOKEN('ToId',p_to_fk_id);
6193: FND_MSG_PUB.ADD;
6194: x_return_status := FND_API.G_RET_STS_ERROR;
6195: ELSE
6196: UPDATE HZ_PERSON_PROFILES
6225: x_to_id := l_to_perpro_id;
6226: END IF;
6227: EXCEPTION
6228: WHEN OTHERS THEN
6229: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6230: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6231: FND_MSG_PUB.ADD;
6232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6233: END do_per_profile_merge;
6226: END IF;
6227: EXCEPTION
6228: WHEN OTHERS THEN
6229: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6230: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6231: FND_MSG_PUB.ADD;
6232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6233: END do_per_profile_merge;
6234:
6396: x_to_id := l_to_id;
6397: END IF;
6398:
6399: WHEN OTHERS THEN
6400: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6401: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6402: FND_MSG_PUB.ADD;
6403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6404:
6397: END IF;
6398:
6399: WHEN OTHERS THEN
6400: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6401: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6402: FND_MSG_PUB.ADD;
6403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6404:
6405: -- End changes for Bug 4577535
6543: x_return_status => x_return_status,
6544: x_msg_count =>l_msg_count,
6545: x_msg_data =>l_msg_data);
6546: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6547: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6548: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6549: FND_MSG_PUB.ADD;
6550: x_return_status := FND_API.G_RET_STS_ERROR;
6551: RETURN;
6544: x_msg_count =>l_msg_count,
6545: x_msg_data =>l_msg_data);
6546: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6547: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6548: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6549: FND_MSG_PUB.ADD;
6550: x_return_status := FND_API.G_RET_STS_ERROR;
6551: RETURN;
6552: END IF;
6569: x_msg_count => l_msg_count,
6570: x_msg_data => l_msg_data );
6571:
6572: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6573: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6574: FND_MESSAGE.SET_TOKEN('ERROR','Cannot get party site ID : ' || p_from_id);
6575: FND_MSG_PUB.ADD;
6576: x_return_status := FND_API.G_RET_STS_ERROR;
6577:
6570: x_msg_data => l_msg_data );
6571:
6572: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6573: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6574: FND_MESSAGE.SET_TOKEN('ERROR','Cannot get party site ID : ' || p_from_id);
6575: FND_MSG_PUB.ADD;
6576: x_return_status := FND_API.G_RET_STS_ERROR;
6577:
6578: RETURN;
6625: x_return_status => x_return_status,
6626: x_msg_count =>l_msg_count,
6627: x_msg_data =>l_msg_data);
6628: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6629: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6630: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6631: FND_MSG_PUB.ADD;
6632: x_return_status := FND_API.G_RET_STS_ERROR;
6633: RETURN;
6626: x_msg_count =>l_msg_count,
6627: x_msg_data =>l_msg_data);
6628: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6629: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6630: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6631: FND_MSG_PUB.ADD;
6632: x_return_status := FND_API.G_RET_STS_ERROR;
6633: RETURN;
6634: END IF;*/
6653: x_msg_data => l_msg_data );
6654:
6655:
6656: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6657: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6658: FND_MESSAGE.SET_TOKEN('ERROR','Cannot copy party site for ID : ' || p_from_id);
6659: FND_MSG_PUB.ADD;
6660: x_return_status := FND_API.G_RET_STS_ERROR;
6661: RETURN;
6654:
6655:
6656: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6657: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6658: FND_MESSAGE.SET_TOKEN('ERROR','Cannot copy party site for ID : ' || p_from_id);
6659: FND_MSG_PUB.ADD;
6660: x_return_status := FND_API.G_RET_STS_ERROR;
6661: RETURN;
6662: END IF;
6673: x_return_status => x_return_status,
6674: x_msg_count =>l_msg_count,
6675: x_msg_data =>l_msg_data);
6676: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6677: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6678: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6679: FND_MSG_PUB.ADD;
6680: x_return_status := FND_API.G_RET_STS_ERROR;
6681: RETURN;
6674: x_msg_count =>l_msg_count,
6675: x_msg_data =>l_msg_data);
6676: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6677: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6678: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6679: FND_MSG_PUB.ADD;
6680: x_return_status := FND_API.G_RET_STS_ERROR;
6681: RETURN;
6682: END IF;
6704: AND ENTITY = 'PARTY_SITES' AND STAGED_FLAG='N' AND OPERATION <> 'D';
6705:
6706: EXCEPTION
6707: WHEN OTHERS THEN
6708: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6709: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6710: FND_MSG_PUB.ADD;
6711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6712: END do_party_site_merge;
6705:
6706: EXCEPTION
6707: WHEN OTHERS THEN
6708: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6709: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6710: FND_MSG_PUB.ADD;
6711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6712: END do_party_site_merge;
6713:
6794: CLOSE c_party_type;
6795:
6796: IF l_from_party_type IS NULL OR l_to_party_type IS NULL OR
6797: l_to_party_type <> l_from_party_type THEN
6798: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_PARTIES');
6799: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6800: FND_MSG_PUB.ADD;
6801: x_return_status := FND_API.G_RET_STS_ERROR;
6802: RETURN;
6795:
6796: IF l_from_party_type IS NULL OR l_to_party_type IS NULL OR
6797: l_to_party_type <> l_from_party_type THEN
6798: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_PARTIES');
6799: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6800: FND_MSG_PUB.ADD;
6801: x_return_status := FND_API.G_RET_STS_ERROR;
6802: RETURN;
6803: END IF;
6831: x_return_status => x_return_status,
6832: x_msg_count =>l_msg_count,
6833: x_msg_data =>l_msg_data);
6834: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6835: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6836: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6837: FND_MSG_PUB.ADD;
6838: x_return_status := FND_API.G_RET_STS_ERROR;
6839: RETURN;
6832: x_msg_count =>l_msg_count,
6833: x_msg_data =>l_msg_data);
6834: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6835: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6836: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6837: FND_MSG_PUB.ADD;
6838: x_return_status := FND_API.G_RET_STS_ERROR;
6839: RETURN;
6840: END IF;
6840: END IF;
6841:
6842: EXCEPTION
6843: WHEN OTHERS THEN
6844: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6845: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6846: FND_MSG_PUB.ADD;
6847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6848:
6841:
6842: EXCEPTION
6843: WHEN OTHERS THEN
6844: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6845: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6846: FND_MSG_PUB.ADD;
6847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6848:
6849: END do_party_merge;
6872:
6873:
6874: EXCEPTION
6875: WHEN OTHERS THEN
6876: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6877: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6878: FND_MSG_PUB.ADD;
6879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6880: END do_displayed_duns_merge;
6873:
6874: EXCEPTION
6875: WHEN OTHERS THEN
6876: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6877: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6878: FND_MSG_PUB.ADD;
6879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6880: END do_displayed_duns_merge;
6881:
7146: l_allow_child_merge := 'N';
7147: END;
7148:
7149: IF l_allow_child_merge = 'N' AND p_action = 'T' THEN
7150: FND_MESSAGE.SET_NAME('AR', 'HZ_HIER_MERGE_ERROR');
7151: FND_MESSAGE.SET_TOKEN('PARTIES',p_from_fk_id||', '||p_to_fk_id);
7152: FND_MSG_PUB.ADD;
7153: x_return_status := FND_API.G_RET_STS_ERROR;
7154: return;
7147: END;
7148:
7149: IF l_allow_child_merge = 'N' AND p_action = 'T' THEN
7150: FND_MESSAGE.SET_NAME('AR', 'HZ_HIER_MERGE_ERROR');
7151: FND_MESSAGE.SET_TOKEN('PARTIES',p_from_fk_id||', '||p_to_fk_id);
7152: FND_MSG_PUB.ADD;
7153: x_return_status := FND_API.G_RET_STS_ERROR;
7154: return;
7155: END IF;
7183: END;
7184:
7185: IF l_allow_child_merge = 'N' AND p_action = 'T' THEN
7186:
7187: FND_MESSAGE.SET_NAME('AR', 'HZ_HIER_MERGE_ERROR');
7188: FND_MESSAGE.SET_TOKEN('PARTIES',p_from_fk_id||', '||p_to_fk_id);
7189: FND_MSG_PUB.ADD;
7190: x_return_status := FND_API.G_RET_STS_ERROR;
7191: return;
7184:
7185: IF l_allow_child_merge = 'N' AND p_action = 'T' THEN
7186:
7187: FND_MESSAGE.SET_NAME('AR', 'HZ_HIER_MERGE_ERROR');
7188: FND_MESSAGE.SET_TOKEN('PARTIES',p_from_fk_id||', '||p_to_fk_id);
7189: FND_MSG_PUB.ADD;
7190: x_return_status := FND_API.G_RET_STS_ERROR;
7191: return;
7192: END IF;