PACKAGE BODY: APPS.IGS_EN_VAL_EC

Source

1 PACKAGE BODY IGS_EN_VAL_EC AS
2 /* $Header: IGSEN34B.pls 115.4 2002/11/28 23:57:29 nsidana ship $ */
3   --
4   --
5   -- bug id : 1956374
6   -- sjadhav ,28-aug-2001
7   -- removed FUNCTION enrp_val_ec_closed
8   --
9   -- Validate update of enrolment category closed indicator.
10   FUNCTION enrp_val_ec_clsd_upd(
11   p_enrolment_cat IN VARCHAR2 ,
12   p_closed_ind IN VARCHAR2 DEFAULT 'N',
13   p_message_name OUT NOCOPY VARCHAR2)
14   RETURN BOOLEAN AS
15 
16   BEGIN	-- enrp_val_ec_clsd_upd
17   	-- Validate update of the IGS_EN_ENROLMENT_CAT.closed_ind.
18   DECLARE
19   	v_check		VARCHAR2(1);
20   	v_ret_val	BOOLEAN	DEFAULT TRUE;
21   	CURSOR c_ecm IS
22   		SELECT	'x'
23   		FROM	IGS_EN_CAT_MAPPING
24   		WHERE	enrolment_cat = p_enrolment_cat AND
25   			dflt_cat_ind = 'Y';
26   BEGIN
27   	p_message_name := null;
28   	IF (p_closed_ind = 'Y') THEN
29   		-- Validate if the enrolment category is the default for an admission category
30   		OPEN c_ecm;
31   		FETCH c_ecm INTO v_check;
32   		IF (c_ecm%FOUND) THEN
33   			p_message_name := 'IGS_EN_ENRCAT_NOTCLOSED';
34   			v_ret_val := FALSE;
35   		END IF;
36   		CLOSE c_ecm;
37   	END IF;
38   	RETURN v_ret_val;
39   END;
40   EXCEPTION
41   	WHEN OTHERS THEN
42 		Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
43 		FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_VAL_EC.enrp_val_ec_clsd_upd');
44 		IGS_GE_MSG_STACK.ADD;
45 		App_Exception.Raise_Exception;
46 
47   END enrp_val_ec_clsd_upd;
48   --
49 END IGS_EN_VAL_EC;