APPS.AP_WEB_UPLOAD_PDM_PKG dependencies on UTL_FILE

Line 3877: l_datafileptr utl_file.file_type;

3873:
3874:
3875: l_datafilepath varchar2(240);
3876: l_datafile varchar2(240);
3877: l_datafileptr utl_file.file_type;
3878:
3879: l_ntdir number;
3880: l_unixdir number;
3881:

Line 3923: l_datafileptr := utl_file.fopen(l_datafilepath, l_datafile, 'r');

3919: -- Open the datafile for read
3920: --
3921: put_line('Opening Data File: '|| p_datafile);
3922: --
3923: l_datafileptr := utl_file.fopen(l_datafilepath, l_datafile, 'r');
3924:
3925: l_numrecs := 0;
3926:
3927: if (p_ratetype = 'CONUS') then

Line 3933: utl_file.get_line(l_datafileptr, l_line);

3929: -- Check CONUS file format has 10 fields
3930: --
3931: loop
3932: begin
3933: utl_file.get_line(l_datafileptr, l_line);
3934: l_numrecs := l_numrecs + 1;
3935: l_end_delim := instrb(l_line, ';', 1, 10);
3936: l_after_delim := instrb(l_line, ';', 1, 11);
3937: if (l_end_delim <> 0 and

Line 3956: utl_file.get_line(l_datafileptr, l_line);

3952: -- Check OCONUS file format has 12 fields
3953: --
3954: loop
3955: begin
3956: utl_file.get_line(l_datafileptr, l_line);
3957: l_numrecs := l_numrecs + 1;
3958: l_end_delim := instrb(l_line, ';', 1, 12);
3959: l_after_delim := instrb(l_line, ';', 1, 13);
3960: if (l_end_delim <> 0 and

Line 3988: utl_file.fclose(l_datafileptr);

3984: -- Close the datafile
3985: --
3986: put_line('Closing Data File: '|| p_datafile);
3987: --
3988: utl_file.fclose(l_datafileptr);
3989:
3990: EXCEPTION
3991: WHEN l_invalid_format THEN
3992: --utl_file.fclose_all;

Line 3992: --utl_file.fclose_all;

3988: utl_file.fclose(l_datafileptr);
3989:
3990: EXCEPTION
3991: WHEN l_invalid_format THEN
3992: --utl_file.fclose_all;
3993: utl_file.fclose(l_datafileptr);
3994: fnd_message.set_name('SQLAP', 'OIE_APWUPDM_INVALID_FORMAT');
3995: errbuf := fnd_message.get;
3996: retcode := 2;

Line 3993: utl_file.fclose(l_datafileptr);

3989:
3990: EXCEPTION
3991: WHEN l_invalid_format THEN
3992: --utl_file.fclose_all;
3993: utl_file.fclose(l_datafileptr);
3994: fnd_message.set_name('SQLAP', 'OIE_APWUPDM_INVALID_FORMAT');
3995: errbuf := fnd_message.get;
3996: retcode := 2;
3997: WHEN l_invalid_rate_type THEN

Line 3998: --utl_file.fclose_all;

3994: fnd_message.set_name('SQLAP', 'OIE_APWUPDM_INVALID_FORMAT');
3995: errbuf := fnd_message.get;
3996: retcode := 2;
3997: WHEN l_invalid_rate_type THEN
3998: --utl_file.fclose_all;
3999: utl_file.fclose(l_datafileptr);
4000: fnd_message.set_name('SQLAP', 'OIE_APWUPDM_INVALID_RATE_TYPE');
4001: errbuf := fnd_message.get;
4002: retcode := 2;

Line 3999: utl_file.fclose(l_datafileptr);

3995: errbuf := fnd_message.get;
3996: retcode := 2;
3997: WHEN l_invalid_rate_type THEN
3998: --utl_file.fclose_all;
3999: utl_file.fclose(l_datafileptr);
4000: fnd_message.set_name('SQLAP', 'OIE_APWUPDM_INVALID_RATE_TYPE');
4001: errbuf := fnd_message.get;
4002: retcode := 2;
4003: WHEN OTHERS THEN

Line 4004: --utl_file.fclose_all;

4000: fnd_message.set_name('SQLAP', 'OIE_APWUPDM_INVALID_RATE_TYPE');
4001: errbuf := fnd_message.get;
4002: retcode := 2;
4003: WHEN OTHERS THEN
4004: --utl_file.fclose_all;
4005: utl_file.fclose(l_datafileptr);
4006: fnd_message.set_name('AK', 'AK_INVALID_FILE_OPERATION');
4007: fnd_message.set_token('PATH', l_datafilepath);
4008: fnd_message.set_token('FILE', l_datafile);

Line 4005: utl_file.fclose(l_datafileptr);

4001: errbuf := fnd_message.get;
4002: retcode := 2;
4003: WHEN OTHERS THEN
4004: --utl_file.fclose_all;
4005: utl_file.fclose(l_datafileptr);
4006: fnd_message.set_name('AK', 'AK_INVALID_FILE_OPERATION');
4007: fnd_message.set_token('PATH', l_datafilepath);
4008: fnd_message.set_token('FILE', l_datafile);
4009: errbuf := fnd_message.get;