[Home] [Help]
154: OPEN c_us_valid;
155: FETCH c_us_valid INTO l_dummy;
156: IF c_us_valid%NOTFOUND THEN
157: CLOSE c_us_valid;
158: Fnd_Message.Set_Name('IGS', 'IGS_EN_UNIT_SETNOT_PERMITTED');
159: IGS_GE_MSG_STACK.ADD;
160: App_Exception.Raise_Exception;
161: END IF;
162: CLOSE c_us_valid;
199: App_Exception.Raise_Exception;
200: END IF;
201: END IF;
202: -- Validate that the authorisation fields can only be set when end date is set
203: -- or the IGS_PS_UNIT set cd requires authorisation (IGS_EN_UNIT_SET.authorisation_ind =
204: -- 'Y')
205: IF p_inserting OR
206: (p_updating AND
207: ((NVL(new_references.authorised_person_id, 0) <>
230: (new_references.student_confirmed_ind <> old_references.student_confirmed_ind) OR
231: (NVL(new_references.authorised_on,IGS_GE_DATE.IGSDATE('1900/01/01'))
232: <> NVL(old_references.authorised_on, IGS_GE_DATE.IGSDATE('1900/01/01'))))) THEN
233: -- Validate that the authorisation fields must be set when
234: -- the IGS_PS_UNIT set cd requires authorisation (IGS_EN_UNIT_SET.authorisation_ind = 'Y')
235: -- Check required only when the IGS_PS_UNIT set is confirmed.
236: IF (new_references.student_confirmed_ind = 'Y') THEN
237: IF IGS_EN_VAL_SUSA.enrp_val_susa_us_ath(
238: new_references.unit_set_cd,
329: END IF;
330: -- Validate that the IGS_PS_UNIT set version number cannot be updated.
331: IF (p_updating AND
332: (new_references.us_version_number <> old_references.us_version_number)) THEN
333: Fnd_Message.Set_Name('IGS', 'IGS_EN_UNIT_SET_VERNUM_NOTUPD');
334: IGS_GE_MSG_STACK.ADD;
335: App_Exception.Raise_Exception;
336: END IF;
337: IF p_deleting THEN
560: v_unit_set VARCHAR2(1);
561:
562: --check if the unit set attempt being inserted/update/deleted is
563: --of type 'PRE-ENROLL'
564: CURSOR c_unit_set(cp_unit_set_cd IGS_EN_UNIT_SET.unit_set_cd%TYPE) IS
565: SELECT 'X'
566: FROM IGS_EN_UNIT_SET us,
567: IGS_EN_UNIT_SET_CAT usc
568: WHERE us.unit_set_cd = cp_unit_set_cd
562: --check if the unit set attempt being inserted/update/deleted is
563: --of type 'PRE-ENROLL'
564: CURSOR c_unit_set(cp_unit_set_cd IGS_EN_UNIT_SET.unit_set_cd%TYPE) IS
565: SELECT 'X'
566: FROM IGS_EN_UNIT_SET us,
567: IGS_EN_UNIT_SET_CAT usc
568: WHERE us.unit_set_cd = cp_unit_set_cd
569: AND us.unit_set_cat = usc.unit_set_cat
570: AND usc.unit_set_cat = 'PRE-ENROLL';
563: --of type 'PRE-ENROLL'
564: CURSOR c_unit_set(cp_unit_set_cd IGS_EN_UNIT_SET.unit_set_cd%TYPE) IS
565: SELECT 'X'
566: FROM IGS_EN_UNIT_SET us,
567: IGS_EN_UNIT_SET_CAT usc
568: WHERE us.unit_set_cd = cp_unit_set_cd
569: AND us.unit_set_cat = usc.unit_set_cat
570: AND usc.unit_set_cat = 'PRE-ENROLL';
571:
829: OPEN c_parent_rel_exists;
830: FETCH c_parent_rel_exists INTO l_dummy;
831: IF c_parent_rel_exists%NOTFOUND THEN
832: CLOSE c_parent_rel_exists;
833: Fnd_Message.Set_Name ('IGS', 'IGS_EN_UNIT_SET_RELATIONSHIP');
834: IGS_GE_MSG_STACK.ADD;
835: App_Exception.Raise_Exception;
836: END IF;
837: CLOSE c_parent_rel_exists;
879: (new_references.unit_set_cd IS NULL) OR
880: (new_references.us_version_number IS NULL)) THEN
881: NULL;
882: ELSE
883: IF NOT IGS_EN_UNIT_SET_PKG.Get_PK_For_Validation (
884: new_references.unit_set_cd,
885: new_references.us_version_number
886: )THEN
887: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
1103: RETURN;
1104: END IF;
1105: CLOSE cur_rowid;
1106: END GET_FK_IGS_AS_SU_SETATMPT;
1107: PROCEDURE GET_FK_IGS_EN_UNIT_SET (
1108: x_unit_set_cd IN VARCHAR2,
1109: x_version_number IN NUMBER
1110: ) AS
1111: CURSOR cur_rowid IS
1125:
1126: RETURN;
1127: END IF;
1128: CLOSE cur_rowid;
1129: END GET_FK_IGS_EN_UNIT_SET;
1130:
1131:
1132:
1133: PROCEDURE GET_FK_IGS_CA_INST (