PACKAGE BODY: APPS.IGS_PS_VAL_CGM

Source

1 PACKAGE BODY IGS_PS_VAL_CGM AS
2 /* $Header: IGSPS20B.pls 115.4 2002/11/29 02:58:17 nsidana ship $ */
3 
4   --
5   -- Validate the IGS_PS_COURSE group member IGS_PS_COURSE group code.
6   FUNCTION crsp_val_cgm_crs_grp(
7   p_course_group_cd IN VARCHAR2 ,
8   p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN BOOLEAN AS
10   	v_closed_ind		IGS_PS_GRP.closed_ind%TYPE;
11   	CURSOR	c_course_group IS
12   		SELECT closed_ind
13   		FROM   IGS_PS_GRP
14   		WHERE  course_group_cd = p_course_group_cd;
15   BEGIN
16   	OPEN c_course_group;
17   	FETCH c_course_group INTO v_closed_ind;
18   	IF c_course_group%NOTFOUND THEN
19   		p_message_name := NULL;
20   		CLOSE c_course_group;
21   		RETURN TRUE;
22   	ELSIF (v_closed_ind = 'N') THEN
23   		p_message_name := NULL;
24   		CLOSE c_course_group;
25   		RETURN TRUE;
26   	ELSE
27   		p_message_name := 'IGS_PS_PRGGRP_CODE_CLOSED';
28   		CLOSE c_course_group;
29   		RETURN FALSE;
30   	END IF;
31   END crsp_val_cgm_crs_grp;
32 END IGS_PS_VAL_CGM;