28: BEGIN -- enrp_val_scae_acad
29: -- When transferring a IGS_EN_STDNT_PS_ATT and the calendar
30: -- type of the IGS_PS_OFR_OPT varies from that of the
31: -- original course, validate that the enrolment period of the
32: -- current IGS_AS_SC_ATMPT_ENR is also a sub-ordinate of the
33: -- new calendar type.
34: DECLARE
35: v_ci_sequence_number IGS_AS_SC_ATMPT_ENR.ci_sequence_number%TYPE;
36: v_cal_type IGS_AS_SC_ATMPT_ENR.cal_type%TYPE;
31: -- original course, validate that the enrolment period of the
32: -- current IGS_AS_SC_ATMPT_ENR is also a sub-ordinate of the
33: -- new calendar type.
34: DECLARE
35: v_ci_sequence_number IGS_AS_SC_ATMPT_ENR.ci_sequence_number%TYPE;
36: v_cal_type IGS_AS_SC_ATMPT_ENR.cal_type%TYPE;
37: v_enrolment_cat IGS_AS_SC_ATMPT_ENR.enrolment_cat%TYPE;
38: v_ret BOOLEAN;
39: CURSOR c_scae_ci IS
32: -- current IGS_AS_SC_ATMPT_ENR is also a sub-ordinate of the
33: -- new calendar type.
34: DECLARE
35: v_ci_sequence_number IGS_AS_SC_ATMPT_ENR.ci_sequence_number%TYPE;
36: v_cal_type IGS_AS_SC_ATMPT_ENR.cal_type%TYPE;
37: v_enrolment_cat IGS_AS_SC_ATMPT_ENR.enrolment_cat%TYPE;
38: v_ret BOOLEAN;
39: CURSOR c_scae_ci IS
40: SELECT scae.cal_type,
33: -- new calendar type.
34: DECLARE
35: v_ci_sequence_number IGS_AS_SC_ATMPT_ENR.ci_sequence_number%TYPE;
36: v_cal_type IGS_AS_SC_ATMPT_ENR.cal_type%TYPE;
37: v_enrolment_cat IGS_AS_SC_ATMPT_ENR.enrolment_cat%TYPE;
38: v_ret BOOLEAN;
39: CURSOR c_scae_ci IS
40: SELECT scae.cal_type,
41: scae.ci_sequence_number,
39: CURSOR c_scae_ci IS
40: SELECT scae.cal_type,
41: scae.ci_sequence_number,
42: scae.enrolment_cat
43: FROM IGS_AS_SC_ATMPT_ENR scae,
44: IGS_CA_INST ci
45: WHERE scae.person_id = p_person_id AND
46: scae.course_cd = p_course_cd AND
47: scae.cal_type = ci.cal_type AND