368: , p_test_submission IN VARCHAR2 :='YES'
369: )
370: IS
371: l_location VARCHAR2(2000);
372: l_file_handle utl_file.file_type;
373: l_present_line VARCHAR2(32767) := NULL;
374: l_present_line1 VARCHAR2(32767) := NULL;
375: l_present_line2 VARCHAR2(32767) := NULL;
376: l_line_number number := 0;
585: fnd_profile.get('PER_DATA_EXCHANGE_DIR', l_location);
586:
587: fnd_file.PUT_LINE(FND_FILE.LOG, 'l_location:'||l_location);
588:
589: l_file_handle := utl_file.fopen(l_location,p_filename,'r');
590:
591: --13359423
592: /* if (count_tokens(l_present_line) <> 5) then
593: retcode := 2;
610: l_asg_lu_id := NULL;
611: l_rec_uploaded := 'N';
612: l_is_payroll_run := 'N';
613:
614: utl_file.get_line(l_file_handle,l_present_line); --Reading Body values
615: fnd_file.PUT_LINE(FND_FILE.LOG, 'l_present_line:'||l_present_line);
616:
617: l_line_number := l_line_number + 1;
618: fnd_file.PUT_LINE(FND_FILE.LOG, 'Line Number:'||l_line_number);
856: hr_utility.set_location( l_pkg ,100);
857: retcode := 2;
858: errbuf := 'Reading File - Invalid Operation (file not found).';
859:
860: WHEN UTL_FILE.INVALID_OPERATION
861: THEN
862:
863: UTL_FILE.FCLOSE(l_file_handle);
864: hr_utility.set_location( l_pkg ,110);
859:
860: WHEN UTL_FILE.INVALID_OPERATION
861: THEN
862:
863: UTL_FILE.FCLOSE(l_file_handle);
864: hr_utility.set_location( l_pkg ,110);
865: retcode:=2;
866: errbuf := 'Reading File - Invalid Operation (file not found).';
867:
864: hr_utility.set_location( l_pkg ,110);
865: retcode:=2;
866: errbuf := 'Reading File - Invalid Operation (file not found).';
867:
868: WHEN UTL_FILE.INTERNAL_ERROR
869: THEN
870:
871: UTL_FILE.FCLOSE(l_file_handle);
872: hr_utility.set_location( l_pkg,120);
867:
868: WHEN UTL_FILE.INTERNAL_ERROR
869: THEN
870:
871: UTL_FILE.FCLOSE(l_file_handle);
872: hr_utility.set_location( l_pkg,120);
873: retcode:=2;
874: errbuf := 'Reading File - Internal Error.';
875: WHEN UTL_FILE.INVALID_MODE
871: UTL_FILE.FCLOSE(l_file_handle);
872: hr_utility.set_location( l_pkg,120);
873: retcode:=2;
874: errbuf := 'Reading File - Internal Error.';
875: WHEN UTL_FILE.INVALID_MODE
876: THEN
877:
878: UTL_FILE.FCLOSE(l_file_handle);
879: hr_utility.set_location( l_pkg,130);
874: errbuf := 'Reading File - Internal Error.';
875: WHEN UTL_FILE.INVALID_MODE
876: THEN
877:
878: UTL_FILE.FCLOSE(l_file_handle);
879: hr_utility.set_location( l_pkg,130);
880: retcode:=2;
881: errbuf := 'Reading Flat File - Invalid Mode.';
882:
879: hr_utility.set_location( l_pkg,130);
880: retcode:=2;
881: errbuf := 'Reading Flat File - Invalid Mode.';
882:
883: WHEN UTL_FILE.INVALID_PATH
884: THEN
885:
886: UTL_FILE.FCLOSE(l_file_handle);
887: hr_utility.set_location( l_pkg ||'PAYE Upload',140);
882:
883: WHEN UTL_FILE.INVALID_PATH
884: THEN
885:
886: UTL_FILE.FCLOSE(l_file_handle);
887: hr_utility.set_location( l_pkg ||'PAYE Upload',140);
888: retcode:=2;
889: errbuf := 'Reading File - Invalid Path.';
890:
887: hr_utility.set_location( l_pkg ||'PAYE Upload',140);
888: retcode:=2;
889: errbuf := 'Reading File - Invalid Path.';
890:
891: WHEN UTL_FILE.INVALID_FILEHANDLE
892: THEN
893:
894: UTL_FILE.FCLOSE(l_file_handle);
895: hr_utility.set_location( l_pkg,150);
890:
891: WHEN UTL_FILE.INVALID_FILEHANDLE
892: THEN
893:
894: UTL_FILE.FCLOSE(l_file_handle);
895: hr_utility.set_location( l_pkg,150);
896: retcode:=2;
897: errbuf := 'Reading File - Invalid File Handle.';
898:
895: hr_utility.set_location( l_pkg,150);
896: retcode:=2;
897: errbuf := 'Reading File - Invalid File Handle.';
898:
899: WHEN UTL_FILE.READ_ERROR
900: THEN
901:
902: UTL_FILE.FCLOSE(l_file_handle);
903: hr_utility.set_location( l_pkg,160);
898:
899: WHEN UTL_FILE.READ_ERROR
900: THEN
901:
902: UTL_FILE.FCLOSE(l_file_handle);
903: hr_utility.set_location( l_pkg,160);
904: retcode:=2;
905: errbuf := 'Reading File - Read Error.';
906:
905: errbuf := 'Reading File - Read Error.';
906:
907: WHEN NO_DATA_FOUND
908: THEN
909: UTL_FILE.FCLOSE(l_file_handle);
910: hr_utility.set_location( l_pkg,170);
911: retcode:=2;
912: errbuf := 'No Data Found.';
913:
912: errbuf := 'No Data Found.';
913:
914: WHEN INVALID_FILE_FORMAT
915: THEN
916: UTL_FILE.FCLOSE(l_file_handle);
917: hr_utility.set_location( l_pkg,180);
918: retcode:=2;
919: errbuf := 'Reading File - Invalid File Format.';
920:
919: errbuf := 'Reading File - Invalid File Format.';
920:
921: WHEN NO_REC_FOUND_IN_FILE
922: THEN
923: UTL_FILE.FCLOSE(l_file_handle);
924: hr_utility.set_location( l_pkg,190);
925: retcode:=2;
926: errbuf := 'Reading File - No Records found.';
927: