[Home] [Help]
871:
872: BEGIN
873: DECLARE
874: v_count NUMBER;
875: v_std_annual_load IGS_PS_VER.std_annual_load%TYPE;
876: v_annual_load_val IGS_PS_ANL_LOAD.annual_load_val%TYPE;
877: v_sca_cp_total NUMBER;
878: v_cumulative_load NUMBER;
879: v_census_dt IGS_CA_DA_INST.absolute_val%TYPE;
886: (cal.effective_end_dt IS NULL OR
887: cal.effective_end_dt >= SYSDATE);
888: CURSOR c_crv IS
889: SELECT NVL(crv.std_annual_load, 0)
890: FROM IGS_PS_VER crv
891: WHERE crv.course_cd = p_course_cd AND
892: crv.version_number = p_version_number;
893: CURSOR c_calul_cal IS
894: SELECT cal.annual_load_val
934: -- Get the annual load figure of a student unit attempt within a course
935: -- version.
936: -- This figure may come from one of three places:
937: -- Method 1. If the IGS_PS_COURSE has a standard annual load across all years then
938: -- the IGS_PS_VER.std_annual_load figure is used. This is defined by the
939: -- non-existence of a current IGS_PS_ANL_LOAD record for the course version.
940: -- Method 2. By interrogating the IGS_PS_ANL_LOAD structure to determine
941: -- which annual load value is applicable, given the students current passed
942: -- credit point total. This is used when no annual load unit link is
1012: FETCH c_crv INTO v_std_annual_load;
1013: IF (c_crv%NOTFOUND) THEN
1014: -- At present, this will not occur because to reach this point
1015: -- a record must exist in IGS_PS_ANL_LOAD and for the course
1016: -- to exist in IGS_PS_ANL_LOAD it must exist in IGS_PS_VER.
1017: CLOSE c_crv;
1018: RETURN 0;
1019: END IF;
1020: CLOSE c_crv;
1813: cp_load_cal_type IGS_EN_SPA_TERMS.term_cal_type%TYPE,
1814: cp_load_seq_number IGS_EN_SPA_TERMS.term_sequence_number%TYPE) IS
1815: Select sca.course_cd
1816: From igs_en_stdnt_ps_att_all sca,
1817: igs_ps_ver_all pv
1818: WHERE sca.person_id = cp_person_id
1819: AND sca.course_cd = pv.course_cd
1820: AND sca.version_number = pv.version_number
1821: AND (
1987: AND spat.term_sequence_number = p_load_seq_number)
1988: OR
1989: (sca.primary_program_type='PRIMARY' AND
1990: NOT EXISTS (SELECT 'x'
1991: FROM igs_en_spa_terms spat, igs_ps_ver pv1, igs_ps_ver pv2
1992: WHERE spat.person_id = sca.person_id
1993: AND spat.program_cd = pv1.course_cd
1994: AND spat.program_version = pv1.version_number
1995: AND sca.course_cd = pv2.course_cd
2185: AND spat.term_sequence_number = p_load_sequence_number)
2186: OR
2187: (sca.primary_program_type='PRIMARY' AND
2188: NOT EXISTS (SELECT 'x'
2189: FROM igs_en_spa_terms spat, igs_ps_ver pv1, igs_ps_ver pv2
2190: WHERE spat.person_id = sca.person_id
2191: AND spat.program_cd = pv1.course_cd
2192: AND spat.program_version = pv1.version_number
2193: AND sca.course_cd = pv2.course_cd
2281: l_acad_ci_end_dt DATE;
2282: l_message_name VARCHAR2(1000);
2283:
2284:
2285: l_course_cd igs_ps_ver.course_cd%TYPE;
2286: l_version_number igs_ps_ver.version_number%TYPE;
2287:
2288: l_credit_points NUMBER :=0;
2289:
2282: l_message_name VARCHAR2(1000);
2283:
2284:
2285: l_course_cd igs_ps_ver.course_cd%TYPE;
2286: l_version_number igs_ps_ver.version_number%TYPE;
2287:
2288: l_credit_points NUMBER :=0;
2289:
2290: l_eftsu_total NUMBER :=0;
2466: lRet_for_cal VARCHAR2(100);
2467:
2468: l_message_name VARCHAR2(1000);
2469:
2470: l_course_cd igs_ps_ver.course_cd%TYPE;
2471: l_version_number igs_ps_ver.version_number%TYPE;
2472:
2473:
2474: BEGIN
2467:
2468: l_message_name VARCHAR2(1000);
2469:
2470: l_course_cd igs_ps_ver.course_cd%TYPE;
2471: l_version_number igs_ps_ver.version_number%TYPE;
2472:
2473:
2474: BEGIN
2475: