[Home] [Help]
1: PACKAGE BODY IGS_AD_VAL_ECM AS
2: /* $Header: IGSAD55B.pls 115.4 2002/11/28 21:36:15 nsidana ship $ */
3: -- Validate that default enr cat is not closed.
4: FUNCTION admp_val_ecm_dflt_2(
5: p_enrolment_cat IN VARCHAR2 ,
15: p_message_name := null;
16: IF (p_dflt_cat_ind = 'N') THEN
17: RETURN TRUE;
18: END IF;
19: IF (IGS_AD_VAL_ECM.enrp_val_ec_closed(
20: p_enrolment_cat,
21: v_message_name) = FALSE) THEN
22: p_message_name := 'IGS_AD_DFLTMAP_CANNOT_CLS_ENR';
23: RETURN FALSE;
26: END;
27: EXCEPTION
28: WHEN OTHERS THEN
29: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
30: FND_MESSAGE.SET_TOKEN('NAME','IGS_AD_VAL_ECM.admp_val_ecm_dflt_2');
31: IGS_GE_MSG_STACK.ADD;
32: END admp_val_ecm_dflt_2;
33: --
34: -- Validate that one enr cat is marked as the default for the adm cat.
78: END;
79: EXCEPTION
80: WHEN OTHERS THEN
81: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
82: FND_MESSAGE.SET_TOKEN('NAME','IGS_AD_VAL_ECM.admp_val_ecm_dflt_1');
83: IGS_GE_MSG_STACK.ADD;
84: END admp_val_ecm_dflt_1;
85: --
86: -- Validate if the enr cat can be marked as the default for the adm cat.
119: END;
120: EXCEPTION
121: WHEN OTHERS THEN
122: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
123: FND_MESSAGE.SET_TOKEN('NAME','IGS_AD_VAL_ECM.admp_val_ecm_dflt');
124: IGS_GE_MSG_STACK.ADD;
125: END admp_val_ecm_dflt;
126: --
127: -- Validate the enrolment category closed indicator
155: CLOSE c_closed_ind;
156: EXCEPTION
157: WHEN OTHERS THEN
158: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
159: FND_MESSAGE.SET_TOKEN('NAME','IGS_AD_VAL_ECM.enrp_val_ec_closed');
160: IGS_GE_MSG_STACK.ADD;
161: END;
162: END enrp_val_ec_closed;
163: --
162: END enrp_val_ec_closed;
163: --
164: -- Validate if IGS_AD_CAT.admission_cat is closed.
165:
166: END IGS_AD_VAL_ECM;