1: package body lns_fee_engine_w as
2: /* $Header: LNS_FEE_ENGINJ_B.pls 120.3 2005/08/02 14:38 raverma noship $ */
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
443: begin
444:
445: -- copy data to the local IN or IN-OUT args, if any
446:
447: lns_fee_engine_w.rosetta_table_copy_in_p1(ddp_fee_basis_tbl, p1_a0
448: , p1_a1
449: );
450:
451:
448: , p1_a1
449: );
450:
451:
452: lns_fee_engine_w.rosetta_table_copy_in_p3(ddp_fee_structures, p3_a0
453: , p3_a1
454: , p3_a2
455: , p3_a3
456: , p3_a4
492:
493:
494:
495:
496: lns_fee_engine_w.rosetta_table_copy_out_p5(ddx_fees_tbl, p4_a0
497: , p4_a1
498: , p4_a2
499: , p4_a3
500: , p4_a4
545: -- copy data to the local IN or IN-OUT args, if any
546:
547:
548:
549: lns_fee_engine_w.rosetta_table_copy_in_p5(ddp_fees_tbl, p3_a0
550: , p3_a1
551: , p3_a2
552: , p3_a3
553: , p3_a4
566:
567:
568:
569: -- here's the delegated call to the old PL/SQL routine
570: lns_fee_engine.writefeeschedule(p_init_msg_list,
571: p_commit,
572: p_loan_id,
573: ddp_fees_tbl,
574: x_return_status,
578: -- copy data back from the local variables to OUT or IN-OUT args, if any
579:
580:
581:
582: lns_fee_engine_w.rosetta_table_copy_out_p5(ddp_fees_tbl, p3_a0
583: , p3_a1
584: , p3_a2
585: , p3_a3
586: , p3_a4
631: -- copy data to the local IN or IN-OUT args, if any
632:
633:
634:
635: lns_fee_engine_w.rosetta_table_copy_in_p5(ddp_fees_tbl, p3_a0
636: , p3_a1
637: , p3_a2
638: , p3_a3
639: , p3_a4
722:
723:
724:
725:
726: lns_fee_engine_w.rosetta_table_copy_out_p5(ddx_fees_tbl, p4_a0
727: , p4_a1
728: , p4_a2
729: , p4_a3
730: , p4_a4
780: -- copy data to the local IN or IN-OUT args, if any
781:
782:
783:
784: lns_fee_engine_w.rosetta_table_copy_in_p1(ddp_fee_basis_tbl, p3_a0
785: , p3_a1
786: );
787:
788:
809:
810:
811:
812:
813: lns_fee_engine_w.rosetta_table_copy_out_p5(ddx_fees_tbl, p6_a0
814: , p6_a1
815: , p6_a2
816: , p6_a3
817: , p6_a4
891:
892:
893:
894:
895: lns_fee_engine_w.rosetta_table_copy_in_p1(ddp_fee_basis_tbl, p4_a0
896: , p4_a1
897: );
898:
899: lns_fee_engine_w.rosetta_table_copy_in_p3(ddp_fee_structures, p5_a0
895: lns_fee_engine_w.rosetta_table_copy_in_p1(ddp_fee_basis_tbl, p4_a0
896: , p4_a1
897: );
898:
899: lns_fee_engine_w.rosetta_table_copy_in_p3(ddp_fee_structures, p5_a0
900: , p5_a1
901: , p5_a2
902: , p5_a3
903: , p5_a4
943:
944:
945:
946:
947: lns_fee_engine_w.rosetta_table_copy_out_p5(ddx_fees_tbl, p6_a0
948: , p6_a1
949: , p6_a2
950: , p6_a3
951: , p6_a4
964:
965:
966: end;
967:
968: end lns_fee_engine_w;