557: CURSOR c_apac1 IS
558: SELECT apac.adm_cal_type,
559: apac.admission_cat,
560: apac.adm_ci_sequence_number
561: FROM IGS_AD_PERD_AD_CAT apac
562: WHERE apac.adm_cal_type = p_adm_cal_type AND
563: apac.adm_ci_sequence_number = p_old_adm_ci_sequence_number;
564: CURSOR c_apac2(
565: cp_apac1_admission_cat IGS_AD_PERD_AD_CAT.admission_cat%TYPE) IS
561: FROM IGS_AD_PERD_AD_CAT apac
562: WHERE apac.adm_cal_type = p_adm_cal_type AND
563: apac.adm_ci_sequence_number = p_old_adm_ci_sequence_number;
564: CURSOR c_apac2(
565: cp_apac1_admission_cat IGS_AD_PERD_AD_CAT.admission_cat%TYPE) IS
566: SELECT 'X'
567: FROM IGS_AD_PERD_AD_CAT apac
568: WHERE apac.adm_cal_type = p_adm_cal_type AND
569: apac.adm_ci_sequence_number = p_new_adm_ci_sequence_number AND
563: apac.adm_ci_sequence_number = p_old_adm_ci_sequence_number;
564: CURSOR c_apac2(
565: cp_apac1_admission_cat IGS_AD_PERD_AD_CAT.admission_cat%TYPE) IS
566: SELECT 'X'
567: FROM IGS_AD_PERD_AD_CAT apac
568: WHERE apac.adm_cal_type = p_adm_cal_type AND
569: apac.adm_ci_sequence_number = p_new_adm_ci_sequence_number AND
570: apac.admission_cat = cp_apac1_admission_cat;
571: lv_rowid VARCHAR2(25);
636: v_apac1_rec_exists := TRUE;
637: IF (p_admission_cat IS NULL OR
638: (p_admission_cat IS NOT NULL AND
639: p_admission_cat = v_apac1_rec.admission_cat)) THEN
640: --Check that the IGS_AD_PERD_AD_CAT does not already exist
641: OPEN c_apac2(
642: v_apac1_rec.admission_cat);
643: FETCH c_apac2 INTO v_apac2_exist;
644: IF (c_apac2%NOTFOUND) THEN
660: --Insert admission period admission category
661: --IGS_GE_NOTE: this will also insert admission period admission process
662: --Categories via the database trigger
663:
664: IGS_AD_PERD_AD_CAT_Pkg.Insert_Row (
665: X_Mode => 'R',
666: X_RowId => lv_rowid,
667: X_Adm_Cal_Type => v_apac1_rec.adm_cal_type,
668: X_Adm_Ci_Sequence_Number => p_new_adm_ci_sequence_number,