766: begin
767:
768: -- IF ( G_DEBUG_MODE = 'Y') THEN
769:
770: FND_FILE.PUT_LINE(FND_FILE.LOG,to_char(sysdate,'HH:MI:SS: ')|| p_message);
771:
772: -- END IF;
773:
774: EXCEPTION
831: SELECT rpad(l_sob_name,30,' ')||lpad(l_tmp_str,75,' ')||sysdate
832: INTO l_tblock
833: FROM DUAL;
834:
835: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_tblock);
836: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 2);
837:
838: SELECT meaning
839: INTO l_tmp_str
832: INTO l_tblock
833: FROM DUAL;
834:
835: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_tblock);
836: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 2);
837:
838: SELECT meaning
839: INTO l_tmp_str
840: FROM PA_LOOKUPS
844: SELECT lpad(l_tmp_str,66+length(l_tmp_str)/2,' ')
845: INTO l_tblock
846: FROM DUAL;
847:
848: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_tblock);
849: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 3);
850:
851: SELECT lpad(meaning,32,' ')
852: INTO l_tmp_str
845: INTO l_tblock
846: FROM DUAL;
847:
848: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_tblock);
849: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 3);
850:
851: SELECT lpad(meaning,32,' ')
852: INTO l_tmp_str
853: FROM PA_LOOKUPS
853: FROM PA_LOOKUPS
854: WHERE lookup_type = 'UNASSIGNED_PURGE_REPORT'
855: AND lookup_code = 'PA_R_UNASS_TIME_03';
856:
857: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tmp_str||p_archive_flag);
858: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
859:
860: SELECT lpad(meaning,32,' ')
861: INTO l_tmp_str
854: WHERE lookup_type = 'UNASSIGNED_PURGE_REPORT'
855: AND lookup_code = 'PA_R_UNASS_TIME_03';
856:
857: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tmp_str||p_archive_flag);
858: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
859:
860: SELECT lpad(meaning,32,' ')
861: INTO l_tmp_str
862: FROM PA_LOOKUPS
862: FROM PA_LOOKUPS
863: WHERE lookup_type = 'UNASSIGNED_PURGE_REPORT'
864: AND lookup_code = 'PA_R_UNASS_TIME_04';
865:
866: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tmp_str||p_txn_to_date);
867: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 3);
868:
869: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------------------------------------------------------------');
870: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
863: WHERE lookup_type = 'UNASSIGNED_PURGE_REPORT'
864: AND lookup_code = 'PA_R_UNASS_TIME_04';
865:
866: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tmp_str||p_txn_to_date);
867: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 3);
868:
869: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------------------------------------------------------------');
870: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
871:
865:
866: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tmp_str||p_txn_to_date);
867: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 3);
868:
869: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------------------------------------------------------------');
870: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
871:
872: SELECT ' '||rpad(meaning,20,' ')
873: INTO l_tmp_str
866: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tmp_str||p_txn_to_date);
867: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 3);
868:
869: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------------------------------------------------------------');
870: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
871:
872: SELECT ' '||rpad(meaning,20,' ')
873: INTO l_tmp_str
874: FROM PA_LOOKUPS
890: SELECT l_tmp_str||' '||l_tmp_str2||l_tmp_str3
891: INTO l_tblock
892: FROM DUAL;
893:
894: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tblock);
895:
896: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
897: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------------------------------------------------------------');
898: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
892: FROM DUAL;
893:
894: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tblock);
895:
896: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
897: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------------------------------------------------------------');
898: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
899: For i in c_arpr_details LOOP
900:
893:
894: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tblock);
895:
896: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
897: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------------------------------------------------------------');
898: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
899: For i in c_arpr_details LOOP
900:
901: SELECT ' '||rpad(i.table_name,30,' ')||lpad(i.num_recs_archived,26,' ')||' '||lpad(i.num_recs_purged,24,' ')
894: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tblock);
895:
896: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
897: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------------------------------------------------------------');
898: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
899: For i in c_arpr_details LOOP
900:
901: SELECT ' '||rpad(i.table_name,30,' ')||lpad(i.num_recs_archived,26,' ')||' '||lpad(i.num_recs_purged,24,' ')
902: INTO
902: INTO
903: l_tmp_str
904: FROM DUAL;
905:
906: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tmp_str);
907:
908: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
909:
910: END LOOP;
904: FROM DUAL;
905:
906: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_tmp_str);
907:
908: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
909:
910: END LOOP;
911:
912: END LOOP;
909:
910: END LOOP;
911:
912: END LOOP;
913: -- changes End for bug 13794115 FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------------------------------------------------------------');
914:
915: EXCEPTION
916:
917: WHEN OTHERS THEN