DBA Data[Home] [Help]

PACKAGE BODY: APPS.IGS_PS_VAL_FS

Source


1 PACKAGE BODY IGS_PS_VAL_FS AS
2  /* $Header: IGSPS42B.pls 115.3 2002/11/29 03:03:45 nsidana ship $ */
3 
4   --
5   -- Validate the funding source government funding source.
6   FUNCTION crsp_val_fs_govt(
7   p_govt_funding_source IN NUMBER ,
8   p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN BOOLEAN AS
10   	v_closed_ind		IGS_FI_FUND_SRC.closed_ind%TYPE;
11   	CURSOR	c_govt_funding_source IS
12   		SELECT closed_ind
13   		FROM   IGS_FI_GOVT_FUND_SRC
14   		WHERE  govt_funding_source = p_govt_funding_source;
15   BEGIN
16   	OPEN c_govt_funding_source;
17   	FETCH c_govt_funding_source INTO v_closed_ind;
18   	IF c_govt_funding_source%NOTFOUND THEN
19   		p_message_name := NULL;
20   		CLOSE c_govt_funding_source;
21   		RETURN TRUE;
22   	ELSIF (v_closed_ind = 'N') THEN
23   		p_message_name := NULL;
24   		CLOSE c_govt_funding_source;
25   		RETURN TRUE;
26   	ELSE
27   		p_message_name := 'IGS_PS_GOVT_FUNDSRC_CLOSED';
28   		CLOSE c_govt_funding_source;
29   		RETURN FALSE;
30   	END IF;
31   EXCEPTION
32   	WHEN OTHERS THEN
33 		FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXCEPTION');
34 		Fnd_Message.Set_Token('NAME','IGS_PS_VAL_FS.crsp_val_fs_govt');
35 		IGS_GE_MSG_STACK.ADD;
36 		APP_EXCEPTION.RAISE_EXCEPTION;
37   END crsp_val_fs_govt;
38 END IGS_PS_VAL_FS ;