DBA Data[Home] [Help]

APPS.AP_WEB_UPLOAD_PDM_PKG dependencies on UTL_FILE

Line 3914: l_datafileptr utl_file.file_type;

3910:
3911:
3912: l_datafilepath varchar2(240);
3913: l_datafile varchar2(240);
3914: l_datafileptr utl_file.file_type;
3915:
3916: l_ntdir number;
3917: l_unixdir number;
3918:

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

3956: -- Open the datafile for read
3957: --
3958: put_line('Opening Data File: '|| p_datafile);
3959: --
3960: l_datafileptr := utl_file.fopen(l_datafilepath, l_datafile, 'r');
3961:
3962: l_numrecs := 0;
3963:
3964: if (p_ratetype = 'CONUS') then

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

3966: -- Check CONUS file format has 10 fields
3967: --
3968: loop
3969: begin
3970: utl_file.get_line(l_datafileptr, l_line);
3971: l_numrecs := l_numrecs + 1;
3972: l_end_delim := instrb(l_line, ';', 1, 10);
3973: l_after_delim := instrb(l_line, ';', 1, 11);
3974: if (l_end_delim <> 0 and

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

3989: -- Check OCONUS file format has 12 fields
3990: --
3991: loop
3992: begin
3993: utl_file.get_line(l_datafileptr, l_line);
3994: l_numrecs := l_numrecs + 1;
3995: l_end_delim := instrb(l_line, ';', 1, 12);
3996: l_after_delim := instrb(l_line, ';', 1, 13);
3997: if (l_end_delim <> 0 and

Line 4025: utl_file.fclose(l_datafileptr);

4021: -- Close the datafile
4022: --
4023: put_line('Closing Data File: '|| p_datafile);
4024: --
4025: utl_file.fclose(l_datafileptr);
4026:
4027: EXCEPTION
4028: WHEN l_invalid_format THEN
4029: --utl_file.fclose_all;

Line 4029: --utl_file.fclose_all;

4025: utl_file.fclose(l_datafileptr);
4026:
4027: EXCEPTION
4028: WHEN l_invalid_format THEN
4029: --utl_file.fclose_all;
4030: utl_file.fclose(l_datafileptr);
4031: fnd_message.set_name('SQLAP', 'OIE_APWUPDM_INVALID_FORMAT');
4032: errbuf := fnd_message.get;
4033: retcode := 2;

Line 4030: utl_file.fclose(l_datafileptr);

4026:
4027: EXCEPTION
4028: WHEN l_invalid_format THEN
4029: --utl_file.fclose_all;
4030: utl_file.fclose(l_datafileptr);
4031: fnd_message.set_name('SQLAP', 'OIE_APWUPDM_INVALID_FORMAT');
4032: errbuf := fnd_message.get;
4033: retcode := 2;
4034: WHEN l_invalid_rate_type THEN

Line 4035: --utl_file.fclose_all;

4031: fnd_message.set_name('SQLAP', 'OIE_APWUPDM_INVALID_FORMAT');
4032: errbuf := fnd_message.get;
4033: retcode := 2;
4034: WHEN l_invalid_rate_type THEN
4035: --utl_file.fclose_all;
4036: utl_file.fclose(l_datafileptr);
4037: fnd_message.set_name('SQLAP', 'OIE_APWUPDM_INVALID_RATE_TYPE');
4038: errbuf := fnd_message.get;
4039: retcode := 2;

Line 4036: utl_file.fclose(l_datafileptr);

4032: errbuf := fnd_message.get;
4033: retcode := 2;
4034: WHEN l_invalid_rate_type THEN
4035: --utl_file.fclose_all;
4036: utl_file.fclose(l_datafileptr);
4037: fnd_message.set_name('SQLAP', 'OIE_APWUPDM_INVALID_RATE_TYPE');
4038: errbuf := fnd_message.get;
4039: retcode := 2;
4040: WHEN OTHERS THEN

Line 4041: --utl_file.fclose_all;

4037: fnd_message.set_name('SQLAP', 'OIE_APWUPDM_INVALID_RATE_TYPE');
4038: errbuf := fnd_message.get;
4039: retcode := 2;
4040: WHEN OTHERS THEN
4041: --utl_file.fclose_all;
4042: utl_file.fclose(l_datafileptr);
4043: fnd_message.set_name('AK', 'AK_INVALID_FILE_OPERATION');
4044: fnd_message.set_token('PATH', l_datafilepath);
4045: fnd_message.set_token('FILE', l_datafile);

Line 4042: utl_file.fclose(l_datafileptr);

4038: errbuf := fnd_message.get;
4039: retcode := 2;
4040: WHEN OTHERS THEN
4041: --utl_file.fclose_all;
4042: utl_file.fclose(l_datafileptr);
4043: fnd_message.set_name('AK', 'AK_INVALID_FILE_OPERATION');
4044: fnd_message.set_token('PATH', l_datafilepath);
4045: fnd_message.set_token('FILE', l_datafile);
4046: errbuf := fnd_message.get;