[Home] [Help]
1: package body okl_eth_pvt_w as
2: /* $Header: OKLIETHB.pls 120.0 2005/07/07 10:38:19 viselvar noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy okl_eth_pvt.okl_ethv_tbl, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_300
1: package body okl_eth_pvt_w as
2: /* $Header: OKLIETHB.pls 120.0 2005/07/07 10:38:19 viselvar noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy okl_eth_pvt.okl_ethv_tbl, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_300
6: , a3 JTF_VARCHAR2_TABLE_2000
7: , a4 JTF_NUMBER_TABLE
84: end loop;
85: end if;
86: end if;
87: end rosetta_table_copy_in_p1;
88: procedure rosetta_table_copy_out_p1(t okl_eth_pvt.okl_ethv_tbl, a0 out nocopy JTF_NUMBER_TABLE
89: , a1 out nocopy JTF_NUMBER_TABLE
90: , a2 out nocopy JTF_VARCHAR2_TABLE_300
91: , a3 out nocopy JTF_VARCHAR2_TABLE_2000
92: , a4 out nocopy JTF_NUMBER_TABLE
273: end if;
274: end if;
275: end rosetta_table_copy_out_p1;
276:
277: procedure rosetta_table_copy_in_p3(t out nocopy okl_eth_pvt.okl_ethb_tbl, a0 JTF_NUMBER_TABLE
278: , a1 JTF_NUMBER_TABLE
279: , a2 JTF_VARCHAR2_TABLE_300
280: , a3 JTF_NUMBER_TABLE
281: , a4 JTF_VARCHAR2_TABLE_100
356: end loop;
357: end if;
358: end if;
359: end rosetta_table_copy_in_p3;
360: procedure rosetta_table_copy_out_p3(t okl_eth_pvt.okl_ethb_tbl, a0 out nocopy JTF_NUMBER_TABLE
361: , a1 out nocopy JTF_NUMBER_TABLE
362: , a2 out nocopy JTF_VARCHAR2_TABLE_300
363: , a3 out nocopy JTF_NUMBER_TABLE
364: , a4 out nocopy JTF_VARCHAR2_TABLE_100
540: end if;
541: end if;
542: end rosetta_table_copy_out_p3;
543:
544: procedure rosetta_table_copy_in_p5(t out nocopy okl_eth_pvt.okl_ethtl_tbl, a0 JTF_NUMBER_TABLE
545: , a1 JTF_VARCHAR2_TABLE_2000
546: , a2 JTF_VARCHAR2_TABLE_100
547: , a3 JTF_VARCHAR2_TABLE_100
548: , a4 JTF_VARCHAR2_TABLE_100
577: end loop;
578: end if;
579: end if;
580: end rosetta_table_copy_in_p5;
581: procedure rosetta_table_copy_out_p5(t okl_eth_pvt.okl_ethtl_tbl, a0 out nocopy JTF_NUMBER_TABLE
582: , a1 out nocopy JTF_VARCHAR2_TABLE_2000
583: , a2 out nocopy JTF_VARCHAR2_TABLE_100
584: , a3 out nocopy JTF_VARCHAR2_TABLE_100
585: , a4 out nocopy JTF_VARCHAR2_TABLE_100
722: , p6_a33 out nocopy NUMBER
723: )
724:
725: as
726: ddp_ethv_rec okl_eth_pvt.okl_ethv_rec;
727: ddx_ethv_rec okl_eth_pvt.okl_ethv_rec;
728: ddindx binary_integer; indx binary_integer;
729: begin
730:
723: )
724:
725: as
726: ddp_ethv_rec okl_eth_pvt.okl_ethv_rec;
727: ddx_ethv_rec okl_eth_pvt.okl_ethv_rec;
728: ddindx binary_integer; indx binary_integer;
729: begin
730:
731: -- copy data to the local IN or IN-OUT args, if any
770: ddp_ethv_rec.last_update_login := p5_a33;
771:
772:
773: -- here's the delegated call to the old PL/SQL routine
774: okl_eth_pvt.insert_row(p_api_version,
775: p_init_msg_list,
776: x_return_status,
777: x_msg_count,
778: x_msg_data,
897: , p6_a33 out nocopy JTF_NUMBER_TABLE
898: )
899:
900: as
901: ddp_ethv_tbl okl_eth_pvt.okl_ethv_tbl;
902: ddx_ethv_tbl okl_eth_pvt.okl_ethv_tbl;
903: ddindx binary_integer; indx binary_integer;
904: begin
905:
898: )
899:
900: as
901: ddp_ethv_tbl okl_eth_pvt.okl_ethv_tbl;
902: ddx_ethv_tbl okl_eth_pvt.okl_ethv_tbl;
903: ddindx binary_integer; indx binary_integer;
904: begin
905:
906: -- copy data to the local IN or IN-OUT args, if any
908:
909:
910:
911:
912: okl_eth_pvt_w.rosetta_table_copy_in_p1(ddp_ethv_tbl, p5_a0
913: , p5_a1
914: , p5_a2
915: , p5_a3
916: , p5_a4
946: );
947:
948:
949: -- here's the delegated call to the old PL/SQL routine
950: okl_eth_pvt.insert_row(p_api_version,
951: p_init_msg_list,
952: x_return_status,
953: x_msg_count,
954: x_msg_data,
961:
962:
963:
964:
965: okl_eth_pvt_w.rosetta_table_copy_out_p1(ddx_ethv_tbl, p6_a0
966: , p6_a1
967: , p6_a2
968: , p6_a3
969: , p6_a4
1074: , p6_a33 out nocopy NUMBER
1075: )
1076:
1077: as
1078: ddp_ethv_rec okl_eth_pvt.okl_ethv_rec;
1079: ddx_ethv_rec okl_eth_pvt.okl_ethv_rec;
1080: ddindx binary_integer; indx binary_integer;
1081: begin
1082:
1075: )
1076:
1077: as
1078: ddp_ethv_rec okl_eth_pvt.okl_ethv_rec;
1079: ddx_ethv_rec okl_eth_pvt.okl_ethv_rec;
1080: ddindx binary_integer; indx binary_integer;
1081: begin
1082:
1083: -- copy data to the local IN or IN-OUT args, if any
1122: ddp_ethv_rec.last_update_login := p5_a33;
1123:
1124:
1125: -- here's the delegated call to the old PL/SQL routine
1126: okl_eth_pvt.update_row(p_api_version,
1127: p_init_msg_list,
1128: x_return_status,
1129: x_msg_count,
1130: x_msg_data,
1249: , p6_a33 out nocopy JTF_NUMBER_TABLE
1250: )
1251:
1252: as
1253: ddp_ethv_tbl okl_eth_pvt.okl_ethv_tbl;
1254: ddx_ethv_tbl okl_eth_pvt.okl_ethv_tbl;
1255: ddindx binary_integer; indx binary_integer;
1256: begin
1257:
1250: )
1251:
1252: as
1253: ddp_ethv_tbl okl_eth_pvt.okl_ethv_tbl;
1254: ddx_ethv_tbl okl_eth_pvt.okl_ethv_tbl;
1255: ddindx binary_integer; indx binary_integer;
1256: begin
1257:
1258: -- copy data to the local IN or IN-OUT args, if any
1260:
1261:
1262:
1263:
1264: okl_eth_pvt_w.rosetta_table_copy_in_p1(ddp_ethv_tbl, p5_a0
1265: , p5_a1
1266: , p5_a2
1267: , p5_a3
1268: , p5_a4
1298: );
1299:
1300:
1301: -- here's the delegated call to the old PL/SQL routine
1302: okl_eth_pvt.update_row(p_api_version,
1303: p_init_msg_list,
1304: x_return_status,
1305: x_msg_count,
1306: x_msg_data,
1313:
1314:
1315:
1316:
1317: okl_eth_pvt_w.rosetta_table_copy_out_p1(ddx_ethv_tbl, p6_a0
1318: , p6_a1
1319: , p6_a2
1320: , p6_a3
1321: , p6_a4
1392: , p5_a33 NUMBER
1393: )
1394:
1395: as
1396: ddp_ethv_rec okl_eth_pvt.okl_ethv_rec;
1397: ddindx binary_integer; indx binary_integer;
1398: begin
1399:
1400: -- copy data to the local IN or IN-OUT args, if any
1438: ddp_ethv_rec.last_update_date := p5_a32;
1439: ddp_ethv_rec.last_update_login := p5_a33;
1440:
1441: -- here's the delegated call to the old PL/SQL routine
1442: okl_eth_pvt.delete_row(p_api_version,
1443: p_init_msg_list,
1444: x_return_status,
1445: x_msg_count,
1446: x_msg_data,
1495: , p5_a33 JTF_NUMBER_TABLE
1496: )
1497:
1498: as
1499: ddp_ethv_tbl okl_eth_pvt.okl_ethv_tbl;
1500: ddindx binary_integer; indx binary_integer;
1501: begin
1502:
1503: -- copy data to the local IN or IN-OUT args, if any
1505:
1506:
1507:
1508:
1509: okl_eth_pvt_w.rosetta_table_copy_in_p1(ddp_ethv_tbl, p5_a0
1510: , p5_a1
1511: , p5_a2
1512: , p5_a3
1513: , p5_a4
1542: , p5_a33
1543: );
1544:
1545: -- here's the delegated call to the old PL/SQL routine
1546: okl_eth_pvt.delete_row(p_api_version,
1547: p_init_msg_list,
1548: x_return_status,
1549: x_msg_count,
1550: x_msg_data,
1557:
1558:
1559: end;
1560:
1561: end okl_eth_pvt_w;