499: BEGIN
500: DECLARE
501: v_record_found BOOLEAN;
502: v_record_count NUMBER;
503: v_attendance_type IGS_EN_ATD_TYPE.attendance_type%TYPE;
504: CURSOR c_attendance_type(
505: cp_load_figure IGS_EN_ATD_TYPE.lower_enr_load_range%TYPE) IS
506: SELECT attendance_type
507: FROM IGS_EN_ATD_TYPE
501: v_record_found BOOLEAN;
502: v_record_count NUMBER;
503: v_attendance_type IGS_EN_ATD_TYPE.attendance_type%TYPE;
504: CURSOR c_attendance_type(
505: cp_load_figure IGS_EN_ATD_TYPE.lower_enr_load_range%TYPE) IS
506: SELECT attendance_type
507: FROM IGS_EN_ATD_TYPE
508: WHERE lower_enr_load_range <= p_load_figure AND
509: upper_enr_load_range >= p_load_figure AND
503: v_attendance_type IGS_EN_ATD_TYPE.attendance_type%TYPE;
504: CURSOR c_attendance_type(
505: cp_load_figure IGS_EN_ATD_TYPE.lower_enr_load_range%TYPE) IS
506: SELECT attendance_type
507: FROM IGS_EN_ATD_TYPE
508: WHERE lower_enr_load_range <= p_load_figure AND
509: upper_enr_load_range >= p_load_figure AND
510: lower_enr_load_range <> 0 AND -- testing for non zero ensures a
511: upper_enr_load_range <> 0; -- valid derivable load range has
622: -- The CP is calculated by multiplying the proportion of the EFTSU into
623: -- 1.000 multiplied by the standard annual load of the first year of the
624: -- IGS_PS_COURSE.
625: DECLARE
626: v_atl_rec IGS_EN_ATD_TYPE_LOAD.default_eftsu%TYPE;
627: v_cal_rec IGS_PS_ANL_LOAD.annual_load_val%TYPE;
628: v_crv_rec IGS_PS_VER.std_annual_load%TYPE;
629: v_annual_load NUMBER;
630: CURSOR c_atl IS
628: v_crv_rec IGS_PS_VER.std_annual_load%TYPE;
629: v_annual_load NUMBER;
630: CURSOR c_atl IS
631: SELECT atl.default_eftsu
632: FROM IGS_EN_ATD_TYPE_LOAD atl
633: WHERE atl.cal_type = p_load_cal_type AND
634: atl.attendance_type = p_attendance_type;
635: CURSOR c_cal IS
636: SELECT annual_load_val