1: package body okl_txl_ar_inv_lns_pub_w as
2: /* $Header: OKLUTWLB.pls 120.3 2007/07/20 09:43:54 akrangan ship $ */
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: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
141: , p6_a55 out nocopy JTF_NUMBER_TABLE
142: )
143:
144: as
145: ddp_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
146: ddx_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
147: ddindx binary_integer; indx binary_integer;
148: begin
149:
142: )
143:
144: as
145: ddp_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
146: ddx_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
147: ddindx binary_integer; indx binary_integer;
148: begin
149:
150: -- copy data to the local IN or IN-OUT args, if any
212: );
213:
214:
215: -- here's the delegated call to the old PL/SQL routine
216: okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns(p_api_version,
217: p_init_msg_list,
218: x_return_status,
219: x_msg_count,
220: x_msg_data,
406: , p5_a55 NUMBER := 0-1962.0724
407: )
408:
409: as
410: ddp_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
411: ddx_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
412: ddindx binary_integer; indx binary_integer;
413: begin
414:
407: )
408:
409: as
410: ddp_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
411: ddx_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
412: ddindx binary_integer; indx binary_integer;
413: begin
414:
415: -- copy data to the local IN or IN-OUT args, if any
476: ddp_tilv_rec.txs_trx_line_id := rosetta_g_miss_num_map(p5_a55);
477:
478:
479: -- here's the delegated call to the old PL/SQL routine
480: okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns(p_api_version,
481: p_init_msg_list,
482: x_return_status,
483: x_msg_count,
484: x_msg_data,
613: , p5_a55 JTF_NUMBER_TABLE
614: )
615:
616: as
617: ddp_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
618: ddindx binary_integer; indx binary_integer;
619: begin
620:
621: -- copy data to the local IN or IN-OUT args, if any
682: , p5_a55
683: );
684:
685: -- here's the delegated call to the old PL/SQL routine
686: okl_txl_ar_inv_lns_pub.lock_txl_ar_inv_lns(p_api_version,
687: p_init_msg_list,
688: x_return_status,
689: x_msg_count,
690: x_msg_data,
761: , p5_a55 NUMBER := 0-1962.0724
762: )
763:
764: as
765: ddp_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
766: ddindx binary_integer; indx binary_integer;
767: begin
768:
769: -- copy data to the local IN or IN-OUT args, if any
829: ddp_tilv_rec.txl_ar_line_number := rosetta_g_miss_num_map(p5_a54);
830: ddp_tilv_rec.txs_trx_line_id := rosetta_g_miss_num_map(p5_a55);
831:
832: -- here's the delegated call to the old PL/SQL routine
833: okl_txl_ar_inv_lns_pub.lock_txl_ar_inv_lns(p_api_version,
834: p_init_msg_list,
835: x_return_status,
836: x_msg_count,
837: x_msg_data,
964: , p6_a55 out nocopy JTF_NUMBER_TABLE
965: )
966:
967: as
968: ddp_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
969: ddx_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
970: ddindx binary_integer; indx binary_integer;
971: begin
972:
965: )
966:
967: as
968: ddp_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
969: ddx_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
970: ddindx binary_integer; indx binary_integer;
971: begin
972:
973: -- copy data to the local IN or IN-OUT args, if any
1035: );
1036:
1037:
1038: -- here's the delegated call to the old PL/SQL routine
1039: okl_txl_ar_inv_lns_pub.update_txl_ar_inv_lns(p_api_version,
1040: p_init_msg_list,
1041: x_return_status,
1042: x_msg_count,
1043: x_msg_data,
1229: , p5_a55 NUMBER := 0-1962.0724
1230: )
1231:
1232: as
1233: ddp_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
1234: ddx_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
1235: ddindx binary_integer; indx binary_integer;
1236: begin
1237:
1230: )
1231:
1232: as
1233: ddp_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
1234: ddx_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
1235: ddindx binary_integer; indx binary_integer;
1236: begin
1237:
1238: -- copy data to the local IN or IN-OUT args, if any
1299: ddp_tilv_rec.txs_trx_line_id := rosetta_g_miss_num_map(p5_a55);
1300:
1301:
1302: -- here's the delegated call to the old PL/SQL routine
1303: okl_txl_ar_inv_lns_pub.update_txl_ar_inv_lns(p_api_version,
1304: p_init_msg_list,
1305: x_return_status,
1306: x_msg_count,
1307: x_msg_data,
1436: , p5_a55 JTF_NUMBER_TABLE
1437: )
1438:
1439: as
1440: ddp_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
1441: ddindx binary_integer; indx binary_integer;
1442: begin
1443:
1444: -- copy data to the local IN or IN-OUT args, if any
1505: , p5_a55
1506: );
1507:
1508: -- here's the delegated call to the old PL/SQL routine
1509: okl_txl_ar_inv_lns_pub.delete_txl_ar_inv_lns(p_api_version,
1510: p_init_msg_list,
1511: x_return_status,
1512: x_msg_count,
1513: x_msg_data,
1584: , p5_a55 NUMBER := 0-1962.0724
1585: )
1586:
1587: as
1588: ddp_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
1589: ddindx binary_integer; indx binary_integer;
1590: begin
1591:
1592: -- copy data to the local IN or IN-OUT args, if any
1652: ddp_tilv_rec.txl_ar_line_number := rosetta_g_miss_num_map(p5_a54);
1653: ddp_tilv_rec.txs_trx_line_id := rosetta_g_miss_num_map(p5_a55);
1654:
1655: -- here's the delegated call to the old PL/SQL routine
1656: okl_txl_ar_inv_lns_pub.delete_txl_ar_inv_lns(p_api_version,
1657: p_init_msg_list,
1658: x_return_status,
1659: x_msg_count,
1660: x_msg_data,
1731: , p5_a55 JTF_NUMBER_TABLE
1732: )
1733:
1734: as
1735: ddp_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
1736: ddindx binary_integer; indx binary_integer;
1737: begin
1738:
1739: -- copy data to the local IN or IN-OUT args, if any
1800: , p5_a55
1801: );
1802:
1803: -- here's the delegated call to the old PL/SQL routine
1804: okl_txl_ar_inv_lns_pub.validate_txl_ar_inv_lns(p_api_version,
1805: p_init_msg_list,
1806: x_return_status,
1807: x_msg_count,
1808: x_msg_data,
1879: , p5_a55 NUMBER := 0-1962.0724
1880: )
1881:
1882: as
1883: ddp_tilv_rec okl_txl_ar_inv_lns_pub.tilv_rec_type;
1884: ddindx binary_integer; indx binary_integer;
1885: begin
1886:
1887: -- copy data to the local IN or IN-OUT args, if any
1947: ddp_tilv_rec.txl_ar_line_number := rosetta_g_miss_num_map(p5_a54);
1948: ddp_tilv_rec.txs_trx_line_id := rosetta_g_miss_num_map(p5_a55);
1949:
1950: -- here's the delegated call to the old PL/SQL routine
1951: okl_txl_ar_inv_lns_pub.validate_txl_ar_inv_lns(p_api_version,
1952: p_init_msg_list,
1953: x_return_status,
1954: x_msg_count,
1955: x_msg_data,
1962:
1963:
1964: end;
1965:
1966: end okl_txl_ar_inv_lns_pub_w;