[Home] [Help]
745: w.r.t. bug number 2829262
746: rvivekan 11-July -2003 Added INVALID and UNCONFIRM to scenarios for enrollment_actual increment Bug 3036949
747: ptandon 23-Sep-2003 Passed the value of fields LOCATION_CD and UNIT_CLASS in l_suao_rec parameter in call to procedure
748: igs_as_suao_lgcy_pub.create_unit_outcome. Bug# 3149520.
749: ptandon 24-Sep-2003 In call to igs_en_gen_legacy.get_course_att_status, the value of parameter p_discontinued_dt
750: was being incorrectly passed as p_sua_dtls_rec.discontinued_dt. Replaced it by value of
751: discontinued_dt fetched from get_spa cursor. Bug# 3152211.
752: ptandon 02-Dec-2003 Inserted call to the Term Records Legacy API as per Term Records Fee Calc build. Bug# 2829263.
753: ------------------------------------------------------------------*/
943: -- D. Update Student Program Attempt
944: IF get_spa%FOUND THEN
945: CLOSE get_spa ;
946: IF p_sua_dtls_rec.discontinued_dt IS NOT NULL THEN
947: igs_en_gen_legacy.get_last_dt_of_att (
948: x_person_id => p_person_id ,
949: x_course_cd => p_sua_dtls_rec.program_cd ,
950: x_last_date_of_attendance => l_last_dt_of_att ) ;
951: END IF;
950: x_last_date_of_attendance => l_last_dt_of_att ) ;
951: END IF;
952:
953:
954: l_course_attempt_status_after := igs_en_gen_legacy.get_course_att_status(
955: p_person_id => p_person_id ,
956: p_course_cd => p_sua_dtls_rec.program_cd ,
957: p_student_confirmed_ind => l_spa_row.student_confirmed_ind ,
958: p_discontinued_dt => l_spa_row.discontinued_dt ,
1253: CLOSE c_get_term_cal;
1254:
1255:
1256: -- 1. Derive Program Attempt Details
1257: l_program_attempt_status := igs_en_gen_legacy.validate_prgm_att_stat (
1258: p_person_id => p_person_id ,
1259: p_course_cd => p_sua_dtls_rec.program_cd ,
1260: p_discontin_dt => l_discontin_dt ,
1261: p_program_type => l_src_program_typ ,
1455: -- Validate Grading schema / version:
1456: -- 11. Grading Schema Code/Version must be valid within the enrolling unit section/version
1457: IF p_sua_dtls_rec.grading_schema_code IS NOT NULL AND p_sua_dtls_rec.gs_version_number IS NOT NULL THEN
1458:
1459: IF NOT igs_en_gen_legacy.validate_grad_sch_cd_ver (
1460: p_uoo_id => p_uoo_id ,
1461: p_unit_cd => p_sua_dtls_rec.unit_cd ,
1462: p_Version_number => NVL( p_sua_dtls_rec.version_number , p_version_number ) ,
1463: p_Grading_schema_code => p_sua_dtls_rec.grading_schema_code,
1590:
1591: -- Validate Discontinuation Reason Code :
1592: -- 25. Discontinuation reason code must match a row with the unit flag set
1593: IF p_sua_dtls_rec.dcnt_reason_cd IS NOT NULL THEN
1594: IF NOT igs_en_gen_legacy.validate_disc_rsn_cd (p_discontinuation_reason_cd => p_sua_dtls_rec.dcnt_reason_cd) THEN
1595: g_sua_status := 'INVALID';
1596: END IF ;
1597: END IF;
1598:
1646: -- location code and unit class.
1647:
1648: IF (p_sua_dtls_rec.transfer_program_cd IS NOT NULL OR p_sua_dtls_rec.transfer_dt IS NOT NULL ) THEN
1649:
1650: IF NOT igs_en_gen_legacy.validate_trn_unit (
1651: p_person_id => p_person_id ,
1652: p_program_cd => p_sua_dtls_rec.transfer_program_cd ,
1653: p_cal_type => p_cal_type ,
1654: p_ci_sequence_number => p_ci_sequence_number ,
1662: --
1663: -- Validate Discontinuation reason code of Program
1664: -- If unit transfer, and source program attempt is discontinued then it must have a reason code of type 'TRANSFER'
1665:
1666: IF NOT igs_en_gen_legacy.validate_transfer (
1667: p_person_id => p_person_id ,
1668: p_transfer_program_cd => p_sua_dtls_rec.transfer_program_cd ) THEN
1669: g_sua_status := 'INVALID';
1670: END IF;
1706:
1707: -- 40.If grade set and outcome grading schema code and version are not set, then grade must exist in the unit section default grading schema.
1708: IF p_sua_dtls_rec.grade IS NOT NULL AND (p_sua_dtls_rec.outcome_grading_schema_code IS NULL
1709: AND p_sua_dtls_rec.outcome_gs_version_number IS NULL ) THEN
1710: IF NOT igs_en_gen_legacy.validate_grading_schm (
1711: p_grade => p_sua_dtls_rec.grade ,
1712: p_uoo_id => p_uoo_id ,
1713: p_unit_cd => p_sua_dtls_rec.unit_cd ,
1714: p_version_number => NVL( p_sua_dtls_rec.version_number , p_version_number ) )THEN
2008: END IF ;
2009:
2010: -- Derive Unit version if parameter is NULL.
2011: IF p_sua_dtls_rec.version_number IS NULL THEN
2012: IF NOT igs_en_gen_legacy.get_unit_ver (
2013: p_cal_type => l_cal_type ,
2014: p_ci_sequence_number => l_ci_sequence_number ,
2015: p_unit_cd => p_sua_dtls_rec.unit_cd ,
2016: p_location_cd => p_sua_dtls_rec.location_cd ,
2022:
2023: END IF;
2024:
2025: -- Derive uoo_id
2026: IF NOT igs_en_gen_legacy.get_uoo_id (
2027: p_cal_type => l_cal_type ,
2028: p_ci_sequence_number => l_ci_sequence_number ,
2029: p_unit_cd => p_sua_dtls_rec.unit_cd ,
2030: p_location_cd => p_sua_dtls_rec.location_cd ,