37: -- local variables
38: l_child_rec_exists_no NUMBER;
39: l_debug_prefix VARCHAR2(40) := 'pop_parent_record';
40: BEGIN
41: hz_utility_v2pub.DEBUG(p_message=>'pop_parent_record+',
42: p_prefix=>l_debug_prefix,
43: p_msg_level=>fnd_log.level_procedure);
44:
45: BEGIN
55: AND rownum = 1;
56:
57: IF l_child_rec_exists_no <> 0 THEN
58: -- data already exists, no need to write
59: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
60: p_prefix=>l_debug_prefix,
61: p_msg_level=>fnd_log.level_procedure);
62: END IF;
63: EXCEPTION
69: 'Y', 'U', p_child_id, p_centity_name, p_cbo_code,
70: p_lud, p_lud, p_pentity_name, p_parent_id, p_pbo_code);
71: END;
72:
73: hz_utility_v2pub.DEBUG(p_message=>'pop_parent_record-',
74: p_prefix=>l_debug_prefix,
75: p_msg_level=>fnd_log.level_procedure);
76: EXCEPTION
77: WHEN NO_DATA_FOUND THEN
115: l_child_rec_exists_no NUMBER;
116: l_party_id NUMBER; -- person party_id of employment history record
117: l_cen VARCHAR2(30) := 'HZ_WORK_CLASS';
118: BEGIN
119: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_work_class+',
120: p_prefix=>l_debug_prefix,
121: p_msg_level=>fnd_log.level_procedure);
122:
123: -- validate p_operation
123: -- validate p_operation
124: IF p_operation IN ('I','U') THEN
125: NULL;
126: ELSE
127: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_work_class',
128: p_prefix=>l_debug_prefix,
129: p_msg_level=>fnd_log.level_procedure);
130: RAISE FND_API.G_EXC_ERROR;
131: END IF;
148: AND rownum = 1;
149:
150: IF l_child_rec_exists_no <> 0 THEN
151: -- data already exists, no need to write
152: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
153: p_prefix=>l_debug_prefix,
154: p_msg_level=>fnd_log.level_procedure);
155: END IF;
156: EXCEPTION
181: p_pbo_code => NULL);
182: END; -- anonymous block end
183: END LOOP;
184:
185: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_work_class-',
186: p_prefix=>l_debug_prefix,
187: p_msg_level=>fnd_log.level_procedure);
188: EXCEPTION
189: WHEN OTHERS THEN
186: p_prefix=>l_debug_prefix,
187: p_msg_level=>fnd_log.level_procedure);
188: EXCEPTION
189: WHEN OTHERS THEN
190: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
191: p_prefix=>l_debug_prefix,
192: p_msg_level=>fnd_log.level_procedure);
193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: END pop_hz_work_class;
232: l_car_parent_entity VARCHAR2(30); -- entity name of cust account roles parent
233: l_car_parent_bo VARCHAR2(30); -- business object of cust account roles parent
234: l_cen VARCHAR2(30) := 'HZ_ROLE_RESPONSIBILITY';
235: BEGIN
236: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_role_responsibility+',
237: p_prefix=>l_debug_prefix,
238: p_msg_level=>fnd_log.level_procedure);
239:
240: -- validate p_operation
240: -- validate p_operation
241: IF p_operation IN ('I','U') THEN
242: NULL;
243: ELSE
244: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_role_responsibility',
245: p_prefix=>l_debug_prefix,
246: p_msg_level=>fnd_log.level_procedure);
247: RAISE FND_API.G_EXC_ERROR;
248: END IF;
267: AND rownum = 1;
268:
269: IF l_child_rec_exists_no <> 0 THEN
270: -- data already exists, no need to write
271: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
272: p_prefix=>l_debug_prefix,
273: p_msg_level=>fnd_log.level_procedure);
274: END IF;
275: EXCEPTION
291: p_pbo_code => l_car_parent_bo);
292: END ; -- anonymous block end
293: END LOOP;
294:
295: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_role_responsibility-',
296: p_prefix=>l_debug_prefix,
297: p_msg_level=>fnd_log.level_procedure);
298: EXCEPTION
299: WHEN OTHERS THEN
296: p_prefix=>l_debug_prefix,
297: p_msg_level=>fnd_log.level_procedure);
298: EXCEPTION
299: WHEN OTHERS THEN
300: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
301: p_prefix=>l_debug_prefix,
302: p_msg_level=>fnd_log.level_procedure);
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
304: END pop_hz_role_responsibility;
349: l_oc_id NUMBER;
350: l_child_rec_exists_no NUMBER;
351: l_cen VARCHAR2(30) := 'HZ_RELATIONSHIPS';
352: BEGIN
353: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_relationships+',
354: p_prefix=>l_debug_prefix,
355: p_msg_level=>fnd_log.level_procedure);
356:
357: -- validate p_operation
357: -- validate p_operation
358: IF p_operation IN ('I','U') THEN
359: NULL;
360: ELSE
361: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_relationships',
362: p_prefix=>l_debug_prefix,
363: p_msg_level=>fnd_log.level_procedure);
364: RAISE FND_API.G_EXC_ERROR;
365: END IF;
383: AND rownum = 1;
384:
385: IF l_child_rec_exists_no <> 0 THEN
386: -- data already exists, no need to write
387: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
388: p_prefix=>l_debug_prefix,
389: p_msg_level=>fnd_log.level_procedure);
390: END IF;
391: EXCEPTION
435: END IF;
436: END ; -- anonymous block end
437: END LOOP;
438:
439: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_relationships-',
440: p_prefix=>l_debug_prefix,
441: p_msg_level=>fnd_log.level_procedure);
442: EXCEPTION
443: WHEN OTHERS THEN
440: p_prefix=>l_debug_prefix,
441: p_msg_level=>fnd_log.level_procedure);
442: EXCEPTION
443: WHEN OTHERS THEN
444: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
445: p_prefix=>l_debug_prefix,
446: p_msg_level=>fnd_log.level_procedure);
447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
448: END pop_hz_relationships;
480: l_child_rec_exists_no NUMBER;
481: l_org_contact_id NUMBER;
482: l_cen VARCHAR2(30) := 'HZ_PERSON_PROFILES';
483: BEGIN
484: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_person_profiles+',
485: p_prefix=>l_debug_prefix,
486: p_msg_level=>fnd_log.level_procedure);
487:
488: -- validate p_operation
488: -- validate p_operation
489: IF p_operation IN ('I','U') THEN
490: NULL;
491: ELSE
492: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_person_profiles',
493: p_prefix=>l_debug_prefix,
494: p_msg_level=>fnd_log.level_procedure);
495: RAISE FND_API.G_EXC_ERROR;
496: END IF;
512: AND rownum = 1;
513:
514: IF l_child_rec_exists_no <> 0 THEN
515: -- data already exists, no need to write
516: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
517: p_prefix=>l_debug_prefix,
518: p_msg_level=>fnd_log.level_procedure);
519: END IF;
520: EXCEPTION
536: p_pbo_code => NULL);
537: END ; -- anonymous block end
538: END LOOP;
539:
540: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_person_profiles-',
541: p_prefix=>l_debug_prefix,
542: p_msg_level=>fnd_log.level_procedure);
543: EXCEPTION
544: WHEN OTHERS THEN
541: p_prefix=>l_debug_prefix,
542: p_msg_level=>fnd_log.level_procedure);
543: EXCEPTION
544: WHEN OTHERS THEN
545: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
546: p_prefix=>l_debug_prefix,
547: p_msg_level=>fnd_log.level_procedure);
548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
549: END pop_hz_person_profiles;
581: l_lud DATE; -- used to store the child last update date
582: l_child_rec_exists_no NUMBER;
583: l_cen VARCHAR2(30) := 'HZ_PERSON_LANGUAGE';
584: BEGIN
585: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_person_language+',
586: p_prefix=>l_debug_prefix,
587: p_msg_level=>fnd_log.level_procedure);
588:
589: -- validate p_operation
589: -- validate p_operation
590: IF p_operation IN ('I','U') THEN
591: NULL;
592: ELSE
593: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_person_language',
594: p_prefix=>l_debug_prefix,
595: p_msg_level=>fnd_log.level_procedure);
596: RAISE FND_API.G_EXC_ERROR;
597: END IF;
613: AND rownum = 1;
614:
615: IF l_child_rec_exists_no <> 0 THEN
616: -- data already exists, no need to write
617: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
618: p_prefix=>l_debug_prefix,
619: p_msg_level=>fnd_log.level_procedure);
620: END IF;
621: EXCEPTION
637: p_pbo_code => NULL);
638: END ; -- anonymous block end
639: END LOOP;
640:
641: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_person_language-',
642: p_prefix=>l_debug_prefix,
643: p_msg_level=>fnd_log.level_procedure);
644: EXCEPTION
645: WHEN OTHERS THEN
642: p_prefix=>l_debug_prefix,
643: p_msg_level=>fnd_log.level_procedure);
644: EXCEPTION
645: WHEN OTHERS THEN
646: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
647: p_prefix=>l_debug_prefix,
648: p_msg_level=>fnd_log.level_procedure);
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END pop_hz_person_language;
682: l_lud DATE; -- used to store the child last update date
683: l_child_rec_exists_no NUMBER;
684: l_cen VARCHAR2(30) := 'HZ_PERSON_INTEREST';
685: BEGIN
686: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_person_interest+',
687: p_prefix=>l_debug_prefix,
688: p_msg_level=>fnd_log.level_procedure);
689:
690: -- validate p_operation
690: -- validate p_operation
691: IF p_operation IN ('I','U') THEN
692: NULL;
693: ELSE
694: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_person_interest',
695: p_prefix=>l_debug_prefix,
696: p_msg_level=>fnd_log.level_procedure);
697: RAISE FND_API.G_EXC_ERROR;
698: END IF;
714: AND rownum = 1;
715:
716: IF l_child_rec_exists_no <> 0 THEN
717: -- data already exists, no need to write
718: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
719: p_prefix=>l_debug_prefix,
720: p_msg_level=>fnd_log.level_procedure);
721: END IF;
722: EXCEPTION
738: p_pbo_code => NULL);
739: END ; -- anonymous block end
740: END LOOP;
741:
742: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_person_interest-',
743: p_prefix=>l_debug_prefix,
744: p_msg_level=>fnd_log.level_procedure);
745: EXCEPTION
746: WHEN OTHERS THEN
743: p_prefix=>l_debug_prefix,
744: p_msg_level=>fnd_log.level_procedure);
745: EXCEPTION
746: WHEN OTHERS THEN
747: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
748: p_prefix=>l_debug_prefix,
749: p_msg_level=>fnd_log.level_procedure);
750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
751: END pop_hz_person_interest;
797: l_pid NUMBER;
798: l_dummy_id NUMBER;
799: l_cen VARCHAR2(30) := 'HZ_PARTY_SITE_USES';
800: BEGIN
801: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_party_site_uses+',
802: p_prefix=>l_debug_prefix,
803: p_msg_level=>fnd_log.level_procedure);
804:
805: -- validate p_operation
805: -- validate p_operation
806: IF p_operation IN ('I','U') THEN
807: NULL;
808: ELSE
809: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_party_site_uses',
810: p_prefix=>l_debug_prefix,
811: p_msg_level=>fnd_log.level_procedure);
812: RAISE FND_API.G_EXC_ERROR;
813: END IF;
841: AND rownum = 1;
842:
843: IF l_child_rec_exists_no <> 0 THEN
844: -- data already exists, no need to write
845: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
846: p_prefix=>l_debug_prefix,
847: p_msg_level=>fnd_log.level_procedure);
848: END IF;
849: EXCEPTION
856: l_lud, l_lud, 'HZ_PARTY_SITES', l_parent_id, 'PARTY_SITE');
857: END ; -- anonymous block end
858: END LOOP;
859:
860: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_party_site_uses-',
861: p_prefix=>l_debug_prefix,
862: p_msg_level=>fnd_log.level_procedure);
863: EXCEPTION
864: WHEN OTHERS THEN
861: p_prefix=>l_debug_prefix,
862: p_msg_level=>fnd_log.level_procedure);
863: EXCEPTION
864: WHEN OTHERS THEN
865: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
866: p_prefix=>l_debug_prefix,
867: p_msg_level=>fnd_log.level_procedure);
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
869: END pop_hz_party_site_uses;
922: l_org_contact_id NUMBER;
923: l_org_id NUMBER; -- party_id of organization for org contact relationship
924: l_cen VARCHAR2(30) := 'HZ_PARTY_SITES';
925: BEGIN
926: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_party_sites+',
927: p_prefix=>l_debug_prefix,
928: p_msg_level=>fnd_log.level_procedure);
929:
930: -- validate p_operation
930: -- validate p_operation
931: IF p_operation IN ('I','U') THEN
932: NULL;
933: ELSE
934: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_party_sites',
935: p_prefix=>l_debug_prefix,
936: p_msg_level=>fnd_log.level_procedure);
937: RAISE FND_API.G_EXC_ERROR;
938: END IF;
967: AND rownum = 1;
968:
969: IF l_child_rec_exists_no <> 0 THEN
970: -- data already exists, no need to write
971: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
972: p_prefix=>l_debug_prefix,
973: p_msg_level=>fnd_log.level_procedure);
974: END IF;
975: EXCEPTION
983: l_lud, l_lud, l_parent_tbl_name, l_parent_id, l_bo_code);
984: END ; -- anonymous block end
985: END LOOP;
986:
987: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_party_sites-',
988: p_prefix=>l_debug_prefix,
989: p_msg_level=>fnd_log.level_procedure);
990: EXCEPTION
991: WHEN OTHERS THEN
988: p_prefix=>l_debug_prefix,
989: p_msg_level=>fnd_log.level_procedure);
990: EXCEPTION
991: WHEN OTHERS THEN
992: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
993: p_prefix=>l_debug_prefix,
994: p_msg_level=>fnd_log.level_procedure);
995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
996: END pop_hz_party_sites;
1033: l_lud DATE; -- used to store the child last update date
1034: l_child_rec_exists_no NUMBER;
1035: l_cen VARCHAR2(30) := 'HZ_PARTY_PREFERENCES';
1036: BEGIN
1037: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_party_preferences+',
1038: p_prefix=>l_debug_prefix,
1039: p_msg_level=>fnd_log.level_procedure);
1040:
1041: -- validate p_operation
1041: -- validate p_operation
1042: IF p_operation IN ('I','U') THEN
1043: NULL;
1044: ELSE
1045: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_party_preferences',
1046: p_prefix=>l_debug_prefix,
1047: p_msg_level=>fnd_log.level_procedure);
1048: RAISE FND_API.G_EXC_ERROR;
1049: END IF;
1067: AND rownum = 1;
1068:
1069: IF l_child_rec_exists_no <> 0 THEN
1070: -- data already exists, no need to write
1071: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
1072: p_prefix=>l_debug_prefix,
1073: p_msg_level=>fnd_log.level_procedure);
1074: END IF;
1075: EXCEPTION
1091: p_pbo_code => NULL);
1092: END ; -- anonymous block end
1093: END LOOP;
1094:
1095: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_party_preferences-',
1096: p_prefix=>l_debug_prefix,
1097: p_msg_level=>fnd_log.level_procedure);
1098: EXCEPTION
1099: WHEN OTHERS THEN
1096: p_prefix=>l_debug_prefix,
1097: p_msg_level=>fnd_log.level_procedure);
1098: EXCEPTION
1099: WHEN OTHERS THEN
1100: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
1101: p_prefix=>l_debug_prefix,
1102: p_msg_level=>fnd_log.level_procedure);
1103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: END pop_hz_party_preferences;
1141: l_child_rec_exists_no NUMBER;
1142: l_org_id NUMBER;
1143: l_cen VARCHAR2(30) := 'HZ_ORG_CONTACT_ROLES';
1144: BEGIN
1145: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_org_contact_roles+',
1146: p_prefix=>l_debug_prefix,
1147: p_msg_level=>fnd_log.level_procedure);
1148:
1149: -- validate p_operation
1149: -- validate p_operation
1150: IF p_operation IN ('I','U') THEN
1151: NULL;
1152: ELSE
1153: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_org_contact_roles',
1154: p_prefix=>l_debug_prefix,
1155: p_msg_level=>fnd_log.level_procedure);
1156: RAISE FND_API.G_EXC_ERROR;
1157: END IF;
1174: AND rownum = 1;
1175:
1176: IF l_child_rec_exists_no <> 0 THEN
1177: -- data already exists, no need to write
1178: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
1179: p_prefix=>l_debug_prefix,
1180: p_msg_level=>fnd_log.level_procedure);
1181: END IF;
1182: EXCEPTION
1198: p_pbo_code => 'ORG');
1199: END ; -- anonymous block end
1200: END LOOP;
1201:
1202: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_org_contact_roles-',
1203: p_prefix=>l_debug_prefix,
1204: p_msg_level=>fnd_log.level_procedure);
1205: EXCEPTION
1206: WHEN OTHERS THEN
1203: p_prefix=>l_debug_prefix,
1204: p_msg_level=>fnd_log.level_procedure);
1205: EXCEPTION
1206: WHEN OTHERS THEN
1207: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
1208: p_prefix=>l_debug_prefix,
1209: p_msg_level=>fnd_log.level_procedure);
1210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1211: END pop_hz_org_contact_roles;
1249: l_person_id NUMBER;
1250: l_pop_flag VARCHAR2(1);
1251: l_cen VARCHAR2(30) := 'HZ_ORG_CONTACTS';
1252: BEGIN
1253: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_org_contacts+',
1254: p_prefix=>l_debug_prefix,
1255: p_msg_level=>fnd_log.level_procedure);
1256:
1257: -- validate p_operation
1257: -- validate p_operation
1258: IF p_operation IN ('I','U') THEN
1259: NULL;
1260: ELSE
1261: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_org_contacts',
1262: p_prefix=>l_debug_prefix,
1263: p_msg_level=>fnd_log.level_procedure);
1264: RAISE FND_API.G_EXC_ERROR;
1265: END IF;
1290: AND CHILD_ENTITY_NAME = l_cen
1291: AND CHILD_ID = l_child_id;
1292: END IF;
1293: -- data already exists, no need to write
1294: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
1295: p_prefix=>l_debug_prefix,
1296: p_msg_level=>fnd_log.level_procedure);
1297: END IF;
1298: EXCEPTION
1324: p_pbo_code => 'ORG_CONTACT');
1325: END ; -- anonymous block end
1326: END LOOP;
1327:
1328: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_org_contacts-',
1329: p_prefix=>l_debug_prefix,
1330: p_msg_level=>fnd_log.level_procedure);
1331: EXCEPTION
1332: WHEN OTHERS THEN
1329: p_prefix=>l_debug_prefix,
1330: p_msg_level=>fnd_log.level_procedure);
1331: EXCEPTION
1332: WHEN OTHERS THEN
1333: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
1334: p_prefix=>l_debug_prefix,
1335: p_msg_level=>fnd_log.level_procedure);
1336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1337: END pop_hz_org_contacts;
1367: l_lud DATE; -- used to store the child last update date
1368: l_child_rec_exists_no NUMBER;
1369: l_cen VARCHAR2(30) := 'HZ_ORGANIZATION_PROFILES';
1370: BEGIN
1371: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_organization_profiles+',
1372: p_prefix=>l_debug_prefix,
1373: p_msg_level=>fnd_log.level_procedure);
1374:
1375: -- validate p_operation
1375: -- validate p_operation
1376: IF p_operation IN ('I','U') THEN
1377: NULL;
1378: ELSE
1379: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_organization_profiles',
1380: p_prefix=>l_debug_prefix,
1381: p_msg_level=>fnd_log.level_procedure);
1382: RAISE FND_API.G_EXC_ERROR;
1383: END IF;
1399: AND rownum = 1;
1400:
1401: IF l_child_rec_exists_no <> 0 THEN
1402: -- data already exists, no need to write
1403: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
1404: p_prefix=>l_debug_prefix,
1405: p_msg_level=>fnd_log.level_procedure);
1406: END IF;
1407: EXCEPTION
1423: p_pbo_code => NULL);
1424: END ; -- anonymous block end
1425: END LOOP;
1426:
1427: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_organization_profiles-',
1428: p_prefix=>l_debug_prefix,
1429: p_msg_level=>fnd_log.level_procedure);
1430: EXCEPTION
1431: WHEN OTHERS THEN
1428: p_prefix=>l_debug_prefix,
1429: p_msg_level=>fnd_log.level_procedure);
1430: EXCEPTION
1431: WHEN OTHERS THEN
1432: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
1433: p_prefix=>l_debug_prefix,
1434: p_msg_level=>fnd_log.level_procedure);
1435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1436: END pop_hz_organization_profiles;
1474: l_lud DATE; -- used to store the child last update date
1475: l_child_rec_exists_no NUMBER;
1476: l_cen VARCHAR2(30) := 'HZ_LOCATIONS';
1477: BEGIN
1478: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_locations+',
1479: p_prefix=>l_debug_prefix,
1480: p_msg_level=>fnd_log.level_procedure);
1481:
1482: -- validate p_operation
1482: -- validate p_operation
1483: IF p_operation IN ('I','U') THEN
1484: NULL;
1485: ELSE
1486: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_locations',
1487: p_prefix=>l_debug_prefix,
1488: p_msg_level=>fnd_log.level_procedure);
1489: RAISE FND_API.G_EXC_ERROR;
1490: END IF;
1504: AND rownum = 1;
1505:
1506: IF l_child_rec_exists_no <> 0 THEN
1507: -- data already exists, no need to write
1508: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
1509: p_prefix=>l_debug_prefix,
1510: p_msg_level=>fnd_log.level_procedure);
1511: END IF;
1512: EXCEPTION
1526: CLOSE c_ps;
1527: END ; -- anonymous block end
1528: END LOOP;
1529:
1530: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_locations-',
1531: p_prefix=>l_debug_prefix,
1532: p_msg_level=>fnd_log.level_procedure);
1533: EXCEPTION
1534: WHEN OTHERS THEN
1531: p_prefix=>l_debug_prefix,
1532: p_msg_level=>fnd_log.level_procedure);
1533: EXCEPTION
1534: WHEN OTHERS THEN
1535: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
1536: p_prefix=>l_debug_prefix,
1537: p_msg_level=>fnd_log.level_procedure);
1538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1539: END pop_hz_locations;
1575: l_child_rec_exists_no NUMBER;
1576: l_pop_flag VARCHAR2(1);
1577: l_cen VARCHAR2(30) := 'HZ_FINANCIAL_REPORTS';
1578: BEGIN
1579: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_financial_reports+',
1580: p_prefix=>l_debug_prefix,
1581: p_msg_level=>fnd_log.level_procedure);
1582:
1583: -- validate p_operation
1583: -- validate p_operation
1584: IF p_operation IN ('I','U') THEN
1585: NULL;
1586: ELSE
1587: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_financial_reports',
1588: p_prefix=>l_debug_prefix,
1589: p_msg_level=>fnd_log.level_procedure);
1590: RAISE FND_API.G_EXC_ERROR;
1591: END IF;
1615: AND CHILD_ENTITY_NAME = l_cen
1616: AND CHILD_ID = l_child_id;
1617: END IF;
1618: -- data already exists, no need to write
1619: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
1620: p_prefix=>l_debug_prefix,
1621: p_msg_level=>fnd_log.level_procedure);
1622: END IF;
1623: EXCEPTION
1640: p_pbo_code => NULL);
1641: END ; -- anonymous block end
1642: END LOOP;
1643:
1644: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_financial_reports-',
1645: p_prefix=>l_debug_prefix,
1646: p_msg_level=>fnd_log.level_procedure);
1647: EXCEPTION
1648: WHEN OTHERS THEN
1645: p_prefix=>l_debug_prefix,
1646: p_msg_level=>fnd_log.level_procedure);
1647: EXCEPTION
1648: WHEN OTHERS THEN
1649: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
1650: p_prefix=>l_debug_prefix,
1651: p_msg_level=>fnd_log.level_procedure);
1652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1653: END pop_hz_financial_reports;
1689: l_lud DATE; -- used to store the child last update date
1690: l_child_rec_exists_no NUMBER;
1691: l_cen VARCHAR2(30) := 'HZ_FINANCIAL_PROFILE';
1692: BEGIN
1693: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_financial_profile+',
1694: p_prefix=>l_debug_prefix,
1695: p_msg_level=>fnd_log.level_procedure);
1696:
1697: -- validate p_operation
1697: -- validate p_operation
1698: IF p_operation IN ('I','U') THEN
1699: NULL;
1700: ELSE
1701: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_financial_profile',
1702: p_prefix=>l_debug_prefix,
1703: p_msg_level=>fnd_log.level_procedure);
1704: RAISE FND_API.G_EXC_ERROR;
1705: END IF;
1722: AND rownum = 1;
1723:
1724: IF l_child_rec_exists_no <> 0 THEN
1725: -- data already exists, no need to write
1726: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
1727: p_prefix=>l_debug_prefix,
1728: p_msg_level=>fnd_log.level_procedure);
1729: END IF;
1730: EXCEPTION
1746: p_pbo_code => NULL);
1747: END ; -- anonymous block end
1748: END LOOP;
1749:
1750: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_financial_profile-',
1751: p_prefix=>l_debug_prefix,
1752: p_msg_level=>fnd_log.level_procedure);
1753: EXCEPTION
1754: WHEN OTHERS THEN
1751: p_prefix=>l_debug_prefix,
1752: p_msg_level=>fnd_log.level_procedure);
1753: EXCEPTION
1754: WHEN OTHERS THEN
1755: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
1756: p_prefix=>l_debug_prefix,
1757: p_msg_level=>fnd_log.level_procedure);
1758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1759: END pop_hz_financial_profile;
1794: l_child_rec_exists_no NUMBER;
1795: l_party_id NUMBER;
1796: l_cen VARCHAR2(30) := 'HZ_FINANCIAL_NUMBERS';
1797: BEGIN
1798: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_financial_numbers+',
1799: p_prefix=>l_debug_prefix,
1800: p_msg_level=>fnd_log.level_procedure);
1801:
1802: -- validate p_operation
1802: -- validate p_operation
1803: IF p_operation IN ('I','U') THEN
1804: NULL;
1805: ELSE
1806: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_financial_numbers',
1807: p_prefix=>l_debug_prefix,
1808: p_msg_level=>fnd_log.level_procedure);
1809: RAISE FND_API.G_EXC_ERROR;
1810: END IF;
1827: AND rownum = 1;
1828:
1829: IF l_child_rec_exists_no <> 0 THEN
1830: -- data already exists, no need to write
1831: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
1832: p_prefix=>l_debug_prefix,
1833: p_msg_level=>fnd_log.level_procedure);
1834: END IF;
1835: EXCEPTION
1860: p_pbo_code => NULL);
1861: END ; -- anonymous block end
1862: END LOOP;
1863:
1864: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_financial_numbers-',
1865: p_prefix=>l_debug_prefix,
1866: p_msg_level=>fnd_log.level_procedure);
1867: EXCEPTION
1868: WHEN OTHERS THEN
1865: p_prefix=>l_debug_prefix,
1866: p_msg_level=>fnd_log.level_procedure);
1867: EXCEPTION
1868: WHEN OTHERS THEN
1869: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
1870: p_prefix=>l_debug_prefix,
1871: p_msg_level=>fnd_log.level_procedure);
1872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1873: END pop_hz_financial_numbers;
1907: l_child_rec_exists_no NUMBER;
1908: l_pop_flag VARCHAR2(1);
1909: l_cen VARCHAR2(30) := 'HZ_EMPLOYMENT_HISTORY';
1910: BEGIN
1911: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_employment_history+',
1912: p_prefix=>l_debug_prefix,
1913: p_msg_level=>fnd_log.level_procedure);
1914:
1915: -- validate p_operation
1915: -- validate p_operation
1916: IF p_operation IN ('I','U') THEN
1917: NULL;
1918: ELSE
1919: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_employment_history',
1920: p_prefix=>l_debug_prefix,
1921: p_msg_level=>fnd_log.level_procedure);
1922: RAISE FND_API.G_EXC_ERROR;
1923: END IF;
1946: AND CHILD_ENTITY_NAME = l_cen
1947: AND CHILD_ID = l_child_id;
1948: END IF;
1949: -- data already exists, no need to write
1950: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
1951: p_prefix=>l_debug_prefix,
1952: p_msg_level=>fnd_log.level_procedure);
1953: END IF;
1954: EXCEPTION
1971: p_pbo_code => NULL);
1972: END ; -- anonymous block end
1973: END LOOP;
1974:
1975: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_employment_history-',
1976: p_prefix=>l_debug_prefix,
1977: p_msg_level=>fnd_log.level_procedure);
1978: EXCEPTION
1979: WHEN OTHERS THEN
1976: p_prefix=>l_debug_prefix,
1977: p_msg_level=>fnd_log.level_procedure);
1978: EXCEPTION
1979: WHEN OTHERS THEN
1980: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
1981: p_prefix=>l_debug_prefix,
1982: p_msg_level=>fnd_log.level_procedure);
1983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1984: END pop_hz_employment_history;
2016: l_lud DATE; -- used to store the child last update date
2017: l_child_rec_exists_no NUMBER;
2018: l_cen VARCHAR2(30) := 'HZ_EDUCATION';
2019: BEGIN
2020: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_education+',
2021: p_prefix=>l_debug_prefix,
2022: p_msg_level=>fnd_log.level_procedure);
2023:
2024: -- validate p_operation
2024: -- validate p_operation
2025: IF p_operation IN ('I','U') THEN
2026: NULL;
2027: ELSE
2028: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_education',
2029: p_prefix=>l_debug_prefix,
2030: p_msg_level=>fnd_log.level_procedure);
2031: RAISE FND_API.G_EXC_ERROR;
2032: END IF;
2048: AND rownum = 1;
2049:
2050: IF l_child_rec_exists_no <> 0 THEN
2051: -- data already exists, no need to write
2052: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
2053: p_prefix=>l_debug_prefix,
2054: p_msg_level=>fnd_log.level_procedure);
2055: END IF;
2056: EXCEPTION
2072: p_pbo_code => NULL);
2073: END ; -- anonymous block end
2074: END LOOP;
2075:
2076: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_education-',
2077: p_prefix=>l_debug_prefix,
2078: p_msg_level=>fnd_log.level_procedure);
2079: EXCEPTION
2080: WHEN OTHERS THEN
2077: p_prefix=>l_debug_prefix,
2078: p_msg_level=>fnd_log.level_procedure);
2079: EXCEPTION
2080: WHEN OTHERS THEN
2081: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
2082: p_prefix=>l_debug_prefix,
2083: p_msg_level=>fnd_log.level_procedure);
2084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2085: END pop_hz_education;
2119: l_child_rec_exists_no NUMBER;
2120: l_acct_id NUMBER;
2121: l_cen VARCHAR2(30) := 'HZ_CUST_SITE_USES_ALL';
2122: BEGIN
2123: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_cust_site_uses_all+',
2124: p_prefix=>l_debug_prefix,
2125: p_msg_level=>fnd_log.level_procedure);
2126:
2127: -- validate p_operation
2127: -- validate p_operation
2128: IF p_operation IN ('I','U') THEN
2129: NULL;
2130: ELSE
2131: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_cust_site_uses_all',
2132: p_prefix=>l_debug_prefix,
2133: p_msg_level=>fnd_log.level_procedure);
2134: RAISE FND_API.G_EXC_ERROR;
2135: END IF;
2152: AND rownum = 1;
2153:
2154: IF l_child_rec_exists_no <> 0 THEN
2155: -- data already exists, no need to write
2156: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
2157: p_prefix=>l_debug_prefix,
2158: p_msg_level=>fnd_log.level_procedure);
2159: END IF;
2160: EXCEPTION
2168: l_lud, l_lud, 'HZ_CUST_ACCT_SITES_ALL', l_parent_id, 'CUST_ACCT_SITE');
2169: END ; -- anonymous block end
2170: END LOOP;
2171:
2172: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_cust_site_uses_all-',
2173: p_prefix=>l_debug_prefix,
2174: p_msg_level=>fnd_log.level_procedure);
2175: EXCEPTION
2176: WHEN OTHERS THEN
2173: p_prefix=>l_debug_prefix,
2174: p_msg_level=>fnd_log.level_procedure);
2175: EXCEPTION
2176: WHEN OTHERS THEN
2177: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
2178: p_prefix=>l_debug_prefix,
2179: p_msg_level=>fnd_log.level_procedure);
2180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2181: END pop_hz_cust_site_uses_all;
2220: l_cp_parent_entity VARCHAR2(30);
2221: l_cp_parent_bo VARCHAR2(30);
2222: l_cen VARCHAR2(30) := 'HZ_CUST_PROFILE_AMTS';
2223: BEGIN
2224: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_cust_profile_amts+',
2225: p_prefix=>l_debug_prefix,
2226: p_msg_level=>fnd_log.level_procedure);
2227:
2228: -- validate p_operation
2228: -- validate p_operation
2229: IF p_operation IN ('I','U') THEN
2230: NULL;
2231: ELSE
2232: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_cust_profile_amts',
2233: p_prefix=>l_debug_prefix,
2234: p_msg_level=>fnd_log.level_procedure);
2235: RAISE FND_API.G_EXC_ERROR;
2236: END IF;
2255: AND rownum = 1;
2256:
2257: IF l_child_rec_exists_no <> 0 THEN
2258: -- data already exists, no need to write
2259: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
2260: p_prefix=>l_debug_prefix,
2261: p_msg_level=>fnd_log.level_procedure);
2262: END IF;
2263: EXCEPTION
2279: p_pbo_code => l_cp_parent_bo);
2280: END ; -- anonymous block end
2281: END LOOP;
2282:
2283: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_cust_profile_amts-',
2284: p_prefix=>l_debug_prefix,
2285: p_msg_level=>fnd_log.level_procedure);
2286: EXCEPTION
2287: WHEN OTHERS THEN
2284: p_prefix=>l_debug_prefix,
2285: p_msg_level=>fnd_log.level_procedure);
2286: EXCEPTION
2287: WHEN OTHERS THEN
2288: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
2289: p_prefix=>l_debug_prefix,
2290: p_msg_level=>fnd_log.level_procedure);
2291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2292: END pop_hz_cust_profile_amts;
2331: l_ca_parent_bo VARCHAR2(30);
2332: l_pop_flag VARCHAR2(1);
2333: l_cen VARCHAR2(30) := 'HZ_CUST_ACCT_SITES_ALL';
2334: BEGIN
2335: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_cust_acct_sites_all+',
2336: p_prefix=>l_debug_prefix,
2337: p_msg_level=>fnd_log.level_procedure);
2338:
2339: -- validate p_operation
2339: -- validate p_operation
2340: IF p_operation IN ('I','U') THEN
2341: NULL;
2342: ELSE
2343: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_cust_acct_sites_all',
2344: p_prefix=>l_debug_prefix,
2345: p_msg_level=>fnd_log.level_procedure);
2346: RAISE FND_API.G_EXC_ERROR;
2347: END IF;
2372: AND CHILD_ENTITY_NAME = l_cen
2373: AND CHILD_ID = l_child_id;
2374: END IF;
2375: -- data already exists, no need to write
2376: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
2377: p_prefix=>l_debug_prefix,
2378: p_msg_level=>fnd_log.level_procedure);
2379: END IF;
2380: EXCEPTION
2388: l_lud, l_lud, 'HZ_CUST_ACCOUNTS', l_parent_id, 'CUST_ACCT');
2389: END ; -- anonymous block end
2390: END LOOP;
2391:
2392: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_cust_acct_sites_all-',
2393: p_prefix=>l_debug_prefix,
2394: p_msg_level=>fnd_log.level_procedure);
2395: EXCEPTION
2396: WHEN OTHERS THEN
2393: p_prefix=>l_debug_prefix,
2394: p_msg_level=>fnd_log.level_procedure);
2395: EXCEPTION
2396: WHEN OTHERS THEN
2397: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
2398: p_prefix=>l_debug_prefix,
2399: p_msg_level=>fnd_log.level_procedure);
2400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2401: END pop_hz_cust_acct_sites_all;
2451: l_rel_pbo VARCHAR2(30);
2452: l_rel_pid NUMBER;
2453: l_cen VARCHAR2(30) := 'HZ_CUST_ACCT_RELATE_ALL';
2454: BEGIN
2455: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_cust_acct_relate_all+',
2456: p_prefix=>l_debug_prefix,
2457: p_msg_level=>fnd_log.level_procedure);
2458:
2459: -- validate p_operation
2459: -- validate p_operation
2460: IF p_operation IN ('I','U') THEN
2461: NULL;
2462: ELSE
2463: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_cust_acct_relate_all',
2464: p_prefix=>l_debug_prefix,
2465: p_msg_level=>fnd_log.level_procedure);
2466: RAISE FND_API.G_EXC_ERROR;
2467: END IF;
2488: AND rownum = 1;
2489:
2490: IF l_child_rec_exists_no <> 0 THEN
2491: -- data already exists, no need to write
2492: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
2493: p_prefix=>l_debug_prefix,
2494: p_msg_level=>fnd_log.level_procedure);
2495: END IF;
2496: EXCEPTION
2543:
2544: END ; -- anonymous block end
2545: END LOOP;
2546:
2547: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_cust_acct_relate_all-',
2548: p_prefix=>l_debug_prefix,
2549: p_msg_level=>fnd_log.level_procedure);
2550: EXCEPTION
2551: WHEN OTHERS THEN
2548: p_prefix=>l_debug_prefix,
2549: p_msg_level=>fnd_log.level_procedure);
2550: EXCEPTION
2551: WHEN OTHERS THEN
2552: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
2553: p_prefix=>l_debug_prefix,
2554: p_msg_level=>fnd_log.level_procedure);
2555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2556: END pop_hz_cust_acct_relate_all;
2599: l_ca_id NUMBER;
2600: l_pop_flag VARCHAR2(1);
2601: l_cen VARCHAR2(30) := 'HZ_CUST_ACCOUNT_ROLES';
2602: BEGIN
2603: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_cust_account_roles+',
2604: p_prefix=>l_debug_prefix,
2605: p_msg_level=>fnd_log.level_procedure);
2606:
2607: -- validate p_operation
2607: -- validate p_operation
2608: IF p_operation IN ('I','U') THEN
2609: NULL;
2610: ELSE
2611: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_cust_account_roles',
2612: p_prefix=>l_debug_prefix,
2613: p_msg_level=>fnd_log.level_procedure);
2614: RAISE FND_API.G_EXC_ERROR;
2615: END IF;
2639: AND CHILD_ENTITY_NAME = l_cen
2640: AND CHILD_ID = l_child_id;
2641: END IF;
2642: -- data already exists, no need to write
2643: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
2644: p_prefix=>l_debug_prefix,
2645: p_msg_level=>fnd_log.level_procedure);
2646: END IF;
2647: EXCEPTION
2655: l_lud, l_lud, l_parent_entity, l_parent_id, l_parent_bo);
2656: END ; -- anonymous block end
2657: END LOOP;
2658:
2659: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_cust_account_roles-',
2660: p_prefix=>l_debug_prefix,
2661: p_msg_level=>fnd_log.level_procedure);
2662: EXCEPTION
2663: WHEN OTHERS THEN
2660: p_prefix=>l_debug_prefix,
2661: p_msg_level=>fnd_log.level_procedure);
2662: EXCEPTION
2663: WHEN OTHERS THEN
2664: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
2665: p_prefix=>l_debug_prefix,
2666: p_msg_level=>fnd_log.level_procedure);
2667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2668: END pop_hz_cust_account_roles;
2705: l_child_rec_exists_no NUMBER;
2706: l_pop_flag VARCHAR2(1);
2707: l_cen VARCHAR2(30) := 'HZ_CUST_ACCOUNTS';
2708: BEGIN
2709: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_cust_accounts+',
2710: p_prefix=>l_debug_prefix,
2711: p_msg_level=>fnd_log.level_procedure);
2712:
2713: -- validate p_operation
2713: -- validate p_operation
2714: IF p_operation IN ('I','U') THEN
2715: NULL;
2716: ELSE
2717: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_cust_accounts',
2718: p_prefix=>l_debug_prefix,
2719: p_msg_level=>fnd_log.level_procedure);
2720: RAISE FND_API.G_EXC_ERROR;
2721: END IF;
2745: AND CHILD_ENTITY_NAME = l_cen
2746: AND CHILD_ID = l_child_id;
2747: END IF;
2748: -- data already exists, no need to write
2749: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
2750: p_prefix=>l_debug_prefix,
2751: p_msg_level=>fnd_log.level_procedure);
2752: END IF;
2753: EXCEPTION
2761: l_lud, l_lud, 'HZ_PARTIES', l_parent_id, l_bo_code);
2762: END ; -- anonymous block end
2763: END LOOP;
2764:
2765: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_cust_accounts-',
2766: p_prefix=>l_debug_prefix,
2767: p_msg_level=>fnd_log.level_procedure);
2768: EXCEPTION
2769: WHEN OTHERS THEN
2766: p_prefix=>l_debug_prefix,
2767: p_msg_level=>fnd_log.level_procedure);
2768: EXCEPTION
2769: WHEN OTHERS THEN
2770: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
2771: p_prefix=>l_debug_prefix,
2772: p_msg_level=>fnd_log.level_procedure);
2773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2774: END pop_hz_cust_accounts;
2813: l_child_rec_exists_no NUMBER;
2814: l_pop_flag VARCHAR2(1);
2815: l_cen VARCHAR2(30) := 'HZ_CUSTOMER_PROFILES';
2816: BEGIN
2817: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_customer_profiles+',
2818: p_prefix=>l_debug_prefix,
2819: p_msg_level=>fnd_log.level_procedure);
2820:
2821: -- validate p_operation
2821: -- validate p_operation
2822: IF p_operation IN ('I','U') THEN
2823: NULL;
2824: ELSE
2825: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_customer_profiles',
2826: p_prefix=>l_debug_prefix,
2827: p_msg_level=>fnd_log.level_procedure);
2828: RAISE FND_API.G_EXC_ERROR;
2829: END IF;
2857: AND CHILD_ENTITY_NAME = l_cen
2858: AND CHILD_ID = l_child_id;
2859: END IF;
2860: -- data already exists, no need to write
2861: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
2862: p_prefix=>l_debug_prefix,
2863: p_msg_level=>fnd_log.level_procedure);
2864: END IF;
2865: EXCEPTION
2874: END ; -- anonymous block end
2875: END IF; -- l_parent_id > 0
2876: END LOOP;
2877:
2878: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_customer_profiles-',
2879: p_prefix=>l_debug_prefix,
2880: p_msg_level=>fnd_log.level_procedure);
2881: EXCEPTION
2882: WHEN OTHERS THEN
2879: p_prefix=>l_debug_prefix,
2880: p_msg_level=>fnd_log.level_procedure);
2881: EXCEPTION
2882: WHEN OTHERS THEN
2883: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
2884: p_prefix=>l_debug_prefix,
2885: p_msg_level=>fnd_log.level_procedure);
2886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2887: END pop_hz_customer_profiles;
2919: l_lud DATE; -- used to store the child last update date
2920: l_child_rec_exists_no NUMBER;
2921: l_cen VARCHAR2(30) := 'HZ_CREDIT_RATINGS';
2922: BEGIN
2923: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_credit_ratings+',
2924: p_prefix=>l_debug_prefix,
2925: p_msg_level=>fnd_log.level_procedure);
2926:
2927: -- validate p_operation
2927: -- validate p_operation
2928: IF p_operation IN ('I','U') THEN
2929: NULL;
2930: ELSE
2931: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_credit_ratings',
2932: p_prefix=>l_debug_prefix,
2933: p_msg_level=>fnd_log.level_procedure);
2934: RAISE FND_API.G_EXC_ERROR;
2935: END IF;
2951: AND rownum = 1;
2952:
2953: IF l_child_rec_exists_no <> 0 THEN
2954: -- data already exists, no need to write
2955: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
2956: p_prefix=>l_debug_prefix,
2957: p_msg_level=>fnd_log.level_procedure);
2958: END IF;
2959: EXCEPTION
2974: p_pbo_code => NULL);
2975: END ; -- anonymous block end
2976: END LOOP;
2977:
2978: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_credit_ratings-',
2979: p_prefix=>l_debug_prefix,
2980: p_msg_level=>fnd_log.level_procedure);
2981: EXCEPTION
2982: WHEN OTHERS THEN
2979: p_prefix=>l_debug_prefix,
2980: p_msg_level=>fnd_log.level_procedure);
2981: EXCEPTION
2982: WHEN OTHERS THEN
2983: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
2984: p_prefix=>l_debug_prefix,
2985: p_msg_level=>fnd_log.level_procedure);
2986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2987: END pop_hz_credit_ratings;
3057: l_cp_owner_id NUMBER;
3058: l_oc_id NUMBER;
3059: l_cen VARCHAR2(30) := 'HZ_CONTACT_PREFERENCES';
3060: BEGIN
3061: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_contact_preferences+',
3062: p_prefix=>l_debug_prefix,
3063: p_msg_level=>fnd_log.level_procedure);
3064:
3065: -- validate p_operation
3065: -- validate p_operation
3066: IF p_operation IN ('I','U') THEN
3067: NULL;
3068: ELSE
3069: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_contact_preferences',
3070: p_prefix=>l_debug_prefix,
3071: p_msg_level=>fnd_log.level_procedure);
3072: RAISE FND_API.G_EXC_ERROR;
3073: END IF;
3134: AND rownum = 1;
3135:
3136: IF l_child_rec_exists_no <> 0 THEN
3137: -- data already exists, no need to write
3138: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
3139: p_prefix=>l_debug_prefix,
3140: p_msg_level=>fnd_log.level_procedure);
3141: END IF;
3142: EXCEPTION
3149: l_lud, l_lud, l_parent_tbl_name, l_parent_id, l_bo_code);
3150: END ; -- anonymous block end
3151: END LOOP;
3152:
3153: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_contact_preferences-',
3154: p_prefix=>l_debug_prefix,
3155: p_msg_level=>fnd_log.level_procedure);
3156: EXCEPTION
3157: WHEN OTHERS THEN
3154: p_prefix=>l_debug_prefix,
3155: p_msg_level=>fnd_log.level_procedure);
3156: EXCEPTION
3157: WHEN OTHERS THEN
3158: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
3159: p_prefix=>l_debug_prefix,
3160: p_msg_level=>fnd_log.level_procedure);
3161: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3162: END pop_hz_contact_preferences;
3233: l_child_rec_exists_no NUMBER;
3234: l_oc_id NUMBER;
3235: l_cen VARCHAR2(30) := 'HZ_CONTACT_POINTS';
3236: BEGIN
3237: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_contact_points+',
3238: p_prefix=>l_debug_prefix,
3239: p_msg_level=>fnd_log.level_procedure);
3240:
3241: -- validate p_operation
3241: -- validate p_operation
3242: IF p_operation IN ('I','U') THEN
3243: NULL;
3244: ELSE
3245: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_contact_points',
3246: p_prefix=>l_debug_prefix,
3247: p_msg_level=>fnd_log.level_procedure);
3248: RAISE FND_API.G_EXC_ERROR;
3249: END IF;
3310: AND rownum = 1;
3311:
3312: IF l_child_rec_exists_no <> 0 THEN
3313: -- data already exists, no need to write
3314: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
3315: p_prefix=>l_debug_prefix,
3316: p_msg_level=>fnd_log.level_procedure);
3317: END IF;
3318: EXCEPTION
3326: l_lud, l_lud, l_parent_tbl_name, l_parent_id, l_bo_code);
3327: END ; -- anonymous block end
3328: END LOOP;
3329:
3330: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_contact_points-',
3331: p_prefix=>l_debug_prefix,
3332: p_msg_level=>fnd_log.level_procedure);
3333: EXCEPTION
3334: WHEN OTHERS THEN
3331: p_prefix=>l_debug_prefix,
3332: p_msg_level=>fnd_log.level_procedure);
3333: EXCEPTION
3334: WHEN OTHERS THEN
3335: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
3336: p_prefix=>l_debug_prefix,
3337: p_msg_level=>fnd_log.level_procedure);
3338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3339: END pop_hz_contact_points;
3372: l_bo_code VARCHAR2(30);
3373: l_child_rec_exists_no NUMBER;
3374: l_cen VARCHAR2(30) := 'HZ_CODE_ASSIGNMENTS';
3375: BEGIN
3376: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_code_assignments+',
3377: p_prefix=>l_debug_prefix,
3378: p_msg_level=>fnd_log.level_procedure);
3379:
3380: -- validate p_operation
3380: -- validate p_operation
3381: IF p_operation IN ('I','U') THEN
3382: NULL;
3383: ELSE
3384: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_code_assignments',
3385: p_prefix=>l_debug_prefix,
3386: p_msg_level=>fnd_log.level_procedure);
3387: RAISE FND_API.G_EXC_ERROR;
3388: END IF;
3405: AND rownum = 1;
3406:
3407: IF l_child_rec_exists_no <> 0 THEN
3408: -- data already exists, no need to write
3409: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
3410: p_prefix=>l_debug_prefix,
3411: p_msg_level=>fnd_log.level_procedure);
3412: END IF;
3413: EXCEPTION
3428: p_pbo_code => NULL);
3429: END ; -- anonymous block end
3430: END LOOP;
3431:
3432: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_code_assignments-',
3433: p_prefix=>l_debug_prefix,
3434: p_msg_level=>fnd_log.level_procedure);
3435: EXCEPTION
3436: WHEN OTHERS THEN
3433: p_prefix=>l_debug_prefix,
3434: p_msg_level=>fnd_log.level_procedure);
3435: EXCEPTION
3436: WHEN OTHERS THEN
3437: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
3438: p_prefix=>l_debug_prefix,
3439: p_msg_level=>fnd_log.level_procedure);
3440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3441: END pop_hz_code_assignments;
3473: l_lud DATE; -- used to store the child last update date
3474: l_child_rec_exists_no NUMBER;
3475: l_cen VARCHAR2(30) := 'HZ_CITIZENSHIP';
3476: BEGIN
3477: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_citizenship+',
3478: p_prefix=>l_debug_prefix,
3479: p_msg_level=>fnd_log.level_procedure);
3480:
3481: -- validate p_operation
3481: -- validate p_operation
3482: IF p_operation IN ('I','U') THEN
3483: NULL;
3484: ELSE
3485: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_citizenship',
3486: p_prefix=>l_debug_prefix,
3487: p_msg_level=>fnd_log.level_procedure);
3488: RAISE FND_API.G_EXC_ERROR;
3489: END IF;
3505: AND rownum = 1;
3506:
3507: IF l_child_rec_exists_no <> 0 THEN
3508: -- data already exists, no need to write
3509: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
3510: p_prefix=>l_debug_prefix,
3511: p_msg_level=>fnd_log.level_procedure);
3512: END IF;
3513: EXCEPTION
3528: p_pbo_code => NULL);
3529: END ; -- anonymous block end
3530: END LOOP;
3531:
3532: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_citizenship-',
3533: p_prefix=>l_debug_prefix,
3534: p_msg_level=>fnd_log.level_procedure);
3535: EXCEPTION
3536: WHEN OTHERS THEN
3533: p_prefix=>l_debug_prefix,
3534: p_msg_level=>fnd_log.level_procedure);
3535: EXCEPTION
3536: WHEN OTHERS THEN
3537: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
3538: p_prefix=>l_debug_prefix,
3539: p_msg_level=>fnd_log.level_procedure);
3540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3541: END pop_hz_citizenship;
3576: l_lud DATE; -- used to store the child last update date
3577: l_child_rec_exists_no NUMBER;
3578: l_cen VARCHAR2(30) := 'HZ_CERTIFICATIONS';
3579: BEGIN
3580: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_certifications+',
3581: p_prefix=>l_debug_prefix,
3582: p_msg_level=>fnd_log.level_procedure);
3583:
3584: -- validate p_operation
3584: -- validate p_operation
3585: IF p_operation IN ('I','U') THEN
3586: NULL;
3587: ELSE
3588: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_certifications',
3589: p_prefix=>l_debug_prefix,
3590: p_msg_level=>fnd_log.level_procedure);
3591: RAISE FND_API.G_EXC_ERROR;
3592: END IF;
3608: AND rownum = 1;
3609:
3610: IF l_child_rec_exists_no <> 0 THEN
3611: -- data already exists, no need to write
3612: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
3613: p_prefix=>l_debug_prefix,
3614: p_msg_level=>fnd_log.level_procedure);
3615: END IF;
3616: EXCEPTION
3631: p_pbo_code => NULL);
3632: END ; -- anonymous block end
3633: END LOOP;
3634:
3635: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_certifications-',
3636: p_prefix=>l_debug_prefix,
3637: p_msg_level=>fnd_log.level_procedure);
3638: EXCEPTION
3639: WHEN OTHERS THEN
3636: p_prefix=>l_debug_prefix,
3637: p_msg_level=>fnd_log.level_procedure);
3638: EXCEPTION
3639: WHEN OTHERS THEN
3640: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
3641: p_prefix=>l_debug_prefix,
3642: p_msg_level=>fnd_log.level_procedure);
3643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3644: END pop_hz_certifications;
3680: l_lud DATE; -- used to store the child last update date
3681: l_child_rec_exists_no NUMBER;
3682: l_cen VARCHAR2(30) := 'HZ_PARTY_USG_ASSIGNMENTS';
3683: BEGIN
3684: hz_utility_v2pub.DEBUG(p_message=>'pop_HZ_PARTY_USG_ASSIGNMENTS+',
3685: p_prefix=>l_debug_prefix,
3686: p_msg_level=>fnd_log.level_procedure);
3687:
3688: -- validate p_operation
3688: -- validate p_operation
3689: IF p_operation IN ('I','U') THEN
3690: NULL;
3691: ELSE
3692: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_HZ_PARTY_USG_ASSIGNMENTS',
3693: p_prefix=>l_debug_prefix,
3694: p_msg_level=>fnd_log.level_procedure);
3695: RAISE FND_API.G_EXC_ERROR;
3696: END IF;
3712: AND rownum = 1;
3713:
3714: IF l_child_rec_exists_no <> 0 THEN
3715: -- data already exists, no need to write
3716: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
3717: p_prefix=>l_debug_prefix,
3718: p_msg_level=>fnd_log.level_procedure);
3719: END IF;
3720: EXCEPTION
3735: p_pbo_code => NULL);
3736: END ; -- anonymous block end
3737: END LOOP;
3738:
3739: hz_utility_v2pub.DEBUG(p_message=>'pop_HZ_PARTY_USG_ASSIGNMENTS-',
3740: p_prefix=>l_debug_prefix,
3741: p_msg_level=>fnd_log.level_procedure);
3742: EXCEPTION
3743: WHEN OTHERS THEN
3740: p_prefix=>l_debug_prefix,
3741: p_msg_level=>fnd_log.level_procedure);
3742: EXCEPTION
3743: WHEN OTHERS THEN
3744: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
3745: p_prefix=>l_debug_prefix,
3746: p_msg_level=>fnd_log.level_procedure);
3747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3748: END pop_HZ_PARTY_USG_ASSIGNMENTS;
3804: l_child_id NUMBER; -- used to store extensibility attributes identifier
3805: l_lud DATE; -- used to store the child last update date
3806: l_child_rec_exists_no NUMBER;
3807: BEGIN
3808: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_extensibility+',
3809: p_prefix=>l_debug_prefix,
3810: p_msg_level=>fnd_log.level_procedure);
3811:
3812: -- validate p_operation
3812: -- validate p_operation
3813: IF p_operation IN ('I','U') THEN
3814: NULL;
3815: ELSE
3816: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_extensibility',
3817: p_prefix=>l_debug_prefix,
3818: p_msg_level=>fnd_log.level_procedure);
3819: RAISE FND_API.G_EXC_ERROR;
3820: END IF;
3854: AND rownum = 1;
3855:
3856: IF l_child_rec_exists_no <> 0 THEN
3857: -- data already exists, no need to write
3858: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
3859: p_prefix=>l_debug_prefix,
3860: p_msg_level=>fnd_log.level_procedure);
3861: END IF;
3862: EXCEPTION
3878: ELSIF(p_object_type = 'PARTY_SITE') THEN
3879: CLOSE c_child_ps;
3880: END IF;
3881:
3882: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_extensibility-',
3883: p_prefix=>l_debug_prefix,
3884: p_msg_level=>fnd_log.level_procedure);
3885: EXCEPTION
3886: WHEN OTHERS THEN
3883: p_prefix=>l_debug_prefix,
3884: p_msg_level=>fnd_log.level_procedure);
3885: EXCEPTION
3886: WHEN OTHERS THEN
3887: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
3888: p_prefix=>l_debug_prefix,
3889: p_msg_level=>fnd_log.level_procedure);
3890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3891: END pop_hz_extensibility;
3938: l_g_parent_tbl_name VARCHAR2(30);
3939: l_g_parent_bo_code VARCHAR2(30);
3940: l_cen VARCHAR2(30) := 'RA_CUST_RECEIPT_METHODS';
3941: BEGIN
3942: hz_utility_v2pub.DEBUG(p_message=>'pop_ra_cust_receipt_methods+',
3943: p_prefix=>l_debug_prefix,
3944: p_msg_level=>fnd_log.level_procedure);
3945:
3946: -- validate p_operation
3946: -- validate p_operation
3947: IF p_operation IN ('I','U') THEN
3948: NULL;
3949: ELSE
3950: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_ra_cust_receipt_methods',
3951: p_prefix=>l_debug_prefix,
3952: p_msg_level=>fnd_log.level_procedure);
3953: RAISE FND_API.G_EXC_ERROR;
3954: END IF;
3974: AND rownum = 1;
3975:
3976: IF l_child_rec_exists_no <> 0 THEN
3977: -- data already exists, no need to write
3978: hz_utility_v2pub.DEBUG(p_message=> 'CHILD record already exists in BOT',
3979: p_prefix=>l_debug_prefix,
3980: p_msg_level=>fnd_log.level_procedure);
3981: END IF;
3982: EXCEPTION
3997: p_pbo_code => l_g_parent_bo_code);
3998: END ; -- anonymous block end
3999: END LOOP;
4000:
4001: hz_utility_v2pub.DEBUG(p_message=>'pop_ra_cust_receipt_methods-',
4002: p_prefix=>l_debug_prefix,
4003: p_msg_level=>fnd_log.level_procedure);
4004: EXCEPTION
4005: WHEN OTHERS THEN
4002: p_prefix=>l_debug_prefix,
4003: p_msg_level=>fnd_log.level_procedure);
4004: EXCEPTION
4005: WHEN OTHERS THEN
4006: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
4007: p_prefix=>l_debug_prefix,
4008: p_msg_level=>fnd_log.level_procedure);
4009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4010: END pop_ra_cust_receipt_methods;