PACKAGE BODY: APPS.IGS_PS_VAL_CRC

Source

1 PACKAGE BODY IGS_PS_VAL_CRC AS
2  /* $Header: IGSPS31B.pls 115.4 2002/11/29 03:01:23 nsidana ship $ */
3   -------------------------------------------------------------------------------------------
4   --Change History:
5   --Who         When            What
6   --avenkatr    29-AUG-2001    Bug Id : 1956374. Removed procedure "crsp_val_crv_exists"
7   --avenkatr    29-AUG-2001    Bug Id : 1956374. Removed procedure "crsp_val_crv_sys_sts"
8   -------------------------------------------------------------------------------------------
9 
10   --
11   -- Validate the IGS_PS_COURSE categorisation IGS_PS_COURSE category.
12   FUNCTION crsp_val_crc_crs_cat(
13   p_course_cat IN VARCHAR2 ,
14   p_message_name OUT NOCOPY VARCHAR2 )
15   RETURN BOOLEAN AS
16   	v_closed_ind		IGS_PS_CAT.closed_ind%TYPE;
17   	CURSOR	c_course_cat IS
18   		SELECT closed_ind
19   		FROM   IGS_PS_CAT
20   		WHERE  course_cat = p_course_cat;
21   BEGIN
22   	OPEN c_course_cat;
23   	FETCH c_course_cat INTO v_closed_ind;
24   	IF c_course_cat%NOTFOUND THEN
25   		p_message_name := NULL;
26   		CLOSE c_course_cat;
27   		RETURN TRUE;
28   	ELSIF (v_closed_ind = 'N') THEN
29   		p_message_name := NULL;
30   		CLOSE c_course_cat;
31   		RETURN TRUE;
32   	ELSE
33   		p_message_name := 'IGS_PS_PRGCAT_CLOSED';
34   		CLOSE c_course_cat;
35   		RETURN FALSE;
36   	END IF;
37   EXCEPTION
38   	WHEN OTHERS THEN
39 		FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXCEPTION');
40 		Fnd_Message.Set_Token('NAME','IGS_PS_VAL_CRC.crsp_val_crc_crs_cat');
41 		IGS_GE_MSG_STACK.ADD;
42 		APP_EXCEPTION.RAISE_EXCEPTION;
43   END crsp_val_crc_crs_cat;
44 END IGS_PS_VAL_CRC;