1: package body okl_gtl_pvt_w as
2: /* $Header: OKLIGTLB.pls 120.1 2005/10/30 03:16:56 appldev 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:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p2(t out nocopy okl_gtl_pvt.gtl_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_NUMBER_TABLE
61: end loop;
62: end if;
63: end if;
64: end rosetta_table_copy_in_p2;
65: procedure rosetta_table_copy_out_p2(t okl_gtl_pvt.gtl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
66: , a1 out nocopy JTF_NUMBER_TABLE
67: , a2 out nocopy JTF_NUMBER_TABLE
68: , a3 out nocopy JTF_VARCHAR2_TABLE_100
69: , a4 out nocopy JTF_NUMBER_TABLE
145: end if;
146: end if;
147: end rosetta_table_copy_out_p2;
148:
149: procedure rosetta_table_copy_in_p5(t out nocopy okl_gtl_pvt.gtlv_tbl_type, a0 JTF_NUMBER_TABLE
150: , a1 JTF_NUMBER_TABLE
151: , a2 JTF_NUMBER_TABLE
152: , a3 JTF_VARCHAR2_TABLE_100
153: , a4 JTF_NUMBER_TABLE
188: end loop;
189: end if;
190: end if;
191: end rosetta_table_copy_in_p5;
192: procedure rosetta_table_copy_out_p5(t okl_gtl_pvt.gtlv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
193: , a1 out nocopy JTF_NUMBER_TABLE
194: , a2 out nocopy JTF_NUMBER_TABLE
195: , a3 out nocopy JTF_VARCHAR2_TABLE_100
196: , a4 out nocopy JTF_NUMBER_TABLE
306: , p5_a12 NUMBER := 0-1962.0724
307: )
308:
309: as
310: ddp_gtlv_rec okl_gtl_pvt.gtlv_rec_type;
311: ddx_gtlv_rec okl_gtl_pvt.gtlv_rec_type;
312: ddindx binary_integer; indx binary_integer;
313: begin
314:
307: )
308:
309: as
310: ddp_gtlv_rec okl_gtl_pvt.gtlv_rec_type;
311: ddx_gtlv_rec okl_gtl_pvt.gtlv_rec_type;
312: ddindx binary_integer; indx binary_integer;
313: begin
314:
315: -- copy data to the local IN or IN-OUT args, if any
333: ddp_gtlv_rec.last_update_login := rosetta_g_miss_num_map(p5_a12);
334:
335:
336: -- here's the delegated call to the old PL/SQL routine
337: okl_gtl_pvt.insert_row(p_api_version,
338: p_init_msg_list,
339: x_return_status,
340: x_msg_count,
341: x_msg_data,
397: , p6_a12 out nocopy JTF_NUMBER_TABLE
398: )
399:
400: as
401: ddp_gtlv_tbl okl_gtl_pvt.gtlv_tbl_type;
402: ddx_gtlv_tbl okl_gtl_pvt.gtlv_tbl_type;
403: ddindx binary_integer; indx binary_integer;
404: begin
405:
398: )
399:
400: as
401: ddp_gtlv_tbl okl_gtl_pvt.gtlv_tbl_type;
402: ddx_gtlv_tbl okl_gtl_pvt.gtlv_tbl_type;
403: ddindx binary_integer; indx binary_integer;
404: begin
405:
406: -- copy data to the local IN or IN-OUT args, if any
408:
409:
410:
411:
412: okl_gtl_pvt_w.rosetta_table_copy_in_p5(ddp_gtlv_tbl, p5_a0
413: , p5_a1
414: , p5_a2
415: , p5_a3
416: , p5_a4
425: );
426:
427:
428: -- here's the delegated call to the old PL/SQL routine
429: okl_gtl_pvt.insert_row(p_api_version,
430: p_init_msg_list,
431: x_return_status,
432: x_msg_count,
433: x_msg_data,
440:
441:
442:
443:
444: okl_gtl_pvt_w.rosetta_table_copy_out_p5(ddx_gtlv_tbl, p6_a0
445: , p6_a1
446: , p6_a2
447: , p6_a3
448: , p6_a4
490: , p5_a12 NUMBER := 0-1962.0724
491: )
492:
493: as
494: ddp_gtlv_rec okl_gtl_pvt.gtlv_rec_type;
495: ddx_gtlv_rec okl_gtl_pvt.gtlv_rec_type;
496: ddindx binary_integer; indx binary_integer;
497: begin
498:
491: )
492:
493: as
494: ddp_gtlv_rec okl_gtl_pvt.gtlv_rec_type;
495: ddx_gtlv_rec okl_gtl_pvt.gtlv_rec_type;
496: ddindx binary_integer; indx binary_integer;
497: begin
498:
499: -- copy data to the local IN or IN-OUT args, if any
517: ddp_gtlv_rec.last_update_login := rosetta_g_miss_num_map(p5_a12);
518:
519:
520: -- here's the delegated call to the old PL/SQL routine
521: okl_gtl_pvt.update_row(p_api_version,
522: p_init_msg_list,
523: x_return_status,
524: x_msg_count,
525: x_msg_data,
581: , p6_a12 out nocopy JTF_NUMBER_TABLE
582: )
583:
584: as
585: ddp_gtlv_tbl okl_gtl_pvt.gtlv_tbl_type;
586: ddx_gtlv_tbl okl_gtl_pvt.gtlv_tbl_type;
587: ddindx binary_integer; indx binary_integer;
588: begin
589:
582: )
583:
584: as
585: ddp_gtlv_tbl okl_gtl_pvt.gtlv_tbl_type;
586: ddx_gtlv_tbl okl_gtl_pvt.gtlv_tbl_type;
587: ddindx binary_integer; indx binary_integer;
588: begin
589:
590: -- copy data to the local IN or IN-OUT args, if any
592:
593:
594:
595:
596: okl_gtl_pvt_w.rosetta_table_copy_in_p5(ddp_gtlv_tbl, p5_a0
597: , p5_a1
598: , p5_a2
599: , p5_a3
600: , p5_a4
609: );
610:
611:
612: -- here's the delegated call to the old PL/SQL routine
613: okl_gtl_pvt.update_row(p_api_version,
614: p_init_msg_list,
615: x_return_status,
616: x_msg_count,
617: x_msg_data,
624:
625:
626:
627:
628: okl_gtl_pvt_w.rosetta_table_copy_out_p5(ddx_gtlv_tbl, p6_a0
629: , p6_a1
630: , p6_a2
631: , p6_a3
632: , p6_a4
661: , p5_a12 NUMBER := 0-1962.0724
662: )
663:
664: as
665: ddp_gtlv_rec okl_gtl_pvt.gtlv_rec_type;
666: ddindx binary_integer; indx binary_integer;
667: begin
668:
669: -- copy data to the local IN or IN-OUT args, if any
686: ddp_gtlv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a11);
687: ddp_gtlv_rec.last_update_login := rosetta_g_miss_num_map(p5_a12);
688:
689: -- here's the delegated call to the old PL/SQL routine
690: okl_gtl_pvt.delete_row(p_api_version,
691: p_init_msg_list,
692: x_return_status,
693: x_msg_count,
694: x_msg_data,
722: , p5_a12 JTF_NUMBER_TABLE
723: )
724:
725: as
726: ddp_gtlv_tbl okl_gtl_pvt.gtlv_tbl_type;
727: ddindx binary_integer; indx binary_integer;
728: begin
729:
730: -- copy data to the local IN or IN-OUT args, if any
732:
733:
734:
735:
736: okl_gtl_pvt_w.rosetta_table_copy_in_p5(ddp_gtlv_tbl, p5_a0
737: , p5_a1
738: , p5_a2
739: , p5_a3
740: , p5_a4
748: , p5_a12
749: );
750:
751: -- here's the delegated call to the old PL/SQL routine
752: okl_gtl_pvt.delete_row(p_api_version,
753: p_init_msg_list,
754: x_return_status,
755: x_msg_count,
756: x_msg_data,
763:
764:
765: end;
766:
767: end okl_gtl_pvt_w;