[Home] [Help]
994: v_the_found VARCHAR2(1);
995: v_mil_found VARCHAR2(1);
996: CURSOR c_the IS
997: SELECT 'x'
998: FROM IGS_RE_THESIS_EXAM tex
999: WHERE tex.person_id = p_person_id AND
1000: tex.ca_sequence_number = p_ca_sequence_number AND
1001: tex.the_sequence_number = p_the_sequence_number;
1002: CURSOR c_mil IS
1007: BEGIN
1008: -- Initialise output parameters.
1009: p_thesis_exam_exists := FALSE;
1010: p_milestone_exists := FALSE;
1011: -- Check IGS_RE_THESIS exam
1012: IF p_check_thesis_exam THEN
1013: OPEN c_the;
1014: FETCH c_the INTO v_the_found;
1015: IF c_the%FOUND THEN
1079: thes.sequence_number = p_the_sequence_number;
1080: v_the_rec c_the%ROWTYPE;
1081: CURSOR c_tex IS
1082: SELECT 'x'
1083: FROM IGS_RE_THESIS_EXAM tex
1084: WHERE person_id = p_person_id AND
1085: ca_sequence_number = p_ca_sequence_number AND
1086: the_sequence_number = p_the_sequence_number AND
1087: submission_dt IS NOT NULL;
1107: --If final outcome exists then return examined-any submissions are irrelevant
1108: IF v_the_rec.thesis_result_cd IS NOT NULL THEN
1109: RETURN cst_examined;
1110: END IF;
1111: --Select detail from the IGS_RE_THESIS examinations section
1112: OPEN c_tex;
1113: FETCH c_tex INTO v_tex_exists;
1114: IF c_tex%FOUND THEN
1115: CLOSE c_tex;