PACKAGE BODY: APPS.IGS_OR_VAL_LOT

Source

1 PACKAGE BODY IGS_OR_VAL_LOT AS
2 /* $Header: IGSOR06B.pls 115.4 2002/11/29 01:47:11 nsidana ship $ */
3   FUNCTION assp_val_lot_loc(
4   p_location_type  IGS_AD_LOCATION_TYPE_ALL.location_type%TYPE ,
5   p_message_name OUT NOCOPY VARCHAR2 )
6 RETURN BOOLEAN  AS
7   	gv_other_detail		VARCHAR2(255);
8   BEGIN	-- assp_val_lot_loc
9   	-- This module validates that the system location type for a location
10   	-- type can not be changed once locations have been created.
11   DECLARE
12   	CURSOR	c_loc IS
13   	SELECT	'x'
14   	FROM	IGS_AD_LOCATION
15   	WHERE	location_type	= p_location_type;
16   	v_loc_exists	VARCHAR2(1);
17   BEGIN
18   	-- Set the default message number
19   	p_message_name := NULL;
20   	OPEN c_loc;
21   	FETCH c_loc INTO v_loc_exists;
22   	IF (c_loc%FOUND) THEN
23   		CLOSE c_loc;
24   		-- The system location type may not be changed for this
25   		-- location type as location records already exist.
26   		p_message_name := 'IGS_AS_SYS_LOCTYPE_NOTCHG';
27   		RETURN FALSE;
28   	END IF;
29   	CLOSE c_loc;
30   	-- Validation successful
31   	RETURN TRUE;
32   END;
33   EXCEPTION
34   	WHEN OTHERS THEN
35        Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
36        IGS_GE_MSG_STACK.ADD;
37        App_Exception.Raise_Exception ;
38   END assp_val_lot_loc;
39 END IGS_OR_VAL_LOT;