9: is
10: begin
11:
12: if C_MSC_DEBUG = 'Y' then
13: fnd_file.put_line( fnd_file.log, pBUFF);
14: else
15: null;
16: --dbms_output.put_line( pBUFF);
17: end if;
21: PROCEDURE LOG_MESSAGE( pBUFF IN VARCHAR2)
22: IS
23: BEGIN
24:
25: FND_FILE.PUT_LINE( FND_FILE.LOG, pBUFF);
26:
27: END LOG_MESSAGE;
28:
29: Procedure Delete_duplicate(p_instance_id in number, p_dest_table in varchar2);
282:
283: p_level_name := MSD_COMMON_UTILITIES.get_level_name(p_level_id);
284: p_parent_level_name := MSD_COMMON_UTILITIES.get_level_name(p_parent_level_id);
285:
286: fnd_file.put_line(fnd_file.log, ' ');
287: fnd_file.put_line(fnd_file.log, 'Relationship view is not defined for ' ||
288: 'Hierarchy : '|| p_hierarchy_name || '. (No Data Collected.)');
289: fnd_file.put_line(fnd_file.log, ' Level : ' || p_level_name );
290: fnd_file.put_line(fnd_file.log, ' Parent Level : ' || p_parent_level_name );
283: p_level_name := MSD_COMMON_UTILITIES.get_level_name(p_level_id);
284: p_parent_level_name := MSD_COMMON_UTILITIES.get_level_name(p_parent_level_id);
285:
286: fnd_file.put_line(fnd_file.log, ' ');
287: fnd_file.put_line(fnd_file.log, 'Relationship view is not defined for ' ||
288: 'Hierarchy : '|| p_hierarchy_name || '. (No Data Collected.)');
289: fnd_file.put_line(fnd_file.log, ' Level : ' || p_level_name );
290: fnd_file.put_line(fnd_file.log, ' Parent Level : ' || p_parent_level_name );
291:
285:
286: fnd_file.put_line(fnd_file.log, ' ');
287: fnd_file.put_line(fnd_file.log, 'Relationship view is not defined for ' ||
288: 'Hierarchy : '|| p_hierarchy_name || '. (No Data Collected.)');
289: fnd_file.put_line(fnd_file.log, ' Level : ' || p_level_name );
290: fnd_file.put_line(fnd_file.log, ' Parent Level : ' || p_parent_level_name );
291:
292: /* DWK. IF we have relationship_view name then proceed the following codes */
293: ELSE
286: fnd_file.put_line(fnd_file.log, ' ');
287: fnd_file.put_line(fnd_file.log, 'Relationship view is not defined for ' ||
288: 'Hierarchy : '|| p_hierarchy_name || '. (No Data Collected.)');
289: fnd_file.put_line(fnd_file.log, ' Level : ' || p_level_name );
290: fnd_file.put_line(fnd_file.log, ' Parent Level : ' || p_parent_level_name );
291:
292: /* DWK. IF we have relationship_view name then proceed the following codes */
293: ELSE
294:
1041: EXCEPTION
1042: when others then
1043: errbuf := substr(SQLERRM,1,150);
1044: retcode := -1;
1045: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
1046:
1047:
1048: END Delete_duplicate_lvl_assoc;
1049:
1205: FOR Childless_rec IN c_childless_parent LOOP
1206: l_count := l_count + 1;
1207:
1208: IF ( l_print_title ) THEN
1209: fnd_file.put_line(fnd_file.log, ' ');
1210: fnd_file.put_line(fnd_file.log, 'Following Childless Level Values for Level ID : '||
1211: Childless_rec.level_id || ' were deleted.');
1212: fnd_file.put_line(fnd_file.log, 'SR Level PK ' );
1213: fnd_file.put_line(fnd_file.log, '---------------' );
1206: l_count := l_count + 1;
1207:
1208: IF ( l_print_title ) THEN
1209: fnd_file.put_line(fnd_file.log, ' ');
1210: fnd_file.put_line(fnd_file.log, 'Following Childless Level Values for Level ID : '||
1211: Childless_rec.level_id || ' were deleted.');
1212: fnd_file.put_line(fnd_file.log, 'SR Level PK ' );
1213: fnd_file.put_line(fnd_file.log, '---------------' );
1214: l_print_title := FALSE;
1208: IF ( l_print_title ) THEN
1209: fnd_file.put_line(fnd_file.log, ' ');
1210: fnd_file.put_line(fnd_file.log, 'Following Childless Level Values for Level ID : '||
1211: Childless_rec.level_id || ' were deleted.');
1212: fnd_file.put_line(fnd_file.log, 'SR Level PK ' );
1213: fnd_file.put_line(fnd_file.log, '---------------' );
1214: l_print_title := FALSE;
1215: END IF;
1216: fnd_file.put_line(fnd_file.log, ' ' || Childless_rec.sr_level_pk);
1209: fnd_file.put_line(fnd_file.log, ' ');
1210: fnd_file.put_line(fnd_file.log, 'Following Childless Level Values for Level ID : '||
1211: Childless_rec.level_id || ' were deleted.');
1212: fnd_file.put_line(fnd_file.log, 'SR Level PK ' );
1213: fnd_file.put_line(fnd_file.log, '---------------' );
1214: l_print_title := FALSE;
1215: END IF;
1216: fnd_file.put_line(fnd_file.log, ' ' || Childless_rec.sr_level_pk);
1217:
1212: fnd_file.put_line(fnd_file.log, 'SR Level PK ' );
1213: fnd_file.put_line(fnd_file.log, '---------------' );
1214: l_print_title := FALSE;
1215: END IF;
1216: fnd_file.put_line(fnd_file.log, ' ' || Childless_rec.sr_level_pk);
1217:
1218: END LOOP;
1219:
1220: IF (l_count > 0) THEN
1217:
1218: END LOOP;
1219:
1220: IF (l_count > 0) THEN
1221: fnd_file.put_line(fnd_file.log, l_count ||' childless level values deleted.' );
1222: END IF;
1223:
1224: /*------------------------- Clean up msd_backup_level_values table ---------------*/
1225: delete from msd_backup_level_values
1228: EXCEPTION
1229: when others then
1230: retcode := -1 ;
1231: errbuf := substr(SQLERRM,1,150);
1232: fnd_file.put_line(fnd_file.log, 'Error in Delete_Childless_Parent.');
1233: fnd_file.put_line(fnd_file.log, substr(SQLERRM,1,1000) );
1234:
1235: END Delete_Childless_Parent;
1236:
1229: when others then
1230: retcode := -1 ;
1231: errbuf := substr(SQLERRM,1,150);
1232: fnd_file.put_line(fnd_file.log, 'Error in Delete_Childless_Parent.');
1233: fnd_file.put_line(fnd_file.log, substr(SQLERRM,1,1000) );
1234:
1235: END Delete_Childless_Parent;
1236:
1237: