PACKAGE BODY: APPS.IGS_AD_VAL_TEUA

Source

1 PACKAGE BODY IGS_AD_VAL_TEUA AS
2 /* $Header: IGSAD75B.pls 120.1 2005/09/08 16:23:15 appldev noship $ */
3 
4   --
5   -- Validate if IGS_PS_DSCP.discipline_group_cd is closed.
6   FUNCTION crsp_val_di_closed(
7   p_discipline_group_cd IN VARCHAR2 ,
8   p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN BOOLEAN AS
10   BEGIN	--crsp_val_di_closed
11   	--Validate if IGS_PS_DSCP.discipline_group_cd is closed
12   DECLARE
13   	v_di_exists	VARCHAR2(1);
14   	CURSOR c_di IS
15   		SELECT 'X'
16   		FROM	IGS_PS_DSCP
17   		WHERE	discipline_group_cd	= p_discipline_group_cd	AND
18   			closed_ind		= 'Y';
19   BEGIN
20   	--Set the default message number
21   	p_message_name := null;
22   	--If record exists then set p_message_name
23   	OPEN c_di;
24   	FETCH c_di INTO v_di_exists;
25   	IF (c_di%FOUND) THEN
26   		CLOSE c_di;
27 		p_message_name := 'IGS_AD_DISCIPLINE_IS_CLOSED';
28   		RETURN FALSE;
29   	END IF;
30   	CLOSE c_di;
31   	RETURN TRUE;
32   END;
33   EXCEPTION
34   	WHEN OTHERS THEN
35 	    Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
36 	    FND_MESSAGE.SET_TOKEN('NAME','IGS_AD_VAL_TEUA.crsp_val_di_closed');
37 	    IGS_GE_MSG_STACK.ADD;
38 		App_Exception.Raise_Exception;
39   END crsp_val_di_closed;
40   --
41   -- Validate tertiary edu unit attempt result type.
42 
43 END IGS_AD_VAL_TEUA;