PACKAGE BODY: APPS.IGS_PS_VAL_FOS

Source

1 PACKAGE BODY IGS_PS_VAL_FOS AS
2  /* $Header: IGSPS41B.pls 115.3 2002/11/29 03:03:28 nsidana ship $ */
3   --
4   -- Validate the field of study government field of study.
5   FUNCTION crsp_val_fos_govt(
6   p_govt_field_of_study IN VARCHAR2 ,
7   p_message_name OUT NOCOPY VARCHAR2 )
8   RETURN BOOLEAN AS
9   	v_closed_ind		IGS_RE_GV_FLD_OF_SDY.closed_ind%TYPE;
10   	CURSOR	c_govt_field_of_study IS
11   		SELECT closed_ind
12   		FROM  IGS_RE_GV_FLD_OF_SDY
13   		WHERE  govt_field_of_study = p_govt_field_of_study;
14   BEGIN
15   	OPEN c_govt_field_of_study;
16   	FETCH c_govt_field_of_study INTO v_closed_ind;
17   	IF c_govt_field_of_study%NOTFOUND THEN
18   		p_message_name := NULL;
19   		CLOSE c_govt_field_of_study;
20   		RETURN TRUE;
21   	ELSIF (v_closed_ind = 'N') THEN
22   		p_message_name := NULL;
23   		CLOSE c_govt_field_of_study;
24   		RETURN TRUE;
25   	ELSE
26   		p_message_name := 'IGS_PS_GOVT_FIELDOF_STUDY_CLS';
27   		CLOSE c_govt_field_of_study;
28   		RETURN FALSE;
29   	END IF;
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_FOS.crsp_val_fos_govt');
34 		IGS_GE_MSG_STACK.ADD;
35 		APP_EXCEPTION.RAISE_EXCEPTION;
36   END crsp_val_fos_govt;
37 END IGS_PS_VAL_FOS;