1 PACKAGE BODY IGS_EN_VAL_PIT AS
2 /* $Header: IGSEN55B.pls 115.3 2002/11/29 00:03:34 nsidana ship $ */
3 --
4 -- Validate the person id type institution code is active.
5 FUNCTION enrp_val_pit_inst_cd(
6 p_institution_cd IN VARCHAR2 ,
7 p_message_name OUT NOCOPY VARCHAR2)
8 RETURN BOOLEAN AS
9 BEGIN -- enrp_val_pit_inst_cd
10 -- validate that the institution code for a person_id is active
11 DECLARE
12 v_s_ins_status IGS_OR_INST_STAT.s_institution_status%TYPE;
13 CURSOR c_get_s_ins_status IS
14 SELECT s_institution_status
15 FROM IGS_OR_INSTITUTION ins,
16 IGS_OR_INST_STAT ins_s
17 WHERE ins.institution_cd = p_institution_cd AND
18 ins.institution_status = ins_s.institution_status;
19 BEGIN
20 OPEN c_get_s_ins_status;
21 FETCH c_get_s_ins_status INTO v_s_ins_status;
22 IF (c_get_s_ins_status%NOTFOUND) THEN
23 CLOSE c_get_s_ins_status;
24 RAISE NO_DATA_FOUND;
25 END IF;
26 CLOSE c_get_s_ins_status;
27 IF (v_s_ins_status = 'ACTIVE') THEN
28 p_message_name := null;
29 RETURN TRUE;
30 ELSE
31 p_message_name := 'IGS_EN_CANT_CRETE_PERSID';
32 RETURN FALSE;
33 END IF;
34 END;
35 EXCEPTION
36 WHEN OTHERS THEN
37 Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
38 FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_VAL_PIT.enrp_val_pit_inst_cd');
39 IGS_GE_MSG_STACK.ADD;
40 App_Exception.Raise_Exception;
41
42 END enrp_val_pit_inst_cd;
43 END IGS_EN_VAL_PIT;