PACKAGE BODY: APPS.IGS_PS_VAL_CGT

Source

1 PACKAGE BODY IGS_PS_VAL_CGT AS
2 /* $Header: IGSPS22B.pls 115.4 2002/11/29 02:58:59 nsidana ship $ */
3 
4   -- Validate the IGS_PS_COURSE group type system IGS_PS_COURSE group type.
5   FUNCTION crsp_val_cgt_sys_cgt(
6   p_s_course_group_type IN VARCHAR2 ,
7   p_message_name OUT NOCOPY VARCHAR2 )
8   RETURN BOOLEAN AS
9   	v_closed_ind		IGS_LOOKUPS_VIEW.closed_ind%TYPE;
10   	CURSOR	c_s_course_group_type IS
11   		SELECT closed_ind
12   		FROM   IGS_LOOKUPS_VIEW
13   		WHERE  lookup_code = p_s_course_group_type AND
14 			 lookup_type = 'COURSE_GROUP_TYPE';
15   BEGIN
16   	OPEN c_s_course_group_type;
17   	FETCH c_s_course_group_type INTO v_closed_ind;
18   	IF c_s_course_group_type%NOTFOUND THEN
19   		p_message_name := NULL;
20   		CLOSE c_s_course_group_type;
21   		RETURN TRUE;
22   	ELSIF (v_closed_ind = 'N') THEN
23   		p_message_name := NULL;
24   		CLOSE c_s_course_group_type;
25   		RETURN TRUE;
26   	ELSE
27   		p_message_name := 'IGS_PS_SYSGRP_TYPE_CLOSED';
28   		CLOSE c_s_course_group_type;
29   		RETURN FALSE;
30   	END IF;
31   END crsp_val_cgt_sys_cgt;
32 END IGS_PS_VAL_CGT;