PACKAGE BODY: APPS.IGS_PS_VAL_DI

Source

1 PACKAGE BODY IGS_PS_VAL_DI AS
2  /* $Header: IGSPS40B.pls 115.3 2002/11/29 03:03:14 nsidana ship $ */
3 
4   --
5   -- Validate government IGS_PS_DSCP group code for IGS_PS_DSCP records.
6   FUNCTION crsp_val_di_govt_dg(
7   p_govt_discipline_group_cd IN VARCHAR2 ,
8   p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN BOOLEAN AS
10   	v_closed_ind		IGS_PS_GOVT_DSCP.closed_ind%TYPE;
11   	CURSOR	c_govt_discipline IS
12    		SELECT 	closed_ind
13   		FROM	IGS_PS_GOVT_DSCP
14   		WHERE	govt_discipline_group_cd = p_govt_discipline_group_cd;
15   BEGIN
16   	OPEN c_govt_discipline;
17   	FETCH c_govt_discipline	INTO  v_closed_ind;
18   	IF c_govt_discipline%NOTFOUND THEN
19   		p_message_name := NULL;
20   		CLOSE c_govt_discipline;
21   		RETURN TRUE;
22   	ELSIF (v_closed_ind = 'N') THEN
23   		p_message_name := NULL;
24   		CLOSE c_govt_discipline;
25   		RETURN TRUE;
26   	ELSE
27   		p_message_name := 'IGS_PS_GOVT_DISCP_GRP_CLOSED';
28   		CLOSE c_govt_discipline;
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_DI.crsp_val_di_govt_dg');
35 		IGS_GE_MSG_STACK.ADD;
36 		APP_EXCEPTION.RAISE_EXCEPTION;
37   END crsp_val_di_govt_dg;
38 END IGS_PS_VAL_DI;