1 PACKAGE BODY IGS_AD_VAL_AORS AS
2 /* $Header: IGSAD35B.pls 120.0 2005/06/01 18:55:14 appldev noship $ */
3 --
4 -- Validate against the system adm offer response status closed indicator
5 FUNCTION admp_val_saors_clsd(
6 p_s_adm_offer_resp_status IN VARCHAR2 ,
7 p_message_name OUT NOCOPY VARCHAR2 )
8 RETURN BOOLEAN AS
9 BEGIN --AMDP_VAL_SAORS_CLSD
10 --Check if the s_adm_offer_resp_status is closed
11 DECLARE
12 v_closed_ind VARCHAR(1);
13 CURSOR c_saors IS
14 SELECT saors.closed_ind
15 FROM IGS_LOOKUP_VALUES saors
16 WHERE saors.lookup_type = 'ADM_OFFER_RESP_STATUS' AND
17 saors.lookup_code = p_s_adm_offer_resp_status;
18 BEGIN
19 --- Set the default message number
20 p_message_name := NULL;
21 OPEN c_saors;
22 FETCH c_saors INTO v_closed_ind;
23 IF (c_saors%FOUND) THEN
24 IF (v_closed_ind = 'Y') THEN
25 p_message_name := 'IGS_AD_SYSADM_OFFERRES_ST_CLS';
26 CLOSE c_saors;
27 RETURN FALSE;
28 END IF;
29 END IF;
30 CLOSE c_saors;
31 RETURN TRUE;
32 END;
33 EXCEPTION
34 WHEN OTHERS THEN
35 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
36 Fnd_Message.Set_Token('NAME','IGS_AD_VAL_AORS.admp_val_saors_clsd');
37 IGS_GE_MSG_STACK.ADD;
38 App_Exception.Raise_Exception;
39 END admp_val_saors_clsd;
40
41 --
42 -- Validate the admission offer response status system default indicator.
43 FUNCTION admp_val_aors_dflt(
44 p_adm_offer_resp_status IN VARCHAR2 ,
45 p_s_adm_offer_resp_status IN VARCHAR2 ,
46 p_message_name OUT NOCOPY VARCHAR2 )
47 RETURN BOOLEAN AS
48 BEGIN -- ADMP_VAL_AORS_DFLT
49 -- Check if another IGS_AD_OFR_RESP_STAT record exists with the system
50 -- default indicator set to 'Y'
51 DECLARE
52 v_count_rec NUMBER;
53 v_sys_def_ind IGS_AD_OFR_RESP_STAT.system_default_ind%TYPE;
54 CURSOR c_count IS
55 SELECT count(*),
56 system_default_ind
57 FROM IGS_AD_OFR_RESP_STAT aors
58 WHERE aors.adm_offer_resp_status <> p_adm_offer_resp_status AND
59 aors.s_adm_offer_resp_status = p_s_adm_offer_resp_status AND
60 aors.system_default_ind = 'Y'
61 GROUP BY system_default_ind;
62 BEGIN
63 --- Set the default message number
64 p_message_name := NULL;
65 OPEN c_count;
66 FETCH c_count INTO v_count_rec,
67 v_sys_def_ind;
68 IF (c_count%FOUND) THEN
69 IF (v_count_rec > 0) AND (v_sys_def_ind = 'Y') THEN
70 p_message_name := 'IGS_AD_SYSADM_OFRRESP_STATUS';
71 CLOSE c_count;
72 RETURN FALSE;
73 END IF;
74 END IF;
75 CLOSE c_count;
76 RETURN TRUE;
77 END;
78 EXCEPTION
79 WHEN OTHERS THEN
80 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
81 Fnd_Message.Set_Token('NAME','IGS_AD_VAL_AORS.admp_val_aors_dflt');
82 IGS_GE_MSG_STACK.ADD;
83 App_Exception.Raise_Exception;
84 END admp_val_aors_dflt;
85
86
87 END IGS_AD_VAL_AORS;