PACKAGE BODY: APPS.IGS_CO_VAL_CC

Source

1 PACKAGE BODY IGS_CO_VAL_CC AS
2 /* $Header: IGSCO05B.pls 115.4 2002/11/28 23:03:56 nsidana ship $ */
3   -- Validate update of correspondence category closed indicator.
4   FUNCTION corp_val_cc_clsd_upd(
5   p_correspondence_cat IN VARCHAR2 ,
6   p_closed_ind IN VARCHAR2 DEFAULT 'N',
7   p_message_name OUT NOCOPY varchar2 )
8   RETURN BOOLEAN AS
9 
10   BEGIN	-- corp_val_cc_clsd_upd
11   	-- Validate update of the IGS_CO_CAT.closed_ind.
12   DECLARE
13   	v_check		CHAR;
14   	v_ret_val	BOOLEAN	DEFAULT TRUE;
15   	CURSOR c_ccm IS
16   		SELECT	'x'
17   		FROM	IGS_CO_CAT_MAP
18   		WHERE	correspondence_cat = p_correspondence_cat AND
19   			dflt_cat_ind = 'Y';
20   BEGIN
21   	p_message_name   := null;
22   	IF (p_closed_ind = 'Y') THEN
23   		-- Validate if the correspondence category is the default for an admission
24   		-- category.
25   		OPEN c_ccm;
26   		FETCH c_ccm INTO v_check;
27   		IF (c_ccm%FOUND) THEN
28   			p_message_name   := 'IGS_CO_CORCAT_CANNOT_CLOSE';
29   			v_ret_val := FALSE;
30   		END IF;
31   		CLOSE c_ccm;
32   	END IF;
33   	RETURN v_ret_val;
34   END;
35 
36   END corp_val_cc_clsd_upd;
37 END IGS_CO_VAL_CC;