1 PACKAGE BODY IGS_AD_VAL_TELOC AS
2 /* $Header: IGSAD73B.pls 115.3 2002/11/28 21:40:33 nsidana ship $ */
3
4 --
5 -- Validate the Tertiary Admissions Centre level of completion closed ind
6 FUNCTION admp_val_tloc_closed(
7 p_tac_level_of_comp IN VARCHAR2 ,
8 p_message_name OUT NOCOPY VARCHAR2 )
9 RETURN BOOLEAN AS
10 BEGIN
11 DECLARE
12 CURSOR c_tloc IS
13 SELECT closed_ind
14 FROM IGS_AD_TAC_LV_OF_COM
15 WHERE tac_level_of_comp = p_tac_level_of_comp;
16 v_tloc_rec c_tloc%ROWTYPE;
17 BEGIN
18 -- Check if the tac_level_of_comp is closed.
19 -- Set the default message number
20 p_message_name := null;
21 -- Cursor handling
22 OPEN c_tloc;
23 FETCH c_tloc INTO v_tloc_rec;
24 IF c_tloc%NOTFOUND THEN
25 CLOSE c_tloc;
26 RETURN TRUE;
27 END IF;
28 CLOSE c_tloc;
29 IF (v_tloc_rec.closed_ind = 'Y') THEN
30 p_message_name := 'IGS_AD_TRTYADM_CENTER_LOC_CLS';
31 RETURN FALSE;
32 END IF;
33 -- Return the default value
34 RETURN TRUE;
35 END;
36 EXCEPTION
37 WHEN OTHERS THEN
38 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
39 FND_MESSAGE.SET_TOKEN('NAME','IGS_AD_VAL_TELOC.admp_val_tloc_closed');
40 IGS_GE_MSG_STACK.ADD;
41 App_Exception.Raise_Exception;
42 END admp_val_tloc_closed;
43 END IGS_AD_VAL_TELOC;