DBA Data[Home] [Help]

APPS.PAY_GB_RTI_NINO_REPLY_PKG dependencies on UTL_FILE

Line 30: l_file_handle utl_file.file_type;

26: ) IS
27:
28: l_filename varchar2(200);
29: l_package_name varchar2(30) := 'PAY_GB_RTI_NINO_REPLY_PKG';
30: l_file_handle utl_file.file_type;
31: l_request_id varchar2(10);
32: l_location varchar2(2000) := null;
33: l_processing BOOLEAN := true;
34: l_present_line varchar2(250);

Line 539: l_file_handle := utl_file.fopen(l_location,l_filename,'r');

535: raise e_fatal_error;
536: end if;
537: --
538: -- Open flat file
539: l_file_handle := utl_file.fopen(l_location,l_filename,'r');
540: --l_file_handle := utl_file.fopen('/usr/tmp','Reply.mf','r');
541: --
542: utl_file.get_line(l_file_handle,l_present_line);
543:

Line 540: --l_file_handle := utl_file.fopen('/usr/tmp','Reply.mf','r');

536: end if;
537: --
538: -- Open flat file
539: l_file_handle := utl_file.fopen(l_location,l_filename,'r');
540: --l_file_handle := utl_file.fopen('/usr/tmp','Reply.mf','r');
541: --
542: utl_file.get_line(l_file_handle,l_present_line);
543:
544: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');

Line 542: utl_file.get_line(l_file_handle,l_present_line);

538: -- Open flat file
539: l_file_handle := utl_file.fopen(l_location,l_filename,'r');
540: --l_file_handle := utl_file.fopen('/usr/tmp','Reply.mf','r');
541: --
542: utl_file.get_line(l_file_handle,l_present_line);
543:
544: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
545:
546: fnd_file.put_line(fnd_file.LOG,'line: '|| l_present_line);

Line 748: utl_file.get_line(l_file_handle,l_present_line);

744:
745: -- read next line
746: --
747: begin
748: utl_file.get_line(l_file_handle,l_present_line);
749: --
750: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
751: fnd_file.put_line(fnd_file.LOG,'line: '|| l_present_line);
752: --

Line 756: utl_file.fclose(l_file_handle);

752: --
753: exception
754: when no_data_found then
755: l_processing := false;
756: utl_file.fclose(l_file_handle);
757: EXIT;
758: when others then
759: utl_file.fclose(l_file_handle);
760: end; -- end inner block

Line 759: utl_file.fclose(l_file_handle);

755: l_processing := false;
756: utl_file.fclose(l_file_handle);
757: EXIT;
758: when others then
759: utl_file.fclose(l_file_handle);
760: end; -- end inner block
761: end loop; -- end l_processing loop as we reached end of file.
762:
763: if p_validate_mode = 'Validate Only' then

Line 824: utl_file.fclose(l_file_handle);

820: when e_invalid_paye_ref then
821: fnd_file.put_line(fnd_file.LOG,'No match found on database for PAYE Ref <'|| l_employer_paye_ref ||'>');
822: retcode := 2;
823: errbuf := 'No match found in the database for PAYE Ref <'|| l_employer_paye_ref ||'>.';
824: utl_file.fclose(l_file_handle);
825: rollback;
826: when e_multiple_emp_err then
827: UTL_FILE.FCLOSE(l_file_handle);
828: fnd_file.put_line(fnd_file.LOG,'Multiple employees matched for < ' || l_last_name || ' ' || l_first_name || '> ');

Line 827: UTL_FILE.FCLOSE(l_file_handle);

823: errbuf := 'No match found in the database for PAYE Ref <'|| l_employer_paye_ref ||'>.';
824: utl_file.fclose(l_file_handle);
825: rollback;
826: when e_multiple_emp_err then
827: UTL_FILE.FCLOSE(l_file_handle);
828: fnd_file.put_line(fnd_file.LOG,'Multiple employees matched for < ' || l_last_name || ' ' || l_first_name || '> ');
829: retcode := 2;
830: rollback;
831: when e_fatal_error then

Line 832: UTL_FILE.FCLOSE(l_file_handle);

828: fnd_file.put_line(fnd_file.LOG,'Multiple employees matched for < ' || l_last_name || ' ' || l_first_name || '> ');
829: retcode := 2;
830: rollback;
831: when e_fatal_error then
832: UTL_FILE.FCLOSE(l_file_handle);
833: fnd_file.put_line(fnd_file.LOG,'Fatal Error');
834: rollback;
835: when UTL_FILE.INVALID_OPERATION then
836: UTL_FILE.FCLOSE(l_file_handle);

Line 835: when UTL_FILE.INVALID_OPERATION then

831: when e_fatal_error then
832: UTL_FILE.FCLOSE(l_file_handle);
833: fnd_file.put_line(fnd_file.LOG,'Fatal Error');
834: rollback;
835: when UTL_FILE.INVALID_OPERATION then
836: UTL_FILE.FCLOSE(l_file_handle);
837: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
838: retcode:=2;
839: errbuf := 'Reading NINO Reply File - Invalid Operation (file not found).';

Line 836: UTL_FILE.FCLOSE(l_file_handle);

832: UTL_FILE.FCLOSE(l_file_handle);
833: fnd_file.put_line(fnd_file.LOG,'Fatal Error');
834: rollback;
835: when UTL_FILE.INVALID_OPERATION then
836: UTL_FILE.FCLOSE(l_file_handle);
837: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
838: retcode:=2;
839: errbuf := 'Reading NINO Reply File - Invalid Operation (file not found).';
840: when UTL_FILE.INTERNAL_ERROR then

