PACKAGE BODY: APPS.IGS_AD_VAL_AC

Source

1 PACKAGE BODY IGS_AD_VAL_AC AS
2 /* $Header: IGSAD20B.pls 115.5 2003/01/08 14:30:57 rghosh ship $ */
3 
4   --
5   -- Validate if the IGS_AD_CAT record can be updated.
6   FUNCTION admp_val_ac_upd(
7   p_admission_cat IN VARCHAR2 ,
8   p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN BOOLEAN IS
10   BEGIN
11   DECLARE
12   	v_admission_cat		IGS_AD_CAT.admission_cat%TYPE;
13   	CURSOR c_apc IS
14   		SELECT		apc.admission_cat
15   		FROM		IGS_AD_PRCS_CAT apc
16   		WHERE	apc.admission_cat = p_admission_cat
17 		AND     closed_ind = 'N';                    --added the closed indicator for bug# 2380108 (rghosh)
18   BEGIN
19   	-- Validate if the admission_cat can be updated
20   	p_message_name := null;
21   	OPEN c_apc;
22   	FETCH c_apc INTO v_admission_cat;
23   	IF (c_apc%FOUND) THEN
24 		p_message_name := 'IGS_AD_ADMCAT_CANNOT_UPDATED';
25   		CLOSE c_apc;
26   		RETURN FALSE;
27   	ELSE
28   		CLOSE c_apc;
29   		RETURN TRUE;
30   	END IF;
31   END;
32   EXCEPTION
33   	WHEN OTHERS THEN
34 	    Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
35 	    Fnd_Message.Set_Token('NAME','IGS_AD_VAL_AC.admp_val_ac_upd');
36 	    IGS_GE_MSG_STACK.ADD;
37 	    App_Exception.Raise_Exception;
38   END admp_val_ac_upd;
39 
40 END IGS_AD_VAL_AC;