1: package body okl_fma_pvt_w as
2: /* $Header: OKLIFMAB.pls 120.1 2005/07/12 07:05:00 asawanka 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_fma_pvt.fma_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_200
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_NUMBER_TABLE
99: end loop;
100: end if;
101: end if;
102: end rosetta_table_copy_in_p2;
103: procedure rosetta_table_copy_out_p2(t okl_fma_pvt.fma_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
104: , a1 out nocopy JTF_VARCHAR2_TABLE_200
105: , a2 out nocopy JTF_NUMBER_TABLE
106: , a3 out nocopy JTF_VARCHAR2_TABLE_100
107: , a4 out nocopy JTF_NUMBER_TABLE
278: end if;
279: end if;
280: end rosetta_table_copy_out_p2;
281:
282: procedure rosetta_table_copy_in_p5(t out nocopy okl_fma_pvt.okl_formulae_tl_tbl_type, a0 JTF_NUMBER_TABLE
283: , a1 JTF_VARCHAR2_TABLE_100
284: , a2 JTF_VARCHAR2_TABLE_100
285: , a3 JTF_VARCHAR2_TABLE_100
286: , a4 JTF_VARCHAR2_TABLE_2000
315: end loop;
316: end if;
317: end if;
318: end rosetta_table_copy_in_p5;
319: procedure rosetta_table_copy_out_p5(t okl_fma_pvt.okl_formulae_tl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
320: , a1 out nocopy JTF_VARCHAR2_TABLE_100
321: , a2 out nocopy JTF_VARCHAR2_TABLE_100
322: , a3 out nocopy JTF_VARCHAR2_TABLE_100
323: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
384: end if;
385: end if;
386: end rosetta_table_copy_out_p5;
387:
388: procedure rosetta_table_copy_in_p8(t out nocopy okl_fma_pvt.fmav_tbl_type, a0 JTF_NUMBER_TABLE
389: , a1 JTF_NUMBER_TABLE
390: , a2 JTF_VARCHAR2_TABLE_100
391: , a3 JTF_NUMBER_TABLE
392: , a4 JTF_VARCHAR2_TABLE_100
469: end loop;
470: end if;
471: end if;
472: end rosetta_table_copy_in_p8;
473: procedure rosetta_table_copy_out_p8(t okl_fma_pvt.fmav_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
474: , a1 out nocopy JTF_NUMBER_TABLE
475: , a2 out nocopy JTF_VARCHAR2_TABLE_100
476: , a3 out nocopy JTF_NUMBER_TABLE
477: , a4 out nocopy JTF_VARCHAR2_TABLE_100
734: , p5_a33 NUMBER := 0-1962.0724
735: )
736:
737: as
738: ddp_fmav_rec okl_fma_pvt.fmav_rec_type;
739: ddx_fmav_rec okl_fma_pvt.fmav_rec_type;
740: ddindx binary_integer; indx binary_integer;
741: begin
742:
735: )
736:
737: as
738: ddp_fmav_rec okl_fma_pvt.fmav_rec_type;
739: ddx_fmav_rec okl_fma_pvt.fmav_rec_type;
740: ddindx binary_integer; indx binary_integer;
741: begin
742:
743: -- copy data to the local IN or IN-OUT args, if any
782: ddp_fmav_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
783:
784:
785: -- here's the delegated call to the old PL/SQL routine
786: okl_fma_pvt.insert_row(p_api_version,
787: p_init_msg_list,
788: x_return_status,
789: x_msg_count,
790: x_msg_data,
909: , p6_a33 out nocopy JTF_NUMBER_TABLE
910: )
911:
912: as
913: ddp_fmav_tbl okl_fma_pvt.fmav_tbl_type;
914: ddx_fmav_tbl okl_fma_pvt.fmav_tbl_type;
915: ddindx binary_integer; indx binary_integer;
916: begin
917:
910: )
911:
912: as
913: ddp_fmav_tbl okl_fma_pvt.fmav_tbl_type;
914: ddx_fmav_tbl okl_fma_pvt.fmav_tbl_type;
915: ddindx binary_integer; indx binary_integer;
916: begin
917:
918: -- copy data to the local IN or IN-OUT args, if any
920:
921:
922:
923:
924: okl_fma_pvt_w.rosetta_table_copy_in_p8(ddp_fmav_tbl, p5_a0
925: , p5_a1
926: , p5_a2
927: , p5_a3
928: , p5_a4
958: );
959:
960:
961: -- here's the delegated call to the old PL/SQL routine
962: okl_fma_pvt.insert_row(p_api_version,
963: p_init_msg_list,
964: x_return_status,
965: x_msg_count,
966: x_msg_data,
973:
974:
975:
976:
977: okl_fma_pvt_w.rosetta_table_copy_out_p8(ddx_fmav_tbl, p6_a0
978: , p6_a1
979: , p6_a2
980: , p6_a3
981: , p6_a4
1052: , p5_a33 NUMBER := 0-1962.0724
1053: )
1054:
1055: as
1056: ddp_fmav_rec okl_fma_pvt.fmav_rec_type;
1057: ddindx binary_integer; indx binary_integer;
1058: begin
1059:
1060: -- copy data to the local IN or IN-OUT args, if any
1098: ddp_fmav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
1099: ddp_fmav_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
1100:
1101: -- here's the delegated call to the old PL/SQL routine
1102: okl_fma_pvt.lock_row(p_api_version,
1103: p_init_msg_list,
1104: x_return_status,
1105: x_msg_count,
1106: x_msg_data,
1155: , p5_a33 JTF_NUMBER_TABLE
1156: )
1157:
1158: as
1159: ddp_fmav_tbl okl_fma_pvt.fmav_tbl_type;
1160: ddindx binary_integer; indx binary_integer;
1161: begin
1162:
1163: -- copy data to the local IN or IN-OUT args, if any
1165:
1166:
1167:
1168:
1169: okl_fma_pvt_w.rosetta_table_copy_in_p8(ddp_fmav_tbl, p5_a0
1170: , p5_a1
1171: , p5_a2
1172: , p5_a3
1173: , p5_a4
1202: , p5_a33
1203: );
1204:
1205: -- here's the delegated call to the old PL/SQL routine
1206: okl_fma_pvt.lock_row(p_api_version,
1207: p_init_msg_list,
1208: x_return_status,
1209: x_msg_count,
1210: x_msg_data,
1293: , p5_a33 NUMBER := 0-1962.0724
1294: )
1295:
1296: as
1297: ddp_fmav_rec okl_fma_pvt.fmav_rec_type;
1298: ddx_fmav_rec okl_fma_pvt.fmav_rec_type;
1299: ddindx binary_integer; indx binary_integer;
1300: begin
1301:
1294: )
1295:
1296: as
1297: ddp_fmav_rec okl_fma_pvt.fmav_rec_type;
1298: ddx_fmav_rec okl_fma_pvt.fmav_rec_type;
1299: ddindx binary_integer; indx binary_integer;
1300: begin
1301:
1302: -- copy data to the local IN or IN-OUT args, if any
1341: ddp_fmav_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
1342:
1343:
1344: -- here's the delegated call to the old PL/SQL routine
1345: okl_fma_pvt.update_row(p_api_version,
1346: p_init_msg_list,
1347: x_return_status,
1348: x_msg_count,
1349: x_msg_data,
1468: , p6_a33 out nocopy JTF_NUMBER_TABLE
1469: )
1470:
1471: as
1472: ddp_fmav_tbl okl_fma_pvt.fmav_tbl_type;
1473: ddx_fmav_tbl okl_fma_pvt.fmav_tbl_type;
1474: ddindx binary_integer; indx binary_integer;
1475: begin
1476:
1469: )
1470:
1471: as
1472: ddp_fmav_tbl okl_fma_pvt.fmav_tbl_type;
1473: ddx_fmav_tbl okl_fma_pvt.fmav_tbl_type;
1474: ddindx binary_integer; indx binary_integer;
1475: begin
1476:
1477: -- copy data to the local IN or IN-OUT args, if any
1479:
1480:
1481:
1482:
1483: okl_fma_pvt_w.rosetta_table_copy_in_p8(ddp_fmav_tbl, p5_a0
1484: , p5_a1
1485: , p5_a2
1486: , p5_a3
1487: , p5_a4
1517: );
1518:
1519:
1520: -- here's the delegated call to the old PL/SQL routine
1521: okl_fma_pvt.update_row(p_api_version,
1522: p_init_msg_list,
1523: x_return_status,
1524: x_msg_count,
1525: x_msg_data,
1532:
1533:
1534:
1535:
1536: okl_fma_pvt_w.rosetta_table_copy_out_p8(ddx_fmav_tbl, p6_a0
1537: , p6_a1
1538: , p6_a2
1539: , p6_a3
1540: , p6_a4
1611: , p5_a33 NUMBER := 0-1962.0724
1612: )
1613:
1614: as
1615: ddp_fmav_rec okl_fma_pvt.fmav_rec_type;
1616: ddindx binary_integer; indx binary_integer;
1617: begin
1618:
1619: -- copy data to the local IN or IN-OUT args, if any
1657: ddp_fmav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
1658: ddp_fmav_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
1659:
1660: -- here's the delegated call to the old PL/SQL routine
1661: okl_fma_pvt.delete_row(p_api_version,
1662: p_init_msg_list,
1663: x_return_status,
1664: x_msg_count,
1665: x_msg_data,
1714: , p5_a33 JTF_NUMBER_TABLE
1715: )
1716:
1717: as
1718: ddp_fmav_tbl okl_fma_pvt.fmav_tbl_type;
1719: ddindx binary_integer; indx binary_integer;
1720: begin
1721:
1722: -- copy data to the local IN or IN-OUT args, if any
1724:
1725:
1726:
1727:
1728: okl_fma_pvt_w.rosetta_table_copy_in_p8(ddp_fmav_tbl, p5_a0
1729: , p5_a1
1730: , p5_a2
1731: , p5_a3
1732: , p5_a4
1761: , p5_a33
1762: );
1763:
1764: -- here's the delegated call to the old PL/SQL routine
1765: okl_fma_pvt.delete_row(p_api_version,
1766: p_init_msg_list,
1767: x_return_status,
1768: x_msg_count,
1769: x_msg_data,
1818: , p5_a33 NUMBER := 0-1962.0724
1819: )
1820:
1821: as
1822: ddp_fmav_rec okl_fma_pvt.fmav_rec_type;
1823: ddindx binary_integer; indx binary_integer;
1824: begin
1825:
1826: -- copy data to the local IN or IN-OUT args, if any
1864: ddp_fmav_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
1865: ddp_fmav_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
1866:
1867: -- here's the delegated call to the old PL/SQL routine
1868: okl_fma_pvt.validate_row(p_api_version,
1869: p_init_msg_list,
1870: x_return_status,
1871: x_msg_count,
1872: x_msg_data,
1921: , p5_a33 JTF_NUMBER_TABLE
1922: )
1923:
1924: as
1925: ddp_fmav_tbl okl_fma_pvt.fmav_tbl_type;
1926: ddindx binary_integer; indx binary_integer;
1927: begin
1928:
1929: -- copy data to the local IN or IN-OUT args, if any
1931:
1932:
1933:
1934:
1935: okl_fma_pvt_w.rosetta_table_copy_in_p8(ddp_fmav_tbl, p5_a0
1936: , p5_a1
1937: , p5_a2
1938: , p5_a3
1939: , p5_a4
1968: , p5_a33
1969: );
1970:
1971: -- here's the delegated call to the old PL/SQL routine
1972: okl_fma_pvt.validate_row(p_api_version,
1973: p_init_msg_list,
1974: x_return_status,
1975: x_msg_count,
1976: x_msg_data,
1983:
1984:
1985: end;
1986:
1987: end okl_fma_pvt_w;