1: package body okl_ovd_pvt_w as
2: /* $Header: OKLIOVDB.pls 115.4 2002/12/24 04:06:30 sgorantl 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_ovd_pvt.ovd_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
65: end loop;
66: end if;
67: end if;
68: end rosetta_table_copy_in_p2;
69: procedure rosetta_table_copy_out_p2(t okl_ovd_pvt.ovd_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
70: , a1 out nocopy JTF_VARCHAR2_TABLE_100
71: , a2 out nocopy JTF_NUMBER_TABLE
72: , a3 out nocopy JTF_NUMBER_TABLE
73: , a4 out nocopy JTF_VARCHAR2_TABLE_100
159: end if;
160: end if;
161: end rosetta_table_copy_out_p2;
162:
163: procedure rosetta_table_copy_in_p5(t out nocopy okl_ovd_pvt.ovdv_tbl_type, a0 JTF_NUMBER_TABLE
164: , a1 JTF_VARCHAR2_TABLE_100
165: , a2 JTF_NUMBER_TABLE
166: , a3 JTF_NUMBER_TABLE
167: , a4 JTF_NUMBER_TABLE
206: end loop;
207: end if;
208: end if;
209: end rosetta_table_copy_in_p5;
210: procedure rosetta_table_copy_out_p5(t okl_ovd_pvt.ovdv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
211: , a1 out nocopy JTF_VARCHAR2_TABLE_100
212: , a2 out nocopy JTF_NUMBER_TABLE
213: , a3 out nocopy JTF_NUMBER_TABLE
214: , a4 out nocopy JTF_NUMBER_TABLE
338: , p5_a14 NUMBER := 0-1962.0724
339: )
340:
341: as
342: ddp_ovdv_rec okl_ovd_pvt.ovdv_rec_type;
343: ddx_ovdv_rec okl_ovd_pvt.ovdv_rec_type;
344: ddindx binary_integer; indx binary_integer;
345: begin
346:
339: )
340:
341: as
342: ddp_ovdv_rec okl_ovd_pvt.ovdv_rec_type;
343: ddx_ovdv_rec okl_ovd_pvt.ovdv_rec_type;
344: ddindx binary_integer; indx binary_integer;
345: begin
346:
347: -- copy data to the local IN or IN-OUT args, if any
367: ddp_ovdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a14);
368:
369:
370: -- here's the delegated call to the old PL/SQL routine
371: okl_ovd_pvt.insert_row(p_api_version,
372: p_init_msg_list,
373: x_return_status,
374: x_msg_count,
375: x_msg_data,
437: , p6_a14 out nocopy JTF_NUMBER_TABLE
438: )
439:
440: as
441: ddp_ovdv_tbl okl_ovd_pvt.ovdv_tbl_type;
442: ddx_ovdv_tbl okl_ovd_pvt.ovdv_tbl_type;
443: ddindx binary_integer; indx binary_integer;
444: begin
445:
438: )
439:
440: as
441: ddp_ovdv_tbl okl_ovd_pvt.ovdv_tbl_type;
442: ddx_ovdv_tbl okl_ovd_pvt.ovdv_tbl_type;
443: ddindx binary_integer; indx binary_integer;
444: begin
445:
446: -- copy data to the local IN or IN-OUT args, if any
448:
449:
450:
451:
452: okl_ovd_pvt_w.rosetta_table_copy_in_p5(ddp_ovdv_tbl, p5_a0
453: , p5_a1
454: , p5_a2
455: , p5_a3
456: , p5_a4
467: );
468:
469:
470: -- here's the delegated call to the old PL/SQL routine
471: okl_ovd_pvt.insert_row(p_api_version,
472: p_init_msg_list,
473: x_return_status,
474: x_msg_count,
475: x_msg_data,
482:
483:
484:
485:
486: okl_ovd_pvt_w.rosetta_table_copy_out_p5(ddx_ovdv_tbl, p6_a0
487: , p6_a1
488: , p6_a2
489: , p6_a3
490: , p6_a4
523: , p5_a14 NUMBER := 0-1962.0724
524: )
525:
526: as
527: ddp_ovdv_rec okl_ovd_pvt.ovdv_rec_type;
528: ddindx binary_integer; indx binary_integer;
529: begin
530:
531: -- copy data to the local IN or IN-OUT args, if any
550: ddp_ovdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a13);
551: ddp_ovdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a14);
552:
553: -- here's the delegated call to the old PL/SQL routine
554: okl_ovd_pvt.lock_row(p_api_version,
555: p_init_msg_list,
556: x_return_status,
557: x_msg_count,
558: x_msg_data,
588: , p5_a14 JTF_NUMBER_TABLE
589: )
590:
591: as
592: ddp_ovdv_tbl okl_ovd_pvt.ovdv_tbl_type;
593: ddindx binary_integer; indx binary_integer;
594: begin
595:
596: -- copy data to the local IN or IN-OUT args, if any
598:
599:
600:
601:
602: okl_ovd_pvt_w.rosetta_table_copy_in_p5(ddp_ovdv_tbl, p5_a0
603: , p5_a1
604: , p5_a2
605: , p5_a3
606: , p5_a4
616: , p5_a14
617: );
618:
619: -- here's the delegated call to the old PL/SQL routine
620: okl_ovd_pvt.lock_row(p_api_version,
621: p_init_msg_list,
622: x_return_status,
623: x_msg_count,
624: x_msg_data,
669: , p5_a14 NUMBER := 0-1962.0724
670: )
671:
672: as
673: ddp_ovdv_rec okl_ovd_pvt.ovdv_rec_type;
674: ddx_ovdv_rec okl_ovd_pvt.ovdv_rec_type;
675: ddindx binary_integer; indx binary_integer;
676: begin
677:
670: )
671:
672: as
673: ddp_ovdv_rec okl_ovd_pvt.ovdv_rec_type;
674: ddx_ovdv_rec okl_ovd_pvt.ovdv_rec_type;
675: ddindx binary_integer; indx binary_integer;
676: begin
677:
678: -- copy data to the local IN or IN-OUT args, if any
698: ddp_ovdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a14);
699:
700:
701: -- here's the delegated call to the old PL/SQL routine
702: okl_ovd_pvt.update_row(p_api_version,
703: p_init_msg_list,
704: x_return_status,
705: x_msg_count,
706: x_msg_data,
768: , p6_a14 out nocopy JTF_NUMBER_TABLE
769: )
770:
771: as
772: ddp_ovdv_tbl okl_ovd_pvt.ovdv_tbl_type;
773: ddx_ovdv_tbl okl_ovd_pvt.ovdv_tbl_type;
774: ddindx binary_integer; indx binary_integer;
775: begin
776:
769: )
770:
771: as
772: ddp_ovdv_tbl okl_ovd_pvt.ovdv_tbl_type;
773: ddx_ovdv_tbl okl_ovd_pvt.ovdv_tbl_type;
774: ddindx binary_integer; indx binary_integer;
775: begin
776:
777: -- copy data to the local IN or IN-OUT args, if any
779:
780:
781:
782:
783: okl_ovd_pvt_w.rosetta_table_copy_in_p5(ddp_ovdv_tbl, p5_a0
784: , p5_a1
785: , p5_a2
786: , p5_a3
787: , p5_a4
798: );
799:
800:
801: -- here's the delegated call to the old PL/SQL routine
802: okl_ovd_pvt.update_row(p_api_version,
803: p_init_msg_list,
804: x_return_status,
805: x_msg_count,
806: x_msg_data,
813:
814:
815:
816:
817: okl_ovd_pvt_w.rosetta_table_copy_out_p5(ddx_ovdv_tbl, p6_a0
818: , p6_a1
819: , p6_a2
820: , p6_a3
821: , p6_a4
854: , p5_a14 NUMBER := 0-1962.0724
855: )
856:
857: as
858: ddp_ovdv_rec okl_ovd_pvt.ovdv_rec_type;
859: ddindx binary_integer; indx binary_integer;
860: begin
861:
862: -- copy data to the local IN or IN-OUT args, if any
881: ddp_ovdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a13);
882: ddp_ovdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a14);
883:
884: -- here's the delegated call to the old PL/SQL routine
885: okl_ovd_pvt.delete_row(p_api_version,
886: p_init_msg_list,
887: x_return_status,
888: x_msg_count,
889: x_msg_data,
919: , p5_a14 JTF_NUMBER_TABLE
920: )
921:
922: as
923: ddp_ovdv_tbl okl_ovd_pvt.ovdv_tbl_type;
924: ddindx binary_integer; indx binary_integer;
925: begin
926:
927: -- copy data to the local IN or IN-OUT args, if any
929:
930:
931:
932:
933: okl_ovd_pvt_w.rosetta_table_copy_in_p5(ddp_ovdv_tbl, p5_a0
934: , p5_a1
935: , p5_a2
936: , p5_a3
937: , p5_a4
947: , p5_a14
948: );
949:
950: -- here's the delegated call to the old PL/SQL routine
951: okl_ovd_pvt.delete_row(p_api_version,
952: p_init_msg_list,
953: x_return_status,
954: x_msg_count,
955: x_msg_data,
985: , p5_a14 NUMBER := 0-1962.0724
986: )
987:
988: as
989: ddp_ovdv_rec okl_ovd_pvt.ovdv_rec_type;
990: ddindx binary_integer; indx binary_integer;
991: begin
992:
993: -- copy data to the local IN or IN-OUT args, if any
1012: ddp_ovdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a13);
1013: ddp_ovdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a14);
1014:
1015: -- here's the delegated call to the old PL/SQL routine
1016: okl_ovd_pvt.validate_row(p_api_version,
1017: p_init_msg_list,
1018: x_return_status,
1019: x_msg_count,
1020: x_msg_data,
1050: , p5_a14 JTF_NUMBER_TABLE
1051: )
1052:
1053: as
1054: ddp_ovdv_tbl okl_ovd_pvt.ovdv_tbl_type;
1055: ddindx binary_integer; indx binary_integer;
1056: begin
1057:
1058: -- copy data to the local IN or IN-OUT args, if any
1060:
1061:
1062:
1063:
1064: okl_ovd_pvt_w.rosetta_table_copy_in_p5(ddp_ovdv_tbl, p5_a0
1065: , p5_a1
1066: , p5_a2
1067: , p5_a3
1068: , p5_a4
1078: , p5_a14
1079: );
1080:
1081: -- here's the delegated call to the old PL/SQL routine
1082: okl_ovd_pvt.validate_row(p_api_version,
1083: p_init_msg_list,
1084: x_return_status,
1085: x_msg_count,
1086: x_msg_data,
1093:
1094:
1095: end;
1096:
1097: end okl_ovd_pvt_w;