50:
51: arpr_log(' About to purge unassigned time forecast items ') ;
52: x_err_stage := 'About to start purge unassigned time forecast items' ;
53:
54: select pa_purge_batches_s.nextval into l_purge_batch_id from dual;
55:
56: arpr_log(' l_purge_batch_id: '||l_purge_batch_id);
57:
58: OPEN CUR_forecast_items;
817: AND lookup_code = 'PA_R_UNASS_TIME_01';
818:
819: SELECT rpad(l_sob_name,30,' ')||lpad(l_tmp_str,75,' ')||sysdate
820: INTO l_tblock
821: FROM DUAL;
822:
823: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_tblock);
824: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 2);
825:
830: AND lookup_code = 'PA_R_UNASS_TIME_02';
831:
832: SELECT lpad(l_tmp_str,66+length(l_tmp_str)/2,' ')
833: INTO l_tblock
834: FROM DUAL;
835:
836: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_tblock);
837: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 3);
838:
876: AND lookup_code = 'PA_R_UNASS_TIME_07';
877:
878: SELECT l_tmp_str||' '||l_tmp_str2||l_tmp_str3
879: INTO l_tblock
880: FROM DUAL;
881:
882: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tblock);
883:
884: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
888:
889: SELECT ' '||rpad(i.table_name,30,' ')||lpad(i.num_recs_archived,26,' ')||' '||lpad(i.num_recs_purged,24,' ')
890: INTO
891: l_tmp_str
892: FROM DUAL;
893:
894: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tmp_str);
895:
896: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);