20: /*
21: FND_FILE.LOG = 1 - means log file
22: FND_FILE.LOG = 2 - means out file
23: */
24: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
25: hz_utility_v2pub.DEBUG
26: (p_message=> message,
27: p_prefix=>p_prefix,
28: p_msg_level=>fnd_log.level_procedure,
24: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
25: hz_utility_v2pub.DEBUG
26: (p_message=> message,
27: p_prefix=>p_prefix,
28: p_msg_level=>fnd_log.level_procedure,
29: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
30: p_module => p_module);
31: END IF;
32: IF newline THEN
54: -----------------------------------------------------------------
55: PROCEDURE ei_HZ_CONTACT_PREFERENCES IS
56: l_debug_prefix VARCHAR2(30) := 'EXP_CNT_PREF:';
57: BEGIN
58: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
59: hz_utility_v2pub.DEBUG
60: (p_message=>'ei_HZ_CONTACT_PREFERENCES()+',
61: p_prefix=>l_debug_prefix,
62: p_msg_level=>fnd_log.level_procedure,
58: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
59: hz_utility_v2pub.DEBUG
60: (p_message=>'ei_HZ_CONTACT_PREFERENCES()+',
61: p_prefix=>l_debug_prefix,
62: p_msg_level=>fnd_log.level_procedure,
63: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
64: p_module =>'ei_cpp');
65: END IF;
66: /*
331: AND temp.CHILD_ENTITY_NAME IS NOT NULL
332: AND temp.CHILD_BO_CODE IS NOT NULL;
333: -- save the records populated
334: COMMIT;
335: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
336: hz_utility_v2pub.DEBUG
337: (p_message=>'ei_HZ_CONTACT_PREFERENCES()-',
338: p_prefix=>l_debug_prefix,
339: p_msg_level=>fnd_log.level_procedure,
335: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
336: hz_utility_v2pub.DEBUG
337: (p_message=>'ei_HZ_CONTACT_PREFERENCES()-',
338: p_prefix=>l_debug_prefix,
339: p_msg_level=>fnd_log.level_procedure,
340: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
341: p_module =>'ei_cpp');
342: END IF;
343: EXCEPTION
360: -----------------------------------------------------------------
361: PROCEDURE ei_HZ_PARTY_SITES_EXT_VL IS
362: l_debug_prefix VARCHAR2(30) := 'PS_EXT:';
363: BEGIN
364: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
365: hz_utility_v2pub.DEBUG
366: (p_message=>'ei_HZ_PARTY_SITES_EXT_VL()+',
367: p_prefix=>l_debug_prefix,
368: p_msg_level=>fnd_log.level_procedure,
364: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
365: hz_utility_v2pub.DEBUG
366: (p_message=>'ei_HZ_PARTY_SITES_EXT_VL()+',
367: p_prefix=>l_debug_prefix,
368: p_msg_level=>fnd_log.level_procedure,
369: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
370: p_module =>'ei_psext');
371: END IF;
372: /*
513: AND temp.CHILD_ENTITY_NAME IS NOT NULL
514: AND temp.CHILD_BO_CODE IS NOT NULL;
515: -- save the records populated
516: COMMIT;
517: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
518: hz_utility_v2pub.DEBUG
519: (p_message=>'ei_HZ_PARTY_SITES_EXT_VL()-',
520: p_prefix=>l_debug_prefix,
521: p_msg_level=>fnd_log.level_procedure,
517: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
518: hz_utility_v2pub.DEBUG
519: (p_message=>'ei_HZ_PARTY_SITES_EXT_VL()-',
520: p_prefix=>l_debug_prefix,
521: p_msg_level=>fnd_log.level_procedure,
522: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
523: p_module =>'ei_psext');
524: END IF;
525: EXCEPTION
542: -----------------------------------------------------------------
543: PROCEDURE ei_HZ_ORG_PROFILES_EXT_VL IS
544: l_debug_prefix VARCHAR2(30) := 'ORG_PROF_EXT:';
545: BEGIN
546: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
547: hz_utility_v2pub.DEBUG
548: (p_message=>'ei_HZ_ORG_PROFILES_EXT_VL()+',
549: p_prefix=>l_debug_prefix,
550: p_msg_level=>fnd_log.level_procedure,
546: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
547: hz_utility_v2pub.DEBUG
548: (p_message=>'ei_HZ_ORG_PROFILES_EXT_VL()+',
549: p_prefix=>l_debug_prefix,
550: p_msg_level=>fnd_log.level_procedure,
551: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
552: p_module =>'ei_oext');
553: END IF;
554: /*
629: AND temp.CHILD_ENTITY_NAME IS NOT NULL
630: AND temp.CHILD_BO_CODE IS NOT NULL ;
631: -- save the records populated
632: COMMIT;
633: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
634: hz_utility_v2pub.DEBUG
635: (p_message=>'ei_HZ_ORG_PROFILES_EXT_VL()-',
636: p_prefix=>l_debug_prefix,
637: p_msg_level=>fnd_log.level_procedure,
633: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
634: hz_utility_v2pub.DEBUG
635: (p_message=>'ei_HZ_ORG_PROFILES_EXT_VL()-',
636: p_prefix=>l_debug_prefix,
637: p_msg_level=>fnd_log.level_procedure,
638: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
639: p_module =>'ei_oext');
640: END IF;
641: EXCEPTION
658: -----------------------------------------------------------------
659: PROCEDURE ei_HZ_PER_PROFILES_EXT_VL IS
660: l_debug_prefix VARCHAR2(30) := 'PER_PROF_EXT:';
661: BEGIN
662: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
663: hz_utility_v2pub.DEBUG
664: (p_message=>'ei_HZ_PER_PROFILES_EXT_VL()+',
665: p_prefix=>l_debug_prefix,
666: p_msg_level=>fnd_log.level_procedure,
662: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
663: hz_utility_v2pub.DEBUG
664: (p_message=>'ei_HZ_PER_PROFILES_EXT_VL()+',
665: p_prefix=>l_debug_prefix,
666: p_msg_level=>fnd_log.level_procedure,
667: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
668: p_module =>'ei_pext');
669: hz_utility_v2pub.DEBUG
670: (p_message=>'pop per prof ext for person sharing',
668: p_module =>'ei_pext');
669: hz_utility_v2pub.DEBUG
670: (p_message=>'pop per prof ext for person sharing',
671: p_prefix=>l_debug_prefix,
672: p_msg_level=>fnd_log.level_procedure,
673: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
674: p_module =>'ei_pext');
675: END IF;
676: /*
848:
849: The following SQL is to generate all the parent and grand parent combination for
850: pp_extn entity which is a child of PERSON BO
851: */
852: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
853: hz_utility_v2pub.DEBUG
854: (p_message=>'pop missing lnks for per prof ext',
855: p_prefix=>l_debug_prefix,
856: p_msg_level=>fnd_log.level_procedure,
852: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
853: hz_utility_v2pub.DEBUG
854: (p_message=>'pop missing lnks for per prof ext',
855: p_prefix=>l_debug_prefix,
856: p_msg_level=>fnd_log.level_procedure,
857: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
858: p_module =>'ei_pext');
859: END IF;
860: INSERT INTO HZ_BUS_OBJ_TRACKING
941: AND temp.CHILD_ENTITY_NAME IS NOT NULL
942: AND temp.CHILD_BO_CODE IS NOT NULL;
943: -- save the records populated
944: COMMIT;
945: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
946: hz_utility_v2pub.DEBUG
947: (p_message=>'ei_HZ_PER_PROFILES_EXT_VL()-',
948: p_prefix=>l_debug_prefix,
949: p_msg_level=>fnd_log.level_procedure,
945: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
946: hz_utility_v2pub.DEBUG
947: (p_message=>'ei_HZ_PER_PROFILES_EXT_VL()-',
948: p_prefix=>l_debug_prefix,
949: p_msg_level=>fnd_log.level_procedure,
950: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
951: p_module =>'ei_pext');
952: END IF;
953: EXCEPTION
973: -- local variables
974: l_debug_prefix VARCHAR2(40) := 'EI_HZ_PERSON_PROFILES';
975:
976: BEGIN
977: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
978: hz_utility_v2pub.DEBUG
979: (p_message=>'ei_HZ_PERSON_PROFILES+',
980: p_prefix=>l_debug_prefix,
981: p_msg_level=>fnd_log.level_procedure,
977: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
978: hz_utility_v2pub.DEBUG
979: (p_message=>'ei_HZ_PERSON_PROFILES+',
980: p_prefix=>l_debug_prefix,
981: p_msg_level=>fnd_log.level_procedure,
982: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
983: p_module =>'ei_pp');
984: hz_utility_v2pub.DEBUG
985: (p_message=>'pop per prof ext for person sharing',
983: p_module =>'ei_pp');
984: hz_utility_v2pub.DEBUG
985: (p_message=>'pop per prof ext for person sharing',
986: p_prefix=>l_debug_prefix,
987: p_msg_level=>fnd_log.level_procedure,
988: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
989: p_module =>'ei_pp');
990: END IF;
991: /*
1139:
1140: The following SQL is to generate all the parent and grand parent combination for
1141: person_profile entity which is a child of PERSON BO
1142: */
1143: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1144: hz_utility_v2pub.DEBUG
1145: (p_message=>'pop missing lnks for per prof',
1146: p_prefix=>l_debug_prefix,
1147: p_msg_level=>fnd_log.level_procedure,
1143: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1144: hz_utility_v2pub.DEBUG
1145: (p_message=>'pop missing lnks for per prof',
1146: p_prefix=>l_debug_prefix,
1147: p_msg_level=>fnd_log.level_procedure,
1148: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
1149: p_module =>'ei_pp');
1150: END IF;
1151: INSERT INTO HZ_BUS_OBJ_TRACKING
1233: AND temp.CHILD_ENTITY_NAME IS NOT NULL
1234: AND temp.CHILD_BO_CODE IS NOT NULL;
1235: -- save the records populated
1236: COMMIT;
1237: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1238: hz_utility_v2pub.DEBUG
1239: (p_message=>'ei_HZ_PERSON_PROFILES-',
1240: p_prefix=>l_debug_prefix,
1241: p_msg_level=>fnd_log.level_procedure,
1237: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1238: hz_utility_v2pub.DEBUG
1239: (p_message=>'ei_HZ_PERSON_PROFILES-',
1240: p_prefix=>l_debug_prefix,
1241: p_msg_level=>fnd_log.level_procedure,
1242: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
1243: p_module =>'ei_pp');
1244: END IF;
1245: EXCEPTION
1265: -- local variables
1266: l_debug_prefix VARCHAR2(40) := 'EI_HZ_PARTY_SITE_USES';
1267:
1268: BEGIN
1269: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1270: hz_utility_v2pub.DEBUG
1271: (p_message=>'ei_HZ_PARTY_SITE_USES+',
1272: p_prefix=>l_debug_prefix,
1273: p_msg_level=>fnd_log.level_procedure,
1269: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1270: hz_utility_v2pub.DEBUG
1271: (p_message=>'ei_HZ_PARTY_SITE_USES+',
1272: p_prefix=>l_debug_prefix,
1273: p_msg_level=>fnd_log.level_procedure,
1274: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
1275: p_module =>'ei_psu');
1276: END IF;
1277: /*
1439: AND temp.child_id IS NOT NULL
1440: AND temp.CHILD_ENTITY_NAME IS NOT NULL
1441: AND temp.CHILD_BO_CODE IS NOT NULL;
1442: COMMIT;
1443: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1444: hz_utility_v2pub.DEBUG
1445: (p_message=>'ei_HZ_PARTY_SITE_USES-',
1446: p_prefix=>l_debug_prefix,
1447: p_msg_level=>fnd_log.level_procedure,
1443: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1444: hz_utility_v2pub.DEBUG
1445: (p_message=>'ei_HZ_PARTY_SITE_USES-',
1446: p_prefix=>l_debug_prefix,
1447: p_msg_level=>fnd_log.level_procedure,
1448: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
1449: p_module =>'ei_psu');
1450: END IF;
1451: EXCEPTION
1471: -- local variables
1472: l_debug_prefix VARCHAR2(40) := 'EI_HZ_PARTY_SITES';
1473:
1474: BEGIN
1475: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1476: hz_utility_v2pub.DEBUG
1477: (p_message=>'ei_HZ_PARTY_SITES+',
1478: p_prefix=>l_debug_prefix,
1479: p_msg_level=>fnd_log.level_procedure,
1475: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1476: hz_utility_v2pub.DEBUG
1477: (p_message=>'ei_HZ_PARTY_SITES+',
1478: p_prefix=>l_debug_prefix,
1479: p_msg_level=>fnd_log.level_procedure,
1480: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
1481: p_module =>'ei_ps');
1482: END IF;
1483: /*
1614: AND temp.CHILD_ENTITY_NAME IS NOT NULL
1615: AND temp.CHILD_BO_CODE IS NOT NULL ;
1616: -- save the records populated
1617: COMMIT;
1618: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1619: hz_utility_v2pub.DEBUG
1620: (p_message=>'ei_HZ_PARTY_SITES-',
1621: p_prefix=>l_debug_prefix,
1622: p_msg_level=>fnd_log.level_procedure,
1618: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1619: hz_utility_v2pub.DEBUG
1620: (p_message=>'ei_HZ_PARTY_SITES-',
1621: p_prefix=>l_debug_prefix,
1622: p_msg_level=>fnd_log.level_procedure,
1623: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
1624: p_module =>'ei_ps');
1625: END IF;
1626: EXCEPTION
1646: -- local variables
1647: l_debug_prefix VARCHAR2(40) := 'EI_HZ_ORG_CONTACTS';
1648:
1649: BEGIN
1650: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1651: hz_utility_v2pub.DEBUG
1652: (p_message=>'ei_HZ_ORG_CONTACTS+',
1653: p_prefix=>l_debug_prefix,
1654: p_msg_level=>fnd_log.level_procedure,
1650: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1651: hz_utility_v2pub.DEBUG
1652: (p_message=>'ei_HZ_ORG_CONTACTS+',
1653: p_prefix=>l_debug_prefix,
1654: p_msg_level=>fnd_log.level_procedure,
1655: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
1656: p_module =>'ei_oc');
1657: END IF;
1658: /*
1724: AND temp.CHILD_ENTITY_NAME IS NOT NULL
1725: AND temp.CHILD_BO_CODE IS NOT NULL ;
1726: -- save the records populated
1727: COMMIT;
1728: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1729: hz_utility_v2pub.DEBUG
1730: (p_message=>'ei_HZ_ORG_CONTACTS-',
1731: p_prefix=>l_debug_prefix,
1732: p_msg_level=>fnd_log.level_procedure,
1728: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1729: hz_utility_v2pub.DEBUG
1730: (p_message=>'ei_HZ_ORG_CONTACTS-',
1731: p_prefix=>l_debug_prefix,
1732: p_msg_level=>fnd_log.level_procedure,
1733: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
1734: p_module =>'ei_oc');
1735: END IF;
1736: EXCEPTION
1756: -- local variables
1757: l_debug_prefix VARCHAR2(40) := 'ei_HZ_LOCATIONS_EXT';
1758:
1759: BEGIN
1760: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1761: hz_utility_v2pub.DEBUG
1762: (p_message=>'ei_HZ_LOCATIONS_ext+',
1763: p_prefix=>l_debug_prefix,
1764: p_msg_level=>fnd_log.level_procedure,
1760: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1761: hz_utility_v2pub.DEBUG
1762: (p_message=>'ei_HZ_LOCATIONS_ext+',
1763: p_prefix=>l_debug_prefix,
1764: p_msg_level=>fnd_log.level_procedure,
1765: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
1766: p_module =>'ei_locext');
1767: END IF;
1768: /*
1850: AND temp.CHILD_ENTITY_NAME IS NOT NULL
1851: AND temp.CHILD_BO_CODE IS NOT NULL;
1852: -- save the records populated
1853: COMMIT;
1854: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1855: hz_utility_v2pub.DEBUG
1856: (p_message=>'ei_HZ_LOCATIONS_ext-',
1857: p_prefix=>l_debug_prefix,
1858: p_msg_level=>fnd_log.level_procedure,
1854: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1855: hz_utility_v2pub.DEBUG
1856: (p_message=>'ei_HZ_LOCATIONS_ext-',
1857: p_prefix=>l_debug_prefix,
1858: p_msg_level=>fnd_log.level_procedure,
1859: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
1860: p_module =>'ei_locext');
1861: END IF;
1862: EXCEPTION
1882: -- local variables
1883: l_debug_prefix VARCHAR2(40) := 'EI_HZ_LOCATIONS';
1884:
1885: BEGIN
1886: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1887: hz_utility_v2pub.DEBUG
1888: (p_message=>'ei_HZ_LOCATIONS+',
1889: p_prefix=>l_debug_prefix,
1890: p_msg_level=>fnd_log.level_procedure,
1886: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1887: hz_utility_v2pub.DEBUG
1888: (p_message=>'ei_HZ_LOCATIONS+',
1889: p_prefix=>l_debug_prefix,
1890: p_msg_level=>fnd_log.level_procedure,
1891: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
1892: p_module =>'ei_loc');
1893: END IF;
1894: /*
2057: AND temp.CHILD_ENTITY_NAME IS NOT NULL
2058: AND temp.CHILD_BO_CODE IS NOT NULL ;
2059: -- save the records populated
2060: COMMIT;
2061: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2062: hz_utility_v2pub.DEBUG
2063: (p_message=>'ei_HZ_LOCATIONS-',
2064: p_prefix=>l_debug_prefix,
2065: p_msg_level=>fnd_log.level_procedure,
2061: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2062: hz_utility_v2pub.DEBUG
2063: (p_message=>'ei_HZ_LOCATIONS-',
2064: p_prefix=>l_debug_prefix,
2065: p_msg_level=>fnd_log.level_procedure,
2066: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
2067: p_module =>'ei_loc');
2068: END IF;
2069: EXCEPTION
2089: -- local variables
2090: l_debug_prefix VARCHAR2(40) := 'EI_HZ_CUST_SITE_USES_ALL';
2091:
2092: BEGIN
2093: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2094: hz_utility_v2pub.DEBUG
2095: (p_message=>'ei_HZ_CUST_SITE_USES_ALL+',
2096: p_prefix=>l_debug_prefix,
2097: p_msg_level=>fnd_log.level_procedure,
2093: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2094: hz_utility_v2pub.DEBUG
2095: (p_message=>'ei_HZ_CUST_SITE_USES_ALL+',
2096: p_prefix=>l_debug_prefix,
2097: p_msg_level=>fnd_log.level_procedure,
2098: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
2099: p_module =>'ei_actsiteuse');
2100: END IF;
2101: /*
2214: AND temp.CHILD_ENTITY_NAME IS NOT NULL
2215: AND temp.CHILD_BO_CODE IS NOT NULL;
2216: -- save the records populated
2217: COMMIT;
2218: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2219: hz_utility_v2pub.DEBUG
2220: (p_message=>'ei_HZ_CUST_SITE_USES_ALL-',
2221: p_prefix=>l_debug_prefix,
2222: p_msg_level=>fnd_log.level_procedure,
2218: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2219: hz_utility_v2pub.DEBUG
2220: (p_message=>'ei_HZ_CUST_SITE_USES_ALL-',
2221: p_prefix=>l_debug_prefix,
2222: p_msg_level=>fnd_log.level_procedure,
2223: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
2224: p_module =>'ei_actsiteuse');
2225: END IF;
2226: EXCEPTION
2246: -- local variables
2247: l_debug_prefix VARCHAR2(40) := 'EI_HZ_CUST_ACCT_SITES_ALL';
2248:
2249: BEGIN
2250: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2251: hz_utility_v2pub.DEBUG
2252: (p_message=>'ei_HZ_CUST_ACCT_SITES_ALL+',
2253: p_prefix=>l_debug_prefix,
2254: p_msg_level=>fnd_log.level_procedure,
2250: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2251: hz_utility_v2pub.DEBUG
2252: (p_message=>'ei_HZ_CUST_ACCT_SITES_ALL+',
2253: p_prefix=>l_debug_prefix,
2254: p_msg_level=>fnd_log.level_procedure,
2255: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
2256: p_module =>'ei_actsite');
2257: END IF;
2258: /*
2363: AND temp.CHILD_ENTITY_NAME IS NOT NULL
2364: AND temp.CHILD_BO_CODE IS NOT NULL;
2365: -- save the records populated
2366: COMMIT;
2367: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2368: hz_utility_v2pub.DEBUG
2369: (p_message=>'ei_HZ_CUST_ACCT_SITES_ALL-',
2370: p_prefix=>l_debug_prefix,
2371: p_msg_level=>fnd_log.level_procedure,
2367: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2368: hz_utility_v2pub.DEBUG
2369: (p_message=>'ei_HZ_CUST_ACCT_SITES_ALL-',
2370: p_prefix=>l_debug_prefix,
2371: p_msg_level=>fnd_log.level_procedure,
2372: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
2373: p_module =>'ei_actsite');
2374: END IF;
2375: EXCEPTION
2395: -- local variables
2396: l_debug_prefix VARCHAR2(40) := 'EI_HZ_CUST_ACCOUNT_ROLES';
2397:
2398: BEGIN
2399: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2400: hz_utility_v2pub.DEBUG
2401: (p_message=>'ei_HZ_CUST_ACCOUNT_ROLES+',
2402: p_prefix=>l_debug_prefix,
2403: p_msg_level=>fnd_log.level_procedure,
2399: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2400: hz_utility_v2pub.DEBUG
2401: (p_message=>'ei_HZ_CUST_ACCOUNT_ROLES+',
2402: p_prefix=>l_debug_prefix,
2403: p_msg_level=>fnd_log.level_procedure,
2404: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
2405: p_module =>'ei_actroles');
2406: END IF;
2407: /*
2547: AND temp.CHILD_ENTITY_NAME IS NOT NULL
2548: AND temp.CHILD_BO_CODE IS NOT NULL;
2549: -- save the records populated
2550: COMMIT;
2551: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2552: hz_utility_v2pub.DEBUG
2553: (p_message=>'ei_HZ_CUST_ACCOUNT_ROLES-',
2554: p_prefix=>l_debug_prefix,
2555: p_msg_level=>fnd_log.level_procedure,
2551: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2552: hz_utility_v2pub.DEBUG
2553: (p_message=>'ei_HZ_CUST_ACCOUNT_ROLES-',
2554: p_prefix=>l_debug_prefix,
2555: p_msg_level=>fnd_log.level_procedure,
2556: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
2557: p_module =>'ei_actroles');
2558: END IF;
2559: EXCEPTION
2579: -- local variables
2580: l_debug_prefix VARCHAR2(40) := 'EI_HZ_CUST_ACCOUNTS';
2581:
2582: BEGIN
2583: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2584: hz_utility_v2pub.DEBUG
2585: (p_message=>'ei_HZ_CUST_ACCOUNTS+',
2586: p_prefix=>l_debug_prefix,
2587: p_msg_level=>fnd_log.level_procedure,
2583: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2584: hz_utility_v2pub.DEBUG
2585: (p_message=>'ei_HZ_CUST_ACCOUNTS+',
2586: p_prefix=>l_debug_prefix,
2587: p_msg_level=>fnd_log.level_procedure,
2588: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
2589: p_module =>'ei_act');
2590: END IF;
2591: /*
2695: AND temp.CHILD_ENTITY_NAME IS NOT NULL
2696: AND temp.CHILD_BO_CODE IS NOT NULL;
2697: -- save the records populated
2698: COMMIT;
2699: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2700: hz_utility_v2pub.DEBUG
2701: (p_message=>'ei_HZ_CUST_ACCOUNTS-',
2702: p_prefix=>l_debug_prefix,
2703: p_msg_level=>fnd_log.level_procedure,
2699: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2700: hz_utility_v2pub.DEBUG
2701: (p_message=>'ei_HZ_CUST_ACCOUNTS-',
2702: p_prefix=>l_debug_prefix,
2703: p_msg_level=>fnd_log.level_procedure,
2704: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
2705: p_module =>'ei_act');
2706: END IF;
2707: EXCEPTION
2727: -- local variables
2728: l_debug_prefix VARCHAR2(40) := 'EI_HZ_CUSTOMER_PROFILES';
2729:
2730: BEGIN
2731: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2732: hz_utility_v2pub.DEBUG
2733: (p_message=>'ei_HZ_CUSTOMER_PROFILES+',
2734: p_prefix=>l_debug_prefix,
2735: p_msg_level=>fnd_log.level_procedure,
2731: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2732: hz_utility_v2pub.DEBUG
2733: (p_message=>'ei_HZ_CUSTOMER_PROFILES+',
2734: p_prefix=>l_debug_prefix,
2735: p_msg_level=>fnd_log.level_procedure,
2736: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
2737: p_module =>'ei_custprof');
2738: END IF;
2739: /*
2882: AND temp.CHILD_ENTITY_NAME IS NOT NULL
2883: AND temp.CHILD_BO_CODE IS NOT NULL ;
2884: -- save the records populated
2885: COMMIT;
2886: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2887: hz_utility_v2pub.DEBUG
2888: (p_message=>'ei_HZ_CUSTOMER_PROFILES-',
2889: p_prefix=>l_debug_prefix,
2890: p_msg_level=>fnd_log.level_procedure,
2886: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2887: hz_utility_v2pub.DEBUG
2888: (p_message=>'ei_HZ_CUSTOMER_PROFILES-',
2889: p_prefix=>l_debug_prefix,
2890: p_msg_level=>fnd_log.level_procedure,
2891: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
2892: p_module =>'ei_custprof');
2893: END IF;
2894: EXCEPTION
2914: -- local variables
2915: l_debug_prefix VARCHAR2(40) := 'EI_HZ_CONTACT_POINTS';
2916: l_module VARCHAR2(30) := 'ei_cp';
2917: BEGIN
2918: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2919: hz_utility_v2pub.DEBUG
2920: (p_message=>'ei_HZ_CONTACT_POINTS+',
2921: p_prefix=>l_debug_prefix,
2922: p_msg_level=>fnd_log.level_procedure,
2918: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2919: hz_utility_v2pub.DEBUG
2920: (p_message=>'ei_HZ_CONTACT_POINTS+',
2921: p_prefix=>l_debug_prefix,
2922: p_msg_level=>fnd_log.level_procedure,
2923: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
2924: p_module =>'ei_cp');
2925: END IF;
2926:
3111: AND temp.CHILD_ENTITY_NAME IS NOT NULL
3112: AND temp.CHILD_BO_CODE IS NOT NULL;
3113: -- save the records populated
3114: COMMIT;
3115: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3116: hz_utility_v2pub.DEBUG
3117: (p_message=>'ei_HZ_CONTACT_POINTS-',
3118: p_prefix=>l_debug_prefix,
3119: p_msg_level=>fnd_log.level_procedure,
3115: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3116: hz_utility_v2pub.DEBUG
3117: (p_message=>'ei_HZ_CONTACT_POINTS-',
3118: p_prefix=>l_debug_prefix,
3119: p_msg_level=>fnd_log.level_procedure,
3120: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3121: p_module =>'ei_cp');
3122: END IF;
3123:
3138: EXCEPTION
3139: WHEN others THEN
3140: hz_utility_v2pub.debug(p_message=>sqlerrm,
3141: p_prefix=>g_debug_prefix,
3142: p_msg_level=>fnd_log.level_procedure);
3143: END set_prof_var; -- set_prof_var
3144:
3145:
3146: FUNCTION get_prof_val RETURN VARCHAR2 IS
3149: EXCEPTION
3150: WHEN others THEN
3151: hz_utility_v2pub.debug(p_message=>sqlerrm,
3152: p_prefix=>g_debug_prefix,
3153: p_msg_level=>fnd_log.level_procedure);
3154: END get_prof_val; -- get_prof_val
3155: ----------------------------------------------------------------------
3156: /*
3157: Procedure name: entity_in_bo
3228: 3.1 if the combination exists then, RETURN TRUE.
3229: 3.2 if the combination does not exist, return FALSE
3230: */
3231:
3232: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3233: hz_utility_v2pub.DEBUG
3234: (p_message=>'entity_in_bo()+',
3235: p_prefix=>l_debug_prefix,
3236: p_msg_level=>fnd_log.level_procedure,
3232: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3233: hz_utility_v2pub.DEBUG
3234: (p_message=>'entity_in_bo()+',
3235: p_prefix=>l_debug_prefix,
3236: p_msg_level=>fnd_log.level_procedure,
3237: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3238: p_module =>l_module);
3239: hz_utility_v2pub.DEBUG
3240: (p_message=>'bfr validating parameters',
3238: p_module =>l_module);
3239: hz_utility_v2pub.DEBUG
3240: (p_message=>'bfr validating parameters',
3241: p_prefix=>l_debug_prefix,
3242: p_msg_level=>fnd_log.level_procedure,
3243: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3244: p_module =>l_module);
3245: END IF;
3246: -- P_BO_CODE, p_ebo_code, p_entity_name must be not null
3244: p_module =>l_module);
3245: END IF;
3246: -- P_BO_CODE, p_ebo_code, p_entity_name must be not null
3247: IF (p_bo_code IS NULL) THEN
3248: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3249: hz_utility_v2pub.DEBUG
3250: (p_message=>'p_bo_code mandatory param is null',
3251: p_prefix=>l_debug_prefix,
3252: p_msg_level=>fnd_log.level_procedure,
3248: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3249: hz_utility_v2pub.DEBUG
3250: (p_message=>'p_bo_code mandatory param is null',
3251: p_prefix=>l_debug_prefix,
3252: p_msg_level=>fnd_log.level_procedure,
3253: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3254: p_module =>l_module);
3255: hz_utility_v2pub.DEBUG
3256: (p_message=>'entity_in_bo()-',
3254: p_module =>l_module);
3255: hz_utility_v2pub.DEBUG
3256: (p_message=>'entity_in_bo()-',
3257: p_prefix=>l_debug_prefix,
3258: p_msg_level=>fnd_log.level_procedure,
3259: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3260: p_module =>l_module);
3261: END IF;
3262: RAISE FND_API.G_EXC_ERROR;
3261: END IF;
3262: RAISE FND_API.G_EXC_ERROR;
3263: END IF;
3264: IF (p_ebo_code IS NULL) THEN
3265: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3266: hz_utility_v2pub.DEBUG
3267: (p_message=>'p_ebo_code mandatory param is null',
3268: p_prefix=>l_debug_prefix,
3269: p_msg_level=>fnd_log.level_procedure,
3265: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3266: hz_utility_v2pub.DEBUG
3267: (p_message=>'p_ebo_code mandatory param is null',
3268: p_prefix=>l_debug_prefix,
3269: p_msg_level=>fnd_log.level_procedure,
3270: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3271: p_module =>l_module);
3272: hz_utility_v2pub.DEBUG
3273: (p_message=>'entity_in_bo()-',
3271: p_module =>l_module);
3272: hz_utility_v2pub.DEBUG
3273: (p_message=>'entity_in_bo()-',
3274: p_prefix=>l_debug_prefix,
3275: p_msg_level=>fnd_log.level_procedure,
3276: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3277: p_module =>l_module);
3278: END IF;
3279: RAISE FND_API.G_EXC_ERROR;
3278: END IF;
3279: RAISE FND_API.G_EXC_ERROR;
3280: END IF;
3281: IF (p_entity_name IS NULL) THEN
3282: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3283: hz_utility_v2pub.DEBUG
3284: (p_message=>'p_entity_name mandatory param is null',
3285: p_prefix=>l_debug_prefix,
3286: p_msg_level=>fnd_log.level_procedure,
3282: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3283: hz_utility_v2pub.DEBUG
3284: (p_message=>'p_entity_name mandatory param is null',
3285: p_prefix=>l_debug_prefix,
3286: p_msg_level=>fnd_log.level_procedure,
3287: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3288: p_module =>l_module);
3289: hz_utility_v2pub.DEBUG
3290: (p_message=>'entity_in_bo()-',
3288: p_module =>l_module);
3289: hz_utility_v2pub.DEBUG
3290: (p_message=>'entity_in_bo()-',
3291: p_prefix=>l_debug_prefix,
3292: p_msg_level=>fnd_log.level_procedure,
3293: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3294: p_module =>l_module);
3295: END IF;
3296: RAISE FND_API.G_EXC_ERROR;
3324: -- WHEN HIGH LEVEL BO AND EBO_CODE ARE different AND CHILD_BO_CODE IS NOT NULL
3325: IF ((NOT(l_samebo_flag)) AND (NOT(l_cbo_null_flag))) THEN
3326: l_node := '/'||p_bo_code||'%/'||p_ebo_code||'/'||p_child_bo_code;
3327: END IF;
3328: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3329: hz_utility_v2pub.DEBUG
3330: (p_message=>'node path is:'||l_node,
3331: p_prefix=>l_debug_prefix,
3332: p_msg_level=>fnd_log.level_procedure,
3328: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3329: hz_utility_v2pub.DEBUG
3330: (p_message=>'node path is:'||l_node,
3331: p_prefix=>l_debug_prefix,
3332: p_msg_level=>fnd_log.level_procedure,
3333: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3334: p_module =>l_module);
3335: END IF;
3336: -- OPEN c_chk_entity (p_bo_code, p_ebo_code, p_child_bo_code, p_entity_name);
3345: -- RETURN FALSE;
3346: END IF;
3347: EXCEPTION
3348: WHEN OTHERS THEN
3349: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3350: hz_utility_v2pub.DEBUG
3351: (p_message=>sqlerrm,
3352: p_prefix=>l_debug_prefix,
3353: p_msg_level=>fnd_log.level_procedure,
3349: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3350: hz_utility_v2pub.DEBUG
3351: (p_message=>sqlerrm,
3352: p_prefix=>l_debug_prefix,
3353: p_msg_level=>fnd_log.level_procedure,
3354: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3355: p_module =>l_module);
3356: hz_utility_v2pub.DEBUG
3357: (p_message=>'entity_in_bo()-',
3355: p_module =>l_module);
3356: hz_utility_v2pub.DEBUG
3357: (p_message=>'entity_in_bo()-',
3358: p_prefix=>l_debug_prefix,
3359: p_msg_level=>fnd_log.level_procedure,
3360: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3361: p_module =>l_module);
3362: END IF;
3363: END entity_in_bo;
3443: message => 'bfr calling ei_HZ_CONTACT_PREFERENCES()',
3444: p_prefix =>l_debug_prefix,
3445: p_module => l_module);
3446: */
3447: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3448: hz_utility_v2pub.DEBUG
3449: (p_message=>'bfr calling ei_HZ_CONTACT_PREFERENCES()',
3450: p_prefix=>l_debug_prefix,
3451: p_msg_level=>fnd_log.level_procedure,
3447: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3448: hz_utility_v2pub.DEBUG
3449: (p_message=>'bfr calling ei_HZ_CONTACT_PREFERENCES()',
3450: p_prefix=>l_debug_prefix,
3451: p_msg_level=>fnd_log.level_procedure,
3452: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3453: p_module =>'pop_missing_lnks');
3454: END IF;
3455:
3459: message => 'bfr calling ei_HZ_PER_PROFILES_EXT_VL()',
3460: p_prefix =>l_debug_prefix,
3461: p_module => l_module);
3462: */
3463: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3464: hz_utility_v2pub.DEBUG
3465: (p_message=>'bfr calling ei_HZ_PER_PROFILES_EXT_VL()',
3466: p_prefix=>l_debug_prefix,
3467: p_msg_level=>fnd_log.level_procedure,
3463: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3464: hz_utility_v2pub.DEBUG
3465: (p_message=>'bfr calling ei_HZ_PER_PROFILES_EXT_VL()',
3466: p_prefix=>l_debug_prefix,
3467: p_msg_level=>fnd_log.level_procedure,
3468: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3469: p_module =>'pop_missing_lnks');
3470: END IF;
3471:
3475: message => 'bfr calling ei_HZ_PERSON_PROFILES()',
3476: p_prefix =>l_debug_prefix,
3477: p_module => l_module);
3478: */
3479: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3480: hz_utility_v2pub.DEBUG
3481: (p_message=>'bfr calling ei_HZ_PERSON_PROFILES()',
3482: p_prefix=>l_debug_prefix,
3483: p_msg_level=>fnd_log.level_procedure,
3479: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3480: hz_utility_v2pub.DEBUG
3481: (p_message=>'bfr calling ei_HZ_PERSON_PROFILES()',
3482: p_prefix=>l_debug_prefix,
3483: p_msg_level=>fnd_log.level_procedure,
3484: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3485: p_module =>'pop_missing_lnks');
3486: END IF;
3487:
3491: message => 'bfr calling ei_HZ_PARTY_SITE_USES()',
3492: p_prefix =>l_debug_prefix,
3493: p_module => l_module);
3494: */
3495: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3496: hz_utility_v2pub.DEBUG
3497: (p_message=>'bfr calling ei_HZ_PARTY_SITE_USES()',
3498: p_prefix=>l_debug_prefix,
3499: p_msg_level=>fnd_log.level_procedure,
3495: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3496: hz_utility_v2pub.DEBUG
3497: (p_message=>'bfr calling ei_HZ_PARTY_SITE_USES()',
3498: p_prefix=>l_debug_prefix,
3499: p_msg_level=>fnd_log.level_procedure,
3500: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3501: p_module =>'pop_missing_lnks');
3502: END IF;
3503:
3507: message => 'bfr calling ei_HZ_CONTACT_POINTS()',
3508: p_prefix =>l_debug_prefix,
3509: p_module => l_module);
3510: */
3511: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3512: hz_utility_v2pub.DEBUG
3513: (p_message=>'bfr calling ei_HZ_CONTACT_POINTS()',
3514: p_prefix=>l_debug_prefix,
3515: p_msg_level=>fnd_log.level_procedure,
3511: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3512: hz_utility_v2pub.DEBUG
3513: (p_message=>'bfr calling ei_HZ_CONTACT_POINTS()',
3514: p_prefix=>l_debug_prefix,
3515: p_msg_level=>fnd_log.level_procedure,
3516: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3517: p_module =>'pop_missing_lnks');
3518: END IF;
3519:
3523: message => 'bfr calling ei_HZ_PARTY_SITES_EXT_VL()',
3524: p_prefix =>l_debug_prefix,
3525: p_module => l_module);
3526: */
3527: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3528: hz_utility_v2pub.DEBUG
3529: (p_message=>'bfr calling ei_HZ_PARTY_SITES_EXT_VL()',
3530: p_prefix=>l_debug_prefix,
3531: p_msg_level=>fnd_log.level_procedure,
3527: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3528: hz_utility_v2pub.DEBUG
3529: (p_message=>'bfr calling ei_HZ_PARTY_SITES_EXT_VL()',
3530: p_prefix=>l_debug_prefix,
3531: p_msg_level=>fnd_log.level_procedure,
3532: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3533: p_module =>'pop_missing_lnks');
3534: END IF;
3535:
3539: message => 'bfr calling ei_HZ_LOCATIONS_EXT()',
3540: p_prefix =>l_debug_prefix,
3541: p_module => l_module);
3542: */
3543: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3544: hz_utility_v2pub.DEBUG
3545: (p_message=>'bfr calling ei_HZ_LOCATIONS_EXT()',
3546: p_prefix=>l_debug_prefix,
3547: p_msg_level=>fnd_log.level_procedure,
3543: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3544: hz_utility_v2pub.DEBUG
3545: (p_message=>'bfr calling ei_HZ_LOCATIONS_EXT()',
3546: p_prefix=>l_debug_prefix,
3547: p_msg_level=>fnd_log.level_procedure,
3548: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3549: p_module =>'pop_missing_lnks');
3550: END IF;
3551:
3555: message => 'bfr calling ei_HZ_LOCATIONS()',
3556: p_prefix =>l_debug_prefix,
3557: p_module => l_module);
3558: */
3559: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3560: hz_utility_v2pub.DEBUG
3561: (p_message=>'bfr calling ei_HZ_LOCATIONS()',
3562: p_prefix=>l_debug_prefix,
3563: p_msg_level=>fnd_log.level_procedure,
3559: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3560: hz_utility_v2pub.DEBUG
3561: (p_message=>'bfr calling ei_HZ_LOCATIONS()',
3562: p_prefix=>l_debug_prefix,
3563: p_msg_level=>fnd_log.level_procedure,
3564: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3565: p_module =>'pop_missing_lnks');
3566: END IF;
3567:
3571: message => 'bfr calling ei_HZ_PARTY_SITES()',
3572: p_prefix =>l_debug_prefix,
3573: p_module => l_module);
3574: */
3575: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3576: hz_utility_v2pub.DEBUG
3577: (p_message=>'bfr calling ei_HZ_PARTY_SITES()',
3578: p_prefix=>l_debug_prefix,
3579: p_msg_level=>fnd_log.level_procedure,
3575: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3576: hz_utility_v2pub.DEBUG
3577: (p_message=>'bfr calling ei_HZ_PARTY_SITES()',
3578: p_prefix=>l_debug_prefix,
3579: p_msg_level=>fnd_log.level_procedure,
3580: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3581: p_module =>'pop_missing_lnks');
3582: END IF;
3583:
3587: message => 'bfr calling ei_HZ_ORG_CONTACTS()',
3588: p_prefix =>l_debug_prefix,
3589: p_module => l_module);
3590: */
3591: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3592: hz_utility_v2pub.DEBUG
3593: (p_message=>'bfr calling ei_HZ_ORG_CONTACTS()',
3594: p_prefix=>l_debug_prefix,
3595: p_msg_level=>fnd_log.level_procedure,
3591: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3592: hz_utility_v2pub.DEBUG
3593: (p_message=>'bfr calling ei_HZ_ORG_CONTACTS()',
3594: p_prefix=>l_debug_prefix,
3595: p_msg_level=>fnd_log.level_procedure,
3596: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3597: p_module =>'pop_missing_lnks');
3598: END IF;
3599:
3603: message => 'bfr calling ei_HZ_ORG_PROFILES_EXT_VL()',
3604: p_prefix =>l_debug_prefix,
3605: p_module => l_module);
3606: */
3607: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3608: hz_utility_v2pub.DEBUG
3609: (p_message=>'bfr calling ei_HZ_ORG_PROFILES_EXT_VL()',
3610: p_prefix=>l_debug_prefix,
3611: p_msg_level=>fnd_log.level_procedure,
3607: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3608: hz_utility_v2pub.DEBUG
3609: (p_message=>'bfr calling ei_HZ_ORG_PROFILES_EXT_VL()',
3610: p_prefix=>l_debug_prefix,
3611: p_msg_level=>fnd_log.level_procedure,
3612: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3613: p_module =>'pop_missing_lnks');
3614: END IF;
3615:
3619: message => 'bfr calling ei_HZ_CUST_ACCOUNT_ROLES()',
3620: p_prefix =>l_debug_prefix,
3621: p_module => l_module);
3622: */
3623: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3624: hz_utility_v2pub.DEBUG
3625: (p_message=>'bfr calling ei_HZ_CUST_ACCOUNT_ROLES()',
3626: p_prefix=>l_debug_prefix,
3627: p_msg_level=>fnd_log.level_procedure,
3623: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3624: hz_utility_v2pub.DEBUG
3625: (p_message=>'bfr calling ei_HZ_CUST_ACCOUNT_ROLES()',
3626: p_prefix=>l_debug_prefix,
3627: p_msg_level=>fnd_log.level_procedure,
3628: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3629: p_module =>'pop_missing_lnks');
3630: END IF;
3631:
3635: message => 'bfr calling ei_HZ_CUSTOMER_PROFILES()',
3636: p_prefix =>l_debug_prefix,
3637: p_module => l_module);
3638: */
3639: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3640: hz_utility_v2pub.DEBUG
3641: (p_message=>'bfr calling ei_HZ_CUSTOMER_PROFILES()',
3642: p_prefix=>l_debug_prefix,
3643: p_msg_level=>fnd_log.level_procedure,
3639: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3640: hz_utility_v2pub.DEBUG
3641: (p_message=>'bfr calling ei_HZ_CUSTOMER_PROFILES()',
3642: p_prefix=>l_debug_prefix,
3643: p_msg_level=>fnd_log.level_procedure,
3644: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3645: p_module =>'pop_missing_lnks');
3646: END IF;
3647:
3651: message => 'bfr calling ei_HZ_CUST_SITE_USES_ALL()',
3652: p_prefix =>l_debug_prefix,
3653: p_module => l_module);
3654: */
3655: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3656: hz_utility_v2pub.DEBUG
3657: (p_message=>'bfr calling ei_HZ_CUST_SITE_USES_ALL()',
3658: p_prefix=>l_debug_prefix,
3659: p_msg_level=>fnd_log.level_procedure,
3655: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3656: hz_utility_v2pub.DEBUG
3657: (p_message=>'bfr calling ei_HZ_CUST_SITE_USES_ALL()',
3658: p_prefix=>l_debug_prefix,
3659: p_msg_level=>fnd_log.level_procedure,
3660: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3661: p_module =>'pop_missing_lnks');
3662: END IF;
3663:
3668: message => 'bfr calling ei_HZ_CUST_ACCT_SITES_ALL()',
3669: p_prefix =>l_debug_prefix,
3670: p_module => l_module);
3671: */
3672: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3673: hz_utility_v2pub.DEBUG
3674: (p_message=>'bfr calling ei_HZ_CUST_ACCT_SITES_ALL()',
3675: p_prefix=>l_debug_prefix,
3676: p_msg_level=>fnd_log.level_procedure,
3672: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3673: hz_utility_v2pub.DEBUG
3674: (p_message=>'bfr calling ei_HZ_CUST_ACCT_SITES_ALL()',
3675: p_prefix=>l_debug_prefix,
3676: p_msg_level=>fnd_log.level_procedure,
3677: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3678: p_module =>'pop_missing_lnks');
3679: END IF;
3680:
3685: message => 'bfr calling ei_HZ_CUST_ACCOUNTS()',
3686: p_prefix =>l_debug_prefix,
3687: p_module => l_module);
3688: */
3689: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3690: hz_utility_v2pub.DEBUG
3691: (p_message=>'bfr calling ei_HZ_CUST_ACCOUNTS()',
3692: p_prefix=>l_debug_prefix,
3693: p_msg_level=>fnd_log.level_procedure,
3689: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3690: hz_utility_v2pub.DEBUG
3691: (p_message=>'bfr calling ei_HZ_CUST_ACCOUNTS()',
3692: p_prefix=>l_debug_prefix,
3693: p_msg_level=>fnd_log.level_procedure,
3694: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3695: p_module =>'pop_missing_lnks');
3696: END IF;
3697:
3771: */
3772: hz_utility_v2pub.DEBUG
3773: (p_message=>'upd_bot_evt_id()+',
3774: p_prefix=>l_debug_prefix,
3775: p_msg_level=>fnd_log.level_procedure);
3776: IF p_bulk_evt THEN
3777: -- The event was raised in bulk i.e., One event was raised for a set of
3778: -- Business Objects of the same type with same operation.
3779: OPEN c_bulk_bo_gt(
3819: COMMIT;
3820: hz_utility_v2pub.DEBUG
3821: (p_message=>'upd_bot_evt_id()-',
3822: p_prefix=>l_debug_prefix,
3823: p_msg_level=>fnd_log.level_procedure);
3824: EXCEPTION
3825: WHEN OTHERS THEN
3826: ROLLBACK;
3827: hz_utility_v2pub.DEBUG
3826: ROLLBACK;
3827: hz_utility_v2pub.DEBUG
3828: (p_message=>SQLERRM,
3829: p_prefix=>l_debug_prefix,
3830: p_msg_level=>fnd_log.level_procedure);
3831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3832: END upd_bot_evt_id;
3833: -------------------------------------------------------------------------------
3834: PROCEDURE upd_bot_evtid_dt (
3905: do forall update of on BOT using the retrun values
3906: commit;
3907: If the individual event is raised
3908: */
3909: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3910: hz_utility_v2pub.DEBUG
3911: (p_message=>'upd_bot_evtid_dt()+',
3912: p_prefix=>l_debug_prefix,
3913: p_msg_level=>fnd_log.level_procedure,
3909: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3910: hz_utility_v2pub.DEBUG
3911: (p_message=>'upd_bot_evtid_dt()+',
3912: p_prefix=>l_debug_prefix,
3913: p_msg_level=>fnd_log.level_procedure,
3914: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3915: p_module =>'updbot');
3916: END IF;
3917:
3915: p_module =>'updbot');
3916: END IF;
3917:
3918: IF p_bulk_evt THEN
3919: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3920: hz_utility_v2pub.DEBUG
3921: (p_message=>'for bulk event',
3922: p_prefix=>l_debug_prefix,
3923: p_msg_level=>fnd_log.level_procedure,
3919: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3920: hz_utility_v2pub.DEBUG
3921: (p_message=>'for bulk event',
3922: p_prefix=>l_debug_prefix,
3923: p_msg_level=>fnd_log.level_procedure,
3924: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3925: p_module =>'updbot');
3926: END IF;
3927: -- The event was raised in bulk i.e., One event was raised for a set of
3953: AND PARENT_ID = PRIOR CHILD_ID
3954: AND parent_bo_code = PRIOR child_bo_code) ;
3955: ELSE
3956: -- one event per object instance was raised.
3957: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3958: hz_utility_v2pub.DEBUG
3959: (p_message=>'for one event per object instance',
3960: p_prefix=>l_debug_prefix,
3961: p_msg_level=>fnd_log.level_procedure,
3957: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3958: hz_utility_v2pub.DEBUG
3959: (p_message=>'for one event per object instance',
3960: p_prefix=>l_debug_prefix,
3961: p_msg_level=>fnd_log.level_procedure,
3962: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
3963: p_module =>'updbot');
3964: END IF;
3965: UPDATE HZ_BUS_OBJ_TRACKING
3995: if p_commit then
3996: -- commit the changes only when conc program calls
3997: COMMIT;
3998: end if;
3999: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4000: hz_utility_v2pub.DEBUG
4001: (p_message=>'upd_bot_evtid_dt()-',
4002: p_prefix=>l_debug_prefix,
4003: p_msg_level=>fnd_log.level_procedure,
3999: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4000: hz_utility_v2pub.DEBUG
4001: (p_message=>'upd_bot_evtid_dt()-',
4002: p_prefix=>l_debug_prefix,
4003: p_msg_level=>fnd_log.level_procedure,
4004: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4005: p_module =>'updbot');
4006: END IF;
4007: EXCEPTION
4044: /* Logic flow
4045: Select all the rows from GT, from the list, update the hz_parties table for all the
4046: rows that do not have correct BO version number
4047: */
4048: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4049: hz_utility_v2pub.DEBUG
4050: (p_message=>'upd_hzp_bo_ver()+',
4051: p_prefix=>l_debug_prefix,
4052: p_msg_level=>fnd_log.level_procedure,
4048: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4049: hz_utility_v2pub.DEBUG
4050: (p_message=>'upd_hzp_bo_ver()+',
4051: p_prefix=>l_debug_prefix,
4052: p_msg_level=>fnd_log.level_procedure,
4053: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4054: p_module =>'updp');
4055: END IF;
4056:
4091: OR ORG_CUST_BO_VERSION IS NULL);
4092:
4093: -- commit the changes
4094: COMMIT;
4095: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4096: hz_utility_v2pub.DEBUG
4097: (p_message=>'upd_hzp_bo_ver()-',
4098: p_prefix=>l_debug_prefix,
4099: p_msg_level=>fnd_log.level_procedure,
4095: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4096: hz_utility_v2pub.DEBUG
4097: (p_message=>'upd_hzp_bo_ver()-',
4098: p_prefix=>l_debug_prefix,
4099: p_msg_level=>fnd_log.level_procedure,
4100: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4101: p_module =>'updp');
4102: END IF;
4103: EXCEPTION
4130: Delete all the processed records that for which event is raised
4131: before given date.
4132:
4133: */
4134: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4135: hz_utility_v2pub.DEBUG
4136: (p_message=>'del_bot()+',
4137: p_prefix=>l_debug_prefix,
4138: p_msg_level=>fnd_log.level_procedure,
4134: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4135: hz_utility_v2pub.DEBUG
4136: (p_message=>'del_bot()+',
4137: p_prefix=>l_debug_prefix,
4138: p_msg_level=>fnd_log.level_procedure,
4139: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4140: p_module =>'del_bot');
4141: hz_utility_v2pub.DEBUG
4142: (p_message=>'cutoff date is:'||TO_CHAR(p_cutoff_dt),
4140: p_module =>'del_bot');
4141: hz_utility_v2pub.DEBUG
4142: (p_message=>'cutoff date is:'||TO_CHAR(p_cutoff_dt),
4143: p_prefix=>l_debug_prefix,
4144: p_msg_level=>fnd_log.level_procedure,
4145: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4146: p_module =>'del_bot');
4147: END IF;
4148:
4182: effected records may be deleted. Leaving only a handful of records to
4183: be deleted for CASE3. This might enhance the performance.
4184: TO be Done - Srikanth Jan 24th 2006
4185: */
4186: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4187: hz_utility_v2pub.DEBUG
4188: (p_message=>'del_bot()-',
4189: p_prefix=>l_debug_prefix,
4190: p_msg_level=>fnd_log.level_procedure,
4186: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4187: hz_utility_v2pub.DEBUG
4188: (p_message=>'del_bot()-',
4189: p_prefix=>l_debug_prefix,
4190: p_msg_level=>fnd_log.level_procedure,
4191: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4192: p_module =>'del_bot');
4193: END IF;
4194:
4216: l_debug_prefix VARCHAR2(40) := 'DEL_DUPLICATE_ROWS2';
4217: l_module VARCHAR2(30) := 'del_dup2';
4218:
4219: BEGIN
4220: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4221: hz_utility_v2pub.DEBUG
4222: (p_message=>'del_duplicate_rows2+',
4223: p_prefix=>l_debug_prefix,
4224: p_msg_level=>fnd_log.level_procedure,
4220: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4221: hz_utility_v2pub.DEBUG
4222: (p_message=>'del_duplicate_rows2+',
4223: p_prefix=>l_debug_prefix,
4224: p_msg_level=>fnd_log.level_procedure,
4225: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4226: p_module =>'del_dup');
4227: END IF;
4228:
4237: FROM HZ_BUS_OBJ_TRACKING a
4238: WHERE a.event_id IS NULL)
4239: WHERE ROWRANK >1);
4240: COMMIT;
4241: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4242: hz_utility_v2pub.DEBUG
4243: (p_message=>'del_duplicate_rows2-',
4244: p_prefix=>l_debug_prefix,
4245: p_msg_level=>fnd_log.level_procedure,
4241: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4242: hz_utility_v2pub.DEBUG
4243: (p_message=>'del_duplicate_rows2-',
4244: p_prefix=>l_debug_prefix,
4245: p_msg_level=>fnd_log.level_procedure,
4246: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4247: p_module =>'del_dup');
4248: END IF;
4249:
4312: delete the Org and Org Customer hierarchies for a given partyId
4313: -- This is because, the Org bo might have corresponding
4314: -- Org Customer BO in BOT
4315: */
4316: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4317: hz_utility_v2pub.DEBUG
4318: (p_message=>'del_obj_hierarchy+',
4319: p_prefix=>l_debug_prefix,
4320: p_msg_level=>fnd_log.level_procedure,
4316: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4317: hz_utility_v2pub.DEBUG
4318: (p_message=>'del_obj_hierarchy+',
4319: p_prefix=>l_debug_prefix,
4320: p_msg_level=>fnd_log.level_procedure,
4321: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4322: p_module =>l_module);
4323: END IF;
4324:
4326: FETCH c1_ptype INTO l_bo_code;
4327: CLOSE c1_ptype;
4328: IF l_BO_CODE = 'PERSON' THEN
4329: -- for Person
4330: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4331: hz_utility_v2pub.DEBUG
4332: (p_message=>'deleting '||l_BO_CODE||' HIERARCHY corresponds to partyId:'||P_OBJ_ID,
4333: p_prefix=>l_debug_prefix,
4334: p_msg_level=>fnd_log.level_procedure,
4330: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4331: hz_utility_v2pub.DEBUG
4332: (p_message=>'deleting '||l_BO_CODE||' HIERARCHY corresponds to partyId:'||P_OBJ_ID,
4333: p_prefix=>l_debug_prefix,
4334: p_msg_level=>fnd_log.level_procedure,
4335: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4336: p_module =>l_module);
4337: END IF;
4338: DELETE FROM HZ_BUS_OBJ_TRACKING
4344: PARENT_ENTITY_NAME is NULL
4345: CONNECT BY
4346: PARENT_BO_CODE = PRIOR CHILD_BO_CODE AND PARENT_ID = PRIOR CHILD_ID);
4347: -- for Person Customer
4348: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4349: hz_utility_v2pub.DEBUG
4350: (p_message=>'deleting '||l_bo_code||' Customer HIERARCHY corresponds to partyId:'||P_OBJ_ID,
4351: p_prefix=>l_debug_prefix,
4352: p_msg_level=>fnd_log.level_procedure,
4348: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4349: hz_utility_v2pub.DEBUG
4350: (p_message=>'deleting '||l_bo_code||' Customer HIERARCHY corresponds to partyId:'||P_OBJ_ID,
4351: p_prefix=>l_debug_prefix,
4352: p_msg_level=>fnd_log.level_procedure,
4353: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4354: p_module =>l_module);
4355: END IF;
4356: DELETE FROM HZ_BUS_OBJ_TRACKING
4363: CONNECT BY
4364: PARENT_BO_CODE = PRIOR CHILD_BO_CODE AND PARENT_ID = PRIOR CHILD_ID);
4365: ELSIF l_bo_code = 'ORGANIZATION' THEN
4366: -- for Org
4367: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4368: hz_utility_v2pub.DEBUG
4369: (p_message=>'deleting '||l_bo_code||' HIERARCHY corresponds to partyId:'||P_OBJ_ID,
4370: p_prefix=>l_debug_prefix,
4371: p_msg_level=>fnd_log.level_procedure,
4367: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4368: hz_utility_v2pub.DEBUG
4369: (p_message=>'deleting '||l_bo_code||' HIERARCHY corresponds to partyId:'||P_OBJ_ID,
4370: p_prefix=>l_debug_prefix,
4371: p_msg_level=>fnd_log.level_procedure,
4372: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4373: p_module =>l_module);
4374: END IF;
4375: DELETE FROM HZ_BUS_OBJ_TRACKING
4381: PARENT_ENTITY_NAME is NULL
4382: CONNECT BY
4383: PARENT_BO_CODE = PRIOR CHILD_BO_CODE AND PARENT_ID = PRIOR CHILD_ID);
4384: -- for Org Customer
4385: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4386: hz_utility_v2pub.DEBUG
4387: (p_message=>'deleting '||l_bo_code||' Customer HIERARCHY corresponds to partyId:'||P_OBJ_ID,
4388: p_prefix=>l_debug_prefix,
4389: p_msg_level=>fnd_log.level_procedure,
4385: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4386: hz_utility_v2pub.DEBUG
4387: (p_message=>'deleting '||l_bo_code||' Customer HIERARCHY corresponds to partyId:'||P_OBJ_ID,
4388: p_prefix=>l_debug_prefix,
4389: p_msg_level=>fnd_log.level_procedure,
4390: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4391: p_module =>l_module);
4392: END IF;
4393: DELETE FROM HZ_BUS_OBJ_TRACKING
4399: PARENT_ENTITY_NAME is NULL
4400: CONNECT BY
4401: PARENT_BO_CODE = PRIOR CHILD_BO_CODE AND PARENT_ID = PRIOR CHILD_ID);
4402: ELSE
4403: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4404: hz_utility_v2pub.DEBUG
4405: (p_message=>'incorrect BO Code:'||l_bo_code,
4406: p_prefix=>l_debug_prefix,
4407: p_msg_level=>fnd_log.level_procedure,
4403: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4404: hz_utility_v2pub.DEBUG
4405: (p_message=>'incorrect BO Code:'||l_bo_code,
4406: p_prefix=>l_debug_prefix,
4407: p_msg_level=>fnd_log.level_procedure,
4408: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4409: p_module =>l_module);
4410: END IF;
4411: END IF;
4412: /*
4413: Not issuing the commit stmt after deleting the records.
4414: This is because, commit is handled by the caller of this procedure.
4415: */
4416: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4417: hz_utility_v2pub.DEBUG
4418: (p_message=>'del_obj_hierarchy-',
4419: p_prefix=>l_debug_prefix,
4420: p_msg_level=>fnd_log.level_procedure,
4416: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4417: hz_utility_v2pub.DEBUG
4418: (p_message=>'del_obj_hierarchy-',
4419: p_prefix=>l_debug_prefix,
4420: p_msg_level=>fnd_log.level_procedure,
4421: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4422: p_module =>l_module);
4423: END IF;
4424: EXCEPTION
4423: END IF;
4424: EXCEPTION
4425: WHEN NO_DATA_FOUND THEN
4426: -- no need of any action.
4427: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4428: hz_utility_v2pub.DEBUG
4429: (p_message=>'No data to delete',
4430: p_prefix=>l_debug_prefix,
4431: p_msg_level=>fnd_log.level_procedure,
4427: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4428: hz_utility_v2pub.DEBUG
4429: (p_message=>'No data to delete',
4430: p_prefix=>l_debug_prefix,
4431: p_msg_level=>fnd_log.level_procedure,
4432: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4433: p_module =>l_module);
4434: END IF;
4435: END del_obj_hierarchy;
4481: l_to_ids NUMBER_TBLTYPE;
4482: l_entity_names VCHAR2_30_TBLTYPE;
4483:
4484: BEGIN
4485: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4486: hz_utility_v2pub.DEBUG
4487: (p_message=>'upd_entity_ids+',
4488: p_prefix=>l_debug_prefix,
4489: p_msg_level=>fnd_log.level_procedure,
4485: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4486: hz_utility_v2pub.DEBUG
4487: (p_message=>'upd_entity_ids+',
4488: p_prefix=>l_debug_prefix,
4489: p_msg_level=>fnd_log.level_procedure,
4490: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4491: p_module =>l_module);
4492: END IF;
4493:
4513: WHERE event_id IS NULL
4514: AND PARENT_ENTITY_NAME = l_entity_names(i)
4515: AND PARENT_ID = l_from_ids(i);
4516:
4517: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4518: hz_utility_v2pub.DEBUG
4519: (p_message=>'upd_entity_ids-',
4520: p_prefix=>l_debug_prefix,
4521: p_msg_level=>fnd_log.level_procedure,
4517: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4518: hz_utility_v2pub.DEBUG
4519: (p_message=>'upd_entity_ids-',
4520: p_prefix=>l_debug_prefix,
4521: p_msg_level=>fnd_log.level_procedure,
4522: p_module_prefix => 'HZ_BES_BO_UTIL_PKG',
4523: p_module =>l_module);
4524: END IF;
4525: END upd_entity_ids;