PACKAGE BODY: APPS.IGS_AD_VAL_ASEAT

Source

1 PACKAGE BODY IGS_AD_VAL_ASEAT AS
2 /* $Header: IGSAD44B.pls 115.4 2002/11/28 21:33:07 nsidana ship $ */
3   -- Validate the TAC Aus Secondary Edu Assessment Type closed ind
4   FUNCTION ADMP_VAL_TASEATCLOSE(
5   p_tac_aus_scndry_edu_ass_type IN VARCHAR2 ,
6   p_message_name OUT NOCOPY VARCHAR2 )
7   RETURN BOOLEAN IS
8   	gv_other_detail		VARCHAR2(255);
9   BEGIN	-- admp_val_taseatclose
10   	-- Validate if IGS_AD_TAC_AUSCED_AS.tac_aus_scndry_edu_ass_type  	-- is closed.
11   DECLARE
12   	v_closed_ind	IGS_AD_TAC_AUSCED_AS.closed_ind%TYPE DEFAULT NULL;
13   	CURSOR c_taseat	IS
14   		SELECT	closed_ind
15   		FROM	IGS_AD_TAC_AUSCED_AS	taseat
16   		WHERE	taseat.tac_aus_scndry_edu_ass_type =
17   				p_tac_aus_scndry_edu_ass_type;
18   BEGIN
19   	p_message_name := Null;
20   	IF (p_tac_aus_scndry_edu_ass_type IS NOT NULL) THEN
21   		OPEN c_taseat;
22   		FETCH c_taseat INTO v_closed_ind;
23   		CLOSE c_taseat;
24   		IF (v_closed_ind = 'Y') THEN
25   			p_message_name := 'IGS_AD_TRTY_ADM_SEC_CLOSED';
26   			RETURN FALSE;
27   		END IF;
28   	END IF;
29   	RETURN TRUE;
30   END;
31   EXCEPTION
32   	WHEN OTHERS THEN
33 	    Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
34 	    Fnd_Message.Set_Token('NAME','IGS_AD_VAL_ASEAT.admp_val_taseatclose');
35 	    IGS_GE_MSG_STACK.ADD;
36 	    App_Exception.Raise_Exception;
37   END admp_val_taseatclose;
38 
39 END IGS_AD_VAL_ASEAT;