1 PACKAGE BODY IGS_AD_VAL_ACO AS
2 /* $Header: IGSAD29B.pls 115.4 2002/11/28 21:29:00 nsidana ship $ */
3 --
4 -- Validate the Tertiary Admissions Centre admission code closed ind
5 FUNCTION admp_val_tac_closed(
6 p_tac_admission_cd IN VARCHAR2 ,
7 p_message_name OUT NOCOPY VARCHAR2 )
8 RETURN BOOLEAN AS
9 BEGIN
10 DECLARE
11 CURSOR c_tac IS
12 SELECT closed_ind
13 FROM IGS_AD_TAC_AD_CD
14 WHERE tac_admission_cd = p_tac_admission_cd;
15 v_tac_rec c_tac%ROWTYPE;
16 BEGIN
17 -- Check if the tac_admission_cd is closed
18 -- Set the default message number
19 p_message_name := NULL;
20 -- Cursor handling
21 OPEN c_tac ;
22 FETCH c_tac INTO v_tac_rec;
23 IF c_tac%NOTFOUND THEN
24 CLOSE c_tac;
25 RETURN TRUE;
26 END IF;
27 CLOSE c_tac;
28 IF (v_tac_rec.closed_ind = 'Y') THEN
29 p_message_name := 'IGS_AD_TRTY_ADMCD_CLOSED';
30 RETURN FALSE;
31 END IF;
32 -- Return the default value
33 RETURN TRUE;
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_AD_VAL_ACO.admp_val_tac_closed');
39 IGS_GE_MSG_STACK.ADD;
40 App_Exception.Raise_Exception;
41 END admp_val_tac_closed;
42 --
43 -- Validate if IGS_AD_BASIS_FOR_AD.basis_for_admission_type is closed.
44
45
46 END IGS_AD_VAL_ACO;