1: PACKAGE BODY IGS_AD_VAL_ACAIU AS
2: /* $Header: IGSAD23B.pls 115.9 2003/12/03 20:49:01 knag ship $ */
3:
4: --
5: -- Validate the ins/upd/del admission course application instance unit
72: END;
73: EXCEPTION
74: WHEN OTHERS THEN
75: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
76: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_acaiu_iud');
77: IGS_GE_MSG_STACK.ADD;
78: App_Exception.Raise_Exception;
79: END admp_val_acaiu_iud;
80:
127: cir.sup_ci_sequence_number = cp_sup_ci_sequence_number;
128: BEGIN
129: p_message_name := NULL;
130: -- Validate unit version
131: IF(IGS_AD_VAL_ACAIU.admp_val_acaiu_uv (
132: p_unit_cd,
133: p_uv_version_number,
134: p_s_admission_process_type,
135: p_offered_ind,
172: END;
173: EXCEPTION
174: WHEN OTHERS THEN
175: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
176: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_acaiu_unit');
177: IGS_GE_MSG_STACK.ADD;
178: App_Exception.Raise_Exception;
179: END admp_val_acaiu_unit;
180:
257: IF c_uoo_rec.offered_ind = 'Y' THEN
258: v_offered_ind := 'Y';
259: -- Validate unit class/unit mode
260: IF p_unit_mode IS NOT NULL THEN
261: IF IGS_AD_VAL_ACAIU.admp_val_acaiu_um(
262: c_uoo_rec.unit_class,
263: p_unit_mode,
264: v_message_name) = TRUE THEN
265: -- A valid offered option exists
291: END;
292: EXCEPTION
293: WHEN OTHERS THEN
294: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
295: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_offer_optn');
296: IGS_GE_MSG_STACK.ADD;
297: App_Exception.Raise_Exception;
298: END admpl_val_offer_optn;
299: --------------------------------------- MAIN ----------------------------------
322: v_cir_found := TRUE;
323: v_cal_type := c_cir_rec.sub_cal_type;
324: v_ci_sequence_number := c_cir_rec.sub_ci_sequence_number;
325: -- Validate the teaching period
326: IF IGS_AD_VAL_ACAIU.admp_val_acaiu_ci(
327: c_cir_rec.sub_cal_type,
328: c_cir_rec.sub_ci_sequence_number,
329: p_adm_cal_type,
330: p_adm_ci_sequence_number,
353: v_val_ind_type := 1;
354: END IF;
355: ELSE
356: -- Validate the teaching period
357: IF IGS_AD_VAL_ACAIU.admp_val_acaiu_ci(
358: p_cal_type,
359: p_ci_sequence_number,
360: p_adm_cal_type,
361: p_adm_ci_sequence_number,
393: END;
394: EXCEPTION
395: WHEN OTHERS THEN
396: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
397: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_acaiu_opt');
398: IGS_GE_MSG_STACK.ADD;
399: App_Exception.Raise_Exception;
400: END admp_val_acaiu_opt;
401:
432: BEGIN
433: -- Set the default message number
434: p_message_name := NULL;
435: -- Validate that the status is not closed.
436: IF IGS_AD_VAL_ACAIU.admp_val_auos_closed(
437: p_adm_unit_outcome_status,
438: v_message_name) = FALSE THEN
439: p_message_name := v_message_name;
440: RETURN FALSE;
471: END;
472: EXCEPTION
473: WHEN OTHERS THEN
474: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
475: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_acaiu_auos');
476: IGS_GE_MSG_STACK.ADD;
477: App_Exception.Raise_Exception;
478: END admp_val_acaiu_auos;
479:
601: END;
602: EXCEPTION
603: WHEN OTHERS THEN
604: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
605: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_acaiu_ci');
606: IGS_GE_MSG_STACK.ADD;
607: App_Exception.Raise_Exception;
608: END admp_val_acaiu_ci;
609:
648: END;
649: EXCEPTION
650: WHEN OTHERS THEN
651: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
652: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_acaiu_um');
653: IGS_GE_MSG_STACK.ADD;
654: App_Exception.Raise_Exception;
655: END admp_val_acaiu_um;
656:
708: END;
709: EXCEPTION
710: WHEN OTHERS THEN
711: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
712: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_acaiu_restr');
713: IGS_GE_MSG_STACK.ADD;
714: App_Exception.Raise_Exception;
715: END admp_val_acaiu_restr;
716:
750: END;
751: EXCEPTION
752: WHEN OTHERS THEN
753: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
754: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_auos_closed');
755: IGS_GE_MSG_STACK.ADD;
756: App_Exception.Raise_Exception;
757: END admp_val_auos_closed;
758:
906: END;
907: EXCEPTION
908: WHEN OTHERS THEN
909: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
910: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_acaiu_altcd');
911: IGS_GE_MSG_STACK.ADD;
912: App_Exception.Raise_Exception;
913: END admp_val_acaiu_altcd;
914:
970: END;
971: EXCEPTION
972: WHEN OTHERS THEN
973: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
974: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_acaiu_uv');
975: IGS_GE_MSG_STACK.ADD;
976: App_Exception.Raise_Exception;
977: END admp_val_acaiu_uv;
978:
1037: END;
1038: EXCEPTION
1039: WHEN OTHERS THEN
1040: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
1041: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_acaiu_encmb');
1042: IGS_GE_MSG_STACK.ADD;
1043: App_Exception.Raise_Exception;
1044: END admp_val_acaiu_encmb;
1045:
1142: END;
1143: EXCEPTION
1144: WHEN OTHERS THEN
1145: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
1146: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_res_unit');
1147: IGS_GE_MSG_STACK.ADD;
1148: App_Exception.Raise_Exception;
1149: END admp_val_res_unit;
1150:
1210: END;
1211: EXCEPTION
1212: WHEN OTHERS THEN
1213: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
1214: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_acaiu_uv_ci');
1215: IGS_GE_MSG_STACK.ADD;
1216: App_Exception.Raise_Exception;
1217: END admp_val_acaiu_uv_ci;
1218: END IGS_AD_VAL_ACAIU;
1214: Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACAIU.admp_val_acaiu_uv_ci');
1215: IGS_GE_MSG_STACK.ADD;
1216: App_Exception.Raise_Exception;
1217: END admp_val_acaiu_uv_ci;
1218: END IGS_AD_VAL_ACAIU;