1 PACKAGE BODY IGS_EN_VAL_ATC AS
2 /* $Header: IGSEN24B.pls 115.3 2002/11/28 23:54:55 nsidana ship $ */
3
4 --
5 -- Validate the aborig/torres government aborig/torres code.
6 FUNCTION enrp_val_atc_govt(
7 p_govt_aborig_torres_cd IN NUMBER ,
8 p_message_name OUT NOCOPY VARCHAR2)
9 RETURN BOOLEAN AS
10 BEGIN
11 DECLARE
12 gv_other_detail VARCHAR(255);
13 gv_closed_ind IGS_PE_GOV_ABRGRESCD.closed_ind%TYPE;
14 CURSOR gc_gat_cd(
15 cp_gat_cd IGS_PE_GOV_ABRGRESCD.govt_aborig_torres_cd%TYPE) IS
16 SELECT IGS_PE_GOV_ABRGRESCD.closed_ind
17 FROM IGS_PE_GOV_ABRGRESCD
18 WHERE IGS_PE_GOV_ABRGRESCD.govt_aborig_torres_cd = cp_gat_cd;
19 BEGIN
20 -- This module validates if IGS_PE_GOV_ABRGRESCD.govt_aborig_torres_cd
21 -- is closed
22 p_message_name := null;
23 OPEN gc_gat_cd(p_govt_aborig_torres_cd);
24 FETCH gc_gat_cd INTO gv_closed_ind;
25 IF (gc_gat_cd%FOUND) THEN
26 IF (gv_closed_ind = 'Y' ) THEN
27 CLOSE gc_gat_cd;
28 p_message_name := 'IGS_EN_GOV_AB/TORRES_CD_CLOSE';
29 RETURN FALSE;
30 END IF;
31 END IF;
32 CLOSE gc_gat_cd;
33 RETURN TRUE;
34 EXCEPTION
35 WHEN OTHERS THEN
36 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
37 FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_VAL_ATC.enrp_val_atc_govt');
38 IGS_GE_MSG_STACK.ADD;
39 App_Exception.Raise_Exception;
40
41 END;
42 END enrp_val_atc_govt;
43 END IGS_EN_VAL_ATC;