1 PACKAGE BODY IGS_EN_VAL_ECPS AS
2 /* $Header: IGSEN36B.pls 115.4 2003/05/21 10:09:12 ptandon ship $ */
3 --
4 -- Validate the enrolment cat procedure step system enrolment step type.
5 /*---------------------------------------------------------------------------------------------------------------------------------------
6 --Change History:
7 --Who When What
8 --ptandon 21-MAY-2003 Replaced usage of Message IGS_EN_ENRL_STEP_TYP_CLOSED with IGS_PR_SY_EN_STP_TYP_CLD. Bug#2755657
9 -----------------------------------------------------------------------------------------------------------------------------------------*/
10
11 FUNCTION enrp_val_ecps_sest(
12 p_s_enrolment_step_type IN VARCHAR2 ,
13 p_message_name OUT NOCOPY VARCHAR2)
14 RETURN BOOLEAN AS
15 BEGIN
16 DECLARE
17
18 v_closed_ind VARCHAR2(1);
19 CURSOR c_s_enrolment_step_type IS
20 SELECT closed_ind
21 FROM IGS_LOOKUPS_VIEW
22 WHERE lookup_type = 'ENROLMENT_STEP_TYPE' and
23 lookup_code = p_s_enrolment_step_type;
24 BEGIN
25 -- Validate if the enrolment_cat_procedure_step is open
26 p_message_name := null;
27 OPEN c_s_enrolment_step_type;
28 FETCH c_s_enrolment_step_type INTO v_closed_ind;
29 IF (c_s_enrolment_step_type%NOTFOUND) THEN
30 CLOSE c_s_enrolment_step_type;
31 RETURN TRUE;
32 END IF;
33 CLOSE c_s_enrolment_step_type;
34 IF (v_closed_ind = 'N') THEN
35 RETURN TRUE;
36 END IF;
37 -- s_enrolment_step_type is closed
38 p_message_name := 'IGS_PR_SY_EN_STP_TYP_CLD';
39 RETURN FALSE;
40 EXCEPTION
41 WHEN OTHERS THEN
42 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
43 FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_VAL_ECPS.enrp_val_ecps_sest');
44 IGS_GE_MSG_STACK.ADD;
45 App_Exception.Raise_Exception;
46 END;
47 END enrp_val_ecps_sest;
48 END IGS_EN_VAL_ECPS;