9:
10: begin
11: null;
12: -- dbms_output.put_line(substr(p_str,1,250));
13: fnd_file.put_line(fnd_file.output,p_str);
14: -- fnd_file.put_line(fnd_file.output, replace(p_str, fnd_global.local_chr(0)));
15: end ol;
16:
17: procedure dlog(p_str IN varchar2) is
10: begin
11: null;
12: -- dbms_output.put_line(substr(p_str,1,250));
13: fnd_file.put_line(fnd_file.output,p_str);
14: -- fnd_file.put_line(fnd_file.output, replace(p_str, fnd_global.local_chr(0)));
15: end ol;
16:
17: procedure dlog(p_str IN varchar2) is
18: PRAGMA AUTONOMOUS_TRANSACTION;
18: PRAGMA AUTONOMOUS_TRANSACTION;
19:
20: begin
21: -- dbms_output.put_line(substr(p_str,1,250));
22: FND_FILE.put_line(FND_FILE.log,p_str);
23: end dlog;
24:
25: procedure PRINT_GRAND_SUMMARY(RELATED_RUN IN varchar2) is
26: l_sql_str varchar2(600);
381: EXCEPTION
382: WHEN NO_DATA_FOUND THEN
383: -- errbuf := 'ERROR:'||sqlerrm ;
384: -- retcode := '2';
385: FND_FILE.put_line(FND_FILE.log,errbuf);
386: FND_FILE.put_line(FND_FILE.log,'No Profiler Data was Found for the given Run');
387: WHEN OTHERS THEN
388: errbuf := 'Error:'||sqlerrm ;
389: retcode := '2';
382: WHEN NO_DATA_FOUND THEN
383: -- errbuf := 'ERROR:'||sqlerrm ;
384: -- retcode := '2';
385: FND_FILE.put_line(FND_FILE.log,errbuf);
386: FND_FILE.put_line(FND_FILE.log,'No Profiler Data was Found for the given Run');
387: WHEN OTHERS THEN
388: errbuf := 'Error:'||sqlerrm ;
389: retcode := '2';
390: FND_FILE.put_line(FND_FILE.log,'Error running PLSQL_PROF_RPT');
386: FND_FILE.put_line(FND_FILE.log,'No Profiler Data was Found for the given Run');
387: WHEN OTHERS THEN
388: errbuf := 'Error:'||sqlerrm ;
389: retcode := '2';
390: FND_FILE.put_line(FND_FILE.log,'Error running PLSQL_PROF_RPT');
391: END PLSQL_PROF_RPT;
392:
393: procedure PLSQL_PROF_RPT( RUN_ID in NUMBER,
394: RELATED_RUN in NUMBER,