1 PACKAGE BODY IGS_AD_VAL_BFA AS
2 /* $Header: IGSAD47B.pls 115.4 2002/11/28 21:34:14 nsidana ship $ */
3
4 -- Validate the government basis for admission type closed indicator.
5 FUNCTION admp_val_gbfat_clsd(
6 p_govt_basis_for_adm_type IN VARCHAR2 ,
7 p_message_name OUT NOCOPY VARCHAR2 )
8 RETURN BOOLEAN IS
9 gv_other_detail VARCHAR2(255);
10 BEGIN
11 DECLARE
12 CURSOR c_gbfat IS
13 SELECT closed_ind
14 FROM IGS_AD_GOV_BAS_FR_TY
15 WHERE govt_basis_for_adm_type = p_govt_basis_for_adm_type;
16 v_gbfat_rec c_gbfat%ROWTYPE;
17 BEGIN
18 -- Check if the IGS_AD_GOV_BAS_FR_TY is closed
19 -- Set the default message number
20 p_message_name := Null;
21 -- Cursor handling
22 OPEN c_gbfat;
23 FETCH c_gbfat INTO v_gbfat_rec;
24 IF c_gbfat%NOTFOUND THEN
25 CLOSE c_gbfat;
26 RETURN TRUE;
27 END IF;
28 CLOSE c_gbfat;
29 IF (v_gbfat_rec.closed_ind = 'Y') THEN
30 p_message_name := 'IGS_AD_GOVT_BASIS_ADMTYPE_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_BFA.admp_val_gbfat_clsd');
40 IGS_GE_MSG_STACK.ADD;
41 App_Exception.Raise_Exception;
42 END admp_val_gbfat_clsd;
43
44 END IGS_AD_VAL_BFA;