DBA Data[Home] [Help]

APPS.IGS_AD_PG_DATA_LOAD dependencies on UTL_FILE

Line 67: vtac_pg_filehandle UTL_FILE.FILE_TYPE;

63: admission_cd VARCHAR2(80);
64: basis_for_admission_type VARCHAR2(80);
65: v_last_char VARCHAR2(1);
66:
67: vtac_pg_filehandle UTL_FILE.FILE_TYPE;
68: vtac_filedir VARCHAR2(100);
69: CURSOR c_api (cp_api_person_id IGS_PE_ALT_PERS_ID.api_person_id%TYPE,
70: cp_alt_person_id_type IGS_PE_ALT_PERS_ID.person_id_type%TYPE) IS
71: SELECT pe_person_id

Line 129: -- Open the file p_file_name for reading, the directory must be specified in the -- instance parameter initialization file(INIT.ORA) using the UTL_FILE_DIR

125: basis_for_admission_type := RTRIM(basis_for_admission_type);
126:
127:
128:
129: -- Open the file p_file_name for reading, the directory must be specified in the -- instance parameter initialization file(INIT.ORA) using the UTL_FILE_DIR
130: -- parameter
131:
132: vtac_filedir := nvl(RTRIM(FND_PROFILE.VALUE('IGS_IN_FILE_PATH')),' ');
133: v_last_char := SUBSTR(vtac_filedir,LENGTH(vtac_filedir),1);

Line 139: vtac_pg_filehandle := UTL_FILE.FOPEN(vtac_filedir, p_file_name, 'r');

135: IF v_last_char IN ('/','\') THEN -- '/' To match UNIX & '\' for NT
136: vtac_filedir := SUBSTR(vtac_filedir,1,LENGTH(vtac_filedir)-1);
137: END IF;
138:
139: vtac_pg_filehandle := UTL_FILE.FOPEN(vtac_filedir, p_file_name, 'r');
140:
141:
142:
143: --Process Offers

Line 147: UTL_FILE.GET_LINE(vtac_pg_filehandle,G_vtac_pg_output_buffer);

143: --Process Offers
144:
145: LOOP -- Main Loop
146: BEGIN
147: UTL_FILE.GET_LINE(vtac_pg_filehandle,G_vtac_pg_output_buffer);
148: EXCEPTION
149: WHEN NO_DATA_FOUND THEN
150: EXIT;
151: END;

Line 246: UTL_FILE.FCLOSE(vtac_pg_filehandle);

242: G_pg_message_str) = FALSE
243: THEN
244: ROLLBACK;
245: FND_FILE.PUT_LINE( FND_FILE.LOG, RTRIM(G_pg_message_str));
246: UTL_FILE.FCLOSE(vtac_pg_filehandle);
247: retcode := 2;
248: return;
249: END IF;
250:

Line 315: UTL_FILE.FCLOSE(vtac_pg_filehandle);

311: END IF;
312:
313: FND_FILE.PUT_LINE( FND_FILE.LOG,FND_MESSAGE.GET_STRING('IGS','IGS_AD_NUM_OF_RECORD_READ')||' - '||G_pg_read_number);
314:
315: UTL_FILE.FCLOSE(vtac_pg_filehandle);
316:
317: EXCEPTION
318: WHEN UTL_FILE.INVALID_PATH THEN
319: UTL_FILE.FCLOSE(vtac_pg_filehandle);

Line 318: WHEN UTL_FILE.INVALID_PATH THEN

314:
315: UTL_FILE.FCLOSE(vtac_pg_filehandle);
316:
317: EXCEPTION
318: WHEN UTL_FILE.INVALID_PATH THEN
319: UTL_FILE.FCLOSE(vtac_pg_filehandle);
320: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INVALID_PATH');
321: retcode := 2;
322:

Line 319: UTL_FILE.FCLOSE(vtac_pg_filehandle);

315: UTL_FILE.FCLOSE(vtac_pg_filehandle);
316:
317: EXCEPTION
318: WHEN UTL_FILE.INVALID_PATH THEN
319: UTL_FILE.FCLOSE(vtac_pg_filehandle);
320: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INVALID_PATH');
321: retcode := 2;
322:
323: WHEN UTL_FILE.INVALID_MODE THEN

Line 323: WHEN UTL_FILE.INVALID_MODE THEN

319: UTL_FILE.FCLOSE(vtac_pg_filehandle);
320: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INVALID_PATH');
321: retcode := 2;
322:
323: WHEN UTL_FILE.INVALID_MODE THEN
324: UTL_FILE.FCLOSE(vtac_pg_filehandle);
325: ERRBUF:= FND_MESSAGE.GET_STRING('IGS', 'IGS_GE_INVALID_MODE');
326: retcode := 2;
327:

Line 324: UTL_FILE.FCLOSE(vtac_pg_filehandle);

320: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INVALID_PATH');
321: retcode := 2;
322:
323: WHEN UTL_FILE.INVALID_MODE THEN
324: UTL_FILE.FCLOSE(vtac_pg_filehandle);
325: ERRBUF:= FND_MESSAGE.GET_STRING('IGS', 'IGS_GE_INVALID_MODE');
326: retcode := 2;
327:
328: WHEN UTL_FILE.INVALID_FILEHANDLE THEN

