[Home] [Help]
79: v_output VARCHAR2(25);
80: v_first_enrolment_course VARCHAR2(25);
81: CURSOR c_suav_details (
82: cp_person_id IGS_PE_PERSON.person_id%TYPE,
83: cp_course_cd IGS_PS_COURSE.course_cd%TYPE) IS
84: SELECT IGS_EN_GEN_014.enrs_get_acad_alt_cd(SUAV.cal_type,SUAV.ci_sequence_number)
85: ||'/'|| IGS_CA_GEN_001.calp_get_alt_cd(SUAV.cal_type,SUAV.ci_sequence_number)
86: FROM IGS_EN_SU_ATTEMPT SUAV,
87: IGS_CA_INST CI
94: CI.end_dt ;
95: BEGIN
96: -- This module determines the enrolment period a
97: -- IGS_PE_PERSON is first enrolled in for a specified
98: -- IGS_PS_COURSE and returns it. A null value may
99: -- also be returned.
100: -- Retrieving the student IGS_PS_UNIT attempt records for the
101: -- IGS_PE_PERSON's IGS_PS_COURSE attempt.
102: -- The order the records are returned will ensure that
97: -- IGS_PE_PERSON is first enrolled in for a specified
98: -- IGS_PS_COURSE and returns it. A null value may
99: -- also be returned.
100: -- Retrieving the student IGS_PS_UNIT attempt records for the
101: -- IGS_PE_PERSON's IGS_PS_COURSE attempt.
102: -- The order the records are returned will ensure that
103: -- the oldest IGS_PS_UNIT attempt record for the IGS_PE_PERSON's IGS_PS_COURSE
104: -- attempt is returned first.
105: -- modified cursor c_suav_details for performance bug 3687016
99: -- also be returned.
100: -- Retrieving the student IGS_PS_UNIT attempt records for the
101: -- IGS_PE_PERSON's IGS_PS_COURSE attempt.
102: -- The order the records are returned will ensure that
103: -- the oldest IGS_PS_UNIT attempt record for the IGS_PE_PERSON's IGS_PS_COURSE
104: -- attempt is returned first.
105: -- modified cursor c_suav_details for performance bug 3687016
106: OPEN c_suav_details(p_person_id,
107: p_course_cd);
283: --stutta 24-Aug-2004 Reverted back the check to p_chk_adm_prpsd_comm_ind = 'N'
284: -- Bug#3793016
285: BEGIN
286: -- enrp_get_acad_comm
287: -- This module gets the default student IGS_PS_COURSE attempt commencement date.
288: -- This is used by ENRF3000 and ENRP_INS_SNEW_PRENRL.
289: DECLARE
290: cst_transfer CONSTANT VARCHAR2(10) := 'TRANSFER';
291: cst_academic CONSTANT VARCHAR2(10) := 'ACADEMIC';
379: IGS_CA_INST_REL.sup_ci_sequence_number%TYPE;
380: v_course_start_dt DATE DEFAULT NULL;
381: BEGIN
382:
383: -- Determine that student IGS_PS_COURSE attempt is not the result of a
384: -- generic IGS_PS_COURSE transfer
385: OPEN c_sca;
386: FETCH c_sca INTO v_sca_rec;
387: IF c_sca%FOUND AND
380: v_course_start_dt DATE DEFAULT NULL;
381: BEGIN
382:
383: -- Determine that student IGS_PS_COURSE attempt is not the result of a
384: -- generic IGS_PS_COURSE transfer
385: OPEN c_sca;
386: FETCH c_sca INTO v_sca_rec;
387: IF c_sca%FOUND AND
388: v_sca_rec.commencement_dt IS NOT NULL THEN
386: FETCH c_sca INTO v_sca_rec;
387: IF c_sca%FOUND AND
388: v_sca_rec.commencement_dt IS NOT NULL THEN
389: CLOSE c_sca;
390: -- Default to commencement date of generic IGS_PS_COURSE
391: RETURN v_sca_rec.commencement_dt;
392: END IF;
393: CLOSE c_sca;
394: IF p_adm_admission_appl_number IS NULL AND
393: CLOSE c_sca;
394: IF p_adm_admission_appl_number IS NULL AND
395: p_adm_nominated_course_cd IS NULL AND
396: p_adm_sequence_number IS NULL THEN
397: -- Student IGS_PS_COURSE attempt is not the result of an admissions
398: -- application offer, therefore default commencement date to
399: -- latest of today?s date and academic commencement date
400: IF p_acad_cal_type IS NULL OR
401: p_acad_ci_sequence_number IS NULL THEN
425: RETURN TRUNC(SYSDATE);
426: END IF;
427: RETURN v_daiv_rec.alias_val;
428: END IF;
429: -- Student IGS_PS_COURSE attempt is the result of an admissions offer, therefore
430: -- default to latest of admission period IGS_PS_COURSE start date and today?s date
431: OPEN c_acaiv;
432: FETCH c_acaiv INTO v_acaiv_rec;
433: IF c_acaiv%FOUND THEN
426: END IF;
427: RETURN v_daiv_rec.alias_val;
428: END IF;
429: -- Student IGS_PS_COURSE attempt is the result of an admissions offer, therefore
430: -- default to latest of admission period IGS_PS_COURSE start date and today?s date
431: OPEN c_acaiv;
432: FETCH c_acaiv INTO v_acaiv_rec;
433: IF c_acaiv%FOUND THEN
434: CLOSE c_acaiv;
433: IF c_acaiv%FOUND THEN
434: CLOSE c_acaiv;
435: IF v_acaiv_rec.prpsd_commencement_dt IS NULL OR
436: NVL(p_chk_adm_prpsd_comm_ind,'N') = 'N' THEN
437: -- Get IGS_PS_COURSE start date of admission period of offer
438:
439: v_course_start_dt := IGS_AD_GEN_005.admp_get_crv_strt_dt(
440: v_acaiv_rec.adm_cal_type,
441: v_acaiv_rec.adm_ci_sequence_number);
441: v_acaiv_rec.adm_ci_sequence_number);
442:
443: IF v_course_start_dt IS NULL OR
444: v_course_start_dt < TRUNC(SYSDATE) THEN
445: -- Admission IGS_PS_COURSE start date could not be determined,
446: -- return today?s date
447: RETURN TRUNC(SYSDATE);
448: END IF;
449: -- Determine if admission application is a IGS_PS_COURSE transfer
445: -- Admission IGS_PS_COURSE start date could not be determined,
446: -- return today?s date
447: RETURN TRUNC(SYSDATE);
448: END IF;
449: -- Determine if admission application is a IGS_PS_COURSE transfer
450: OPEN c_aa;
451: FETCH c_aa INTO v_aa_rec;
452: IF c_aa%NOTFOUND OR
453: v_aa_rec.s_admission_process_type = cst_transfer THEN
460: RETURN v_acaiv_rec.prpsd_commencement_dt;
461: END IF;
462: END IF;
463: CLOSE c_acaiv;
464: -- Admission IGS_PS_COURSE start date could not be determined,
465: -- return today?s date
466: RETURN TRUNC(SYSDATE);
467: EXCEPTION
468: WHEN OTHERS THEN
620: -- admissions fees. The EFTSU is calculated by using the
621: -- IGS_ST_DFT_LOAD_APPO.default_eftsu figure.
622: -- The CP is calculated by multiplying the proportion of the EFTSU into
623: -- 1.000 multiplied by the standard annual load of the first year of the
624: -- IGS_PS_COURSE.
625: DECLARE
626: v_atl_rec IGS_EN_ATD_TYPE_LOAD.default_eftsu%TYPE;
627: v_cal_rec IGS_PS_ANL_LOAD.annual_load_val%TYPE;
628: v_crv_rec IGS_PS_VER.std_annual_load%TYPE;
656: IF (v_atl_rec IS NULL) THEN
657: RETURN FALSE;
658: END IF;
659: p_EFTSU := v_atl_rec;
660: -- Determine the standard annual load from IGS_PS_COURSE structure tables.
661: OPEN c_cal;
662: FETCH c_cal INTO v_cal_rec;
663: IF (c_cal%FOUND) THEN
664: CLOSE c_cal;
723: p_prenrol_exists OUT NOCOPY boolean )
724: AS
725: BEGIN -- enrp_get_crs_exists
726: -- Return output parameters indicating whether or not data exists on IGS_PE_PERSON
727: -- IGS_PS_COURSE attempt detail tables for the specified IGS_PE_PERSON ID.
728: DECLARE
729: v_check VARCHAR2(1);
730: CURSOR c_scan
731: IS
797: CLOSE c_susa;
798: END IF;
799: END IF;
800: IF p_check_hecs = TRUE THEN
801: -- Check for the existence of a Student IGS_PS_COURSE HECS Option record.
802: OPEN c_scho;
803: FETCH c_scho INTO v_check;
804: IF c_scho%FOUND THEN
805: CLOSE c_scho;
821: END IF;
822: IF p_check_prenrol = TRUE AND
823: p_acad_cal_type IS NOT NULL AND
824: p_acad_sequence_number IS NOT NULL THEN
825: -- Check for the existence of a Student IGS_PS_COURSE Enrolment record
826: OPEN c_scae;
827: FETCH c_scae INTO v_check;
828: IF c_scae%FOUND THEN
829: CLOSE c_scae;