PACKAGE BODY: APPS.IGS_PS_VAL_UC

Source

1 PACKAGE BODY IGS_PS_VAL_UC AS
2 /* $Header: IGSPS59B.pls 115.4 2002/11/29 03:08:25 nsidana ship $ */
3 
4 
5   -- Validate the IGS_PS_UNIT category for IGS_PS_UNIT categorisation
6   FUNCTION crsp_val_uc_unit_cat(
7   p_unit_cat IN VARCHAR2 ,
8   p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN BOOLEAN AS
10   	v_closed_ind		IGS_PS_UNIT_CAT.closed_ind%TYPE;
11   	CURSOR	c_unit_cat IS
12    		SELECT 	closed_ind
13   		FROM	IGS_PS_UNIT_CAT
14   		WHERE	unit_cat = p_unit_cat;
15   BEGIN
16   	OPEN c_unit_cat;
17   	FETCH c_unit_cat INTO v_closed_ind;
18   	IF c_unit_cat%NOTFOUND THEN
19   		p_message_name := NULL;
20   		CLOSE c_unit_cat;
21   		RETURN TRUE;
22   	ELSIF (v_closed_ind = 'N') THEN
23   		p_message_name := NULL;
24   		CLOSE c_unit_cat;
25   		RETURN TRUE;
26   	ELSE
27   		p_message_name := 'IGS_PS_UNITCAT_CLOSED';
28   		CLOSE c_unit_cat;
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_UC.crsp_val_uc_unit_cat');
35 			IGS_GE_MSG_STACK.ADD;
36 			App_Exception.Raise_Exception;
37   END crsp_val_uc_unit_cat;
38 END IGS_PS_VAL_UC;