DBA Data[Home] [Help]

APPS.IGS_AD_GEN_002 dependencies on UTL_FILE

Line 49: fp_input UTL_FILE.FILE_TYPE;

45: -- the database. If successful it writes academic details for the
46: -- matching people to the result file, which will then be encrypted
47: -- and retured to the TAC.
48: DECLARE
49: fp_input UTL_FILE.FILE_TYPE;
50: fp_output UTL_FILE.FILE_TYPE;
51: cst_enrolled CONSTANT IGS_EN_SU_ATTEMPT.unit_attempt_status%TYPE :=
52: 'ENROLLED';
53: cst_sus_srvc CONSTANT IGS_PE_PERSENC_EFFCT.s_encmb_effect_type%TYPE :=

Line 50: fp_output UTL_FILE.FILE_TYPE;

46: -- matching people to the result file, which will then be encrypted
47: -- and retured to the TAC.
48: DECLARE
49: fp_input UTL_FILE.FILE_TYPE;
50: fp_output UTL_FILE.FILE_TYPE;
51: cst_enrolled CONSTANT IGS_EN_SU_ATTEMPT.unit_attempt_status%TYPE :=
52: 'ENROLLED';
53: cst_sus_srvc CONSTANT IGS_PE_PERSENC_EFFCT.s_encmb_effect_type%TYPE :=
54: 'SUS_SRVC';

Line 1274: UTL_FILE.PUT(fp_output, v_output_course);

1270: v_output_course := v_output_course ||
1271: LTRIM(TO_CHAR(p_course_sem_last_enr, '0')) ||
1272: LTRIM(TO_CHAR(p_equiv_full_time_enr, '00V00')) ||
1273: fnd_global.newline;
1274: UTL_FILE.PUT(fp_output, v_output_course);
1275: UTL_FILE.FFLUSH(fp_output);
1276: EXCEPTION
1277: WHEN OTHERS THEN
1278: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');

Line 1275: UTL_FILE.FFLUSH(fp_output);

1271: LTRIM(TO_CHAR(p_course_sem_last_enr, '0')) ||
1272: LTRIM(TO_CHAR(p_equiv_full_time_enr, '00V00')) ||
1273: fnd_global.newline;
1274: UTL_FILE.PUT(fp_output, v_output_course);
1275: UTL_FILE.FFLUSH(fp_output);
1276: EXCEPTION
1277: WHEN OTHERS THEN
1278: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
1279: Fnd_Message.Set_Token('NAME','IGS_AD_GEN_002.admpl_write_course_header');

Line 1515: UTL_FILE.PUT(fp_output, v_output_student);

1511: RPAD(NVL(v_first_name, ' '), 15) ||
1512: RPAD(NVL(v_second_name, ' '), 15) ||
1513: RPAD(NVL(v_birth_dt_str, ' '), 6) ||
1514: fnd_global.newline;
1515: UTL_FILE.PUT(fp_output, v_output_student);
1516: UTL_FILE.FFLUSH(fp_output);
1517: v_course_year_first_enr := 9999;
1518: v_course_year_last_enr := 0;
1519: v_course_sem_first_enr := 9;

Line 1516: UTL_FILE.FFLUSH(fp_output);

1512: RPAD(NVL(v_second_name, ' '), 15) ||
1513: RPAD(NVL(v_birth_dt_str, ' '), 6) ||
1514: fnd_global.newline;
1515: UTL_FILE.PUT(fp_output, v_output_student);
1516: UTL_FILE.FFLUSH(fp_output);
1517: v_course_year_first_enr := 9999;
1518: v_course_year_last_enr := 0;
1519: v_course_sem_first_enr := 9;
1520: v_course_sem_last_enr := 0;

Line 1548: UTL_FILE.PUT(fp_output, t_subject(i));

1544: v_course_sem_first_enr,
1545: v_course_sem_last_enr,
1546: v_sca_total_eftsu);
1547: FOR i IN 1..v_subject_cnt LOOP
1548: UTL_FILE.PUT(fp_output, t_subject(i));
1549: UTL_FILE.FFLUSH(fp_output);
1550: END LOOP;
1551: v_course_year_first_enr := 9999;
1552: v_course_year_last_enr := 0;

Line 1549: UTL_FILE.FFLUSH(fp_output);