Line 328: WHEN UTL_FILE.INVALID_FILEHANDLE THEN

324: UTL_FILE.FCLOSE(vtac_pg_filehandle);
325: ERRBUF:= FND_MESSAGE.GET_STRING('IGS', 'IGS_GE_INVALID_MODE');
326: retcode := 2;
327:
328: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
329: UTL_FILE.FCLOSE(vtac_pg_filehandle);
330: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INVALID_FILE_HANDLE');
331: retcode := 2;
332:

Line 329: UTL_FILE.FCLOSE(vtac_pg_filehandle);

325: ERRBUF:= FND_MESSAGE.GET_STRING('IGS', 'IGS_GE_INVALID_MODE');
326: retcode := 2;
327:
328: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
329: UTL_FILE.FCLOSE(vtac_pg_filehandle);
330: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INVALID_FILE_HANDLE');
331: retcode := 2;
332:
333: WHEN UTL_FILE.INVALID_OPERATION THEN

Line 333: WHEN UTL_FILE.INVALID_OPERATION THEN

329: UTL_FILE.FCLOSE(vtac_pg_filehandle);
330: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INVALID_FILE_HANDLE');
331: retcode := 2;
332:
333: WHEN UTL_FILE.INVALID_OPERATION THEN
334: UTL_FILE.FCLOSE(vtac_pg_filehandle);
335: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INVALID_OPER');
336: retcode := 2;
337:

Line 334: UTL_FILE.FCLOSE(vtac_pg_filehandle);

330: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INVALID_FILE_HANDLE');
331: retcode := 2;
332:
333: WHEN UTL_FILE.INVALID_OPERATION THEN
334: UTL_FILE.FCLOSE(vtac_pg_filehandle);
335: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INVALID_OPER');
336: retcode := 2;
337:
338: WHEN UTL_FILE.READ_ERROR THEN

Line 338: WHEN UTL_FILE.READ_ERROR THEN

334: UTL_FILE.FCLOSE(vtac_pg_filehandle);
335: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INVALID_OPER');
336: retcode := 2;
337:
338: WHEN UTL_FILE.READ_ERROR THEN
339: UTL_FILE.FCLOSE(vtac_pg_filehandle);
340: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_READ_ERR');
341: retcode := 2;
342:

Line 339: UTL_FILE.FCLOSE(vtac_pg_filehandle);

335: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INVALID_OPER');
336: retcode := 2;
337:
338: WHEN UTL_FILE.READ_ERROR THEN
339: UTL_FILE.FCLOSE(vtac_pg_filehandle);
340: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_READ_ERR');
341: retcode := 2;
342:
343: WHEN UTL_FILE.WRITE_ERROR THEN

Line 343: WHEN UTL_FILE.WRITE_ERROR THEN

339: UTL_FILE.FCLOSE(vtac_pg_filehandle);
340: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_READ_ERR');
341: retcode := 2;
342:
343: WHEN UTL_FILE.WRITE_ERROR THEN
344: UTL_FILE.FCLOSE(vtac_pg_filehandle);
345: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_WRITE_ERR');
346: retcode := 2;
347:

Line 344: UTL_FILE.FCLOSE(vtac_pg_filehandle);

340: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_READ_ERR');
341: retcode := 2;
342:
343: WHEN UTL_FILE.WRITE_ERROR THEN
344: UTL_FILE.FCLOSE(vtac_pg_filehandle);
345: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_WRITE_ERR');
346: retcode := 2;
347:
348: WHEN UTL_FILE.INTERNAL_ERROR THEN

Line 348: WHEN UTL_FILE.INTERNAL_ERROR THEN

344: UTL_FILE.FCLOSE(vtac_pg_filehandle);
345: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_WRITE_ERR');
346: retcode := 2;
347:
348: WHEN UTL_FILE.INTERNAL_ERROR THEN
349: UTL_FILE.FCLOSE(vtac_pg_filehandle);
350: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INTERNAL_ERR');
351: retcode := 2;
352:

Line 349: UTL_FILE.FCLOSE(vtac_pg_filehandle);

345: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_WRITE_ERR');
346: retcode := 2;
347:
348: WHEN UTL_FILE.INTERNAL_ERROR THEN
349: UTL_FILE.FCLOSE(vtac_pg_filehandle);
350: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INTERNAL_ERR');
351: retcode := 2;
352:
353: WHEN NO_DATA_FOUND THEN

Line 354: UTL_FILE.FCLOSE(vtac_pg_filehandle);

350: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_INTERNAL_ERR');
351: retcode := 2;
352:
353: WHEN NO_DATA_FOUND THEN
354: UTL_FILE.FCLOSE(vtac_pg_filehandle);
355: ERRBUF:= IGS_GE_GEN_004.GENP_GET_LOOKUP('REPORT','NO_DATA');
356: retcode := 2;
357:
358: WHEN OTHERS THEN

Line 359: UTL_FILE.FCLOSE(vtac_pg_filehandle);

355: ERRBUF:= IGS_GE_GEN_004.GENP_GET_LOOKUP('REPORT','NO_DATA');
356: retcode := 2;
357:
358: WHEN OTHERS THEN
359: UTL_FILE.FCLOSE(vtac_pg_filehandle);
360: ERRBUF:= FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
361: retcode := 2;
362: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL;
363: END admp_ins_vtac_pg_off;