PACKAGE BODY: APPS.IGS_AS_VAL_ACOT

Source

1 PACKAGE BODY IGS_AS_VAL_ACOT AS
2 /* $Header: IGSAS10B.pls 115.4 2002/11/28 22:41:43 nsidana ship $ */
3   -----
4   -- Validate COURSE type closed indicator.
5   FUNCTION crsp_val_cty_closed(
6   p_course_type IN IGS_PS_TYPE_ALL.course_type%TYPE ,
7   P_MESSAGE_NAME OUT NOCOPY varchar2 )
8   RETURN BOOLEAN AS
9   V_MESSAGE_NAME VARCHAR2(30);
10   BEGIN 	-- crsp_val_cty_closed
11   	-- Validate the COURSE type closed indicator
12   DECLARE
13 
14   	CURSOR c_cty(
15   			cp_course_type	IGS_PS_TYPE.course_type%TYPE) IS
16   		SELECT	closed_ind
17   		FROM	IGS_PS_TYPE
18   		WHERE	course_type = cp_course_type;
19   	v_cty_rec			c_cty%ROWTYPE;
20   	cst_yes			CONSTANT CHAR := 'Y';
21   BEGIN
22   	-- Set the default message number
23   	P_MESSAGE_NAME :=NULL;
24   	-- Cursor handling
25   	OPEN c_cty(
26   			p_course_type);
27   	FETCH c_cty INTO v_cty_rec;
28   	IF c_cty%NOTFOUND THEN
29   		CLOSE c_cty;
30   		RETURN TRUE;
31   	END IF;
32   	CLOSE c_cty;
33   	IF (v_cty_rec.closed_ind = cst_yes) THEN
34   		P_MESSAGE_NAME := 'IGS_PS_PRGTYPE_CLOSED';
35   		RETURN FALSE;
36   	END IF;
37   	-- Return the default value
38   	RETURN TRUE;
39   END;
40 
41   END crsp_val_cty_closed;
42 END IGS_AS_VAL_ACOT;