1: package body okl_sil_pvt_w as
2: /* $Header: OKLISILB.pls 120.2 2005/10/11 06:38:16 rgooty 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_sil_pvt.sil_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_DATE_TABLE
159: end loop;
160: end if;
161: end if;
162: end rosetta_table_copy_in_p2;
163: procedure rosetta_table_copy_out_p2(t okl_sil_pvt.sil_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
164: , a1 out nocopy JTF_NUMBER_TABLE
165: , a2 out nocopy JTF_NUMBER_TABLE
166: , a3 out nocopy JTF_VARCHAR2_TABLE_100
167: , a4 out nocopy JTF_DATE_TABLE
488: end if;
489: end if;
490: end rosetta_table_copy_out_p2;
491:
492: procedure rosetta_table_copy_in_p5(t out nocopy okl_sil_pvt.silv_tbl_type, a0 JTF_NUMBER_TABLE
493: , a1 JTF_NUMBER_TABLE
494: , a2 JTF_NUMBER_TABLE
495: , a3 JTF_VARCHAR2_TABLE_100
496: , a4 JTF_DATE_TABLE
629: end loop;
630: end if;
631: end if;
632: end rosetta_table_copy_in_p5;
633: procedure rosetta_table_copy_out_p5(t okl_sil_pvt.silv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
634: , a1 out nocopy JTF_NUMBER_TABLE
635: , a2 out nocopy JTF_NUMBER_TABLE
636: , a3 out nocopy JTF_VARCHAR2_TABLE_100
637: , a4 out nocopy JTF_DATE_TABLE
1090: , p5_a61 VARCHAR2 := fnd_api.g_miss_char
1091: )
1092:
1093: as
1094: ddp_silv_rec okl_sil_pvt.silv_rec_type;
1095: ddx_silv_rec okl_sil_pvt.silv_rec_type;
1096: ddindx binary_integer; indx binary_integer;
1097: begin
1098:
1091: )
1092:
1093: as
1094: ddp_silv_rec okl_sil_pvt.silv_rec_type;
1095: ddx_silv_rec okl_sil_pvt.silv_rec_type;
1096: ddindx binary_integer; indx binary_integer;
1097: begin
1098:
1099: -- copy data to the local IN or IN-OUT args, if any
1166: ddp_silv_rec.capitalize_down_payment_yn := p5_a61;
1167:
1168:
1169: -- here's the delegated call to the old PL/SQL routine
1170: okl_sil_pvt.insert_row(p_api_version,
1171: p_init_msg_list,
1172: x_return_status,
1173: x_msg_count,
1174: x_msg_data,
1377: , p6_a61 out nocopy JTF_VARCHAR2_TABLE_100
1378: )
1379:
1380: as
1381: ddp_silv_tbl okl_sil_pvt.silv_tbl_type;
1382: ddx_silv_tbl okl_sil_pvt.silv_tbl_type;
1383: ddindx binary_integer; indx binary_integer;
1384: begin
1385:
1378: )
1379:
1380: as
1381: ddp_silv_tbl okl_sil_pvt.silv_tbl_type;
1382: ddx_silv_tbl okl_sil_pvt.silv_tbl_type;
1383: ddindx binary_integer; indx binary_integer;
1384: begin
1385:
1386: -- copy data to the local IN or IN-OUT args, if any
1388:
1389:
1390:
1391:
1392: okl_sil_pvt_w.rosetta_table_copy_in_p5(ddp_silv_tbl, p5_a0
1393: , p5_a1
1394: , p5_a2
1395: , p5_a3
1396: , p5_a4
1454: );
1455:
1456:
1457: -- here's the delegated call to the old PL/SQL routine
1458: okl_sil_pvt.insert_row(p_api_version,
1459: p_init_msg_list,
1460: x_return_status,
1461: x_msg_count,
1462: x_msg_data,
1469:
1470:
1471:
1472:
1473: okl_sil_pvt_w.rosetta_table_copy_out_p5(ddx_silv_tbl, p6_a0
1474: , p6_a1
1475: , p6_a2
1476: , p6_a3
1477: , p6_a4
1604: , p5_a61 VARCHAR2 := fnd_api.g_miss_char
1605: )
1606:
1607: as
1608: ddp_silv_rec okl_sil_pvt.silv_rec_type;
1609: ddindx binary_integer; indx binary_integer;
1610: begin
1611:
1612: -- copy data to the local IN or IN-OUT args, if any
1678: ddp_silv_rec.down_payment_amount := rosetta_g_miss_num_map(p5_a60);
1679: ddp_silv_rec.capitalize_down_payment_yn := p5_a61;
1680:
1681: -- here's the delegated call to the old PL/SQL routine
1682: okl_sil_pvt.lock_row(p_api_version,
1683: p_init_msg_list,
1684: x_return_status,
1685: x_msg_count,
1686: x_msg_data,
1763: , p5_a61 JTF_VARCHAR2_TABLE_100
1764: )
1765:
1766: as
1767: ddp_silv_tbl okl_sil_pvt.silv_tbl_type;
1768: ddindx binary_integer; indx binary_integer;
1769: begin
1770:
1771: -- copy data to the local IN or IN-OUT args, if any
1773:
1774:
1775:
1776:
1777: okl_sil_pvt_w.rosetta_table_copy_in_p5(ddp_silv_tbl, p5_a0
1778: , p5_a1
1779: , p5_a2
1780: , p5_a3
1781: , p5_a4
1838: , p5_a61
1839: );
1840:
1841: -- here's the delegated call to the old PL/SQL routine
1842: okl_sil_pvt.lock_row(p_api_version,
1843: p_init_msg_list,
1844: x_return_status,
1845: x_msg_count,
1846: x_msg_data,
1985: , p5_a61 VARCHAR2 := fnd_api.g_miss_char
1986: )
1987:
1988: as
1989: ddp_silv_rec okl_sil_pvt.silv_rec_type;
1990: ddx_silv_rec okl_sil_pvt.silv_rec_type;
1991: ddindx binary_integer; indx binary_integer;
1992: begin
1993:
1986: )
1987:
1988: as
1989: ddp_silv_rec okl_sil_pvt.silv_rec_type;
1990: ddx_silv_rec okl_sil_pvt.silv_rec_type;
1991: ddindx binary_integer; indx binary_integer;
1992: begin
1993:
1994: -- copy data to the local IN or IN-OUT args, if any
2061: ddp_silv_rec.capitalize_down_payment_yn := p5_a61;
2062:
2063:
2064: -- here's the delegated call to the old PL/SQL routine
2065: okl_sil_pvt.update_row(p_api_version,
2066: p_init_msg_list,
2067: x_return_status,
2068: x_msg_count,
2069: x_msg_data,
2272: , p6_a61 out nocopy JTF_VARCHAR2_TABLE_100
2273: )
2274:
2275: as
2276: ddp_silv_tbl okl_sil_pvt.silv_tbl_type;
2277: ddx_silv_tbl okl_sil_pvt.silv_tbl_type;
2278: ddindx binary_integer; indx binary_integer;
2279: begin
2280:
2273: )
2274:
2275: as
2276: ddp_silv_tbl okl_sil_pvt.silv_tbl_type;
2277: ddx_silv_tbl okl_sil_pvt.silv_tbl_type;
2278: ddindx binary_integer; indx binary_integer;
2279: begin
2280:
2281: -- copy data to the local IN or IN-OUT args, if any
2283:
2284:
2285:
2286:
2287: okl_sil_pvt_w.rosetta_table_copy_in_p5(ddp_silv_tbl, p5_a0
2288: , p5_a1
2289: , p5_a2
2290: , p5_a3
2291: , p5_a4
2349: );
2350:
2351:
2352: -- here's the delegated call to the old PL/SQL routine
2353: okl_sil_pvt.update_row(p_api_version,
2354: p_init_msg_list,
2355: x_return_status,
2356: x_msg_count,
2357: x_msg_data,
2364:
2365:
2366:
2367:
2368: okl_sil_pvt_w.rosetta_table_copy_out_p5(ddx_silv_tbl, p6_a0
2369: , p6_a1
2370: , p6_a2
2371: , p6_a3
2372: , p6_a4
2499: , p5_a61 VARCHAR2 := fnd_api.g_miss_char
2500: )
2501:
2502: as
2503: ddp_silv_rec okl_sil_pvt.silv_rec_type;
2504: ddindx binary_integer; indx binary_integer;
2505: begin
2506:
2507: -- copy data to the local IN or IN-OUT args, if any
2573: ddp_silv_rec.down_payment_amount := rosetta_g_miss_num_map(p5_a60);
2574: ddp_silv_rec.capitalize_down_payment_yn := p5_a61;
2575:
2576: -- here's the delegated call to the old PL/SQL routine
2577: okl_sil_pvt.delete_row(p_api_version,
2578: p_init_msg_list,
2579: x_return_status,
2580: x_msg_count,
2581: x_msg_data,
2658: , p5_a61 JTF_VARCHAR2_TABLE_100
2659: )
2660:
2661: as
2662: ddp_silv_tbl okl_sil_pvt.silv_tbl_type;
2663: ddindx binary_integer; indx binary_integer;
2664: begin
2665:
2666: -- copy data to the local IN or IN-OUT args, if any
2668:
2669:
2670:
2671:
2672: okl_sil_pvt_w.rosetta_table_copy_in_p5(ddp_silv_tbl, p5_a0
2673: , p5_a1
2674: , p5_a2
2675: , p5_a3
2676: , p5_a4
2733: , p5_a61
2734: );
2735:
2736: -- here's the delegated call to the old PL/SQL routine
2737: okl_sil_pvt.delete_row(p_api_version,
2738: p_init_msg_list,
2739: x_return_status,
2740: x_msg_count,
2741: x_msg_data,
2818: , p5_a61 VARCHAR2 := fnd_api.g_miss_char
2819: )
2820:
2821: as
2822: ddp_silv_rec okl_sil_pvt.silv_rec_type;
2823: ddindx binary_integer; indx binary_integer;
2824: begin
2825:
2826: -- copy data to the local IN or IN-OUT args, if any
2892: ddp_silv_rec.down_payment_amount := rosetta_g_miss_num_map(p5_a60);
2893: ddp_silv_rec.capitalize_down_payment_yn := p5_a61;
2894:
2895: -- here's the delegated call to the old PL/SQL routine
2896: okl_sil_pvt.validate_row(p_api_version,
2897: p_init_msg_list,
2898: x_return_status,
2899: x_msg_count,
2900: x_msg_data,
2977: , p5_a61 JTF_VARCHAR2_TABLE_100
2978: )
2979:
2980: as
2981: ddp_silv_tbl okl_sil_pvt.silv_tbl_type;
2982: ddindx binary_integer; indx binary_integer;
2983: begin
2984:
2985: -- copy data to the local IN or IN-OUT args, if any
2987:
2988:
2989:
2990:
2991: okl_sil_pvt_w.rosetta_table_copy_in_p5(ddp_silv_tbl, p5_a0
2992: , p5_a1
2993: , p5_a2
2994: , p5_a3
2995: , p5_a4
3052: , p5_a61
3053: );
3054:
3055: -- here's the delegated call to the old PL/SQL routine
3056: okl_sil_pvt.validate_row(p_api_version,
3057: p_init_msg_list,
3058: x_return_status,
3059: x_msg_count,
3060: x_msg_data,
3067:
3068:
3069: end;
3070:
3071: end okl_sil_pvt_w;