[Home] [Help]
PACKAGE BODY: APPS.OKL_RTP_PVT_W
Source
1 package body okl_rtp_pvt_w as
2 /* $Header: OKLIRTPB.pls 120.0 2007/12/10 18:30:30 dcshanmu noship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy okl_rtp_pvt.rtp_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_DATE_TABLE
12 , a9 JTF_NUMBER_TABLE
13 ) as
14 ddindx binary_integer; indx binary_integer;
15 begin
16 if a0 is not null and a0.count > 0 then
17 if a0.count > 0 then
18 indx := a0.first;
19 ddindx := 1;
20 while true loop
21 t(ddindx).trx_parameter_id := a0(indx);
22 t(ddindx).report_id := a1(indx);
23 t(ddindx).try_id := a2(indx);
24 t(ddindx).sty_id := a3(indx);
25 t(ddindx).add_substract_code := a4(indx);
26 t(ddindx).created_by := a5(indx);
27 t(ddindx).creation_date := a6(indx);
28 t(ddindx).last_updated_by := a7(indx);
29 t(ddindx).last_update_date := a8(indx);
30 t(ddindx).last_update_login := a9(indx);
31 ddindx := ddindx+1;
32 if a0.last =indx
33 then exit;
34 end if;
35 indx := a0.next(indx);
36 end loop;
37 end if;
38 end if;
39 end rosetta_table_copy_in_p2;
40 procedure rosetta_table_copy_out_p2(t okl_rtp_pvt.rtp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
41 , a1 out nocopy JTF_NUMBER_TABLE
42 , a2 out nocopy JTF_NUMBER_TABLE
43 , a3 out nocopy JTF_NUMBER_TABLE
44 , a4 out nocopy JTF_VARCHAR2_TABLE_100
45 , a5 out nocopy JTF_NUMBER_TABLE
46 , a6 out nocopy JTF_DATE_TABLE
47 , a7 out nocopy JTF_NUMBER_TABLE
48 , a8 out nocopy JTF_DATE_TABLE
49 , a9 out nocopy JTF_NUMBER_TABLE
50 ) as
51 ddindx binary_integer; indx binary_integer;
52 begin
53 if t is null or t.count = 0 then
54 a0 := JTF_NUMBER_TABLE();
55 a1 := JTF_NUMBER_TABLE();
56 a2 := JTF_NUMBER_TABLE();
57 a3 := JTF_NUMBER_TABLE();
58 a4 := JTF_VARCHAR2_TABLE_100();
59 a5 := JTF_NUMBER_TABLE();
60 a6 := JTF_DATE_TABLE();
61 a7 := JTF_NUMBER_TABLE();
62 a8 := JTF_DATE_TABLE();
63 a9 := JTF_NUMBER_TABLE();
64 else
65 a0 := JTF_NUMBER_TABLE();
66 a1 := JTF_NUMBER_TABLE();
67 a2 := JTF_NUMBER_TABLE();
68 a3 := JTF_NUMBER_TABLE();
69 a4 := JTF_VARCHAR2_TABLE_100();
70 a5 := JTF_NUMBER_TABLE();
71 a6 := JTF_DATE_TABLE();
72 a7 := JTF_NUMBER_TABLE();
73 a8 := JTF_DATE_TABLE();
74 a9 := JTF_NUMBER_TABLE();
75 if t.count > 0 then
76 a0.extend(t.count);
77 a1.extend(t.count);
78 a2.extend(t.count);
79 a3.extend(t.count);
80 a4.extend(t.count);
81 a5.extend(t.count);
82 a6.extend(t.count);
83 a7.extend(t.count);
84 a8.extend(t.count);
85 a9.extend(t.count);
86 ddindx := t.first;
87 indx := 1;
88 while true loop
89 a0(indx) := t(ddindx).trx_parameter_id;
90 a1(indx) := t(ddindx).report_id;
91 a2(indx) := t(ddindx).try_id;
92 a3(indx) := t(ddindx).sty_id;
93 a4(indx) := t(ddindx).add_substract_code;
94 a5(indx) := t(ddindx).created_by;
95 a6(indx) := t(ddindx).creation_date;
96 a7(indx) := t(ddindx).last_updated_by;
97 a8(indx) := t(ddindx).last_update_date;
98 a9(indx) := t(ddindx).last_update_login;
99 indx := indx+1;
100 if t.last =ddindx
101 then exit;
102 end if;
103 ddindx := t.next(ddindx);
104 end loop;
105 end if;
106 end if;
107 end rosetta_table_copy_out_p2;
108
109 procedure insert_row(p_api_version NUMBER
110 , p_init_msg_list VARCHAR2
111 , x_return_status out nocopy VARCHAR2
112 , x_msg_count out nocopy NUMBER
113 , x_msg_data out nocopy VARCHAR2
114 , p5_a0 NUMBER
115 , p5_a1 NUMBER
116 , p5_a2 NUMBER
117 , p5_a3 NUMBER
118 , p5_a4 VARCHAR2
119 , p5_a5 NUMBER
120 , p5_a6 DATE
121 , p5_a7 NUMBER
122 , p5_a8 DATE
123 , p5_a9 NUMBER
124 , p6_a0 out nocopy NUMBER
125 , p6_a1 out nocopy NUMBER
126 , p6_a2 out nocopy NUMBER
127 , p6_a3 out nocopy NUMBER
128 , p6_a4 out nocopy VARCHAR2
129 , p6_a5 out nocopy NUMBER
130 , p6_a6 out nocopy DATE
131 , p6_a7 out nocopy NUMBER
132 , p6_a8 out nocopy DATE
133 , p6_a9 out nocopy NUMBER
134 )
135
136 as
137 ddp_rtp_rec okl_rtp_pvt.rtp_rec_type;
138 ddx_rtp_rec okl_rtp_pvt.rtp_rec_type;
139 ddindx binary_integer; indx binary_integer;
140 begin
141
142 -- copy data to the local IN or IN-OUT args, if any
143
144
145
146
147
148 ddp_rtp_rec.trx_parameter_id := p5_a0;
149 ddp_rtp_rec.report_id := p5_a1;
150 ddp_rtp_rec.try_id := p5_a2;
151 ddp_rtp_rec.sty_id := p5_a3;
152 ddp_rtp_rec.add_substract_code := p5_a4;
153 ddp_rtp_rec.created_by := p5_a5;
154 ddp_rtp_rec.creation_date := p5_a6;
155 ddp_rtp_rec.last_updated_by := p5_a7;
156 ddp_rtp_rec.last_update_date := p5_a8;
157 ddp_rtp_rec.last_update_login := p5_a9;
158
159
160 -- here's the delegated call to the old PL/SQL routine
161 okl_rtp_pvt.insert_row(p_api_version,
162 p_init_msg_list,
163 x_return_status,
164 x_msg_count,
165 x_msg_data,
166 ddp_rtp_rec,
167 ddx_rtp_rec);
168
169 -- copy data back from the local variables to OUT or IN-OUT args, if any
170
171
172
173
174
175
176 p6_a0 := ddx_rtp_rec.trx_parameter_id;
177 p6_a1 := ddx_rtp_rec.report_id;
178 p6_a2 := ddx_rtp_rec.try_id;
179 p6_a3 := ddx_rtp_rec.sty_id;
180 p6_a4 := ddx_rtp_rec.add_substract_code;
181 p6_a5 := ddx_rtp_rec.created_by;
182 p6_a6 := ddx_rtp_rec.creation_date;
183 p6_a7 := ddx_rtp_rec.last_updated_by;
184 p6_a8 := ddx_rtp_rec.last_update_date;
185 p6_a9 := ddx_rtp_rec.last_update_login;
186 end;
187
188 procedure insert_row(p_api_version NUMBER
189 , p_init_msg_list VARCHAR2
190 , x_return_status out nocopy VARCHAR2
191 , x_msg_count out nocopy NUMBER
192 , x_msg_data out nocopy VARCHAR2
193 , p5_a0 JTF_NUMBER_TABLE
194 , p5_a1 JTF_NUMBER_TABLE
195 , p5_a2 JTF_NUMBER_TABLE
196 , p5_a3 JTF_NUMBER_TABLE
197 , p5_a4 JTF_VARCHAR2_TABLE_100
198 , p5_a5 JTF_NUMBER_TABLE
199 , p5_a6 JTF_DATE_TABLE
200 , p5_a7 JTF_NUMBER_TABLE
201 , p5_a8 JTF_DATE_TABLE
202 , p5_a9 JTF_NUMBER_TABLE
203 , p6_a0 out nocopy JTF_NUMBER_TABLE
204 , p6_a1 out nocopy JTF_NUMBER_TABLE
205 , p6_a2 out nocopy JTF_NUMBER_TABLE
206 , p6_a3 out nocopy JTF_NUMBER_TABLE
207 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
208 , p6_a5 out nocopy JTF_NUMBER_TABLE
209 , p6_a6 out nocopy JTF_DATE_TABLE
210 , p6_a7 out nocopy JTF_NUMBER_TABLE
211 , p6_a8 out nocopy JTF_DATE_TABLE
212 , p6_a9 out nocopy JTF_NUMBER_TABLE
213 , p7_a0 in out nocopy JTF_NUMBER_TABLE
214 , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_100
215 , p7_a2 in out nocopy JTF_NUMBER_TABLE
216 , p7_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
217 , p7_a4 in out nocopy JTF_NUMBER_TABLE
218 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
219 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
220 )
221
222 as
223 ddp_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
224 ddx_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
225 ddpx_error_tbl okl_api.error_tbl_type;
226 ddindx binary_integer; indx binary_integer;
227 begin
228
229 -- copy data to the local IN or IN-OUT args, if any
230
231
232
233
234
235 okl_rtp_pvt_w.rosetta_table_copy_in_p2(ddp_rtp_tbl, p5_a0
236 , p5_a1
237 , p5_a2
238 , p5_a3
239 , p5_a4
240 , p5_a5
241 , p5_a6
242 , p5_a7
243 , p5_a8
244 , p5_a9
245 );
246
247
248 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p7_a0
249 , p7_a1
250 , p7_a2
251 , p7_a3
252 , p7_a4
253 , p7_a5
254 , p7_a6
255 );
256
257 -- here's the delegated call to the old PL/SQL routine
258 okl_rtp_pvt.insert_row(p_api_version,
259 p_init_msg_list,
260 x_return_status,
261 x_msg_count,
262 x_msg_data,
263 ddp_rtp_tbl,
264 ddx_rtp_tbl,
265 ddpx_error_tbl);
266
267 -- copy data back from the local variables to OUT or IN-OUT args, if any
268
269
270
271
272
273
274 okl_rtp_pvt_w.rosetta_table_copy_out_p2(ddx_rtp_tbl, p6_a0
275 , p6_a1
276 , p6_a2
277 , p6_a3
278 , p6_a4
279 , p6_a5
280 , p6_a6
281 , p6_a7
282 , p6_a8
283 , p6_a9
284 );
285
286 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p7_a0
287 , p7_a1
288 , p7_a2
289 , p7_a3
290 , p7_a4
291 , p7_a5
292 , p7_a6
293 );
294 end;
295
296 procedure insert_row(p_api_version NUMBER
297 , p_init_msg_list VARCHAR2
298 , x_return_status out nocopy VARCHAR2
299 , x_msg_count out nocopy NUMBER
300 , x_msg_data out nocopy VARCHAR2
301 , p5_a0 JTF_NUMBER_TABLE
302 , p5_a1 JTF_NUMBER_TABLE
303 , p5_a2 JTF_NUMBER_TABLE
304 , p5_a3 JTF_NUMBER_TABLE
305 , p5_a4 JTF_VARCHAR2_TABLE_100
306 , p5_a5 JTF_NUMBER_TABLE
307 , p5_a6 JTF_DATE_TABLE
308 , p5_a7 JTF_NUMBER_TABLE
309 , p5_a8 JTF_DATE_TABLE
310 , p5_a9 JTF_NUMBER_TABLE
311 , p6_a0 out nocopy JTF_NUMBER_TABLE
312 , p6_a1 out nocopy JTF_NUMBER_TABLE
313 , p6_a2 out nocopy JTF_NUMBER_TABLE
314 , p6_a3 out nocopy JTF_NUMBER_TABLE
315 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
316 , p6_a5 out nocopy JTF_NUMBER_TABLE
317 , p6_a6 out nocopy JTF_DATE_TABLE
318 , p6_a7 out nocopy JTF_NUMBER_TABLE
319 , p6_a8 out nocopy JTF_DATE_TABLE
320 , p6_a9 out nocopy JTF_NUMBER_TABLE
321 )
322
323 as
324 ddp_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
325 ddx_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
326 ddindx binary_integer; indx binary_integer;
327 begin
328
329 -- copy data to the local IN or IN-OUT args, if any
330
331
332
333
334
335 okl_rtp_pvt_w.rosetta_table_copy_in_p2(ddp_rtp_tbl, p5_a0
336 , p5_a1
337 , p5_a2
338 , p5_a3
339 , p5_a4
340 , p5_a5
341 , p5_a6
342 , p5_a7
343 , p5_a8
344 , p5_a9
345 );
346
347
348 -- here's the delegated call to the old PL/SQL routine
349 okl_rtp_pvt.insert_row(p_api_version,
350 p_init_msg_list,
351 x_return_status,
352 x_msg_count,
353 x_msg_data,
354 ddp_rtp_tbl,
355 ddx_rtp_tbl);
356
357 -- copy data back from the local variables to OUT or IN-OUT args, if any
358
359
360
361
362
363
364 okl_rtp_pvt_w.rosetta_table_copy_out_p2(ddx_rtp_tbl, p6_a0
365 , p6_a1
366 , p6_a2
367 , p6_a3
368 , p6_a4
369 , p6_a5
370 , p6_a6
371 , p6_a7
372 , p6_a8
373 , p6_a9
374 );
375 end;
376
377 procedure lock_row(p_api_version NUMBER
378 , p_init_msg_list VARCHAR2
379 , x_return_status out nocopy VARCHAR2
380 , x_msg_count out nocopy NUMBER
381 , x_msg_data out nocopy VARCHAR2
382 , p5_a0 NUMBER
383 , p5_a1 NUMBER
384 , p5_a2 NUMBER
385 , p5_a3 NUMBER
386 , p5_a4 VARCHAR2
387 , p5_a5 NUMBER
388 , p5_a6 DATE
389 , p5_a7 NUMBER
390 , p5_a8 DATE
391 , p5_a9 NUMBER
392 )
393
394 as
395 ddp_rtp_rec okl_rtp_pvt.rtp_rec_type;
396 ddindx binary_integer; indx binary_integer;
397 begin
398
399 -- copy data to the local IN or IN-OUT args, if any
400
401
402
403
404
405 ddp_rtp_rec.trx_parameter_id := p5_a0;
406 ddp_rtp_rec.report_id := p5_a1;
407 ddp_rtp_rec.try_id := p5_a2;
408 ddp_rtp_rec.sty_id := p5_a3;
409 ddp_rtp_rec.add_substract_code := p5_a4;
410 ddp_rtp_rec.created_by := p5_a5;
411 ddp_rtp_rec.creation_date := p5_a6;
412 ddp_rtp_rec.last_updated_by := p5_a7;
413 ddp_rtp_rec.last_update_date := p5_a8;
414 ddp_rtp_rec.last_update_login := p5_a9;
415
416 -- here's the delegated call to the old PL/SQL routine
417 okl_rtp_pvt.lock_row(p_api_version,
418 p_init_msg_list,
419 x_return_status,
420 x_msg_count,
421 x_msg_data,
422 ddp_rtp_rec);
423
424 -- copy data back from the local variables to OUT or IN-OUT args, if any
425
426
427
428
429
430 end;
431
432 procedure lock_row(p_api_version NUMBER
433 , p_init_msg_list VARCHAR2
434 , x_return_status out nocopy VARCHAR2
435 , x_msg_count out nocopy NUMBER
436 , x_msg_data out nocopy VARCHAR2
437 , p5_a0 JTF_NUMBER_TABLE
438 , p5_a1 JTF_NUMBER_TABLE
439 , p5_a2 JTF_NUMBER_TABLE
440 , p5_a3 JTF_NUMBER_TABLE
441 , p5_a4 JTF_VARCHAR2_TABLE_100
442 , p5_a5 JTF_NUMBER_TABLE
443 , p5_a6 JTF_DATE_TABLE
444 , p5_a7 JTF_NUMBER_TABLE
445 , p5_a8 JTF_DATE_TABLE
446 , p5_a9 JTF_NUMBER_TABLE
447 , p6_a0 in out nocopy JTF_NUMBER_TABLE
448 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
449 , p6_a2 in out nocopy JTF_NUMBER_TABLE
450 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
451 , p6_a4 in out nocopy JTF_NUMBER_TABLE
452 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
453 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
454 )
455
456 as
457 ddp_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
458 ddpx_error_tbl okl_api.error_tbl_type;
459 ddindx binary_integer; indx binary_integer;
460 begin
461
462 -- copy data to the local IN or IN-OUT args, if any
463
464
465
466
467
468 okl_rtp_pvt_w.rosetta_table_copy_in_p2(ddp_rtp_tbl, p5_a0
469 , p5_a1
470 , p5_a2
471 , p5_a3
472 , p5_a4
473 , p5_a5
474 , p5_a6
475 , p5_a7
476 , p5_a8
477 , p5_a9
478 );
479
480 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p6_a0
481 , p6_a1
482 , p6_a2
483 , p6_a3
484 , p6_a4
485 , p6_a5
486 , p6_a6
487 );
488
489 -- here's the delegated call to the old PL/SQL routine
490 okl_rtp_pvt.lock_row(p_api_version,
491 p_init_msg_list,
492 x_return_status,
493 x_msg_count,
494 x_msg_data,
495 ddp_rtp_tbl,
496 ddpx_error_tbl);
497
498 -- copy data back from the local variables to OUT or IN-OUT args, if any
499
500
501
502
503
504
505 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p6_a0
506 , p6_a1
507 , p6_a2
508 , p6_a3
509 , p6_a4
510 , p6_a5
511 , p6_a6
512 );
513 end;
514
515 procedure lock_row(p_api_version NUMBER
516 , p_init_msg_list VARCHAR2
517 , x_return_status out nocopy VARCHAR2
518 , x_msg_count out nocopy NUMBER
519 , x_msg_data out nocopy VARCHAR2
520 , p5_a0 JTF_NUMBER_TABLE
521 , p5_a1 JTF_NUMBER_TABLE
522 , p5_a2 JTF_NUMBER_TABLE
523 , p5_a3 JTF_NUMBER_TABLE
524 , p5_a4 JTF_VARCHAR2_TABLE_100
525 , p5_a5 JTF_NUMBER_TABLE
526 , p5_a6 JTF_DATE_TABLE
527 , p5_a7 JTF_NUMBER_TABLE
528 , p5_a8 JTF_DATE_TABLE
529 , p5_a9 JTF_NUMBER_TABLE
530 )
531
532 as
533 ddp_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
534 ddindx binary_integer; indx binary_integer;
535 begin
536
537 -- copy data to the local IN or IN-OUT args, if any
538
539
540
541
542
543 okl_rtp_pvt_w.rosetta_table_copy_in_p2(ddp_rtp_tbl, p5_a0
544 , p5_a1
545 , p5_a2
546 , p5_a3
547 , p5_a4
548 , p5_a5
549 , p5_a6
550 , p5_a7
551 , p5_a8
552 , p5_a9
553 );
554
555 -- here's the delegated call to the old PL/SQL routine
556 okl_rtp_pvt.lock_row(p_api_version,
557 p_init_msg_list,
558 x_return_status,
559 x_msg_count,
560 x_msg_data,
561 ddp_rtp_tbl);
562
563 -- copy data back from the local variables to OUT or IN-OUT args, if any
564
565
566
567
568
569 end;
570
571 procedure update_row(p_api_version NUMBER
572 , p_init_msg_list VARCHAR2
573 , x_return_status out nocopy VARCHAR2
574 , x_msg_count out nocopy NUMBER
575 , x_msg_data out nocopy VARCHAR2
576 , p5_a0 NUMBER
577 , p5_a1 NUMBER
578 , p5_a2 NUMBER
579 , p5_a3 NUMBER
580 , p5_a4 VARCHAR2
581 , p5_a5 NUMBER
582 , p5_a6 DATE
583 , p5_a7 NUMBER
584 , p5_a8 DATE
585 , p5_a9 NUMBER
586 , p6_a0 out nocopy NUMBER
587 , p6_a1 out nocopy NUMBER
588 , p6_a2 out nocopy NUMBER
589 , p6_a3 out nocopy NUMBER
590 , p6_a4 out nocopy VARCHAR2
591 , p6_a5 out nocopy NUMBER
592 , p6_a6 out nocopy DATE
593 , p6_a7 out nocopy NUMBER
594 , p6_a8 out nocopy DATE
595 , p6_a9 out nocopy NUMBER
596 )
597
598 as
599 ddp_rtp_rec okl_rtp_pvt.rtp_rec_type;
600 ddx_rtp_rec okl_rtp_pvt.rtp_rec_type;
601 ddindx binary_integer; indx binary_integer;
602 begin
603
604 -- copy data to the local IN or IN-OUT args, if any
605
606
607
608
609
610 ddp_rtp_rec.trx_parameter_id := p5_a0;
611 ddp_rtp_rec.report_id := p5_a1;
612 ddp_rtp_rec.try_id := p5_a2;
613 ddp_rtp_rec.sty_id := p5_a3;
614 ddp_rtp_rec.add_substract_code := p5_a4;
615 ddp_rtp_rec.created_by := p5_a5;
616 ddp_rtp_rec.creation_date := p5_a6;
617 ddp_rtp_rec.last_updated_by := p5_a7;
618 ddp_rtp_rec.last_update_date := p5_a8;
619 ddp_rtp_rec.last_update_login := p5_a9;
620
621
622 -- here's the delegated call to the old PL/SQL routine
623 okl_rtp_pvt.update_row(p_api_version,
624 p_init_msg_list,
625 x_return_status,
626 x_msg_count,
627 x_msg_data,
628 ddp_rtp_rec,
629 ddx_rtp_rec);
630
631 -- copy data back from the local variables to OUT or IN-OUT args, if any
632
633
634
635
636
637
638 p6_a0 := ddx_rtp_rec.trx_parameter_id;
639 p6_a1 := ddx_rtp_rec.report_id;
640 p6_a2 := ddx_rtp_rec.try_id;
641 p6_a3 := ddx_rtp_rec.sty_id;
642 p6_a4 := ddx_rtp_rec.add_substract_code;
643 p6_a5 := ddx_rtp_rec.created_by;
644 p6_a6 := ddx_rtp_rec.creation_date;
645 p6_a7 := ddx_rtp_rec.last_updated_by;
646 p6_a8 := ddx_rtp_rec.last_update_date;
647 p6_a9 := ddx_rtp_rec.last_update_login;
648 end;
649
650 procedure update_row(p_api_version NUMBER
651 , p_init_msg_list VARCHAR2
652 , x_return_status out nocopy VARCHAR2
653 , x_msg_count out nocopy NUMBER
654 , x_msg_data out nocopy VARCHAR2
655 , p5_a0 JTF_NUMBER_TABLE
656 , p5_a1 JTF_NUMBER_TABLE
657 , p5_a2 JTF_NUMBER_TABLE
658 , p5_a3 JTF_NUMBER_TABLE
659 , p5_a4 JTF_VARCHAR2_TABLE_100
660 , p5_a5 JTF_NUMBER_TABLE
661 , p5_a6 JTF_DATE_TABLE
662 , p5_a7 JTF_NUMBER_TABLE
663 , p5_a8 JTF_DATE_TABLE
664 , p5_a9 JTF_NUMBER_TABLE
665 , p6_a0 out nocopy JTF_NUMBER_TABLE
666 , p6_a1 out nocopy JTF_NUMBER_TABLE
667 , p6_a2 out nocopy JTF_NUMBER_TABLE
668 , p6_a3 out nocopy JTF_NUMBER_TABLE
669 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
670 , p6_a5 out nocopy JTF_NUMBER_TABLE
671 , p6_a6 out nocopy JTF_DATE_TABLE
672 , p6_a7 out nocopy JTF_NUMBER_TABLE
673 , p6_a8 out nocopy JTF_DATE_TABLE
674 , p6_a9 out nocopy JTF_NUMBER_TABLE
675 , p7_a0 in out nocopy JTF_NUMBER_TABLE
676 , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_100
677 , p7_a2 in out nocopy JTF_NUMBER_TABLE
678 , p7_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
679 , p7_a4 in out nocopy JTF_NUMBER_TABLE
680 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
681 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
682 )
683
684 as
685 ddp_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
686 ddx_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
687 ddpx_error_tbl okl_api.error_tbl_type;
688 ddindx binary_integer; indx binary_integer;
689 begin
690
691 -- copy data to the local IN or IN-OUT args, if any
692
693
694
695
696
697 okl_rtp_pvt_w.rosetta_table_copy_in_p2(ddp_rtp_tbl, p5_a0
698 , p5_a1
699 , p5_a2
700 , p5_a3
701 , p5_a4
702 , p5_a5
703 , p5_a6
704 , p5_a7
705 , p5_a8
706 , p5_a9
707 );
708
709
710 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p7_a0
711 , p7_a1
712 , p7_a2
713 , p7_a3
714 , p7_a4
715 , p7_a5
716 , p7_a6
717 );
718
719 -- here's the delegated call to the old PL/SQL routine
720 okl_rtp_pvt.update_row(p_api_version,
721 p_init_msg_list,
722 x_return_status,
723 x_msg_count,
724 x_msg_data,
725 ddp_rtp_tbl,
726 ddx_rtp_tbl,
727 ddpx_error_tbl);
728
729 -- copy data back from the local variables to OUT or IN-OUT args, if any
730
731
732
733
734
735
736 okl_rtp_pvt_w.rosetta_table_copy_out_p2(ddx_rtp_tbl, p6_a0
737 , p6_a1
738 , p6_a2
739 , p6_a3
740 , p6_a4
741 , p6_a5
742 , p6_a6
743 , p6_a7
744 , p6_a8
745 , p6_a9
746 );
747
748 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p7_a0
749 , p7_a1
750 , p7_a2
751 , p7_a3
752 , p7_a4
753 , p7_a5
754 , p7_a6
755 );
756 end;
757
758 procedure update_row(p_api_version NUMBER
759 , p_init_msg_list VARCHAR2
760 , x_return_status out nocopy VARCHAR2
761 , x_msg_count out nocopy NUMBER
762 , x_msg_data out nocopy VARCHAR2
763 , p5_a0 JTF_NUMBER_TABLE
764 , p5_a1 JTF_NUMBER_TABLE
765 , p5_a2 JTF_NUMBER_TABLE
766 , p5_a3 JTF_NUMBER_TABLE
767 , p5_a4 JTF_VARCHAR2_TABLE_100
768 , p5_a5 JTF_NUMBER_TABLE
769 , p5_a6 JTF_DATE_TABLE
770 , p5_a7 JTF_NUMBER_TABLE
771 , p5_a8 JTF_DATE_TABLE
772 , p5_a9 JTF_NUMBER_TABLE
773 , p6_a0 out nocopy JTF_NUMBER_TABLE
774 , p6_a1 out nocopy JTF_NUMBER_TABLE
775 , p6_a2 out nocopy JTF_NUMBER_TABLE
776 , p6_a3 out nocopy JTF_NUMBER_TABLE
777 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
778 , p6_a5 out nocopy JTF_NUMBER_TABLE
779 , p6_a6 out nocopy JTF_DATE_TABLE
780 , p6_a7 out nocopy JTF_NUMBER_TABLE
781 , p6_a8 out nocopy JTF_DATE_TABLE
782 , p6_a9 out nocopy JTF_NUMBER_TABLE
783 )
784
785 as
786 ddp_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
787 ddx_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
788 ddindx binary_integer; indx binary_integer;
789 begin
790
791 -- copy data to the local IN or IN-OUT args, if any
792
793
794
795
796
797 okl_rtp_pvt_w.rosetta_table_copy_in_p2(ddp_rtp_tbl, p5_a0
798 , p5_a1
799 , p5_a2
800 , p5_a3
801 , p5_a4
802 , p5_a5
803 , p5_a6
804 , p5_a7
805 , p5_a8
806 , p5_a9
807 );
808
809
810 -- here's the delegated call to the old PL/SQL routine
811 okl_rtp_pvt.update_row(p_api_version,
812 p_init_msg_list,
813 x_return_status,
814 x_msg_count,
815 x_msg_data,
816 ddp_rtp_tbl,
817 ddx_rtp_tbl);
818
819 -- copy data back from the local variables to OUT or IN-OUT args, if any
820
821
822
823
824
825
826 okl_rtp_pvt_w.rosetta_table_copy_out_p2(ddx_rtp_tbl, p6_a0
827 , p6_a1
828 , p6_a2
829 , p6_a3
830 , p6_a4
831 , p6_a5
832 , p6_a6
833 , p6_a7
834 , p6_a8
835 , p6_a9
836 );
837 end;
838
839 procedure delete_row(p_api_version NUMBER
840 , p_init_msg_list VARCHAR2
841 , x_return_status out nocopy VARCHAR2
842 , x_msg_count out nocopy NUMBER
843 , x_msg_data out nocopy VARCHAR2
844 , p5_a0 NUMBER
845 , p5_a1 NUMBER
846 , p5_a2 NUMBER
847 , p5_a3 NUMBER
848 , p5_a4 VARCHAR2
849 , p5_a5 NUMBER
850 , p5_a6 DATE
851 , p5_a7 NUMBER
852 , p5_a8 DATE
853 , p5_a9 NUMBER
854 )
855
856 as
857 ddp_rtp_rec okl_rtp_pvt.rtp_rec_type;
858 ddindx binary_integer; indx binary_integer;
859 begin
860
861 -- copy data to the local IN or IN-OUT args, if any
862
863
864
865
866
867 ddp_rtp_rec.trx_parameter_id := p5_a0;
868 ddp_rtp_rec.report_id := p5_a1;
869 ddp_rtp_rec.try_id := p5_a2;
870 ddp_rtp_rec.sty_id := p5_a3;
871 ddp_rtp_rec.add_substract_code := p5_a4;
872 ddp_rtp_rec.created_by := p5_a5;
873 ddp_rtp_rec.creation_date := p5_a6;
874 ddp_rtp_rec.last_updated_by := p5_a7;
875 ddp_rtp_rec.last_update_date := p5_a8;
876 ddp_rtp_rec.last_update_login := p5_a9;
877
878 -- here's the delegated call to the old PL/SQL routine
879 okl_rtp_pvt.delete_row(p_api_version,
880 p_init_msg_list,
881 x_return_status,
882 x_msg_count,
883 x_msg_data,
884 ddp_rtp_rec);
885
886 -- copy data back from the local variables to OUT or IN-OUT args, if any
887
888
889
890
891
892 end;
893
894 procedure delete_row(p_api_version NUMBER
895 , p_init_msg_list VARCHAR2
896 , x_return_status out nocopy VARCHAR2
897 , x_msg_count out nocopy NUMBER
898 , x_msg_data out nocopy VARCHAR2
899 , p5_a0 JTF_NUMBER_TABLE
900 , p5_a1 JTF_NUMBER_TABLE
901 , p5_a2 JTF_NUMBER_TABLE
902 , p5_a3 JTF_NUMBER_TABLE
903 , p5_a4 JTF_VARCHAR2_TABLE_100
904 , p5_a5 JTF_NUMBER_TABLE
905 , p5_a6 JTF_DATE_TABLE
906 , p5_a7 JTF_NUMBER_TABLE
907 , p5_a8 JTF_DATE_TABLE
908 , p5_a9 JTF_NUMBER_TABLE
909 , p6_a0 in out nocopy JTF_NUMBER_TABLE
910 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
911 , p6_a2 in out nocopy JTF_NUMBER_TABLE
912 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
913 , p6_a4 in out nocopy JTF_NUMBER_TABLE
914 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
915 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
916 )
917
918 as
919 ddp_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
920 ddpx_error_tbl okl_api.error_tbl_type;
921 ddindx binary_integer; indx binary_integer;
922 begin
923
924 -- copy data to the local IN or IN-OUT args, if any
925
926
927
928
929
930 okl_rtp_pvt_w.rosetta_table_copy_in_p2(ddp_rtp_tbl, p5_a0
931 , p5_a1
932 , p5_a2
933 , p5_a3
934 , p5_a4
935 , p5_a5
936 , p5_a6
937 , p5_a7
938 , p5_a8
939 , p5_a9
940 );
941
942 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p6_a0
943 , p6_a1
944 , p6_a2
945 , p6_a3
946 , p6_a4
947 , p6_a5
948 , p6_a6
949 );
950
951 -- here's the delegated call to the old PL/SQL routine
952 okl_rtp_pvt.delete_row(p_api_version,
953 p_init_msg_list,
954 x_return_status,
955 x_msg_count,
956 x_msg_data,
957 ddp_rtp_tbl,
958 ddpx_error_tbl);
959
960 -- copy data back from the local variables to OUT or IN-OUT args, if any
961
962
963
964
965
966
967 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p6_a0
968 , p6_a1
969 , p6_a2
970 , p6_a3
971 , p6_a4
972 , p6_a5
973 , p6_a6
974 );
975 end;
976
977 procedure delete_row(p_api_version NUMBER
978 , p_init_msg_list VARCHAR2
979 , x_return_status out nocopy VARCHAR2
980 , x_msg_count out nocopy NUMBER
981 , x_msg_data out nocopy VARCHAR2
982 , p5_a0 JTF_NUMBER_TABLE
983 , p5_a1 JTF_NUMBER_TABLE
984 , p5_a2 JTF_NUMBER_TABLE
985 , p5_a3 JTF_NUMBER_TABLE
986 , p5_a4 JTF_VARCHAR2_TABLE_100
987 , p5_a5 JTF_NUMBER_TABLE
988 , p5_a6 JTF_DATE_TABLE
989 , p5_a7 JTF_NUMBER_TABLE
990 , p5_a8 JTF_DATE_TABLE
991 , p5_a9 JTF_NUMBER_TABLE
992 )
993
994 as
995 ddp_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
996 ddindx binary_integer; indx binary_integer;
997 begin
998
999 -- copy data to the local IN or IN-OUT args, if any
1000
1001
1002
1003
1004
1005 okl_rtp_pvt_w.rosetta_table_copy_in_p2(ddp_rtp_tbl, p5_a0
1006 , p5_a1
1007 , p5_a2
1008 , p5_a3
1009 , p5_a4
1010 , p5_a5
1011 , p5_a6
1012 , p5_a7
1013 , p5_a8
1014 , p5_a9
1015 );
1016
1017 -- here's the delegated call to the old PL/SQL routine
1018 okl_rtp_pvt.delete_row(p_api_version,
1019 p_init_msg_list,
1020 x_return_status,
1021 x_msg_count,
1022 x_msg_data,
1023 ddp_rtp_tbl);
1024
1025 -- copy data back from the local variables to OUT or IN-OUT args, if any
1026
1027
1028
1029
1030
1031 end;
1032
1033 procedure validate_row(p_api_version NUMBER
1034 , p_init_msg_list VARCHAR2
1035 , x_return_status out nocopy VARCHAR2
1036 , x_msg_count out nocopy NUMBER
1037 , x_msg_data out nocopy VARCHAR2
1038 , p5_a0 NUMBER
1039 , p5_a1 NUMBER
1040 , p5_a2 NUMBER
1041 , p5_a3 NUMBER
1042 , p5_a4 VARCHAR2
1043 , p5_a5 NUMBER
1044 , p5_a6 DATE
1045 , p5_a7 NUMBER
1046 , p5_a8 DATE
1047 , p5_a9 NUMBER
1048 )
1049
1050 as
1051 ddp_rtp_rec okl_rtp_pvt.rtp_rec_type;
1052 ddindx binary_integer; indx binary_integer;
1053 begin
1054
1055 -- copy data to the local IN or IN-OUT args, if any
1056
1057
1058
1059
1060
1061 ddp_rtp_rec.trx_parameter_id := p5_a0;
1062 ddp_rtp_rec.report_id := p5_a1;
1063 ddp_rtp_rec.try_id := p5_a2;
1064 ddp_rtp_rec.sty_id := p5_a3;
1065 ddp_rtp_rec.add_substract_code := p5_a4;
1066 ddp_rtp_rec.created_by := p5_a5;
1067 ddp_rtp_rec.creation_date := p5_a6;
1068 ddp_rtp_rec.last_updated_by := p5_a7;
1069 ddp_rtp_rec.last_update_date := p5_a8;
1070 ddp_rtp_rec.last_update_login := p5_a9;
1071
1072 -- here's the delegated call to the old PL/SQL routine
1073 okl_rtp_pvt.validate_row(p_api_version,
1074 p_init_msg_list,
1075 x_return_status,
1076 x_msg_count,
1077 x_msg_data,
1078 ddp_rtp_rec);
1079
1080 -- copy data back from the local variables to OUT or IN-OUT args, if any
1081
1082
1083
1084
1085
1086 end;
1087
1088 procedure validate_row(p_api_version NUMBER
1089 , p_init_msg_list VARCHAR2
1090 , x_return_status out nocopy VARCHAR2
1091 , x_msg_count out nocopy NUMBER
1092 , x_msg_data out nocopy VARCHAR2
1093 , p5_a0 JTF_NUMBER_TABLE
1094 , p5_a1 JTF_NUMBER_TABLE
1095 , p5_a2 JTF_NUMBER_TABLE
1096 , p5_a3 JTF_NUMBER_TABLE
1097 , p5_a4 JTF_VARCHAR2_TABLE_100
1098 , p5_a5 JTF_NUMBER_TABLE
1099 , p5_a6 JTF_DATE_TABLE
1100 , p5_a7 JTF_NUMBER_TABLE
1101 , p5_a8 JTF_DATE_TABLE
1102 , p5_a9 JTF_NUMBER_TABLE
1103 , p6_a0 in out nocopy JTF_NUMBER_TABLE
1104 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1105 , p6_a2 in out nocopy JTF_NUMBER_TABLE
1106 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
1107 , p6_a4 in out nocopy JTF_NUMBER_TABLE
1108 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1109 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1110 )
1111
1112 as
1113 ddp_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
1114 ddpx_error_tbl okl_api.error_tbl_type;
1115 ddindx binary_integer; indx binary_integer;
1116 begin
1117
1118 -- copy data to the local IN or IN-OUT args, if any
1119
1120
1121
1122
1123
1124 okl_rtp_pvt_w.rosetta_table_copy_in_p2(ddp_rtp_tbl, p5_a0
1125 , p5_a1
1126 , p5_a2
1127 , p5_a3
1128 , p5_a4
1129 , p5_a5
1130 , p5_a6
1131 , p5_a7
1132 , p5_a8
1133 , p5_a9
1134 );
1135
1136 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p6_a0
1137 , p6_a1
1138 , p6_a2
1139 , p6_a3
1140 , p6_a4
1141 , p6_a5
1142 , p6_a6
1143 );
1144
1145 -- here's the delegated call to the old PL/SQL routine
1146 okl_rtp_pvt.validate_row(p_api_version,
1147 p_init_msg_list,
1148 x_return_status,
1149 x_msg_count,
1150 x_msg_data,
1151 ddp_rtp_tbl,
1152 ddpx_error_tbl);
1153
1154 -- copy data back from the local variables to OUT or IN-OUT args, if any
1155
1156
1157
1158
1159
1160
1161 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p6_a0
1162 , p6_a1
1163 , p6_a2
1164 , p6_a3
1165 , p6_a4
1166 , p6_a5
1167 , p6_a6
1168 );
1169 end;
1170
1171 procedure validate_row(p_api_version NUMBER
1172 , p_init_msg_list VARCHAR2
1173 , x_return_status out nocopy VARCHAR2
1174 , x_msg_count out nocopy NUMBER
1175 , x_msg_data out nocopy VARCHAR2
1176 , p5_a0 JTF_NUMBER_TABLE
1177 , p5_a1 JTF_NUMBER_TABLE
1178 , p5_a2 JTF_NUMBER_TABLE
1179 , p5_a3 JTF_NUMBER_TABLE
1180 , p5_a4 JTF_VARCHAR2_TABLE_100
1181 , p5_a5 JTF_NUMBER_TABLE
1182 , p5_a6 JTF_DATE_TABLE
1183 , p5_a7 JTF_NUMBER_TABLE
1184 , p5_a8 JTF_DATE_TABLE
1185 , p5_a9 JTF_NUMBER_TABLE
1186 )
1187
1188 as
1189 ddp_rtp_tbl okl_rtp_pvt.rtp_tbl_type;
1190 ddindx binary_integer; indx binary_integer;
1191 begin
1192
1193 -- copy data to the local IN or IN-OUT args, if any
1194
1195
1196
1197
1198
1199 okl_rtp_pvt_w.rosetta_table_copy_in_p2(ddp_rtp_tbl, p5_a0
1200 , p5_a1
1201 , p5_a2
1202 , p5_a3
1203 , p5_a4
1204 , p5_a5
1205 , p5_a6
1206 , p5_a7
1207 , p5_a8
1208 , p5_a9
1209 );
1210
1211 -- here's the delegated call to the old PL/SQL routine
1212 okl_rtp_pvt.validate_row(p_api_version,
1213 p_init_msg_list,
1214 x_return_status,
1215 x_msg_count,
1216 x_msg_data,
1217 ddp_rtp_tbl);
1218
1219 -- copy data back from the local variables to OUT or IN-OUT args, if any
1220
1221
1222
1223
1224
1225 end;
1226
1227 end okl_rtp_pvt_w;