1: package body okl_qte_pvt_w as
2: /* $Header: OKLIQTEB.pls 120.2 2007/11/02 21:02:17 rmunjulu 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:
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_qte_pvt.qte_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_VARCHAR2_TABLE_100
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_NUMBER_TABLE
197: end loop;
198: end if;
199: end if;
200: end rosetta_table_copy_in_p2;
201: procedure rosetta_table_copy_out_p2(t okl_qte_pvt.qte_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
202: , a1 out nocopy JTF_VARCHAR2_TABLE_100
203: , a2 out nocopy JTF_VARCHAR2_TABLE_100
204: , a3 out nocopy JTF_NUMBER_TABLE
205: , a4 out nocopy JTF_NUMBER_TABLE
621: end if;
622: end if;
623: end rosetta_table_copy_out_p2;
624:
625: procedure rosetta_table_copy_in_p5(t out nocopy okl_qte_pvt.okl_trx_quotes_tl_tbl_type, a0 JTF_NUMBER_TABLE
626: , a1 JTF_VARCHAR2_TABLE_100
627: , a2 JTF_VARCHAR2_TABLE_100
628: , a3 JTF_VARCHAR2_TABLE_100
629: , a4 JTF_VARCHAR2_TABLE_2000
658: end loop;
659: end if;
660: end if;
661: end rosetta_table_copy_in_p5;
662: procedure rosetta_table_copy_out_p5(t okl_qte_pvt.okl_trx_quotes_tl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
663: , a1 out nocopy JTF_VARCHAR2_TABLE_100
664: , a2 out nocopy JTF_VARCHAR2_TABLE_100
665: , a3 out nocopy JTF_VARCHAR2_TABLE_100
666: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
727: end if;
728: end if;
729: end rosetta_table_copy_out_p5;
730:
731: procedure rosetta_table_copy_in_p8(t out nocopy okl_qte_pvt.qtev_tbl_type, a0 JTF_NUMBER_TABLE
732: , a1 JTF_NUMBER_TABLE
733: , a2 JTF_VARCHAR2_TABLE_100
734: , a3 JTF_VARCHAR2_TABLE_100
735: , a4 JTF_VARCHAR2_TABLE_100
910: end loop;
911: end if;
912: end if;
913: end rosetta_table_copy_in_p8;
914: procedure rosetta_table_copy_out_p8(t okl_qte_pvt.qtev_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
915: , a1 out nocopy JTF_NUMBER_TABLE
916: , a2 out nocopy JTF_VARCHAR2_TABLE_100
917: , a3 out nocopy JTF_VARCHAR2_TABLE_100
918: , a4 out nocopy JTF_VARCHAR2_TABLE_100
1518: , p5_a82 VARCHAR2 := fnd_api.g_miss_char
1519: )
1520:
1521: as
1522: ddp_qtev_rec okl_qte_pvt.qtev_rec_type;
1523: ddx_qtev_rec okl_qte_pvt.qtev_rec_type;
1524: ddindx binary_integer; indx binary_integer;
1525: begin
1526:
1519: )
1520:
1521: as
1522: ddp_qtev_rec okl_qte_pvt.qtev_rec_type;
1523: ddx_qtev_rec okl_qte_pvt.qtev_rec_type;
1524: ddindx binary_integer; indx binary_integer;
1525: begin
1526:
1527: -- copy data to the local IN or IN-OUT args, if any
1615: ddp_qtev_rec.repo_quote_indicator_yn := p5_a82;
1616:
1617:
1618: -- here's the delegated call to the old PL/SQL routine
1619: okl_qte_pvt.insert_row(p_api_version,
1620: p_init_msg_list,
1621: x_return_status,
1622: x_msg_count,
1623: x_msg_data,
1889: , p6_a82 out nocopy JTF_VARCHAR2_TABLE_100
1890: )
1891:
1892: as
1893: ddp_qtev_tbl okl_qte_pvt.qtev_tbl_type;
1894: ddx_qtev_tbl okl_qte_pvt.qtev_tbl_type;
1895: ddindx binary_integer; indx binary_integer;
1896: begin
1897:
1890: )
1891:
1892: as
1893: ddp_qtev_tbl okl_qte_pvt.qtev_tbl_type;
1894: ddx_qtev_tbl okl_qte_pvt.qtev_tbl_type;
1895: ddindx binary_integer; indx binary_integer;
1896: begin
1897:
1898: -- copy data to the local IN or IN-OUT args, if any
1900:
1901:
1902:
1903:
1904: okl_qte_pvt_w.rosetta_table_copy_in_p8(ddp_qtev_tbl, p5_a0
1905: , p5_a1
1906: , p5_a2
1907: , p5_a3
1908: , p5_a4
1987: );
1988:
1989:
1990: -- here's the delegated call to the old PL/SQL routine
1991: okl_qte_pvt.insert_row(p_api_version,
1992: p_init_msg_list,
1993: x_return_status,
1994: x_msg_count,
1995: x_msg_data,
2002:
2003:
2004:
2005:
2006: okl_qte_pvt_w.rosetta_table_copy_out_p8(ddx_qtev_tbl, p6_a0
2007: , p6_a1
2008: , p6_a2
2009: , p6_a3
2010: , p6_a4
2179: , p5_a82 VARCHAR2 := fnd_api.g_miss_char
2180: )
2181:
2182: as
2183: ddp_qtev_rec okl_qte_pvt.qtev_rec_type;
2184: ddindx binary_integer; indx binary_integer;
2185: begin
2186:
2187: -- copy data to the local IN or IN-OUT args, if any
2274: ddp_qtev_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a81);
2275: ddp_qtev_rec.repo_quote_indicator_yn := p5_a82;
2276:
2277: -- here's the delegated call to the old PL/SQL routine
2278: okl_qte_pvt.lock_row(p_api_version,
2279: p_init_msg_list,
2280: x_return_status,
2281: x_msg_count,
2282: x_msg_data,
2380: , p5_a82 JTF_VARCHAR2_TABLE_100
2381: )
2382:
2383: as
2384: ddp_qtev_tbl okl_qte_pvt.qtev_tbl_type;
2385: ddindx binary_integer; indx binary_integer;
2386: begin
2387:
2388: -- copy data to the local IN or IN-OUT args, if any
2390:
2391:
2392:
2393:
2394: okl_qte_pvt_w.rosetta_table_copy_in_p8(ddp_qtev_tbl, p5_a0
2395: , p5_a1
2396: , p5_a2
2397: , p5_a3
2398: , p5_a4
2476: , p5_a82
2477: );
2478:
2479: -- here's the delegated call to the old PL/SQL routine
2480: okl_qte_pvt.lock_row(p_api_version,
2481: p_init_msg_list,
2482: x_return_status,
2483: x_msg_count,
2484: x_msg_data,
2665: , p5_a82 VARCHAR2 := fnd_api.g_miss_char
2666: )
2667:
2668: as
2669: ddp_qtev_rec okl_qte_pvt.qtev_rec_type;
2670: ddx_qtev_rec okl_qte_pvt.qtev_rec_type;
2671: ddindx binary_integer; indx binary_integer;
2672: begin
2673:
2666: )
2667:
2668: as
2669: ddp_qtev_rec okl_qte_pvt.qtev_rec_type;
2670: ddx_qtev_rec okl_qte_pvt.qtev_rec_type;
2671: ddindx binary_integer; indx binary_integer;
2672: begin
2673:
2674: -- copy data to the local IN or IN-OUT args, if any
2762: ddp_qtev_rec.repo_quote_indicator_yn := p5_a82;
2763:
2764:
2765: -- here's the delegated call to the old PL/SQL routine
2766: okl_qte_pvt.update_row(p_api_version,
2767: p_init_msg_list,
2768: x_return_status,
2769: x_msg_count,
2770: x_msg_data,
3036: , p6_a82 out nocopy JTF_VARCHAR2_TABLE_100
3037: )
3038:
3039: as
3040: ddp_qtev_tbl okl_qte_pvt.qtev_tbl_type;
3041: ddx_qtev_tbl okl_qte_pvt.qtev_tbl_type;
3042: ddindx binary_integer; indx binary_integer;
3043: begin
3044:
3037: )
3038:
3039: as
3040: ddp_qtev_tbl okl_qte_pvt.qtev_tbl_type;
3041: ddx_qtev_tbl okl_qte_pvt.qtev_tbl_type;
3042: ddindx binary_integer; indx binary_integer;
3043: begin
3044:
3045: -- copy data to the local IN or IN-OUT args, if any
3047:
3048:
3049:
3050:
3051: okl_qte_pvt_w.rosetta_table_copy_in_p8(ddp_qtev_tbl, p5_a0
3052: , p5_a1
3053: , p5_a2
3054: , p5_a3
3055: , p5_a4
3134: );
3135:
3136:
3137: -- here's the delegated call to the old PL/SQL routine
3138: okl_qte_pvt.update_row(p_api_version,
3139: p_init_msg_list,
3140: x_return_status,
3141: x_msg_count,
3142: x_msg_data,
3149:
3150:
3151:
3152:
3153: okl_qte_pvt_w.rosetta_table_copy_out_p8(ddx_qtev_tbl, p6_a0
3154: , p6_a1
3155: , p6_a2
3156: , p6_a3
3157: , p6_a4
3326: , p5_a82 VARCHAR2 := fnd_api.g_miss_char
3327: )
3328:
3329: as
3330: ddp_qtev_rec okl_qte_pvt.qtev_rec_type;
3331: ddindx binary_integer; indx binary_integer;
3332: begin
3333:
3334: -- copy data to the local IN or IN-OUT args, if any
3421: ddp_qtev_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a81);
3422: ddp_qtev_rec.repo_quote_indicator_yn := p5_a82;
3423:
3424: -- here's the delegated call to the old PL/SQL routine
3425: okl_qte_pvt.delete_row(p_api_version,
3426: p_init_msg_list,
3427: x_return_status,
3428: x_msg_count,
3429: x_msg_data,
3527: , p5_a82 JTF_VARCHAR2_TABLE_100
3528: )
3529:
3530: as
3531: ddp_qtev_tbl okl_qte_pvt.qtev_tbl_type;
3532: ddindx binary_integer; indx binary_integer;
3533: begin
3534:
3535: -- copy data to the local IN or IN-OUT args, if any
3537:
3538:
3539:
3540:
3541: okl_qte_pvt_w.rosetta_table_copy_in_p8(ddp_qtev_tbl, p5_a0
3542: , p5_a1
3543: , p5_a2
3544: , p5_a3
3545: , p5_a4
3623: , p5_a82
3624: );
3625:
3626: -- here's the delegated call to the old PL/SQL routine
3627: okl_qte_pvt.delete_row(p_api_version,
3628: p_init_msg_list,
3629: x_return_status,
3630: x_msg_count,
3631: x_msg_data,
3729: , p5_a82 VARCHAR2 := fnd_api.g_miss_char
3730: )
3731:
3732: as
3733: ddp_qtev_rec okl_qte_pvt.qtev_rec_type;
3734: ddindx binary_integer; indx binary_integer;
3735: begin
3736:
3737: -- copy data to the local IN or IN-OUT args, if any
3824: ddp_qtev_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a81);
3825: ddp_qtev_rec.repo_quote_indicator_yn := p5_a82;
3826:
3827: -- here's the delegated call to the old PL/SQL routine
3828: okl_qte_pvt.validate_row(p_api_version,
3829: p_init_msg_list,
3830: x_return_status,
3831: x_msg_count,
3832: x_msg_data,
3930: , p5_a82 JTF_VARCHAR2_TABLE_100
3931: )
3932:
3933: as
3934: ddp_qtev_tbl okl_qte_pvt.qtev_tbl_type;
3935: ddindx binary_integer; indx binary_integer;
3936: begin
3937:
3938: -- copy data to the local IN or IN-OUT args, if any
3940:
3941:
3942:
3943:
3944: okl_qte_pvt_w.rosetta_table_copy_in_p8(ddp_qtev_tbl, p5_a0
3945: , p5_a1
3946: , p5_a2
3947: , p5_a3
3948: , p5_a4
4026: , p5_a82
4027: );
4028:
4029: -- here's the delegated call to the old PL/SQL routine
4030: okl_qte_pvt.validate_row(p_api_version,
4031: p_init_msg_list,
4032: x_return_status,
4033: x_msg_count,
4034: x_msg_data,
4041:
4042:
4043: end;
4044:
4045: end okl_qte_pvt_w;