1545: v_course_sem_last_enr,
1546: v_sca_total_eftsu);
1547: FOR i IN 1..v_subject_cnt LOOP
1548: UTL_FILE.PUT(fp_output, t_subject(i));
1549: UTL_FILE.FFLUSH(fp_output);
1550: END LOOP;
1551: v_course_year_first_enr := 9999;
1552: v_course_year_last_enr := 0;
1553: v_course_sem_first_enr := 9;

Line 1781: UTL_FILE.PUT(fp_output, t_subject(i));

1777: v_course_sem_first_enr,
1778: v_course_sem_last_enr,
1779: v_sca_total_eftsu);
1780: FOR i IN 1..v_subject_cnt LOOP
1781: UTL_FILE.PUT(fp_output, t_subject(i));
1782: UTL_FILE.FFLUSH(fp_output);
1783: END LOOP;
1784: END IF;
1785: EXCEPTION

Line 1782: UTL_FILE.FFLUSH(fp_output);

1778: v_course_sem_last_enr,
1779: v_sca_total_eftsu);
1780: FOR i IN 1..v_subject_cnt LOOP
1781: UTL_FILE.PUT(fp_output, t_subject(i));
1782: UTL_FILE.FFLUSH(fp_output);
1783: END LOOP;
1784: END IF;
1785: EXCEPTION
1786: WHEN OTHERS THEN

Line 2034: UTL_FILE.PUT(fp_output, v_output_header);

2030: r_header_rec.applicant_id ||
2031: LTRIM(TO_CHAR(r_header_rec.campus_cd, '0000')) ||
2032: RPAD(v_output_header_reason_code, 2) ||
2033: fnd_global.newline;
2034: UTL_FILE.PUT(fp_output, v_output_header);
2035: UTL_FILE.FFLUSH(fp_output);
2036: -- Now we need to loop through the PLSQL table of matched ID's again
2037: -- and write out NOCOPY all the details for each matched student.
2038: FOR i IN 1..p_number_of_matches LOOP

Line 2035: UTL_FILE.FFLUSH(fp_output);

2031: LTRIM(TO_CHAR(r_header_rec.campus_cd, '0000')) ||
2032: RPAD(v_output_header_reason_code, 2) ||
2033: fnd_global.newline;
2034: UTL_FILE.PUT(fp_output, v_output_header);
2035: UTL_FILE.FFLUSH(fp_output);
2036: -- Now we need to loop through the PLSQL table of matched ID's again
2037: -- and write out NOCOPY all the details for each matched student.
2038: FOR i IN 1..p_number_of_matches LOOP
2039: r_matched_id_rec := t_matched_ids(i);

Line 2108: UTL_FILE.GET_LINE(fp_input, v_input_string);

2104: v_input_string VARCHAR2(158);
2105: v_first_char VARCHAR2(1);
2106: BEGIN -- admpl_read_rec
2107: -- Read record from input file and return record type.
2108: UTL_FILE.GET_LINE(fp_input, v_input_string);
2109: p_input_string := v_input_string;
2110: -- Get the first character from v_input_string
2111: v_first_char := SUBSTR(v_input_string, 1, 1);
2112: IF (v_first_char = 'H') THEN

Line 2167: fp_input := UTL_FILE.FOPEN(p_directory, p_input_file, 'R');

2163: RETURN;
2164: END IF;
2165: -- Open input file
2166: BEGIN
2167: fp_input := UTL_FILE.FOPEN(p_directory, p_input_file, 'R');
2168: EXCEPTION
2169: WHEN UTL_FILE.INVALID_OPERATION THEN
2170: Fnd_Message.Set_Name('IGS','IGS_GE_UNABLE_READ_FILE');
2171: IGS_GE_MSG_STACK.ADD;

Line 2169: WHEN UTL_FILE.INVALID_OPERATION THEN

2165: -- Open input file
2166: BEGIN
2167: fp_input := UTL_FILE.FOPEN(p_directory, p_input_file, 'R');
2168: EXCEPTION
2169: WHEN UTL_FILE.INVALID_OPERATION THEN
2170: Fnd_Message.Set_Name('IGS','IGS_GE_UNABLE_READ_FILE');
2171: IGS_GE_MSG_STACK.ADD;
2172: RETURN;
2173: END;

