[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 ;