PACKAGE BODY: APPS.IGS_CA_VAL_DAP

Source

1 PACKAGE BODY IGS_CA_VAL_DAP AS
2 /* $Header: IGSCA13B.pls 115.3 2002/11/28 22:59:07 nsidana ship $ */
3   -- Validate IGS_CA_DA_PAIR
4   FUNCTION calp_val_dap_da(
5   p_related_dt_alias IN VARCHAR2 ,
6   p_message_name OUT NOCOPY VARCHAR2 )
7   RETURN boolean AS
8   	gv_other_detail		VARCHAR(255);
9   BEGIN
10   	-- Module to validate IGS_CA_DA_PAIR.related_dt_alias
11   	-- closed indicator
12   DECLARE
13   	v_closed_ind	IGS_CA_DA.closed_ind%TYPE;
14   	CURSOR	c_dt_alias (cp_dt_alias IGS_CA_DA.DT_ALIAS%TYPE) IS
15   		SELECT	IGS_CA_DA.closed_ind
16   		FROM	IGS_CA_DA
17   		WHERE	IGS_CA_DA.DT_ALIAS = cp_dt_alias;
18   BEGIN
19   	p_message_name := NULL;
20   	OPEN  c_dt_alias(p_related_dt_alias);
21   	FETCH c_dt_alias INTO v_closed_ind;
22   	IF (v_closed_ind = 'N') THEN
23   		CLOSE c_dt_alias;
24   		RETURN TRUE;
25   	ELSE
26   		CLOSE c_dt_alias;
27   		p_message_name := 'IGS_CA_DTALIAS_CLOSED';
28   		RETURN FALSE;
29   	END IF;
30     END;
31   END calp_val_dap_da;
32 END IGS_CA_VAL_DAP;