1 PACKAGE BODY IGS_PR_VAL_SPCA AS
2 /* $Header: IGSPR14B.pls 115.4 2002/11/29 02:47:24 nsidana ship $ */
3 -------------------------------------------------------------------------------------------
4 --Change History:
5 --Who When What
6 --smadathi 26-AUG-2001 Bug No. 1956374 .The function prgp_val_cfg_cat removed
7 -------------------------------------------------------------------------------------------
8 -- Validate the appeal length field.
9 FUNCTION prgp_val_spca_appeal(
10 p_appeal_length IN NUMBER ,
11 p_message_name OUT NOCOPY VARCHAR2 )
12 RETURN BOOLEAN AS
13 gv_other_detail VARCHAR2(255);
14 BEGIN -- prgp_val_spca_appeal
15 -- Validate the appeal length field checking for,
16 -- * Cannot be set if s_prg_conf.appeal_ind is N
17 -- * Warn if not set if s_prg_conf.appeal_ind is Y
18 DECLARE
19 v_appeal_ind IGS_PR_S_PRG_CONF.appeal_ind%TYPE;
20 CURSOR c_sprgc IS
21 SELECT sprgc.appeal_ind
22 FROM IGS_PR_S_PRG_CONF sprgc
23 WHERE sprgc.s_control_num = 1;
24 BEGIN
25 -- Set the default message name
26 p_message_name := Null;
27 OPEN c_sprgc;
28 FETCH c_sprgc INTO v_appeal_ind;
29 IF c_sprgc%FOUND THEN
30 CLOSE c_sprgc;
31 IF v_appeal_ind = 'Y' AND
32 p_appeal_length IS NULL THEN
33 p_message_name := 'IGS_PR_SET_APPEAL_LEN';
34 RETURN TRUE;
35 END IF;
36 IF v_appeal_ind = 'N' AND
37 p_appeal_length IS NOT NULL THEN
38 p_message_name := 'IGS_PR_CANT_SET_APPEAL_LEN';
39 RETURN FALSE;
40 END IF;
41 ELSE
42 CLOSE c_sprgc;
43 END IF;
44 RETURN TRUE;
45 EXCEPTION
46 WHEN OTHERS THEN
47 IF c_sprgc%ISOPEN THEN
48 CLOSE c_sprgc;
49 END IF;
50 RAISE;
51 END;
52 EXCEPTION
53 WHEN OTHERS THEN
54 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
55 FND_MESSAGE.SET_TOKEN ('NAME', 'IGS_PR_VAL_SPCA.PRGP_VAL_SPCA_APPEAL');
56 IGS_GE_MSG_STACK.ADD;
57 App_Exception.Raise_Exception;
58 END prgp_val_spca_appeal;
59 --
60 -- Validate the show cause length field.
61 FUNCTION prgp_val_spca_cause(
62 p_show_cause_length IN NUMBER ,
63 p_message_name OUT NOCOPY VARCHAR2 )
64 RETURN BOOLEAN AS
65 gv_other_detail VARCHAR2(255);
66 BEGIN -- prgp_val_spca_cause
67 -- Validate the show cause length field checking for,
68 -- * Cannot be set if s_prg_conf.show_cause_ind is N
69 -- * Warn if not set if s_prg_conf.show_cause_ind is Y
70 DECLARE
71 v_show_cause_ind IGS_PR_S_PRG_CONF.show_cause_ind%TYPE;
72 CURSOR c_sprgc IS
73 SELECT sprgc.show_cause_ind
74 FROM IGS_PR_S_PRG_CONF sprgc
75 WHERE sprgc.s_control_num = 1;
76 BEGIN
77 -- Set the default message name
78 p_message_name := Null;
79 OPEN c_sprgc;
80 FETCH c_sprgc INTO v_show_cause_ind;
81 IF c_sprgc%FOUND THEN
82 CLOSE c_sprgc;
83 IF v_show_cause_ind = 'Y' AND
84 p_show_cause_length IS NULL THEN
85 p_message_name := 'IGS_PR_SET_SHOW_CAUSE_LEN';
86 RETURN TRUE;
87 END IF;
88 IF v_show_cause_ind = 'N' AND
89 p_show_cause_length IS NOT NULL THEN
90 p_message_name := 'IGS_PR_CANT_SET_SHOW_CAUS_LEN';
91 RETURN FALSE;
92 END IF;
93 ELSE
94 CLOSE c_sprgc;
95 END IF;
96 RETURN TRUE;
97 EXCEPTION
98 WHEN OTHERS THEN
99 IF c_sprgc%ISOPEN THEN
100 CLOSE c_sprgc;
101 END IF;
102 RAISE;
103 END;
104 EXCEPTION
105 WHEN OTHERS THEN
106 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
107 FND_MESSAGE.SET_TOKEN ('NAME', 'IGS_PR_VAL_SPCA.PRGP_VAL_SPCA_CAUSE');
108 IGS_GE_MSG_STACK.ADD;
109 App_Exception.Raise_Exception;
110 END prgp_val_spca_cause;
111 END IGS_PR_VAL_SPCA;