[Home] [Help]
495: -- for IGS_PS_UNIT_VER records (e.g IGS_PS_UNIT_LEVEL is not closed) and also
496: -- for existing IGS_PS_UNIT_VER detail records such as:
497: -- IGS_PS_UNIT_DSCP,
498: -- IGS_PS_UNIT_CATEGORY,
499: -- IGS_PS_UNIT_LVL,
500: -- IGS_PS_UNIT_REF_CD.
501: -- If IGS_PS_UNIT version is altered from a system status of planned to
502: -- active then check:
503: -- IGS_PS_UNIT_OFR,
527: WHERE unit_cd = p_unit_cd AND
528: version_number = p_version_number;
529: CURSOR c_course_unit_level IS
530: SELECT course_cd, course_version_number
531: FROM igs_ps_unit_lvl
532: WHERE unit_cd = p_unit_cd AND
533: version_number = p_version_number;
534: CURSOR c_unit_categorisation IS
535: SELECT unit_cat
649: END LOOP;
650: IF (v_terminate = TRUE) THEN
651: RETURN FALSE;
652: END IF;
653: -- Validate the IGS_PS_UNIT_LVL table and that IGS_PS_COURSE is not closed
654: FOR cul_rec IN c_course_unit_level LOOP
655: IF (IGS_PS_VAL_CUL.crsp_val_crs_type(
656: cul_rec.course_cd,
657: cul_rec.course_version_number,