1: package body okl_aet_pvt_w as
2: /* $Header: OKLIAETB.pls 120.2 2005/12/02 12:56:41 dkagrawa 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_aet_pvt.aet_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_VARCHAR2_TABLE_100
25: , a3 JTF_DATE_TABLE
26: , a4 JTF_NUMBER_TABLE
71: end loop;
72: end if;
73: end if;
74: end rosetta_table_copy_in_p2;
75: procedure rosetta_table_copy_out_p2(t okl_aet_pvt.aet_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
76: , a1 out nocopy JTF_NUMBER_TABLE
77: , a2 out nocopy JTF_VARCHAR2_TABLE_100
78: , a3 out nocopy JTF_DATE_TABLE
79: , a4 out nocopy JTF_NUMBER_TABLE
180: end if;
181: end if;
182: end rosetta_table_copy_out_p2;
183:
184: procedure rosetta_table_copy_in_p5(t out nocopy okl_aet_pvt.aetv_tbl_type, a0 JTF_NUMBER_TABLE
185: , a1 JTF_NUMBER_TABLE
186: , a2 JTF_NUMBER_TABLE
187: , a3 JTF_VARCHAR2_TABLE_100
188: , a4 JTF_DATE_TABLE
233: end loop;
234: end if;
235: end if;
236: end rosetta_table_copy_in_p5;
237: procedure rosetta_table_copy_out_p5(t okl_aet_pvt.aetv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
238: , a1 out nocopy JTF_NUMBER_TABLE
239: , a2 out nocopy JTF_NUMBER_TABLE
240: , a3 out nocopy JTF_VARCHAR2_TABLE_100
241: , a4 out nocopy JTF_DATE_TABLE
386: , p5_a17 NUMBER := 0-1962.0724
387: )
388:
389: as
390: ddp_aetv_rec okl_aet_pvt.aetv_rec_type;
391: ddx_aetv_rec okl_aet_pvt.aetv_rec_type;
392: ddindx binary_integer; indx binary_integer;
393: begin
394:
387: )
388:
389: as
390: ddp_aetv_rec okl_aet_pvt.aetv_rec_type;
391: ddx_aetv_rec okl_aet_pvt.aetv_rec_type;
392: ddindx binary_integer; indx binary_integer;
393: begin
394:
395: -- copy data to the local IN or IN-OUT args, if any
418: ddp_aetv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
419:
420:
421: -- here's the delegated call to the old PL/SQL routine
422: okl_aet_pvt.insert_row(p_api_version,
423: p_init_msg_list,
424: x_return_status,
425: x_msg_count,
426: x_msg_data,
497: , p6_a17 out nocopy JTF_NUMBER_TABLE
498: )
499:
500: as
501: ddp_aetv_tbl okl_aet_pvt.aetv_tbl_type;
502: ddx_aetv_tbl okl_aet_pvt.aetv_tbl_type;
503: ddindx binary_integer; indx binary_integer;
504: begin
505:
498: )
499:
500: as
501: ddp_aetv_tbl okl_aet_pvt.aetv_tbl_type;
502: ddx_aetv_tbl okl_aet_pvt.aetv_tbl_type;
503: ddindx binary_integer; indx binary_integer;
504: begin
505:
506: -- copy data to the local IN or IN-OUT args, if any
508:
509:
510:
511:
512: okl_aet_pvt_w.rosetta_table_copy_in_p5(ddp_aetv_tbl, p5_a0
513: , p5_a1
514: , p5_a2
515: , p5_a3
516: , p5_a4
530: );
531:
532:
533: -- here's the delegated call to the old PL/SQL routine
534: okl_aet_pvt.insert_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_aet_pvt_w.rosetta_table_copy_out_p5(ddx_aetv_tbl, p6_a0
550: , p6_a1
551: , p6_a2
552: , p6_a3
553: , p6_a4
592: , p5_a17 NUMBER := 0-1962.0724
593: )
594:
595: as
596: ddp_aetv_rec okl_aet_pvt.aetv_rec_type;
597: ddindx binary_integer; indx binary_integer;
598: begin
599:
600: -- copy data to the local IN or IN-OUT args, if any
622: ddp_aetv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
623: ddp_aetv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
624:
625: -- here's the delegated call to the old PL/SQL routine
626: okl_aet_pvt.lock_row(p_api_version,
627: p_init_msg_list,
628: x_return_status,
629: x_msg_count,
630: x_msg_data,
663: , p5_a17 JTF_NUMBER_TABLE
664: )
665:
666: as
667: ddp_aetv_tbl okl_aet_pvt.aetv_tbl_type;
668: ddindx binary_integer; indx binary_integer;
669: begin
670:
671: -- copy data to the local IN or IN-OUT args, if any
673:
674:
675:
676:
677: okl_aet_pvt_w.rosetta_table_copy_in_p5(ddp_aetv_tbl, p5_a0
678: , p5_a1
679: , p5_a2
680: , p5_a3
681: , p5_a4
694: , p5_a17
695: );
696:
697: -- here's the delegated call to the old PL/SQL routine
698: okl_aet_pvt.lock_row(p_api_version,
699: p_init_msg_list,
700: x_return_status,
701: x_msg_count,
702: x_msg_data,
753: , p5_a17 NUMBER := 0-1962.0724
754: )
755:
756: as
757: ddp_aetv_rec okl_aet_pvt.aetv_rec_type;
758: ddx_aetv_rec okl_aet_pvt.aetv_rec_type;
759: ddindx binary_integer; indx binary_integer;
760: begin
761:
754: )
755:
756: as
757: ddp_aetv_rec okl_aet_pvt.aetv_rec_type;
758: ddx_aetv_rec okl_aet_pvt.aetv_rec_type;
759: ddindx binary_integer; indx binary_integer;
760: begin
761:
762: -- copy data to the local IN or IN-OUT args, if any
785: ddp_aetv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
786:
787:
788: -- here's the delegated call to the old PL/SQL routine
789: okl_aet_pvt.update_row(p_api_version,
790: p_init_msg_list,
791: x_return_status,
792: x_msg_count,
793: x_msg_data,
864: , p6_a17 out nocopy JTF_NUMBER_TABLE
865: )
866:
867: as
868: ddp_aetv_tbl okl_aet_pvt.aetv_tbl_type;
869: ddx_aetv_tbl okl_aet_pvt.aetv_tbl_type;
870: ddindx binary_integer; indx binary_integer;
871: begin
872:
865: )
866:
867: as
868: ddp_aetv_tbl okl_aet_pvt.aetv_tbl_type;
869: ddx_aetv_tbl okl_aet_pvt.aetv_tbl_type;
870: ddindx binary_integer; indx binary_integer;
871: begin
872:
873: -- copy data to the local IN or IN-OUT args, if any
875:
876:
877:
878:
879: okl_aet_pvt_w.rosetta_table_copy_in_p5(ddp_aetv_tbl, p5_a0
880: , p5_a1
881: , p5_a2
882: , p5_a3
883: , p5_a4
897: );
898:
899:
900: -- here's the delegated call to the old PL/SQL routine
901: okl_aet_pvt.update_row(p_api_version,
902: p_init_msg_list,
903: x_return_status,
904: x_msg_count,
905: x_msg_data,
912:
913:
914:
915:
916: okl_aet_pvt_w.rosetta_table_copy_out_p5(ddx_aetv_tbl, p6_a0
917: , p6_a1
918: , p6_a2
919: , p6_a3
920: , p6_a4
959: , p5_a17 NUMBER := 0-1962.0724
960: )
961:
962: as
963: ddp_aetv_rec okl_aet_pvt.aetv_rec_type;
964: ddindx binary_integer; indx binary_integer;
965: begin
966:
967: -- copy data to the local IN or IN-OUT args, if any
989: ddp_aetv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
990: ddp_aetv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
991:
992: -- here's the delegated call to the old PL/SQL routine
993: okl_aet_pvt.delete_row(p_api_version,
994: p_init_msg_list,
995: x_return_status,
996: x_msg_count,
997: x_msg_data,
1030: , p5_a17 JTF_NUMBER_TABLE
1031: )
1032:
1033: as
1034: ddp_aetv_tbl okl_aet_pvt.aetv_tbl_type;
1035: ddindx binary_integer; indx binary_integer;
1036: begin
1037:
1038: -- copy data to the local IN or IN-OUT args, if any
1040:
1041:
1042:
1043:
1044: okl_aet_pvt_w.rosetta_table_copy_in_p5(ddp_aetv_tbl, p5_a0
1045: , p5_a1
1046: , p5_a2
1047: , p5_a3
1048: , p5_a4
1061: , p5_a17
1062: );
1063:
1064: -- here's the delegated call to the old PL/SQL routine
1065: okl_aet_pvt.delete_row(p_api_version,
1066: p_init_msg_list,
1067: x_return_status,
1068: x_msg_count,
1069: x_msg_data,
1102: , p5_a17 NUMBER := 0-1962.0724
1103: )
1104:
1105: as
1106: ddp_aetv_rec okl_aet_pvt.aetv_rec_type;
1107: ddindx binary_integer; indx binary_integer;
1108: begin
1109:
1110: -- copy data to the local IN or IN-OUT args, if any
1132: ddp_aetv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
1133: ddp_aetv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
1134:
1135: -- here's the delegated call to the old PL/SQL routine
1136: okl_aet_pvt.validate_row(p_api_version,
1137: p_init_msg_list,
1138: x_return_status,
1139: x_msg_count,
1140: x_msg_data,
1173: , p5_a17 JTF_NUMBER_TABLE
1174: )
1175:
1176: as
1177: ddp_aetv_tbl okl_aet_pvt.aetv_tbl_type;
1178: ddindx binary_integer; indx binary_integer;
1179: begin
1180:
1181: -- copy data to the local IN or IN-OUT args, if any
1183:
1184:
1185:
1186:
1187: okl_aet_pvt_w.rosetta_table_copy_in_p5(ddp_aetv_tbl, p5_a0
1188: , p5_a1
1189: , p5_a2
1190: , p5_a3
1191: , p5_a4
1204: , p5_a17
1205: );
1206:
1207: -- here's the delegated call to the old PL/SQL routine
1208: okl_aet_pvt.validate_row(p_api_version,
1209: p_init_msg_list,
1210: x_return_status,
1211: x_msg_count,
1212: x_msg_data,
1219:
1220:
1221: end;
1222:
1223: end okl_aet_pvt_w;