1: package body okl_split_asset_pvt_w as
2: /* $Header: OKLESPAB.pls 115.9 2004/02/17 22:56:18 avsingh 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_p10(t out nocopy okl_split_asset_pvt.cle_tbl_type, a0 JTF_NUMBER_TABLE
23: ) as
24: ddindx binary_integer; indx binary_integer;
25: begin
26: if a0 is not null and a0.count > 0 then
37: end loop;
38: end if;
39: end if;
40: end rosetta_table_copy_in_p10;
41: procedure rosetta_table_copy_out_p10(t okl_split_asset_pvt.cle_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
42: ) as
43: ddindx binary_integer; indx binary_integer;
44: begin
45: if t is null or t.count = 0 then
61: end if;
62: end if;
63: end rosetta_table_copy_out_p10;
64:
65: procedure rosetta_table_copy_in_p13(t out nocopy okl_split_asset_pvt.ib_tbl_type, a0 JTF_NUMBER_TABLE
66: ) as
67: ddindx binary_integer; indx binary_integer;
68: begin
69: if a0 is not null and a0.count > 0 then
80: end loop;
81: end if;
82: end if;
83: end rosetta_table_copy_in_p13;
84: procedure rosetta_table_copy_out_p13(t okl_split_asset_pvt.ib_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
85: ) as
86: ddindx binary_integer; indx binary_integer;
87: begin
88: if t is null or t.count = 0 then
267: , p11_a32 out nocopy NUMBER
268: )
269:
270: as
271: ddp_ib_tbl okl_split_asset_pvt.ib_tbl_type;
272: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
273: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
274: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
275: ddindx binary_integer; indx binary_integer;
268: )
269:
270: as
271: ddp_ib_tbl okl_split_asset_pvt.ib_tbl_type;
272: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
273: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
274: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
275: ddindx binary_integer; indx binary_integer;
276: begin
269:
270: as
271: ddp_ib_tbl okl_split_asset_pvt.ib_tbl_type;
272: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
273: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
274: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
275: ddindx binary_integer; indx binary_integer;
276: begin
277:
270: as
271: ddp_ib_tbl okl_split_asset_pvt.ib_tbl_type;
272: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
273: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
274: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
275: ddindx binary_integer; indx binary_integer;
276: begin
277:
278: -- copy data to the local IN or IN-OUT args, if any
283:
284:
285:
286:
287: okl_split_asset_pvt_w.rosetta_table_copy_in_p13(ddp_ib_tbl, p8_a0
288: );
289:
290:
291:
290:
291:
292:
293: -- here's the delegated call to the old PL/SQL routine
294: okl_split_asset_pvt.create_split_transaction(p_api_version,
295: p_init_msg_list,
296: x_return_status,
297: x_msg_count,
298: x_msg_data,
631: , p10_a32 out nocopy NUMBER
632: )
633:
634: as
635: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
636: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
637: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
638: ddindx binary_integer; indx binary_integer;
639: begin
632: )
633:
634: as
635: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
636: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
637: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
638: ddindx binary_integer; indx binary_integer;
639: begin
640:
633:
634: as
635: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
636: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
637: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
638: ddindx binary_integer; indx binary_integer;
639: begin
640:
641: -- copy data to the local IN or IN-OUT args, if any
650:
651:
652:
653: -- here's the delegated call to the old PL/SQL routine
654: okl_split_asset_pvt.create_split_transaction(p_api_version,
655: p_init_msg_list,
656: x_return_status,
657: x_msg_count,
658: x_msg_data,
991: , p12_a32 out nocopy NUMBER
992: )
993:
994: as
995: ddp_ib_tbl okl_split_asset_pvt.ib_tbl_type;
996: ddp_trx_date date;
997: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
998: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
999: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
993:
994: as
995: ddp_ib_tbl okl_split_asset_pvt.ib_tbl_type;
996: ddp_trx_date date;
997: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
998: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
999: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
1000: ddindx binary_integer; indx binary_integer;
1001: begin
994: as
995: ddp_ib_tbl okl_split_asset_pvt.ib_tbl_type;
996: ddp_trx_date date;
997: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
998: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
999: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
1000: ddindx binary_integer; indx binary_integer;
1001: begin
1002:
995: ddp_ib_tbl okl_split_asset_pvt.ib_tbl_type;
996: ddp_trx_date date;
997: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
998: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
999: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
1000: ddindx binary_integer; indx binary_integer;
1001: begin
1002:
1003: -- copy data to the local IN or IN-OUT args, if any
1008:
1009:
1010:
1011:
1012: okl_split_asset_pvt_w.rosetta_table_copy_in_p13(ddp_ib_tbl, p8_a0
1013: );
1014:
1015: ddp_trx_date := rosetta_g_miss_date_in_map(p_trx_date);
1016:
1017:
1018:
1019:
1020: -- here's the delegated call to the old PL/SQL routine
1021: okl_split_asset_pvt.create_split_transaction(p_api_version,
1022: p_init_msg_list,
1023: x_return_status,
1024: x_msg_count,
1025: x_msg_data,
1362: )
1363:
1364: as
1365: ddp_trx_date date;
1366: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1367: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
1368: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
1369: ddindx binary_integer; indx binary_integer;
1370: begin
1363:
1364: as
1365: ddp_trx_date date;
1366: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1367: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
1368: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
1369: ddindx binary_integer; indx binary_integer;
1370: begin
1371:
1364: as
1365: ddp_trx_date date;
1366: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1367: ddx_txlv_rec okl_split_asset_pvt.txlv_rec_type;
1368: ddx_trxv_rec okl_split_asset_pvt.trxv_rec_type;
1369: ddindx binary_integer; indx binary_integer;
1370: begin
1371:
1372: -- copy data to the local IN or IN-OUT args, if any
1383:
1384:
1385:
1386: -- here's the delegated call to the old PL/SQL routine
1387: okl_split_asset_pvt.create_split_transaction(p_api_version,
1388: p_init_msg_list,
1389: x_return_status,
1390: x_msg_count,
1391: x_msg_data,
1655: , p7_a41 out nocopy JTF_DATE_TABLE
1656: )
1657:
1658: as
1659: ddp_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1660: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1661: ddindx binary_integer; indx binary_integer;
1662: begin
1663:
1656: )
1657:
1658: as
1659: ddp_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1660: ddx_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1661: ddindx binary_integer; indx binary_integer;
1662: begin
1663:
1664: -- copy data to the local IN or IN-OUT args, if any
1713: );
1714:
1715:
1716: -- here's the delegated call to the old PL/SQL routine
1717: okl_split_asset_pvt.update_split_transaction(p_api_version,
1718: p_init_msg_list,
1719: x_return_status,
1720: x_msg_count,
1721: x_msg_data,
1902: , p6_a75 DATE := fnd_api.g_miss_date
1903: )
1904:
1905: as
1906: ddp_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1907: ddp_txlv_rec okl_split_asset_pvt.txlv_rec_type;
1908: ddx_cle_tbl okl_split_asset_pvt.cle_tbl_type;
1909: ddindx binary_integer; indx binary_integer;
1910: begin
1903: )
1904:
1905: as
1906: ddp_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1907: ddp_txlv_rec okl_split_asset_pvt.txlv_rec_type;
1908: ddx_cle_tbl okl_split_asset_pvt.cle_tbl_type;
1909: ddindx binary_integer; indx binary_integer;
1910: begin
1911:
1904:
1905: as
1906: ddp_txdv_tbl okl_split_asset_pvt.txdv_tbl_type;
1907: ddp_txlv_rec okl_split_asset_pvt.txlv_rec_type;
1908: ddx_cle_tbl okl_split_asset_pvt.cle_tbl_type;
1909: ddindx binary_integer; indx binary_integer;
1910: begin
1911:
1912: -- copy data to the local IN or IN-OUT args, if any
2037: ddp_txlv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p6_a75);
2038:
2039:
2040: -- here's the delegated call to the old PL/SQL routine
2041: okl_split_asset_pvt.split_fixed_asset(p_api_version,
2042: p_init_msg_list,
2043: x_return_status,
2044: x_msg_count,
2045: x_msg_data,
2054:
2055:
2056:
2057:
2058: okl_split_asset_pvt_w.rosetta_table_copy_out_p10(ddx_cle_tbl, p7_a0
2059: );
2060: end;
2061:
2062: procedure split_fixed_asset(p_api_version NUMBER
2068: , p6_a0 out nocopy JTF_NUMBER_TABLE
2069: )
2070:
2071: as
2072: ddx_cle_tbl okl_split_asset_pvt.cle_tbl_type;
2073: ddindx binary_integer; indx binary_integer;
2074: begin
2075:
2076: -- copy data to the local IN or IN-OUT args, if any
2081:
2082:
2083:
2084: -- here's the delegated call to the old PL/SQL routine
2085: okl_split_asset_pvt.split_fixed_asset(p_api_version,
2086: p_init_msg_list,
2087: x_return_status,
2088: x_msg_count,
2089: x_msg_data,
2096:
2097:
2098:
2099:
2100: okl_split_asset_pvt_w.rosetta_table_copy_out_p10(ddx_cle_tbl, p6_a0
2101: );
2102: end;
2103:
2104: procedure create_split_comp_srl_num(p_api_version NUMBER
2196: , p6_a43 out nocopy JTF_NUMBER_TABLE
2197: )
2198:
2199: as
2200: ddp_itiv_tbl okl_split_asset_pvt.itiv_tbl_type;
2201: ddx_itiv_tbl okl_split_asset_pvt.itiv_tbl_type;
2202: ddindx binary_integer; indx binary_integer;
2203: begin
2204:
2197: )
2198:
2199: as
2200: ddp_itiv_tbl okl_split_asset_pvt.itiv_tbl_type;
2201: ddx_itiv_tbl okl_split_asset_pvt.itiv_tbl_type;
2202: ddindx binary_integer; indx binary_integer;
2203: begin
2204:
2205: -- copy data to the local IN or IN-OUT args, if any
2255: );
2256:
2257:
2258: -- here's the delegated call to the old PL/SQL routine
2259: okl_split_asset_pvt.create_split_comp_srl_num(p_api_version,
2260: p_init_msg_list,
2261: x_return_status,
2262: x_msg_count,
2263: x_msg_data,
2317: , p6_a43
2318: );
2319: end;
2320:
2321: end okl_split_asset_pvt_w;