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:
433: PROCEDURE org_profile_merge(
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:
475: PROCEDURE party_relationship_merge(
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:
517: PROCEDURE per_profile_merge(
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:
559: --4307667
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:
603:
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:
662: PROCEDURE party_reln_object_merge(
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:
721: PROCEDURE org_contact_merge(
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:
762: PROCEDURE org_contact_merge2(
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:
819: /*===========================================================================+
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:
902: /*===========================================================================+
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:
979: PROCEDURE cust_account_selling_merge(
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:
1031: PROCEDURE cust_account_role_merge(
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:
1078: PROCEDURE cust_account_site_merge(
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:
1127: /*===========================================================================+
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:
1205: /*===========================================================================+
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:
1298: /*===========================================================================+
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:
1377:
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:
1457: PROCEDURE credit_ratings_merge(
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:
1506:
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:
1557: PROCEDURE financial_reports_merge(
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:
1606:
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:
1656: PROCEDURE org_ind_reference_merge(
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:
1705:
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:
1755: PROCEDURE citizenship_merge(
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:
1804: PROCEDURE education_merge(
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:
1853: PROCEDURE education_school_merge(
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:
1902: PROCEDURE emp_history_merge(
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:
1951: PROCEDURE emp_history_employed_merge(
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:
2000: PROCEDURE work_class_merge(
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:
2049: PROCEDURE code_assignment_merge(
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:
2098: PROCEDURE code_assignment_merge2(
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:
2147: PROCEDURE org_contact_role_merge(
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:
2196: PROCEDURE financial_number_merge(
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:
2245: PROCEDURE per_languages_merge(
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:
2294: PROCEDURE party_site_use_merge(
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:
2343: PROCEDURE contact_point_merge2(
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:
2408: /*===========================================================================+
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:
2486: /*===========================================================================+
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:
2564:
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:
2643:
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:
2683:
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:
2710: IF (p_from_id = FND_API.G_MISS_NUM) THEN
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:
2720: IF (p_exp_par_ent_name <> FND_API.G_MISS_CHAR AND
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
2731: WHEN OTHERS THEN
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:
2738: /***** Private Procedure *****/
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;
2783: ELSE
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:
2806: PROCEDURE do_cust_account_role_transfer(
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;
2875: ELSE
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:
2919: PROCEDURE do_fin_profile_transfer(
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:
2966: PROCEDURE do_contact_point_transfer(
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;
3045:
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:
3137: PROCEDURE do_contact_point_transfer2(
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;
3203: ELSE
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:
3269: PROCEDURE do_contact_pref_transfer(
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:
3315: PROCEDURE do_references_transfer(
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:
3362: PROCEDURE do_certification_transfer(
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:
3409: PROCEDURE do_credit_ratings_transfer(
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:
3456: PROCEDURE do_security_issued_transfer(
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:
3503: PROCEDURE do_financial_reports_transfer(
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:
3550: PROCEDURE do_org_indicators_transfer(
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:
3597: PROCEDURE do_ind_reference_transfer(
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:
3644: PROCEDURE do_per_interest_transfer(
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:
3691: PROCEDURE do_citizenship_transfer(
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:
3738: PROCEDURE do_education_transfer(
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:
3785: PROCEDURE do_education_school_transfer(
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:
3832:
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:
3880: PROCEDURE do_employed_transfer(
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:
3927:
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:
3975: PROCEDURE do_org_contact_role_transfer(
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;
4029:
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:
4104: PROCEDURE do_financial_number_transfer(
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:
4150: PROCEDURE do_code_assignment_transfer(
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:
4263: PROCEDURE do_code_assignment_transfer2(
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:
4361: PROCEDURE do_per_languages_transfer(
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:
4467: PROCEDURE do_party_site_use_transfer(
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;
4536: END IF;
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;
4574:
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:
4600: PROCEDURE do_cust_account_site_transfer(
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;
4644:
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:
4668: PROCEDURE do_org_contact_transfer(
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;
4715:
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:
4739: PROCEDURE do_org_contact_transfer2(
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;
4888:
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:
4901:
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:
5037:
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;
5157:
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;
5228:
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:
5495: PROCEDURE do_party_reln_subj_merge(
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;
5616:
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;
5690:
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:
5953: PROCEDURE do_party_relationship_merge(
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;
5984:
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:
6018: PROCEDURE do_org_profile_merge(
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;
6079: CLOSE c_merge_to_org_prof;
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;
6099: CLOSE c_merge_to_org_prof;
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:
6157: PROCEDURE do_per_profile_merge(
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
6197: SET
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:
6235: PROCEDURE do_party_site_merge(
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
6406: END;
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;
6553:
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;
6579: END IF;
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;*/
6635:
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;
6663:
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;
6683:
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:
6714:
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;
6804:
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;
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;
6850:
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:
6882:
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;
7156: END IF;
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;
7193: END IF;