1: package body okl_lrl_pvt_w as
2: /* $Header: OKLILRLB.pls 120.1 2005/10/30 03:56:01 appldev noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy okl_lrl_pvt.okl_lrlv_tbl, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
1: package body okl_lrl_pvt_w as
2: /* $Header: OKLILRLB.pls 120.1 2005/10/30 03:56:01 appldev noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy okl_lrl_pvt.okl_lrlv_tbl, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
6: , a3 JTF_NUMBER_TABLE
7: , a4 JTF_NUMBER_TABLE
76: end loop;
77: end if;
78: end if;
79: end rosetta_table_copy_in_p1;
80: procedure rosetta_table_copy_out_p1(t okl_lrl_pvt.okl_lrlv_tbl, a0 out nocopy JTF_NUMBER_TABLE
81: , a1 out nocopy JTF_NUMBER_TABLE
82: , a2 out nocopy JTF_NUMBER_TABLE
83: , a3 out nocopy JTF_NUMBER_TABLE
84: , a4 out nocopy JTF_NUMBER_TABLE
245: end if;
246: end if;
247: end rosetta_table_copy_out_p1;
248:
249: procedure rosetta_table_copy_in_p3(t out nocopy okl_lrl_pvt.okl_lrl_tbl, a0 JTF_NUMBER_TABLE
250: , a1 JTF_NUMBER_TABLE
251: , a2 JTF_NUMBER_TABLE
252: , a3 JTF_NUMBER_TABLE
253: , a4 JTF_NUMBER_TABLE
322: end loop;
323: end if;
324: end if;
325: end rosetta_table_copy_in_p3;
326: procedure rosetta_table_copy_out_p3(t okl_lrl_pvt.okl_lrl_tbl, a0 out nocopy JTF_NUMBER_TABLE
327: , a1 out nocopy JTF_NUMBER_TABLE
328: , a2 out nocopy JTF_NUMBER_TABLE
329: , a3 out nocopy JTF_NUMBER_TABLE
330: , a4 out nocopy JTF_NUMBER_TABLE
559: , p6_a29 out nocopy VARCHAR2
560: )
561:
562: as
563: ddp_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
564: ddx_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
565: ddindx binary_integer; indx binary_integer;
566: begin
567:
560: )
561:
562: as
563: ddp_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
564: ddx_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
565: ddindx binary_integer; indx binary_integer;
566: begin
567:
568: -- copy data to the local IN or IN-OUT args, if any
603: ddp_lrlv_rec.attribute15 := p5_a29;
604:
605:
606: -- here's the delegated call to the old PL/SQL routine
607: okl_lrl_pvt.insert_row(p_api_version,
608: p_init_msg_list,
609: x_return_status,
610: x_msg_count,
611: x_msg_data,
718: , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
719: )
720:
721: as
722: ddp_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
723: ddx_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
724: ddindx binary_integer; indx binary_integer;
725: begin
726:
719: )
720:
721: as
722: ddp_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
723: ddx_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
724: ddindx binary_integer; indx binary_integer;
725: begin
726:
727: -- copy data to the local IN or IN-OUT args, if any
729:
730:
731:
732:
733: okl_lrl_pvt_w.rosetta_table_copy_in_p1(ddp_lrlv_tbl, p5_a0
734: , p5_a1
735: , p5_a2
736: , p5_a3
737: , p5_a4
763: );
764:
765:
766: -- here's the delegated call to the old PL/SQL routine
767: okl_lrl_pvt.insert_row(p_api_version,
768: p_init_msg_list,
769: x_return_status,
770: x_msg_count,
771: x_msg_data,
778:
779:
780:
781:
782: okl_lrl_pvt_w.rosetta_table_copy_out_p1(ddx_lrlv_tbl, p6_a0
783: , p6_a1
784: , p6_a2
785: , p6_a3
786: , p6_a4
879: , p6_a29 out nocopy VARCHAR2
880: )
881:
882: as
883: ddp_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
884: ddx_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
885: ddindx binary_integer; indx binary_integer;
886: begin
887:
880: )
881:
882: as
883: ddp_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
884: ddx_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
885: ddindx binary_integer; indx binary_integer;
886: begin
887:
888: -- copy data to the local IN or IN-OUT args, if any
923: ddp_lrlv_rec.attribute15 := p5_a29;
924:
925:
926: -- here's the delegated call to the old PL/SQL routine
927: okl_lrl_pvt.update_row(p_api_version,
928: p_init_msg_list,
929: x_return_status,
930: x_msg_count,
931: x_msg_data,
1038: , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1039: )
1040:
1041: as
1042: ddp_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
1043: ddx_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
1044: ddindx binary_integer; indx binary_integer;
1045: begin
1046:
1039: )
1040:
1041: as
1042: ddp_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
1043: ddx_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
1044: ddindx binary_integer; indx binary_integer;
1045: begin
1046:
1047: -- copy data to the local IN or IN-OUT args, if any
1049:
1050:
1051:
1052:
1053: okl_lrl_pvt_w.rosetta_table_copy_in_p1(ddp_lrlv_tbl, p5_a0
1054: , p5_a1
1055: , p5_a2
1056: , p5_a3
1057: , p5_a4
1083: );
1084:
1085:
1086: -- here's the delegated call to the old PL/SQL routine
1087: okl_lrl_pvt.update_row(p_api_version,
1088: p_init_msg_list,
1089: x_return_status,
1090: x_msg_count,
1091: x_msg_data,
1098:
1099:
1100:
1101:
1102: okl_lrl_pvt_w.rosetta_table_copy_out_p1(ddx_lrlv_tbl, p6_a0
1103: , p6_a1
1104: , p6_a2
1105: , p6_a3
1106: , p6_a4
1169: , p5_a29 VARCHAR2
1170: )
1171:
1172: as
1173: ddp_lrlv_rec okl_lrl_pvt.okl_lrlv_rec;
1174: ddindx binary_integer; indx binary_integer;
1175: begin
1176:
1177: -- copy data to the local IN or IN-OUT args, if any
1211: ddp_lrlv_rec.attribute14 := p5_a28;
1212: ddp_lrlv_rec.attribute15 := p5_a29;
1213:
1214: -- here's the delegated call to the old PL/SQL routine
1215: okl_lrl_pvt.delete_row(p_api_version,
1216: p_init_msg_list,
1217: x_return_status,
1218: x_msg_count,
1219: x_msg_data,
1264: , p5_a29 JTF_VARCHAR2_TABLE_500
1265: )
1266:
1267: as
1268: ddp_lrlv_tbl okl_lrl_pvt.okl_lrlv_tbl;
1269: ddindx binary_integer; indx binary_integer;
1270: begin
1271:
1272: -- copy data to the local IN or IN-OUT args, if any
1274:
1275:
1276:
1277:
1278: okl_lrl_pvt_w.rosetta_table_copy_in_p1(ddp_lrlv_tbl, p5_a0
1279: , p5_a1
1280: , p5_a2
1281: , p5_a3
1282: , p5_a4
1307: , p5_a29
1308: );
1309:
1310: -- here's the delegated call to the old PL/SQL routine
1311: okl_lrl_pvt.delete_row(p_api_version,
1312: p_init_msg_list,
1313: x_return_status,
1314: x_msg_count,
1315: x_msg_data,
1322:
1323:
1324: end;
1325:
1326: end okl_lrl_pvt_w;