[Home] [Help]
1: package body lns_financials_w as
2: /* $Header: LNS_FINANCIALJ_B.pls 120.13.12020000.2 2012/07/19 20:56:08 scherkas ship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy lns_financials.rate_schedule_tbl, a0 JTF_NUMBER_TABLE
4: , a1 JTF_DATE_TABLE
5: , a2 JTF_DATE_TABLE
1: package body lns_financials_w as
2: /* $Header: LNS_FINANCIALJ_B.pls 120.13.12020000.2 2012/07/19 20:56:08 scherkas ship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy lns_financials.rate_schedule_tbl, a0 JTF_NUMBER_TABLE
4: , a1 JTF_DATE_TABLE
5: , a2 JTF_DATE_TABLE
6: , a3 JTF_NUMBER_TABLE
7: , a4 JTF_NUMBER_TABLE
36: end loop;
37: end if;
38: end if;
39: end rosetta_table_copy_in_p1;
40: procedure rosetta_table_copy_out_p1(t lns_financials.rate_schedule_tbl, a0 out nocopy JTF_NUMBER_TABLE
41: , a1 out nocopy JTF_DATE_TABLE
42: , a2 out nocopy JTF_DATE_TABLE
43: , a3 out nocopy JTF_NUMBER_TABLE
44: , a4 out nocopy JTF_NUMBER_TABLE
105: end if;
106: end if;
107: end rosetta_table_copy_out_p1;
108:
109: procedure rosetta_table_copy_in_p3(t out nocopy lns_financials.amortization_tbl, a0 JTF_NUMBER_TABLE
110: , a1 JTF_DATE_TABLE
111: , a2 JTF_DATE_TABLE
112: , a3 JTF_DATE_TABLE
113: , a4 JTF_NUMBER_TABLE
208: end loop;
209: end if;
210: end if;
211: end rosetta_table_copy_in_p3;
212: procedure rosetta_table_copy_out_p3(t lns_financials.amortization_tbl, a0 out nocopy JTF_NUMBER_TABLE
213: , a1 out nocopy JTF_DATE_TABLE
214: , a2 out nocopy JTF_DATE_TABLE
215: , a3 out nocopy JTF_DATE_TABLE
216: , a4 out nocopy JTF_NUMBER_TABLE
442: end if;
443: end if;
444: end rosetta_table_copy_out_p3;
445:
446: procedure rosetta_table_copy_in_p6(t out nocopy lns_financials.payoff_tbl, a0 JTF_NUMBER_TABLE
447: , a1 JTF_NUMBER_TABLE
448: , a2 JTF_NUMBER_TABLE
449: , a3 JTF_NUMBER_TABLE
450: , a4 JTF_NUMBER_TABLE
479: end loop;
480: end if;
481: end if;
482: end rosetta_table_copy_in_p6;
483: procedure rosetta_table_copy_out_p6(t lns_financials.payoff_tbl, a0 out nocopy JTF_NUMBER_TABLE
484: , a1 out nocopy JTF_NUMBER_TABLE
485: , a2 out nocopy JTF_NUMBER_TABLE
486: , a3 out nocopy JTF_NUMBER_TABLE
487: , a4 out nocopy JTF_NUMBER_TABLE
548: end if;
549: end if;
550: end rosetta_table_copy_out_p6;
551:
552: procedure rosetta_table_copy_in_p8(t out nocopy lns_financials.payoff_tbl2, a0 JTF_VARCHAR2_TABLE_100
553: , a1 JTF_NUMBER_TABLE
554: , a2 JTF_NUMBER_TABLE
555: , a3 JTF_NUMBER_TABLE
556: ) as
573: end loop;
574: end if;
575: end if;
576: end rosetta_table_copy_in_p8;
577: procedure rosetta_table_copy_out_p8(t lns_financials.payoff_tbl2, a0 out nocopy JTF_VARCHAR2_TABLE_100
578: , a1 out nocopy JTF_NUMBER_TABLE
579: , a2 out nocopy JTF_NUMBER_TABLE
580: , a3 out nocopy JTF_NUMBER_TABLE
581: ) as
612: end if;
613: end if;
614: end rosetta_table_copy_out_p8;
615:
616: procedure rosetta_table_copy_in_p10(t out nocopy lns_financials.loan_activity_tbl, a0 JTF_DATE_TABLE
617: , a1 JTF_NUMBER_TABLE
618: , a2 JTF_NUMBER_TABLE
619: , a3 JTF_NUMBER_TABLE
620: ) as
637: end loop;
638: end if;
639: end if;
640: end rosetta_table_copy_in_p10;
641: procedure rosetta_table_copy_out_p10(t lns_financials.loan_activity_tbl, a0 out nocopy JTF_DATE_TABLE
642: , a1 out nocopy JTF_NUMBER_TABLE
643: , a2 out nocopy JTF_NUMBER_TABLE
644: , a3 out nocopy JTF_NUMBER_TABLE
645: ) as
676: end if;
677: end if;
678: end rosetta_table_copy_out_p10;
679:
680: procedure rosetta_table_copy_in_p12(t out nocopy lns_financials.payment_schedule_tbl, a0 JTF_DATE_TABLE
681: , a1 JTF_DATE_TABLE
682: ) as
683: ddindx binary_integer; indx binary_integer;
684: begin
697: end loop;
698: end if;
699: end if;
700: end rosetta_table_copy_in_p12;
701: procedure rosetta_table_copy_out_p12(t lns_financials.payment_schedule_tbl, a0 out nocopy JTF_DATE_TABLE
702: , a1 out nocopy JTF_DATE_TABLE
703: ) as
704: ddindx binary_integer; indx binary_integer;
705: begin
726: end if;
727: end if;
728: end rosetta_table_copy_out_p12;
729:
730: procedure rosetta_table_copy_in_p13(t out nocopy lns_financials.date_tbl, a0 JTF_DATE_TABLE) as
731: ddindx binary_integer; indx binary_integer;
732: begin
733: if a0 is not null and a0.count > 0 then
734: if a0.count > 0 then
744: end loop;
745: end if;
746: end if;
747: end rosetta_table_copy_in_p13;
748: procedure rosetta_table_copy_out_p13(t lns_financials.date_tbl, a0 out nocopy JTF_DATE_TABLE) as
749: ddindx binary_integer; indx binary_integer;
750: begin
751: if t is null or t.count = 0 then
752: a0 := JTF_DATE_TABLE();
767: end if;
768: end if;
769: end rosetta_table_copy_out_p13;
770:
771: procedure rosetta_table_copy_in_p14(t out nocopy lns_financials.amount_tbl, a0 JTF_NUMBER_TABLE) as
772: ddindx binary_integer; indx binary_integer;
773: begin
774: if a0 is not null and a0.count > 0 then
775: if a0.count > 0 then
785: end loop;
786: end if;
787: end if;
788: end rosetta_table_copy_in_p14;
789: procedure rosetta_table_copy_out_p14(t lns_financials.amount_tbl, a0 out nocopy JTF_NUMBER_TABLE) as
790: ddindx binary_integer; indx binary_integer;
791: begin
792: if t is null or t.count = 0 then
793: a0 := JTF_NUMBER_TABLE();
808: end if;
809: end if;
810: end rosetta_table_copy_out_p14;
811:
812: procedure rosetta_table_copy_in_p15(t out nocopy lns_financials.vchar_tbl, a0 JTF_VARCHAR2_TABLE_100) as
813: ddindx binary_integer; indx binary_integer;
814: begin
815: if a0 is not null and a0.count > 0 then
816: if a0.count > 0 then
826: end loop;
827: end if;
828: end if;
829: end rosetta_table_copy_in_p15;
830: procedure rosetta_table_copy_out_p15(t lns_financials.vchar_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
831: ddindx binary_integer; indx binary_integer;
832: begin
833: if t is null or t.count = 0 then
834: a0 := JTF_VARCHAR2_TABLE_100();
849: end if;
850: end if;
851: end rosetta_table_copy_out_p15;
852:
853: procedure rosetta_table_copy_in_p17(t out nocopy lns_financials.fees_tbl, a0 JTF_NUMBER_TABLE
854: , a1 JTF_VARCHAR2_TABLE_100
855: , a2 JTF_NUMBER_TABLE
856: , a3 JTF_NUMBER_TABLE
857: , a4 JTF_VARCHAR2_TABLE_300
886: end loop;
887: end if;
888: end if;
889: end rosetta_table_copy_in_p17;
890: procedure rosetta_table_copy_out_p17(t lns_financials.fees_tbl, a0 out nocopy JTF_NUMBER_TABLE
891: , a1 out nocopy JTF_VARCHAR2_TABLE_100
892: , a2 out nocopy JTF_NUMBER_TABLE
893: , a3 out nocopy JTF_NUMBER_TABLE
894: , a4 out nocopy JTF_VARCHAR2_TABLE_300
1061: , x_msg_data out nocopy VARCHAR2
1062: )
1063:
1064: as
1065: ddx_loan_details lns_financials.loan_details_rec;
1066: ddindx binary_integer; indx binary_integer;
1067: begin
1068:
1069: -- copy data to the local IN or IN-OUT args, if any
1075:
1076:
1077:
1078: -- here's the delegated call to the old PL/SQL routine
1079: lns_financials.shiftloandates(p_loan_id,
1080: p_new_start_date,
1081: p_phase,
1082: ddx_loan_details,
1083: x_dates_shifted_flag,
1303: , x_msg_data out nocopy VARCHAR2
1304: )
1305:
1306: as
1307: ddp_loan_details lns_financials.loan_details_rec;
1308: ddindx binary_integer; indx binary_integer;
1309: begin
1310:
1311: -- copy data to the local IN or IN-OUT args, if any
1420:
1421:
1422:
1423: -- here's the delegated call to the old PL/SQL routine
1424: lns_financials.validatepayoff(ddp_loan_details,
1425: p_payoff_date,
1426: x_return_status,
1427: x_msg_count,
1428: x_msg_data);
1447: , x_msg_data out nocopy VARCHAR2
1448: )
1449:
1450: as
1451: ddx_payoff_tbl lns_financials.payoff_tbl2;
1452: ddindx binary_integer; indx binary_integer;
1453: begin
1454:
1455: -- copy data to the local IN or IN-OUT args, if any
1461:
1462:
1463:
1464: -- here's the delegated call to the old PL/SQL routine
1465: lns_financials.calculatepayoff(p_api_version,
1466: p_init_msg_list,
1467: p_loan_id,
1468: p_payoff_date,
1469: ddx_payoff_tbl,
1475:
1476:
1477:
1478:
1479: lns_financials_w.rosetta_table_copy_out_p8(ddx_payoff_tbl, p4_a0
1480: , p4_a1
1481: , p4_a2
1482: , p4_a3
1483: );
1596: , p3_a9 JTF_VARCHAR2_TABLE_100
1597: ) return number
1598:
1599: as
1600: ddp_loan_details lns_financials.loan_details_rec;
1601: ddp_rate_tbl lns_financials.rate_schedule_tbl;
1602: ddindx binary_integer; indx binary_integer;
1603: ddrosetta_retval number;
1604: begin
1597: ) return number
1598:
1599: as
1600: ddp_loan_details lns_financials.loan_details_rec;
1601: ddp_rate_tbl lns_financials.rate_schedule_tbl;
1602: ddindx binary_integer; indx binary_integer;
1603: ddrosetta_retval number;
1604: begin
1605:
1712: ddp_loan_details.fluctuate_eq_pay_amount := p0_a95;
1713:
1714:
1715:
1716: lns_financials_w.rosetta_table_copy_in_p1(ddp_rate_tbl, p3_a0
1717: , p3_a1
1718: , p3_a2
1719: , p3_a3
1720: , p3_a4
1725: , p3_a9
1726: );
1727:
1728: -- here's the delegated call to the old PL/SQL routine
1729: ddrosetta_retval := lns_financials.getweightedrate(ddp_loan_details,
1730: p_start_date,
1731: p_end_date,
1732: ddp_rate_tbl);
1733:
1892: , p4_a42 out nocopy JTF_VARCHAR2_TABLE_2000
1893: )
1894:
1895: as
1896: ddp_loan_details lns_financials.loan_details_rec;
1897: ddp_rate_schedule lns_financials.rate_schedule_tbl;
1898: ddx_loan_amort_tbl lns_financials.amortization_tbl;
1899: ddindx binary_integer; indx binary_integer;
1900: begin
1893: )
1894:
1895: as
1896: ddp_loan_details lns_financials.loan_details_rec;
1897: ddp_rate_schedule lns_financials.rate_schedule_tbl;
1898: ddx_loan_amort_tbl lns_financials.amortization_tbl;
1899: ddindx binary_integer; indx binary_integer;
1900: begin
1901:
1894:
1895: as
1896: ddp_loan_details lns_financials.loan_details_rec;
1897: ddp_rate_schedule lns_financials.rate_schedule_tbl;
1898: ddx_loan_amort_tbl lns_financials.amortization_tbl;
1899: ddindx binary_integer; indx binary_integer;
1900: begin
1901:
1902: -- copy data to the local IN or IN-OUT args, if any
2006: ddp_loan_details.calc_add_int_unpaid_int := p0_a93;
2007: ddp_loan_details.capitalize_int := p0_a94;
2008: ddp_loan_details.fluctuate_eq_pay_amount := p0_a95;
2009:
2010: lns_financials_w.rosetta_table_copy_in_p1(ddp_rate_schedule, p1_a0
2011: , p1_a1
2012: , p1_a2
2013: , p1_a3
2014: , p1_a4
2022:
2023:
2024:
2025: -- here's the delegated call to the old PL/SQL routine
2026: lns_financials.amortizeeploan(ddp_loan_details,
2027: ddp_rate_schedule,
2028: p_based_on_terms,
2029: p_installment_number,
2030: ddx_loan_amort_tbl);
2033:
2034:
2035:
2036:
2037: lns_financials_w.rosetta_table_copy_out_p3(ddx_loan_amort_tbl, p4_a0
2038: , p4_a1
2039: , p4_a2
2040: , p4_a3
2041: , p4_a4
2233: , p4_a42 out nocopy JTF_VARCHAR2_TABLE_2000
2234: )
2235:
2236: as
2237: ddp_loan_details lns_financials.loan_details_rec;
2238: ddp_rate_schedule lns_financials.rate_schedule_tbl;
2239: ddx_loan_amort_tbl lns_financials.amortization_tbl;
2240: ddindx binary_integer; indx binary_integer;
2241: begin
2234: )
2235:
2236: as
2237: ddp_loan_details lns_financials.loan_details_rec;
2238: ddp_rate_schedule lns_financials.rate_schedule_tbl;
2239: ddx_loan_amort_tbl lns_financials.amortization_tbl;
2240: ddindx binary_integer; indx binary_integer;
2241: begin
2242:
2235:
2236: as
2237: ddp_loan_details lns_financials.loan_details_rec;
2238: ddp_rate_schedule lns_financials.rate_schedule_tbl;
2239: ddx_loan_amort_tbl lns_financials.amortization_tbl;
2240: ddindx binary_integer; indx binary_integer;
2241: begin
2242:
2243: -- copy data to the local IN or IN-OUT args, if any
2347: ddp_loan_details.calc_add_int_unpaid_int := p0_a93;
2348: ddp_loan_details.capitalize_int := p0_a94;
2349: ddp_loan_details.fluctuate_eq_pay_amount := p0_a95;
2350:
2351: lns_financials_w.rosetta_table_copy_in_p1(ddp_rate_schedule, p1_a0
2352: , p1_a1
2353: , p1_a2
2354: , p1_a3
2355: , p1_a4
2363:
2364:
2365:
2366: -- here's the delegated call to the old PL/SQL routine
2367: lns_financials.amortizeloan(ddp_loan_details,
2368: ddp_rate_schedule,
2369: p_based_on_terms,
2370: p_installment_number,
2371: ddx_loan_amort_tbl);
2374:
2375:
2376:
2377:
2378: lns_financials_w.rosetta_table_copy_out_p3(ddx_loan_amort_tbl, p4_a0
2379: , p4_a1
2380: , p4_a2
2381: , p4_a3
2382: , p4_a4
2469: , p3_a42 out nocopy JTF_VARCHAR2_TABLE_2000
2470: )
2471:
2472: as
2473: ddx_loan_amort_tbl lns_financials.amortization_tbl;
2474: ddindx binary_integer; indx binary_integer;
2475: begin
2476:
2477: -- copy data to the local IN or IN-OUT args, if any
2479:
2480:
2481:
2482: -- here's the delegated call to the old PL/SQL routine
2483: lns_financials.amortizeloan(p_loan_id,
2484: p_based_on_terms,
2485: p_installment_number,
2486: ddx_loan_amort_tbl);
2487:
2488: -- copy data back from the local variables to OUT or IN-OUT args, if any
2489:
2490:
2491:
2492: lns_financials_w.rosetta_table_copy_out_p3(ddx_loan_amort_tbl, p3_a0
2493: , p3_a1
2494: , p3_a2
2495: , p3_a3
2496: , p3_a4
2687: , p3_a42 out nocopy JTF_VARCHAR2_TABLE_2000
2688: )
2689:
2690: as
2691: ddp_loan_details lns_financials.loan_details_rec;
2692: ddp_rate_schedule lns_financials.rate_schedule_tbl;
2693: ddx_loan_amort_tbl lns_financials.amortization_tbl;
2694: ddindx binary_integer; indx binary_integer;
2695: begin
2688: )
2689:
2690: as
2691: ddp_loan_details lns_financials.loan_details_rec;
2692: ddp_rate_schedule lns_financials.rate_schedule_tbl;
2693: ddx_loan_amort_tbl lns_financials.amortization_tbl;
2694: ddindx binary_integer; indx binary_integer;
2695: begin
2696:
2689:
2690: as
2691: ddp_loan_details lns_financials.loan_details_rec;
2692: ddp_rate_schedule lns_financials.rate_schedule_tbl;
2693: ddx_loan_amort_tbl lns_financials.amortization_tbl;
2694: ddindx binary_integer; indx binary_integer;
2695: begin
2696:
2697: -- copy data to the local IN or IN-OUT args, if any
2802: ddp_loan_details.capitalize_int := p0_a94;
2803: ddp_loan_details.fluctuate_eq_pay_amount := p0_a95;
2804:
2805:
2806: lns_financials_w.rosetta_table_copy_in_p1(ddp_rate_schedule, p2_a0
2807: , p2_a1
2808: , p2_a2
2809: , p2_a3
2810: , p2_a4
2816: );
2817:
2818:
2819: -- here's the delegated call to the old PL/SQL routine
2820: lns_financials.loanprojection(ddp_loan_details,
2821: p_based_on_terms,
2822: ddp_rate_schedule,
2823: ddx_loan_amort_tbl);
2824:
2825: -- copy data back from the local variables to OUT or IN-OUT args, if any
2826:
2827:
2828:
2829: lns_financials_w.rosetta_table_copy_out_p3(ddx_loan_amort_tbl, p3_a0
2830: , p3_a1
2831: , p3_a2
2832: , p3_a3
2833: , p3_a4
2923: , x_msg_data out nocopy VARCHAR2
2924: )
2925:
2926: as
2927: ddx_amort_tbl lns_financials.amortization_tbl;
2928: ddindx binary_integer; indx binary_integer;
2929: begin
2930:
2931: -- copy data to the local IN or IN-OUT args, if any
2936:
2937:
2938:
2939: -- here's the delegated call to the old PL/SQL routine
2940: lns_financials.runopenprojection(p_init_msg_list,
2941: p_loan_id,
2942: p_based_on_terms,
2943: ddx_amort_tbl,
2944: x_return_status,
2948: -- copy data back from the local variables to OUT or IN-OUT args, if any
2949:
2950:
2951:
2952: lns_financials_w.rosetta_table_copy_out_p3(ddx_amort_tbl, p3_a0
2953: , p3_a1
2954: , p3_a2
2955: , p3_a3
2956: , p3_a4
3051: , x_msg_data out nocopy VARCHAR2
3052: )
3053:
3054: as
3055: ddx_amort_tbl lns_financials.amortization_tbl;
3056: ddindx binary_integer; indx binary_integer;
3057: begin
3058:
3059: -- copy data to the local IN or IN-OUT args, if any
3066:
3067:
3068:
3069: -- here's the delegated call to the old PL/SQL routine
3070: lns_financials.runamortization(p_api_version,
3071: p_init_msg_list,
3072: p_commit,
3073: p_loan_id,
3074: p_based_on_terms,
3082:
3083:
3084:
3085:
3086: lns_financials_w.rosetta_table_copy_out_p3(ddx_amort_tbl, p5_a0
3087: , p5_a1
3088: , p5_a2
3089: , p5_a3
3090: , p5_a4
3195: , x_msg_data out nocopy VARCHAR2
3196: )
3197:
3198: as
3199: ddx_amortization_rec lns_financials.amortization_rec;
3200: ddx_fees_tbl lns_financials.fees_tbl;
3201: ddindx binary_integer; indx binary_integer;
3202: begin
3203:
3196: )
3197:
3198: as
3199: ddx_amortization_rec lns_financials.amortization_rec;
3200: ddx_fees_tbl lns_financials.fees_tbl;
3201: ddindx binary_integer; indx binary_integer;
3202: begin
3203:
3204: -- copy data to the local IN or IN-OUT args, if any
3212:
3213:
3214:
3215: -- here's the delegated call to the old PL/SQL routine
3216: lns_financials.getinstallment(p_api_version,
3217: p_init_msg_list,
3218: p_commit,
3219: p_loan_id,
3220: p_installment_number,
3273: p5_a40 := ddx_amortization_rec.cap_int_details;
3274: p5_a41 := ddx_amortization_rec.early_pay_cr_amount;
3275: p5_a42 := ddx_amortization_rec.early_pay_cr_details;
3276:
3277: lns_financials_w.rosetta_table_copy_out_p17(ddx_fees_tbl, p6_a0
3278: , p6_a1
3279: , p6_a2
3280: , p6_a3
3281: , p6_a4
3351: , x_msg_data out nocopy VARCHAR2
3352: )
3353:
3354: as
3355: ddx_amortization_rec lns_financials.amortization_rec;
3356: ddx_fees_tbl lns_financials.fees_tbl;
3357: ddindx binary_integer; indx binary_integer;
3358: begin
3359:
3352: )
3353:
3354: as
3355: ddx_amortization_rec lns_financials.amortization_rec;
3356: ddx_fees_tbl lns_financials.fees_tbl;
3357: ddindx binary_integer; indx binary_integer;
3358: begin
3359:
3360: -- copy data to the local IN or IN-OUT args, if any
3366:
3367:
3368:
3369: -- here's the delegated call to the old PL/SQL routine
3370: lns_financials.getopeninstallment(p_init_msg_list,
3371: p_loan_id,
3372: p_installment_number,
3373: ddx_amortization_rec,
3374: ddx_fees_tbl,
3423: p3_a40 := ddx_amortization_rec.cap_int_details;
3424: p3_a41 := ddx_amortization_rec.early_pay_cr_amount;
3425: p3_a42 := ddx_amortization_rec.early_pay_cr_details;
3426:
3427: lns_financials_w.rosetta_table_copy_out_p17(ddx_fees_tbl, p4_a0
3428: , p4_a1
3429: , p4_a2
3430: , p4_a3
3431: , p4_a4
3493: , x_msg_data out nocopy VARCHAR2
3494: )
3495:
3496: as
3497: ddx_amortization_rec lns_financials.amortization_rec;
3498: ddindx binary_integer; indx binary_integer;
3499: begin
3500:
3501: -- copy data to the local IN or IN-OUT args, if any
3508:
3509:
3510:
3511: -- here's the delegated call to the old PL/SQL routine
3512: lns_financials.preprocessinstallment(p_api_version,
3513: p_init_msg_list,
3514: p_commit,
3515: p_loan_id,
3516: p_installment_number,
3625: , x_msg_data out nocopy VARCHAR2
3626: )
3627:
3628: as
3629: ddx_amortization_rec lns_financials.amortization_rec;
3630: ddindx binary_integer; indx binary_integer;
3631: begin
3632:
3633: -- copy data to the local IN or IN-OUT args, if any
3639:
3640:
3641:
3642: -- here's the delegated call to the old PL/SQL routine
3643: lns_financials.preprocessopeninstallment(p_init_msg_list,
3644: p_commit,
3645: p_loan_id,
3646: p_installment_number,
3647: ddx_amortization_rec,
3725: else ddp_pay_in_arrears := true;
3726: end if;
3727:
3728: -- here's the delegated call to the old PL/SQL routine
3729: ddrosetta_retval := lns_financials.calculateeppayment(p_loan_amount,
3730: p_num_intervals,
3731: p_ending_balance,
3732: ddp_pay_in_arrears);
3733:
3764: else ddp_pay_in_arrears := true;
3765: end if;
3766:
3767: -- here's the delegated call to the old PL/SQL routine
3768: ddrosetta_retval := lns_financials.calculatepayment(p_loan_amount,
3769: p_periodic_rate,
3770: p_num_intervals,
3771: p_ending_balance,
3772: ddp_pay_in_arrears);
3794: , x_msg_data out nocopy VARCHAR2
3795: )
3796:
3797: as
3798: ddx_payoff_tbl lns_financials.payoff_tbl2;
3799: ddindx binary_integer; indx binary_integer;
3800: begin
3801:
3802: -- copy data to the local IN or IN-OUT args, if any
3809:
3810:
3811:
3812: -- here's the delegated call to the old PL/SQL routine
3813: lns_financials.calcloanremainingamounts(p_api_version,
3814: p_init_msg_list,
3815: p_loan_id,
3816: p_date,
3817: p_reason,
3825:
3826:
3827:
3828:
3829: lns_financials_w.rosetta_table_copy_out_p8(ddx_payoff_tbl, p5_a0
3830: , p5_a1
3831: , p5_a2
3832: , p5_a3
3833: );
3835:
3836:
3837: end;
3838:
3839: end lns_financials_w;