Line 2176: fp_output := UTL_FILE.FOPEN(p_directory, p_output_file, 'W');

2172: RETURN;
2173: END;
2174: -- Open output file
2175: BEGIN
2176: fp_output := UTL_FILE.FOPEN(p_directory, p_output_file, 'W');
2177: EXCEPTION
2178: WHEN UTL_FILE.INVALID_OPERATION THEN
2179: Fnd_Message.Set_Name('IGS','IGS_GE_FAILED_TO_CREATE_FILE');
2180: IGS_GE_MSG_STACK.ADD;

Line 2178: WHEN UTL_FILE.INVALID_OPERATION THEN

2174: -- Open output file
2175: BEGIN
2176: fp_output := UTL_FILE.FOPEN(p_directory, p_output_file, 'W');
2177: EXCEPTION
2178: WHEN UTL_FILE.INVALID_OPERATION THEN
2179: Fnd_Message.Set_Name('IGS','IGS_GE_FAILED_TO_CREATE_FILE');
2180: IGS_GE_MSG_STACK.ADD;
2181: RETURN;
2182: END;

Line 2188: UTL_FILE.FCLOSE(fp_input);

2184: admpl_read_rec(
2185: v_record_type,
2186: v_input_string);
2187: IF (v_record_type = 'X') THEN
2188: UTL_FILE.FCLOSE(fp_input);
2189: UTL_FILE.FCLOSE(fp_output);
2190: RETURN;
2191: ELSIF (v_record_type <> 'H') THEN
2192: Fnd_Message.Set_Name('IGS','IGS_AD_FIRST_REC_MUST HDR_REC');

Line 2189: UTL_FILE.FCLOSE(fp_output);

2185: v_record_type,
2186: v_input_string);
2187: IF (v_record_type = 'X') THEN
2188: UTL_FILE.FCLOSE(fp_input);
2189: UTL_FILE.FCLOSE(fp_output);
2190: RETURN;
2191: ELSIF (v_record_type <> 'H') THEN
2192: Fnd_Message.Set_Name('IGS','IGS_AD_FIRST_REC_MUST HDR_REC');
2193: IGS_GE_MSG_STACK.ADD;

Line 2194: UTL_FILE.FCLOSE(fp_input);

