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
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);
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
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;
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:
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);
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:
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
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:
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
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:
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
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:
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
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:
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
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:
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
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:
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
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
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;