PACKAGE BODY: APPS.IGS_PS_VAL_CO

Source

1 PACKAGE BODY IGS_PS_VAL_CO AS
2 /* $Header: IGSPS23B.pls 115.4 2002/11/29 02:59:21 nsidana ship $ */
3 
4   --
5   -- Validate IGS_PS_COURSE Offering Calendar Type.
6   FUNCTION crsp_val_co_cal_type(
7   p_cal_type IN VARCHAR2 ,
8   p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN BOOLEAN AS
10   	cst_academic	CONSTANT VARCHAR2(10) := 'ACADEMIC';
11   	v_closed_ind	IGS_CA_TYPE.closed_ind%TYPE;
12   	v_s_cal_cat	IGS_CA_TYPE.s_cal_cat%TYPE;
13   	CURSOR 	c_cal_type(
14   			cp_cal_type IGS_CA_TYPE.cal_type%TYPE)IS
15   		SELECT 	closed_ind,s_cal_cat
16   		FROM	IGS_CA_TYPE
17   		WHERE	cal_type = cp_cal_type;
18   BEGIN
19   	p_message_name := NULL;
20   	OPEN c_cal_type(
21   		p_cal_type);
22   	FETCH c_cal_type INTO v_closed_ind, v_s_cal_cat;
23   	CLOSE c_cal_type;
24   	IF (v_closed_ind = 'N' AND v_s_cal_cat = cst_academic) THEN
25   		RETURN TRUE;
26   	ELSIF (v_closed_ind <> 'N') THEN
27   		p_message_name := 'IGS_CA_CALTYPE_CLOSED';
28   		RETURN FALSE;
29   	ELSE
30   		p_message_name := 'IGS_PS_CALCAT_MUSTBE_ACADEMIC';
31   		RETURN FALSE;
32   	END IF;
33   END crsp_val_co_cal_type;
34 END IGS_PS_VAL_CO;