[Home] [Help]
1806: BEGIN
1807: DECLARE
1808:
1809: v_sub_cal_type IGS_CA_INST_REL.sub_cal_type%TYPE;
1810: v_cal_type IGS_EN_ATD_TYPE_LOAD.CAL_TYPE%TYPE;
1811: v_key VARCHAR2(50);
1812: v_warning_msg VARCHAR2(2000);
1813: v_last_upper IGS_EN_ATD_TYPE_LOAD.upper_enr_load_range%TYPE;
1814: v_count NUMBER;
1809: v_sub_cal_type IGS_CA_INST_REL.sub_cal_type%TYPE;
1810: v_cal_type IGS_EN_ATD_TYPE_LOAD.CAL_TYPE%TYPE;
1811: v_key VARCHAR2(50);
1812: v_warning_msg VARCHAR2(2000);
1813: v_last_upper IGS_EN_ATD_TYPE_LOAD.upper_enr_load_range%TYPE;
1814: v_count NUMBER;
1815:
1816: -- 1. Select load calendars which have superior
1817: -- relationships to parents other than academic,fee,award,admission and progress
1954: CURSOR c_atl (
1955: cp_attendance_type IGS_EN_ATD_TYPE.ATTENDANCE_TYPE%TYPE,
1956: cp_cal_type IGS_CA_INST.CAL_TYPE%TYPE) IS
1957: SELECT atl.CAL_TYPE -- not used
1958: FROM IGS_EN_ATD_TYPE_LOAD atl
1959: WHERE atl.ATTENDANCE_TYPE = cp_attendance_type AND
1960: atl.CAL_TYPE = cp_cal_type;
1961: -- 9. Validate that the attendance type load records for all
1962: -- attendance types cover the entire range of EFTSU. (ie. there are no gaps)
1963: CURSOR c_atl_att (
1964: cp_cal_type IGS_CA_INST.CAL_TYPE%TYPE) IS
1965: SELECT atl.lower_enr_load_range,
1966: atl.upper_enr_load_range
1967: FROM IGS_EN_ATD_TYPE_LOAD atl,
1968: IGS_EN_ATD_TYPE att
1969: WHERE atl.CAL_TYPE = cp_cal_type AND
1970: att.closed_ind = 'N' AND
1971: att.ATTENDANCE_TYPE = atl.ATTENDANCE_TYPE
2312: -- insert the one record, even if more gaps exists.
2313: EXIT;
2314: END IF;
2315: v_last_upper := v_atl_att_rec.upper_enr_load_range;
2316: END LOOP; -- (IGS_EN_ATD_TYPE_LOAD)
2317: END LOOP; -- (IGS_CA_INST)
2318: END;
2319: EXCEPTION
2320: WHEN OTHERS THEN