1: package body okl_pcm_pvt_w as
2: /* $Header: OKLIPCMB.pls 120.0 2007/10/05 10:22:06 asawanka noship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
21: if n=b then return a; end if;
22: return n;
23: end;
24:
25: procedure rosetta_table_copy_in_p2(t out nocopy okl_pcm_pvt.pcm_tbl_type, a0 JTF_NUMBER_TABLE
26: , a1 JTF_NUMBER_TABLE
27: , a2 JTF_NUMBER_TABLE
28: , a3 JTF_NUMBER_TABLE
29: , a4 JTF_VARCHAR2_TABLE_100
58: end loop;
59: end if;
60: end if;
61: end rosetta_table_copy_in_p2;
62: procedure rosetta_table_copy_out_p2(t okl_pcm_pvt.pcm_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
63: , a1 out nocopy JTF_NUMBER_TABLE
64: , a2 out nocopy JTF_NUMBER_TABLE
65: , a3 out nocopy JTF_NUMBER_TABLE
66: , a4 out nocopy JTF_VARCHAR2_TABLE_100
155: , p5_a9 NUMBER := 0-1962.0724
156: )
157:
158: as
159: ddp_pcm_rec okl_pcm_pvt.pcm_rec_type;
160: ddx_pcm_rec okl_pcm_pvt.pcm_rec_type;
161: ddindx binary_integer; indx binary_integer;
162: begin
163:
156: )
157:
158: as
159: ddp_pcm_rec okl_pcm_pvt.pcm_rec_type;
160: ddx_pcm_rec okl_pcm_pvt.pcm_rec_type;
161: ddindx binary_integer; indx binary_integer;
162: begin
163:
164: -- copy data to the local IN or IN-OUT args, if any
179: ddp_pcm_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
180:
181:
182: -- here's the delegated call to the old PL/SQL routine
183: okl_pcm_pvt.insert_row(p_api_version,
184: p_init_msg_list,
185: x_return_status,
186: x_msg_count,
187: x_msg_data,
234: , p6_a9 out nocopy JTF_NUMBER_TABLE
235: )
236:
237: as
238: ddp_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
239: ddx_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
240: ddindx binary_integer; indx binary_integer;
241: begin
242:
235: )
236:
237: as
238: ddp_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
239: ddx_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
240: ddindx binary_integer; indx binary_integer;
241: begin
242:
243: -- copy data to the local IN or IN-OUT args, if any
245:
246:
247:
248:
249: okl_pcm_pvt_w.rosetta_table_copy_in_p2(ddp_pcm_tbl, p5_a0
250: , p5_a1
251: , p5_a2
252: , p5_a3
253: , p5_a4
259: );
260:
261:
262: -- here's the delegated call to the old PL/SQL routine
263: okl_pcm_pvt.insert_row(p_api_version,
264: p_init_msg_list,
265: x_return_status,
266: x_msg_count,
267: x_msg_data,
274:
275:
276:
277:
278: okl_pcm_pvt_w.rosetta_table_copy_out_p2(ddx_pcm_tbl, p6_a0
279: , p6_a1
280: , p6_a2
281: , p6_a3
282: , p6_a4
305: , p5_a9 NUMBER := 0-1962.0724
306: )
307:
308: as
309: ddp_pcm_rec okl_pcm_pvt.pcm_rec_type;
310: ddindx binary_integer; indx binary_integer;
311: begin
312:
313: -- copy data to the local IN or IN-OUT args, if any
327: ddp_pcm_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
328: ddp_pcm_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
329:
330: -- here's the delegated call to the old PL/SQL routine
331: okl_pcm_pvt.lock_row(p_api_version,
332: p_init_msg_list,
333: x_return_status,
334: x_msg_count,
335: x_msg_data,
360: , p5_a9 JTF_NUMBER_TABLE
361: )
362:
363: as
364: ddp_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
365: ddindx binary_integer; indx binary_integer;
366: begin
367:
368: -- copy data to the local IN or IN-OUT args, if any
370:
371:
372:
373:
374: okl_pcm_pvt_w.rosetta_table_copy_in_p2(ddp_pcm_tbl, p5_a0
375: , p5_a1
376: , p5_a2
377: , p5_a3
378: , p5_a4
383: , p5_a9
384: );
385:
386: -- here's the delegated call to the old PL/SQL routine
387: okl_pcm_pvt.lock_row(p_api_version,
388: p_init_msg_list,
389: x_return_status,
390: x_msg_count,
391: x_msg_data,
426: , p5_a9 NUMBER := 0-1962.0724
427: )
428:
429: as
430: ddp_pcm_rec okl_pcm_pvt.pcm_rec_type;
431: ddx_pcm_rec okl_pcm_pvt.pcm_rec_type;
432: ddindx binary_integer; indx binary_integer;
433: begin
434:
427: )
428:
429: as
430: ddp_pcm_rec okl_pcm_pvt.pcm_rec_type;
431: ddx_pcm_rec okl_pcm_pvt.pcm_rec_type;
432: ddindx binary_integer; indx binary_integer;
433: begin
434:
435: -- copy data to the local IN or IN-OUT args, if any
450: ddp_pcm_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
451:
452:
453: -- here's the delegated call to the old PL/SQL routine
454: okl_pcm_pvt.update_row(p_api_version,
455: p_init_msg_list,
456: x_return_status,
457: x_msg_count,
458: x_msg_data,
505: , p6_a9 out nocopy JTF_NUMBER_TABLE
506: )
507:
508: as
509: ddp_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
510: ddx_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
511: ddindx binary_integer; indx binary_integer;
512: begin
513:
506: )
507:
508: as
509: ddp_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
510: ddx_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
511: ddindx binary_integer; indx binary_integer;
512: begin
513:
514: -- copy data to the local IN or IN-OUT args, if any
516:
517:
518:
519:
520: okl_pcm_pvt_w.rosetta_table_copy_in_p2(ddp_pcm_tbl, p5_a0
521: , p5_a1
522: , p5_a2
523: , p5_a3
524: , p5_a4
530: );
531:
532:
533: -- here's the delegated call to the old PL/SQL routine
534: okl_pcm_pvt.update_row(p_api_version,
535: p_init_msg_list,
536: x_return_status,
537: x_msg_count,
538: x_msg_data,
545:
546:
547:
548:
549: okl_pcm_pvt_w.rosetta_table_copy_out_p2(ddx_pcm_tbl, p6_a0
550: , p6_a1
551: , p6_a2
552: , p6_a3
553: , p6_a4
576: , p5_a9 NUMBER := 0-1962.0724
577: )
578:
579: as
580: ddp_pcm_rec okl_pcm_pvt.pcm_rec_type;
581: ddindx binary_integer; indx binary_integer;
582: begin
583:
584: -- copy data to the local IN or IN-OUT args, if any
598: ddp_pcm_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
599: ddp_pcm_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
600:
601: -- here's the delegated call to the old PL/SQL routine
602: okl_pcm_pvt.delete_row(p_api_version,
603: p_init_msg_list,
604: x_return_status,
605: x_msg_count,
606: x_msg_data,
631: , p5_a9 JTF_NUMBER_TABLE
632: )
633:
634: as
635: ddp_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
636: ddindx binary_integer; indx binary_integer;
637: begin
638:
639: -- copy data to the local IN or IN-OUT args, if any
641:
642:
643:
644:
645: okl_pcm_pvt_w.rosetta_table_copy_in_p2(ddp_pcm_tbl, p5_a0
646: , p5_a1
647: , p5_a2
648: , p5_a3
649: , p5_a4
654: , p5_a9
655: );
656:
657: -- here's the delegated call to the old PL/SQL routine
658: okl_pcm_pvt.delete_row(p_api_version,
659: p_init_msg_list,
660: x_return_status,
661: x_msg_count,
662: x_msg_data,
687: , p5_a9 NUMBER := 0-1962.0724
688: )
689:
690: as
691: ddp_pcm_rec okl_pcm_pvt.pcm_rec_type;
692: ddindx binary_integer; indx binary_integer;
693: begin
694:
695: -- copy data to the local IN or IN-OUT args, if any
709: ddp_pcm_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
710: ddp_pcm_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
711:
712: -- here's the delegated call to the old PL/SQL routine
713: okl_pcm_pvt.validate_row(p_api_version,
714: p_init_msg_list,
715: x_return_status,
716: x_msg_count,
717: x_msg_data,
742: , p5_a9 JTF_NUMBER_TABLE
743: )
744:
745: as
746: ddp_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
747: ddindx binary_integer; indx binary_integer;
748: begin
749:
750: -- copy data to the local IN or IN-OUT args, if any
752:
753:
754:
755:
756: okl_pcm_pvt_w.rosetta_table_copy_in_p2(ddp_pcm_tbl, p5_a0
757: , p5_a1
758: , p5_a2
759: , p5_a3
760: , p5_a4
765: , p5_a9
766: );
767:
768: -- here's the delegated call to the old PL/SQL routine
769: okl_pcm_pvt.validate_row(p_api_version,
770: p_init_msg_list,
771: x_return_status,
772: x_msg_count,
773: x_msg_data,
780:
781:
782: end;
783:
784: end okl_pcm_pvt_w;