PACKAGE BODY: APPS.IGS_PS_VAL_CUL

Source

1 PACKAGE BODY IGS_PS_VAL_CUL AS
2  /* $Header: IGSPS38B.pls 115.5 2003/12/05 06:06:10 nalkumar ship $ */
3   --
4   -- Validate IGS_PS_COURSE Code.
5   FUNCTION crsp_val_crs_type(
6     p_course_cd IN VARCHAR2 ,
7     p_course_version_number IN NUMBER,
8     p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN BOOLEAN AS
10   	v_closed_ind		IGS_PS_TYPE.closed_ind%TYPE;
11   	CURSOR c_get_closed_ind IS
12   		SELECT 'x'
13   		FROM	igs_ps_ver_all
14   		WHERE	course_cd = p_course_cd
15       AND   version_number = p_course_version_number
16       AND   SYSDATE BETWEEN start_dt AND NVL(end_dt, SYSDATE);
17   BEGIN
18   	p_message_name := NULL;
19   	OPEN c_get_closed_ind;
20   	FETCH c_get_closed_ind INTO v_closed_ind;
21   	IF c_get_closed_ind%FOUND THEN
22   		CLOSE c_get_closed_ind;
23   		RETURN TRUE;
24     ELSE
25   		CLOSE c_get_closed_ind;
26   		p_message_name := 'IGS_PR_PRG_CLOSED';
27   		RETURN FALSE;
28   	END IF;
29   	CLOSE c_get_closed_ind;
30   	RETURN TRUE;
31   EXCEPTION
32   	WHEN OTHERS THEN
33 		FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXCEPTION');
34 		Fnd_Message.Set_Token('NAME','IGS_PS_VAL_CUL.crsp_val_crs_type');
35 		IGS_GE_MSG_STACK.ADD;
36 		APP_EXCEPTION.RAISE_EXCEPTION;
37   END crsp_val_crs_type;
38   --
39 
40 END IGS_PS_VAL_CUL;