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