PACKAGE BODY: APPS.IGS_AS_VAL_SACC

Source

1 PACKAGE BODY IGS_AS_VAL_SACC AS
2 /* $Header: IGSAS27B.pls 115.4 2002/11/28 22:46:13 nsidana ship $ */
3   --
4   -- Validate the IGS_AS_CAL_CONF date alias values.
5   FUNCTION assp_val_sacc_da(
6   p_dt_alias IN VARCHAR2 ,
7   p_message_name OUT NOCOPY VARCHAR2 )
8   RETURN BOOLEAN IS
9   	gv_other_detail		VARCHAR2(255);
10   BEGIN	-- assp_val_sacc_da
11   	-- Validate the IGS_AD_CAL_CONF date alias values
12   DECLARE
13   	v_closed_ind	IGS_CA_DA.closed_ind%TYPE;
14   	CURSOR	c_dt_alias IS
15   		SELECT	closed_ind
16   		FROM	IGS_CA_DA
17   		WHERE	dt_alias = p_dt_alias;
18   BEGIN
19   	p_message_name := null;
20   	OPEN	c_dt_alias;
21   	FETCH	c_dt_alias INTO v_closed_ind;
22   	IF (c_dt_alias%NOTFOUND) THEN
23   		CLOSE c_dt_alias;
24   		RETURN TRUE;
25   	END IF;
26   	CLOSE c_dt_alias;
27   	-- Validate the date alias is open
28   	IF (v_closed_ind = 'Y') THEN
29   		p_message_name := 'IGS_CA_DTALIAS_IS_CLOSED';
30   		RETURN FALSE;
31   	END IF;
32   	RETURN TRUE;
33   END;
34   EXCEPTION
35   	WHEN OTHERS THEN
36  	      Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
37  	      FND_MESSAGE.SET_TOKEN('NAME','IGS_AS_VAL_SACC.assp_val_sacc_da');
38  	      IGS_GE_MSG_STACK.ADD;
39        	      App_Exception.Raise_Exception;
40   END assp_val_sacc_da;
41 END IGS_AS_VAL_SACC;