[Home] [Help]
PACKAGE BODY: APPS.OZF_THRESHOLD_RULE_PVT_W
Source
1 package body ozf_threshold_rule_pvt_w as
2 /* $Header: ozfwtrub.pls 120.0.12020000.2 2012/07/25 06:49:54 sariff ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p3(t out nocopy ozf_threshold_rule_pvt.threshold_rule_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_DATE_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_DATE_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_VARCHAR2_TABLE_100
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_NUMBER_TABLE
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_DATE_TABLE
27 , a11 JTF_VARCHAR2_TABLE_100
28 , a12 JTF_VARCHAR2_TABLE_100
29 , a13 JTF_VARCHAR2_TABLE_100
30 , a14 JTF_VARCHAR2_TABLE_100
31 , a15 JTF_VARCHAR2_TABLE_100
32 , a16 JTF_NUMBER_TABLE
33 , a17 JTF_DATE_TABLE
34 , a18 JTF_DATE_TABLE
35 , a19 JTF_VARCHAR2_TABLE_100
36 , a20 JTF_VARCHAR2_TABLE_100
37 , a21 JTF_NUMBER_TABLE
38 , a22 JTF_VARCHAR2_TABLE_100
39 , a23 JTF_VARCHAR2_TABLE_100
40 , a24 JTF_NUMBER_TABLE
41 , a25 JTF_VARCHAR2_TABLE_100
42 , a26 JTF_VARCHAR2_TABLE_100
43 , a27 JTF_VARCHAR2_TABLE_200
44 , a28 JTF_VARCHAR2_TABLE_200
45 , a29 JTF_VARCHAR2_TABLE_200
46 , a30 JTF_VARCHAR2_TABLE_200
47 , a31 JTF_VARCHAR2_TABLE_200
48 , a32 JTF_VARCHAR2_TABLE_200
49 , a33 JTF_VARCHAR2_TABLE_200
50 , a34 JTF_VARCHAR2_TABLE_200
51 , a35 JTF_VARCHAR2_TABLE_200
52 , a36 JTF_VARCHAR2_TABLE_200
53 , a37 JTF_VARCHAR2_TABLE_200
54 , a38 JTF_VARCHAR2_TABLE_200
55 , a39 JTF_VARCHAR2_TABLE_200
56 , a40 JTF_VARCHAR2_TABLE_200
57 , a41 JTF_VARCHAR2_TABLE_200
58 , a42 JTF_NUMBER_TABLE
59 , a43 JTF_NUMBER_TABLE
60 , a44 JTF_NUMBER_TABLE
61 , a45 JTF_NUMBER_TABLE
62 , a46 JTF_VARCHAR2_TABLE_100
63 , a47 JTF_VARCHAR2_TABLE_100
64 ) as
65 ddindx binary_integer; indx binary_integer;
66 begin
67 if a0 is not null and a0.count > 0 then
68 if a0.count > 0 then
69 indx := a0.first;
70 ddindx := 1;
71 while true loop
72 t(ddindx).threshold_rule_id := a0(indx);
73 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a1(indx));
74 t(ddindx).last_updated_by := a2(indx);
75 t(ddindx).last_update_login := a3(indx);
76 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
77 t(ddindx).created_by := a5(indx);
78 t(ddindx).created_from := a6(indx);
79 t(ddindx).request_id := a7(indx);
80 t(ddindx).program_application_id := a8(indx);
81 t(ddindx).program_id := a9(indx);
82 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a10(indx));
83 t(ddindx).period_type := a11(indx);
84 t(ddindx).enabled_flag := a12(indx);
85 t(ddindx).threshold_calendar := a13(indx);
86 t(ddindx).start_period_name := a14(indx);
87 t(ddindx).end_period_name := a15(indx);
88 t(ddindx).threshold_id := a16(indx);
89 t(ddindx).start_date := rosetta_g_miss_date_in_map(a17(indx));
90 t(ddindx).end_date := rosetta_g_miss_date_in_map(a18(indx));
91 t(ddindx).value_limit := a19(indx);
92 t(ddindx).operator_code := a20(indx);
93 t(ddindx).percent_amount := a21(indx);
94 t(ddindx).base_line := a22(indx);
95 t(ddindx).error_mode := a23(indx);
96 t(ddindx).repeat_frequency := a24(indx);
97 t(ddindx).frequency_period := a25(indx);
98 t(ddindx).attribute_category := a26(indx);
99 t(ddindx).attribute1 := a27(indx);
100 t(ddindx).attribute2 := a28(indx);
101 t(ddindx).attribute3 := a29(indx);
102 t(ddindx).attribute4 := a30(indx);
103 t(ddindx).attribute5 := a31(indx);
104 t(ddindx).attribute6 := a32(indx);
105 t(ddindx).attribute7 := a33(indx);
106 t(ddindx).attribute8 := a34(indx);
107 t(ddindx).attribute9 := a35(indx);
108 t(ddindx).attribute10 := a36(indx);
109 t(ddindx).attribute11 := a37(indx);
110 t(ddindx).attribute12 := a38(indx);
111 t(ddindx).attribute13 := a39(indx);
112 t(ddindx).attribute14 := a40(indx);
113 t(ddindx).attribute15 := a41(indx);
114 t(ddindx).org_id := a42(indx);
115 t(ddindx).security_group_id := a43(indx);
116 t(ddindx).converted_days := a44(indx);
117 t(ddindx).object_version_number := a45(indx);
118 t(ddindx).comparison_type := a46(indx);
119 t(ddindx).alert_type := a47(indx);
120 ddindx := ddindx+1;
121 if a0.last =indx
122 then exit;
123 end if;
124 indx := a0.next(indx);
125 end loop;
126 end if;
127 end if;
128 end rosetta_table_copy_in_p3;
129 procedure rosetta_table_copy_out_p3(t ozf_threshold_rule_pvt.threshold_rule_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
130 , a1 out nocopy JTF_DATE_TABLE
131 , a2 out nocopy JTF_NUMBER_TABLE
132 , a3 out nocopy JTF_NUMBER_TABLE
133 , a4 out nocopy JTF_DATE_TABLE
134 , a5 out nocopy JTF_NUMBER_TABLE
135 , a6 out nocopy JTF_VARCHAR2_TABLE_100
136 , a7 out nocopy JTF_NUMBER_TABLE
137 , a8 out nocopy JTF_NUMBER_TABLE
138 , a9 out nocopy JTF_NUMBER_TABLE
139 , a10 out nocopy JTF_DATE_TABLE
140 , a11 out nocopy JTF_VARCHAR2_TABLE_100
141 , a12 out nocopy JTF_VARCHAR2_TABLE_100
142 , a13 out nocopy JTF_VARCHAR2_TABLE_100
143 , a14 out nocopy JTF_VARCHAR2_TABLE_100
144 , a15 out nocopy JTF_VARCHAR2_TABLE_100
145 , a16 out nocopy JTF_NUMBER_TABLE
146 , a17 out nocopy JTF_DATE_TABLE
147 , a18 out nocopy JTF_DATE_TABLE
148 , a19 out nocopy JTF_VARCHAR2_TABLE_100
149 , a20 out nocopy JTF_VARCHAR2_TABLE_100
150 , a21 out nocopy JTF_NUMBER_TABLE
151 , a22 out nocopy JTF_VARCHAR2_TABLE_100
152 , a23 out nocopy JTF_VARCHAR2_TABLE_100
153 , a24 out nocopy JTF_NUMBER_TABLE
154 , a25 out nocopy JTF_VARCHAR2_TABLE_100
155 , a26 out nocopy JTF_VARCHAR2_TABLE_100
156 , a27 out nocopy JTF_VARCHAR2_TABLE_200
157 , a28 out nocopy JTF_VARCHAR2_TABLE_200
158 , a29 out nocopy JTF_VARCHAR2_TABLE_200
159 , a30 out nocopy JTF_VARCHAR2_TABLE_200
160 , a31 out nocopy JTF_VARCHAR2_TABLE_200
161 , a32 out nocopy JTF_VARCHAR2_TABLE_200
162 , a33 out nocopy JTF_VARCHAR2_TABLE_200
163 , a34 out nocopy JTF_VARCHAR2_TABLE_200
164 , a35 out nocopy JTF_VARCHAR2_TABLE_200
165 , a36 out nocopy JTF_VARCHAR2_TABLE_200
166 , a37 out nocopy JTF_VARCHAR2_TABLE_200
167 , a38 out nocopy JTF_VARCHAR2_TABLE_200
168 , a39 out nocopy JTF_VARCHAR2_TABLE_200
169 , a40 out nocopy JTF_VARCHAR2_TABLE_200
170 , a41 out nocopy JTF_VARCHAR2_TABLE_200
171 , a42 out nocopy JTF_NUMBER_TABLE
172 , a43 out nocopy JTF_NUMBER_TABLE
173 , a44 out nocopy JTF_NUMBER_TABLE
174 , a45 out nocopy JTF_NUMBER_TABLE
175 , a46 out nocopy JTF_VARCHAR2_TABLE_100
176 , a47 out nocopy JTF_VARCHAR2_TABLE_100
177 ) as
178 ddindx binary_integer; indx binary_integer;
179 begin
180 if t is null or t.count = 0 then
181 a0 := JTF_NUMBER_TABLE();
182 a1 := JTF_DATE_TABLE();
183 a2 := JTF_NUMBER_TABLE();
184 a3 := JTF_NUMBER_TABLE();
185 a4 := JTF_DATE_TABLE();
186 a5 := JTF_NUMBER_TABLE();
187 a6 := JTF_VARCHAR2_TABLE_100();
188 a7 := JTF_NUMBER_TABLE();
189 a8 := JTF_NUMBER_TABLE();
190 a9 := JTF_NUMBER_TABLE();
191 a10 := JTF_DATE_TABLE();
192 a11 := JTF_VARCHAR2_TABLE_100();
193 a12 := JTF_VARCHAR2_TABLE_100();
194 a13 := JTF_VARCHAR2_TABLE_100();
195 a14 := JTF_VARCHAR2_TABLE_100();
196 a15 := JTF_VARCHAR2_TABLE_100();
197 a16 := JTF_NUMBER_TABLE();
198 a17 := JTF_DATE_TABLE();
199 a18 := JTF_DATE_TABLE();
200 a19 := JTF_VARCHAR2_TABLE_100();
201 a20 := JTF_VARCHAR2_TABLE_100();
202 a21 := JTF_NUMBER_TABLE();
203 a22 := JTF_VARCHAR2_TABLE_100();
204 a23 := JTF_VARCHAR2_TABLE_100();
205 a24 := JTF_NUMBER_TABLE();
206 a25 := JTF_VARCHAR2_TABLE_100();
207 a26 := JTF_VARCHAR2_TABLE_100();
208 a27 := JTF_VARCHAR2_TABLE_200();
209 a28 := JTF_VARCHAR2_TABLE_200();
210 a29 := JTF_VARCHAR2_TABLE_200();
211 a30 := JTF_VARCHAR2_TABLE_200();
212 a31 := JTF_VARCHAR2_TABLE_200();
213 a32 := JTF_VARCHAR2_TABLE_200();
214 a33 := JTF_VARCHAR2_TABLE_200();
215 a34 := JTF_VARCHAR2_TABLE_200();
216 a35 := JTF_VARCHAR2_TABLE_200();
217 a36 := JTF_VARCHAR2_TABLE_200();
218 a37 := JTF_VARCHAR2_TABLE_200();
219 a38 := JTF_VARCHAR2_TABLE_200();
220 a39 := JTF_VARCHAR2_TABLE_200();
221 a40 := JTF_VARCHAR2_TABLE_200();
222 a41 := JTF_VARCHAR2_TABLE_200();
223 a42 := JTF_NUMBER_TABLE();
224 a43 := JTF_NUMBER_TABLE();
225 a44 := JTF_NUMBER_TABLE();
226 a45 := JTF_NUMBER_TABLE();
227 a46 := JTF_VARCHAR2_TABLE_100();
228 a47 := JTF_VARCHAR2_TABLE_100();
229 else
230 a0 := JTF_NUMBER_TABLE();
231 a1 := JTF_DATE_TABLE();
232 a2 := JTF_NUMBER_TABLE();
233 a3 := JTF_NUMBER_TABLE();
234 a4 := JTF_DATE_TABLE();
235 a5 := JTF_NUMBER_TABLE();
236 a6 := JTF_VARCHAR2_TABLE_100();
237 a7 := JTF_NUMBER_TABLE();
238 a8 := JTF_NUMBER_TABLE();
239 a9 := JTF_NUMBER_TABLE();
240 a10 := JTF_DATE_TABLE();
241 a11 := JTF_VARCHAR2_TABLE_100();
242 a12 := JTF_VARCHAR2_TABLE_100();
243 a13 := JTF_VARCHAR2_TABLE_100();
244 a14 := JTF_VARCHAR2_TABLE_100();
245 a15 := JTF_VARCHAR2_TABLE_100();
246 a16 := JTF_NUMBER_TABLE();
247 a17 := JTF_DATE_TABLE();
248 a18 := JTF_DATE_TABLE();
249 a19 := JTF_VARCHAR2_TABLE_100();
250 a20 := JTF_VARCHAR2_TABLE_100();
251 a21 := JTF_NUMBER_TABLE();
252 a22 := JTF_VARCHAR2_TABLE_100();
253 a23 := JTF_VARCHAR2_TABLE_100();
254 a24 := JTF_NUMBER_TABLE();
255 a25 := JTF_VARCHAR2_TABLE_100();
256 a26 := JTF_VARCHAR2_TABLE_100();
257 a27 := JTF_VARCHAR2_TABLE_200();
258 a28 := JTF_VARCHAR2_TABLE_200();
259 a29 := JTF_VARCHAR2_TABLE_200();
260 a30 := JTF_VARCHAR2_TABLE_200();
261 a31 := JTF_VARCHAR2_TABLE_200();
262 a32 := JTF_VARCHAR2_TABLE_200();
263 a33 := JTF_VARCHAR2_TABLE_200();
264 a34 := JTF_VARCHAR2_TABLE_200();
265 a35 := JTF_VARCHAR2_TABLE_200();
266 a36 := JTF_VARCHAR2_TABLE_200();
267 a37 := JTF_VARCHAR2_TABLE_200();
268 a38 := JTF_VARCHAR2_TABLE_200();
269 a39 := JTF_VARCHAR2_TABLE_200();
270 a40 := JTF_VARCHAR2_TABLE_200();
271 a41 := JTF_VARCHAR2_TABLE_200();
272 a42 := JTF_NUMBER_TABLE();
273 a43 := JTF_NUMBER_TABLE();
274 a44 := JTF_NUMBER_TABLE();
275 a45 := JTF_NUMBER_TABLE();
276 a46 := JTF_VARCHAR2_TABLE_100();
277 a47 := JTF_VARCHAR2_TABLE_100();
278 if t.count > 0 then
279 a0.extend(t.count);
280 a1.extend(t.count);
281 a2.extend(t.count);
282 a3.extend(t.count);
283 a4.extend(t.count);
284 a5.extend(t.count);
285 a6.extend(t.count);
286 a7.extend(t.count);
287 a8.extend(t.count);
288 a9.extend(t.count);
289 a10.extend(t.count);
290 a11.extend(t.count);
291 a12.extend(t.count);
292 a13.extend(t.count);
293 a14.extend(t.count);
294 a15.extend(t.count);
295 a16.extend(t.count);
296 a17.extend(t.count);
297 a18.extend(t.count);
298 a19.extend(t.count);
299 a20.extend(t.count);
300 a21.extend(t.count);
301 a22.extend(t.count);
302 a23.extend(t.count);
303 a24.extend(t.count);
304 a25.extend(t.count);
305 a26.extend(t.count);
306 a27.extend(t.count);
307 a28.extend(t.count);
308 a29.extend(t.count);
309 a30.extend(t.count);
310 a31.extend(t.count);
311 a32.extend(t.count);
312 a33.extend(t.count);
313 a34.extend(t.count);
314 a35.extend(t.count);
315 a36.extend(t.count);
316 a37.extend(t.count);
317 a38.extend(t.count);
318 a39.extend(t.count);
319 a40.extend(t.count);
320 a41.extend(t.count);
321 a42.extend(t.count);
322 a43.extend(t.count);
323 a44.extend(t.count);
324 a45.extend(t.count);
325 a46.extend(t.count);
326 a47.extend(t.count);
327 ddindx := t.first;
328 indx := 1;
329 while true loop
330 a0(indx) := t(ddindx).threshold_rule_id;
331 a1(indx) := t(ddindx).last_update_date;
332 a2(indx) := t(ddindx).last_updated_by;
333 a3(indx) := t(ddindx).last_update_login;
334 a4(indx) := t(ddindx).creation_date;
335 a5(indx) := t(ddindx).created_by;
336 a6(indx) := t(ddindx).created_from;
337 a7(indx) := t(ddindx).request_id;
338 a8(indx) := t(ddindx).program_application_id;
339 a9(indx) := t(ddindx).program_id;
340 a10(indx) := t(ddindx).program_update_date;
341 a11(indx) := t(ddindx).period_type;
342 a12(indx) := t(ddindx).enabled_flag;
343 a13(indx) := t(ddindx).threshold_calendar;
344 a14(indx) := t(ddindx).start_period_name;
345 a15(indx) := t(ddindx).end_period_name;
346 a16(indx) := t(ddindx).threshold_id;
347 a17(indx) := t(ddindx).start_date;
348 a18(indx) := t(ddindx).end_date;
349 a19(indx) := t(ddindx).value_limit;
350 a20(indx) := t(ddindx).operator_code;
351 a21(indx) := t(ddindx).percent_amount;
352 a22(indx) := t(ddindx).base_line;
353 a23(indx) := t(ddindx).error_mode;
354 a24(indx) := t(ddindx).repeat_frequency;
355 a25(indx) := t(ddindx).frequency_period;
356 a26(indx) := t(ddindx).attribute_category;
357 a27(indx) := t(ddindx).attribute1;
358 a28(indx) := t(ddindx).attribute2;
359 a29(indx) := t(ddindx).attribute3;
360 a30(indx) := t(ddindx).attribute4;
361 a31(indx) := t(ddindx).attribute5;
362 a32(indx) := t(ddindx).attribute6;
363 a33(indx) := t(ddindx).attribute7;
364 a34(indx) := t(ddindx).attribute8;
365 a35(indx) := t(ddindx).attribute9;
366 a36(indx) := t(ddindx).attribute10;
367 a37(indx) := t(ddindx).attribute11;
368 a38(indx) := t(ddindx).attribute12;
369 a39(indx) := t(ddindx).attribute13;
370 a40(indx) := t(ddindx).attribute14;
371 a41(indx) := t(ddindx).attribute15;
372 a42(indx) := t(ddindx).org_id;
373 a43(indx) := t(ddindx).security_group_id;
374 a44(indx) := t(ddindx).converted_days;
375 a45(indx) := t(ddindx).object_version_number;
376 a46(indx) := t(ddindx).comparison_type;
377 a47(indx) := t(ddindx).alert_type;
378 indx := indx+1;
379 if t.last =ddindx
380 then exit;
381 end if;
382 ddindx := t.next(ddindx);
383 end loop;
384 end if;
385 end if;
386 end rosetta_table_copy_out_p3;
387
388 procedure create_threshold_rule(p_api_version_number NUMBER
389 , p_init_msg_list VARCHAR2
390 , p_commit VARCHAR2
391 , p_validation_level NUMBER
392 , x_return_status out nocopy VARCHAR2
393 , x_msg_count out nocopy NUMBER
394 , x_msg_data out nocopy VARCHAR2
395 , p7_a0 NUMBER
396 , p7_a1 DATE
397 , p7_a2 NUMBER
398 , p7_a3 NUMBER
399 , p7_a4 DATE
400 , p7_a5 NUMBER
401 , p7_a6 VARCHAR2
402 , p7_a7 NUMBER
403 , p7_a8 NUMBER
404 , p7_a9 NUMBER
405 , p7_a10 DATE
406 , p7_a11 VARCHAR2
407 , p7_a12 VARCHAR2
408 , p7_a13 VARCHAR2
409 , p7_a14 VARCHAR2
410 , p7_a15 VARCHAR2
411 , p7_a16 NUMBER
412 , p7_a17 DATE
413 , p7_a18 DATE
414 , p7_a19 VARCHAR2
415 , p7_a20 VARCHAR2
416 , p7_a21 NUMBER
417 , p7_a22 VARCHAR2
418 , p7_a23 VARCHAR2
419 , p7_a24 NUMBER
420 , p7_a25 VARCHAR2
421 , p7_a26 VARCHAR2
422 , p7_a27 VARCHAR2
423 , p7_a28 VARCHAR2
424 , p7_a29 VARCHAR2
425 , p7_a30 VARCHAR2
426 , p7_a31 VARCHAR2
427 , p7_a32 VARCHAR2
428 , p7_a33 VARCHAR2
429 , p7_a34 VARCHAR2
430 , p7_a35 VARCHAR2
431 , p7_a36 VARCHAR2
432 , p7_a37 VARCHAR2
433 , p7_a38 VARCHAR2
434 , p7_a39 VARCHAR2
435 , p7_a40 VARCHAR2
436 , p7_a41 VARCHAR2
437 , p7_a42 NUMBER
438 , p7_a43 NUMBER
439 , p7_a44 NUMBER
440 , p7_a45 NUMBER
441 , p7_a46 VARCHAR2
442 , p7_a47 VARCHAR2
443 , x_threshold_rule_id out nocopy NUMBER
444 )
445
446 as
447 ddp_threshold_rule_rec ozf_threshold_rule_pvt.threshold_rule_rec_type;
448 ddindx binary_integer; indx binary_integer;
449 begin
450
451 -- copy data to the local IN or IN-OUT args, if any
452
453
454
455
456
457
458
459 ddp_threshold_rule_rec.threshold_rule_id := p7_a0;
460 ddp_threshold_rule_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
461 ddp_threshold_rule_rec.last_updated_by := p7_a2;
462 ddp_threshold_rule_rec.last_update_login := p7_a3;
463 ddp_threshold_rule_rec.creation_date := rosetta_g_miss_date_in_map(p7_a4);
464 ddp_threshold_rule_rec.created_by := p7_a5;
465 ddp_threshold_rule_rec.created_from := p7_a6;
466 ddp_threshold_rule_rec.request_id := p7_a7;
467 ddp_threshold_rule_rec.program_application_id := p7_a8;
468 ddp_threshold_rule_rec.program_id := p7_a9;
469 ddp_threshold_rule_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a10);
470 ddp_threshold_rule_rec.period_type := p7_a11;
471 ddp_threshold_rule_rec.enabled_flag := p7_a12;
472 ddp_threshold_rule_rec.threshold_calendar := p7_a13;
473 ddp_threshold_rule_rec.start_period_name := p7_a14;
474 ddp_threshold_rule_rec.end_period_name := p7_a15;
475 ddp_threshold_rule_rec.threshold_id := p7_a16;
476 ddp_threshold_rule_rec.start_date := rosetta_g_miss_date_in_map(p7_a17);
477 ddp_threshold_rule_rec.end_date := rosetta_g_miss_date_in_map(p7_a18);
478 ddp_threshold_rule_rec.value_limit := p7_a19;
479 ddp_threshold_rule_rec.operator_code := p7_a20;
480 ddp_threshold_rule_rec.percent_amount := p7_a21;
481 ddp_threshold_rule_rec.base_line := p7_a22;
482 ddp_threshold_rule_rec.error_mode := p7_a23;
483 ddp_threshold_rule_rec.repeat_frequency := p7_a24;
484 ddp_threshold_rule_rec.frequency_period := p7_a25;
485 ddp_threshold_rule_rec.attribute_category := p7_a26;
486 ddp_threshold_rule_rec.attribute1 := p7_a27;
487 ddp_threshold_rule_rec.attribute2 := p7_a28;
488 ddp_threshold_rule_rec.attribute3 := p7_a29;
489 ddp_threshold_rule_rec.attribute4 := p7_a30;
490 ddp_threshold_rule_rec.attribute5 := p7_a31;
491 ddp_threshold_rule_rec.attribute6 := p7_a32;
492 ddp_threshold_rule_rec.attribute7 := p7_a33;
493 ddp_threshold_rule_rec.attribute8 := p7_a34;
494 ddp_threshold_rule_rec.attribute9 := p7_a35;
495 ddp_threshold_rule_rec.attribute10 := p7_a36;
496 ddp_threshold_rule_rec.attribute11 := p7_a37;
497 ddp_threshold_rule_rec.attribute12 := p7_a38;
498 ddp_threshold_rule_rec.attribute13 := p7_a39;
499 ddp_threshold_rule_rec.attribute14 := p7_a40;
500 ddp_threshold_rule_rec.attribute15 := p7_a41;
501 ddp_threshold_rule_rec.org_id := p7_a42;
502 ddp_threshold_rule_rec.security_group_id := p7_a43;
503 ddp_threshold_rule_rec.converted_days := p7_a44;
504 ddp_threshold_rule_rec.object_version_number := p7_a45;
505 ddp_threshold_rule_rec.comparison_type := p7_a46;
506 ddp_threshold_rule_rec.alert_type := p7_a47;
507
508
509 -- here's the delegated call to the old PL/SQL routine
510 ozf_threshold_rule_pvt.create_threshold_rule(p_api_version_number,
511 p_init_msg_list,
512 p_commit,
513 p_validation_level,
514 x_return_status,
515 x_msg_count,
516 x_msg_data,
517 ddp_threshold_rule_rec,
518 x_threshold_rule_id);
519
520 -- copy data back from the local variables to OUT or IN-OUT args, if any
521
522
523
524
525
526
527
528
529 end;
530
531 procedure update_threshold_rule(p_api_version_number NUMBER
532 , p_init_msg_list VARCHAR2
533 , p_commit VARCHAR2
534 , p_validation_level NUMBER
535 , x_return_status out nocopy VARCHAR2
536 , x_msg_count out nocopy NUMBER
537 , x_msg_data out nocopy VARCHAR2
538 , p7_a0 NUMBER
539 , p7_a1 DATE
540 , p7_a2 NUMBER
541 , p7_a3 NUMBER
542 , p7_a4 DATE
543 , p7_a5 NUMBER
544 , p7_a6 VARCHAR2
545 , p7_a7 NUMBER
546 , p7_a8 NUMBER
547 , p7_a9 NUMBER
548 , p7_a10 DATE
549 , p7_a11 VARCHAR2
550 , p7_a12 VARCHAR2
551 , p7_a13 VARCHAR2
552 , p7_a14 VARCHAR2
553 , p7_a15 VARCHAR2
554 , p7_a16 NUMBER
555 , p7_a17 DATE
556 , p7_a18 DATE
557 , p7_a19 VARCHAR2
558 , p7_a20 VARCHAR2
559 , p7_a21 NUMBER
560 , p7_a22 VARCHAR2
561 , p7_a23 VARCHAR2
562 , p7_a24 NUMBER
563 , p7_a25 VARCHAR2
564 , p7_a26 VARCHAR2
565 , p7_a27 VARCHAR2
566 , p7_a28 VARCHAR2
567 , p7_a29 VARCHAR2
568 , p7_a30 VARCHAR2
569 , p7_a31 VARCHAR2
570 , p7_a32 VARCHAR2
571 , p7_a33 VARCHAR2
572 , p7_a34 VARCHAR2
573 , p7_a35 VARCHAR2
574 , p7_a36 VARCHAR2
575 , p7_a37 VARCHAR2
576 , p7_a38 VARCHAR2
577 , p7_a39 VARCHAR2
578 , p7_a40 VARCHAR2
579 , p7_a41 VARCHAR2
580 , p7_a42 NUMBER
581 , p7_a43 NUMBER
582 , p7_a44 NUMBER
583 , p7_a45 NUMBER
584 , p7_a46 VARCHAR2
585 , p7_a47 VARCHAR2
586 , x_object_version_number out nocopy NUMBER
587 )
588
589 as
590 ddp_threshold_rule_rec ozf_threshold_rule_pvt.threshold_rule_rec_type;
591 ddindx binary_integer; indx binary_integer;
592 begin
593
594 -- copy data to the local IN or IN-OUT args, if any
595
596
597
598
599
600
601
602 ddp_threshold_rule_rec.threshold_rule_id := p7_a0;
603 ddp_threshold_rule_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
604 ddp_threshold_rule_rec.last_updated_by := p7_a2;
605 ddp_threshold_rule_rec.last_update_login := p7_a3;
606 ddp_threshold_rule_rec.creation_date := rosetta_g_miss_date_in_map(p7_a4);
607 ddp_threshold_rule_rec.created_by := p7_a5;
608 ddp_threshold_rule_rec.created_from := p7_a6;
609 ddp_threshold_rule_rec.request_id := p7_a7;
610 ddp_threshold_rule_rec.program_application_id := p7_a8;
611 ddp_threshold_rule_rec.program_id := p7_a9;
612 ddp_threshold_rule_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a10);
613 ddp_threshold_rule_rec.period_type := p7_a11;
614 ddp_threshold_rule_rec.enabled_flag := p7_a12;
615 ddp_threshold_rule_rec.threshold_calendar := p7_a13;
616 ddp_threshold_rule_rec.start_period_name := p7_a14;
617 ddp_threshold_rule_rec.end_period_name := p7_a15;
618 ddp_threshold_rule_rec.threshold_id := p7_a16;
619 ddp_threshold_rule_rec.start_date := rosetta_g_miss_date_in_map(p7_a17);
620 ddp_threshold_rule_rec.end_date := rosetta_g_miss_date_in_map(p7_a18);
621 ddp_threshold_rule_rec.value_limit := p7_a19;
622 ddp_threshold_rule_rec.operator_code := p7_a20;
623 ddp_threshold_rule_rec.percent_amount := p7_a21;
624 ddp_threshold_rule_rec.base_line := p7_a22;
625 ddp_threshold_rule_rec.error_mode := p7_a23;
626 ddp_threshold_rule_rec.repeat_frequency := p7_a24;
627 ddp_threshold_rule_rec.frequency_period := p7_a25;
628 ddp_threshold_rule_rec.attribute_category := p7_a26;
629 ddp_threshold_rule_rec.attribute1 := p7_a27;
630 ddp_threshold_rule_rec.attribute2 := p7_a28;
631 ddp_threshold_rule_rec.attribute3 := p7_a29;
632 ddp_threshold_rule_rec.attribute4 := p7_a30;
633 ddp_threshold_rule_rec.attribute5 := p7_a31;
634 ddp_threshold_rule_rec.attribute6 := p7_a32;
635 ddp_threshold_rule_rec.attribute7 := p7_a33;
636 ddp_threshold_rule_rec.attribute8 := p7_a34;
637 ddp_threshold_rule_rec.attribute9 := p7_a35;
638 ddp_threshold_rule_rec.attribute10 := p7_a36;
639 ddp_threshold_rule_rec.attribute11 := p7_a37;
640 ddp_threshold_rule_rec.attribute12 := p7_a38;
641 ddp_threshold_rule_rec.attribute13 := p7_a39;
642 ddp_threshold_rule_rec.attribute14 := p7_a40;
643 ddp_threshold_rule_rec.attribute15 := p7_a41;
644 ddp_threshold_rule_rec.org_id := p7_a42;
645 ddp_threshold_rule_rec.security_group_id := p7_a43;
646 ddp_threshold_rule_rec.converted_days := p7_a44;
647 ddp_threshold_rule_rec.object_version_number := p7_a45;
648 ddp_threshold_rule_rec.comparison_type := p7_a46;
649 ddp_threshold_rule_rec.alert_type := p7_a47;
650
651
652 -- here's the delegated call to the old PL/SQL routine
653 ozf_threshold_rule_pvt.update_threshold_rule(p_api_version_number,
654 p_init_msg_list,
655 p_commit,
656 p_validation_level,
657 x_return_status,
658 x_msg_count,
659 x_msg_data,
660 ddp_threshold_rule_rec,
661 x_object_version_number);
662
663 -- copy data back from the local variables to OUT or IN-OUT args, if any
664
665
666
667
668
669
670
671
672 end;
673
674 procedure validate_threshold_rule(p_api_version_number NUMBER
675 , p_init_msg_list VARCHAR2
676 , p_validation_level NUMBER
677 , p3_a0 NUMBER
678 , p3_a1 DATE
679 , p3_a2 NUMBER
680 , p3_a3 NUMBER
681 , p3_a4 DATE
682 , p3_a5 NUMBER
683 , p3_a6 VARCHAR2
684 , p3_a7 NUMBER
685 , p3_a8 NUMBER
686 , p3_a9 NUMBER
687 , p3_a10 DATE
688 , p3_a11 VARCHAR2
689 , p3_a12 VARCHAR2
690 , p3_a13 VARCHAR2
691 , p3_a14 VARCHAR2
692 , p3_a15 VARCHAR2
693 , p3_a16 NUMBER
694 , p3_a17 DATE
695 , p3_a18 DATE
696 , p3_a19 VARCHAR2
697 , p3_a20 VARCHAR2
698 , p3_a21 NUMBER
699 , p3_a22 VARCHAR2
700 , p3_a23 VARCHAR2
701 , p3_a24 NUMBER
702 , p3_a25 VARCHAR2
703 , p3_a26 VARCHAR2
704 , p3_a27 VARCHAR2
705 , p3_a28 VARCHAR2
706 , p3_a29 VARCHAR2
707 , p3_a30 VARCHAR2
708 , p3_a31 VARCHAR2
709 , p3_a32 VARCHAR2
710 , p3_a33 VARCHAR2
711 , p3_a34 VARCHAR2
712 , p3_a35 VARCHAR2
713 , p3_a36 VARCHAR2
714 , p3_a37 VARCHAR2
715 , p3_a38 VARCHAR2
716 , p3_a39 VARCHAR2
717 , p3_a40 VARCHAR2
718 , p3_a41 VARCHAR2
719 , p3_a42 NUMBER
720 , p3_a43 NUMBER
721 , p3_a44 NUMBER
722 , p3_a45 NUMBER
723 , p3_a46 VARCHAR2
724 , p3_a47 VARCHAR2
725 , x_return_status out nocopy VARCHAR2
726 , x_msg_count out nocopy NUMBER
727 , x_msg_data out nocopy VARCHAR2
728 )
729
730 as
731 ddp_threshold_rule_rec ozf_threshold_rule_pvt.threshold_rule_rec_type;
732 ddindx binary_integer; indx binary_integer;
733 begin
734
735 -- copy data to the local IN or IN-OUT args, if any
736
737
738
739 ddp_threshold_rule_rec.threshold_rule_id := p3_a0;
740 ddp_threshold_rule_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a1);
741 ddp_threshold_rule_rec.last_updated_by := p3_a2;
742 ddp_threshold_rule_rec.last_update_login := p3_a3;
743 ddp_threshold_rule_rec.creation_date := rosetta_g_miss_date_in_map(p3_a4);
744 ddp_threshold_rule_rec.created_by := p3_a5;
745 ddp_threshold_rule_rec.created_from := p3_a6;
746 ddp_threshold_rule_rec.request_id := p3_a7;
747 ddp_threshold_rule_rec.program_application_id := p3_a8;
748 ddp_threshold_rule_rec.program_id := p3_a9;
749 ddp_threshold_rule_rec.program_update_date := rosetta_g_miss_date_in_map(p3_a10);
750 ddp_threshold_rule_rec.period_type := p3_a11;
751 ddp_threshold_rule_rec.enabled_flag := p3_a12;
752 ddp_threshold_rule_rec.threshold_calendar := p3_a13;
753 ddp_threshold_rule_rec.start_period_name := p3_a14;
754 ddp_threshold_rule_rec.end_period_name := p3_a15;
755 ddp_threshold_rule_rec.threshold_id := p3_a16;
756 ddp_threshold_rule_rec.start_date := rosetta_g_miss_date_in_map(p3_a17);
757 ddp_threshold_rule_rec.end_date := rosetta_g_miss_date_in_map(p3_a18);
758 ddp_threshold_rule_rec.value_limit := p3_a19;
759 ddp_threshold_rule_rec.operator_code := p3_a20;
760 ddp_threshold_rule_rec.percent_amount := p3_a21;
761 ddp_threshold_rule_rec.base_line := p3_a22;
762 ddp_threshold_rule_rec.error_mode := p3_a23;
763 ddp_threshold_rule_rec.repeat_frequency := p3_a24;
764 ddp_threshold_rule_rec.frequency_period := p3_a25;
765 ddp_threshold_rule_rec.attribute_category := p3_a26;
766 ddp_threshold_rule_rec.attribute1 := p3_a27;
767 ddp_threshold_rule_rec.attribute2 := p3_a28;
768 ddp_threshold_rule_rec.attribute3 := p3_a29;
769 ddp_threshold_rule_rec.attribute4 := p3_a30;
770 ddp_threshold_rule_rec.attribute5 := p3_a31;
771 ddp_threshold_rule_rec.attribute6 := p3_a32;
772 ddp_threshold_rule_rec.attribute7 := p3_a33;
773 ddp_threshold_rule_rec.attribute8 := p3_a34;
774 ddp_threshold_rule_rec.attribute9 := p3_a35;
775 ddp_threshold_rule_rec.attribute10 := p3_a36;
776 ddp_threshold_rule_rec.attribute11 := p3_a37;
777 ddp_threshold_rule_rec.attribute12 := p3_a38;
778 ddp_threshold_rule_rec.attribute13 := p3_a39;
779 ddp_threshold_rule_rec.attribute14 := p3_a40;
780 ddp_threshold_rule_rec.attribute15 := p3_a41;
781 ddp_threshold_rule_rec.org_id := p3_a42;
782 ddp_threshold_rule_rec.security_group_id := p3_a43;
783 ddp_threshold_rule_rec.converted_days := p3_a44;
784 ddp_threshold_rule_rec.object_version_number := p3_a45;
785 ddp_threshold_rule_rec.comparison_type := p3_a46;
786 ddp_threshold_rule_rec.alert_type := p3_a47;
787
788
789
790
791 -- here's the delegated call to the old PL/SQL routine
792 ozf_threshold_rule_pvt.validate_threshold_rule(p_api_version_number,
793 p_init_msg_list,
794 p_validation_level,
795 ddp_threshold_rule_rec,
796 x_return_status,
797 x_msg_count,
798 x_msg_data);
799
800 -- copy data back from the local variables to OUT or IN-OUT args, if any
801
802
803
804
805
806
807 end;
808
809 procedure check_threshold_rule_items(p0_a0 NUMBER
810 , p0_a1 DATE
811 , p0_a2 NUMBER
812 , p0_a3 NUMBER
813 , p0_a4 DATE
814 , p0_a5 NUMBER
815 , p0_a6 VARCHAR2
816 , p0_a7 NUMBER
817 , p0_a8 NUMBER
818 , p0_a9 NUMBER
819 , p0_a10 DATE
820 , p0_a11 VARCHAR2
821 , p0_a12 VARCHAR2
822 , p0_a13 VARCHAR2
823 , p0_a14 VARCHAR2
824 , p0_a15 VARCHAR2
825 , p0_a16 NUMBER
826 , p0_a17 DATE
827 , p0_a18 DATE
828 , p0_a19 VARCHAR2
829 , p0_a20 VARCHAR2
830 , p0_a21 NUMBER
831 , p0_a22 VARCHAR2
832 , p0_a23 VARCHAR2
833 , p0_a24 NUMBER
834 , p0_a25 VARCHAR2
835 , p0_a26 VARCHAR2
836 , p0_a27 VARCHAR2
837 , p0_a28 VARCHAR2
838 , p0_a29 VARCHAR2
839 , p0_a30 VARCHAR2
840 , p0_a31 VARCHAR2
841 , p0_a32 VARCHAR2
842 , p0_a33 VARCHAR2
843 , p0_a34 VARCHAR2
844 , p0_a35 VARCHAR2
845 , p0_a36 VARCHAR2
846 , p0_a37 VARCHAR2
847 , p0_a38 VARCHAR2
848 , p0_a39 VARCHAR2
849 , p0_a40 VARCHAR2
850 , p0_a41 VARCHAR2
851 , p0_a42 NUMBER
852 , p0_a43 NUMBER
853 , p0_a44 NUMBER
854 , p0_a45 NUMBER
855 , p0_a46 VARCHAR2
856 , p0_a47 VARCHAR2
857 , p_validation_mode VARCHAR2
858 , x_return_status out nocopy VARCHAR2
859 )
860
861 as
862 ddp_threshold_rule_rec ozf_threshold_rule_pvt.threshold_rule_rec_type;
863 ddindx binary_integer; indx binary_integer;
864 begin
865
866 -- copy data to the local IN or IN-OUT args, if any
867 ddp_threshold_rule_rec.threshold_rule_id := p0_a0;
868 ddp_threshold_rule_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
869 ddp_threshold_rule_rec.last_updated_by := p0_a2;
870 ddp_threshold_rule_rec.last_update_login := p0_a3;
871 ddp_threshold_rule_rec.creation_date := rosetta_g_miss_date_in_map(p0_a4);
872 ddp_threshold_rule_rec.created_by := p0_a5;
873 ddp_threshold_rule_rec.created_from := p0_a6;
874 ddp_threshold_rule_rec.request_id := p0_a7;
875 ddp_threshold_rule_rec.program_application_id := p0_a8;
876 ddp_threshold_rule_rec.program_id := p0_a9;
877 ddp_threshold_rule_rec.program_update_date := rosetta_g_miss_date_in_map(p0_a10);
878 ddp_threshold_rule_rec.period_type := p0_a11;
879 ddp_threshold_rule_rec.enabled_flag := p0_a12;
880 ddp_threshold_rule_rec.threshold_calendar := p0_a13;
881 ddp_threshold_rule_rec.start_period_name := p0_a14;
882 ddp_threshold_rule_rec.end_period_name := p0_a15;
883 ddp_threshold_rule_rec.threshold_id := p0_a16;
884 ddp_threshold_rule_rec.start_date := rosetta_g_miss_date_in_map(p0_a17);
885 ddp_threshold_rule_rec.end_date := rosetta_g_miss_date_in_map(p0_a18);
886 ddp_threshold_rule_rec.value_limit := p0_a19;
887 ddp_threshold_rule_rec.operator_code := p0_a20;
888 ddp_threshold_rule_rec.percent_amount := p0_a21;
889 ddp_threshold_rule_rec.base_line := p0_a22;
890 ddp_threshold_rule_rec.error_mode := p0_a23;
891 ddp_threshold_rule_rec.repeat_frequency := p0_a24;
892 ddp_threshold_rule_rec.frequency_period := p0_a25;
893 ddp_threshold_rule_rec.attribute_category := p0_a26;
894 ddp_threshold_rule_rec.attribute1 := p0_a27;
895 ddp_threshold_rule_rec.attribute2 := p0_a28;
896 ddp_threshold_rule_rec.attribute3 := p0_a29;
897 ddp_threshold_rule_rec.attribute4 := p0_a30;
898 ddp_threshold_rule_rec.attribute5 := p0_a31;
899 ddp_threshold_rule_rec.attribute6 := p0_a32;
900 ddp_threshold_rule_rec.attribute7 := p0_a33;
901 ddp_threshold_rule_rec.attribute8 := p0_a34;
902 ddp_threshold_rule_rec.attribute9 := p0_a35;
903 ddp_threshold_rule_rec.attribute10 := p0_a36;
904 ddp_threshold_rule_rec.attribute11 := p0_a37;
905 ddp_threshold_rule_rec.attribute12 := p0_a38;
906 ddp_threshold_rule_rec.attribute13 := p0_a39;
907 ddp_threshold_rule_rec.attribute14 := p0_a40;
908 ddp_threshold_rule_rec.attribute15 := p0_a41;
909 ddp_threshold_rule_rec.org_id := p0_a42;
910 ddp_threshold_rule_rec.security_group_id := p0_a43;
911 ddp_threshold_rule_rec.converted_days := p0_a44;
912 ddp_threshold_rule_rec.object_version_number := p0_a45;
913 ddp_threshold_rule_rec.comparison_type := p0_a46;
914 ddp_threshold_rule_rec.alert_type := p0_a47;
915
916
917
918 -- here's the delegated call to the old PL/SQL routine
919 ozf_threshold_rule_pvt.check_threshold_rule_items(ddp_threshold_rule_rec,
920 p_validation_mode,
921 x_return_status);
922
923 -- copy data back from the local variables to OUT or IN-OUT args, if any
924
925
926 end;
927
928 procedure validate_threshold_rule_rec(p_api_version_number NUMBER
929 , p_init_msg_list VARCHAR2
930 , x_return_status out nocopy VARCHAR2
931 , x_msg_count out nocopy NUMBER
932 , x_msg_data out nocopy VARCHAR2
933 , p5_a0 NUMBER
934 , p5_a1 DATE
935 , p5_a2 NUMBER
936 , p5_a3 NUMBER
937 , p5_a4 DATE
938 , p5_a5 NUMBER
939 , p5_a6 VARCHAR2
940 , p5_a7 NUMBER
941 , p5_a8 NUMBER
942 , p5_a9 NUMBER
943 , p5_a10 DATE
944 , p5_a11 VARCHAR2
945 , p5_a12 VARCHAR2
946 , p5_a13 VARCHAR2
947 , p5_a14 VARCHAR2
948 , p5_a15 VARCHAR2
949 , p5_a16 NUMBER
950 , p5_a17 DATE
951 , p5_a18 DATE
952 , p5_a19 VARCHAR2
953 , p5_a20 VARCHAR2
954 , p5_a21 NUMBER
955 , p5_a22 VARCHAR2
956 , p5_a23 VARCHAR2
957 , p5_a24 NUMBER
958 , p5_a25 VARCHAR2
959 , p5_a26 VARCHAR2
960 , p5_a27 VARCHAR2
961 , p5_a28 VARCHAR2
962 , p5_a29 VARCHAR2
963 , p5_a30 VARCHAR2
964 , p5_a31 VARCHAR2
965 , p5_a32 VARCHAR2
966 , p5_a33 VARCHAR2
967 , p5_a34 VARCHAR2
968 , p5_a35 VARCHAR2
969 , p5_a36 VARCHAR2
970 , p5_a37 VARCHAR2
971 , p5_a38 VARCHAR2
972 , p5_a39 VARCHAR2
973 , p5_a40 VARCHAR2
974 , p5_a41 VARCHAR2
975 , p5_a42 NUMBER
976 , p5_a43 NUMBER
977 , p5_a44 NUMBER
978 , p5_a45 NUMBER
979 , p5_a46 VARCHAR2
980 , p5_a47 VARCHAR2
981 )
982
983 as
984 ddp_threshold_rule_rec ozf_threshold_rule_pvt.threshold_rule_rec_type;
985 ddindx binary_integer; indx binary_integer;
986 begin
987
988 -- copy data to the local IN or IN-OUT args, if any
989
990
991
992
993
994 ddp_threshold_rule_rec.threshold_rule_id := p5_a0;
995 ddp_threshold_rule_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
996 ddp_threshold_rule_rec.last_updated_by := p5_a2;
997 ddp_threshold_rule_rec.last_update_login := p5_a3;
998 ddp_threshold_rule_rec.creation_date := rosetta_g_miss_date_in_map(p5_a4);
999 ddp_threshold_rule_rec.created_by := p5_a5;
1000 ddp_threshold_rule_rec.created_from := p5_a6;
1001 ddp_threshold_rule_rec.request_id := p5_a7;
1002 ddp_threshold_rule_rec.program_application_id := p5_a8;
1003 ddp_threshold_rule_rec.program_id := p5_a9;
1004 ddp_threshold_rule_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
1005 ddp_threshold_rule_rec.period_type := p5_a11;
1006 ddp_threshold_rule_rec.enabled_flag := p5_a12;
1007 ddp_threshold_rule_rec.threshold_calendar := p5_a13;
1008 ddp_threshold_rule_rec.start_period_name := p5_a14;
1009 ddp_threshold_rule_rec.end_period_name := p5_a15;
1010 ddp_threshold_rule_rec.threshold_id := p5_a16;
1011 ddp_threshold_rule_rec.start_date := rosetta_g_miss_date_in_map(p5_a17);
1012 ddp_threshold_rule_rec.end_date := rosetta_g_miss_date_in_map(p5_a18);
1013 ddp_threshold_rule_rec.value_limit := p5_a19;
1014 ddp_threshold_rule_rec.operator_code := p5_a20;
1015 ddp_threshold_rule_rec.percent_amount := p5_a21;
1016 ddp_threshold_rule_rec.base_line := p5_a22;
1017 ddp_threshold_rule_rec.error_mode := p5_a23;
1018 ddp_threshold_rule_rec.repeat_frequency := p5_a24;
1019 ddp_threshold_rule_rec.frequency_period := p5_a25;
1020 ddp_threshold_rule_rec.attribute_category := p5_a26;
1021 ddp_threshold_rule_rec.attribute1 := p5_a27;
1022 ddp_threshold_rule_rec.attribute2 := p5_a28;
1023 ddp_threshold_rule_rec.attribute3 := p5_a29;
1024 ddp_threshold_rule_rec.attribute4 := p5_a30;
1025 ddp_threshold_rule_rec.attribute5 := p5_a31;
1026 ddp_threshold_rule_rec.attribute6 := p5_a32;
1027 ddp_threshold_rule_rec.attribute7 := p5_a33;
1028 ddp_threshold_rule_rec.attribute8 := p5_a34;
1029 ddp_threshold_rule_rec.attribute9 := p5_a35;
1030 ddp_threshold_rule_rec.attribute10 := p5_a36;
1031 ddp_threshold_rule_rec.attribute11 := p5_a37;
1032 ddp_threshold_rule_rec.attribute12 := p5_a38;
1033 ddp_threshold_rule_rec.attribute13 := p5_a39;
1034 ddp_threshold_rule_rec.attribute14 := p5_a40;
1035 ddp_threshold_rule_rec.attribute15 := p5_a41;
1036 ddp_threshold_rule_rec.org_id := p5_a42;
1037 ddp_threshold_rule_rec.security_group_id := p5_a43;
1038 ddp_threshold_rule_rec.converted_days := p5_a44;
1039 ddp_threshold_rule_rec.object_version_number := p5_a45;
1040 ddp_threshold_rule_rec.comparison_type := p5_a46;
1041 ddp_threshold_rule_rec.alert_type := p5_a47;
1042
1043 -- here's the delegated call to the old PL/SQL routine
1044 ozf_threshold_rule_pvt.validate_threshold_rule_rec(p_api_version_number,
1045 p_init_msg_list,
1046 x_return_status,
1047 x_msg_count,
1048 x_msg_data,
1049 ddp_threshold_rule_rec);
1050
1051 -- copy data back from the local variables to OUT or IN-OUT args, if any
1052
1053
1054
1055
1056
1057 end;
1058
1059 procedure complete_threshold_rule_rec(p0_a0 NUMBER
1060 , p0_a1 DATE
1061 , p0_a2 NUMBER
1062 , p0_a3 NUMBER
1063 , p0_a4 DATE
1064 , p0_a5 NUMBER
1065 , p0_a6 VARCHAR2
1066 , p0_a7 NUMBER
1067 , p0_a8 NUMBER
1068 , p0_a9 NUMBER
1069 , p0_a10 DATE
1070 , p0_a11 VARCHAR2
1071 , p0_a12 VARCHAR2
1072 , p0_a13 VARCHAR2
1073 , p0_a14 VARCHAR2
1074 , p0_a15 VARCHAR2
1075 , p0_a16 NUMBER
1076 , p0_a17 DATE
1077 , p0_a18 DATE
1078 , p0_a19 VARCHAR2
1079 , p0_a20 VARCHAR2
1080 , p0_a21 NUMBER
1081 , p0_a22 VARCHAR2
1082 , p0_a23 VARCHAR2
1083 , p0_a24 NUMBER
1084 , p0_a25 VARCHAR2
1085 , p0_a26 VARCHAR2
1086 , p0_a27 VARCHAR2
1087 , p0_a28 VARCHAR2
1088 , p0_a29 VARCHAR2
1089 , p0_a30 VARCHAR2
1090 , p0_a31 VARCHAR2
1091 , p0_a32 VARCHAR2
1092 , p0_a33 VARCHAR2
1093 , p0_a34 VARCHAR2
1094 , p0_a35 VARCHAR2
1095 , p0_a36 VARCHAR2
1096 , p0_a37 VARCHAR2
1097 , p0_a38 VARCHAR2
1098 , p0_a39 VARCHAR2
1099 , p0_a40 VARCHAR2
1100 , p0_a41 VARCHAR2
1101 , p0_a42 NUMBER
1102 , p0_a43 NUMBER
1103 , p0_a44 NUMBER
1104 , p0_a45 NUMBER
1105 , p0_a46 VARCHAR2
1106 , p0_a47 VARCHAR2
1107 , p1_a0 out nocopy NUMBER
1108 , p1_a1 out nocopy DATE
1109 , p1_a2 out nocopy NUMBER
1110 , p1_a3 out nocopy NUMBER
1111 , p1_a4 out nocopy DATE
1112 , p1_a5 out nocopy NUMBER
1113 , p1_a6 out nocopy VARCHAR2
1114 , p1_a7 out nocopy NUMBER
1115 , p1_a8 out nocopy NUMBER
1116 , p1_a9 out nocopy NUMBER
1117 , p1_a10 out nocopy DATE
1118 , p1_a11 out nocopy VARCHAR2
1119 , p1_a12 out nocopy VARCHAR2
1120 , p1_a13 out nocopy VARCHAR2
1121 , p1_a14 out nocopy VARCHAR2
1122 , p1_a15 out nocopy VARCHAR2
1123 , p1_a16 out nocopy NUMBER
1124 , p1_a17 out nocopy DATE
1125 , p1_a18 out nocopy DATE
1126 , p1_a19 out nocopy VARCHAR2
1127 , p1_a20 out nocopy VARCHAR2
1128 , p1_a21 out nocopy NUMBER
1129 , p1_a22 out nocopy VARCHAR2
1130 , p1_a23 out nocopy VARCHAR2
1131 , p1_a24 out nocopy NUMBER
1132 , p1_a25 out nocopy VARCHAR2
1133 , p1_a26 out nocopy VARCHAR2
1134 , p1_a27 out nocopy VARCHAR2
1135 , p1_a28 out nocopy VARCHAR2
1136 , p1_a29 out nocopy VARCHAR2
1137 , p1_a30 out nocopy VARCHAR2
1138 , p1_a31 out nocopy VARCHAR2
1139 , p1_a32 out nocopy VARCHAR2
1140 , p1_a33 out nocopy VARCHAR2
1141 , p1_a34 out nocopy VARCHAR2
1142 , p1_a35 out nocopy VARCHAR2
1143 , p1_a36 out nocopy VARCHAR2
1144 , p1_a37 out nocopy VARCHAR2
1145 , p1_a38 out nocopy VARCHAR2
1146 , p1_a39 out nocopy VARCHAR2
1147 , p1_a40 out nocopy VARCHAR2
1148 , p1_a41 out nocopy VARCHAR2
1149 , p1_a42 out nocopy NUMBER
1150 , p1_a43 out nocopy NUMBER
1151 , p1_a44 out nocopy NUMBER
1152 , p1_a45 out nocopy NUMBER
1153 , p1_a46 out nocopy VARCHAR2
1154 , p1_a47 out nocopy VARCHAR2
1155 )
1156
1157 as
1158 ddp_threshold_rule_rec ozf_threshold_rule_pvt.threshold_rule_rec_type;
1159 ddx_complete_rec ozf_threshold_rule_pvt.threshold_rule_rec_type;
1160 ddindx binary_integer; indx binary_integer;
1161 begin
1162
1163 -- copy data to the local IN or IN-OUT args, if any
1164 ddp_threshold_rule_rec.threshold_rule_id := p0_a0;
1165 ddp_threshold_rule_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
1166 ddp_threshold_rule_rec.last_updated_by := p0_a2;
1167 ddp_threshold_rule_rec.last_update_login := p0_a3;
1168 ddp_threshold_rule_rec.creation_date := rosetta_g_miss_date_in_map(p0_a4);
1169 ddp_threshold_rule_rec.created_by := p0_a5;
1170 ddp_threshold_rule_rec.created_from := p0_a6;
1171 ddp_threshold_rule_rec.request_id := p0_a7;
1172 ddp_threshold_rule_rec.program_application_id := p0_a8;
1173 ddp_threshold_rule_rec.program_id := p0_a9;
1174 ddp_threshold_rule_rec.program_update_date := rosetta_g_miss_date_in_map(p0_a10);
1175 ddp_threshold_rule_rec.period_type := p0_a11;
1176 ddp_threshold_rule_rec.enabled_flag := p0_a12;
1177 ddp_threshold_rule_rec.threshold_calendar := p0_a13;
1178 ddp_threshold_rule_rec.start_period_name := p0_a14;
1179 ddp_threshold_rule_rec.end_period_name := p0_a15;
1180 ddp_threshold_rule_rec.threshold_id := p0_a16;
1181 ddp_threshold_rule_rec.start_date := rosetta_g_miss_date_in_map(p0_a17);
1182 ddp_threshold_rule_rec.end_date := rosetta_g_miss_date_in_map(p0_a18);
1183 ddp_threshold_rule_rec.value_limit := p0_a19;
1184 ddp_threshold_rule_rec.operator_code := p0_a20;
1185 ddp_threshold_rule_rec.percent_amount := p0_a21;
1186 ddp_threshold_rule_rec.base_line := p0_a22;
1187 ddp_threshold_rule_rec.error_mode := p0_a23;
1188 ddp_threshold_rule_rec.repeat_frequency := p0_a24;
1189 ddp_threshold_rule_rec.frequency_period := p0_a25;
1190 ddp_threshold_rule_rec.attribute_category := p0_a26;
1191 ddp_threshold_rule_rec.attribute1 := p0_a27;
1192 ddp_threshold_rule_rec.attribute2 := p0_a28;
1193 ddp_threshold_rule_rec.attribute3 := p0_a29;
1194 ddp_threshold_rule_rec.attribute4 := p0_a30;
1195 ddp_threshold_rule_rec.attribute5 := p0_a31;
1196 ddp_threshold_rule_rec.attribute6 := p0_a32;
1197 ddp_threshold_rule_rec.attribute7 := p0_a33;
1198 ddp_threshold_rule_rec.attribute8 := p0_a34;
1199 ddp_threshold_rule_rec.attribute9 := p0_a35;
1200 ddp_threshold_rule_rec.attribute10 := p0_a36;
1201 ddp_threshold_rule_rec.attribute11 := p0_a37;
1202 ddp_threshold_rule_rec.attribute12 := p0_a38;
1203 ddp_threshold_rule_rec.attribute13 := p0_a39;
1204 ddp_threshold_rule_rec.attribute14 := p0_a40;
1205 ddp_threshold_rule_rec.attribute15 := p0_a41;
1206 ddp_threshold_rule_rec.org_id := p0_a42;
1207 ddp_threshold_rule_rec.security_group_id := p0_a43;
1208 ddp_threshold_rule_rec.converted_days := p0_a44;
1209 ddp_threshold_rule_rec.object_version_number := p0_a45;
1210 ddp_threshold_rule_rec.comparison_type := p0_a46;
1211 ddp_threshold_rule_rec.alert_type := p0_a47;
1212
1213
1214 -- here's the delegated call to the old PL/SQL routine
1215 ozf_threshold_rule_pvt.complete_threshold_rule_rec(ddp_threshold_rule_rec,
1216 ddx_complete_rec);
1217
1218 -- copy data back from the local variables to OUT or IN-OUT args, if any
1219
1220 p1_a0 := ddx_complete_rec.threshold_rule_id;
1221 p1_a1 := ddx_complete_rec.last_update_date;
1222 p1_a2 := ddx_complete_rec.last_updated_by;
1223 p1_a3 := ddx_complete_rec.last_update_login;
1224 p1_a4 := ddx_complete_rec.creation_date;
1225 p1_a5 := ddx_complete_rec.created_by;
1226 p1_a6 := ddx_complete_rec.created_from;
1227 p1_a7 := ddx_complete_rec.request_id;
1228 p1_a8 := ddx_complete_rec.program_application_id;
1229 p1_a9 := ddx_complete_rec.program_id;
1230 p1_a10 := ddx_complete_rec.program_update_date;
1231 p1_a11 := ddx_complete_rec.period_type;
1232 p1_a12 := ddx_complete_rec.enabled_flag;
1233 p1_a13 := ddx_complete_rec.threshold_calendar;
1234 p1_a14 := ddx_complete_rec.start_period_name;
1235 p1_a15 := ddx_complete_rec.end_period_name;
1236 p1_a16 := ddx_complete_rec.threshold_id;
1237 p1_a17 := ddx_complete_rec.start_date;
1238 p1_a18 := ddx_complete_rec.end_date;
1239 p1_a19 := ddx_complete_rec.value_limit;
1240 p1_a20 := ddx_complete_rec.operator_code;
1241 p1_a21 := ddx_complete_rec.percent_amount;
1242 p1_a22 := ddx_complete_rec.base_line;
1243 p1_a23 := ddx_complete_rec.error_mode;
1244 p1_a24 := ddx_complete_rec.repeat_frequency;
1245 p1_a25 := ddx_complete_rec.frequency_period;
1246 p1_a26 := ddx_complete_rec.attribute_category;
1247 p1_a27 := ddx_complete_rec.attribute1;
1248 p1_a28 := ddx_complete_rec.attribute2;
1249 p1_a29 := ddx_complete_rec.attribute3;
1250 p1_a30 := ddx_complete_rec.attribute4;
1251 p1_a31 := ddx_complete_rec.attribute5;
1252 p1_a32 := ddx_complete_rec.attribute6;
1253 p1_a33 := ddx_complete_rec.attribute7;
1254 p1_a34 := ddx_complete_rec.attribute8;
1255 p1_a35 := ddx_complete_rec.attribute9;
1256 p1_a36 := ddx_complete_rec.attribute10;
1257 p1_a37 := ddx_complete_rec.attribute11;
1258 p1_a38 := ddx_complete_rec.attribute12;
1259 p1_a39 := ddx_complete_rec.attribute13;
1260 p1_a40 := ddx_complete_rec.attribute14;
1261 p1_a41 := ddx_complete_rec.attribute15;
1262 p1_a42 := ddx_complete_rec.org_id;
1263 p1_a43 := ddx_complete_rec.security_group_id;
1264 p1_a44 := ddx_complete_rec.converted_days;
1265 p1_a45 := ddx_complete_rec.object_version_number;
1266 p1_a46 := ddx_complete_rec.comparison_type;
1267 p1_a47 := ddx_complete_rec.alert_type;
1268 end;
1269
1270 end ozf_threshold_rule_pvt_w;