[Home] [Help]
134: cst_enrolled CONSTANT VARCHAR2(10) := 'ENROLLED';
135: cst_completed CONSTANT VARCHAR2(10) := 'COMPLETED';
136: cst_active CONSTANT VARCHAR2(10) := 'ACTIVE';
137: v_dummy VARCHAR2(1);
138: v_alt_code IGS_CA_INST.alternate_code%TYPE;
139: v_acad_cal_type IGS_CA_INST.cal_type%TYPE;
140: v_acad_sequence_number IGS_CA_INST.sequence_number%TYPE;
141: v_acad_start_dt IGS_CA_INST.start_dt%TYPE;
142: v_acad_end_dt IGS_CA_INST.end_dt%TYPE;
135: cst_completed CONSTANT VARCHAR2(10) := 'COMPLETED';
136: cst_active CONSTANT VARCHAR2(10) := 'ACTIVE';
137: v_dummy VARCHAR2(1);
138: v_alt_code IGS_CA_INST.alternate_code%TYPE;
139: v_acad_cal_type IGS_CA_INST.cal_type%TYPE;
140: v_acad_sequence_number IGS_CA_INST.sequence_number%TYPE;
141: v_acad_start_dt IGS_CA_INST.start_dt%TYPE;
142: v_acad_end_dt IGS_CA_INST.end_dt%TYPE;
143: v_return_flag BOOLEAN;
136: cst_active CONSTANT VARCHAR2(10) := 'ACTIVE';
137: v_dummy VARCHAR2(1);
138: v_alt_code IGS_CA_INST.alternate_code%TYPE;
139: v_acad_cal_type IGS_CA_INST.cal_type%TYPE;
140: v_acad_sequence_number IGS_CA_INST.sequence_number%TYPE;
141: v_acad_start_dt IGS_CA_INST.start_dt%TYPE;
142: v_acad_end_dt IGS_CA_INST.end_dt%TYPE;
143: v_return_flag BOOLEAN;
144: v_message_name VARCHAR2(30);
137: v_dummy VARCHAR2(1);
138: v_alt_code IGS_CA_INST.alternate_code%TYPE;
139: v_acad_cal_type IGS_CA_INST.cal_type%TYPE;
140: v_acad_sequence_number IGS_CA_INST.sequence_number%TYPE;
141: v_acad_start_dt IGS_CA_INST.start_dt%TYPE;
142: v_acad_end_dt IGS_CA_INST.end_dt%TYPE;
143: v_return_flag BOOLEAN;
144: v_message_name VARCHAR2(30);
145:
138: v_alt_code IGS_CA_INST.alternate_code%TYPE;
139: v_acad_cal_type IGS_CA_INST.cal_type%TYPE;
140: v_acad_sequence_number IGS_CA_INST.sequence_number%TYPE;
141: v_acad_start_dt IGS_CA_INST.start_dt%TYPE;
142: v_acad_end_dt IGS_CA_INST.end_dt%TYPE;
143: v_return_flag BOOLEAN;
144: v_message_name VARCHAR2(30);
145:
146: CURSOR c_sua_cir IS
147: SELECT sua.cal_type,
148: sua.ci_sequence_number,
149: ci.cal_type parent_cal_type,
150: ci.sequence_number parent_sequence_number
151: FROM IGS_CA_INST aci,
152: IGS_EN_SU_ATTEMPT sua,
153: IGS_CA_INST_REL cir,
154: IGS_CA_INST ci
155: WHERE
149: ci.cal_type parent_cal_type,
150: ci.sequence_number parent_sequence_number
151: FROM IGS_CA_INST aci,
152: IGS_EN_SU_ATTEMPT sua,
153: IGS_CA_INST_REL cir,
154: IGS_CA_INST ci
155: WHERE
156: aci.cal_type = p_acad_cal_type AND
157: aci.sequence_number = p_acad_sequence_number AND
150: ci.sequence_number parent_sequence_number
151: FROM IGS_CA_INST aci,
152: IGS_EN_SU_ATTEMPT sua,
153: IGS_CA_INST_REL cir,
154: IGS_CA_INST ci
155: WHERE
156: aci.cal_type = p_acad_cal_type AND
157: aci.sequence_number = p_acad_sequence_number AND
158: sua.person_id = p_person_id AND
249: CURSOR c_cir_tci (cp_teach_cal_type IGS_PS_PAT_STUDY_PRD.teach_cal_type%TYPE)
250: IS
251: SELECT tci.cal_type,
252: tci.sequence_number
253: FROM IGS_CA_INST_REL cir,
254: IGS_CA_INST tci,
255: IGS_CA_TYPE cat,
256: IGS_CA_STAT cs
257: WHERE cir.sup_cal_type = p_acad_cal_type AND
250: IS
251: SELECT tci.cal_type,
252: tci.sequence_number
253: FROM IGS_CA_INST_REL cir,
254: IGS_CA_INST tci,
255: IGS_CA_TYPE cat,
256: IGS_CA_STAT cs
257: WHERE cir.sup_cal_type = p_acad_cal_type AND
258: cir.sup_ci_sequence_number = p_acad_sequence_number AND
263: cat.s_cal_cat = 'TEACHING' AND
264: cs.cal_status = tci.cal_status AND
265: cs.s_cal_status = cst_active
266: ORDER BY tci.start_dt DESC;
267: v_teach_cal_type IGS_CA_INST.cal_type%TYPE;
268: v_teach_sequence_number IGS_CA_INST.sequence_number%TYPE;
269: BEGIN
270: p_message_name := NULL;
271: v_return_flag := FALSE;
264: cs.cal_status = tci.cal_status AND
265: cs.s_cal_status = cst_active
266: ORDER BY tci.start_dt DESC;
267: v_teach_cal_type IGS_CA_INST.cal_type%TYPE;
268: v_teach_sequence_number IGS_CA_INST.sequence_number%TYPE;
269: BEGIN
270: p_message_name := NULL;
271: v_return_flag := FALSE;
272: -- Check whether student has already been pre_enrolled into IGS_PS_UNIT attempts
631: -- modified cursor for performance bug 3687265
632: CURSOR c_get_acad_alt_cd IS
633: SELECT SUBSTR(IGS_EN_GEN_014.enrs_get_acad_alt_cd(sua_v.cal_type,sua_v.ci_sequence_number),1,10)
634: FROM IGS_EN_SU_ATTEMPT sua_v,
635: IGS_CA_INST ci
636: WHERE sua_v.person_id = p_person_id AND
637: sua_v.enrolled_dt IS NOT NULL AND
638: sua_v.cal_type = ci.cal_type AND
639: sua_v.ci_sequence_number = ci.sequence_number
639: sua_v.ci_sequence_number = ci.sequence_number
640: ORDER BY ci.start_dt,
641: ci.end_dt ;
642:
643: v_acad_alt_cd IGS_CA_INST.alternate_code%TYPE;
644: BEGIN
645: --- Retrieve the student IGS_PS_UNIT attempt records for the IGS_PE_PERSON.
646: --- The order the records are returned will ensure the oldest IGS_PS_UNIT
647: --- attempt record for the IGS_PE_PERSON is returned first.
679: --modified cursor for performance bug 3687150
680: CURSOR c_get_acad_alt_cd IS
681: SELECT SUBSTR(IGS_EN_GEN_014.enrs_get_acad_alt_cd(sua_v.cal_type,sua_v.ci_sequence_number),1,10)
682: FROM IGS_EN_SU_ATTEMPT sua_v,
683: IGS_CA_INST ci
684: WHERE sua_v.person_id = p_person_id AND
685: sua_v.enrolled_dt IS NOT NULL AND
686: sua_v.cal_type = ci.cal_type AND
687: sua_v.ci_sequence_number = ci.sequence_number
686: sua_v.cal_type = ci.cal_type AND
687: sua_v.ci_sequence_number = ci.sequence_number
688: ORDER BY ci.start_dt desc,
689: ci.end_dt desc ;
690: v_acad_alt_cd IGS_CA_INST.alternate_code%TYPE;
691: BEGIN
692: --- Retrieve the student IGS_PS_UNIT attempt records for the IGS_PE_PERSON.
693: --- The order the records are returned will ensure the newest IGS_PS_UNIT
694: --- attempt record for the IGS_PE_PERSON is returned first.