Line 840: when UTL_FILE.INTERNAL_ERROR then

836: UTL_FILE.FCLOSE(l_file_handle);
837: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
838: retcode:=2;
839: errbuf := 'Reading NINO Reply File - Invalid Operation (file not found).';
840: when UTL_FILE.INTERNAL_ERROR then
841: UTL_FILE.FCLOSE(l_file_handle);
842: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
843: retcode:=2;
844: errbuf := 'Reading NINO Reply File - Internal Error.';

Line 841: UTL_FILE.FCLOSE(l_file_handle);

837: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
838: retcode:=2;
839: errbuf := 'Reading NINO Reply File - Invalid Operation (file not found).';
840: when UTL_FILE.INTERNAL_ERROR then
841: UTL_FILE.FCLOSE(l_file_handle);
842: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
843: retcode:=2;
844: errbuf := 'Reading NINO Reply File - Internal Error.';
845: when UTL_FILE.INVALID_MODE then

Line 845: when UTL_FILE.INVALID_MODE then

841: UTL_FILE.FCLOSE(l_file_handle);
842: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
843: retcode:=2;
844: errbuf := 'Reading NINO Reply File - Internal Error.';
845: when UTL_FILE.INVALID_MODE then
846: UTL_FILE.FCLOSE(l_file_handle);
847: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
848: retcode:=2;
849: errbuf := 'Reading NINO Reply File - Invalid Mode.';

Line 846: UTL_FILE.FCLOSE(l_file_handle);

842: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
843: retcode:=2;
844: errbuf := 'Reading NINO Reply File - Internal Error.';
845: when UTL_FILE.INVALID_MODE then
846: UTL_FILE.FCLOSE(l_file_handle);
847: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
848: retcode:=2;
849: errbuf := 'Reading NINO Reply File - Invalid Mode.';
850: when UTL_FILE.INVALID_PATH then

Line 850: when UTL_FILE.INVALID_PATH then

846: UTL_FILE.FCLOSE(l_file_handle);
847: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
848: retcode:=2;
849: errbuf := 'Reading NINO Reply File - Invalid Mode.';
850: when UTL_FILE.INVALID_PATH then
851: UTL_FILE.FCLOSE(l_file_handle);
852: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
853: retcode:=2;
854: errbuf := 'Reading NINO Reply File - Invalid Path.';

Line 851: UTL_FILE.FCLOSE(l_file_handle);

847: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
848: retcode:=2;
849: errbuf := 'Reading NINO Reply File - Invalid Mode.';
850: when UTL_FILE.INVALID_PATH then
851: UTL_FILE.FCLOSE(l_file_handle);
852: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
853: retcode:=2;
854: errbuf := 'Reading NINO Reply File - Invalid Path.';
855: when UTL_FILE.INVALID_FILEHANDLE then

Line 855: when UTL_FILE.INVALID_FILEHANDLE then

851: UTL_FILE.FCLOSE(l_file_handle);
852: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
853: retcode:=2;
854: errbuf := 'Reading NINO Reply File - Invalid Path.';
855: when UTL_FILE.INVALID_FILEHANDLE then
856: UTL_FILE.FCLOSE(l_file_handle);
857: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
858: retcode:=2;
859: errbuf := 'Reading NINO Reply File - Invalid File Handle.';

Line 856: UTL_FILE.FCLOSE(l_file_handle);

852: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
853: retcode:=2;
854: errbuf := 'Reading NINO Reply File - Invalid Path.';
855: when UTL_FILE.INVALID_FILEHANDLE then
856: UTL_FILE.FCLOSE(l_file_handle);
857: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
858: retcode:=2;
859: errbuf := 'Reading NINO Reply File - Invalid File Handle.';
860: when UTL_FILE.READ_ERROR then

Line 860: when UTL_FILE.READ_ERROR then

856: UTL_FILE.FCLOSE(l_file_handle);
857: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
858: retcode:=2;
859: errbuf := 'Reading NINO Reply File - Invalid File Handle.';
860: when UTL_FILE.READ_ERROR then
861: UTL_FILE.FCLOSE(l_file_handle);
862: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
863: retcode:=2;
864: errbuf := 'Reading NINO Reply File - Read Error.';

Line 861: UTL_FILE.FCLOSE(l_file_handle);

857: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
858: retcode:=2;
859: errbuf := 'Reading NINO Reply File - Invalid File Handle.';
860: when UTL_FILE.READ_ERROR then
861: UTL_FILE.FCLOSE(l_file_handle);
862: fnd_file.put_line(fnd_file.LOG,'PAY_GB_RTI_NINO_REPLY_PKG.read_nino_reply');
863: retcode:=2;
864: errbuf := 'Reading NINO Reply File - Read Error.';
865:

Line 871: utl_file.fclose(l_file_handle);

867: retcode := 2;
868: fnd_file.put_line(fnd_file.LOG,'Exception : ' || SQLERRM || ' ' || sqlcode);
869: fnd_file.put_line(fnd_file.LOG,DBMS_UTILITY.format_error_backtrace);
870: retcode := 2;
871: utl_file.fclose(l_file_handle);
872: rollback;
873:
874: end read_nino_reply;
875: end;