PACKAGE BODY: APPS.IGS_PS_VAL_COO

Source

1 PACKAGE BODY IGS_PS_VAL_COo AS
2 /* $Header: IGSPS25B.pls 115.7 2002/11/29 02:59:51 nsidana ship $ */
3   -------------------------------------------------------------------------------------------
4   --Change History:
5   --Who         When            What
6   --smadathi    28-AUG-2001     Bug No. 1956374 .The function genp_val_staff_prsn removed
7 
8   -------------------------------------------------------------------------------------------
9   --
10 
11   -- Validate IGS_PS_COURSE offering option attendance mode.
12   FUNCTION crsp_val_coo_am(
13   p_attendance_mode IN VARCHAR2 ,
14   p_message_name OUT NOCOPY VARCHAR2 )
15   RETURN BOOLEAN AS
16   	v_closed_ind	IGS_EN_ATD_MODE.closed_ind%TYPE;
17   	CURSOR 	c_attendance_mode(
18   			cp_attendance_mode IGS_EN_ATD_MODE.attendance_mode%TYPE)IS
19   		SELECT 	closed_ind
20   		FROM	IGS_EN_ATD_MODE
21   		WHERE	attendance_mode = cp_attendance_mode;
22   BEGIN
23   	p_message_name := NULL;
24   	OPEN c_attendance_mode(
25   			p_attendance_mode);
26   	FETCH c_attendance_mode INTO v_closed_ind;
27   	IF(c_attendance_mode%NOTFOUND) THEN
28   		CLOSE c_attendance_mode;
29   		RETURN TRUE;
30   	END IF;
31   	CLOSE c_attendance_mode;
32   	IF (v_closed_ind = 'N') THEN
33   		RETURN TRUE;
34   	ELSE
35   		p_message_name := 'IGS_PS_ATTEND_MODE_CLOSED';
36   		RETURN FALSE;
37   	END IF;
38   END crsp_val_coo_am;
39   --
40   -- Validate that IGS_PS_COURSE offering option attendance type.
41   FUNCTION crsp_val_coo_att(
42   p_attendance_type IN VARCHAR2 ,
43   p_message_name OUT NOCOPY VARCHAR2 )
44   RETURN BOOLEAN AS
45   	v_closed_ind	IGS_EN_ATD_TYPE.closed_ind%TYPE;
46   	CURSOR 	c_attendance_type(
47   			cp_attendance_type IGS_EN_ATD_TYPE.attendance_type%TYPE)IS
48   		SELECT 	closed_ind
49   		FROM	IGS_EN_ATD_TYPE
50   		WHERE	attendance_type = cp_attendance_type;
51   BEGIN
52   	p_message_name := NULL;
53   	OPEN c_attendance_type(
54   			p_attendance_type);
55   	FETCH c_attendance_type INTO v_closed_ind;
56   	IF(c_attendance_type%NOTFOUND) THEN
57   		CLOSE c_attendance_type;
58   		RETURN TRUE;
59   	END IF;
60   	CLOSE c_attendance_type;
61   	IF (v_closed_ind = 'N') THEN
62   		RETURN TRUE;
63   	ELSE
64   		p_message_name := 'IGS_PS_ATTEND_TYPE_CLOSED';
65   		RETURN FALSE;
66   	END IF;
67   END crsp_val_coo_att;
68 END IGS_PS_VAL_COo;