2190: RETURN;
2191: ELSIF (v_record_type <> 'H') THEN
2192: Fnd_Message.Set_Name('IGS','IGS_AD_FIRST_REC_MUST HDR_REC');
2193: IGS_GE_MSG_STACK.ADD;
2194: UTL_FILE.FCLOSE(fp_input);
2195: UTL_FILE.FCLOSE(fp_output);
2196: RETURN;
2197: ELSE
2198: admpl_store_rec(

Line 2195: UTL_FILE.FCLOSE(fp_output);

2191: ELSIF (v_record_type <> 'H') THEN
2192: Fnd_Message.Set_Name('IGS','IGS_AD_FIRST_REC_MUST HDR_REC');
2193: IGS_GE_MSG_STACK.ADD;
2194: UTL_FILE.FCLOSE(fp_input);
2195: UTL_FILE.FCLOSE(fp_output);
2196: RETURN;
2197: ELSE
2198: admpl_store_rec(
2199: v_record_type,

Line 2248: UTL_FILE.FCLOSE(fp_input);

2244: IGS_GE_MSG_STACK.ADD;
2245: EXIT;
2246: END IF;
2247: END LOOP;
2248: UTL_FILE.FCLOSE(fp_input);
2249: UTL_FILE.FCLOSE(fp_output);
2250: END;
2251: EXCEPTION
2252: WHEN OTHERS THEN

Line 2249: UTL_FILE.FCLOSE(fp_output);

2245: EXIT;
2246: END IF;
2247: END LOOP;
2248: UTL_FILE.FCLOSE(fp_input);
2249: UTL_FILE.FCLOSE(fp_output);
2250: END;
2251: EXCEPTION
2252: WHEN OTHERS THEN
2253: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');

Line 2285: fp_input UTL_FILE.FILE_TYPE;

2281: --This module will read the VTAC enrolment return file, retrieve enrolment
2282: --information for the student by calling IGS_AD_GEN_010.ADMP_GET_TAC_RETURN and then write
2283: --out the new details to a new file in the required TAC format
2284: DECLARE
2285: fp_input UTL_FILE.FILE_TYPE;
2286: v_tmp_dir VARCHAR2(80);
2287: v_message_name VARCHAR2(30);
2288: --Vars to hold the respective components of the input string
2289: v_vtac_number VARCHAR2(9);

Line 2318: UTL_FILE.GET_LINE(fp_input, v_input_string);

2314: v_input_string VARCHAR2(255);
2315: BEGIN --admpl_read_input
2316: --this sub program reads the input file and splits up the
2317: --input string into the required components
2318: UTL_FILE.GET_LINE(fp_input, v_input_string);
2319: --split up the input string into its respective components
2320: v_vtac_number := RTRIM(SUBSTR(v_input_string, 1, 9));
2321: v_surname := RTRIM(SUBSTR(v_input_string, 10, 24));
2322: v_gname1 := RTRIM(SUBSTR(v_input_string, 34, 17));

Line 2338: UTL_FILE.FCLOSE(fp_input);

2334: v_birth_date := SUBSTR(v_input_string, 150, 8);
2335: RETURN TRUE;
2336: EXCEPTION
2337: WHEN NO_DATA_FOUND THEN
2338: UTL_FILE.FCLOSE(fp_input);
2339: RETURN FALSE;
2340: WHEN UTL_FILE.READ_ERROR THEN
2341: Fnd_Message.Set_Name('IGS','IGS_GE_UNABLE_READ_FILE');
2342: IGS_GE_MSG_STACK.ADD;

Line 2340: WHEN UTL_FILE.READ_ERROR THEN

2336: EXCEPTION
2337: WHEN NO_DATA_FOUND THEN
2338: UTL_FILE.FCLOSE(fp_input);
2339: RETURN FALSE;
2340: WHEN UTL_FILE.READ_ERROR THEN
2341: Fnd_Message.Set_Name('IGS','IGS_GE_UNABLE_READ_FILE');
2342: IGS_GE_MSG_STACK.ADD;
2343: App_Exception.Raise_Exception;
2344: RETURN FALSE;

Line 2386: fp_input := UTL_FILE.FOPEN(v_tmp_dir, p_input_file, 'R');

2382: END IF;
2383: fnd_profile.get('IGS_IN_FILE_PATH',v_tmp_dir);
2384: --Open input file
2385: BEGIN
2386: fp_input := UTL_FILE.FOPEN(v_tmp_dir, p_input_file, 'R');
2387: EXCEPTION
2388: WHEN UTL_FILE.INVALID_OPERATION THEN
2389: Fnd_Message.Set_Name('IGS','IGS_GE_UNABLE_READ_FILE');
2390: IGS_GE_MSG_STACK.ADD;

Line 2388: WHEN UTL_FILE.INVALID_OPERATION THEN

2384: --Open input file
2385: BEGIN
2386: fp_input := UTL_FILE.FOPEN(v_tmp_dir, p_input_file, 'R');
2387: EXCEPTION
2388: WHEN UTL_FILE.INVALID_OPERATION THEN
2389: Fnd_Message.Set_Name('IGS','IGS_GE_UNABLE_READ_FILE');
2390: IGS_GE_MSG_STACK.ADD;
2391: App_Exception.Raise_Exception;
2392: WHEN UTL_FILE.INVALID_PATH THEN

Line 2392: WHEN UTL_FILE.INVALID_PATH THEN

2388: WHEN UTL_FILE.INVALID_OPERATION THEN
2389: Fnd_Message.Set_Name('IGS','IGS_GE_UNABLE_READ_FILE');
2390: IGS_GE_MSG_STACK.ADD;
2391: App_Exception.Raise_Exception;
2392: WHEN UTL_FILE.INVALID_PATH THEN
2393: Fnd_Message.Set_Name('IGS','IGS_GE_UNABLE_READ_FILE');
2394: IGS_GE_MSG_STACK.ADD;
2395: App_Exception.Raise_Exception;
2396: END;

Line 2452: UTL_FILE.FCLOSE_ALL;

2448: END IF;
2449: END IF;
2450: END LOOP;
2451: --Close all files
2452: UTL_FILE.FCLOSE_ALL;
2453: RETURN;
2454: END;
2455: EXCEPTION
2456: WHEN OTHERS THEN