1: package body okl_sir_pvt_w as
2: /* $Header: OKLISIRB.pls 120.1 2005/07/14 12:00:09 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_sir_pvt.sir_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_VARCHAR2_TABLE_100
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_200
107: end loop;
108: end if;
109: end if;
110: end rosetta_table_copy_in_p2;
111: procedure rosetta_table_copy_out_p2(t okl_sir_pvt.sir_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
112: , a1 out nocopy JTF_NUMBER_TABLE
113: , a2 out nocopy JTF_VARCHAR2_TABLE_100
114: , a3 out nocopy JTF_NUMBER_TABLE
115: , a4 out nocopy JTF_VARCHAR2_TABLE_200
306: end if;
307: end if;
308: end rosetta_table_copy_out_p2;
309:
310: procedure rosetta_table_copy_in_p5(t out nocopy okl_sir_pvt.sirv_tbl_type, a0 JTF_NUMBER_TABLE
311: , a1 JTF_NUMBER_TABLE
312: , a2 JTF_VARCHAR2_TABLE_100
313: , a3 JTF_NUMBER_TABLE
314: , a4 JTF_VARCHAR2_TABLE_200
395: end loop;
396: end if;
397: end if;
398: end rosetta_table_copy_in_p5;
399: procedure rosetta_table_copy_out_p5(t okl_sir_pvt.sirv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
400: , a1 out nocopy JTF_NUMBER_TABLE
401: , a2 out nocopy JTF_VARCHAR2_TABLE_100
402: , a3 out nocopy JTF_NUMBER_TABLE
403: , a4 out nocopy JTF_VARCHAR2_TABLE_200
674: , p5_a35 DATE := fnd_api.g_miss_date
675: )
676:
677: as
678: ddp_sirv_rec okl_sir_pvt.sirv_rec_type;
679: ddx_sirv_rec okl_sir_pvt.sirv_rec_type;
680: ddindx binary_integer; indx binary_integer;
681: begin
682:
675: )
676:
677: as
678: ddp_sirv_rec okl_sir_pvt.sirv_rec_type;
679: ddx_sirv_rec okl_sir_pvt.sirv_rec_type;
680: ddindx binary_integer; indx binary_integer;
681: begin
682:
683: -- copy data to the local IN or IN-OUT args, if any
724: ddp_sirv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a35);
725:
726:
727: -- here's the delegated call to the old PL/SQL routine
728: okl_sir_pvt.insert_row(p_api_version,
729: p_init_msg_list,
730: x_return_status,
731: x_msg_count,
732: x_msg_data,
857: , p6_a35 out nocopy JTF_DATE_TABLE
858: )
859:
860: as
861: ddp_sirv_tbl okl_sir_pvt.sirv_tbl_type;
862: ddx_sirv_tbl okl_sir_pvt.sirv_tbl_type;
863: ddindx binary_integer; indx binary_integer;
864: begin
865:
858: )
859:
860: as
861: ddp_sirv_tbl okl_sir_pvt.sirv_tbl_type;
862: ddx_sirv_tbl okl_sir_pvt.sirv_tbl_type;
863: ddindx binary_integer; indx binary_integer;
864: begin
865:
866: -- copy data to the local IN or IN-OUT args, if any
868:
869:
870:
871:
872: okl_sir_pvt_w.rosetta_table_copy_in_p5(ddp_sirv_tbl, p5_a0
873: , p5_a1
874: , p5_a2
875: , p5_a3
876: , p5_a4
908: );
909:
910:
911: -- here's the delegated call to the old PL/SQL routine
912: okl_sir_pvt.insert_row(p_api_version,
913: p_init_msg_list,
914: x_return_status,
915: x_msg_count,
916: x_msg_data,
923:
924:
925:
926:
927: okl_sir_pvt_w.rosetta_table_copy_out_p5(ddx_sirv_tbl, p6_a0
928: , p6_a1
929: , p6_a2
930: , p6_a3
931: , p6_a4
1006: , p5_a35 DATE := fnd_api.g_miss_date
1007: )
1008:
1009: as
1010: ddp_sirv_rec okl_sir_pvt.sirv_rec_type;
1011: ddindx binary_integer; indx binary_integer;
1012: begin
1013:
1014: -- copy data to the local IN or IN-OUT args, if any
1054: ddp_sirv_rec.program_id := rosetta_g_miss_num_map(p5_a34);
1055: ddp_sirv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a35);
1056:
1057: -- here's the delegated call to the old PL/SQL routine
1058: okl_sir_pvt.lock_row(p_api_version,
1059: p_init_msg_list,
1060: x_return_status,
1061: x_msg_count,
1062: x_msg_data,
1113: , p5_a35 JTF_DATE_TABLE
1114: )
1115:
1116: as
1117: ddp_sirv_tbl okl_sir_pvt.sirv_tbl_type;
1118: ddindx binary_integer; indx binary_integer;
1119: begin
1120:
1121: -- copy data to the local IN or IN-OUT args, if any
1123:
1124:
1125:
1126:
1127: okl_sir_pvt_w.rosetta_table_copy_in_p5(ddp_sirv_tbl, p5_a0
1128: , p5_a1
1129: , p5_a2
1130: , p5_a3
1131: , p5_a4
1162: , p5_a35
1163: );
1164:
1165: -- here's the delegated call to the old PL/SQL routine
1166: okl_sir_pvt.lock_row(p_api_version,
1167: p_init_msg_list,
1168: x_return_status,
1169: x_msg_count,
1170: x_msg_data,
1257: , p5_a35 DATE := fnd_api.g_miss_date
1258: )
1259:
1260: as
1261: ddp_sirv_rec okl_sir_pvt.sirv_rec_type;
1262: ddx_sirv_rec okl_sir_pvt.sirv_rec_type;
1263: ddindx binary_integer; indx binary_integer;
1264: begin
1265:
1258: )
1259:
1260: as
1261: ddp_sirv_rec okl_sir_pvt.sirv_rec_type;
1262: ddx_sirv_rec okl_sir_pvt.sirv_rec_type;
1263: ddindx binary_integer; indx binary_integer;
1264: begin
1265:
1266: -- copy data to the local IN or IN-OUT args, if any
1307: ddp_sirv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a35);
1308:
1309:
1310: -- here's the delegated call to the old PL/SQL routine
1311: okl_sir_pvt.update_row(p_api_version,
1312: p_init_msg_list,
1313: x_return_status,
1314: x_msg_count,
1315: x_msg_data,
1440: , p6_a35 out nocopy JTF_DATE_TABLE
1441: )
1442:
1443: as
1444: ddp_sirv_tbl okl_sir_pvt.sirv_tbl_type;
1445: ddx_sirv_tbl okl_sir_pvt.sirv_tbl_type;
1446: ddindx binary_integer; indx binary_integer;
1447: begin
1448:
1441: )
1442:
1443: as
1444: ddp_sirv_tbl okl_sir_pvt.sirv_tbl_type;
1445: ddx_sirv_tbl okl_sir_pvt.sirv_tbl_type;
1446: ddindx binary_integer; indx binary_integer;
1447: begin
1448:
1449: -- copy data to the local IN or IN-OUT args, if any
1451:
1452:
1453:
1454:
1455: okl_sir_pvt_w.rosetta_table_copy_in_p5(ddp_sirv_tbl, p5_a0
1456: , p5_a1
1457: , p5_a2
1458: , p5_a3
1459: , p5_a4
1491: );
1492:
1493:
1494: -- here's the delegated call to the old PL/SQL routine
1495: okl_sir_pvt.update_row(p_api_version,
1496: p_init_msg_list,
1497: x_return_status,
1498: x_msg_count,
1499: x_msg_data,
1506:
1507:
1508:
1509:
1510: okl_sir_pvt_w.rosetta_table_copy_out_p5(ddx_sirv_tbl, p6_a0
1511: , p6_a1
1512: , p6_a2
1513: , p6_a3
1514: , p6_a4
1589: , p5_a35 DATE := fnd_api.g_miss_date
1590: )
1591:
1592: as
1593: ddp_sirv_rec okl_sir_pvt.sirv_rec_type;
1594: ddindx binary_integer; indx binary_integer;
1595: begin
1596:
1597: -- copy data to the local IN or IN-OUT args, if any
1637: ddp_sirv_rec.program_id := rosetta_g_miss_num_map(p5_a34);
1638: ddp_sirv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a35);
1639:
1640: -- here's the delegated call to the old PL/SQL routine
1641: okl_sir_pvt.delete_row(p_api_version,
1642: p_init_msg_list,
1643: x_return_status,
1644: x_msg_count,
1645: x_msg_data,
1696: , p5_a35 JTF_DATE_TABLE
1697: )
1698:
1699: as
1700: ddp_sirv_tbl okl_sir_pvt.sirv_tbl_type;
1701: ddindx binary_integer; indx binary_integer;
1702: begin
1703:
1704: -- copy data to the local IN or IN-OUT args, if any
1706:
1707:
1708:
1709:
1710: okl_sir_pvt_w.rosetta_table_copy_in_p5(ddp_sirv_tbl, p5_a0
1711: , p5_a1
1712: , p5_a2
1713: , p5_a3
1714: , p5_a4
1745: , p5_a35
1746: );
1747:
1748: -- here's the delegated call to the old PL/SQL routine
1749: okl_sir_pvt.delete_row(p_api_version,
1750: p_init_msg_list,
1751: x_return_status,
1752: x_msg_count,
1753: x_msg_data,
1804: , p5_a35 DATE := fnd_api.g_miss_date
1805: )
1806:
1807: as
1808: ddp_sirv_rec okl_sir_pvt.sirv_rec_type;
1809: ddindx binary_integer; indx binary_integer;
1810: begin
1811:
1812: -- copy data to the local IN or IN-OUT args, if any
1852: ddp_sirv_rec.program_id := rosetta_g_miss_num_map(p5_a34);
1853: ddp_sirv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a35);
1854:
1855: -- here's the delegated call to the old PL/SQL routine
1856: okl_sir_pvt.validate_row(p_api_version,
1857: p_init_msg_list,
1858: x_return_status,
1859: x_msg_count,
1860: x_msg_data,
1911: , p5_a35 JTF_DATE_TABLE
1912: )
1913:
1914: as
1915: ddp_sirv_tbl okl_sir_pvt.sirv_tbl_type;
1916: ddindx binary_integer; indx binary_integer;
1917: begin
1918:
1919: -- copy data to the local IN or IN-OUT args, if any
1921:
1922:
1923:
1924:
1925: okl_sir_pvt_w.rosetta_table_copy_in_p5(ddp_sirv_tbl, p5_a0
1926: , p5_a1
1927: , p5_a2
1928: , p5_a3
1929: , p5_a4
1960: , p5_a35
1961: );
1962:
1963: -- here's the delegated call to the old PL/SQL routine
1964: okl_sir_pvt.validate_row(p_api_version,
1965: p_init_msg_list,
1966: x_return_status,
1967: x_msg_count,
1968: x_msg_data,
1975:
1976:
1977: end;
1978:
1979: end okl_sir_pvt_w;