PACKAGE BODY: APPS.IGS_PS_VAL_GAM

Source

1 PACKAGE BODY IGS_PS_VAL_GAM AS
2  /* $Header: IGSPS44B.pls 115.3 2002/11/29 03:04:15 nsidana ship $ */
3 
4   --
5   -- To validate the update of a Govt attendance mode record
6   FUNCTION CRSP_VAL_GAM_UPD(
7   p_govt_attendance_mode IN VARCHAR2 ,
8   p_closed_ind IN VARCHAR2 DEFAULT 'N',
9   p_message_name OUT NOCOPY VARCHAR2 )
10   RETURN boolean AS
11   	v_check		CHAR;
12   	CURSOR c_check_am_rec IS
13   		SELECT 'x'
14   		FROM IGS_EN_ATD_MODE
15   		WHERE	govt_attendance_mode	= p_govt_attendance_mode AND
16   			closed_ind	= 'N';
17   BEGIN
18   	IF p_closed_ind = 'Y' THEN
19   		OPEN c_check_am_rec;
20   		FETCH c_check_am_rec INTO v_check;
21   		IF c_check_am_rec%FOUND THEN
22   			CLOSE c_check_am_rec;
23   			p_message_name := 'IGS_PS_CANNOTCLS_GOVT_ATTEND';
24   			RETURN FALSE;
25   		END IF;
26   		CLOSE c_check_am_rec;
27   	END IF;
28   	p_message_name := NULL;
29   	RETURN TRUE;
30   EXCEPTION
31   	WHEN OTHERS THEN
32 		FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXCEPTION');
33 		Fnd_Message.Set_Token('NAME','IGS_PS_VAL_GAM.crsp_val_gam_upd');
34 		IGS_GE_MSG_STACK.ADD;
35 		APP_EXCEPTION.RAISE_EXCEPTION;
36   END crsp_val_gam_upd;
37 END IGS_PS_VAL_GAM;