PACKAGE BODY: APPS.IGS_AD_VAL_ASES

Source

1 PACKAGE BODY IGS_AD_VAL_ASES AS
2 /* $Header: IGSAD45B.pls 120.0 2005/06/01 14:25:38 appldev noship $ */
3   -- Validate the secondary school type closed indicator.
4   FUNCTION admp_val_ssst_closed(
5   p_s_scndry_school_type IN VARCHAR2 ,
6   p_message_name OUT NOCOPY VARCHAR2 )
7   RETURN BOOLEAN IS
8   	gv_other_detail		VARCHAR2(255);
9   BEGIN
10   DECLARE
11   	CURSOR c_ssst IS
12   		SELECT	closed_ind
13   		FROM	IGS_LOOKUP_VALUES
14   		WHERE	lookup_type = 'SCNDRY_SCHOOL_TYPE'  AND
15 		        lookup_code = p_s_scndry_school_type;
16   	v_ssst_rec			c_ssst%ROWTYPE;
17   BEGIN
18   	-- Check if the s_scndry_school_type is closed.
19   	-- Set the default message number
20   	p_message_name := Null;
21   	-- Cursor handling
22   	OPEN c_ssst;
23   	FETCH c_ssst INTO v_ssst_rec;
24   	IF c_ssst %NOTFOUND THEN
25   		CLOSE c_ssst;
26   		RETURN TRUE;
27   	END IF;
28   	CLOSE c_ssst;
29   	IF (v_ssst_rec.closed_ind = 'Y') THEN
30   		p_message_name := 'IGS_AD_SCDRY_SCHOOL_TYPE_CLS';
31   		RETURN FALSE;
32   	END IF;
33   	-- Return the default value
34   	RETURN TRUE;
35   END;
36   EXCEPTION
37   	WHEN OTHERS THEN
38 	    Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
39 	    Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ASES.admp_val_ssst_closed');
40 	    IGS_GE_MSG_STACK.ADD;
41 	    App_Exception.Raise_Exception;
42   END admp_val_ssst_closed;
43 
44 END IGS_AD_VAL_ASES;