1 PACKAGE BODY IGS_RU_GEN_005 AS
2 /* $Header: IGSRU11B.pls 120.1 2005/07/11 06:15:55 appldev ship $ */
3 /*
4 HISTORY
5 who when what
6 gurprsin 28-Jun-2205 Bug#3392088, Added a call to IGS_FI_F_TYP_CA_INST_PKG.GET_FK1_IGS_RU_RULE for Scope_rul_sequence_number.
7 smvk 28-AUG-2002 Removed the procedure call IGS_FI_FEE_DSB_FM_RU_PKG.GET_FK_IGS_RU_CALL()
8 from CHECK_CHILD_EXISTANCE_RU_CALL and IGS_FI_FEE_DSB_FM_RU_PKG.GET_FK_IGS_RU_RULE()
9 from CHECK_CHILD_EXISTANCE_RU_RULE as a part of Build SFCR005_Cleanup_Build (Enhancement Bug # 2531390)
10 Removed default value from the procedures RULP_VAL_SCA_COMP,RULP_VAL_STG_COMP,RULP_VAL_SUSA_COMP to avoid gscc warning 'File.Pkg.22'
11 -- svenkata 14-MAR-2002 The procedures CHECK_CHILD_EXISTANCE_RU_RULE and CHECK_CHILD_EXISTANCE_RU_CALL have been
12 -- moved to the package IGS_RU_GEN_005. This procedure is being called (from the table handlers
13 -- IGS_RU_CALL_PKG and IGS_RU_RULE_PKG) only when the user is NOT DATA MERGE .Bug # 2233951.
14 */
15
16 FUNCTION RULP_VAL_SCA_COMP(
17 p_person_id IN NUMBER ,
18 p_sca_course_cd VARCHAR2 ,
19 p_sca_course_version NUMBER ,
20 p_course_cd IN VARCHAR2 ,
21 p_course_version NUMBER ,
22 p_predicted_ind VARCHAR2,
23 p_message_text OUT NOCOPY VARCHAR2 )
24 RETURN BOOLEAN IS
25 /*
26 For the given SCA determine and evaluate the rule
27 HISTORY
28 who when what
29 smvk 28-AUG-2002 Removed the default value of p_predicted_int to avoid gscc warning 'File.Pkg.22'
30 */
31 v_return_val VARCHAR2(30);
32 BEGIN
33 SAVEPOINT before_senna;
34 v_return_val := IGS_RU_GEN_001.rulp_val_senna(
35 p_rule_call_name=>'CRS-COMP',
36 p_person_id=>p_person_id,
37 p_course_cd=>p_sca_course_cd,
38 p_course_version=>p_sca_course_version,
39 p_param_3=>p_course_cd,
40 p_param_4=>p_course_version,
41 p_param_5=>p_predicted_ind,
42 p_message=>p_message_text );
43 ROLLBACK TO before_senna;
44 IF v_return_val = 'false' OR v_return_val IS NULL
45 THEN
46 RETURN FALSE;
47 END IF;
48 RETURN TRUE;
49 END RULP_VAL_SCA_COMP;
50
51 FUNCTION RULP_VAL_SCA_PRG(
52 p_rul_sequence_number NUMBER ,
53 p_person_id IN NUMBER ,
54 p_course_cd IN VARCHAR2 ,
55 p_course_version NUMBER ,
56 p_prg_cal_type IN VARCHAR2 ,
57 p_prg_ci_sequence_number IN NUMBER ,
58 p_message_text OUT NOCOPY VARCHAR2 )
59 RETURN BOOLEAN IS
60 /*
61 For the given SCA evaluate the rule number
62 */
63 v_return_val VARCHAR2(30);
64 BEGIN
65 v_return_val := IGS_RU_GEN_001.rulp_val_senna(
66 p_rule_number=>p_rul_sequence_number,
67 p_person_id=>p_person_id,
68 p_course_cd=>p_course_cd,
69 p_course_version=>p_course_version,
70 p_cal_type=>p_prg_cal_type,
71 p_ci_sequence_number=>p_prg_ci_sequence_number,
72 p_message=>p_message_text );
73 IF v_return_val = 'false' OR v_return_val IS NULL
74 THEN
75 RETURN TRUE;
76 END IF;
77 RETURN FALSE;
78 END RULP_VAL_SCA_PRG;
79
80 FUNCTION RULP_VAL_STG_COMP(
81 p_person_id IN NUMBER ,
82 p_sca_course_cd VARCHAR2 ,
83 p_sca_course_version NUMBER ,
84 p_course_cd IN VARCHAR2 ,
85 p_course_version NUMBER ,
86 p_cst_sequence_number NUMBER ,
87 p_predicted_ind VARCHAR2,
88 p_message_text OUT NOCOPY VARCHAR2 )
89 RETURN BOOLEAN IS
90 /*
91 Get and evaluate the course stage completion rule
92 HISTORY
93 who when what
94 smvk 28-AUG-2002 Removed the default value of p_predicted_int to avoid gscc warning 'File.Pkg.22'
95 */
96 v_return_val VARCHAR2(30);
97 BEGIN
98 v_return_val := IGS_RU_GEN_001.rulp_val_senna(
99 p_rule_call_name=>'STG-COMP',
100 p_person_id=>p_person_id,
101 p_course_cd=>p_sca_course_cd,
102 p_course_version=>p_sca_course_version,
103 p_param_1=>p_cst_sequence_number,
104 p_param_3=>p_course_cd,
105 p_param_4=>p_course_version,
106 p_param_5=>p_predicted_ind,
107 p_message=>p_message_text);
108
109 IF v_return_val = 'false' OR v_return_val IS NULL
110 THEN
111 RETURN FALSE;
112 END IF;
113 RETURN TRUE;
114 END RULP_VAL_STG_COMP;
115
116 FUNCTION RULP_VAL_SUSA_COMP(
117 p_person_id IN NUMBER ,
118 p_sca_course_cd VARCHAR2 ,
119 p_sca_course_version NUMBER ,
120 p_course_cd IN VARCHAR2 ,
121 p_course_version NUMBER ,
122 p_unit_set_cd IN VARCHAR2 ,
123 p_unit_set_version NUMBER ,
124 p_predicted_ind VARCHAR2,
125 p_message_text OUT NOCOPY VARCHAR2 )
126 RETURN BOOLEAN IS
127 /*
128 Get and evaluate the unit set completion rule
129 HISTORY
130 who when what
131 smvk 28-AUG-2002 Removed the default value of p_predicted_int to avoid gscc warning 'File.Pkg.22'
132 */
133 v_return_val VARCHAR2(30);
134 BEGIN
135 v_return_val := IGS_RU_GEN_001.rulp_val_senna(
136 p_rule_call_name=>'US-COMP',
137 p_person_id=>p_person_id,
138 p_course_cd=>p_sca_course_cd,
139 p_course_version=>p_sca_course_version,
140 p_param_1=>p_unit_set_cd,
141 p_param_2=>p_unit_set_version,
142 p_param_3=>p_course_cd,
143 p_param_4=>p_course_version,
144 p_param_5=>p_predicted_ind,
145 p_message=>p_message_text);
146
147 IF v_return_val = 'false' OR v_return_val IS NULL
148 THEN
149 RETURN FALSE;
150 END IF;
151 RETURN TRUE;
152 END RULP_VAL_SUSA_COMP;
153
154 PROCEDURE Check_Child_Existance_Ru_Rule(
155 p_sequence_number IN NUMBER) AS
156 /*
157 HISTORY
158 who when what
159 gurprsin 28-Jun-2205 Bug#3392088, Added a call to IGS_FI_F_TYP_CA_INST_PKG.GET_FK1_IGS_RU_RULE for Scope_rul_sequence_number.
160 smvk 28-AUG-2002 Removed the procedure call IGS_FI_FEE_DSB_FM_RU_PKG.GET_FK_IGS_RU_RULE()
161 as a part of Build SFCR005_Cleanup_Build (Enhancement Bug # 2531390)
162 */
163 BEGIN
164
165 IGS_PS_RU_PKG.GET_FK_IGS_RU_RULE (
166 p_sequence_number
167 );
168
169 IGS_PS_STAGE_RU_PKG.GET_FK_IGS_RU_RULE (
170 p_sequence_number
171 );
172
173 IGS_PS_VER_RU_PKG.GET_FK_IGS_RU_RULE (
174 p_sequence_number
175 );
176
177 IGS_FI_F_CAT_FEE_LBL_PKG.GET_FK_IGS_RU_RULE (
178 p_sequence_number
179 );
180
181 /* obsolete the call IGS_FI_FEE_DSB_FM_RU_PKG.GET_FK_IGS_RU_RULE ( ) as a part of Bug # 2531390*/
182
183 IGS_FI_F_TYP_CA_INST_PKG.GET_FK_IGS_RU_RULE (
184 p_sequence_number
185 );
186
187 Igs_Ru_Named_Rule_Pkg.GET_FK_IGS_RU_RULE (
188 p_sequence_number
189 );
190
191 IGS_PR_RULE_PKG.GET_FK_IGS_RU_RULE (
192 p_sequence_number
193 );
194
195 Igs_Ru_Item_Pkg.GET_FK_IGS_RU_RULE (
196 p_sequence_number
197 );
198
199 IGS_PS_UNIT_RU_PKG.GET_FK_IGS_RU_RULE (
200 p_sequence_number
201 );
202
203 IGS_EN_UNIT_SET_RULE_PKG.GET_FK_IGS_RU_RULE (
204 p_sequence_number
205 );
206
207 IGS_PS_UNIT_VER_RU_PKG.GET_FK_IGS_RU_RULE (
208 p_sequence_number
209 );
210
211 IGS_PS_USEC_RU_PKG.GET_FK_IGS_RU_RULE (
212 p_sequence_number
213 );
214
215 igs_en_cpd_ext_pkg.get_fk_igs_ru_rule(
216 p_sequence_number
217 );
218
219 IGS_AD_APCTR_RU_PKG.GET_FK_IGS_RU_RULE(
220 p_sequence_number
221 );
222
223 IGS_FI_F_TYP_CA_INST_PKG.GET_FK1_IGS_RU_RULE (
224 p_sequence_number
225 );
226
227 END Check_Child_Existance_Ru_rule ;
228
229 PROCEDURE Check_Child_Existance_Ru_Call
230 (p_rud_sequence_number IN NUMBER,
231 p_s_rule_call_cd IN VARCHAR2 ) AS
232 /*
233 HISTORY
234 who when what
235 smvk 28-AUG-2002 Removed the procedure call IGS_FI_FEE_DSB_FM_RU_PKG.GET_FK_IGS_RU_CALL()
236 as a part of Build SFCR005_Cleanup_Build (Enhancement Bug # 2531390)
237 */
238
239 BEGIN
240
241 IGS_RU_ITEM_PKG.GET_UFK_IGS_RU_CALL (
242 p_rud_sequence_number
243 );
244
245 IGS_PS_RU_PKG.GET_FK_IGS_RU_CALL (
246 p_s_rule_call_cd
247 );
248
249 IGS_PS_STAGE_RU_PKG.GET_FK_IGS_RU_CALL (
250 p_s_rule_call_cd
251 );
252
253 IGS_PS_VER_RU_PKG.GET_FK_IGS_RU_CALL (
254 p_s_rule_call_cd
255 );
256
257 /* Obsolete the call IGS_FI_FEE_DSB_FM_RU_PKG.GET_FK_IGS_RU_CALL as a part of the Bug # 2531390 */
258
259 IGS_PR_RU_CAT_PKG.GET_FK_IGS_RU_CALL (
260 p_s_rule_call_cd
261 );
262
263 IGS_PS_UNIT_RU_PKG.GET_FK_IGS_RU_CALL (
264 p_s_rule_call_cd
265 );
266
267 IGS_EN_UNIT_SET_RULE_PKG.GET_FK_IGS_RU_CALL (
268 p_s_rule_call_cd
269 );
270
271 IGS_PS_UNIT_VER_RU_PKG.GET_FK_IGS_RU_CALL (
272 p_s_rule_call_cd
273 );
274
275 IGS_PS_USEC_RU_PKG.GET_FK_IGS_RU_CALL (
276 p_s_rule_call_cd
277 );
278
279 igs_en_cpd_ext_pkg.get_fk_igs_ru_call (
280 p_s_rule_call_cd
281 );
282
283 END Check_Child_Existance_Ru_Call;
284
285 END IGS_RU_GEN_005;