1: package body lns_fee_engine_w as
2: /* $Header: LNS_FEE_ENGINJ_B.pls 120.3.12010000.4 2010/02/24 01:45:44 mbolli ship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy lns_fee_engine.fee_basis_tbl, a0 JTF_VARCHAR2_TABLE_100
4: , a1 JTF_NUMBER_TABLE
5: ) as
1: package body lns_fee_engine_w as
2: /* $Header: LNS_FEE_ENGINJ_B.pls 120.3.12010000.4 2010/02/24 01:45:44 mbolli ship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy lns_fee_engine.fee_basis_tbl, a0 JTF_VARCHAR2_TABLE_100
4: , a1 JTF_NUMBER_TABLE
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_p1;
24: procedure rosetta_table_copy_out_p1(t lns_fee_engine.fee_basis_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_100
25: , a1 out nocopy JTF_NUMBER_TABLE
26: ) as
27: ddindx binary_integer; indx binary_integer;
28: begin
49: end if;
50: end if;
51: end rosetta_table_copy_out_p1;
52:
53: procedure rosetta_table_copy_in_p3(t out nocopy lns_fee_engine.fee_structure_tbl, a0 JTF_NUMBER_TABLE
54: , a1 JTF_VARCHAR2_TABLE_100
55: , a2 JTF_VARCHAR2_TABLE_300
56: , a3 JTF_VARCHAR2_TABLE_100
57: , a4 JTF_VARCHAR2_TABLE_100
114: end loop;
115: end if;
116: end if;
117: end rosetta_table_copy_in_p3;
118: procedure rosetta_table_copy_out_p3(t lns_fee_engine.fee_structure_tbl, a0 out nocopy JTF_NUMBER_TABLE
119: , a1 out nocopy JTF_VARCHAR2_TABLE_100
120: , a2 out nocopy JTF_VARCHAR2_TABLE_300
121: , a3 out nocopy JTF_VARCHAR2_TABLE_100
122: , a4 out nocopy JTF_VARCHAR2_TABLE_100
253: end if;
254: end if;
255: end rosetta_table_copy_out_p3;
256:
257: procedure rosetta_table_copy_in_p5(t out nocopy lns_fee_engine.fee_calc_tbl, a0 JTF_NUMBER_TABLE
258: , a1 JTF_VARCHAR2_TABLE_100
259: , a2 JTF_VARCHAR2_TABLE_100
260: , a3 JTF_VARCHAR2_TABLE_100
261: , a4 JTF_NUMBER_TABLE
304: end loop;
305: end if;
306: end if;
307: end rosetta_table_copy_in_p5;
308: procedure rosetta_table_copy_out_p5(t lns_fee_engine.fee_calc_tbl, a0 out nocopy JTF_NUMBER_TABLE
309: , a1 out nocopy JTF_VARCHAR2_TABLE_100
310: , a2 out nocopy JTF_VARCHAR2_TABLE_100
311: , a3 out nocopy JTF_VARCHAR2_TABLE_100
312: , a4 out nocopy JTF_NUMBER_TABLE
459: , x_msg_data out nocopy VARCHAR2
460: )
461:
462: as
463: ddp_fee_basis_tbl lns_fee_engine.fee_basis_tbl;
464: ddp_fee_structures lns_fee_engine.fee_structure_tbl;
465: ddx_fees_tbl lns_fee_engine.fee_calc_tbl;
466: ddindx binary_integer; indx binary_integer;
467: begin
460: )
461:
462: as
463: ddp_fee_basis_tbl lns_fee_engine.fee_basis_tbl;
464: ddp_fee_structures lns_fee_engine.fee_structure_tbl;
465: ddx_fees_tbl lns_fee_engine.fee_calc_tbl;
466: ddindx binary_integer; indx binary_integer;
467: begin
468:
461:
462: as
463: ddp_fee_basis_tbl lns_fee_engine.fee_basis_tbl;
464: ddp_fee_structures lns_fee_engine.fee_structure_tbl;
465: ddx_fees_tbl lns_fee_engine.fee_calc_tbl;
466: ddindx binary_integer; indx binary_integer;
467: begin
468:
469: -- copy data to the local IN or IN-OUT args, if any
467: begin
468:
469: -- copy data to the local IN or IN-OUT args, if any
470:
471: lns_fee_engine_w.rosetta_table_copy_in_p1(ddp_fee_basis_tbl, p1_a0
472: , p1_a1
473: );
474:
475:
472: , p1_a1
473: );
474:
475:
476: lns_fee_engine_w.rosetta_table_copy_in_p3(ddp_fee_structures, p3_a0
477: , p3_a1
478: , p3_a2
479: , p3_a3
480: , p3_a4
503:
504:
505:
506: -- here's the delegated call to the old PL/SQL routine
507: lns_fee_engine.calculatefees(p_loan_id,
508: ddp_fee_basis_tbl,
509: p_installment,
510: ddp_fee_structures,
511: ddx_fees_tbl,
517:
518:
519:
520:
521: lns_fee_engine_w.rosetta_table_copy_out_p5(ddx_fees_tbl, p4_a0
522: , p4_a1
523: , p4_a2
524: , p4_a3
525: , p4_a4
566: , x_msg_data out nocopy VARCHAR2
567: )
568:
569: as
570: ddp_fees_tbl lns_fee_engine.fee_calc_tbl;
571: ddindx binary_integer; indx binary_integer;
572: begin
573:
574: -- copy data to the local IN or IN-OUT args, if any
574: -- copy data to the local IN or IN-OUT args, if any
575:
576:
577:
578: lns_fee_engine_w.rosetta_table_copy_in_p5(ddp_fees_tbl, p3_a0
579: , p3_a1
580: , p3_a2
581: , p3_a3
582: , p3_a4
597:
598:
599:
600: -- here's the delegated call to the old PL/SQL routine
601: lns_fee_engine.writefeeschedule(p_init_msg_list,
602: p_commit,
603: p_loan_id,
604: ddp_fees_tbl,
605: x_return_status,
609: -- copy data back from the local variables to OUT or IN-OUT args, if any
610:
611:
612:
613: lns_fee_engine_w.rosetta_table_copy_out_p5(ddp_fees_tbl, p3_a0
614: , p3_a1
615: , p3_a2
616: , p3_a3
617: , p3_a4
658: , x_msg_data out nocopy VARCHAR2
659: )
660:
661: as
662: ddp_fees_tbl lns_fee_engine.fee_calc_tbl;
663: ddindx binary_integer; indx binary_integer;
664: begin
665:
666: -- copy data to the local IN or IN-OUT args, if any
666: -- copy data to the local IN or IN-OUT args, if any
667:
668:
669:
670: lns_fee_engine_w.rosetta_table_copy_in_p5(ddp_fees_tbl, p3_a0
671: , p3_a1
672: , p3_a2
673: , p3_a3
674: , p3_a4
689:
690:
691:
692: -- here's the delegated call to the old PL/SQL routine
693: lns_fee_engine.updatefeeschedule(p_init_msg_list,
694: p_commit,
695: p_loan_id,
696: ddp_fees_tbl,
697: x_return_status,
734: , x_msg_data out nocopy VARCHAR2
735: )
736:
737: as
738: ddx_fees_tbl lns_fee_engine.fee_calc_tbl;
739: ddindx binary_integer; indx binary_integer;
740: begin
741:
742: -- copy data to the local IN or IN-OUT args, if any
749:
750:
751:
752: -- here's the delegated call to the old PL/SQL routine
753: lns_fee_engine.getfeeschedule(p_init_msg_list,
754: p_loan_id,
755: p_installment_number,
756: p_disb_header_id,
757: p_phase,
765:
766:
767:
768:
769: lns_fee_engine_w.rosetta_table_copy_out_p5(ddx_fees_tbl, p5_a0
770: , p5_a1
771: , p5_a2
772: , p5_a3
773: , p5_a4
818: , x_msg_data out nocopy VARCHAR2
819: )
820:
821: as
822: ddp_fee_basis_tbl lns_fee_engine.fee_basis_tbl;
823: ddx_fees_tbl lns_fee_engine.fee_calc_tbl;
824: ddindx binary_integer; indx binary_integer;
825: begin
826:
819: )
820:
821: as
822: ddp_fee_basis_tbl lns_fee_engine.fee_basis_tbl;
823: ddx_fees_tbl lns_fee_engine.fee_calc_tbl;
824: ddindx binary_integer; indx binary_integer;
825: begin
826:
827: -- copy data to the local IN or IN-OUT args, if any
827: -- copy data to the local IN or IN-OUT args, if any
828:
829:
830:
831: lns_fee_engine_w.rosetta_table_copy_in_p1(ddp_fee_basis_tbl, p3_a0
832: , p3_a1
833: );
834:
835:
838:
839:
840:
841: -- here's the delegated call to the old PL/SQL routine
842: lns_fee_engine.getfeedetails(p_init_msg_list,
843: p_loan_id,
844: p_installment,
845: ddp_fee_basis_tbl,
846: p_based_on_terms,
856:
857:
858:
859:
860: lns_fee_engine_w.rosetta_table_copy_out_p5(ddx_fees_tbl, p6_a0
861: , p6_a1
862: , p6_a2
863: , p6_a3
864: , p6_a4
932: , x_msg_data out nocopy VARCHAR2
933: )
934:
935: as
936: ddp_fee_basis_tbl lns_fee_engine.fee_basis_tbl;
937: ddp_fee_structures lns_fee_engine.fee_structure_tbl;
938: ddx_fees_tbl lns_fee_engine.fee_calc_tbl;
939: ddindx binary_integer; indx binary_integer;
940: begin
933: )
934:
935: as
936: ddp_fee_basis_tbl lns_fee_engine.fee_basis_tbl;
937: ddp_fee_structures lns_fee_engine.fee_structure_tbl;
938: ddx_fees_tbl lns_fee_engine.fee_calc_tbl;
939: ddindx binary_integer; indx binary_integer;
940: begin
941:
934:
935: as
936: ddp_fee_basis_tbl lns_fee_engine.fee_basis_tbl;
937: ddp_fee_structures lns_fee_engine.fee_structure_tbl;
938: ddx_fees_tbl lns_fee_engine.fee_calc_tbl;
939: ddindx binary_integer; indx binary_integer;
940: begin
941:
942: -- copy data to the local IN or IN-OUT args, if any
943:
944:
945:
946:
947: lns_fee_engine_w.rosetta_table_copy_in_p1(ddp_fee_basis_tbl, p4_a0
948: , p4_a1
949: );
950:
951: lns_fee_engine_w.rosetta_table_copy_in_p3(ddp_fee_structures, p5_a0
947: lns_fee_engine_w.rosetta_table_copy_in_p1(ddp_fee_basis_tbl, p4_a0
948: , p4_a1
949: );
950:
951: lns_fee_engine_w.rosetta_table_copy_in_p3(ddp_fee_structures, p5_a0
952: , p5_a1
953: , p5_a2
954: , p5_a3
955: , p5_a4
978:
979:
980:
981: -- here's the delegated call to the old PL/SQL routine
982: lns_fee_engine.processfees(p_init_msg_list,
983: p_commit,
984: p_loan_id,
985: p_installment_number,
986: ddp_fee_basis_tbl,
996:
997:
998:
999:
1000: lns_fee_engine_w.rosetta_table_copy_out_p5(ddx_fees_tbl, p6_a0
1001: , p6_a1
1002: , p6_a2
1003: , p6_a3
1004: , p6_a4
1045: , x_msg_data out nocopy VARCHAR2
1046: )
1047:
1048: as
1049: ddx_fees_tbl lns_fee_engine.fee_calc_tbl;
1050: ddindx binary_integer; indx binary_integer;
1051: begin
1052:
1053: -- copy data to the local IN or IN-OUT args, if any
1058:
1059:
1060:
1061: -- here's the delegated call to the old PL/SQL routine
1062: lns_fee_engine.getsubmitforapprfeeschedule(p_init_msg_list,
1063: p_loan_id,
1064: p_billed_flag,
1065: ddx_fees_tbl,
1066: x_return_status,
1070: -- copy data back from the local variables to OUT or IN-OUT args, if any
1071:
1072:
1073:
1074: lns_fee_engine_w.rosetta_table_copy_out_p5(ddx_fees_tbl, p3_a0
1075: , p3_a1
1076: , p3_a2
1077: , p3_a3
1078: , p3_a4
1093:
1094:
1095: end;
1096:
1097: end lns_fee_engine_w;