1 PACKAGE BODY IGS_EN_VAL_HPO AS
2 /* $Header: IGSEN45B.pls 115.3 2002/11/29 00:00:22 nsidana ship $ */
3 --
4 -- Validate the government hecs payment option closed ind
5 FUNCTION enrp_val_hpo_govt(
6 p_govt_hecs_payment_option IN VARCHAR2 ,
7 p_message_name OUT NOCOPY VARCHAR2)
8 RETURN BOOLEAN AS
9 BEGIN
10 DECLARE
11
12 v_ghpo_ind IGS_FI_GOV_HEC_PA_OP.closed_ind%TYPE;
13 CURSOR c_ghpo_ind IS
14 SELECT closed_ind
15 FROM IGS_FI_GOV_HEC_PA_OP
16 WHERE govt_hecs_payment_option = p_govt_hecs_payment_option;
17 BEGIN
18 -- This module validates whether a IGS_FI_HECS_PAY_OPTN
19 -- record could be mapped to a IGS_FI_GOV_HEC_PA_OP
20 -- record
21 OPEN c_ghpo_ind;
22 FETCH c_ghpo_ind INTO v_ghpo_ind;
23 -- if a record doesn't exist, then it could
24 -- be created and a IGS_FI_HECS_PAY_OPTN record
25 -- could be mapped to it
26 IF (c_ghpo_ind%NOTFOUND) THEN
27 CLOSE c_ghpo_ind;
28 p_message_name := null;
29 RETURN TRUE;
30 ELSE
31 IF (v_ghpo_ind = 'N') THEN
32 -- this record isn't closed off
33 -- so hecs_paymetn_option records
34 -- can be mapped to it
35 CLOSE c_ghpo_ind;
36 p_message_name := null;
37 RETURN TRUE;
38 ELSE
39 -- this record is closed, so no
40 -- records can be mapped to it
41 CLOSE c_ghpo_ind;
42 p_message_name := 'IGS_EN_GOVT_HECS_PAY_OPT_CLOS';
43 RETURN FALSE;
44 END IF;
45 END IF;
46 EXCEPTION
47 WHEN OTHERS THEN
48 FND_MESSAGE.SET_NAME('IGS', 'IGS_GE_UNHANDLED_EXP');
49 FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_VAL_HPO.enrp_val_hpo_govt');
50 IGS_GE_MSG_STACK.ADD;
51 App_Exception.Raise_Exception;
52
53
54 END;
55 END enrp_val_hpo_govt;
56 END IGS_EN_VAL_HPO;