1: package body okl_syp_pvt_w as
2: /* $Header: OKLISYPB.pls 120.15.12010000.2 2008/11/13 16:18:16 kkorrapo ship $ */
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: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
21: if n=b then return a; end if;
22: return n;
23: end;
24:
25: procedure rosetta_table_copy_in_p2(t out nocopy okl_syp_pvt.sypv_tbl_type, a0 JTF_NUMBER_TABLE
26: , a1 JTF_VARCHAR2_TABLE_100
27: , a2 JTF_VARCHAR2_TABLE_100
28: , a3 JTF_NUMBER_TABLE
29: , a4 JTF_NUMBER_TABLE
164: end loop;
165: end if;
166: end if;
167: end rosetta_table_copy_in_p2;
168: procedure rosetta_table_copy_out_p2(t okl_syp_pvt.sypv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
169: , a1 out nocopy JTF_VARCHAR2_TABLE_100
170: , a2 out nocopy JTF_VARCHAR2_TABLE_100
171: , a3 out nocopy JTF_NUMBER_TABLE
172: , a4 out nocopy JTF_NUMBER_TABLE
498: end if;
499: end if;
500: end rosetta_table_copy_out_p2;
501:
502: procedure rosetta_table_copy_in_p5(t out nocopy okl_syp_pvt.syp_tbl_type, a0 JTF_NUMBER_TABLE
503: , a1 JTF_VARCHAR2_TABLE_100
504: , a2 JTF_VARCHAR2_TABLE_100
505: , a3 JTF_NUMBER_TABLE
506: , a4 JTF_NUMBER_TABLE
641: end loop;
642: end if;
643: end if;
644: end rosetta_table_copy_in_p5;
645: procedure rosetta_table_copy_out_p5(t okl_syp_pvt.syp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
646: , a1 out nocopy JTF_VARCHAR2_TABLE_100
647: , a2 out nocopy JTF_VARCHAR2_TABLE_100
648: , a3 out nocopy JTF_NUMBER_TABLE
649: , a4 out nocopy JTF_NUMBER_TABLE
1109: , p5_a62 VARCHAR2 := fnd_api.g_miss_char
1110: )
1111:
1112: as
1113: ddp_sypv_rec okl_syp_pvt.sypv_rec_type;
1114: ddx_sypv_rec okl_syp_pvt.sypv_rec_type;
1115: ddindx binary_integer; indx binary_integer;
1116: begin
1117:
1110: )
1111:
1112: as
1113: ddp_sypv_rec okl_syp_pvt.sypv_rec_type;
1114: ddx_sypv_rec okl_syp_pvt.sypv_rec_type;
1115: ddindx binary_integer; indx binary_integer;
1116: begin
1117:
1118: -- copy data to the local IN or IN-OUT args, if any
1186: ddp_sypv_rec.lseqte_seq_prefix_txt := p5_a62;
1187:
1188:
1189: -- here's the delegated call to the old PL/SQL routine
1190: okl_syp_pvt.insert_row(p_api_version,
1191: p_init_msg_list,
1192: x_return_status,
1193: x_msg_count,
1194: x_msg_data,
1400: , p6_a62 out nocopy JTF_VARCHAR2_TABLE_200
1401: )
1402:
1403: as
1404: ddp_sypv_tbl okl_syp_pvt.sypv_tbl_type;
1405: ddx_sypv_tbl okl_syp_pvt.sypv_tbl_type;
1406: ddindx binary_integer; indx binary_integer;
1407: begin
1408:
1401: )
1402:
1403: as
1404: ddp_sypv_tbl okl_syp_pvt.sypv_tbl_type;
1405: ddx_sypv_tbl okl_syp_pvt.sypv_tbl_type;
1406: ddindx binary_integer; indx binary_integer;
1407: begin
1408:
1409: -- copy data to the local IN or IN-OUT args, if any
1411:
1412:
1413:
1414:
1415: okl_syp_pvt_w.rosetta_table_copy_in_p2(ddp_sypv_tbl, p5_a0
1416: , p5_a1
1417: , p5_a2
1418: , p5_a3
1419: , p5_a4
1478: );
1479:
1480:
1481: -- here's the delegated call to the old PL/SQL routine
1482: okl_syp_pvt.insert_row(p_api_version,
1483: p_init_msg_list,
1484: x_return_status,
1485: x_msg_count,
1486: x_msg_data,
1493:
1494:
1495:
1496:
1497: okl_syp_pvt_w.rosetta_table_copy_out_p2(ddx_sypv_tbl, p6_a0
1498: , p6_a1
1499: , p6_a2
1500: , p6_a3
1501: , p6_a4
1630: , p5_a62 VARCHAR2 := fnd_api.g_miss_char
1631: )
1632:
1633: as
1634: ddp_sypv_rec okl_syp_pvt.sypv_rec_type;
1635: ddindx binary_integer; indx binary_integer;
1636: begin
1637:
1638: -- copy data to the local IN or IN-OUT args, if any
1705: ddp_sypv_rec.qckqte_seq_prefix_txt := p5_a61;
1706: ddp_sypv_rec.lseqte_seq_prefix_txt := p5_a62;
1707:
1708: -- here's the delegated call to the old PL/SQL routine
1709: okl_syp_pvt.lock_row(p_api_version,
1710: p_init_msg_list,
1711: x_return_status,
1712: x_msg_count,
1713: x_msg_data,
1791: , p5_a62 JTF_VARCHAR2_TABLE_200
1792: )
1793:
1794: as
1795: ddp_sypv_tbl okl_syp_pvt.sypv_tbl_type;
1796: ddindx binary_integer; indx binary_integer;
1797: begin
1798:
1799: -- copy data to the local IN or IN-OUT args, if any
1801:
1802:
1803:
1804:
1805: okl_syp_pvt_w.rosetta_table_copy_in_p2(ddp_sypv_tbl, p5_a0
1806: , p5_a1
1807: , p5_a2
1808: , p5_a3
1809: , p5_a4
1867: , p5_a62
1868: );
1869:
1870: -- here's the delegated call to the old PL/SQL routine
1871: okl_syp_pvt.lock_row(p_api_version,
1872: p_init_msg_list,
1873: x_return_status,
1874: x_msg_count,
1875: x_msg_data,
2016: , p5_a62 VARCHAR2 := fnd_api.g_miss_char
2017: )
2018:
2019: as
2020: ddp_sypv_rec okl_syp_pvt.sypv_rec_type;
2021: ddx_sypv_rec okl_syp_pvt.sypv_rec_type;
2022: ddindx binary_integer; indx binary_integer;
2023: begin
2024:
2017: )
2018:
2019: as
2020: ddp_sypv_rec okl_syp_pvt.sypv_rec_type;
2021: ddx_sypv_rec okl_syp_pvt.sypv_rec_type;
2022: ddindx binary_integer; indx binary_integer;
2023: begin
2024:
2025: -- copy data to the local IN or IN-OUT args, if any
2093: ddp_sypv_rec.lseqte_seq_prefix_txt := p5_a62;
2094:
2095:
2096: -- here's the delegated call to the old PL/SQL routine
2097: okl_syp_pvt.update_row(p_api_version,
2098: p_init_msg_list,
2099: x_return_status,
2100: x_msg_count,
2101: x_msg_data,
2307: , p6_a62 out nocopy JTF_VARCHAR2_TABLE_200
2308: )
2309:
2310: as
2311: ddp_sypv_tbl okl_syp_pvt.sypv_tbl_type;
2312: ddx_sypv_tbl okl_syp_pvt.sypv_tbl_type;
2313: ddindx binary_integer; indx binary_integer;
2314: begin
2315:
2308: )
2309:
2310: as
2311: ddp_sypv_tbl okl_syp_pvt.sypv_tbl_type;
2312: ddx_sypv_tbl okl_syp_pvt.sypv_tbl_type;
2313: ddindx binary_integer; indx binary_integer;
2314: begin
2315:
2316: -- copy data to the local IN or IN-OUT args, if any
2318:
2319:
2320:
2321:
2322: okl_syp_pvt_w.rosetta_table_copy_in_p2(ddp_sypv_tbl, p5_a0
2323: , p5_a1
2324: , p5_a2
2325: , p5_a3
2326: , p5_a4
2385: );
2386:
2387:
2388: -- here's the delegated call to the old PL/SQL routine
2389: okl_syp_pvt.update_row(p_api_version,
2390: p_init_msg_list,
2391: x_return_status,
2392: x_msg_count,
2393: x_msg_data,
2400:
2401:
2402:
2403:
2404: okl_syp_pvt_w.rosetta_table_copy_out_p2(ddx_sypv_tbl, p6_a0
2405: , p6_a1
2406: , p6_a2
2407: , p6_a3
2408: , p6_a4
2537: , p5_a62 VARCHAR2 := fnd_api.g_miss_char
2538: )
2539:
2540: as
2541: ddp_sypv_rec okl_syp_pvt.sypv_rec_type;
2542: ddindx binary_integer; indx binary_integer;
2543: begin
2544:
2545: -- copy data to the local IN or IN-OUT args, if any
2612: ddp_sypv_rec.qckqte_seq_prefix_txt := p5_a61;
2613: ddp_sypv_rec.lseqte_seq_prefix_txt := p5_a62;
2614:
2615: -- here's the delegated call to the old PL/SQL routine
2616: okl_syp_pvt.delete_row(p_api_version,
2617: p_init_msg_list,
2618: x_return_status,
2619: x_msg_count,
2620: x_msg_data,
2698: , p5_a62 JTF_VARCHAR2_TABLE_200
2699: )
2700:
2701: as
2702: ddp_sypv_tbl okl_syp_pvt.sypv_tbl_type;
2703: ddindx binary_integer; indx binary_integer;
2704: begin
2705:
2706: -- copy data to the local IN or IN-OUT args, if any
2708:
2709:
2710:
2711:
2712: okl_syp_pvt_w.rosetta_table_copy_in_p2(ddp_sypv_tbl, p5_a0
2713: , p5_a1
2714: , p5_a2
2715: , p5_a3
2716: , p5_a4
2774: , p5_a62
2775: );
2776:
2777: -- here's the delegated call to the old PL/SQL routine
2778: okl_syp_pvt.delete_row(p_api_version,
2779: p_init_msg_list,
2780: x_return_status,
2781: x_msg_count,
2782: x_msg_data,
2860: , p5_a62 VARCHAR2 := fnd_api.g_miss_char
2861: )
2862:
2863: as
2864: ddp_sypv_rec okl_syp_pvt.sypv_rec_type;
2865: ddindx binary_integer; indx binary_integer;
2866: begin
2867:
2868: -- copy data to the local IN or IN-OUT args, if any
2935: ddp_sypv_rec.qckqte_seq_prefix_txt := p5_a61;
2936: ddp_sypv_rec.lseqte_seq_prefix_txt := p5_a62;
2937:
2938: -- here's the delegated call to the old PL/SQL routine
2939: okl_syp_pvt.validate_row(p_api_version,
2940: p_init_msg_list,
2941: x_return_status,
2942: x_msg_count,
2943: x_msg_data,
3021: , p5_a62 JTF_VARCHAR2_TABLE_200
3022: )
3023:
3024: as
3025: ddp_sypv_tbl okl_syp_pvt.sypv_tbl_type;
3026: ddindx binary_integer; indx binary_integer;
3027: begin
3028:
3029: -- copy data to the local IN or IN-OUT args, if any
3031:
3032:
3033:
3034:
3035: okl_syp_pvt_w.rosetta_table_copy_in_p2(ddp_sypv_tbl, p5_a0
3036: , p5_a1
3037: , p5_a2
3038: , p5_a3
3039: , p5_a4
3097: , p5_a62
3098: );
3099:
3100: -- here's the delegated call to the old PL/SQL routine
3101: okl_syp_pvt.validate_row(p_api_version,
3102: p_init_msg_list,
3103: x_return_status,
3104: x_msg_count,
3105: x_msg_data,
3112:
3113:
3114: end;
3115:
3116: end okl_syp_pvt_w;