PACKAGE BODY: APPS.IGS_AS_VAL_ESU

Source

1 PACKAGE BODY IGS_AS_VAL_ESU AS
2 /* $Header: IGSAS20B.pls 115.5 2002/11/28 22:44:25 nsidana ship $ */
3   -------------------------------------------------------------------------------------------
4   --Change History:
5   --Who         When            What
6   --smadathi    29-AUG-2001     Bug No. 1956374 .The function genp_val_staff_prsn removed
7 
8   -------------------------------------------------------------------------------------------
9   --
10   -- Validate if the exam supervisor type is not closed.
11   FUNCTION ASSP_VAL_EST_CLOSED(
12   p_exam_supervisor_type IN VARCHAR2 ,
13   P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
14   RETURN BOOLEAN AS
15 
16   BEGIN 	-- assp_val_est_closed
17   	-- Validates the exam supervisor type closed indicator
18   DECLARE
19   	v_closed_ind		IGS_AS_EXM_SPRVSRTYP.closed_ind%TYPE;
20   	CURSOR c_est (
21   			cp_exam_supervisor_type	IGS_AS_EXM_SPRVSRTYP.exam_supervisor_type%TYPE) IS
22   		SELECT	est.closed_ind
23   		FROM	IGS_AS_EXM_SPRVSRTYP est
24   		WHERE	est.exam_supervisor_type = cp_exam_supervisor_type;
25   BEGIN
26   	P_MESSAGE_NAME := NULL;
27   	OPEN	c_est(
28   			p_exam_supervisor_type);
29   	FETCH	c_est INTO v_closed_ind;
30   	IF(c_est%FOUND AND v_closed_ind = 'Y') THEN
31   		CLOSE c_est;
32   		P_MESSAGE_NAME := 'IGS_AS_EXAM_SUPVTYPE_CLOSED';
33   		RETURN FALSE;
34   	END IF;
35   	CLOSE c_est;
36   	RETURN TRUE;
37   END;
38   EXCEPTION
39   	WHEN OTHERS THEN
40 	  	FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
41 		FND_MESSAGE.SET_TOKEN('NAME','IGS_AS_VAL_ESU.assp_val_est_closed');
42 		IGS_GE_MSG_STACK.ADD;
43   END assp_val_est_closed;
44   --
45 
46 END IGS_AS_VAL_ESU;