[Home] [Help]
2922:
2923: PROCEDURE enrpl_upd_sua_uoo(
2924: p_person_id IGS_EN_SU_ATTEMPT.person_id%TYPE,
2925: p_course_cd IGS_PS_VER.course_cd%TYPE,
2926: p_version_number IGS_PS_UNIT_VER.version_number%TYPE, --program version
2927: p_u_version_number IGS_PS_UNIT_VER.version_number%TYPE, --unit version
2928: p_from_uoo_id IGS_EN_SU_ATTEMPT.UOO_ID%TYPE,
2929: p_teach_end_dt IGS_CA_INST.end_dt%TYPE,
2930: p_location_cd IGS_AD_LOCATION.location_cd%TYPE,
2923: PROCEDURE enrpl_upd_sua_uoo(
2924: p_person_id IGS_EN_SU_ATTEMPT.person_id%TYPE,
2925: p_course_cd IGS_PS_VER.course_cd%TYPE,
2926: p_version_number IGS_PS_UNIT_VER.version_number%TYPE, --program version
2927: p_u_version_number IGS_PS_UNIT_VER.version_number%TYPE, --unit version
2928: p_from_uoo_id IGS_EN_SU_ATTEMPT.UOO_ID%TYPE,
2929: p_teach_end_dt IGS_CA_INST.end_dt%TYPE,
2930: p_location_cd IGS_AD_LOCATION.location_cd%TYPE,
2931: p_unit_class IGS_AS_UNIT_CLASS.unit_class%TYPE,
2930: p_location_cd IGS_AD_LOCATION.location_cd%TYPE,
2931: p_unit_class IGS_AS_UNIT_CLASS.unit_class%TYPE,
2932: p_unit_attempt_status IGS_EN_SU_ATTEMPT.unit_attempt_status%TYPE,
2933: p_enrolled_dt IGS_EN_SU_ATTEMPT.enrolled_dt%TYPE,
2934: p_to_uv_version_number IGS_PS_UNIT_VER.version_number%TYPE,
2935: p_to_location_cd IGS_AD_LOCATION.location_cd%TYPE,
2936: p_to_unit_class IGS_AS_UNIT_CLASS.unit_class%TYPE,
2937: p_sua_error_count IN OUT NOCOPY NUMBER,
2938: p_sua_warn_count IN OUT NOCOPY NUMBER,
2979:
2980: CURSOR c_uv IS
2981: SELECT us.s_unit_status,
2982: uv.expiry_dt
2983: FROM IGS_PS_UNIT_VER uv,
2984: IGS_PS_UNIT_STAT us
2985: WHERE uv.unit_cd = p_from_unit_cd AND
2986: uv.version_number = p_to_uv_version_number AND
2987: us.UNIT_STATUS = uv.UNIT_STATUS;
3004: CURSOR c_unit_enroll_cp(cp_uoo_id IN NUMBER) IS
3005: SELECT
3006: NVL(cps.enrolled_credit_points,uv.enrolled_credit_points) enrolled_credit_points
3007: FROM IGS_PS_UNIT_OFR_OPT uoo,
3008: IGS_PS_UNIT_VER uv,
3009: IGS_PS_USEC_CPS cps
3010: WHERE uoo.uoo_id = cps.uoo_id(+) AND
3011: uoo.unit_cd = uv.unit_cd AND
3012: uoo.version_number = uv.version_number AND
3277: -- Exit from the local procedure
3278: RETURN;
3279: END IF;
3280:
3281: -- Validate that the IGS_PS_UNIT version is allowable for transfers.
3282: OPEN c_uv;
3283: FETCH c_uv INTO v_uv_rec;
3284: CLOSE c_uv;
3285: IF v_uv_rec.s_unit_status <> cst_active THEN
3284: CLOSE c_uv;
3285: IF v_uv_rec.s_unit_status <> cst_active THEN
3286:
3287: -- Log error, unable to transfer student IGS_PS_UNIT attempt
3288: -- option as the IGS_PS_UNIT version is not active.
3289: IGS_GE_INS_SLE.genp_set_log_entry(
3290: cst_enr_blk_uo,
3291: cst_blk_uoo,
3292: v_key,
3289: IGS_GE_INS_SLE.genp_set_log_entry(
3290: cst_enr_blk_uo,
3291: cst_blk_uoo,
3292: v_key,
3293: 'IGS_EN_FAIL_UNITVER_NOT_ACTIV', -- Failed to transfer as IGS_PS_UNIT version not active.
3294: cst_error || '|ACTIVE-UV');
3295: p_sua_error_count := p_sua_error_count + 1;
3296: -- Exit from the local procedure
3297: RETURN;
3300:
3301: IF p_u_version_number <> p_to_uv_version_number THEN
3302:
3303: -- Log error, unable to transfer student IGS_PS_UNIT attempt
3304: -- option as the IGS_PS_UNIT version is not active.
3305: IGS_GE_INS_SLE.genp_set_log_entry(
3306: cst_enr_blk_uo,
3307: cst_blk_uoo,
3308: v_key,
3305: IGS_GE_INS_SLE.genp_set_log_entry(
3306: cst_enr_blk_uo,
3307: cst_blk_uoo,
3308: v_key,
3309: 'IGS_EN_FAIL_UNITVER_EXPDT_SET', -- Failed to transfer as IGS_PS_UNIT version expiry date set.
3310: cst_error || '|UV-EXPIRED');
3311: p_sua_error_count := p_sua_error_count + 1;
3312: -- Exit from the local procedure
3313: RETURN;
5313: v_course_key,
5314: 'IGS_EN_NO_TRN_SAME_USEC', -- Failed to transfer as option does not exist.
5315: 'ERROR|NO_TRANS');
5316: v_error_count := v_error_count + 1;
5317: END IF; -- Check if IGS_PS_UNIT version/offering being altered.
5318:
5319: --Calling procedure to raise business event when unit is transferred
5320: IF v_processing_occurred THEN
5321: IF l_waitlist_flag = 'Y' THEN