1 PACKAGE BODY IGS_AD_VAL_ACCT AS
2 /* $Header: IGSAD26B.pls 115.5 2002/11/28 21:28:32 nsidana ship $ */
3 -------------------------------------------------------------------------------------------
4 --Change History:
5 --Who When What
6 --avenkatr 29-AUG-2001 Bug Id : 1956374. Removed procedure "crsp_val_cty_closed"
7 -------------------------------------------------------------------------------------------
8
9 --
10 -- Validate if IGS_AD_CAT.admission_cat is closed.
11 FUNCTION admp_val_ac_closed(
12 p_admission_cat IN VARCHAR2 ,
13 p_message_name OUT NOCOPY VARCHAR2 )
14 RETURN BOOLEAN AS
15 BEGIN -- admp_val_ac_closed
16 -- Validate if IGS_AD_CAT.admission_cat is closed.
17 DECLARE
18 v_closed_ind IGS_AD_CAT.closed_ind%type;
19 CURSOR c_ac IS
20 SELECT ac.closed_ind
21 FROM IGS_AD_CAT ac
22 WHERE ac.admission_cat = p_admission_cat;
23 BEGIN
24 -- Set the default message number
25 p_message_name := NULL;
26 OPEN c_ac;
27 FETCH c_ac INTO v_closed_ind;
28 IF (c_ac%FOUND) THEN
29 IF (v_closed_ind = 'Y') THEN
30 p_message_name := 'IGS_AD_ADM_CATEGORY_CLOSED';
31 CLOSE c_ac;
32 RETURN FALSE;
33 END IF;
34 END IF;
35 CLOSE c_ac;
36 RETURN TRUE;
37 END;
38 EXCEPTION
39 WHEN OTHERS THEN
40 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
41 Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ACCT.admp_val_ac_closed');
42 IGS_GE_MSG_STACK.ADD;
43 App_Exception.Raise_Exception;
44 END admp_val_ac_closed;
45
46 END IGS_AD_VAL_ACCT;