PACKAGE BODY: APPS.IGS_AD_VAL_TELOQ

Source

1 PACKAGE BODY IGS_AD_VAL_TELOQ AS
2 /* $Header: IGSAD74B.pls 115.4 2002/11/28 21:40:48 nsidana ship $ */
3 
4   --
5   -- Validate the TAC level of qualification closed ind
6   FUNCTION admp_val_tloq_closed(
7   p_tac_level_of_qual IN VARCHAR2 ,
8   p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN BOOLEAN AS
10   BEGIN
11   DECLARE
12   	CURSOR c_tloq IS
13   		SELECT	closed_ind
14   		FROM	IGS_AD_TAC_LVL_OF_QF
15   		WHERE	tac_level_of_qual = p_tac_level_of_qual;
16   	v_tloq_rec			c_tloq%ROWTYPE;
17   BEGIN
18   	-- Check if the tac_level_of_qual is closed.
19   	-- Set the default message number
20   	p_message_name := null;
21   	-- Cursor handling
22   	OPEN c_tloq;
23   	FETCH c_tloq INTO v_tloq_rec;
24   	IF c_tloq%NOTFOUND THEN
25   		CLOSE c_tloq;
26   		RETURN TRUE;
27   	END IF;
28   	CLOSE c_tloq;
29   	IF (v_tloq_rec.closed_ind = 'Y') THEN
30 		p_message_name := 'IGS_AD_TRTYADM_CENTER_LOQ_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_TELOQ.admp_val_tloq_closed');
40 	    IGS_GE_MSG_STACK.ADD;
41 		App_Exception.Raise_Exception;
42   END admp_val_tloq_closed;
43 END IGS_AD_VAL_TELOQ;