[Home] [Help]
PACKAGE BODY: APPS.OKL_VP_RULE_PVT_W
Source
1 package body okl_vp_rule_pvt_w as
2 /* $Header: OKLERLGB.pls 120.6 2005/10/20 18:48:08 smereddy noship $ */
3 procedure rosetta_table_copy_in_p3(t out nocopy okl_vp_rule_pvt.vrs_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_500
7 , a4 JTF_VARCHAR2_TABLE_500
8 , a5 JTF_VARCHAR2_TABLE_100
9 ) as
10 ddindx binary_integer; indx binary_integer;
11 begin
12 if a0 is not null and a0.count > 0 then
13 if a0.count > 0 then
14 indx := a0.first;
15 ddindx := 1;
16 while true loop
17 t(ddindx).rul_id := a0(indx);
18 t(ddindx).rgd_code := a1(indx);
19 t(ddindx).rul_code := a2(indx);
20 t(ddindx).rule_info1 := a3(indx);
21 t(ddindx).rule_info2 := a4(indx);
22 t(ddindx).rle_code := a5(indx);
23 ddindx := ddindx+1;
24 if a0.last =indx
25 then exit;
26 end if;
27 indx := a0.next(indx);
28 end loop;
29 end if;
30 end if;
31 end rosetta_table_copy_in_p3;
32 procedure rosetta_table_copy_out_p3(t okl_vp_rule_pvt.vrs_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
33 , a1 out nocopy JTF_VARCHAR2_TABLE_100
34 , a2 out nocopy JTF_VARCHAR2_TABLE_100
35 , a3 out nocopy JTF_VARCHAR2_TABLE_500
36 , a4 out nocopy JTF_VARCHAR2_TABLE_500
37 , a5 out nocopy JTF_VARCHAR2_TABLE_100
38 ) as
39 ddindx binary_integer; indx binary_integer;
40 begin
41 if t is null or t.count = 0 then
42 a0 := JTF_NUMBER_TABLE();
43 a1 := JTF_VARCHAR2_TABLE_100();
44 a2 := JTF_VARCHAR2_TABLE_100();
45 a3 := JTF_VARCHAR2_TABLE_500();
46 a4 := JTF_VARCHAR2_TABLE_500();
47 a5 := JTF_VARCHAR2_TABLE_100();
48 else
49 a0 := JTF_NUMBER_TABLE();
50 a1 := JTF_VARCHAR2_TABLE_100();
51 a2 := JTF_VARCHAR2_TABLE_100();
52 a3 := JTF_VARCHAR2_TABLE_500();
53 a4 := JTF_VARCHAR2_TABLE_500();
54 a5 := JTF_VARCHAR2_TABLE_100();
55 if t.count > 0 then
56 a0.extend(t.count);
57 a1.extend(t.count);
58 a2.extend(t.count);
59 a3.extend(t.count);
60 a4.extend(t.count);
61 a5.extend(t.count);
62 ddindx := t.first;
63 indx := 1;
64 while true loop
65 a0(indx) := t(ddindx).rul_id;
66 a1(indx) := t(ddindx).rgd_code;
67 a2(indx) := t(ddindx).rul_code;
68 a3(indx) := t(ddindx).rule_info1;
69 a4(indx) := t(ddindx).rule_info2;
70 a5(indx) := t(ddindx).rle_code;
71 indx := indx+1;
72 if t.last =ddindx
73 then exit;
74 end if;
75 ddindx := t.next(ddindx);
76 end loop;
77 end if;
78 end if;
79 end rosetta_table_copy_out_p3;
80
81 procedure create_rule_group(p_api_version NUMBER
82 , p_init_msg_list VARCHAR2
83 , x_return_status out nocopy VARCHAR2
84 , x_msg_count out nocopy NUMBER
85 , x_msg_data out nocopy VARCHAR2
86 , p5_a0 NUMBER
87 , p5_a1 NUMBER
88 , p5_a2 VARCHAR2
89 , p5_a3 VARCHAR2
90 , p5_a4 VARCHAR2
91 , p5_a5 VARCHAR2
92 , p5_a6 NUMBER
93 , p5_a7 NUMBER
94 , p5_a8 NUMBER
95 , p5_a9 NUMBER
96 , p5_a10 VARCHAR2
97 , p5_a11 VARCHAR2
98 , p5_a12 VARCHAR2
99 , p5_a13 VARCHAR2
100 , p5_a14 VARCHAR2
101 , p5_a15 VARCHAR2
102 , p5_a16 VARCHAR2
103 , p5_a17 VARCHAR2
104 , p5_a18 VARCHAR2
105 , p5_a19 VARCHAR2
106 , p5_a20 VARCHAR2
107 , p5_a21 VARCHAR2
108 , p5_a22 VARCHAR2
109 , p5_a23 VARCHAR2
110 , p5_a24 VARCHAR2
111 , p5_a25 VARCHAR2
112 , p5_a26 VARCHAR2
113 , p5_a27 NUMBER
114 , p5_a28 DATE
115 , p5_a29 NUMBER
116 , p5_a30 DATE
117 , p5_a31 NUMBER
118 , p6_a0 out nocopy NUMBER
119 , p6_a1 out nocopy NUMBER
120 , p6_a2 out nocopy VARCHAR2
121 , p6_a3 out nocopy VARCHAR2
122 , p6_a4 out nocopy VARCHAR2
123 , p6_a5 out nocopy VARCHAR2
124 , p6_a6 out nocopy NUMBER
125 , p6_a7 out nocopy NUMBER
126 , p6_a8 out nocopy NUMBER
127 , p6_a9 out nocopy NUMBER
128 , p6_a10 out nocopy VARCHAR2
129 , p6_a11 out nocopy VARCHAR2
130 , p6_a12 out nocopy VARCHAR2
131 , p6_a13 out nocopy VARCHAR2
132 , p6_a14 out nocopy VARCHAR2
133 , p6_a15 out nocopy VARCHAR2
134 , p6_a16 out nocopy VARCHAR2
135 , p6_a17 out nocopy VARCHAR2
136 , p6_a18 out nocopy VARCHAR2
137 , p6_a19 out nocopy VARCHAR2
138 , p6_a20 out nocopy VARCHAR2
139 , p6_a21 out nocopy VARCHAR2
140 , p6_a22 out nocopy VARCHAR2
141 , p6_a23 out nocopy VARCHAR2
142 , p6_a24 out nocopy VARCHAR2
143 , p6_a25 out nocopy VARCHAR2
144 , p6_a26 out nocopy VARCHAR2
145 , p6_a27 out nocopy NUMBER
146 , p6_a28 out nocopy DATE
147 , p6_a29 out nocopy NUMBER
148 , p6_a30 out nocopy DATE
149 , p6_a31 out nocopy NUMBER
150 )
151
152 as
153 ddp_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
154 ddx_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
155 ddindx binary_integer; indx binary_integer;
156 begin
157
158 -- copy data to the local IN or IN-OUT args, if any
159
160
161
162
163
164 ddp_rgpv_rec.id := p5_a0;
165 ddp_rgpv_rec.object_version_number := p5_a1;
166 ddp_rgpv_rec.sfwt_flag := p5_a2;
167 ddp_rgpv_rec.rgd_code := p5_a3;
168 ddp_rgpv_rec.sat_code := p5_a4;
169 ddp_rgpv_rec.rgp_type := p5_a5;
170 ddp_rgpv_rec.cle_id := p5_a6;
171 ddp_rgpv_rec.chr_id := p5_a7;
172 ddp_rgpv_rec.dnz_chr_id := p5_a8;
173 ddp_rgpv_rec.parent_rgp_id := p5_a9;
174 ddp_rgpv_rec.comments := p5_a10;
175 ddp_rgpv_rec.attribute_category := p5_a11;
176 ddp_rgpv_rec.attribute1 := p5_a12;
177 ddp_rgpv_rec.attribute2 := p5_a13;
178 ddp_rgpv_rec.attribute3 := p5_a14;
179 ddp_rgpv_rec.attribute4 := p5_a15;
180 ddp_rgpv_rec.attribute5 := p5_a16;
181 ddp_rgpv_rec.attribute6 := p5_a17;
182 ddp_rgpv_rec.attribute7 := p5_a18;
183 ddp_rgpv_rec.attribute8 := p5_a19;
184 ddp_rgpv_rec.attribute9 := p5_a20;
185 ddp_rgpv_rec.attribute10 := p5_a21;
186 ddp_rgpv_rec.attribute11 := p5_a22;
187 ddp_rgpv_rec.attribute12 := p5_a23;
188 ddp_rgpv_rec.attribute13 := p5_a24;
189 ddp_rgpv_rec.attribute14 := p5_a25;
190 ddp_rgpv_rec.attribute15 := p5_a26;
191 ddp_rgpv_rec.created_by := p5_a27;
192 ddp_rgpv_rec.creation_date := p5_a28;
193 ddp_rgpv_rec.last_updated_by := p5_a29;
194 ddp_rgpv_rec.last_update_date := p5_a30;
195 ddp_rgpv_rec.last_update_login := p5_a31;
196
197
198 -- here's the delegated call to the old PL/SQL routine
199 okl_vp_rule_pvt.create_rule_group(p_api_version,
200 p_init_msg_list,
201 x_return_status,
202 x_msg_count,
203 x_msg_data,
204 ddp_rgpv_rec,
205 ddx_rgpv_rec);
206
207 -- copy data back from the local variables to OUT or IN-OUT args, if any
208
209
210
211
212
213
214 p6_a0 := ddx_rgpv_rec.id;
215 p6_a1 := ddx_rgpv_rec.object_version_number;
216 p6_a2 := ddx_rgpv_rec.sfwt_flag;
217 p6_a3 := ddx_rgpv_rec.rgd_code;
218 p6_a4 := ddx_rgpv_rec.sat_code;
219 p6_a5 := ddx_rgpv_rec.rgp_type;
220 p6_a6 := ddx_rgpv_rec.cle_id;
221 p6_a7 := ddx_rgpv_rec.chr_id;
222 p6_a8 := ddx_rgpv_rec.dnz_chr_id;
223 p6_a9 := ddx_rgpv_rec.parent_rgp_id;
224 p6_a10 := ddx_rgpv_rec.comments;
225 p6_a11 := ddx_rgpv_rec.attribute_category;
226 p6_a12 := ddx_rgpv_rec.attribute1;
227 p6_a13 := ddx_rgpv_rec.attribute2;
228 p6_a14 := ddx_rgpv_rec.attribute3;
229 p6_a15 := ddx_rgpv_rec.attribute4;
230 p6_a16 := ddx_rgpv_rec.attribute5;
231 p6_a17 := ddx_rgpv_rec.attribute6;
232 p6_a18 := ddx_rgpv_rec.attribute7;
233 p6_a19 := ddx_rgpv_rec.attribute8;
234 p6_a20 := ddx_rgpv_rec.attribute9;
235 p6_a21 := ddx_rgpv_rec.attribute10;
236 p6_a22 := ddx_rgpv_rec.attribute11;
237 p6_a23 := ddx_rgpv_rec.attribute12;
238 p6_a24 := ddx_rgpv_rec.attribute13;
239 p6_a25 := ddx_rgpv_rec.attribute14;
240 p6_a26 := ddx_rgpv_rec.attribute15;
241 p6_a27 := ddx_rgpv_rec.created_by;
242 p6_a28 := ddx_rgpv_rec.creation_date;
243 p6_a29 := ddx_rgpv_rec.last_updated_by;
244 p6_a30 := ddx_rgpv_rec.last_update_date;
245 p6_a31 := ddx_rgpv_rec.last_update_login;
246 end;
247
248 procedure update_rule_group(p_api_version NUMBER
249 , p_init_msg_list VARCHAR2
250 , x_return_status out nocopy VARCHAR2
251 , x_msg_count out nocopy NUMBER
252 , x_msg_data out nocopy VARCHAR2
253 , p5_a0 NUMBER
254 , p5_a1 NUMBER
255 , p5_a2 VARCHAR2
256 , p5_a3 VARCHAR2
257 , p5_a4 VARCHAR2
258 , p5_a5 VARCHAR2
259 , p5_a6 NUMBER
260 , p5_a7 NUMBER
261 , p5_a8 NUMBER
262 , p5_a9 NUMBER
263 , p5_a10 VARCHAR2
264 , p5_a11 VARCHAR2
265 , p5_a12 VARCHAR2
266 , p5_a13 VARCHAR2
267 , p5_a14 VARCHAR2
268 , p5_a15 VARCHAR2
269 , p5_a16 VARCHAR2
270 , p5_a17 VARCHAR2
271 , p5_a18 VARCHAR2
272 , p5_a19 VARCHAR2
273 , p5_a20 VARCHAR2
274 , p5_a21 VARCHAR2
275 , p5_a22 VARCHAR2
276 , p5_a23 VARCHAR2
277 , p5_a24 VARCHAR2
278 , p5_a25 VARCHAR2
279 , p5_a26 VARCHAR2
280 , p5_a27 NUMBER
281 , p5_a28 DATE
282 , p5_a29 NUMBER
283 , p5_a30 DATE
284 , p5_a31 NUMBER
285 , p6_a0 out nocopy NUMBER
286 , p6_a1 out nocopy NUMBER
287 , p6_a2 out nocopy VARCHAR2
288 , p6_a3 out nocopy VARCHAR2
289 , p6_a4 out nocopy VARCHAR2
290 , p6_a5 out nocopy VARCHAR2
291 , p6_a6 out nocopy NUMBER
292 , p6_a7 out nocopy NUMBER
293 , p6_a8 out nocopy NUMBER
294 , p6_a9 out nocopy NUMBER
295 , p6_a10 out nocopy VARCHAR2
296 , p6_a11 out nocopy VARCHAR2
297 , p6_a12 out nocopy VARCHAR2
298 , p6_a13 out nocopy VARCHAR2
299 , p6_a14 out nocopy VARCHAR2
300 , p6_a15 out nocopy VARCHAR2
301 , p6_a16 out nocopy VARCHAR2
302 , p6_a17 out nocopy VARCHAR2
303 , p6_a18 out nocopy VARCHAR2
304 , p6_a19 out nocopy VARCHAR2
305 , p6_a20 out nocopy VARCHAR2
306 , p6_a21 out nocopy VARCHAR2
307 , p6_a22 out nocopy VARCHAR2
308 , p6_a23 out nocopy VARCHAR2
309 , p6_a24 out nocopy VARCHAR2
310 , p6_a25 out nocopy VARCHAR2
311 , p6_a26 out nocopy VARCHAR2
312 , p6_a27 out nocopy NUMBER
313 , p6_a28 out nocopy DATE
314 , p6_a29 out nocopy NUMBER
315 , p6_a30 out nocopy DATE
316 , p6_a31 out nocopy NUMBER
317 )
318
319 as
320 ddp_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
321 ddx_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
322 ddindx binary_integer; indx binary_integer;
323 begin
324
325 -- copy data to the local IN or IN-OUT args, if any
326
327
328
329
330
331 ddp_rgpv_rec.id := p5_a0;
332 ddp_rgpv_rec.object_version_number := p5_a1;
333 ddp_rgpv_rec.sfwt_flag := p5_a2;
334 ddp_rgpv_rec.rgd_code := p5_a3;
335 ddp_rgpv_rec.sat_code := p5_a4;
336 ddp_rgpv_rec.rgp_type := p5_a5;
337 ddp_rgpv_rec.cle_id := p5_a6;
338 ddp_rgpv_rec.chr_id := p5_a7;
339 ddp_rgpv_rec.dnz_chr_id := p5_a8;
340 ddp_rgpv_rec.parent_rgp_id := p5_a9;
341 ddp_rgpv_rec.comments := p5_a10;
342 ddp_rgpv_rec.attribute_category := p5_a11;
343 ddp_rgpv_rec.attribute1 := p5_a12;
344 ddp_rgpv_rec.attribute2 := p5_a13;
345 ddp_rgpv_rec.attribute3 := p5_a14;
346 ddp_rgpv_rec.attribute4 := p5_a15;
347 ddp_rgpv_rec.attribute5 := p5_a16;
348 ddp_rgpv_rec.attribute6 := p5_a17;
349 ddp_rgpv_rec.attribute7 := p5_a18;
350 ddp_rgpv_rec.attribute8 := p5_a19;
351 ddp_rgpv_rec.attribute9 := p5_a20;
352 ddp_rgpv_rec.attribute10 := p5_a21;
353 ddp_rgpv_rec.attribute11 := p5_a22;
354 ddp_rgpv_rec.attribute12 := p5_a23;
355 ddp_rgpv_rec.attribute13 := p5_a24;
356 ddp_rgpv_rec.attribute14 := p5_a25;
357 ddp_rgpv_rec.attribute15 := p5_a26;
358 ddp_rgpv_rec.created_by := p5_a27;
359 ddp_rgpv_rec.creation_date := p5_a28;
360 ddp_rgpv_rec.last_updated_by := p5_a29;
361 ddp_rgpv_rec.last_update_date := p5_a30;
362 ddp_rgpv_rec.last_update_login := p5_a31;
363
364
365 -- here's the delegated call to the old PL/SQL routine
366 okl_vp_rule_pvt.update_rule_group(p_api_version,
367 p_init_msg_list,
368 x_return_status,
369 x_msg_count,
370 x_msg_data,
371 ddp_rgpv_rec,
372 ddx_rgpv_rec);
373
374 -- copy data back from the local variables to OUT or IN-OUT args, if any
375
376
377
378
379
380
381 p6_a0 := ddx_rgpv_rec.id;
382 p6_a1 := ddx_rgpv_rec.object_version_number;
383 p6_a2 := ddx_rgpv_rec.sfwt_flag;
384 p6_a3 := ddx_rgpv_rec.rgd_code;
385 p6_a4 := ddx_rgpv_rec.sat_code;
386 p6_a5 := ddx_rgpv_rec.rgp_type;
387 p6_a6 := ddx_rgpv_rec.cle_id;
388 p6_a7 := ddx_rgpv_rec.chr_id;
389 p6_a8 := ddx_rgpv_rec.dnz_chr_id;
390 p6_a9 := ddx_rgpv_rec.parent_rgp_id;
391 p6_a10 := ddx_rgpv_rec.comments;
392 p6_a11 := ddx_rgpv_rec.attribute_category;
393 p6_a12 := ddx_rgpv_rec.attribute1;
394 p6_a13 := ddx_rgpv_rec.attribute2;
395 p6_a14 := ddx_rgpv_rec.attribute3;
396 p6_a15 := ddx_rgpv_rec.attribute4;
397 p6_a16 := ddx_rgpv_rec.attribute5;
398 p6_a17 := ddx_rgpv_rec.attribute6;
399 p6_a18 := ddx_rgpv_rec.attribute7;
400 p6_a19 := ddx_rgpv_rec.attribute8;
401 p6_a20 := ddx_rgpv_rec.attribute9;
402 p6_a21 := ddx_rgpv_rec.attribute10;
403 p6_a22 := ddx_rgpv_rec.attribute11;
404 p6_a23 := ddx_rgpv_rec.attribute12;
405 p6_a24 := ddx_rgpv_rec.attribute13;
406 p6_a25 := ddx_rgpv_rec.attribute14;
407 p6_a26 := ddx_rgpv_rec.attribute15;
408 p6_a27 := ddx_rgpv_rec.created_by;
409 p6_a28 := ddx_rgpv_rec.creation_date;
410 p6_a29 := ddx_rgpv_rec.last_updated_by;
411 p6_a30 := ddx_rgpv_rec.last_update_date;
412 p6_a31 := ddx_rgpv_rec.last_update_login;
413 end;
414
415 procedure delete_rule_group(p_api_version NUMBER
416 , p_init_msg_list VARCHAR2
417 , x_return_status out nocopy VARCHAR2
418 , x_msg_count out nocopy NUMBER
419 , x_msg_data out nocopy VARCHAR2
420 , p5_a0 NUMBER
421 , p5_a1 NUMBER
422 , p5_a2 VARCHAR2
423 , p5_a3 VARCHAR2
424 , p5_a4 VARCHAR2
425 , p5_a5 VARCHAR2
426 , p5_a6 NUMBER
427 , p5_a7 NUMBER
428 , p5_a8 NUMBER
429 , p5_a9 NUMBER
430 , p5_a10 VARCHAR2
431 , p5_a11 VARCHAR2
432 , p5_a12 VARCHAR2
433 , p5_a13 VARCHAR2
434 , p5_a14 VARCHAR2
435 , p5_a15 VARCHAR2
436 , p5_a16 VARCHAR2
437 , p5_a17 VARCHAR2
438 , p5_a18 VARCHAR2
439 , p5_a19 VARCHAR2
440 , p5_a20 VARCHAR2
441 , p5_a21 VARCHAR2
442 , p5_a22 VARCHAR2
443 , p5_a23 VARCHAR2
444 , p5_a24 VARCHAR2
445 , p5_a25 VARCHAR2
446 , p5_a26 VARCHAR2
447 , p5_a27 NUMBER
448 , p5_a28 DATE
449 , p5_a29 NUMBER
450 , p5_a30 DATE
451 , p5_a31 NUMBER
452 )
453
454 as
455 ddp_rgpv_rec okl_vp_rule_pvt.rgpv_rec_type;
456 ddindx binary_integer; indx binary_integer;
457 begin
458
459 -- copy data to the local IN or IN-OUT args, if any
460
461
462
463
464
465 ddp_rgpv_rec.id := p5_a0;
466 ddp_rgpv_rec.object_version_number := p5_a1;
467 ddp_rgpv_rec.sfwt_flag := p5_a2;
468 ddp_rgpv_rec.rgd_code := p5_a3;
469 ddp_rgpv_rec.sat_code := p5_a4;
470 ddp_rgpv_rec.rgp_type := p5_a5;
471 ddp_rgpv_rec.cle_id := p5_a6;
472 ddp_rgpv_rec.chr_id := p5_a7;
473 ddp_rgpv_rec.dnz_chr_id := p5_a8;
474 ddp_rgpv_rec.parent_rgp_id := p5_a9;
475 ddp_rgpv_rec.comments := p5_a10;
476 ddp_rgpv_rec.attribute_category := p5_a11;
477 ddp_rgpv_rec.attribute1 := p5_a12;
478 ddp_rgpv_rec.attribute2 := p5_a13;
479 ddp_rgpv_rec.attribute3 := p5_a14;
480 ddp_rgpv_rec.attribute4 := p5_a15;
481 ddp_rgpv_rec.attribute5 := p5_a16;
482 ddp_rgpv_rec.attribute6 := p5_a17;
483 ddp_rgpv_rec.attribute7 := p5_a18;
484 ddp_rgpv_rec.attribute8 := p5_a19;
485 ddp_rgpv_rec.attribute9 := p5_a20;
486 ddp_rgpv_rec.attribute10 := p5_a21;
487 ddp_rgpv_rec.attribute11 := p5_a22;
488 ddp_rgpv_rec.attribute12 := p5_a23;
489 ddp_rgpv_rec.attribute13 := p5_a24;
490 ddp_rgpv_rec.attribute14 := p5_a25;
491 ddp_rgpv_rec.attribute15 := p5_a26;
492 ddp_rgpv_rec.created_by := p5_a27;
493 ddp_rgpv_rec.creation_date := p5_a28;
494 ddp_rgpv_rec.last_updated_by := p5_a29;
495 ddp_rgpv_rec.last_update_date := p5_a30;
496 ddp_rgpv_rec.last_update_login := p5_a31;
497
498 -- here's the delegated call to the old PL/SQL routine
499 okl_vp_rule_pvt.delete_rule_group(p_api_version,
500 p_init_msg_list,
501 x_return_status,
502 x_msg_count,
503 x_msg_data,
504 ddp_rgpv_rec);
505
506 -- copy data back from the local variables to OUT or IN-OUT args, if any
507
508
509
510
511
512 end;
513
514 procedure process_vrs_rules(p_api_version NUMBER
515 , p_init_msg_list VARCHAR2
516 , x_return_status out nocopy VARCHAR2
517 , x_msg_count out nocopy NUMBER
518 , x_msg_data out nocopy VARCHAR2
519 , p_chr_id NUMBER
520 , p_rgp_id NUMBER
521 , p7_a0 JTF_NUMBER_TABLE
522 , p7_a1 JTF_VARCHAR2_TABLE_100
523 , p7_a2 JTF_VARCHAR2_TABLE_100
524 , p7_a3 JTF_VARCHAR2_TABLE_500
525 , p7_a4 JTF_VARCHAR2_TABLE_500
526 , p7_a5 JTF_VARCHAR2_TABLE_100
527 )
528
529 as
530 ddp_vrs_tbl okl_vp_rule_pvt.vrs_tbl_type;
531 ddindx binary_integer; indx binary_integer;
532 begin
533
534 -- copy data to the local IN or IN-OUT args, if any
535
536
537
538
539
540
541
542 okl_vp_rule_pvt_w.rosetta_table_copy_in_p3(ddp_vrs_tbl, p7_a0
543 , p7_a1
544 , p7_a2
545 , p7_a3
546 , p7_a4
547 , p7_a5
548 );
549
550 -- here's the delegated call to the old PL/SQL routine
551 okl_vp_rule_pvt.process_vrs_rules(p_api_version,
552 p_init_msg_list,
553 x_return_status,
554 x_msg_count,
555 x_msg_data,
556 p_chr_id,
557 p_rgp_id,
558 ddp_vrs_tbl);
559
560 -- copy data back from the local variables to OUT or IN-OUT args, if any
561
562
563
564
565
566
567
568 end;
569
570 end okl_vp_rule_pvt_w;