PACKAGE BODY: APPS.IGS_PS_VAL_UM

Source

1 PACKAGE BODY IGS_PS_VAL_UM AS
2 /* $Header: IGSPS62B.pls 115.3 2002/11/29 03:09:07 nsidana ship $ */
3 
4   --
5   -- To validate the update of a IGS_PS_UNIT mode record
6   FUNCTION crsp_val_um_upd(
7   p_unit_mode IN VARCHAR2 ,
8   p_closed_ind IN VARCHAR2 DEFAULT 'N',
9   p_message_name OUT NOCOPY VARCHAR2 )
10   RETURN boolean AS
11   	v_check		CHAR;
12   	CURSOR c_check_uc_rec IS
13   		SELECT 'x'
14   		FROM IGS_AS_UNIT_CLASS
15   		WHERE	unit_mode	= p_unit_mode AND
16   			closed_ind	= 'N';
17   BEGIN
18   	IF p_closed_ind = 'Y' THEN
19   		OPEN c_check_uc_rec;
20   		FETCH c_check_uc_rec INTO v_check;
21   		IF c_check_uc_rec%FOUND THEN
22   			CLOSE c_check_uc_rec;
23   			p_message_name := 'IGS_PS_CANNOTCLS_UNIT_MODE';
24   			RETURN FALSE;
25   		END IF;
26   		CLOSE c_check_uc_rec;
27   	END IF;
28   	p_message_name := NULL;
29   	RETURN TRUE;
30   EXCEPTION
31   	WHEN OTHERS THEN
32 		Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
33                 FND_MESSAGE.SET_TOKEN('NAME','IGS_PS_VAL_UM.crsp_val_um_upd');
34                 IGS_GE_MSG_STACK.ADD;
35 		App_Exception.Raise_Exception;
36   END crsp_val_um_upd;
37 END IGS_PS_VAL_UM;