PACKAGE BODY: APPS.IGS_EN_VAL_SCAE

Source

1 PACKAGE BODY IGS_EN_VAL_SCAE  AS
2 /* $Header: IGSEN62B.pls 115.3 2002/11/29 00:05:56 nsidana ship $ */
3   --
4   -- Validate the student COURSE attempt enrolment category.
5   FUNCTION ENRP_VAL_SCAE_EC(
6   p_enrolment_cat IN VARCHAR2 ,
7   p_message_name OUT NOCOPY VARCHAR2)
8   RETURN BOOLEAN  AS
9   BEGIN
10   DECLARE
11    	v_closed_ind	VARCHAR2(1);
12   	CURSOR	c_enrolment_cat IS
13   		SELECT closed_ind
14   		FROM	IGS_EN_ENROLMENT_CAT
15   		WHERE	enrolment_cat = p_enrolment_cat;
16   BEGIN
17   	-- Validate if stdnt_crs_atmpt_enr.enrolment_cat is open
18   	p_message_name := null;
19   	OPEN c_enrolment_cat;
20   	FETCH c_enrolment_cat INTO v_closed_ind;
21   	IF (c_enrolment_cat%NOTFOUND) THEN
22   		CLOSE c_enrolment_cat;
23   		RETURN TRUE;
24   	END IF;
25   	CLOSE c_enrolment_cat;
26   	IF (v_closed_ind = 'N') THEN
27   		RETURN TRUE;
28   	END IF;
29   	-- IGS_EN_ENROLMENT_CAT is closed
30   	p_message_name := 'IGS_EN_ENR_CAT_CLOSED';
31   	RETURN FALSE;
32   EXCEPTION
33   	WHEN OTHERS THEN
34 		FND_MESSAGE.SET_NAME('IGS', 'IGS_GE_UNHANDLED_EXP');
35 		FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_VAL_SCAE.enrp_val_scae_ec');
36 		IGS_GE_MSG_STACK.ADD;
37 		App_Exception.Raise_Exception;
38   END;
39   END enrp_val_scae_ec;
40 END IGS_EN_VAL_SCAE;