1: package body okl_svf_pvt_w as
2: /* $Header: OKLISVFB.pls 120.1 2005/07/15 07:39:31 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_svf_pvt.svf_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_DATE_TABLE
91: end loop;
92: end if;
93: end if;
94: end rosetta_table_copy_in_p2;
95: procedure rosetta_table_copy_out_p2(t okl_svf_pvt.svf_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
96: , a1 out nocopy JTF_VARCHAR2_TABLE_100
97: , a2 out nocopy JTF_NUMBER_TABLE
98: , a3 out nocopy JTF_NUMBER_TABLE
99: , a4 out nocopy JTF_DATE_TABLE
250: end if;
251: end if;
252: end rosetta_table_copy_out_p2;
253:
254: procedure rosetta_table_copy_in_p5(t out nocopy okl_svf_pvt.okl_service_fees_tl_tbl_type, a0 JTF_NUMBER_TABLE
255: , a1 JTF_VARCHAR2_TABLE_100
256: , a2 JTF_VARCHAR2_TABLE_100
257: , a3 JTF_VARCHAR2_TABLE_100
258: , a4 JTF_VARCHAR2_TABLE_200
289: end loop;
290: end if;
291: end if;
292: end rosetta_table_copy_in_p5;
293: procedure rosetta_table_copy_out_p5(t okl_svf_pvt.okl_service_fees_tl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
294: , a1 out nocopy JTF_VARCHAR2_TABLE_100
295: , a2 out nocopy JTF_VARCHAR2_TABLE_100
296: , a3 out nocopy JTF_VARCHAR2_TABLE_100
297: , a4 out nocopy JTF_VARCHAR2_TABLE_200
363: end if;
364: end if;
365: end rosetta_table_copy_out_p5;
366:
367: procedure rosetta_table_copy_in_p8(t out nocopy okl_svf_pvt.svfv_tbl_type, a0 JTF_NUMBER_TABLE
368: , a1 JTF_NUMBER_TABLE
369: , a2 JTF_VARCHAR2_TABLE_100
370: , a3 JTF_VARCHAR2_TABLE_100
371: , a4 JTF_VARCHAR2_TABLE_200
442: end loop;
443: end if;
444: end if;
445: end rosetta_table_copy_in_p8;
446: procedure rosetta_table_copy_out_p8(t okl_svf_pvt.svfv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
447: , a1 out nocopy JTF_NUMBER_TABLE
448: , a2 out nocopy JTF_VARCHAR2_TABLE_100
449: , a3 out nocopy JTF_VARCHAR2_TABLE_100
450: , a4 out nocopy JTF_VARCHAR2_TABLE_200
686: , p5_a30 NUMBER := 0-1962.0724
687: )
688:
689: as
690: ddp_svfv_rec okl_svf_pvt.svfv_rec_type;
691: ddx_svfv_rec okl_svf_pvt.svfv_rec_type;
692: ddindx binary_integer; indx binary_integer;
693: begin
694:
687: )
688:
689: as
690: ddp_svfv_rec okl_svf_pvt.svfv_rec_type;
691: ddx_svfv_rec okl_svf_pvt.svfv_rec_type;
692: ddindx binary_integer; indx binary_integer;
693: begin
694:
695: -- copy data to the local IN or IN-OUT args, if any
731: ddp_svfv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
732:
733:
734: -- here's the delegated call to the old PL/SQL routine
735: okl_svf_pvt.insert_row(p_api_version,
736: p_init_msg_list,
737: x_return_status,
738: x_msg_count,
739: x_msg_data,
849: , p6_a30 out nocopy JTF_NUMBER_TABLE
850: )
851:
852: as
853: ddp_svfv_tbl okl_svf_pvt.svfv_tbl_type;
854: ddx_svfv_tbl okl_svf_pvt.svfv_tbl_type;
855: ddindx binary_integer; indx binary_integer;
856: begin
857:
850: )
851:
852: as
853: ddp_svfv_tbl okl_svf_pvt.svfv_tbl_type;
854: ddx_svfv_tbl okl_svf_pvt.svfv_tbl_type;
855: ddindx binary_integer; indx binary_integer;
856: begin
857:
858: -- copy data to the local IN or IN-OUT args, if any
860:
861:
862:
863:
864: okl_svf_pvt_w.rosetta_table_copy_in_p8(ddp_svfv_tbl, p5_a0
865: , p5_a1
866: , p5_a2
867: , p5_a3
868: , p5_a4
895: );
896:
897:
898: -- here's the delegated call to the old PL/SQL routine
899: okl_svf_pvt.insert_row(p_api_version,
900: p_init_msg_list,
901: x_return_status,
902: x_msg_count,
903: x_msg_data,
910:
911:
912:
913:
914: okl_svf_pvt_w.rosetta_table_copy_out_p8(ddx_svfv_tbl, p6_a0
915: , p6_a1
916: , p6_a2
917: , p6_a3
918: , p6_a4
983: , p5_a30 NUMBER := 0-1962.0724
984: )
985:
986: as
987: ddp_svfv_rec okl_svf_pvt.svfv_rec_type;
988: ddindx binary_integer; indx binary_integer;
989: begin
990:
991: -- copy data to the local IN or IN-OUT args, if any
1026: ddp_svfv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1027: ddp_svfv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1028:
1029: -- here's the delegated call to the old PL/SQL routine
1030: okl_svf_pvt.lock_row(p_api_version,
1031: p_init_msg_list,
1032: x_return_status,
1033: x_msg_count,
1034: x_msg_data,
1080: , p5_a30 JTF_NUMBER_TABLE
1081: )
1082:
1083: as
1084: ddp_svfv_tbl okl_svf_pvt.svfv_tbl_type;
1085: ddindx binary_integer; indx binary_integer;
1086: begin
1087:
1088: -- copy data to the local IN or IN-OUT args, if any
1090:
1091:
1092:
1093:
1094: okl_svf_pvt_w.rosetta_table_copy_in_p8(ddp_svfv_tbl, p5_a0
1095: , p5_a1
1096: , p5_a2
1097: , p5_a3
1098: , p5_a4
1124: , p5_a30
1125: );
1126:
1127: -- here's the delegated call to the old PL/SQL routine
1128: okl_svf_pvt.lock_row(p_api_version,
1129: p_init_msg_list,
1130: x_return_status,
1131: x_msg_count,
1132: x_msg_data,
1209: , p5_a30 NUMBER := 0-1962.0724
1210: )
1211:
1212: as
1213: ddp_svfv_rec okl_svf_pvt.svfv_rec_type;
1214: ddx_svfv_rec okl_svf_pvt.svfv_rec_type;
1215: ddindx binary_integer; indx binary_integer;
1216: begin
1217:
1210: )
1211:
1212: as
1213: ddp_svfv_rec okl_svf_pvt.svfv_rec_type;
1214: ddx_svfv_rec okl_svf_pvt.svfv_rec_type;
1215: ddindx binary_integer; indx binary_integer;
1216: begin
1217:
1218: -- copy data to the local IN or IN-OUT args, if any
1254: ddp_svfv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1255:
1256:
1257: -- here's the delegated call to the old PL/SQL routine
1258: okl_svf_pvt.update_row(p_api_version,
1259: p_init_msg_list,
1260: x_return_status,
1261: x_msg_count,
1262: x_msg_data,
1372: , p6_a30 out nocopy JTF_NUMBER_TABLE
1373: )
1374:
1375: as
1376: ddp_svfv_tbl okl_svf_pvt.svfv_tbl_type;
1377: ddx_svfv_tbl okl_svf_pvt.svfv_tbl_type;
1378: ddindx binary_integer; indx binary_integer;
1379: begin
1380:
1373: )
1374:
1375: as
1376: ddp_svfv_tbl okl_svf_pvt.svfv_tbl_type;
1377: ddx_svfv_tbl okl_svf_pvt.svfv_tbl_type;
1378: ddindx binary_integer; indx binary_integer;
1379: begin
1380:
1381: -- copy data to the local IN or IN-OUT args, if any
1383:
1384:
1385:
1386:
1387: okl_svf_pvt_w.rosetta_table_copy_in_p8(ddp_svfv_tbl, p5_a0
1388: , p5_a1
1389: , p5_a2
1390: , p5_a3
1391: , p5_a4
1418: );
1419:
1420:
1421: -- here's the delegated call to the old PL/SQL routine
1422: okl_svf_pvt.update_row(p_api_version,
1423: p_init_msg_list,
1424: x_return_status,
1425: x_msg_count,
1426: x_msg_data,
1433:
1434:
1435:
1436:
1437: okl_svf_pvt_w.rosetta_table_copy_out_p8(ddx_svfv_tbl, p6_a0
1438: , p6_a1
1439: , p6_a2
1440: , p6_a3
1441: , p6_a4
1506: , p5_a30 NUMBER := 0-1962.0724
1507: )
1508:
1509: as
1510: ddp_svfv_rec okl_svf_pvt.svfv_rec_type;
1511: ddindx binary_integer; indx binary_integer;
1512: begin
1513:
1514: -- copy data to the local IN or IN-OUT args, if any
1549: ddp_svfv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1550: ddp_svfv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1551:
1552: -- here's the delegated call to the old PL/SQL routine
1553: okl_svf_pvt.delete_row(p_api_version,
1554: p_init_msg_list,
1555: x_return_status,
1556: x_msg_count,
1557: x_msg_data,
1603: , p5_a30 JTF_NUMBER_TABLE
1604: )
1605:
1606: as
1607: ddp_svfv_tbl okl_svf_pvt.svfv_tbl_type;
1608: ddindx binary_integer; indx binary_integer;
1609: begin
1610:
1611: -- copy data to the local IN or IN-OUT args, if any
1613:
1614:
1615:
1616:
1617: okl_svf_pvt_w.rosetta_table_copy_in_p8(ddp_svfv_tbl, p5_a0
1618: , p5_a1
1619: , p5_a2
1620: , p5_a3
1621: , p5_a4
1647: , p5_a30
1648: );
1649:
1650: -- here's the delegated call to the old PL/SQL routine
1651: okl_svf_pvt.delete_row(p_api_version,
1652: p_init_msg_list,
1653: x_return_status,
1654: x_msg_count,
1655: x_msg_data,
1701: , p5_a30 NUMBER := 0-1962.0724
1702: )
1703:
1704: as
1705: ddp_svfv_rec okl_svf_pvt.svfv_rec_type;
1706: ddindx binary_integer; indx binary_integer;
1707: begin
1708:
1709: -- copy data to the local IN or IN-OUT args, if any
1744: ddp_svfv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1745: ddp_svfv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1746:
1747: -- here's the delegated call to the old PL/SQL routine
1748: okl_svf_pvt.validate_row(p_api_version,
1749: p_init_msg_list,
1750: x_return_status,
1751: x_msg_count,
1752: x_msg_data,
1798: , p5_a30 JTF_NUMBER_TABLE
1799: )
1800:
1801: as
1802: ddp_svfv_tbl okl_svf_pvt.svfv_tbl_type;
1803: ddindx binary_integer; indx binary_integer;
1804: begin
1805:
1806: -- copy data to the local IN or IN-OUT args, if any
1808:
1809:
1810:
1811:
1812: okl_svf_pvt_w.rosetta_table_copy_in_p8(ddp_svfv_tbl, p5_a0
1813: , p5_a1
1814: , p5_a2
1815: , p5_a3
1816: , p5_a4
1842: , p5_a30
1843: );
1844:
1845: -- here's the delegated call to the old PL/SQL routine
1846: okl_svf_pvt.validate_row(p_api_version,
1847: p_init_msg_list,
1848: x_return_status,
1849: x_msg_count,
1850: x_msg_data,
1857:
1858:
1859: end;
1860:
1861: end okl_svf_pvt_w;