1 PACKAGE BODY IGS_AD_VAL_SACCO AS
2 /* $Header: IGSAD67B.pls 115.3 2002/11/28 21:39:03 nsidana ship $ */
3
4 --
5 -- Validate the IGS_AD_CAL_CONF date alias values.
6 FUNCTION admp_val_sacco_da(
7 p_dt_alias IN VARCHAR2 ,
8 p_dt_alias_type IN VARCHAR2 ,
9 p_message_name OUT NOCOPY VARCHAR2 )
10 RETURN BOOLEAN AS
11 BEGIN -- admp_val_sacco_da
12 -- Validate the IGS_AD_CAL_CONF date alias values
13 DECLARE
14 v_s_cal_cat IGS_CA_DA.s_cal_cat%TYPE;
15 v_closed_ind IGS_CA_DA.closed_ind%TYPE;
16 CURSOR c_s_cal_cat IS
17 SELECT NVL(s_cal_cat, 'NULL'),
18 closed_ind
19 FROM IGS_CA_DA
20 WHERE dt_alias = p_dt_alias;
21 BEGIN
22 p_message_name := null;
23 OPEN c_s_cal_cat;
24 FETCH c_s_cal_cat INTO v_s_cal_cat,
25 v_closed_ind;
26 IF (c_s_cal_cat%NOTFOUND) THEN
27 CLOSE c_s_cal_cat;
28 RETURN TRUE;
29 END IF;
30 CLOSE c_s_cal_cat;
31 -- validate the date alias is of the correct calendar category
32 IF p_dt_alias_type IN ( 'INITIALISE_ADM_PERD_DT_ALIAS',
33 'ADM_APPL_ENCMB_CHK_DT_ALIAS',
34 'ADM_APPL_COURSE_STRT_DT_ALIAS',
35 'ADM_APPL_SHORT_STRT_DT_ALIAS',
36 'ADM_APPL_DUE_DT_ALIAS',
37 'ADM_APPL_FINAL_DT_ALIAS',
38 'ADM_APPL_CHNG_OF_PREF_DT_ALIAS',
39 'ADM_APPL_OFFER_RESP_DT_ALIAS') THEN
40 IF (v_s_cal_cat <> 'ADMISSION') THEN
41 p_message_name := 'IGS_AD_DTALIAS_MUST_ADMCALCAT';
42 RETURN FALSE;
43 END IF;
44 ELSIF p_dt_alias_type IN ( 'ADM_APPL_E_COMP_PERD_DT_ALIAS',
45 'ADM_APPL_M_COMP_PERD_DT_ALIAS',
46 'ADM_APPL_S_COMP_PERD_DT_ALIAS') THEN
47 IF (v_s_cal_cat <> 'ACADEMIC') THEN
48 p_message_name := 'IGS_AD_DTALIAS_ACADEMIC_CALCA';
49 RETURN FALSE;
50 END IF;
51 ELSE
52 p_message_name := 'IGS_GE_INVALID_VALUE';
53 RETURN FALSE;
54 END IF;
55 -- Validate the date alias is open
56 IF (v_closed_ind = 'Y') THEN
57 p_message_name := 'IGS_CA_DTALIAS_IS_CLOSED';
58 RETURN FALSE;
59 END IF;
60 RETURN TRUE;
61 END;
62 EXCEPTION
63 WHEN OTHERS THEN
64 FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
65 FND_MESSAGE.SET_TOKEN('NAME','IGS_AD_VAL_SACCO.admp_val_sacco_da');
66 IGS_GE_MSG_STACK.ADD;
67 App_Exception.Raise_Exception;
68 END admp_val_sacco_da;
69 END IGS_AD_VAL_SACCO;