DBA Data[Home] [Help]

APPS.HR_ADE_UPGRADE dependencies on UTL_FILE

Line 80: l_infile UTL_FILE.FILE_TYPE ;

76: ,retcode OUT NOCOPY NUMBER
77: ,p_file IN VARCHAR2) IS
78:
79: l_dir VARCHAR2(240);
80: l_infile UTL_FILE.FILE_TYPE ;
81: l_out_file UTL_FILE.FILE_TYPE ;
82: --
83: l_inline VARCHAR2(32767) ;
84: --

Line 81: l_out_file UTL_FILE.FILE_TYPE ;

77: ,p_file IN VARCHAR2) IS
78:
79: l_dir VARCHAR2(240);
80: l_infile UTL_FILE.FILE_TYPE ;
81: l_out_file UTL_FILE.FILE_TYPE ;
82: --
83: l_inline VARCHAR2(32767) ;
84: --
85: l_package VARCHAR2(500) DEFAULT NULL;

Line 112: l_infile := UTL_FILE.FOPEN(l_dir,p_file,'r');

108: --
109: --get directory from system profile value
110: fnd_profile.get('PER_DATA_EXCHANGE_DIR', l_dir);
111: -- open input file for reading
112: l_infile := UTL_FILE.FOPEN(l_dir,p_file,'r');
113: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Processing '||l_dir||'/'||p_file);
114: select sysdate into l_date from dual;
115: l_datestamp := to_char(l_date,'DDMMYYHH24MISS');
116: --

Line 121: l_out_file := UTL_FILE.FOPEN(l_dir,l_out_file_name,'w');

117: --create output file names
118: l_out_file_name := 'UPG' ||l_datestamp||'.csv';
119: --
120: -- open/create file for writing
121: l_out_file := UTL_FILE.FOPEN(l_dir,l_out_file_name,'w');
122: --
123: BEGIN -- annonymous block to trap NO_DATA_FOUND at end of file
124: LOOP
125: EXIT WHEN 1=2;-- continue reading until NO_DATA_FOUND error

Line 129: UTL_FILE.get_line(l_infile,l_inline);

125: EXIT WHEN 1=2;-- continue reading until NO_DATA_FOUND error
126: -- raised when end-of-file reached
127: --
128: --read 1 line from infile into inline
129: UTL_FILE.get_line(l_infile,l_inline);
130: --
131: IF substr(l_inline,1,1) = '[' THEN
132: l_groupname := l_inline; -- store group name
133: l_groupname := REPLACE(l_groupname,'[','');

Line 202: utl_file.put_line(l_out_file,'UPDATE,'||l_all_settings);

198: 'PROCEDURE';
199: --write modified line to appropriate csv file, appending new line char/s
200: IF l_package IS NOT NULL THEN
201: --has an API specified so is update style
202: utl_file.put_line(l_out_file,'UPDATE,'||l_all_settings);
203: ELSE
204: --No API specified so is download type
205: utl_file.put_line(l_out_file,'DOWNLOAD,'||l_all_settings);
206: END IF;

Line 205: utl_file.put_line(l_out_file,'DOWNLOAD,'||l_all_settings);

201: --has an API specified so is update style
202: utl_file.put_line(l_out_file,'UPDATE,'||l_all_settings);
203: ELSE
204: --No API specified so is download type
205: utl_file.put_line(l_out_file,'DOWNLOAD,'||l_all_settings);
206: END IF;
207: -- There cannot be create style as these were not supported in ADE
208:
209: END IF;--end of if line is style specifier

Line 218: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading

214: --will drop out of anonymous block and contine main procedure execution.
215: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Processed '|| p_file);
216: END;--end of anonymous block for loop
217: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Closing files');
218: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
219:
220: UTL_FILE.FFLUSH(l_out_file); --force physical write of data
221:
222: UTL_FILE.FCLOSE(l_out_file); -- close file opened for writing

Line 220: UTL_FILE.FFLUSH(l_out_file); --force physical write of data

216: END;--end of anonymous block for loop
217: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Closing files');
218: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
219:
220: UTL_FILE.FFLUSH(l_out_file); --force physical write of data
221:
222: UTL_FILE.FCLOSE(l_out_file); -- close file opened for writing
223:
224: IF retcode <>0 --warnings encountered

Line 222: UTL_FILE.FCLOSE(l_out_file); -- close file opened for writing

218: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
219:
220: UTL_FILE.FFLUSH(l_out_file); --force physical write of data
221:
222: UTL_FILE.FCLOSE(l_out_file); -- close file opened for writing
223:
224: IF retcode <>0 --warnings encountered
225: THEN
226: errbuff := errbuff || ' - Some View Names must be added manually';

Line 237: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading

233: WHEN NO_DATA_FOUND THEN -- file opened for reading does not exist
234: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input File Not Found');
235: --Concurrent Process log line
236: retcode := 2; -- mark Concurrent process as failed
237: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
238: UTL_FILE.FCLOSE(l_out_file);
239: FND_MESSAGE.SET_NAME('PER','PER_289859_FILE_NOT_FOUND');
240: FND_MESSAGE.RAISE_ERROR;
241:

Line 238: UTL_FILE.FCLOSE(l_out_file);

234: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input File Not Found');
235: --Concurrent Process log line
236: retcode := 2; -- mark Concurrent process as failed
237: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
238: UTL_FILE.FCLOSE(l_out_file);
239: FND_MESSAGE.SET_NAME('PER','PER_289859_FILE_NOT_FOUND');
240: FND_MESSAGE.RAISE_ERROR;
241:
242: WHEN UTL_FILE.INVALID_OPERATION THEN

Line 242: WHEN UTL_FILE.INVALID_OPERATION THEN

