[Home] [Help]
PACKAGE BODY: APPS.OKL_VP_RULE_PUB_W
Source
1 package body okl_vp_rule_pub_w as
2 /* $Header: OKLURLGB.pls 120.4 2005/08/04 03:18:21 manumanu noship $ */
3 procedure create_rule_group(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , x_return_status out nocopy VARCHAR2
6 , x_msg_count out nocopy NUMBER
7 , x_msg_data out nocopy VARCHAR2
8 , p5_a0 NUMBER
9 , p5_a1 NUMBER
10 , p5_a2 VARCHAR2
11 , p5_a3 VARCHAR2
12 , p5_a4 VARCHAR2
13 , p5_a5 VARCHAR2
14 , p5_a6 NUMBER
15 , p5_a7 NUMBER
16 , p5_a8 NUMBER
17 , p5_a9 NUMBER
18 , p5_a10 VARCHAR2
19 , p5_a11 VARCHAR2
20 , p5_a12 VARCHAR2
21 , p5_a13 VARCHAR2
22 , p5_a14 VARCHAR2
23 , p5_a15 VARCHAR2
24 , p5_a16 VARCHAR2
25 , p5_a17 VARCHAR2
26 , p5_a18 VARCHAR2
27 , p5_a19 VARCHAR2
28 , p5_a20 VARCHAR2
29 , p5_a21 VARCHAR2
30 , p5_a22 VARCHAR2
31 , p5_a23 VARCHAR2
32 , p5_a24 VARCHAR2
33 , p5_a25 VARCHAR2
34 , p5_a26 VARCHAR2
35 , p5_a27 NUMBER
36 , p5_a28 DATE
37 , p5_a29 NUMBER
38 , p5_a30 DATE
39 , p5_a31 NUMBER
40 , p6_a0 out nocopy NUMBER
41 , p6_a1 out nocopy NUMBER
42 , p6_a2 out nocopy VARCHAR2
43 , p6_a3 out nocopy VARCHAR2
44 , p6_a4 out nocopy VARCHAR2
45 , p6_a5 out nocopy VARCHAR2
46 , p6_a6 out nocopy NUMBER
47 , p6_a7 out nocopy NUMBER
48 , p6_a8 out nocopy NUMBER
49 , p6_a9 out nocopy NUMBER
50 , p6_a10 out nocopy VARCHAR2
51 , p6_a11 out nocopy VARCHAR2
52 , p6_a12 out nocopy VARCHAR2
53 , p6_a13 out nocopy VARCHAR2
54 , p6_a14 out nocopy VARCHAR2
55 , p6_a15 out nocopy VARCHAR2
56 , p6_a16 out nocopy VARCHAR2
57 , p6_a17 out nocopy VARCHAR2
58 , p6_a18 out nocopy VARCHAR2
59 , p6_a19 out nocopy VARCHAR2
60 , p6_a20 out nocopy VARCHAR2
61 , p6_a21 out nocopy VARCHAR2
62 , p6_a22 out nocopy VARCHAR2
63 , p6_a23 out nocopy VARCHAR2
64 , p6_a24 out nocopy VARCHAR2
65 , p6_a25 out nocopy VARCHAR2
66 , p6_a26 out nocopy VARCHAR2
67 , p6_a27 out nocopy NUMBER
68 , p6_a28 out nocopy DATE
69 , p6_a29 out nocopy NUMBER
70 , p6_a30 out nocopy DATE
71 , p6_a31 out nocopy NUMBER
72 )
73
74 as
75 ddp_rgpv_rec okl_vp_rule_pub.rgpv_rec_type;
76 ddx_rgpv_rec okl_vp_rule_pub.rgpv_rec_type;
77 ddindx binary_integer; indx binary_integer;
78 begin
79
80 -- copy data to the local IN or IN-OUT args, if any
81
82
83
84
85
86 ddp_rgpv_rec.id := p5_a0;
87 ddp_rgpv_rec.object_version_number := p5_a1;
88 ddp_rgpv_rec.sfwt_flag := p5_a2;
89 ddp_rgpv_rec.rgd_code := p5_a3;
90 ddp_rgpv_rec.sat_code := p5_a4;
91 ddp_rgpv_rec.rgp_type := p5_a5;
92 ddp_rgpv_rec.cle_id := p5_a6;
93 ddp_rgpv_rec.chr_id := p5_a7;
94 ddp_rgpv_rec.dnz_chr_id := p5_a8;
95 ddp_rgpv_rec.parent_rgp_id := p5_a9;
96 ddp_rgpv_rec.comments := p5_a10;
97 ddp_rgpv_rec.attribute_category := p5_a11;
98 ddp_rgpv_rec.attribute1 := p5_a12;
99 ddp_rgpv_rec.attribute2 := p5_a13;
100 ddp_rgpv_rec.attribute3 := p5_a14;
101 ddp_rgpv_rec.attribute4 := p5_a15;
102 ddp_rgpv_rec.attribute5 := p5_a16;
103 ddp_rgpv_rec.attribute6 := p5_a17;
104 ddp_rgpv_rec.attribute7 := p5_a18;
105 ddp_rgpv_rec.attribute8 := p5_a19;
106 ddp_rgpv_rec.attribute9 := p5_a20;
107 ddp_rgpv_rec.attribute10 := p5_a21;
108 ddp_rgpv_rec.attribute11 := p5_a22;
109 ddp_rgpv_rec.attribute12 := p5_a23;
110 ddp_rgpv_rec.attribute13 := p5_a24;
111 ddp_rgpv_rec.attribute14 := p5_a25;
112 ddp_rgpv_rec.attribute15 := p5_a26;
113 ddp_rgpv_rec.created_by := p5_a27;
114 ddp_rgpv_rec.creation_date := p5_a28;
115 ddp_rgpv_rec.last_updated_by := p5_a29;
116 ddp_rgpv_rec.last_update_date := p5_a30;
117 ddp_rgpv_rec.last_update_login := p5_a31;
118
119
120 -- here's the delegated call to the old PL/SQL routine
121 okl_vp_rule_pub.create_rule_group(p_api_version,
122 p_init_msg_list,
123 x_return_status,
124 x_msg_count,
125 x_msg_data,
126 ddp_rgpv_rec,
127 ddx_rgpv_rec);
128
129 -- copy data back from the local variables to OUT or IN-OUT args, if any
130
131
132
133
134
135
136 p6_a0 := ddx_rgpv_rec.id;
137 p6_a1 := ddx_rgpv_rec.object_version_number;
138 p6_a2 := ddx_rgpv_rec.sfwt_flag;
139 p6_a3 := ddx_rgpv_rec.rgd_code;
140 p6_a4 := ddx_rgpv_rec.sat_code;
141 p6_a5 := ddx_rgpv_rec.rgp_type;
142 p6_a6 := ddx_rgpv_rec.cle_id;
143 p6_a7 := ddx_rgpv_rec.chr_id;
144 p6_a8 := ddx_rgpv_rec.dnz_chr_id;
145 p6_a9 := ddx_rgpv_rec.parent_rgp_id;
146 p6_a10 := ddx_rgpv_rec.comments;
147 p6_a11 := ddx_rgpv_rec.attribute_category;
148 p6_a12 := ddx_rgpv_rec.attribute1;
149 p6_a13 := ddx_rgpv_rec.attribute2;
150 p6_a14 := ddx_rgpv_rec.attribute3;
151 p6_a15 := ddx_rgpv_rec.attribute4;
152 p6_a16 := ddx_rgpv_rec.attribute5;
153 p6_a17 := ddx_rgpv_rec.attribute6;
154 p6_a18 := ddx_rgpv_rec.attribute7;
155 p6_a19 := ddx_rgpv_rec.attribute8;
156 p6_a20 := ddx_rgpv_rec.attribute9;
157 p6_a21 := ddx_rgpv_rec.attribute10;
158 p6_a22 := ddx_rgpv_rec.attribute11;
159 p6_a23 := ddx_rgpv_rec.attribute12;
160 p6_a24 := ddx_rgpv_rec.attribute13;
161 p6_a25 := ddx_rgpv_rec.attribute14;
162 p6_a26 := ddx_rgpv_rec.attribute15;
163 p6_a27 := ddx_rgpv_rec.created_by;
164 p6_a28 := ddx_rgpv_rec.creation_date;
165 p6_a29 := ddx_rgpv_rec.last_updated_by;
166 p6_a30 := ddx_rgpv_rec.last_update_date;
167 p6_a31 := ddx_rgpv_rec.last_update_login;
168 end;
169
170 procedure create_rule_group(p_api_version NUMBER
171 , p_init_msg_list VARCHAR2
172 , x_return_status out nocopy VARCHAR2
173 , x_msg_count out nocopy NUMBER
174 , x_msg_data out nocopy VARCHAR2
175 , p5_a0 JTF_NUMBER_TABLE
176 , p5_a1 JTF_NUMBER_TABLE
177 , p5_a2 JTF_VARCHAR2_TABLE_100
178 , p5_a3 JTF_VARCHAR2_TABLE_100
179 , p5_a4 JTF_VARCHAR2_TABLE_100
180 , p5_a5 JTF_VARCHAR2_TABLE_100
181 , p5_a6 JTF_NUMBER_TABLE
182 , p5_a7 JTF_NUMBER_TABLE
183 , p5_a8 JTF_NUMBER_TABLE
184 , p5_a9 JTF_NUMBER_TABLE
185 , p5_a10 JTF_VARCHAR2_TABLE_2000
186 , p5_a11 JTF_VARCHAR2_TABLE_100
187 , p5_a12 JTF_VARCHAR2_TABLE_500
188 , p5_a13 JTF_VARCHAR2_TABLE_500
189 , p5_a14 JTF_VARCHAR2_TABLE_500
190 , p5_a15 JTF_VARCHAR2_TABLE_500
191 , p5_a16 JTF_VARCHAR2_TABLE_500
192 , p5_a17 JTF_VARCHAR2_TABLE_500
193 , p5_a18 JTF_VARCHAR2_TABLE_500
194 , p5_a19 JTF_VARCHAR2_TABLE_500
195 , p5_a20 JTF_VARCHAR2_TABLE_500
196 , p5_a21 JTF_VARCHAR2_TABLE_500
197 , p5_a22 JTF_VARCHAR2_TABLE_500
198 , p5_a23 JTF_VARCHAR2_TABLE_500
199 , p5_a24 JTF_VARCHAR2_TABLE_500
200 , p5_a25 JTF_VARCHAR2_TABLE_500
201 , p5_a26 JTF_VARCHAR2_TABLE_500
202 , p5_a27 JTF_NUMBER_TABLE
203 , p5_a28 JTF_DATE_TABLE
204 , p5_a29 JTF_NUMBER_TABLE
205 , p5_a30 JTF_DATE_TABLE
206 , p5_a31 JTF_NUMBER_TABLE
207 , p6_a0 out nocopy JTF_NUMBER_TABLE
208 , p6_a1 out nocopy JTF_NUMBER_TABLE
209 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
210 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
211 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
212 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
213 , p6_a6 out nocopy JTF_NUMBER_TABLE
214 , p6_a7 out nocopy JTF_NUMBER_TABLE
215 , p6_a8 out nocopy JTF_NUMBER_TABLE
216 , p6_a9 out nocopy JTF_NUMBER_TABLE
217 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_2000
218 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
219 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
220 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
221 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
222 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
223 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
224 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
225 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
226 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
227 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
228 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
229 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
230 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
231 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
232 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
233 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
234 , p6_a27 out nocopy JTF_NUMBER_TABLE
235 , p6_a28 out nocopy JTF_DATE_TABLE
236 , p6_a29 out nocopy JTF_NUMBER_TABLE
237 , p6_a30 out nocopy JTF_DATE_TABLE
238 , p6_a31 out nocopy JTF_NUMBER_TABLE
239 )
240
241 as
242 ddp_rgpv_tbl okl_vp_rule_pub.rgpv_tbl_type;
243 ddx_rgpv_tbl okl_vp_rule_pub.rgpv_tbl_type;
244 ddindx binary_integer; indx binary_integer;
245 begin
246
247 -- copy data to the local IN or IN-OUT args, if any
248
249
250
251
252
253 okl_okc_migration_a_pvt_w.rosetta_table_copy_in_p5(ddp_rgpv_tbl, p5_a0
254 , p5_a1
255 , p5_a2
256 , p5_a3
257 , p5_a4
258 , p5_a5
259 , p5_a6
260 , p5_a7
261 , p5_a8
262 , p5_a9
263 , p5_a10
264 , p5_a11
265 , p5_a12
266 , p5_a13
267 , p5_a14
268 , p5_a15
269 , p5_a16
270 , p5_a17
271 , p5_a18
272 , p5_a19
273 , p5_a20
274 , p5_a21
275 , p5_a22
276 , p5_a23
277 , p5_a24
278 , p5_a25
279 , p5_a26
280 , p5_a27
281 , p5_a28
282 , p5_a29
283 , p5_a30
284 , p5_a31
285 );
286
287
288 -- here's the delegated call to the old PL/SQL routine
289 okl_vp_rule_pub.create_rule_group(p_api_version,
290 p_init_msg_list,
291 x_return_status,
292 x_msg_count,
293 x_msg_data,
294 ddp_rgpv_tbl,
295 ddx_rgpv_tbl);
296
297 -- copy data back from the local variables to OUT or IN-OUT args, if any
298
299
300
301
302
303
304 okl_okc_migration_a_pvt_w.rosetta_table_copy_out_p5(ddx_rgpv_tbl, p6_a0
305 , p6_a1
306 , p6_a2
307 , p6_a3
308 , p6_a4
309 , p6_a5
310 , p6_a6
311 , p6_a7
312 , p6_a8
313 , p6_a9
314 , p6_a10
315 , p6_a11
316 , p6_a12
317 , p6_a13
318 , p6_a14
319 , p6_a15
320 , p6_a16
321 , p6_a17
322 , p6_a18
323 , p6_a19
324 , p6_a20
325 , p6_a21
326 , p6_a22
327 , p6_a23
328 , p6_a24
329 , p6_a25
330 , p6_a26
331 , p6_a27
332 , p6_a28
333 , p6_a29
334 , p6_a30
335 , p6_a31
336 );
337 end;
338
339 procedure update_rule_group(p_api_version NUMBER
340 , p_init_msg_list VARCHAR2
341 , x_return_status out nocopy VARCHAR2
342 , x_msg_count out nocopy NUMBER
343 , x_msg_data out nocopy VARCHAR2
344 , p5_a0 NUMBER
345 , p5_a1 NUMBER
346 , p5_a2 VARCHAR2
347 , p5_a3 VARCHAR2
348 , p5_a4 VARCHAR2
349 , p5_a5 VARCHAR2
350 , p5_a6 NUMBER
351 , p5_a7 NUMBER
352 , p5_a8 NUMBER
353 , p5_a9 NUMBER
354 , p5_a10 VARCHAR2
355 , p5_a11 VARCHAR2
356 , p5_a12 VARCHAR2
357 , p5_a13 VARCHAR2
358 , p5_a14 VARCHAR2
359 , p5_a15 VARCHAR2
360 , p5_a16 VARCHAR2
361 , p5_a17 VARCHAR2
362 , p5_a18 VARCHAR2
363 , p5_a19 VARCHAR2
364 , p5_a20 VARCHAR2
365 , p5_a21 VARCHAR2
366 , p5_a22 VARCHAR2
367 , p5_a23 VARCHAR2
368 , p5_a24 VARCHAR2
369 , p5_a25 VARCHAR2
370 , p5_a26 VARCHAR2
371 , p5_a27 NUMBER
372 , p5_a28 DATE
373 , p5_a29 NUMBER
374 , p5_a30 DATE
375 , p5_a31 NUMBER
376 , p6_a0 out nocopy NUMBER
377 , p6_a1 out nocopy NUMBER
378 , p6_a2 out nocopy VARCHAR2
379 , p6_a3 out nocopy VARCHAR2
380 , p6_a4 out nocopy VARCHAR2
381 , p6_a5 out nocopy VARCHAR2
382 , p6_a6 out nocopy NUMBER
383 , p6_a7 out nocopy NUMBER
384 , p6_a8 out nocopy NUMBER
385 , p6_a9 out nocopy NUMBER
386 , p6_a10 out nocopy VARCHAR2
387 , p6_a11 out nocopy VARCHAR2
388 , p6_a12 out nocopy VARCHAR2
389 , p6_a13 out nocopy VARCHAR2
390 , p6_a14 out nocopy VARCHAR2
391 , p6_a15 out nocopy VARCHAR2
392 , p6_a16 out nocopy VARCHAR2
393 , p6_a17 out nocopy VARCHAR2
394 , p6_a18 out nocopy VARCHAR2
395 , p6_a19 out nocopy VARCHAR2
396 , p6_a20 out nocopy VARCHAR2
397 , p6_a21 out nocopy VARCHAR2
398 , p6_a22 out nocopy VARCHAR2
399 , p6_a23 out nocopy VARCHAR2
400 , p6_a24 out nocopy VARCHAR2
401 , p6_a25 out nocopy VARCHAR2
402 , p6_a26 out nocopy VARCHAR2
403 , p6_a27 out nocopy NUMBER
404 , p6_a28 out nocopy DATE
405 , p6_a29 out nocopy NUMBER
406 , p6_a30 out nocopy DATE
407 , p6_a31 out nocopy NUMBER
408 )
409
410 as
411 ddp_rgpv_rec okl_vp_rule_pub.rgpv_rec_type;
412 ddx_rgpv_rec okl_vp_rule_pub.rgpv_rec_type;
413 ddindx binary_integer; indx binary_integer;
414 begin
415
416 -- copy data to the local IN or IN-OUT args, if any
417
418
419
420
421
422 ddp_rgpv_rec.id := p5_a0;
423 ddp_rgpv_rec.object_version_number := p5_a1;
424 ddp_rgpv_rec.sfwt_flag := p5_a2;
425 ddp_rgpv_rec.rgd_code := p5_a3;
426 ddp_rgpv_rec.sat_code := p5_a4;
427 ddp_rgpv_rec.rgp_type := p5_a5;
428 ddp_rgpv_rec.cle_id := p5_a6;
429 ddp_rgpv_rec.chr_id := p5_a7;
430 ddp_rgpv_rec.dnz_chr_id := p5_a8;
431 ddp_rgpv_rec.parent_rgp_id := p5_a9;
432 ddp_rgpv_rec.comments := p5_a10;
433 ddp_rgpv_rec.attribute_category := p5_a11;
434 ddp_rgpv_rec.attribute1 := p5_a12;
435 ddp_rgpv_rec.attribute2 := p5_a13;
436 ddp_rgpv_rec.attribute3 := p5_a14;
437 ddp_rgpv_rec.attribute4 := p5_a15;
438 ddp_rgpv_rec.attribute5 := p5_a16;
439 ddp_rgpv_rec.attribute6 := p5_a17;
440 ddp_rgpv_rec.attribute7 := p5_a18;
441 ddp_rgpv_rec.attribute8 := p5_a19;
442 ddp_rgpv_rec.attribute9 := p5_a20;
443 ddp_rgpv_rec.attribute10 := p5_a21;
444 ddp_rgpv_rec.attribute11 := p5_a22;
445 ddp_rgpv_rec.attribute12 := p5_a23;
446 ddp_rgpv_rec.attribute13 := p5_a24;
447 ddp_rgpv_rec.attribute14 := p5_a25;
448 ddp_rgpv_rec.attribute15 := p5_a26;
449 ddp_rgpv_rec.created_by := p5_a27;
450 ddp_rgpv_rec.creation_date := p5_a28;
451 ddp_rgpv_rec.last_updated_by := p5_a29;
452 ddp_rgpv_rec.last_update_date := p5_a30;
453 ddp_rgpv_rec.last_update_login := p5_a31;
454
455
456 -- here's the delegated call to the old PL/SQL routine
457 okl_vp_rule_pub.update_rule_group(p_api_version,
458 p_init_msg_list,
459 x_return_status,
460 x_msg_count,
461 x_msg_data,
462 ddp_rgpv_rec,
463 ddx_rgpv_rec);
464
465 -- copy data back from the local variables to OUT or IN-OUT args, if any
466
467
468
469
470
471
472 p6_a0 := ddx_rgpv_rec.id;
473 p6_a1 := ddx_rgpv_rec.object_version_number;
474 p6_a2 := ddx_rgpv_rec.sfwt_flag;
475 p6_a3 := ddx_rgpv_rec.rgd_code;
476 p6_a4 := ddx_rgpv_rec.sat_code;
477 p6_a5 := ddx_rgpv_rec.rgp_type;
478 p6_a6 := ddx_rgpv_rec.cle_id;
479 p6_a7 := ddx_rgpv_rec.chr_id;
480 p6_a8 := ddx_rgpv_rec.dnz_chr_id;
481 p6_a9 := ddx_rgpv_rec.parent_rgp_id;
482 p6_a10 := ddx_rgpv_rec.comments;
483 p6_a11 := ddx_rgpv_rec.attribute_category;
484 p6_a12 := ddx_rgpv_rec.attribute1;
485 p6_a13 := ddx_rgpv_rec.attribute2;
486 p6_a14 := ddx_rgpv_rec.attribute3;
487 p6_a15 := ddx_rgpv_rec.attribute4;
488 p6_a16 := ddx_rgpv_rec.attribute5;
489 p6_a17 := ddx_rgpv_rec.attribute6;
490 p6_a18 := ddx_rgpv_rec.attribute7;
491 p6_a19 := ddx_rgpv_rec.attribute8;
492 p6_a20 := ddx_rgpv_rec.attribute9;
493 p6_a21 := ddx_rgpv_rec.attribute10;
494 p6_a22 := ddx_rgpv_rec.attribute11;
495 p6_a23 := ddx_rgpv_rec.attribute12;
496 p6_a24 := ddx_rgpv_rec.attribute13;
497 p6_a25 := ddx_rgpv_rec.attribute14;
498 p6_a26 := ddx_rgpv_rec.attribute15;
499 p6_a27 := ddx_rgpv_rec.created_by;
500 p6_a28 := ddx_rgpv_rec.creation_date;
501 p6_a29 := ddx_rgpv_rec.last_updated_by;
502 p6_a30 := ddx_rgpv_rec.last_update_date;
503 p6_a31 := ddx_rgpv_rec.last_update_login;
504 end;
505
506 procedure update_rule_group(p_api_version NUMBER
507 , p_init_msg_list VARCHAR2
508 , x_return_status out nocopy VARCHAR2
509 , x_msg_count out nocopy NUMBER
510 , x_msg_data out nocopy VARCHAR2
511 , p5_a0 JTF_NUMBER_TABLE
512 , p5_a1 JTF_NUMBER_TABLE
513 , p5_a2 JTF_VARCHAR2_TABLE_100
514 , p5_a3 JTF_VARCHAR2_TABLE_100
515 , p5_a4 JTF_VARCHAR2_TABLE_100
516 , p5_a5 JTF_VARCHAR2_TABLE_100
517 , p5_a6 JTF_NUMBER_TABLE
518 , p5_a7 JTF_NUMBER_TABLE
519 , p5_a8 JTF_NUMBER_TABLE
520 , p5_a9 JTF_NUMBER_TABLE
521 , p5_a10 JTF_VARCHAR2_TABLE_2000
522 , p5_a11 JTF_VARCHAR2_TABLE_100
523 , p5_a12 JTF_VARCHAR2_TABLE_500
524 , p5_a13 JTF_VARCHAR2_TABLE_500
525 , p5_a14 JTF_VARCHAR2_TABLE_500
526 , p5_a15 JTF_VARCHAR2_TABLE_500
527 , p5_a16 JTF_VARCHAR2_TABLE_500
528 , p5_a17 JTF_VARCHAR2_TABLE_500
529 , p5_a18 JTF_VARCHAR2_TABLE_500
530 , p5_a19 JTF_VARCHAR2_TABLE_500
531 , p5_a20 JTF_VARCHAR2_TABLE_500
532 , p5_a21 JTF_VARCHAR2_TABLE_500
533 , p5_a22 JTF_VARCHAR2_TABLE_500
534 , p5_a23 JTF_VARCHAR2_TABLE_500
535 , p5_a24 JTF_VARCHAR2_TABLE_500
536 , p5_a25 JTF_VARCHAR2_TABLE_500
537 , p5_a26 JTF_VARCHAR2_TABLE_500
538 , p5_a27 JTF_NUMBER_TABLE
539 , p5_a28 JTF_DATE_TABLE
540 , p5_a29 JTF_NUMBER_TABLE
541 , p5_a30 JTF_DATE_TABLE
542 , p5_a31 JTF_NUMBER_TABLE
543 , p6_a0 out nocopy JTF_NUMBER_TABLE
544 , p6_a1 out nocopy JTF_NUMBER_TABLE
545 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
546 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
547 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
548 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
549 , p6_a6 out nocopy JTF_NUMBER_TABLE
550 , p6_a7 out nocopy JTF_NUMBER_TABLE
551 , p6_a8 out nocopy JTF_NUMBER_TABLE
552 , p6_a9 out nocopy JTF_NUMBER_TABLE
553 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_2000
554 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
555 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
556 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
557 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
558 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
559 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
560 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
561 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
562 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
563 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
564 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
565 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
566 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
567 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
568 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
569 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
570 , p6_a27 out nocopy JTF_NUMBER_TABLE
571 , p6_a28 out nocopy JTF_DATE_TABLE
572 , p6_a29 out nocopy JTF_NUMBER_TABLE
573 , p6_a30 out nocopy JTF_DATE_TABLE
574 , p6_a31 out nocopy JTF_NUMBER_TABLE
575 )
576
577 as
578 ddp_rgpv_tbl okl_vp_rule_pub.rgpv_tbl_type;
579 ddx_rgpv_tbl okl_vp_rule_pub.rgpv_tbl_type;
580 ddindx binary_integer; indx binary_integer;
581 begin
582
583 -- copy data to the local IN or IN-OUT args, if any
584
585
586
587
588
589 okl_okc_migration_a_pvt_w.rosetta_table_copy_in_p5(ddp_rgpv_tbl, p5_a0
590 , p5_a1
591 , p5_a2
592 , p5_a3
593 , p5_a4
594 , p5_a5
595 , p5_a6
596 , p5_a7
597 , p5_a8
598 , p5_a9
599 , p5_a10
600 , p5_a11
601 , p5_a12
602 , p5_a13
603 , p5_a14
604 , p5_a15
605 , p5_a16
606 , p5_a17
607 , p5_a18
608 , p5_a19
609 , p5_a20
610 , p5_a21
611 , p5_a22
612 , p5_a23
613 , p5_a24
614 , p5_a25
615 , p5_a26
616 , p5_a27
617 , p5_a28
618 , p5_a29
619 , p5_a30
620 , p5_a31
621 );
622
623
624 -- here's the delegated call to the old PL/SQL routine
625 okl_vp_rule_pub.update_rule_group(p_api_version,
626 p_init_msg_list,
627 x_return_status,
628 x_msg_count,
629 x_msg_data,
630 ddp_rgpv_tbl,
631 ddx_rgpv_tbl);
632
633 -- copy data back from the local variables to OUT or IN-OUT args, if any
634
635
636
637
638
639
640 okl_okc_migration_a_pvt_w.rosetta_table_copy_out_p5(ddx_rgpv_tbl, p6_a0
641 , p6_a1
642 , p6_a2
643 , p6_a3
644 , p6_a4
645 , p6_a5
646 , p6_a6
647 , p6_a7
648 , p6_a8
649 , p6_a9
650 , p6_a10
651 , p6_a11
652 , p6_a12
653 , p6_a13
654 , p6_a14
655 , p6_a15
656 , p6_a16
657 , p6_a17
658 , p6_a18
659 , p6_a19
660 , p6_a20
661 , p6_a21
662 , p6_a22
663 , p6_a23
664 , p6_a24
665 , p6_a25
666 , p6_a26
667 , p6_a27
668 , p6_a28
669 , p6_a29
670 , p6_a30
671 , p6_a31
672 );
673 end;
674
675 procedure delete_rule_group(p_api_version NUMBER
676 , p_init_msg_list VARCHAR2
677 , x_return_status out nocopy VARCHAR2
678 , x_msg_count out nocopy NUMBER
679 , x_msg_data out nocopy VARCHAR2
680 , p5_a0 NUMBER
681 , p5_a1 NUMBER
682 , p5_a2 VARCHAR2
683 , p5_a3 VARCHAR2
684 , p5_a4 VARCHAR2
685 , p5_a5 VARCHAR2
686 , p5_a6 NUMBER
687 , p5_a7 NUMBER
688 , p5_a8 NUMBER
689 , p5_a9 NUMBER
690 , p5_a10 VARCHAR2
691 , p5_a11 VARCHAR2
692 , p5_a12 VARCHAR2
693 , p5_a13 VARCHAR2
694 , p5_a14 VARCHAR2
695 , p5_a15 VARCHAR2
696 , p5_a16 VARCHAR2
697 , p5_a17 VARCHAR2
698 , p5_a18 VARCHAR2
699 , p5_a19 VARCHAR2
700 , p5_a20 VARCHAR2
701 , p5_a21 VARCHAR2
702 , p5_a22 VARCHAR2
703 , p5_a23 VARCHAR2
704 , p5_a24 VARCHAR2
705 , p5_a25 VARCHAR2
706 , p5_a26 VARCHAR2
707 , p5_a27 NUMBER
708 , p5_a28 DATE
709 , p5_a29 NUMBER
710 , p5_a30 DATE
711 , p5_a31 NUMBER
712 )
713
714 as
715 ddp_rgpv_rec okl_vp_rule_pub.rgpv_rec_type;
716 ddindx binary_integer; indx binary_integer;
717 begin
718
719 -- copy data to the local IN or IN-OUT args, if any
720
721
722
723
724
725 ddp_rgpv_rec.id := p5_a0;
726 ddp_rgpv_rec.object_version_number := p5_a1;
727 ddp_rgpv_rec.sfwt_flag := p5_a2;
728 ddp_rgpv_rec.rgd_code := p5_a3;
729 ddp_rgpv_rec.sat_code := p5_a4;
730 ddp_rgpv_rec.rgp_type := p5_a5;
731 ddp_rgpv_rec.cle_id := p5_a6;
732 ddp_rgpv_rec.chr_id := p5_a7;
733 ddp_rgpv_rec.dnz_chr_id := p5_a8;
734 ddp_rgpv_rec.parent_rgp_id := p5_a9;
735 ddp_rgpv_rec.comments := p5_a10;
736 ddp_rgpv_rec.attribute_category := p5_a11;
737 ddp_rgpv_rec.attribute1 := p5_a12;
738 ddp_rgpv_rec.attribute2 := p5_a13;
739 ddp_rgpv_rec.attribute3 := p5_a14;
740 ddp_rgpv_rec.attribute4 := p5_a15;
741 ddp_rgpv_rec.attribute5 := p5_a16;
742 ddp_rgpv_rec.attribute6 := p5_a17;
743 ddp_rgpv_rec.attribute7 := p5_a18;
744 ddp_rgpv_rec.attribute8 := p5_a19;
745 ddp_rgpv_rec.attribute9 := p5_a20;
746 ddp_rgpv_rec.attribute10 := p5_a21;
747 ddp_rgpv_rec.attribute11 := p5_a22;
748 ddp_rgpv_rec.attribute12 := p5_a23;
749 ddp_rgpv_rec.attribute13 := p5_a24;
750 ddp_rgpv_rec.attribute14 := p5_a25;
751 ddp_rgpv_rec.attribute15 := p5_a26;
752 ddp_rgpv_rec.created_by := p5_a27;
753 ddp_rgpv_rec.creation_date := p5_a28;
754 ddp_rgpv_rec.last_updated_by := p5_a29;
755 ddp_rgpv_rec.last_update_date := p5_a30;
756 ddp_rgpv_rec.last_update_login := p5_a31;
757
758 -- here's the delegated call to the old PL/SQL routine
759 okl_vp_rule_pub.delete_rule_group(p_api_version,
760 p_init_msg_list,
761 x_return_status,
762 x_msg_count,
763 x_msg_data,
764 ddp_rgpv_rec);
765
766 -- copy data back from the local variables to OUT or IN-OUT args, if any
767
768
769
770
771
772 end;
773
774 procedure delete_rule_group(p_api_version NUMBER
775 , p_init_msg_list VARCHAR2
776 , x_return_status out nocopy VARCHAR2
777 , x_msg_count out nocopy NUMBER
778 , x_msg_data out nocopy VARCHAR2
779 , p5_a0 JTF_NUMBER_TABLE
780 , p5_a1 JTF_NUMBER_TABLE
781 , p5_a2 JTF_VARCHAR2_TABLE_100
782 , p5_a3 JTF_VARCHAR2_TABLE_100
783 , p5_a4 JTF_VARCHAR2_TABLE_100
784 , p5_a5 JTF_VARCHAR2_TABLE_100
785 , p5_a6 JTF_NUMBER_TABLE
786 , p5_a7 JTF_NUMBER_TABLE
787 , p5_a8 JTF_NUMBER_TABLE
788 , p5_a9 JTF_NUMBER_TABLE
789 , p5_a10 JTF_VARCHAR2_TABLE_2000
790 , p5_a11 JTF_VARCHAR2_TABLE_100
791 , p5_a12 JTF_VARCHAR2_TABLE_500
792 , p5_a13 JTF_VARCHAR2_TABLE_500
793 , p5_a14 JTF_VARCHAR2_TABLE_500
794 , p5_a15 JTF_VARCHAR2_TABLE_500
795 , p5_a16 JTF_VARCHAR2_TABLE_500
796 , p5_a17 JTF_VARCHAR2_TABLE_500
797 , p5_a18 JTF_VARCHAR2_TABLE_500
798 , p5_a19 JTF_VARCHAR2_TABLE_500
799 , p5_a20 JTF_VARCHAR2_TABLE_500
800 , p5_a21 JTF_VARCHAR2_TABLE_500
801 , p5_a22 JTF_VARCHAR2_TABLE_500
802 , p5_a23 JTF_VARCHAR2_TABLE_500
803 , p5_a24 JTF_VARCHAR2_TABLE_500
804 , p5_a25 JTF_VARCHAR2_TABLE_500
805 , p5_a26 JTF_VARCHAR2_TABLE_500
806 , p5_a27 JTF_NUMBER_TABLE
807 , p5_a28 JTF_DATE_TABLE
808 , p5_a29 JTF_NUMBER_TABLE
809 , p5_a30 JTF_DATE_TABLE
810 , p5_a31 JTF_NUMBER_TABLE
811 )
812
813 as
814 ddp_rgpv_tbl okl_vp_rule_pub.rgpv_tbl_type;
815 ddindx binary_integer; indx binary_integer;
816 begin
817
818 -- copy data to the local IN or IN-OUT args, if any
819
820
821
822
823
824 okl_okc_migration_a_pvt_w.rosetta_table_copy_in_p5(ddp_rgpv_tbl, p5_a0
825 , p5_a1
826 , p5_a2
827 , p5_a3
828 , p5_a4
829 , p5_a5
830 , p5_a6
831 , p5_a7
832 , p5_a8
833 , p5_a9
834 , p5_a10
835 , p5_a11
836 , p5_a12
837 , p5_a13
838 , p5_a14
839 , p5_a15
840 , p5_a16
841 , p5_a17
842 , p5_a18
843 , p5_a19
844 , p5_a20
845 , p5_a21
846 , p5_a22
847 , p5_a23
848 , p5_a24
849 , p5_a25
850 , p5_a26
851 , p5_a27
852 , p5_a28
853 , p5_a29
854 , p5_a30
855 , p5_a31
856 );
857
858 -- here's the delegated call to the old PL/SQL routine
859 okl_vp_rule_pub.delete_rule_group(p_api_version,
860 p_init_msg_list,
861 x_return_status,
862 x_msg_count,
863 x_msg_data,
864 ddp_rgpv_tbl);
865
866 -- copy data back from the local variables to OUT or IN-OUT args, if any
867
868
869
870
871
872 end;
873
874 end okl_vp_rule_pub_w;