PACKAGE BODY: APPS.IGS_AV_VAL_ASULE

Source

1 PACKAGE BODY IGS_AV_VAL_ASULE AS
2 /* $Header: IGSAV06B.pls 115.7 2003/04/14 09:57:18 anilk ship $ */
3 
4 --
5 -- bug id : 1956374
6 -- sjadhav  , 28-aug-2001
7 -- removed ENRP_VAL_EXCLD_PRSN
8 --
9 
10   -------------------------------------------------------------------------------------------
11   --Change History:
12   --Who         When            What
13   --smadathi    24-AUG-2001     Bug No. 1956374 .The function genp_val_staff_prsn removed
14 
15   -------------------------------------------------------------------------------------------
16   --msrinivi    24-AUG-2001     Bug No. 1956374 .The function genp_val_prsn_id removed
17 
18   --
19   -- Validate the IGS_PS_UNIT level closed indicator.
20   FUNCTION advp_val_ule_closed(
21   p_unit_level IN VARCHAR2 ,
22   p_message_name OUT NOCOPY VARCHAR2)
23   RETURN BOOLEAN IS
24   BEGIN
25   DECLARE
26   	v_other_detail		VARCHAR2(255);
27   	v_closed_ind		CHAR;
28   	CURSOR c_unit_level IS
29   		SELECT	closed_ind
30   		FROM	IGS_PS_UNIT_LEVEL
31   		WHERE	unit_level = p_unit_level;
32   BEGIN
33   	-- Check if the IGS_PS_UNIT level is closed
34   	 p_message_name := null;
35   	OPEN c_unit_level;
36   	FETCH c_unit_level INTO v_closed_ind;
37   	IF (c_unit_level%NOTFOUND) THEN
38   		CLOSE c_unit_level;
39   		RETURN TRUE;
40   	END IF;
41   	IF (v_closed_ind = 'Y') THEN
42   		p_message_name := 'IGS_PS_UNITLVL_CLOSED';
43   		CLOSE c_unit_level;
44   		RETURN FALSE;
45   	END IF;
46   	-- record is not closed
47   	CLOSE c_unit_level;
48   	RETURN TRUE;
49   EXCEPTION
50   	WHEN OTHERS THEN
51   	 Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
52          Fnd_Message.Set_Token('NAME','IGS_AV_VAL_ASULE.ADVP_VAL_ULE_CLOSED');
53          Igs_Ge_Msg_Stack.Add;
54        App_Exception.Raise_Exception;
55 
56   END;
57   END advp_val_ule_closed;
58 
59 
60 END IGS_AV_VAL_ASULE;