2243: return varchar2
2244: is
2245: l_data varchar2(20000) := null;
2246: l_file_name varchar2(100);
2247: l_file_handle utl_file.file_type;
2248: l_location varchar2(150);
2249: e_fatal_error exception;
2250: begin
2251: l_file_name := trim(substr(p_file_name,instr(p_file_name,':') + 1));
2259: fnd_file.put_line(fnd_file.LOG,'Input directory not defined. Set PER_DATA_EXCHANGE_DIR profile (HR: Data Exchange directory).');
2260: raise e_fatal_error;
2261: end if;
2262: -- Open file
2263: l_file_handle := utl_file.fopen(l_location,l_file_name,'r');
2264: utl_file.get_line(l_file_handle,l_data);
2265: fnd_file.put_line(fnd_file.LOG,l_data);
2266: utl_file.fclose(l_file_handle);
2267: return l_data;
2260: raise e_fatal_error;
2261: end if;
2262: -- Open file
2263: l_file_handle := utl_file.fopen(l_location,l_file_name,'r');
2264: utl_file.get_line(l_file_handle,l_data);
2265: fnd_file.put_line(fnd_file.LOG,l_data);
2266: utl_file.fclose(l_file_handle);
2267: return l_data;
2268: exception
2262: -- Open file
2263: l_file_handle := utl_file.fopen(l_location,l_file_name,'r');
2264: utl_file.get_line(l_file_handle,l_data);
2265: fnd_file.put_line(fnd_file.LOG,l_data);
2266: utl_file.fclose(l_file_handle);
2267: return l_data;
2268: exception
2269: when e_fatal_error then
2270: UTL_FILE.FCLOSE(l_file_handle);
2266: utl_file.fclose(l_file_handle);
2267: return l_data;
2268: exception
2269: when e_fatal_error then
2270: UTL_FILE.FCLOSE(l_file_handle);
2271: fnd_file.put_line(fnd_file.LOG,'Fatal Error');
2272: return null;
2273: when UTL_FILE.INVALID_OPERATION then
2274: UTL_FILE.FCLOSE(l_file_handle);
2269: when e_fatal_error then
2270: UTL_FILE.FCLOSE(l_file_handle);
2271: fnd_file.put_line(fnd_file.LOG,'Fatal Error');
2272: return null;
2273: when UTL_FILE.INVALID_OPERATION then
2274: UTL_FILE.FCLOSE(l_file_handle);
2275: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Operation (file not found).');
2276: return null;
2277: when UTL_FILE.INTERNAL_ERROR then
2270: UTL_FILE.FCLOSE(l_file_handle);
2271: fnd_file.put_line(fnd_file.LOG,'Fatal Error');
2272: return null;
2273: when UTL_FILE.INVALID_OPERATION then
2274: UTL_FILE.FCLOSE(l_file_handle);
2275: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Operation (file not found).');
2276: return null;
2277: when UTL_FILE.INTERNAL_ERROR then
2278: UTL_FILE.FCLOSE(l_file_handle);
2273: when UTL_FILE.INVALID_OPERATION then
2274: UTL_FILE.FCLOSE(l_file_handle);
2275: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Operation (file not found).');
2276: return null;
2277: when UTL_FILE.INTERNAL_ERROR then
2278: UTL_FILE.FCLOSE(l_file_handle);
2279: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Internal Error.');
2280: return null;
2281: when UTL_FILE.INVALID_MODE then
2274: UTL_FILE.FCLOSE(l_file_handle);
2275: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Operation (file not found).');
2276: return null;
2277: when UTL_FILE.INTERNAL_ERROR then
2278: UTL_FILE.FCLOSE(l_file_handle);
2279: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Internal Error.');
2280: return null;
2281: when UTL_FILE.INVALID_MODE then
2282: UTL_FILE.FCLOSE(l_file_handle);
2277: when UTL_FILE.INTERNAL_ERROR then
2278: UTL_FILE.FCLOSE(l_file_handle);
2279: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Internal Error.');
2280: return null;
2281: when UTL_FILE.INVALID_MODE then
2282: UTL_FILE.FCLOSE(l_file_handle);
2283: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Mode.');
2284: return null;
2285: when UTL_FILE.INVALID_PATH then
2278: UTL_FILE.FCLOSE(l_file_handle);
2279: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Internal Error.');
2280: return null;
2281: when UTL_FILE.INVALID_MODE then
2282: UTL_FILE.FCLOSE(l_file_handle);
2283: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Mode.');
2284: return null;
2285: when UTL_FILE.INVALID_PATH then
2286: UTL_FILE.FCLOSE(l_file_handle);
2281: when UTL_FILE.INVALID_MODE then
2282: UTL_FILE.FCLOSE(l_file_handle);
2283: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Mode.');
2284: return null;
2285: when UTL_FILE.INVALID_PATH then
2286: UTL_FILE.FCLOSE(l_file_handle);
2287: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Path.');
2288: return null;
2289: when UTL_FILE.INVALID_FILEHANDLE then
2282: UTL_FILE.FCLOSE(l_file_handle);
2283: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Mode.');
2284: return null;
2285: when UTL_FILE.INVALID_PATH then
2286: UTL_FILE.FCLOSE(l_file_handle);
2287: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Path.');
2288: return null;
2289: when UTL_FILE.INVALID_FILEHANDLE then
2290: UTL_FILE.FCLOSE(l_file_handle);
2285: when UTL_FILE.INVALID_PATH then
2286: UTL_FILE.FCLOSE(l_file_handle);
2287: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Path.');
2288: return null;
2289: when UTL_FILE.INVALID_FILEHANDLE then
2290: UTL_FILE.FCLOSE(l_file_handle);
2291: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid File Handle.');
2292: return null;
2293: when UTL_FILE.READ_ERROR then
2286: UTL_FILE.FCLOSE(l_file_handle);
2287: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid Path.');
2288: return null;
2289: when UTL_FILE.INVALID_FILEHANDLE then
2290: UTL_FILE.FCLOSE(l_file_handle);
2291: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid File Handle.');
2292: return null;
2293: when UTL_FILE.READ_ERROR then
2294: UTL_FILE.FCLOSE(l_file_handle);
2289: when UTL_FILE.INVALID_FILEHANDLE then
2290: UTL_FILE.FCLOSE(l_file_handle);
2291: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid File Handle.');
2292: return null;
2293: when UTL_FILE.READ_ERROR then
2294: UTL_FILE.FCLOSE(l_file_handle);
2295: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Read Error.');
2296: return null;
2297: when others then
2290: UTL_FILE.FCLOSE(l_file_handle);
2291: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Invalid File Handle.');
2292: return null;
2293: when UTL_FILE.READ_ERROR then
2294: UTL_FILE.FCLOSE(l_file_handle);
2295: fnd_file.put_line(fnd_file.LOG,'Reading NINO Reply File - Read Error.');
2296: return null;
2297: when others then
2298: fnd_file.put_line(fnd_file.LOG,'Exception : ' || SQLERRM || ' ' || sqlcode);
2296: return null;
2297: when others then
2298: fnd_file.put_line(fnd_file.LOG,'Exception : ' || SQLERRM || ' ' || sqlcode);
2299: fnd_file.put_line(fnd_file.LOG,DBMS_UTILITY.format_error_backtrace);
2300: utl_file.fclose(l_file_handle);
2301: return null;
2302: end get_data_file;
2303:
2304: PROCEDURE get_values_into_table(