PACKAGE BODY: APPS.IGS_PS_VAL_CGR

Source

1 PACKAGE BODY IGS_PS_VAL_CGR AS
2 /* $Header: IGSPS21B.pls 115.5 2002/11/29 02:58:38 nsidana ship $ */
3 
4   --
5   -- Validate the IGS_PS_COURSE group type for the IGS_PS_COURSE group.
6   FUNCTION crsp_val_cgr_type(
7   p_course_group_type IN VARCHAR2 ,
8   p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN BOOLEAN AS
10   	v_closed_ind		IGS_PS_GRP_TYPE.closed_ind%TYPE;
11   	CURSOR	c_course_group_type IS
12   		SELECT closed_ind
13   		FROM   IGS_PS_GRP_TYPE
14   		WHERE  course_group_type = p_course_group_type;
15   BEGIN
16   	OPEN c_course_group_type;
17   	FETCH c_course_group_type INTO v_closed_ind;
18   	IF c_course_group_type%NOTFOUND THEN
19   		p_message_name := NULL;
20   		CLOSE c_course_group_type;
21   		RETURN TRUE;
22   	ELSIF (v_closed_ind = 'N') THEN
23   		p_message_name := NULL;
24   		CLOSE c_course_group_type;
25   		RETURN TRUE;
26   	ELSE
27   		p_message_name := 'IGS_PS_PRGGRP_TYPE_CLOSED';
28   		CLOSE c_course_group_type;
29   		RETURN FALSE;
30   	END IF;
31   END crsp_val_cgr_type;
32 
33 END IGS_PS_VAL_CGR;