1 PACKAGE BODY IGS_GR_VAL_CRD AS
2 /* $Header: IGSGR06B.pls 115.5 2002/11/29 00:40:22 nsidana ship $ */
3 --
4 -- Validate if the calendar instance has a category of GRADUATION
5 FUNCTION grdp_val_ci_grad(
6 p_cal_type IN VARCHAR2 ,
7 p_message_name OUT NOCOPY VARCHAR2 )
8 RETURN BOOLEAN AS
9 BEGIN -- grdp_val_ci_grad
10 -- Validate that the IGS_CA_TYPE specified has a SI_CA_S_CA_CAT
11 -- of GRADUATION.
12 DECLARE
13 v_ct_found VARCHAR2(1);
14 cst_graduation CONSTANT VARCHAR2(10) := 'GRADUATION';
15 CURSOR c_ct IS
16 SELECT 'x'
17 FROM IGS_CA_TYPE
18 WHERE cal_type = p_cal_type AND
19 s_cal_cat = cst_graduation;
20 BEGIN
21 p_message_name := NULL;
22 -- Check paramter
23 IF p_cal_type IS NULL THEN
24 RETURN TRUE;
25 END IF;
26 -- Check for IGS_CA_TYPE records with a IGS_CA_TYPE of p_cal_type and a
27 -- SI_CA_S_CA_CAT of GRADUATION.
28 OPEN c_ct;
29 FETCH c_ct INTO v_ct_found;
30 IF (c_ct%NOTFOUND) THEN
31 CLOSE c_ct;
32 p_message_name := 'IGS_GR_CERM_CAL_MUST_BE_GRAD';
33 RETURN FALSE;
34 END IF;
35 CLOSE c_ct;
36 -- Return no error
37 RETURN TRUE;
38 END;
39 EXCEPTION
40 WHEN OTHERS THEN
41 Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
42 IGS_GE_MSG_STACK.ADD;
43 App_Exception.Raise_Exception;
44 END grdp_val_ci_grad;
45 --
46 -- To validate the calendar instance system cal status is not 'INACTIVE'
47
48 END IGS_GR_VAL_CRD;