[Home] [Help]
1: package body okl_ras_pvt_w as
2: /* $Header: OKLIRASB.pls 115.4 2002/12/19 23:27:00 gkadarka 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_p2(t out nocopy okl_ras_pvt.ras_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_NUMBER_TABLE
113: end loop;
114: end if;
115: end if;
116: end rosetta_table_copy_in_p2;
117: procedure rosetta_table_copy_out_p2(t okl_ras_pvt.ras_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
118: , a1 out nocopy JTF_NUMBER_TABLE
119: , a2 out nocopy JTF_NUMBER_TABLE
120: , a3 out nocopy JTF_NUMBER_TABLE
121: , a4 out nocopy JTF_NUMBER_TABLE
327: end if;
328: end if;
329: end rosetta_table_copy_out_p2;
330:
331: procedure rosetta_table_copy_in_p5(t out nocopy okl_ras_pvt.oklrelocateassetstltbltype, a0 JTF_NUMBER_TABLE
332: , a1 JTF_VARCHAR2_TABLE_100
333: , a2 JTF_VARCHAR2_TABLE_100
334: , a3 JTF_VARCHAR2_TABLE_100
335: , a4 JTF_VARCHAR2_TABLE_2000
364: end loop;
365: end if;
366: end if;
367: end rosetta_table_copy_in_p5;
368: procedure rosetta_table_copy_out_p5(t okl_ras_pvt.oklrelocateassetstltbltype, a0 out nocopy JTF_NUMBER_TABLE
369: , a1 out nocopy JTF_VARCHAR2_TABLE_100
370: , a2 out nocopy JTF_VARCHAR2_TABLE_100
371: , a3 out nocopy JTF_VARCHAR2_TABLE_100
372: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
433: end if;
434: end if;
435: end rosetta_table_copy_out_p5;
436:
437: procedure rosetta_table_copy_in_p8(t out nocopy okl_ras_pvt.rasv_tbl_type, a0 JTF_NUMBER_TABLE
438: , a1 JTF_NUMBER_TABLE
439: , a2 JTF_VARCHAR2_TABLE_100
440: , a3 JTF_NUMBER_TABLE
441: , a4 JTF_NUMBER_TABLE
532: end loop;
533: end if;
534: end if;
535: end rosetta_table_copy_in_p8;
536: procedure rosetta_table_copy_out_p8(t okl_ras_pvt.rasv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
537: , a1 out nocopy JTF_NUMBER_TABLE
538: , a2 out nocopy JTF_VARCHAR2_TABLE_100
539: , a3 out nocopy JTF_NUMBER_TABLE
540: , a4 out nocopy JTF_NUMBER_TABLE
846: , p5_a40 DATE := fnd_api.g_miss_date
847: )
848:
849: as
850: ddp_rasv_rec okl_ras_pvt.rasv_rec_type;
851: ddx_rasv_rec okl_ras_pvt.rasv_rec_type;
852: ddindx binary_integer; indx binary_integer;
853: begin
854:
847: )
848:
849: as
850: ddp_rasv_rec okl_ras_pvt.rasv_rec_type;
851: ddx_rasv_rec okl_ras_pvt.rasv_rec_type;
852: ddindx binary_integer; indx binary_integer;
853: begin
854:
855: -- copy data to the local IN or IN-OUT args, if any
901: ddp_rasv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a40);
902:
903:
904: -- here's the delegated call to the old PL/SQL routine
905: okl_ras_pvt.insert_row(p_api_version,
906: p_init_msg_list,
907: x_return_status,
908: x_msg_count,
909: x_msg_data,
1049: , p6_a40 out nocopy JTF_DATE_TABLE
1050: )
1051:
1052: as
1053: ddp_rasv_tbl okl_ras_pvt.rasv_tbl_type;
1054: ddx_rasv_tbl okl_ras_pvt.rasv_tbl_type;
1055: ddindx binary_integer; indx binary_integer;
1056: begin
1057:
1050: )
1051:
1052: as
1053: ddp_rasv_tbl okl_ras_pvt.rasv_tbl_type;
1054: ddx_rasv_tbl okl_ras_pvt.rasv_tbl_type;
1055: ddindx binary_integer; indx binary_integer;
1056: begin
1057:
1058: -- copy data to the local IN or IN-OUT args, if any
1060:
1061:
1062:
1063:
1064: okl_ras_pvt_w.rosetta_table_copy_in_p8(ddp_rasv_tbl, p5_a0
1065: , p5_a1
1066: , p5_a2
1067: , p5_a3
1068: , p5_a4
1105: );
1106:
1107:
1108: -- here's the delegated call to the old PL/SQL routine
1109: okl_ras_pvt.insert_row(p_api_version,
1110: p_init_msg_list,
1111: x_return_status,
1112: x_msg_count,
1113: x_msg_data,
1120:
1121:
1122:
1123:
1124: okl_ras_pvt_w.rosetta_table_copy_out_p8(ddx_rasv_tbl, p6_a0
1125: , p6_a1
1126: , p6_a2
1127: , p6_a3
1128: , p6_a4
1213: , p5_a40 DATE := fnd_api.g_miss_date
1214: )
1215:
1216: as
1217: ddp_rasv_rec okl_ras_pvt.rasv_rec_type;
1218: ddindx binary_integer; indx binary_integer;
1219: begin
1220:
1221: -- copy data to the local IN or IN-OUT args, if any
1266: ddp_rasv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a39);
1267: ddp_rasv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a40);
1268:
1269: -- here's the delegated call to the old PL/SQL routine
1270: okl_ras_pvt.lock_row(p_api_version,
1271: p_init_msg_list,
1272: x_return_status,
1273: x_msg_count,
1274: x_msg_data,
1330: , p5_a40 JTF_DATE_TABLE
1331: )
1332:
1333: as
1334: ddp_rasv_tbl okl_ras_pvt.rasv_tbl_type;
1335: ddindx binary_integer; indx binary_integer;
1336: begin
1337:
1338: -- copy data to the local IN or IN-OUT args, if any
1340:
1341:
1342:
1343:
1344: okl_ras_pvt_w.rosetta_table_copy_in_p8(ddp_rasv_tbl, p5_a0
1345: , p5_a1
1346: , p5_a2
1347: , p5_a3
1348: , p5_a4
1384: , p5_a40
1385: );
1386:
1387: -- here's the delegated call to the old PL/SQL routine
1388: okl_ras_pvt.lock_row(p_api_version,
1389: p_init_msg_list,
1390: x_return_status,
1391: x_msg_count,
1392: x_msg_data,
1489: , p5_a40 DATE := fnd_api.g_miss_date
1490: )
1491:
1492: as
1493: ddp_rasv_rec okl_ras_pvt.rasv_rec_type;
1494: ddx_rasv_rec okl_ras_pvt.rasv_rec_type;
1495: ddindx binary_integer; indx binary_integer;
1496: begin
1497:
1490: )
1491:
1492: as
1493: ddp_rasv_rec okl_ras_pvt.rasv_rec_type;
1494: ddx_rasv_rec okl_ras_pvt.rasv_rec_type;
1495: ddindx binary_integer; indx binary_integer;
1496: begin
1497:
1498: -- copy data to the local IN or IN-OUT args, if any
1544: ddp_rasv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a40);
1545:
1546:
1547: -- here's the delegated call to the old PL/SQL routine
1548: okl_ras_pvt.update_row(p_api_version,
1549: p_init_msg_list,
1550: x_return_status,
1551: x_msg_count,
1552: x_msg_data,
1692: , p6_a40 out nocopy JTF_DATE_TABLE
1693: )
1694:
1695: as
1696: ddp_rasv_tbl okl_ras_pvt.rasv_tbl_type;
1697: ddx_rasv_tbl okl_ras_pvt.rasv_tbl_type;
1698: ddindx binary_integer; indx binary_integer;
1699: begin
1700:
1693: )
1694:
1695: as
1696: ddp_rasv_tbl okl_ras_pvt.rasv_tbl_type;
1697: ddx_rasv_tbl okl_ras_pvt.rasv_tbl_type;
1698: ddindx binary_integer; indx binary_integer;
1699: begin
1700:
1701: -- copy data to the local IN or IN-OUT args, if any
1703:
1704:
1705:
1706:
1707: okl_ras_pvt_w.rosetta_table_copy_in_p8(ddp_rasv_tbl, p5_a0
1708: , p5_a1
1709: , p5_a2
1710: , p5_a3
1711: , p5_a4
1748: );
1749:
1750:
1751: -- here's the delegated call to the old PL/SQL routine
1752: okl_ras_pvt.update_row(p_api_version,
1753: p_init_msg_list,
1754: x_return_status,
1755: x_msg_count,
1756: x_msg_data,
1763:
1764:
1765:
1766:
1767: okl_ras_pvt_w.rosetta_table_copy_out_p8(ddx_rasv_tbl, p6_a0
1768: , p6_a1
1769: , p6_a2
1770: , p6_a3
1771: , p6_a4
1856: , p5_a40 DATE := fnd_api.g_miss_date
1857: )
1858:
1859: as
1860: ddp_rasv_rec okl_ras_pvt.rasv_rec_type;
1861: ddindx binary_integer; indx binary_integer;
1862: begin
1863:
1864: -- copy data to the local IN or IN-OUT args, if any
1909: ddp_rasv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a39);
1910: ddp_rasv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a40);
1911:
1912: -- here's the delegated call to the old PL/SQL routine
1913: okl_ras_pvt.delete_row(p_api_version,
1914: p_init_msg_list,
1915: x_return_status,
1916: x_msg_count,
1917: x_msg_data,
1973: , p5_a40 JTF_DATE_TABLE
1974: )
1975:
1976: as
1977: ddp_rasv_tbl okl_ras_pvt.rasv_tbl_type;
1978: ddindx binary_integer; indx binary_integer;
1979: begin
1980:
1981: -- copy data to the local IN or IN-OUT args, if any
1983:
1984:
1985:
1986:
1987: okl_ras_pvt_w.rosetta_table_copy_in_p8(ddp_rasv_tbl, p5_a0
1988: , p5_a1
1989: , p5_a2
1990: , p5_a3
1991: , p5_a4
2027: , p5_a40
2028: );
2029:
2030: -- here's the delegated call to the old PL/SQL routine
2031: okl_ras_pvt.delete_row(p_api_version,
2032: p_init_msg_list,
2033: x_return_status,
2034: x_msg_count,
2035: x_msg_data,
2091: , p5_a40 DATE := fnd_api.g_miss_date
2092: )
2093:
2094: as
2095: ddp_rasv_rec okl_ras_pvt.rasv_rec_type;
2096: ddindx binary_integer; indx binary_integer;
2097: begin
2098:
2099: -- copy data to the local IN or IN-OUT args, if any
2144: ddp_rasv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a39);
2145: ddp_rasv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a40);
2146:
2147: -- here's the delegated call to the old PL/SQL routine
2148: okl_ras_pvt.validate_row(p_api_version,
2149: p_init_msg_list,
2150: x_return_status,
2151: x_msg_count,
2152: x_msg_data,
2208: , p5_a40 JTF_DATE_TABLE
2209: )
2210:
2211: as
2212: ddp_rasv_tbl okl_ras_pvt.rasv_tbl_type;
2213: ddindx binary_integer; indx binary_integer;
2214: begin
2215:
2216: -- copy data to the local IN or IN-OUT args, if any
2218:
2219:
2220:
2221:
2222: okl_ras_pvt_w.rosetta_table_copy_in_p8(ddp_rasv_tbl, p5_a0
2223: , p5_a1
2224: , p5_a2
2225: , p5_a3
2226: , p5_a4
2262: , p5_a40
2263: );
2264:
2265: -- here's the delegated call to the old PL/SQL routine
2266: okl_ras_pvt.validate_row(p_api_version,
2267: p_init_msg_list,
2268: x_return_status,
2269: x_msg_count,
2270: x_msg_data,
2277:
2278:
2279: end;
2280:
2281: end okl_ras_pvt_w;