1: package body okl_lease_rate_sets_pvt_w as
2: /* $Header: OKLELRSB.pls 120.1 2005/09/30 11:00:09 asawanka noship $ */
3: procedure rosetta_table_copy_in_p22(t out nocopy okl_lease_rate_sets_pvt.okl_number_table, a0 JTF_NUMBER_TABLE) as
4: ddindx binary_integer; indx binary_integer;
5: begin
1: package body okl_lease_rate_sets_pvt_w as
2: /* $Header: OKLELRSB.pls 120.1 2005/09/30 11:00:09 asawanka noship $ */
3: procedure rosetta_table_copy_in_p22(t out nocopy okl_lease_rate_sets_pvt.okl_number_table, a0 JTF_NUMBER_TABLE) as
4: ddindx binary_integer; indx binary_integer;
5: begin
6: if a0 is not null and a0.count > 0 then
7: if a0.count > 0 then
17: end loop;
18: end if;
19: end if;
20: end rosetta_table_copy_in_p22;
21: procedure rosetta_table_copy_out_p22(t okl_lease_rate_sets_pvt.okl_number_table, a0 out nocopy JTF_NUMBER_TABLE) as
22: ddindx binary_integer; indx binary_integer;
23: begin
24: if t is null or t.count = 0 then
25: a0 := JTF_NUMBER_TABLE();
202: , p8_a37 out nocopy NUMBER
203: )
204:
205: as
206: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
207: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
208: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
209: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
210: ddindx binary_integer; indx binary_integer;
203: )
204:
205: as
206: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
207: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
208: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
209: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
210: ddindx binary_integer; indx binary_integer;
211: begin
204:
205: as
206: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
207: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
208: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
209: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
210: ddindx binary_integer; indx binary_integer;
211: begin
212:
205: as
206: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
207: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
208: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
209: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
210: ddindx binary_integer; indx binary_integer;
211: begin
212:
213: -- copy data to the local IN or IN-OUT args, if any
297: ddp_lrvv_rec.standard_rate := p7_a37;
298:
299:
300: -- here's the delegated call to the old PL/SQL routine
301: okl_lease_rate_sets_pvt.create_lease_rate_set(p_api_version,
302: p_init_msg_list,
303: x_return_status,
304: x_msg_count,
305: x_msg_data,
557: , p8_a37 out nocopy NUMBER
558: )
559:
560: as
561: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
562: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
563: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
564: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
565: ddindx binary_integer; indx binary_integer;
558: )
559:
560: as
561: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
562: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
563: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
564: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
565: ddindx binary_integer; indx binary_integer;
566: begin
559:
560: as
561: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
562: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
563: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
564: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
565: ddindx binary_integer; indx binary_integer;
566: begin
567:
560: as
561: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
562: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
563: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
564: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
565: ddindx binary_integer; indx binary_integer;
566: begin
567:
568: -- copy data to the local IN or IN-OUT args, if any
652: ddp_lrvv_rec.standard_rate := p7_a37;
653:
654:
655: -- here's the delegated call to the old PL/SQL routine
656: okl_lease_rate_sets_pvt.update_lease_rate_set(p_api_version,
657: p_init_msg_list,
658: x_return_status,
659: x_msg_count,
660: x_msg_data,
912: , p8_a37 out nocopy NUMBER
913: )
914:
915: as
916: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
917: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
918: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
919: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
920: ddindx binary_integer; indx binary_integer;
913: )
914:
915: as
916: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
917: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
918: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
919: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
920: ddindx binary_integer; indx binary_integer;
921: begin
914:
915: as
916: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
917: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
918: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
919: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
920: ddindx binary_integer; indx binary_integer;
921: begin
922:
915: as
916: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
917: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
918: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
919: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
920: ddindx binary_integer; indx binary_integer;
921: begin
922:
923: -- copy data to the local IN or IN-OUT args, if any
1007: ddp_lrvv_rec.standard_rate := p7_a37;
1008:
1009:
1010: -- here's the delegated call to the old PL/SQL routine
1011: okl_lease_rate_sets_pvt.version_lease_rate_set(p_api_version,
1012: p_init_msg_list,
1013: x_return_status,
1014: x_msg_count,
1015: x_msg_data,
1267: , p8_a37 out nocopy NUMBER
1268: )
1269:
1270: as
1271: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1272: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1273: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1274: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1275: ddindx binary_integer; indx binary_integer;
1268: )
1269:
1270: as
1271: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1272: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1273: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1274: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1275: ddindx binary_integer; indx binary_integer;
1276: begin
1269:
1270: as
1271: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1272: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1273: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1274: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1275: ddindx binary_integer; indx binary_integer;
1276: begin
1277:
1270: as
1271: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1272: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1273: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1274: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1275: ddindx binary_integer; indx binary_integer;
1276: begin
1277:
1278: -- copy data to the local IN or IN-OUT args, if any
1362: ddp_lrvv_rec.standard_rate := p7_a37;
1363:
1364:
1365: -- here's the delegated call to the old PL/SQL routine
1366: okl_lease_rate_sets_pvt.create_lrs_gen_lrf(p_api_version,
1367: p_init_msg_list,
1368: x_return_status,
1369: x_msg_count,
1370: x_msg_data,
1622: , p8_a37 out nocopy NUMBER
1623: )
1624:
1625: as
1626: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1627: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1628: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1629: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1630: ddindx binary_integer; indx binary_integer;
1623: )
1624:
1625: as
1626: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1627: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1628: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1629: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1630: ddindx binary_integer; indx binary_integer;
1631: begin
1624:
1625: as
1626: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1627: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1628: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1629: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1630: ddindx binary_integer; indx binary_integer;
1631: begin
1632:
1625: as
1626: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1627: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1628: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1629: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1630: ddindx binary_integer; indx binary_integer;
1631: begin
1632:
1633: -- copy data to the local IN or IN-OUT args, if any
1717: ddp_lrvv_rec.standard_rate := p7_a37;
1718:
1719:
1720: -- here's the delegated call to the old PL/SQL routine
1721: okl_lease_rate_sets_pvt.update_lrs_gen_lrf(p_api_version,
1722: p_init_msg_list,
1723: x_return_status,
1724: x_msg_count,
1725: x_msg_data,
1977: , p8_a37 out nocopy NUMBER
1978: )
1979:
1980: as
1981: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1982: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1983: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1984: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1985: ddindx binary_integer; indx binary_integer;
1978: )
1979:
1980: as
1981: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1982: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1983: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1984: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1985: ddindx binary_integer; indx binary_integer;
1986: begin
1979:
1980: as
1981: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1982: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1983: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1984: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1985: ddindx binary_integer; indx binary_integer;
1986: begin
1987:
1980: as
1981: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1982: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
1983: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1984: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
1985: ddindx binary_integer; indx binary_integer;
1986: begin
1987:
1988: -- copy data to the local IN or IN-OUT args, if any
2072: ddp_lrvv_rec.standard_rate := p7_a37;
2073:
2074:
2075: -- here's the delegated call to the old PL/SQL routine
2076: okl_lease_rate_sets_pvt.version_lrs_gen_lrf(p_api_version,
2077: p_init_msg_list,
2078: x_return_status,
2079: x_msg_count,
2080: x_msg_data,
2332: , p8_a37 out nocopy NUMBER
2333: )
2334:
2335: as
2336: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2337: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2338: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2339: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2340: ddindx binary_integer; indx binary_integer;
2333: )
2334:
2335: as
2336: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2337: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2338: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2339: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2340: ddindx binary_integer; indx binary_integer;
2341: begin
2334:
2335: as
2336: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2337: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2338: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2339: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2340: ddindx binary_integer; indx binary_integer;
2341: begin
2342:
2335: as
2336: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2337: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2338: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2339: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2340: ddindx binary_integer; indx binary_integer;
2341: begin
2342:
2343: -- copy data to the local IN or IN-OUT args, if any
2427: ddp_lrvv_rec.standard_rate := p7_a37;
2428:
2429:
2430: -- here's the delegated call to the old PL/SQL routine
2431: okl_lease_rate_sets_pvt.create_lrs_gen_lrf_submit(p_api_version,
2432: p_init_msg_list,
2433: x_return_status,
2434: x_msg_count,
2435: x_msg_data,
2687: , p8_a37 out nocopy NUMBER
2688: )
2689:
2690: as
2691: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2692: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2693: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2694: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2695: ddindx binary_integer; indx binary_integer;
2688: )
2689:
2690: as
2691: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2692: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2693: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2694: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2695: ddindx binary_integer; indx binary_integer;
2696: begin
2689:
2690: as
2691: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2692: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2693: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2694: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2695: ddindx binary_integer; indx binary_integer;
2696: begin
2697:
2690: as
2691: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2692: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
2693: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2694: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
2695: ddindx binary_integer; indx binary_integer;
2696: begin
2697:
2698: -- copy data to the local IN or IN-OUT args, if any
2782: ddp_lrvv_rec.standard_rate := p7_a37;
2783:
2784:
2785: -- here's the delegated call to the old PL/SQL routine
2786: okl_lease_rate_sets_pvt.update_lrs_gen_lrf_submit(p_api_version,
2787: p_init_msg_list,
2788: x_return_status,
2789: x_msg_count,
2790: x_msg_data,
3042: , p8_a37 out nocopy NUMBER
3043: )
3044:
3045: as
3046: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
3047: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
3048: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
3049: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
3050: ddindx binary_integer; indx binary_integer;
3043: )
3044:
3045: as
3046: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
3047: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
3048: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
3049: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
3050: ddindx binary_integer; indx binary_integer;
3051: begin
3044:
3045: as
3046: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
3047: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
3048: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
3049: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
3050: ddindx binary_integer; indx binary_integer;
3051: begin
3052:
3045: as
3046: ddp_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
3047: ddx_lrtv_rec okl_lease_rate_sets_pvt.lrtv_rec_type;
3048: ddp_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
3049: ddx_lrvv_rec okl_lease_rate_sets_pvt.okl_lrvv_rec;
3050: ddindx binary_integer; indx binary_integer;
3051: begin
3052:
3053: -- copy data to the local IN or IN-OUT args, if any
3137: ddp_lrvv_rec.standard_rate := p7_a37;
3138:
3139:
3140: -- here's the delegated call to the old PL/SQL routine
3141: okl_lease_rate_sets_pvt.version_lrs_gen_lrf_submit(p_api_version,
3142: p_init_msg_list,
3143: x_return_status,
3144: x_msg_count,
3145: x_msg_data,
3245: , p_end_date DATE
3246: )
3247:
3248: as
3249: ddp_lrv_id_tbl okl_lease_rate_sets_pvt.okl_number_table;
3250: ddindx binary_integer; indx binary_integer;
3251: begin
3252:
3253: -- copy data to the local IN or IN-OUT args, if any
3255:
3256:
3257:
3258:
3259: okl_lease_rate_sets_pvt_w.rosetta_table_copy_in_p22(ddp_lrv_id_tbl, p_lrv_id_tbl);
3260:
3261:
3262: -- here's the delegated call to the old PL/SQL routine
3263: okl_lease_rate_sets_pvt.enddate_lease_rate_set(p_api_version,
3259: okl_lease_rate_sets_pvt_w.rosetta_table_copy_in_p22(ddp_lrv_id_tbl, p_lrv_id_tbl);
3260:
3261:
3262: -- here's the delegated call to the old PL/SQL routine
3263: okl_lease_rate_sets_pvt.enddate_lease_rate_set(p_api_version,
3264: p_init_msg_list,
3265: x_return_status,
3266: x_msg_count,
3267: x_msg_data,
3276:
3277:
3278: end;
3279:
3280: end okl_lease_rate_sets_pvt_w;