238: UTL_FILE.FCLOSE(l_out_file);
239: FND_MESSAGE.SET_NAME('PER','PER_289859_FILE_NOT_FOUND');
240: FND_MESSAGE.RAISE_ERROR;
241:
242: WHEN UTL_FILE.INVALID_OPERATION THEN
243: FND_FILE.PUT_LINE(FND_FILE.LOG,
244: 'The supplied file cannot be opened.'||
245: 'Please check the file name and make sure this file exists'||
246: ' in the correct directory, and that the file is readable');

Line 249: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading

245: 'Please check the file name and make sure this file exists'||
246: ' in the correct directory, and that the file is readable');
247: --Concurrent Process log line
248: retcode := 2; -- mark Concurrent process as failed
249: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
250: UTL_FILE.FCLOSE(l_out_file);
251: FND_MESSAGE.SET_NAME('PER','PER_289863_INVALID_OP');
252: FND_MESSAGE.RAISE_ERROR;
253:

Line 250: UTL_FILE.FCLOSE(l_out_file);

246: ' in the correct directory, and that the file is readable');
247: --Concurrent Process log line
248: retcode := 2; -- mark Concurrent process as failed
249: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
250: UTL_FILE.FCLOSE(l_out_file);
251: FND_MESSAGE.SET_NAME('PER','PER_289863_INVALID_OP');
252: FND_MESSAGE.RAISE_ERROR;
253:
254: WHEN UTL_FILE.READ_ERROR THEN

Line 254: WHEN UTL_FILE.READ_ERROR THEN

250: UTL_FILE.FCLOSE(l_out_file);
251: FND_MESSAGE.SET_NAME('PER','PER_289863_INVALID_OP');
252: FND_MESSAGE.RAISE_ERROR;
253:
254: WHEN UTL_FILE.READ_ERROR THEN
255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input File Error');
256: --Concurrent Process log line
257: retcode := 2; -- mark Concurrent process as failed
258: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading

Line 258: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading

254: WHEN UTL_FILE.READ_ERROR THEN
255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input File Error');
256: --Concurrent Process log line
257: retcode := 2; -- mark Concurrent process as failed
258: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
259: UTL_FILE.FCLOSE(l_out_file);
260: FND_MESSAGE.SET_NAME('PER','PER_289860_READ_ERROR');
261: FND_MESSAGE.RAISE_ERROR;
262:

Line 259: UTL_FILE.FCLOSE(l_out_file);

255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input File Error');
256: --Concurrent Process log line
257: retcode := 2; -- mark Concurrent process as failed
258: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
259: UTL_FILE.FCLOSE(l_out_file);
260: FND_MESSAGE.SET_NAME('PER','PER_289860_READ_ERROR');
261: FND_MESSAGE.RAISE_ERROR;
262:
263: WHEN UTL_FILE.WRITE_ERROR THEN

Line 263: WHEN UTL_FILE.WRITE_ERROR THEN

259: UTL_FILE.FCLOSE(l_out_file);
260: FND_MESSAGE.SET_NAME('PER','PER_289860_READ_ERROR');
261: FND_MESSAGE.RAISE_ERROR;
262:
263: WHEN UTL_FILE.WRITE_ERROR THEN
264: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Output File Error');
265: --Concurrent Process log line
266: retcode := 2; -- mark Concurrent process as failed
267: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading

Line 267: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading

263: WHEN UTL_FILE.WRITE_ERROR THEN
264: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Output File Error');
265: --Concurrent Process log line
266: retcode := 2; -- mark Concurrent process as failed
267: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
268: UTL_FILE.FCLOSE(l_out_file);
269: FND_MESSAGE.SET_NAME('PER','PER_289861_WRITE_ERROR');
270: FND_MESSAGE.RAISE_ERROR;
271:

Line 268: UTL_FILE.FCLOSE(l_out_file);

264: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Output File Error');
265: --Concurrent Process log line
266: retcode := 2; -- mark Concurrent process as failed
267: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
268: UTL_FILE.FCLOSE(l_out_file);
269: FND_MESSAGE.SET_NAME('PER','PER_289861_WRITE_ERROR');
270: FND_MESSAGE.RAISE_ERROR;
271:
272: WHEN UTL_FILE.INVALID_PATH THEN

Line 272: WHEN UTL_FILE.INVALID_PATH THEN

268: UTL_FILE.FCLOSE(l_out_file);
269: FND_MESSAGE.SET_NAME('PER','PER_289861_WRITE_ERROR');
270: FND_MESSAGE.RAISE_ERROR;
271:
272: WHEN UTL_FILE.INVALID_PATH THEN
273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invalid Directory Supplied');
274: --Concurrent Process log line
275: retcode := 2; -- mark Concurrent process as failed
276: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading

Line 276: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading

272: WHEN UTL_FILE.INVALID_PATH THEN
273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invalid Directory Supplied');
274: --Concurrent Process log line
275: retcode := 2; -- mark Concurrent process as failed
276: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
277: UTL_FILE.FCLOSE(l_out_file);
278: FND_MESSAGE.SET_NAME('PER','PER_289862_INVALID_PATH');
279: FND_MESSAGE.RAISE_ERROR;
280:

Line 277: UTL_FILE.FCLOSE(l_out_file);

273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invalid Directory Supplied');
274: --Concurrent Process log line
275: retcode := 2; -- mark Concurrent process as failed
276: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
277: UTL_FILE.FCLOSE(l_out_file);
278: FND_MESSAGE.SET_NAME('PER','PER_289862_INVALID_PATH');
279: FND_MESSAGE.RAISE_ERROR;
280:
281: END parse_ini_file;