1: package body okl_tas_pvt_w as
2: /* $Header: OKLITASB.pls 120.2 2007/11/06 07:36:01 veramach 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');
21: if n=b then return a; end if;
22: return n;
23: end;
24:
25: procedure rosetta_table_copy_in_p2(t out nocopy okl_tas_pvt.tas_tbl_type, a0 JTF_NUMBER_TABLE
26: , a1 JTF_NUMBER_TABLE
27: , a2 JTF_VARCHAR2_TABLE_100
28: , a3 JTF_NUMBER_TABLE
29: , a4 JTF_VARCHAR2_TABLE_100
108: end loop;
109: end if;
110: end if;
111: end rosetta_table_copy_in_p2;
112: procedure rosetta_table_copy_out_p2(t okl_tas_pvt.tas_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
113: , a1 out nocopy JTF_NUMBER_TABLE
114: , a2 out nocopy JTF_VARCHAR2_TABLE_100
115: , a3 out nocopy JTF_NUMBER_TABLE
116: , a4 out nocopy JTF_VARCHAR2_TABLE_100
302: end if;
303: end if;
304: end rosetta_table_copy_out_p2;
305:
306: procedure rosetta_table_copy_in_p5(t out nocopy okl_tas_pvt.tasv_tbl_type, a0 JTF_NUMBER_TABLE
307: , a1 JTF_NUMBER_TABLE
308: , a2 JTF_NUMBER_TABLE
309: , a3 JTF_VARCHAR2_TABLE_100
310: , a4 JTF_VARCHAR2_TABLE_500
389: end loop;
390: end if;
391: end if;
392: end rosetta_table_copy_in_p5;
393: procedure rosetta_table_copy_out_p5(t okl_tas_pvt.tasv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
394: , a1 out nocopy JTF_NUMBER_TABLE
395: , a2 out nocopy JTF_NUMBER_TABLE
396: , a3 out nocopy JTF_VARCHAR2_TABLE_100
397: , a4 out nocopy JTF_VARCHAR2_TABLE_500
661: , p5_a34 DATE := fnd_api.g_miss_date
662: )
663:
664: as
665: ddp_tasv_rec okl_tas_pvt.tasv_rec_type;
666: ddx_tasv_rec okl_tas_pvt.tasv_rec_type;
667: ddindx binary_integer; indx binary_integer;
668: begin
669:
662: )
663:
664: as
665: ddp_tasv_rec okl_tas_pvt.tasv_rec_type;
666: ddx_tasv_rec okl_tas_pvt.tasv_rec_type;
667: ddindx binary_integer; indx binary_integer;
668: begin
669:
670: -- copy data to the local IN or IN-OUT args, if any
710: ddp_tasv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a34);
711:
712:
713: -- here's the delegated call to the old PL/SQL routine
714: okl_tas_pvt.insert_row(p_api_version,
715: p_init_msg_list,
716: x_return_status,
717: x_msg_count,
718: x_msg_data,
840: , p6_a34 out nocopy JTF_DATE_TABLE
841: )
842:
843: as
844: ddp_tasv_tbl okl_tas_pvt.tasv_tbl_type;
845: ddx_tasv_tbl okl_tas_pvt.tasv_tbl_type;
846: ddindx binary_integer; indx binary_integer;
847: begin
848:
841: )
842:
843: as
844: ddp_tasv_tbl okl_tas_pvt.tasv_tbl_type;
845: ddx_tasv_tbl okl_tas_pvt.tasv_tbl_type;
846: ddindx binary_integer; indx binary_integer;
847: begin
848:
849: -- copy data to the local IN or IN-OUT args, if any
851:
852:
853:
854:
855: okl_tas_pvt_w.rosetta_table_copy_in_p5(ddp_tasv_tbl, p5_a0
856: , p5_a1
857: , p5_a2
858: , p5_a3
859: , p5_a4
890: );
891:
892:
893: -- here's the delegated call to the old PL/SQL routine
894: okl_tas_pvt.insert_row(p_api_version,
895: p_init_msg_list,
896: x_return_status,
897: x_msg_count,
898: x_msg_data,
905:
906:
907:
908:
909: okl_tas_pvt_w.rosetta_table_copy_out_p5(ddx_tasv_tbl, p6_a0
910: , p6_a1
911: , p6_a2
912: , p6_a3
913: , p6_a4
986: , p5_a34 DATE := fnd_api.g_miss_date
987: )
988:
989: as
990: ddp_tasv_rec okl_tas_pvt.tasv_rec_type;
991: ddindx binary_integer; indx binary_integer;
992: begin
993:
994: -- copy data to the local IN or IN-OUT args, if any
1033: ddp_tasv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a33);
1034: ddp_tasv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a34);
1035:
1036: -- here's the delegated call to the old PL/SQL routine
1037: okl_tas_pvt.lock_row(p_api_version,
1038: p_init_msg_list,
1039: x_return_status,
1040: x_msg_count,
1041: x_msg_data,
1091: , p5_a34 JTF_DATE_TABLE
1092: )
1093:
1094: as
1095: ddp_tasv_tbl okl_tas_pvt.tasv_tbl_type;
1096: ddindx binary_integer; indx binary_integer;
1097: begin
1098:
1099: -- copy data to the local IN or IN-OUT args, if any
1101:
1102:
1103:
1104:
1105: okl_tas_pvt_w.rosetta_table_copy_in_p5(ddp_tasv_tbl, p5_a0
1106: , p5_a1
1107: , p5_a2
1108: , p5_a3
1109: , p5_a4
1139: , p5_a34
1140: );
1141:
1142: -- here's the delegated call to the old PL/SQL routine
1143: okl_tas_pvt.lock_row(p_api_version,
1144: p_init_msg_list,
1145: x_return_status,
1146: x_msg_count,
1147: x_msg_data,
1232: , p5_a34 DATE := fnd_api.g_miss_date
1233: )
1234:
1235: as
1236: ddp_tasv_rec okl_tas_pvt.tasv_rec_type;
1237: ddx_tasv_rec okl_tas_pvt.tasv_rec_type;
1238: ddindx binary_integer; indx binary_integer;
1239: begin
1240:
1233: )
1234:
1235: as
1236: ddp_tasv_rec okl_tas_pvt.tasv_rec_type;
1237: ddx_tasv_rec okl_tas_pvt.tasv_rec_type;
1238: ddindx binary_integer; indx binary_integer;
1239: begin
1240:
1241: -- copy data to the local IN or IN-OUT args, if any
1281: ddp_tasv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a34);
1282:
1283:
1284: -- here's the delegated call to the old PL/SQL routine
1285: okl_tas_pvt.update_row(p_api_version,
1286: p_init_msg_list,
1287: x_return_status,
1288: x_msg_count,
1289: x_msg_data,
1411: , p6_a34 out nocopy JTF_DATE_TABLE
1412: )
1413:
1414: as
1415: ddp_tasv_tbl okl_tas_pvt.tasv_tbl_type;
1416: ddx_tasv_tbl okl_tas_pvt.tasv_tbl_type;
1417: ddindx binary_integer; indx binary_integer;
1418: begin
1419:
1412: )
1413:
1414: as
1415: ddp_tasv_tbl okl_tas_pvt.tasv_tbl_type;
1416: ddx_tasv_tbl okl_tas_pvt.tasv_tbl_type;
1417: ddindx binary_integer; indx binary_integer;
1418: begin
1419:
1420: -- copy data to the local IN or IN-OUT args, if any
1422:
1423:
1424:
1425:
1426: okl_tas_pvt_w.rosetta_table_copy_in_p5(ddp_tasv_tbl, p5_a0
1427: , p5_a1
1428: , p5_a2
1429: , p5_a3
1430: , p5_a4
1461: );
1462:
1463:
1464: -- here's the delegated call to the old PL/SQL routine
1465: okl_tas_pvt.update_row(p_api_version,
1466: p_init_msg_list,
1467: x_return_status,
1468: x_msg_count,
1469: x_msg_data,
1476:
1477:
1478:
1479:
1480: okl_tas_pvt_w.rosetta_table_copy_out_p5(ddx_tasv_tbl, p6_a0
1481: , p6_a1
1482: , p6_a2
1483: , p6_a3
1484: , p6_a4
1557: , p5_a34 DATE := fnd_api.g_miss_date
1558: )
1559:
1560: as
1561: ddp_tasv_rec okl_tas_pvt.tasv_rec_type;
1562: ddindx binary_integer; indx binary_integer;
1563: begin
1564:
1565: -- copy data to the local IN or IN-OUT args, if any
1604: ddp_tasv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a33);
1605: ddp_tasv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a34);
1606:
1607: -- here's the delegated call to the old PL/SQL routine
1608: okl_tas_pvt.delete_row(p_api_version,
1609: p_init_msg_list,
1610: x_return_status,
1611: x_msg_count,
1612: x_msg_data,
1662: , p5_a34 JTF_DATE_TABLE
1663: )
1664:
1665: as
1666: ddp_tasv_tbl okl_tas_pvt.tasv_tbl_type;
1667: ddindx binary_integer; indx binary_integer;
1668: begin
1669:
1670: -- copy data to the local IN or IN-OUT args, if any
1672:
1673:
1674:
1675:
1676: okl_tas_pvt_w.rosetta_table_copy_in_p5(ddp_tasv_tbl, p5_a0
1677: , p5_a1
1678: , p5_a2
1679: , p5_a3
1680: , p5_a4
1710: , p5_a34
1711: );
1712:
1713: -- here's the delegated call to the old PL/SQL routine
1714: okl_tas_pvt.delete_row(p_api_version,
1715: p_init_msg_list,
1716: x_return_status,
1717: x_msg_count,
1718: x_msg_data,
1768: , p5_a34 DATE := fnd_api.g_miss_date
1769: )
1770:
1771: as
1772: ddp_tasv_rec okl_tas_pvt.tasv_rec_type;
1773: ddindx binary_integer; indx binary_integer;
1774: begin
1775:
1776: -- copy data to the local IN or IN-OUT args, if any
1815: ddp_tasv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a33);
1816: ddp_tasv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a34);
1817:
1818: -- here's the delegated call to the old PL/SQL routine
1819: okl_tas_pvt.validate_row(p_api_version,
1820: p_init_msg_list,
1821: x_return_status,
1822: x_msg_count,
1823: x_msg_data,
1873: , p5_a34 JTF_DATE_TABLE
1874: )
1875:
1876: as
1877: ddp_tasv_tbl okl_tas_pvt.tasv_tbl_type;
1878: ddindx binary_integer; indx binary_integer;
1879: begin
1880:
1881: -- copy data to the local IN or IN-OUT args, if any
1883:
1884:
1885:
1886:
1887: okl_tas_pvt_w.rosetta_table_copy_in_p5(ddp_tasv_tbl, p5_a0
1888: , p5_a1
1889: , p5_a2
1890: , p5_a3
1891: , p5_a4
1921: , p5_a34
1922: );
1923:
1924: -- here's the delegated call to the old PL/SQL routine
1925: okl_tas_pvt.validate_row(p_api_version,
1926: p_init_msg_list,
1927: x_return_status,
1928: x_msg_count,
1929: x_msg_data,
1936:
1937:
1938: end;
1939:
1940: end okl_tas_pvt_w;