1: package body okl_lease_app_pvt_w as
2: /* $Header: OKLELAPB.pls 120.13 2007/03/20 22:36:42 rravikir noship $ */
3: procedure rosetta_table_copy_in_p3(t out nocopy okl_lease_app_pvt.name_val_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4: , a1 JTF_VARCHAR2_TABLE_100
5: ) as
1: package body okl_lease_app_pvt_w as
2: /* $Header: OKLELAPB.pls 120.13 2007/03/20 22:36:42 rravikir noship $ */
3: procedure rosetta_table_copy_in_p3(t out nocopy okl_lease_app_pvt.name_val_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4: , a1 JTF_VARCHAR2_TABLE_100
5: ) as
6: ddindx binary_integer; indx binary_integer;
7: begin
20: end loop;
21: end if;
22: end if;
23: end rosetta_table_copy_in_p3;
24: procedure rosetta_table_copy_out_p3(t okl_lease_app_pvt.name_val_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
25: , a1 out nocopy JTF_VARCHAR2_TABLE_100
26: ) as
27: ddindx binary_integer; indx binary_integer;
28: begin
295: , p8_a71 out nocopy VARCHAR2
296: )
297:
298: as
299: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
300: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
301: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
302: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
303: ddindx binary_integer; indx binary_integer;
296: )
297:
298: as
299: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
300: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
301: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
302: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
303: ddindx binary_integer; indx binary_integer;
304: begin
297:
298: as
299: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
300: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
301: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
302: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
303: ddindx binary_integer; indx binary_integer;
304: begin
305:
298: as
299: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
300: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
301: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
302: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
303: ddindx binary_integer; indx binary_integer;
304: begin
305:
306: -- copy data to the local IN or IN-OUT args, if any
432: ddp_lsqv_rec.comments := p7_a71;
433:
434:
435: -- here's the delegated call to the old PL/SQL routine
436: okl_lease_app_pvt.lease_app_cre(p_api_version,
437: p_init_msg_list,
438: x_return_status,
439: x_msg_count,
440: x_msg_data,
818: , p8_a71 out nocopy VARCHAR2
819: )
820:
821: as
822: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
823: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
824: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
825: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
826: ddindx binary_integer; indx binary_integer;
819: )
820:
821: as
822: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
823: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
824: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
825: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
826: ddindx binary_integer; indx binary_integer;
827: begin
820:
821: as
822: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
823: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
824: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
825: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
826: ddindx binary_integer; indx binary_integer;
827: begin
828:
821: as
822: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
823: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
824: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
825: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
826: ddindx binary_integer; indx binary_integer;
827: begin
828:
829: -- copy data to the local IN or IN-OUT args, if any
955: ddp_lsqv_rec.comments := p7_a71;
956:
957:
958: -- here's the delegated call to the old PL/SQL routine
959: okl_lease_app_pvt.lease_app_upd(p_api_version,
960: p_init_msg_list,
961: x_return_status,
962: x_msg_count,
963: x_msg_data,
1222: , p6_a71 VARCHAR2
1223: )
1224:
1225: as
1226: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1227: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
1228: ddindx binary_integer; indx binary_integer;
1229: begin
1230:
1223: )
1224:
1225: as
1226: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1227: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
1228: ddindx binary_integer; indx binary_integer;
1229: begin
1230:
1231: -- copy data to the local IN or IN-OUT args, if any
1355: ddp_lsqv_rec.description := p6_a70;
1356: ddp_lsqv_rec.comments := p6_a71;
1357:
1358: -- here's the delegated call to the old PL/SQL routine
1359: okl_lease_app_pvt.lease_app_val(p_api_version,
1360: p_init_msg_list,
1361: x_return_status,
1362: x_msg_count,
1363: x_msg_data,
1474: , p6_a46 out nocopy VARCHAR2
1475: )
1476:
1477: as
1478: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1479: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1480: ddindx binary_integer; indx binary_integer;
1481: begin
1482:
1475: )
1476:
1477: as
1478: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1479: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1480: ddindx binary_integer; indx binary_integer;
1481: begin
1482:
1483: -- copy data to the local IN or IN-OUT args, if any
1535: ddp_lapv_rec.orig_status := p5_a46;
1536:
1537:
1538: -- here's the delegated call to the old PL/SQL routine
1539: okl_lease_app_pvt.lease_app_accept(p_api_version,
1540: p_init_msg_list,
1541: x_return_status,
1542: x_msg_count,
1543: x_msg_data,
1701: , p6_a46 out nocopy VARCHAR2
1702: )
1703:
1704: as
1705: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1706: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1707: ddindx binary_integer; indx binary_integer;
1708: begin
1709:
1702: )
1703:
1704: as
1705: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1706: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1707: ddindx binary_integer; indx binary_integer;
1708: begin
1709:
1710: -- copy data to the local IN or IN-OUT args, if any
1762: ddp_lapv_rec.orig_status := p5_a46;
1763:
1764:
1765: -- here's the delegated call to the old PL/SQL routine
1766: okl_lease_app_pvt.lease_app_withdraw(p_api_version,
1767: p_init_msg_list,
1768: x_return_status,
1769: x_msg_count,
1770: x_msg_data,
2074: , p_origin VARCHAR2
2075: )
2076:
2077: as
2078: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2079: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2080: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2081: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2082: ddindx binary_integer; indx binary_integer;
2075: )
2076:
2077: as
2078: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2079: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2080: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2081: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2082: ddindx binary_integer; indx binary_integer;
2083: begin
2076:
2077: as
2078: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2079: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2080: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2081: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2082: ddindx binary_integer; indx binary_integer;
2083: begin
2084:
2077: as
2078: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2079: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2080: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2081: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2082: ddindx binary_integer; indx binary_integer;
2083: begin
2084:
2085: -- copy data to the local IN or IN-OUT args, if any
2213:
2214:
2215:
2216: -- here's the delegated call to the old PL/SQL routine
2217: okl_lease_app_pvt.lease_app_dup(p_api_version,
2218: p_init_msg_list,
2219: x_return_status,
2220: x_msg_count,
2221: x_msg_data,
2459: , p6_a46 out nocopy VARCHAR2
2460: )
2461:
2462: as
2463: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2464: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2465: ddindx binary_integer; indx binary_integer;
2466: begin
2467:
2460: )
2461:
2462: as
2463: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2464: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2465: ddindx binary_integer; indx binary_integer;
2466: begin
2467:
2468: -- copy data to the local IN or IN-OUT args, if any
2520: ddp_lapv_rec.orig_status := p5_a46;
2521:
2522:
2523: -- here's the delegated call to the old PL/SQL routine
2524: okl_lease_app_pvt.submit_for_pricing(p_api_version,
2525: p_init_msg_list,
2526: x_return_status,
2527: x_msg_count,
2528: x_msg_data,
2686: , p6_a46 out nocopy VARCHAR2
2687: )
2688:
2689: as
2690: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2691: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2692: ddindx binary_integer; indx binary_integer;
2693: begin
2694:
2687: )
2688:
2689: as
2690: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2691: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2692: ddindx binary_integer; indx binary_integer;
2693: begin
2694:
2695: -- copy data to the local IN or IN-OUT args, if any
2747: ddp_lapv_rec.orig_status := p5_a46;
2748:
2749:
2750: -- here's the delegated call to the old PL/SQL routine
2751: okl_lease_app_pvt.submit_for_credit(p_api_version,
2752: p_init_msg_list,
2753: x_return_status,
2754: x_msg_count,
2755: x_msg_data,
2940: , p8_a71 out nocopy VARCHAR2
2941: )
2942:
2943: as
2944: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2945: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2946: ddindx binary_integer; indx binary_integer;
2947: begin
2948:
2941: )
2942:
2943: as
2944: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2945: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2946: ddindx binary_integer; indx binary_integer;
2947: begin
2948:
2949: -- copy data to the local IN or IN-OUT args, if any
2956:
2957:
2958:
2959: -- here's the delegated call to the old PL/SQL routine
2960: okl_lease_app_pvt.accept_counter_offer(p_api_version,
2961: p_init_msg_list,
2962: x_return_status,
2963: x_msg_count,
2964: x_msg_data,
3152: , p6_a46 out nocopy VARCHAR2
3153: )
3154:
3155: as
3156: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
3157: ddindx binary_integer; indx binary_integer;
3158: begin
3159:
3160: -- copy data to the local IN or IN-OUT args, if any
3165:
3166:
3167:
3168: -- here's the delegated call to the old PL/SQL routine
3169: okl_lease_app_pvt.lease_app_cancel(p_api_version,
3170: p_init_msg_list,
3171: x_return_status,
3172: x_msg_count,
3173: x_msg_data,
3476: , p9_a71 out nocopy VARCHAR2
3477: )
3478:
3479: as
3480: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
3481: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
3482: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
3483: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
3484: ddindx binary_integer; indx binary_integer;
3477: )
3478:
3479: as
3480: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
3481: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
3482: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
3483: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
3484: ddindx binary_integer; indx binary_integer;
3485: begin
3478:
3479: as
3480: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
3481: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
3482: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
3483: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
3484: ddindx binary_integer; indx binary_integer;
3485: begin
3486:
3479: as
3480: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
3481: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
3482: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
3483: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
3484: ddindx binary_integer; indx binary_integer;
3485: begin
3486:
3487: -- copy data to the local IN or IN-OUT args, if any
3614: ddp_lsqv_rec.comments := p8_a71;
3615:
3616:
3617: -- here's the delegated call to the old PL/SQL routine
3618: okl_lease_app_pvt.lease_app_resubmit(p_api_version,
3619: p_init_msg_list,
3620: x_return_status,
3621: x_msg_count,
3622: x_msg_data,
4003: , p9_a71 out nocopy VARCHAR2
4004: )
4005:
4006: as
4007: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4008: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4009: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4010: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4011: ddindx binary_integer; indx binary_integer;
4004: )
4005:
4006: as
4007: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4008: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4009: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4010: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4011: ddindx binary_integer; indx binary_integer;
4012: begin
4005:
4006: as
4007: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4008: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4009: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4010: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4011: ddindx binary_integer; indx binary_integer;
4012: begin
4013:
4006: as
4007: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4008: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4009: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4010: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4011: ddindx binary_integer; indx binary_integer;
4012: begin
4013:
4014: -- copy data to the local IN or IN-OUT args, if any
4141: ddp_lsqv_rec.comments := p8_a71;
4142:
4143:
4144: -- here's the delegated call to the old PL/SQL routine
4145: okl_lease_app_pvt.lease_app_appeal(p_api_version,
4146: p_init_msg_list,
4147: x_return_status,
4148: x_msg_count,
4149: x_msg_data,
4411: , p7_a71 out nocopy VARCHAR2
4412: )
4413:
4414: as
4415: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4416: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4417: ddindx binary_integer; indx binary_integer;
4418: begin
4419:
4412: )
4413:
4414: as
4415: ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4416: ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4417: ddindx binary_integer; indx binary_integer;
4418: begin
4419:
4420: -- copy data to the local IN or IN-OUT args, if any
4426:
4427:
4428:
4429: -- here's the delegated call to the old PL/SQL routine
4430: okl_lease_app_pvt.populate_lease_app(p_api_version,
4431: p_init_msg_list,
4432: x_return_status,
4433: x_msg_count,
4434: x_msg_data,
4692: , p7_a71 VARCHAR2
4693: )
4694:
4695: as
4696: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4697: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4698: ddindx binary_integer; indx binary_integer;
4699: begin
4700:
4693: )
4694:
4695: as
4696: ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4697: ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4698: ddindx binary_integer; indx binary_integer;
4699: begin
4700:
4701: -- copy data to the local IN or IN-OUT args, if any
4826: ddp_lsqv_rec.description := p7_a70;
4827: ddp_lsqv_rec.comments := p7_a71;
4828:
4829: -- here's the delegated call to the old PL/SQL routine
4830: okl_lease_app_pvt.check_lease_quote_defaults(p_api_version,
4831: p_init_msg_list,
4832: x_return_status,
4833: x_msg_count,
4834: x_msg_data,
4860: , x_msg_data out nocopy VARCHAR2
4861: )
4862:
4863: as
4864: ddp_cr_conds okl_lease_app_pvt.name_val_tbl_type;
4865: ddp_addl_rcmnds okl_lease_app_pvt.name_val_tbl_type;
4866: ddindx binary_integer; indx binary_integer;
4867: begin
4868:
4861: )
4862:
4863: as
4864: ddp_cr_conds okl_lease_app_pvt.name_val_tbl_type;
4865: ddp_addl_rcmnds okl_lease_app_pvt.name_val_tbl_type;
4866: ddindx binary_integer; indx binary_integer;
4867: begin
4868:
4869: -- copy data to the local IN or IN-OUT args, if any
4871:
4872:
4873:
4874:
4875: okl_lease_app_pvt_w.rosetta_table_copy_in_p3(ddp_cr_conds, p5_a0
4876: , p5_a1
4877: );
4878:
4879: okl_lease_app_pvt_w.rosetta_table_copy_in_p3(ddp_addl_rcmnds, p6_a0
4875: okl_lease_app_pvt_w.rosetta_table_copy_in_p3(ddp_cr_conds, p5_a0
4876: , p5_a1
4877: );
4878:
4879: okl_lease_app_pvt_w.rosetta_table_copy_in_p3(ddp_addl_rcmnds, p6_a0
4880: , p6_a1
4881: );
4882:
4883:
4883:
4884:
4885:
4886: -- here's the delegated call to the old PL/SQL routine
4887: okl_lease_app_pvt.appeal_recommendations(p_api_version,
4888: p_init_msg_list,
4889: p_lap_id,
4890: p_cr_dec_apl_flag,
4891: p_exp_date_apl_flag,
4906:
4907:
4908: end;
4909:
4910: end okl_lease_app_pvt_w;