PACKAGE BODY: APPS.IGS_PS_VAL_GFOS

Source

1 PACKAGE BODY IGS_PS_VAL_GFOS AS
2 /* $Header: IGSPS48B.pls 115.3 2002/11/29 03:05:21 nsidana ship $ */
3 
4   -- To validate the update of a government field of study record
5   FUNCTION crsp_val_gfos_upd(
6   p_govt_field_of_study IN VARCHAR2 ,
7   p_closed_ind IN VARCHAR2 DEFAULT 'N',
8   p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN boolean AS
10   	v_check		CHAR;
11   	CURSOR c_check_fos_rec IS
12   		SELECT 'x'
13   		FROM	IGS_PS_FLD_OF_STUDY
14   		WHERE	govt_field_of_study		= p_govt_field_of_study AND
15   			IGS_PS_FLD_OF_STUDY.closed_ind	= 'N';
16   BEGIN
17   	IF p_closed_ind = 'Y' THEN
18   		OPEN c_check_fos_rec;
19   		FETCH c_check_fos_rec INTO v_check;
20   		IF c_check_fos_rec%FOUND THEN
21   			CLOSE c_check_fos_rec;
22   			p_message_name := 'IGS_PS_CANCLS_GOVT_FOS';
23   			RETURN FALSE;
24   		END IF;
25   		CLOSE c_check_fos_rec;
26   	END IF;
27   	p_message_name := NULL;
28   	RETURN TRUE;
29   EXCEPTION
30   	WHEN OTHERS THEN
31 		Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
32                 Fnd_Message.Set_Token('NAME','IGS_PS_VAL_GFOS.CRSP_VAL_GFOS_UPD');
33                 IGS_GE_MSG_STACK.ADD;
34 		App_Exception.Raise_Exception;
35   END crsp_val_gfos_upd;
36 END IGS_PS_VAL_GFOS;