228:
229: begin
230:
231: -- Debug info.
232: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
233: hz_utility_v2pub.debug(p_message=>'maintain_self_node (+) node_id = '||p_node_id||' p_hierarchy_type = '||p_hierarchy_type ,
234: p_prefix=>l_debug_prefix,
235: p_msg_level=>fnd_log.level_procedure);
236: END IF;
231: -- Debug info.
232: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
233: hz_utility_v2pub.debug(p_message=>'maintain_self_node (+) node_id = '||p_node_id||' p_hierarchy_type = '||p_hierarchy_type ,
234: p_prefix=>l_debug_prefix,
235: p_msg_level=>fnd_log.level_procedure);
236: END IF;
237:
238: delete from hz_hierarchy_nodes
239: where parent_id=p_node_id
246: fetch c_dates bulk collect into l_start_date,l_end_date,l_pc_flag;
247: close c_dates;
248:
249: -- Debug info.
250: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
251: hz_utility_v2pub.debug(p_message=>'l_start_date.count = '||l_start_date.count ,
252: p_prefix=>l_debug_prefix,
253: p_msg_level=>fnd_log.level_procedure);
254: END IF;
249: -- Debug info.
250: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
251: hz_utility_v2pub.debug(p_message=>'l_start_date.count = '||l_start_date.count ,
252: p_prefix=>l_debug_prefix,
253: p_msg_level=>fnd_log.level_procedure);
254: END IF;
255:
256:
257: if l_start_date.count=1
264: else l_lc:='Y';
265: end if;
266:
267: -- Debug info.
268: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
269: hz_utility_v2pub.debug(p_message=>'HZ_HIERARCHY_NODES_PKG.insert_row (+) l_tp = '||l_tp||' l_lc = '||l_lc ,
270: p_prefix=>l_debug_prefix,
271: p_msg_level=>fnd_log.level_procedure);
272: END IF;
267: -- Debug info.
268: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
269: hz_utility_v2pub.debug(p_message=>'HZ_HIERARCHY_NODES_PKG.insert_row (+) l_tp = '||l_tp||' l_lc = '||l_lc ,
270: p_prefix=>l_debug_prefix,
271: p_msg_level=>fnd_log.level_procedure);
272: END IF;
273:
274: HZ_HIERARCHY_NODES_PKG.Insert_Row(
275: X_ROWID => l_rowid,
292: else -- multiple nodes present
293:
294:
295: -- Debug info.
296: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
297: hz_utility_v2pub.debug(p_message=> 'before the initial sort ...' ,
298: p_prefix=>l_debug_prefix,
299: p_msg_level=>fnd_log.level_procedure);
300: END IF;
295: -- Debug info.
296: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
297: hz_utility_v2pub.debug(p_message=> 'before the initial sort ...' ,
298: p_prefix=>l_debug_prefix,
299: p_msg_level=>fnd_log.level_procedure);
300: END IF;
301:
302:
303: l_line_number := 5;
305: -- sort the nodes
306: sort(l_start_date,l_end_date,l_pc_flag);
307:
308: -- Debug info.
309: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
310: for n in 1..l_start_date.count loop
311: hz_utility_v2pub.debug(p_message=>'l_start_date = '||l_start_date(n)||' '||
312: 'l_end_date = '||l_end_date(n)||' '||
313: 'l_pc_flag = '||l_pc_flag(n),
311: hz_utility_v2pub.debug(p_message=>'l_start_date = '||l_start_date(n)||' '||
312: 'l_end_date = '||l_end_date(n)||' '||
313: 'l_pc_flag = '||l_pc_flag(n),
314: p_prefix=>l_debug_prefix,
315: p_msg_level=>fnd_log.level_procedure);
316: end loop;
317: END IF;
318:
319: l_line_number := 6;
332: then
333: l_line_number := 7;
334:
335: -- Debug info.
336: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
337: hz_utility_v2pub.debug(p_message=> 'l_pc_flag(i) = B' ,
338: p_prefix=>l_debug_prefix,
339: p_msg_level=>fnd_log.level_procedure);
340: END IF;
335: -- Debug info.
336: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
337: hz_utility_v2pub.debug(p_message=> 'l_pc_flag(i) = B' ,
338: p_prefix=>l_debug_prefix,
339: p_msg_level=>fnd_log.level_procedure);
340: END IF;
341:
342: l_start_date(i+1):=l_end_date(i);
343: if l_start_date.exists(i+2) and l_start_date(i+1)>l_start_date(i+2)
353: then
354: l_line_number := 10;
355:
356: -- Debug info.
357: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
358: hz_utility_v2pub.debug(p_message=> 'l_pc_flag(i)=l_pc_flag(i+1)' ,
359: p_prefix=>l_debug_prefix,
360: p_msg_level=>fnd_log.level_procedure);
361: END IF;
356: -- Debug info.
357: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
358: hz_utility_v2pub.debug(p_message=> 'l_pc_flag(i)=l_pc_flag(i+1)' ,
359: p_prefix=>l_debug_prefix,
360: p_msg_level=>fnd_log.level_procedure);
361: END IF;
362:
363:
364: if (l_end_date(i) between l_start_date(i+1) and l_end_date(i+1))
386: then
387: l_line_number := 14;
388:
389: -- Debug info.
390: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
391: hz_utility_v2pub.debug(p_message=> 'l_end_date(i) between ...' ,
392: p_prefix=>l_debug_prefix,
393: p_msg_level=>fnd_log.level_procedure);
394: END IF;
389: -- Debug info.
390: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
391: hz_utility_v2pub.debug(p_message=> 'l_end_date(i) between ...' ,
392: p_prefix=>l_debug_prefix,
393: p_msg_level=>fnd_log.level_procedure);
394: END IF;
395:
396:
397: if l_end_date(i+1)>l_end_date(i)
453:
454: l_line_number := 19;
455:
456: -- Debug info.
457: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
458: hz_utility_v2pub.debug(p_message=> 'HZ_HIERARCHY_NODES_PKG.insert_row (+) l_tp = '||l_tp||' l_lc = '||l_lc,
459: p_prefix=>l_debug_prefix,
460: p_msg_level=>fnd_log.level_procedure);
461: END IF;
456: -- Debug info.
457: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
458: hz_utility_v2pub.debug(p_message=> 'HZ_HIERARCHY_NODES_PKG.insert_row (+) l_tp = '||l_tp||' l_lc = '||l_lc,
459: p_prefix=>l_debug_prefix,
460: p_msg_level=>fnd_log.level_procedure);
461: END IF;
462:
463:
464: HZ_HIERARCHY_NODES_PKG.Insert_Row(
484:
485: end if;
486:
487: -- Debug info.
488: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
489: hz_utility_v2pub.debug(p_message=>'maintain_self_node (-)' ,
490: p_prefix=>l_debug_prefix,
491: p_msg_level=>fnd_log.level_procedure);
492: END IF;
487: -- Debug info.
488: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
489: hz_utility_v2pub.debug(p_message=>'maintain_self_node (-)' ,
490: p_prefix=>l_debug_prefix,
491: p_msg_level=>fnd_log.level_procedure);
492: END IF;
493:
494: end maintain_self_node;
495:
716:
717: BEGIN
718:
719: -- Debug info.
720: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
721: hz_utility_v2pub.debug(p_message=>'do_create_link (+)',
722: p_prefix=> '',
723: p_msg_level=>fnd_log.level_procedure);
724: END IF;
719: -- Debug info.
720: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
721: hz_utility_v2pub.debug(p_message=>'do_create_link (+)',
722: p_prefix=> '',
723: p_msg_level=>fnd_log.level_procedure);
724: END IF;
725:
726: -- when this procedure is called, the request is to incorporate a relation
727: -- between AAA and BBB in a hierarchy (defined by relationship type) where
763: ---------------------------------
764: -- PARENT'S SELF NODE MAINTENANCE
765: ---------------------------------
766: -- Debug info.
767: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
768: hz_utility_v2pub.debug(p_message=>'maintain_self_node for Parent(+)',
769: p_prefix=> '',
770: p_msg_level=>fnd_log.level_procedure);
771: END IF;
766: -- Debug info.
767: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
768: hz_utility_v2pub.debug(p_message=>'maintain_self_node for Parent(+)',
769: p_prefix=> '',
770: p_msg_level=>fnd_log.level_procedure);
771: END IF;
772:
773: maintain_self_node (
774: p_node_id => p_hierarchy_node_rec.parent_id,
778: p_actual_content_source => p_hierarchy_node_rec.actual_content_source
779: );
780:
781: -- Debug info.
782: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
783: hz_utility_v2pub.debug(p_message=>'maintain_self_node for Parent(-)',
784: p_prefix=> '',
785: p_msg_level=>fnd_log.level_procedure);
786: END IF;
781: -- Debug info.
782: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
783: hz_utility_v2pub.debug(p_message=>'maintain_self_node for Parent(-)',
784: p_prefix=> '',
785: p_msg_level=>fnd_log.level_procedure);
786: END IF;
787:
788: --------------------------------
789: -- CHILD'S SELF NODE MAINTENANCE
788: --------------------------------
789: -- CHILD'S SELF NODE MAINTENANCE
790: --------------------------------
791: -- Debug info.
792: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
793: hz_utility_v2pub.debug(p_message=>'maintain_self_node for Child(+)',
794: p_prefix=> '',
795: p_msg_level=>fnd_log.level_procedure);
796: END IF;
791: -- Debug info.
792: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
793: hz_utility_v2pub.debug(p_message=>'maintain_self_node for Child(+)',
794: p_prefix=> '',
795: p_msg_level=>fnd_log.level_procedure);
796: END IF;
797:
798: maintain_self_node (
799: p_node_id => p_hierarchy_node_rec.child_id,
803: p_actual_content_source => p_hierarchy_node_rec.actual_content_source
804: );
805:
806: -- Debug info.
807: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
808: hz_utility_v2pub.debug(p_message=>'maintain_self_node for child (-)',
809: p_prefix=> '',
810: p_msg_level=>fnd_log.level_procedure);
811: END IF;
806: -- Debug info.
807: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
808: hz_utility_v2pub.debug(p_message=>'maintain_self_node for child (-)',
809: p_prefix=> '',
810: p_msg_level=>fnd_log.level_procedure);
811: END IF;
812:
813: -- Bug 4902909.
814: -- we'll get the parents and children of the relationship,
836: l_existing_start_date := p_hierarchy_node_rec.effective_start_date;
837: l_existing_end_date := p_hierarchy_node_rec.effective_end_date;
838:
839: -- Debug info.
840: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
841: hz_utility_v2pub.debug(p_message=>'Local Exception:'||SQLERRM,
842: p_prefix=> '',
843: p_msg_level=>fnd_log.level_procedure);
844: END IF;
839: -- Debug info.
840: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
841: hz_utility_v2pub.debug(p_message=>'Local Exception:'||SQLERRM,
842: p_prefix=> '',
843: p_msg_level=>fnd_log.level_procedure);
844: END IF;
845:
846: END;
847:
849: --------------------------------
850: -- MAINTENANCE OF INDIRECT LINKS
851: --------------------------------
852: -- Debug info.
853: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
854: hz_utility_v2pub.debug(p_message=>'maintain indirect links (+)',
855: p_prefix=> '',
856: p_msg_level=>fnd_log.level_procedure);
857: END IF;
852: -- Debug info.
853: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
854: hz_utility_v2pub.debug(p_message=>'maintain indirect links (+)',
855: p_prefix=> '',
856: p_msg_level=>fnd_log.level_procedure);
857: END IF;
858:
859: -- first we'll get all the parents of AAA (this will include AAA itself)
860: OPEN c_get_all_parents;
944: CLOSE c_get_all_parents;
945:
946:
947: -- Debug info.
948: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
949: hz_utility_v2pub.debug(p_message=>'maintain indirect links (-)',
950: p_prefix=> '',
951: p_msg_level=>fnd_log.level_procedure);
952: END IF;
947: -- Debug info.
948: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
949: hz_utility_v2pub.debug(p_message=>'maintain indirect links (-)',
950: p_prefix=> '',
951: p_msg_level=>fnd_log.level_procedure);
952: END IF;
953:
954: l_temp_start_date := l_effective_start_date_lc;
955: l_temp_end_date := l_effective_end_date_lc;
954: l_temp_start_date := l_effective_start_date_lc;
955: l_temp_end_date := l_effective_end_date_lc;
956:
957: -- Debug info.
958: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
959: hz_utility_v2pub.debug(p_message=>'do_create_link (-)',
960: p_prefix=> '',
961: p_msg_level=>fnd_log.level_procedure);
962: END IF;
957: -- Debug info.
958: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
959: hz_utility_v2pub.debug(p_message=>'do_create_link (-)',
960: p_prefix=> '',
961: p_msg_level=>fnd_log.level_procedure);
962: END IF;
963:
964: END do_create_link;
965:
1107: l_parent_level NUMBER;
1108: l_parent_table VARCHAR2(100);
1109: l_counter NUMBER;
1110: BEGIN
1111: -- FND Logging for debug purpose
1112: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1113: hz_utility_v2pub.debug
1114: (p_message => 'Input : '||p_child_id||' : '||p_child_type||' : '||p_child_level,
1115: p_prefix => l_debug_prefix,
1108: l_parent_table VARCHAR2(100);
1109: l_counter NUMBER;
1110: BEGIN
1111: -- FND Logging for debug purpose
1112: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1113: hz_utility_v2pub.debug
1114: (p_message => 'Input : '||p_child_id||' : '||p_child_type||' : '||p_child_level,
1115: p_prefix => l_debug_prefix,
1116: p_msg_level => fnd_log.level_statement,
1112: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1113: hz_utility_v2pub.debug
1114: (p_message => 'Input : '||p_child_id||' : '||p_child_type||' : '||p_child_level,
1115: p_prefix => l_debug_prefix,
1116: p_msg_level => fnd_log.level_statement,
1117: p_module_prefix => l_module_prefix,
1118: p_module => l_module
1119: );
1120: END IF;
1120: END IF;
1121:
1122: OPEN get_parent_id_cur (p_child_id, p_child_type, p_child_table);
1123:
1124: -- FND Logging for debug purpose
1125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1126: hz_utility_v2pub.debug
1127: (p_message => 'Open get_parent_id_cur for id : '||p_child_id,
1128: p_prefix => l_debug_prefix,
1121:
1122: OPEN get_parent_id_cur (p_child_id, p_child_type, p_child_table);
1123:
1124: -- FND Logging for debug purpose
1125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1126: hz_utility_v2pub.debug
1127: (p_message => 'Open get_parent_id_cur for id : '||p_child_id,
1128: p_prefix => l_debug_prefix,
1129: p_msg_level => fnd_log.level_statement,
1125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1126: hz_utility_v2pub.debug
1127: (p_message => 'Open get_parent_id_cur for id : '||p_child_id,
1128: p_prefix => l_debug_prefix,
1129: p_msg_level => fnd_log.level_statement,
1130: p_module_prefix => l_module_prefix,
1131: p_module => l_module
1132: );
1133: END IF;
1144:
1145: -- Fix for Bug 5204188 (Parent Id and Child Id same at level =1, so it goes
1146: -- infinite recursion). Break out if parent and child id are same.
1147: IF (p_child_id = l_parent_id) THEN
1148: -- FND Logging for debug purpose
1149: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1150: hz_utility_v2pub.debug
1151: (p_message => 'Exit loop because parent child matched for level 1',
1152: p_prefix => l_debug_prefix,
1145: -- Fix for Bug 5204188 (Parent Id and Child Id same at level =1, so it goes
1146: -- infinite recursion). Break out if parent and child id are same.
1147: IF (p_child_id = l_parent_id) THEN
1148: -- FND Logging for debug purpose
1149: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1150: hz_utility_v2pub.debug
1151: (p_message => 'Exit loop because parent child matched for level 1',
1152: p_prefix => l_debug_prefix,
1153: p_msg_level => fnd_log.level_statement,
1149: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1150: hz_utility_v2pub.debug
1151: (p_message => 'Exit loop because parent child matched for level 1',
1152: p_prefix => l_debug_prefix,
1153: p_msg_level => fnd_log.level_statement,
1154: p_module_prefix => l_module_prefix,
1155: p_module => l_module
1156: );
1157: END IF;
1159: EXIT;
1160:
1161: ELSE
1162:
1163: -- FND Logging for debug purpose
1164: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1165: hz_utility_v2pub.debug
1166: (p_message => 'Fetched for recursion : '||l_parent_id||' : '||l_parent_type||' : '||TO_CHAR(TO_NUMBER(p_child_level+1)),
1167: p_prefix => l_debug_prefix,
1160:
1161: ELSE
1162:
1163: -- FND Logging for debug purpose
1164: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1165: hz_utility_v2pub.debug
1166: (p_message => 'Fetched for recursion : '||l_parent_id||' : '||l_parent_type||' : '||TO_CHAR(TO_NUMBER(p_child_level+1)),
1167: p_prefix => l_debug_prefix,
1168: p_msg_level => fnd_log.level_statement,
1164: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1165: hz_utility_v2pub.debug
1166: (p_message => 'Fetched for recursion : '||l_parent_id||' : '||l_parent_type||' : '||TO_CHAR(TO_NUMBER(p_child_level+1)),
1167: p_prefix => l_debug_prefix,
1168: p_msg_level => fnd_log.level_statement,
1169: p_module_prefix => l_module_prefix,
1170: p_module => l_module
1171: );
1172: END IF;
1175: END IF;
1176:
1177: ELSE
1178:
1179: -- FND Logging for debug purpose
1180: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1181: hz_utility_v2pub.debug
1182: (p_message => 'Exit Loop...',
1183: p_prefix => l_debug_prefix,
1176:
1177: ELSE
1178:
1179: -- FND Logging for debug purpose
1180: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1181: hz_utility_v2pub.debug
1182: (p_message => 'Exit Loop...',
1183: p_prefix => l_debug_prefix,
1184: p_msg_level => fnd_log.level_statement,
1180: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1181: hz_utility_v2pub.debug
1182: (p_message => 'Exit Loop...',
1183: p_prefix => l_debug_prefix,
1184: p_msg_level => fnd_log.level_statement,
1185: p_module_prefix => l_module_prefix,
1186: p_module => l_module
1187: );
1188: END IF;
1191: END IF;
1192:
1193: END LOOP;
1194:
1195: -- FND Logging for debug purpose
1196: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1197: hz_utility_v2pub.debug
1198: (p_message => 'Close get_parent_id_cur for id : '||p_child_id,
1199: p_prefix => l_debug_prefix,
1192:
1193: END LOOP;
1194:
1195: -- FND Logging for debug purpose
1196: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1197: hz_utility_v2pub.debug
1198: (p_message => 'Close get_parent_id_cur for id : '||p_child_id,
1199: p_prefix => l_debug_prefix,
1200: p_msg_level => fnd_log.level_statement,
1196: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1197: hz_utility_v2pub.debug
1198: (p_message => 'Close get_parent_id_cur for id : '||p_child_id,
1199: p_prefix => l_debug_prefix,
1200: p_msg_level => fnd_log.level_statement,
1201: p_module_prefix => l_module_prefix,
1202: p_module => l_module
1203: );
1204: END IF;
1208: END do_recursive_parent_fetch;
1209:
1210: BEGIN
1211: -- Debug info.
1212: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1213: hz_utility_v2pub.debug(p_message=>'do_update_link_pvt (+)',
1214: p_prefix=>l_debug_prefix,
1215: p_msg_level=>fnd_log.level_procedure);
1216: END IF;
1211: -- Debug info.
1212: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1213: hz_utility_v2pub.debug(p_message=>'do_update_link_pvt (+)',
1214: p_prefix=>l_debug_prefix,
1215: p_msg_level=>fnd_log.level_procedure);
1216: END IF;
1217:
1218: -- initialize variables
1219: l_parent_id := p_hierarchy_node_rec.parent_id;
1243: l_existing_start_date := p_hierarchy_node_rec.effective_start_date;
1244: l_existing_end_date := p_hierarchy_node_rec.effective_end_date;
1245:
1246: -- Debug info.
1247: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1248: hz_utility_v2pub.debug(p_message=>'Local Exception:'||SQLERRM,
1249: p_prefix=>l_debug_prefix,
1250: p_msg_level=>fnd_log.level_procedure);
1251: END IF;
1246: -- Debug info.
1247: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1248: hz_utility_v2pub.debug(p_message=>'Local Exception:'||SQLERRM,
1249: p_prefix=>l_debug_prefix,
1250: p_msg_level=>fnd_log.level_procedure);
1251: END IF;
1252:
1253: END;
1254:
1258: parent_list_tbl(1).parent_table := l_parent_table;
1259: parent_list_tbl(1).level_number := 0;
1260:
1261: -- Debug info.
1262: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1263: hz_utility_v2pub.debug(p_message=>'do_recursive_parent_fetch (+)',
1264: p_prefix=>l_debug_prefix,
1265: p_msg_level=>fnd_log.level_procedure);
1266: END IF;
1261: -- Debug info.
1262: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1263: hz_utility_v2pub.debug(p_message=>'do_recursive_parent_fetch (+)',
1264: p_prefix=>l_debug_prefix,
1265: p_msg_level=>fnd_log.level_procedure);
1266: END IF;
1267:
1268: do_recursive_parent_fetch(l_parent_id, l_parent_type, l_parent_table, l_level);
1269:
1267:
1268: do_recursive_parent_fetch(l_parent_id, l_parent_type, l_parent_table, l_level);
1269:
1270: -- Debug info.
1271: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1272: hz_utility_v2pub.debug(p_message=>'do_recursive_parent_fetch (-)',
1273: p_prefix=>l_debug_prefix,
1274: p_msg_level=>fnd_log.level_procedure);
1275: END IF;
1270: -- Debug info.
1271: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1272: hz_utility_v2pub.debug(p_message=>'do_recursive_parent_fetch (-)',
1273: p_prefix=>l_debug_prefix,
1274: p_msg_level=>fnd_log.level_procedure);
1275: END IF;
1276:
1277: -- dbms_output.put_line('Table data:');
1278: IF (parent_list_tbl IS NOT NULL) THEN
1314: END IF;
1315: END IF;
1316:
1317: -- Debug info.
1318: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1319: hz_utility_v2pub.debug(p_message=>'do_update_link_pvt (-)',
1320: p_prefix=>l_debug_prefix,
1321: p_msg_level=>fnd_log.level_procedure);
1322: END IF;
1317: -- Debug info.
1318: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1319: hz_utility_v2pub.debug(p_message=>'do_update_link_pvt (-)',
1320: p_prefix=>l_debug_prefix,
1321: p_msg_level=>fnd_log.level_procedure);
1322: END IF;
1323:
1324: END do_update_link_pvt;
1325: ------------------------------------------------------------------------------+
1580: -- Check if API is called in debug mode. If yes, enable debug.
1581: --enable_debug;
1582:
1583: -- Debug info.
1584: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1585: hz_utility_v2pub.debug(p_message=>'create_link (+)',
1586: p_prefix=>l_debug_prefix,
1587: p_msg_level=>fnd_log.level_procedure);
1588: END IF;
1583: -- Debug info.
1584: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1585: hz_utility_v2pub.debug(p_message=>'create_link (+)',
1586: p_prefix=>l_debug_prefix,
1587: p_msg_level=>fnd_log.level_procedure);
1588: END IF;
1589:
1590: -- initialize message list if p_init_msg_list is set to TRUE.
1591: IF FND_API.to_Boolean(p_init_msg_list) THEN
1604: p_count => x_msg_count,
1605: p_data => x_msg_data);
1606:
1607: -- Debug info.
1608: IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
1609: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1610: p_msg_data=>x_msg_data,
1611: p_msg_type=>'WARNING',
1612: p_msg_level=>fnd_log.level_exception);
1608: IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
1609: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1610: p_msg_data=>x_msg_data,
1611: p_msg_type=>'WARNING',
1612: p_msg_level=>fnd_log.level_exception);
1613: END IF;
1614: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1615: hz_utility_v2pub.debug(p_message=>'create_link (-)',
1616: p_prefix=>l_debug_prefix,
1610: p_msg_data=>x_msg_data,
1611: p_msg_type=>'WARNING',
1612: p_msg_level=>fnd_log.level_exception);
1613: END IF;
1614: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1615: hz_utility_v2pub.debug(p_message=>'create_link (-)',
1616: p_prefix=>l_debug_prefix,
1617: p_msg_level=>fnd_log.level_procedure);
1618: END IF;
1613: END IF;
1614: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1615: hz_utility_v2pub.debug(p_message=>'create_link (-)',
1616: p_prefix=>l_debug_prefix,
1617: p_msg_level=>fnd_log.level_procedure);
1618: END IF;
1619:
1620:
1621: -- Check if API is called in debug mode. If yes, disable debug.
1630: p_count => x_msg_count,
1631: p_data => x_msg_data);
1632:
1633: -- Debug info.
1634: IF fnd_log.level_error >= fnd_log.g_current_runtime_level THEN
1635: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1636: p_msg_data=>x_msg_data,
1637: p_msg_type=>'ERROR',
1638: p_msg_level=>fnd_log.level_error);
1634: IF fnd_log.level_error >= fnd_log.g_current_runtime_level THEN
1635: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1636: p_msg_data=>x_msg_data,
1637: p_msg_type=>'ERROR',
1638: p_msg_level=>fnd_log.level_error);
1639: END IF;
1640:
1641: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1642: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' create_link (-)' ,
1637: p_msg_type=>'ERROR',
1638: p_msg_level=>fnd_log.level_error);
1639: END IF;
1640:
1641: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1642: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' create_link (-)' ,
1643: p_prefix=>l_debug_prefix,
1644: p_msg_level=>fnd_log.level_procedure);
1645: END IF;
1640:
1641: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1642: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' create_link (-)' ,
1643: p_prefix=>l_debug_prefix,
1644: p_msg_level=>fnd_log.level_procedure);
1645: END IF;
1646:
1647:
1648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1653: p_count => x_msg_count,
1654: p_data => x_msg_data);
1655:
1656: -- Debug info.
1657: IF fnd_log.level_error >= fnd_log.g_current_runtime_level THEN
1658: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1659: p_msg_data=>x_msg_data,
1660: p_msg_type=>'ERROR',
1661: p_msg_level=>fnd_log.level_error);
1657: IF fnd_log.level_error >= fnd_log.g_current_runtime_level THEN
1658: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1659: p_msg_data=>x_msg_data,
1660: p_msg_type=>'ERROR',
1661: p_msg_level=>fnd_log.level_error);
1662: END IF;
1663:
1664: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1665: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' create_link (-)' ,
1660: p_msg_type=>'ERROR',
1661: p_msg_level=>fnd_log.level_error);
1662: END IF;
1663:
1664: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1665: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' create_link (-)' ,
1666: p_prefix=>l_debug_prefix,
1667: p_msg_level=>fnd_log.level_procedure);
1668: END IF;
1663:
1664: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1665: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' create_link (-)' ,
1666: p_prefix=>l_debug_prefix,
1667: p_msg_level=>fnd_log.level_procedure);
1668: END IF;
1669:
1670:
1671: WHEN OTHERS THEN
1679: p_count => x_msg_count,
1680: p_data => x_msg_data);
1681:
1682: -- Debug info.
1683: IF fnd_log.level_error >= fnd_log.g_current_runtime_level THEN
1684: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1685: p_msg_data=>x_msg_data,
1686: p_msg_type=>'ERROR',
1687: p_msg_level=>fnd_log.level_error);
1683: IF fnd_log.level_error >= fnd_log.g_current_runtime_level THEN
1684: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1685: p_msg_data=>x_msg_data,
1686: p_msg_type=>'ERROR',
1687: p_msg_level=>fnd_log.level_error);
1688: END IF;
1689:
1690: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1691: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' create_link (-)' ,
1686: p_msg_type=>'ERROR',
1687: p_msg_level=>fnd_log.level_error);
1688: END IF;
1689:
1690: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1691: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' create_link (-)' ,
1692: p_prefix=>l_debug_prefix,
1693: p_msg_level=>fnd_log.level_procedure);
1694: END IF;
1689:
1690: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1691: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' create_link (-)' ,
1692: p_prefix=>l_debug_prefix,
1693: p_msg_level=>fnd_log.level_procedure);
1694: END IF;
1695:
1696:
1697: END create_link;
1742: -- Check if API is called in debug mode. If yes, enable debug.
1743: --enable_debug;
1744:
1745: -- Debug info.
1746: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1747: hz_utility_v2pub.debug(p_message=>'update_link (+)',
1748: p_prefix=>l_debug_prefix,
1749: p_msg_level=>fnd_log.level_procedure);
1750: END IF;
1745: -- Debug info.
1746: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1747: hz_utility_v2pub.debug(p_message=>'update_link (+)',
1748: p_prefix=>l_debug_prefix,
1749: p_msg_level=>fnd_log.level_procedure);
1750: END IF;
1751:
1752: -- initialize message list if p_init_msg_list is set to TRUE.
1753: IF FND_API.to_Boolean(p_init_msg_list) THEN
1766: p_count => x_msg_count,
1767: p_data => x_msg_data);
1768:
1769: -- Debug info.
1770: IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
1771: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1772: p_msg_data=>x_msg_data,
1773: p_msg_type=>'WARNING',
1774: p_msg_level=>fnd_log.level_exception);
1770: IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
1771: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1772: p_msg_data=>x_msg_data,
1773: p_msg_type=>'WARNING',
1774: p_msg_level=>fnd_log.level_exception);
1775: END IF;
1776: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1777: hz_utility_v2pub.debug(p_message=>'update_link (-)',
1778: p_prefix=>l_debug_prefix,
1772: p_msg_data=>x_msg_data,
1773: p_msg_type=>'WARNING',
1774: p_msg_level=>fnd_log.level_exception);
1775: END IF;
1776: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1777: hz_utility_v2pub.debug(p_message=>'update_link (-)',
1778: p_prefix=>l_debug_prefix,
1779: p_msg_level=>fnd_log.level_procedure);
1780: END IF;
1775: END IF;
1776: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1777: hz_utility_v2pub.debug(p_message=>'update_link (-)',
1778: p_prefix=>l_debug_prefix,
1779: p_msg_level=>fnd_log.level_procedure);
1780: END IF;
1781:
1782: -- Check if API is called in debug mode. If yes, disable debug.
1783: --disable_debug;
1791: p_count => x_msg_count,
1792: p_data => x_msg_data);
1793:
1794: -- Debug info.
1795: IF fnd_log.level_error >= fnd_log.g_current_runtime_level THEN
1796: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1797: p_msg_data=>x_msg_data,
1798: p_msg_type=>'ERROR',
1799: p_msg_level=>fnd_log.level_error);
1795: IF fnd_log.level_error >= fnd_log.g_current_runtime_level THEN
1796: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1797: p_msg_data=>x_msg_data,
1798: p_msg_type=>'ERROR',
1799: p_msg_level=>fnd_log.level_error);
1800: END IF;
1801:
1802: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1803: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' update_link (-)' ,
1798: p_msg_type=>'ERROR',
1799: p_msg_level=>fnd_log.level_error);
1800: END IF;
1801:
1802: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1803: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' update_link (-)' ,
1804: p_prefix=>l_debug_prefix,
1805: p_msg_level=>fnd_log.level_procedure);
1806:
1801:
1802: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1803: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' update_link (-)' ,
1804: p_prefix=>l_debug_prefix,
1805: p_msg_level=>fnd_log.level_procedure);
1806:
1807: END IF;
1808:
1809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1814: p_count => x_msg_count,
1815: p_data => x_msg_data);
1816:
1817: -- Debug info.
1818: IF fnd_log.level_error >= fnd_log.g_current_runtime_level THEN
1819: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1820: p_msg_data=>x_msg_data,
1821: p_msg_type=>'ERROR',
1822: p_msg_level=>fnd_log.level_error);
1818: IF fnd_log.level_error >= fnd_log.g_current_runtime_level THEN
1819: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1820: p_msg_data=>x_msg_data,
1821: p_msg_type=>'ERROR',
1822: p_msg_level=>fnd_log.level_error);
1823: END IF;
1824:
1825: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1826: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' update_link (-)' ,
1821: p_msg_type=>'ERROR',
1822: p_msg_level=>fnd_log.level_error);
1823: END IF;
1824:
1825: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1826: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' update_link (-)' ,
1827: p_prefix=>l_debug_prefix,
1828: p_msg_level=>fnd_log.level_procedure);
1829: END IF;
1824:
1825: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1826: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' update_link (-)' ,
1827: p_prefix=>l_debug_prefix,
1828: p_msg_level=>fnd_log.level_procedure);
1829: END IF;
1830:
1831:
1832: WHEN OTHERS THEN
1840: p_count => x_msg_count,
1841: p_data => x_msg_data);
1842:
1843: -- Debug info.
1844: IF fnd_log.level_error >= fnd_log.g_current_runtime_level THEN
1845: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1846: p_msg_data=>x_msg_data,
1847: p_msg_type=>'ERROR',
1848: p_msg_level=>fnd_log.level_error);
1844: IF fnd_log.level_error >= fnd_log.g_current_runtime_level THEN
1845: hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
1846: p_msg_data=>x_msg_data,
1847: p_msg_type=>'ERROR',
1848: p_msg_level=>fnd_log.level_error);
1849: END IF;
1850:
1851: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1852: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' update_link (-)' ,
1847: p_msg_type=>'ERROR',
1848: p_msg_level=>fnd_log.level_error);
1849: END IF;
1850:
1851: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1852: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' update_link (-)' ,
1853: p_prefix=>l_debug_prefix,
1854: p_msg_level=>fnd_log.level_procedure);
1855:
1850:
1851: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1852: hz_utility_v2pub.debug(p_message=> 'l_line_number = '||l_line_number||' update_link (-)' ,
1853: p_prefix=>l_debug_prefix,
1854: p_msg_level=>fnd_log.level_procedure);
1855:
1856: END IF;
1857:
1858: END update_link;