[Home] [Help]
1: PACKAGE BODY pn_var_rent_calc_pkg AS
2: -- $Header: PNVRCALB.pls 120.0.12010000.2 2008/08/21 10:30:12 acprakas ship $
3: /* -------------------------------------------------------------------------
4: ------------------------- COMMON DATA STRUCTURES ------------------------
5: ------------------------------------------------------------------------- */
217: pn_var_vol_hist_all
218: WHERE
219: line_item_id = p_line_id AND
220: grp_date_id = p_grp_id AND
221: vol_hist_status_code = pn_var_rent_calc_pkg.G_SALESVOL_STATUS_APPROVED);
222:
223: BEGIN
224:
225: l_exists_approved_sales := FALSE;
399: --
400: -- dd-mon-yyyy name o Created
401: --------------------------------------------------------------------------------
402: PROCEDURE get_rent_applicable
403: (p_trx_hdr_rec IN OUT NOCOPY pn_var_rent_calc_pkg.trx_hdr_c%ROWTYPE)
404: IS
405:
406: /* cache trx hdr passed */
407: l_trx_hdr_rec pn_var_rent_calc_pkg.trx_hdr_c%ROWTYPE;
403: (p_trx_hdr_rec IN OUT NOCOPY pn_var_rent_calc_pkg.trx_hdr_c%ROWTYPE)
404: IS
405:
406: /* cache trx hdr passed */
407: l_trx_hdr_rec pn_var_rent_calc_pkg.trx_hdr_c%ROWTYPE;
408:
409: /* get bkpt type */
410: CURSOR bkpt_type_c(p_bkdt_id IN NUMBER) IS
411: SELECT
551: FROM
552: pn_var_periods_all
553: WHERE
554: var_rent_id = p_vr_id AND
555: NVL(status, 'A') <> pn_var_rent_calc_pkg.G_PERIOD_REVERSED_STATUS;
556:
557: /* get the last partial period */
558: CURSOR last_period_c( p_vr_id IN NUMBER) IS
559: SELECT
614: g_negative_rent IS NULL
615: THEN
616:
617: /* cache VR details */
618: pn_var_rent_calc_pkg.cache_vr_details
619: (p_var_rent_id => l_trx_hdr_rec.var_rent_id);
620:
621: END IF;
622:
624:
625: /* cache bkpt details */
626: l_bkpts_t.DELETE;
627:
628: OPEN pn_var_rent_calc_pkg.trx_dtl_c(p_hdr_id => p_trx_hdr_rec.trx_header_id);
629: FETCH pn_var_rent_calc_pkg.trx_dtl_c BULK COLLECT INTO l_bkpts_t;
630: CLOSE pn_var_rent_calc_pkg.trx_dtl_c;
631:
632: /* get the breakpoint type - flat, sliding, stratified */
625: /* cache bkpt details */
626: l_bkpts_t.DELETE;
627:
628: OPEN pn_var_rent_calc_pkg.trx_dtl_c(p_hdr_id => p_trx_hdr_rec.trx_header_id);
629: FETCH pn_var_rent_calc_pkg.trx_dtl_c BULK COLLECT INTO l_bkpts_t;
630: CLOSE pn_var_rent_calc_pkg.trx_dtl_c;
631:
632: /* get the breakpoint type - flat, sliding, stratified */
633: FOR rec IN bkpt_type_c(p_bkdt_id => l_bkpts_t(1).bkpt_detail_id)
626: l_bkpts_t.DELETE;
627:
628: OPEN pn_var_rent_calc_pkg.trx_dtl_c(p_hdr_id => p_trx_hdr_rec.trx_header_id);
629: FETCH pn_var_rent_calc_pkg.trx_dtl_c BULK COLLECT INTO l_bkpts_t;
630: CLOSE pn_var_rent_calc_pkg.trx_dtl_c;
631:
632: /* get the breakpoint type - flat, sliding, stratified */
633: FOR rec IN bkpt_type_c(p_bkdt_id => l_bkpts_t(1).bkpt_detail_id)
634: LOOP
634: LOOP
635: l_bkpt_type := rec.breakpoint_type;
636: END LOOP;
637:
638: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
639: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
640: THEN
641: l_net_volume := (l_trx_hdr_rec.prorated_group_sales - NVL(l_trx_hdr_rec.prorated_group_deductions,0));
642:
635: l_bkpt_type := rec.breakpoint_type;
636: END LOOP;
637:
638: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
639: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
640: THEN
641: l_net_volume := (l_trx_hdr_rec.prorated_group_sales - NVL(l_trx_hdr_rec.prorated_group_deductions,0));
642:
643: ELSIF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
639: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
640: THEN
641: l_net_volume := (l_trx_hdr_rec.prorated_group_sales - NVL(l_trx_hdr_rec.prorated_group_deductions,0));
642:
643: ELSIF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
644: ,pn_var_rent_calc_pkg.G_CALC_YTD)
645: THEN
646: l_net_volume := (l_trx_hdr_rec.ytd_sales - NVL(l_trx_hdr_rec.ytd_deductions,0));
647:
640: THEN
641: l_net_volume := (l_trx_hdr_rec.prorated_group_sales - NVL(l_trx_hdr_rec.prorated_group_deductions,0));
642:
643: ELSIF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
644: ,pn_var_rent_calc_pkg.G_CALC_YTD)
645: THEN
646: l_net_volume := (l_trx_hdr_rec.ytd_sales - NVL(l_trx_hdr_rec.ytd_deductions,0));
647:
648: END IF;
656:
657: /* init the calculated rent to 0 - it will be re-calculated */
658: l_trx_hdr_rec.calculated_rent := 0;
659:
660: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
661: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
662: AND
663: ((g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_NP
664: ,pn_var_rent_calc_pkg.G_PRORUL_STD
657: /* init the calculated rent to 0 - it will be re-calculated */
658: l_trx_hdr_rec.calculated_rent := 0;
659:
660: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
661: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
662: AND
663: ((g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_NP
664: ,pn_var_rent_calc_pkg.G_PRORUL_STD
665: ,pn_var_rent_calc_pkg.G_PRORUL_FY
659:
660: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
661: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
662: AND
663: ((g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_NP
664: ,pn_var_rent_calc_pkg.G_PRORUL_STD
665: ,pn_var_rent_calc_pkg.G_PRORUL_FY
666: ,pn_var_rent_calc_pkg.G_PRORUL_LY
667: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
660: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
661: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
662: AND
663: ((g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_NP
664: ,pn_var_rent_calc_pkg.G_PRORUL_STD
665: ,pn_var_rent_calc_pkg.G_PRORUL_FY
666: ,pn_var_rent_calc_pkg.G_PRORUL_LY
667: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
668: ,pn_var_rent_calc_pkg.G_PRORUL_CYP) AND
661: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
662: AND
663: ((g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_NP
664: ,pn_var_rent_calc_pkg.G_PRORUL_STD
665: ,pn_var_rent_calc_pkg.G_PRORUL_FY
666: ,pn_var_rent_calc_pkg.G_PRORUL_LY
667: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
668: ,pn_var_rent_calc_pkg.G_PRORUL_CYP) AND
669: l_net_volume < l_bkpts_t(1).prorated_grp_vol_start)
662: AND
663: ((g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_NP
664: ,pn_var_rent_calc_pkg.G_PRORUL_STD
665: ,pn_var_rent_calc_pkg.G_PRORUL_FY
666: ,pn_var_rent_calc_pkg.G_PRORUL_LY
667: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
668: ,pn_var_rent_calc_pkg.G_PRORUL_CYP) AND
669: l_net_volume < l_bkpts_t(1).prorated_grp_vol_start)
670: OR
663: ((g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_NP
664: ,pn_var_rent_calc_pkg.G_PRORUL_STD
665: ,pn_var_rent_calc_pkg.G_PRORUL_FY
666: ,pn_var_rent_calc_pkg.G_PRORUL_LY
667: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
668: ,pn_var_rent_calc_pkg.G_PRORUL_CYP) AND
669: l_net_volume < l_bkpts_t(1).prorated_grp_vol_start)
670: OR
671: (g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_CYNP AND
664: ,pn_var_rent_calc_pkg.G_PRORUL_STD
665: ,pn_var_rent_calc_pkg.G_PRORUL_FY
666: ,pn_var_rent_calc_pkg.G_PRORUL_LY
667: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
668: ,pn_var_rent_calc_pkg.G_PRORUL_CYP) AND
669: l_net_volume < l_bkpts_t(1).prorated_grp_vol_start)
670: OR
671: (g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_CYNP AND
672: l_net_volume < l_bkpts_t(1).pr_grp_blended_vol_start))
667: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
668: ,pn_var_rent_calc_pkg.G_PRORUL_CYP) AND
669: l_net_volume < l_bkpts_t(1).prorated_grp_vol_start)
670: OR
671: (g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_CYNP AND
672: l_net_volume < l_bkpts_t(1).pr_grp_blended_vol_start))
673: THEN
674:
675: pnp_debug_pkg.log('No volumes tripped.');
676: pnp_debug_pkg.log('l_net_volume:'||l_net_volume);
677: pnp_debug_pkg.log
678: ('l_bkpts_t(1).prorated_grp_vol_start:'||l_bkpts_t(1).prorated_grp_vol_start);
679: /* Once no breakpoints are tripped, Macerich consider the rent to be = 0 */
680: IF (g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_NP
681: ,pn_var_rent_calc_pkg.G_PRORUL_STD
682: ,pn_var_rent_calc_pkg.G_PRORUL_FY
683: ,pn_var_rent_calc_pkg.G_PRORUL_LY
684: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
677: pnp_debug_pkg.log
678: ('l_bkpts_t(1).prorated_grp_vol_start:'||l_bkpts_t(1).prorated_grp_vol_start);
679: /* Once no breakpoints are tripped, Macerich consider the rent to be = 0 */
680: IF (g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_NP
681: ,pn_var_rent_calc_pkg.G_PRORUL_STD
682: ,pn_var_rent_calc_pkg.G_PRORUL_FY
683: ,pn_var_rent_calc_pkg.G_PRORUL_LY
684: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
685: ,pn_var_rent_calc_pkg.G_PRORUL_CYP)) THEN
678: ('l_bkpts_t(1).prorated_grp_vol_start:'||l_bkpts_t(1).prorated_grp_vol_start);
679: /* Once no breakpoints are tripped, Macerich consider the rent to be = 0 */
680: IF (g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_NP
681: ,pn_var_rent_calc_pkg.G_PRORUL_STD
682: ,pn_var_rent_calc_pkg.G_PRORUL_FY
683: ,pn_var_rent_calc_pkg.G_PRORUL_LY
684: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
685: ,pn_var_rent_calc_pkg.G_PRORUL_CYP)) THEN
686:
679: /* Once no breakpoints are tripped, Macerich consider the rent to be = 0 */
680: IF (g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_NP
681: ,pn_var_rent_calc_pkg.G_PRORUL_STD
682: ,pn_var_rent_calc_pkg.G_PRORUL_FY
683: ,pn_var_rent_calc_pkg.G_PRORUL_LY
684: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
685: ,pn_var_rent_calc_pkg.G_PRORUL_CYP)) THEN
686:
687: l_trx_hdr_rec.calculated_rent
680: IF (g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_NP
681: ,pn_var_rent_calc_pkg.G_PRORUL_STD
682: ,pn_var_rent_calc_pkg.G_PRORUL_FY
683: ,pn_var_rent_calc_pkg.G_PRORUL_LY
684: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
685: ,pn_var_rent_calc_pkg.G_PRORUL_CYP)) THEN
686:
687: l_trx_hdr_rec.calculated_rent
688: := (l_net_volume - l_bkpts_t(1).prorated_grp_vol_start)
681: ,pn_var_rent_calc_pkg.G_PRORUL_STD
682: ,pn_var_rent_calc_pkg.G_PRORUL_FY
683: ,pn_var_rent_calc_pkg.G_PRORUL_LY
684: ,pn_var_rent_calc_pkg.G_PRORUL_FLY
685: ,pn_var_rent_calc_pkg.G_PRORUL_CYP)) THEN
686:
687: l_trx_hdr_rec.calculated_rent
688: := (l_net_volume - l_bkpts_t(1).prorated_grp_vol_start)
689: * l_bkpts_t(1).bkpt_rate;
699:
700: ELSE
701:
702: /* get l_trx_hdr_rec.calculated_rent - CALCULATED RENT */
703: IF l_bkpt_type = pn_var_rent_calc_pkg.G_BKPT_TYP_STRATIFIED
704: THEN
705:
706: l_trx_hdr_rec.calculated_rent := 0;
707:
707:
708: /* loop for all bkpt details */
709: FOR i IN l_bkpts_t.FIRST..l_bkpts_t.LAST LOOP
710:
711: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
712: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
713: THEN
714:
715: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_CYNP THEN
708: /* loop for all bkpt details */
709: FOR i IN l_bkpts_t.FIRST..l_bkpts_t.LAST LOOP
710:
711: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
712: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
713: THEN
714:
715: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_CYNP THEN
716:
711: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
712: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
713: THEN
714:
715: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_CYNP THEN
716:
717: l_bkpt_start := NVL(l_bkpts_t(i).pr_grp_blended_vol_start
718: ,l_bkpts_t(i).prorated_grp_vol_start);
719: l_bkpt_end := NVL(l_bkpts_t(i).pr_grp_blended_vol_end
725: l_bkpt_end := l_bkpts_t(i).prorated_grp_vol_end;
726:
727: END IF; /* g_proration_rule */
728:
729: ELSIF g_calculation_method = pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
730: THEN
731:
732: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_NP THEN
733:
728:
729: ELSIF g_calculation_method = pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
730: THEN
731:
732: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_NP THEN
733:
734: l_bkpt_start := l_bkpts_t(i).prorated_grp_vol_start;
735: l_bkpt_end := l_bkpts_t(i).prorated_grp_vol_end;
736:
740: l_bkpt_end := l_bkpts_t(i).blended_period_vol_end;
741:
742: END IF;
743:
744: ELSIF g_calculation_method = pn_var_rent_calc_pkg.G_CALC_YTD
745: THEN
746:
747: l_bkpt_start := l_bkpts_t(i).ytd_group_vol_start;
748: l_bkpt_end := l_bkpts_t(i).ytd_group_vol_end;
776: END IF; /* net vol > bkpt start */
777:
778: END LOOP; /* loop for all bkpt details */
779:
780: ELSIF l_bkpt_type IN ( pn_var_rent_calc_pkg.G_BKPT_TYP_FLAT
781: ,pn_var_rent_calc_pkg.G_BKPT_TYP_SLIDING)
782: THEN
783:
784: FOR i IN l_bkpts_t.FIRST..l_bkpts_t.LAST LOOP
777:
778: END LOOP; /* loop for all bkpt details */
779:
780: ELSIF l_bkpt_type IN ( pn_var_rent_calc_pkg.G_BKPT_TYP_FLAT
781: ,pn_var_rent_calc_pkg.G_BKPT_TYP_SLIDING)
782: THEN
783:
784: FOR i IN l_bkpts_t.FIRST..l_bkpts_t.LAST LOOP
785:
782: THEN
783:
784: FOR i IN l_bkpts_t.FIRST..l_bkpts_t.LAST LOOP
785:
786: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
787: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
788: THEN
789:
790: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_CYNP THEN
783:
784: FOR i IN l_bkpts_t.FIRST..l_bkpts_t.LAST LOOP
785:
786: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
787: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
788: THEN
789:
790: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_CYNP THEN
791:
786: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
787: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
788: THEN
789:
790: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_CYNP THEN
791:
792: l_bkpt_start := NVL(l_bkpts_t(i).pr_grp_blended_vol_start
793: ,l_bkpts_t(i).prorated_grp_vol_start);
794: l_bkpt_end := NVL(l_bkpts_t(i).pr_grp_blended_vol_end
800: l_bkpt_end := l_bkpts_t(i).prorated_grp_vol_end;
801:
802: END IF; /* g_proration_rule */
803:
804: ELSIF g_calculation_method = pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
805: THEN
806:
807: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_NP THEN
808:
803:
804: ELSIF g_calculation_method = pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
805: THEN
806:
807: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_NP THEN
808:
809: l_bkpt_start := l_bkpts_t(i).prorated_grp_vol_start;
810: l_bkpt_end := l_bkpts_t(i).prorated_grp_vol_end;
811:
815: l_bkpt_end := l_bkpts_t(i).blended_period_vol_end;
816:
817: END IF;
818:
819: ELSIF g_calculation_method = pn_var_rent_calc_pkg.G_CALC_YTD
820: THEN
821:
822: l_bkpt_start := l_bkpts_t(i).ytd_group_vol_start;
823: l_bkpt_end := l_bkpts_t(i).ytd_group_vol_end;
831: IF l_net_volume >= l_bkpt_start AND
832: l_net_volume <= NVL(l_bkpt_end, l_net_volume)
833: THEN
834:
835: IF l_bkpt_type = pn_var_rent_calc_pkg.G_BKPT_TYP_SLIDING THEN
836:
837: l_trx_hdr_rec.calculated_rent
838: := l_net_volume * l_bkpts_t(i).bkpt_rate;
839:
836:
837: l_trx_hdr_rec.calculated_rent
838: := l_net_volume * l_bkpts_t(i).bkpt_rate;
839:
840: ELSIF l_bkpt_type = pn_var_rent_calc_pkg.G_BKPT_TYP_FLAT THEN
841:
842: l_trx_hdr_rec.calculated_rent
843: := (l_net_volume - l_bkpt_start) * l_bkpts_t(i).bkpt_rate;
844:
875:
876: pnp_debug_pkg.log('+++ Get Prorated Rent - START +++');
877: pnp_debug_pkg.log('Invoice Flag: '||l_trx_hdr_rec.invoice_flag);
878:
879: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_FY
880: ,pn_var_rent_calc_pkg.G_PRORUL_FLY) AND
881: ((ADD_MONTHS(g_vr_commencement_date, 12) - 1) BETWEEN
882: l_trx_hdr_rec.calc_prd_start_date AND l_trx_hdr_rec.calc_prd_end_date)
883: THEN
876: pnp_debug_pkg.log('+++ Get Prorated Rent - START +++');
877: pnp_debug_pkg.log('Invoice Flag: '||l_trx_hdr_rec.invoice_flag);
878:
879: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_FY
880: ,pn_var_rent_calc_pkg.G_PRORUL_FLY) AND
881: ((ADD_MONTHS(g_vr_commencement_date, 12) - 1) BETWEEN
882: l_trx_hdr_rec.calc_prd_start_date AND l_trx_hdr_rec.calc_prd_end_date)
883: THEN
884:
893: l_net_volume := rec.sales;
894: END LOOP;
895:
896: /* get l_trx_hdr_rec.calculated_rent - CALCULATED RENT */
897: IF l_bkpt_type = pn_var_rent_calc_pkg.G_BKPT_TYP_STRATIFIED
898: THEN
899:
900: l_trx_hdr_rec.prorated_rent_due := 0;
901:
936: END IF; /* net vol > bkpt start */
937:
938: END LOOP; /* loop for all bkpt details */
939:
940: ELSIF l_bkpt_type IN ( pn_var_rent_calc_pkg.G_BKPT_TYP_FLAT
941: ,pn_var_rent_calc_pkg.G_BKPT_TYP_SLIDING)
942: THEN
943:
944: /* loop for all bkpt details */
937:
938: END LOOP; /* loop for all bkpt details */
939:
940: ELSIF l_bkpt_type IN ( pn_var_rent_calc_pkg.G_BKPT_TYP_FLAT
941: ,pn_var_rent_calc_pkg.G_BKPT_TYP_SLIDING)
942: THEN
943:
944: /* loop for all bkpt details */
945: FOR bkpt_rec IN fy_bkpts_c
958: IF l_net_volume >= l_bkpt_start AND
959: l_net_volume <= NVL(l_bkpt_end, l_net_volume)
960: THEN
961:
962: IF l_bkpt_type = pn_var_rent_calc_pkg.G_BKPT_TYP_SLIDING THEN
963:
964: l_trx_hdr_rec.prorated_rent_due
965: := l_net_volume * bkpt_rec.bkpt_rate;
966:
963:
964: l_trx_hdr_rec.prorated_rent_due
965: := l_net_volume * bkpt_rec.bkpt_rate;
966:
967: ELSIF l_bkpt_type = pn_var_rent_calc_pkg.G_BKPT_TYP_FLAT THEN
968:
969: l_trx_hdr_rec.prorated_rent_due
970: := (l_net_volume - l_bkpt_start) * bkpt_rec.bkpt_rate;
971:
1003: /* Macerich way of calculating */
1004:
1005: l_trx_hdr_rec.prorated_rent_due
1006: := l_trx_hdr_rec.prorated_rent_due
1007: * pn_var_rent_calc_pkg.
1008: get_fy_proration_factor(l_trx_hdr_rec.var_rent_id);
1009:
1010:
1011: l_trx_hdr_rec.first_yr_rent := l_trx_hdr_rec.prorated_rent_due;
1020: LOOP
1021: l_prorat_factor_sum := rec.proration_factor_sum;
1022: END LOOP;
1023:
1024: IF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_MON THEN
1025: l_trx_hdr_rec.prorated_rent_due
1026: := l_trx_hdr_rec.prorated_rent_due
1027: * l_prorat_factor_sum
1028: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_MON;
1024: IF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_MON THEN
1025: l_trx_hdr_rec.prorated_rent_due
1026: := l_trx_hdr_rec.prorated_rent_due
1027: * l_prorat_factor_sum
1028: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_MON;
1029:
1030: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_QTR THEN
1031: l_trx_hdr_rec.prorated_rent_due
1032: := l_trx_hdr_rec.prorated_rent_due
1026: := l_trx_hdr_rec.prorated_rent_due
1027: * l_prorat_factor_sum
1028: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_MON;
1029:
1030: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_QTR THEN
1031: l_trx_hdr_rec.prorated_rent_due
1032: := l_trx_hdr_rec.prorated_rent_due
1033: * l_prorat_factor_sum
1034: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_QTR;
1030: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_QTR THEN
1031: l_trx_hdr_rec.prorated_rent_due
1032: := l_trx_hdr_rec.prorated_rent_due
1033: * l_prorat_factor_sum
1034: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_QTR;
1035:
1036: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_SA THEN
1037: l_trx_hdr_rec.prorated_rent_due
1038: := l_trx_hdr_rec.prorated_rent_due
1032: := l_trx_hdr_rec.prorated_rent_due
1033: * l_prorat_factor_sum
1034: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_QTR;
1035:
1036: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_SA THEN
1037: l_trx_hdr_rec.prorated_rent_due
1038: := l_trx_hdr_rec.prorated_rent_due
1039: * l_prorat_factor_sum
1040: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_SA;
1036: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_SA THEN
1037: l_trx_hdr_rec.prorated_rent_due
1038: := l_trx_hdr_rec.prorated_rent_due
1039: * l_prorat_factor_sum
1040: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_SA;
1041:
1042: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_YR THEN
1043: l_trx_hdr_rec.prorated_rent_due
1044: := l_trx_hdr_rec.prorated_rent_due
1038: := l_trx_hdr_rec.prorated_rent_due
1039: * l_prorat_factor_sum
1040: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_SA;
1041:
1042: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_YR THEN
1043: l_trx_hdr_rec.prorated_rent_due
1044: := l_trx_hdr_rec.prorated_rent_due
1045: * l_prorat_factor_sum /
1046: pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_YR;
1042: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_YR THEN
1043: l_trx_hdr_rec.prorated_rent_due
1044: := l_trx_hdr_rec.prorated_rent_due
1045: * l_prorat_factor_sum /
1046: pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_YR;
1047:
1048: END IF;
1049:
1050: END LOOP;
1051: */
1052:
1053: END IF;
1054:
1055: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_LY
1056: ,pn_var_rent_calc_pkg.G_PRORUL_FLY) AND
1057: g_vr_termination_date = l_trx_hdr_rec.calc_prd_end_date
1058: THEN
1059:
1052:
1053: END IF;
1054:
1055: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_LY
1056: ,pn_var_rent_calc_pkg.G_PRORUL_FLY) AND
1057: g_vr_termination_date = l_trx_hdr_rec.calc_prd_end_date
1058: THEN
1059:
1060: pnp_debug_pkg.log('Get Prorated Rent - LY');
1075:
1076:
1077:
1078: /* get l_trx_hdr_rec.prorated_rent_due - PRORATED RENT */
1079: IF l_bkpt_type = pn_var_rent_calc_pkg.G_BKPT_TYP_STRATIFIED
1080: THEN
1081:
1082: l_trx_hdr_rec.prorated_rent_due := 0;
1083:
1128:
1129: END LOOP; /* loop for all bkpt details */
1130:
1131:
1132: ELSIF l_bkpt_type IN ( pn_var_rent_calc_pkg.G_BKPT_TYP_FLAT
1133: ,pn_var_rent_calc_pkg.G_BKPT_TYP_SLIDING)
1134: THEN
1135: pnp_debug_pkg.log('l_bkpt_type:'||l_bkpt_type);
1136: /* loop for all bkpt details */
1129: END LOOP; /* loop for all bkpt details */
1130:
1131:
1132: ELSIF l_bkpt_type IN ( pn_var_rent_calc_pkg.G_BKPT_TYP_FLAT
1133: ,pn_var_rent_calc_pkg.G_BKPT_TYP_SLIDING)
1134: THEN
1135: pnp_debug_pkg.log('l_bkpt_type:'||l_bkpt_type);
1136: /* loop for all bkpt details */
1137: FOR bkpt_rec IN ly_bkpts_c
1152: IF l_net_volume >= l_bkpt_start AND
1153: l_net_volume <= NVL(l_bkpt_end, l_net_volume)
1154: THEN
1155:
1156: IF l_bkpt_type = pn_var_rent_calc_pkg.G_BKPT_TYP_SLIDING THEN
1157:
1158: l_trx_hdr_rec.prorated_rent_due
1159: := l_net_volume * bkpt_rec.bkpt_rate;
1160:
1157:
1158: l_trx_hdr_rec.prorated_rent_due
1159: := l_net_volume * bkpt_rec.bkpt_rate;
1160:
1161: ELSIF l_bkpt_type = pn_var_rent_calc_pkg.G_BKPT_TYP_FLAT THEN
1162:
1163: l_trx_hdr_rec.prorated_rent_due
1164: := (l_net_volume - l_bkpt_start) * bkpt_rec.bkpt_rate;
1165:
1197: /* Macerich way of calculating */
1198:
1199: l_trx_hdr_rec.prorated_rent_due
1200: := l_trx_hdr_rec.prorated_rent_due
1201: * pn_var_rent_calc_pkg.
1202: get_ly_proration_factor(l_trx_hdr_rec.var_rent_id);
1203:
1204: /* Ideal way of calculating */
1205: /*
1211: LOOP
1212: l_prorat_factor_sum := rec.proration_factor_sum;
1213: END LOOP;
1214:
1215: IF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_MON THEN
1216: l_trx_hdr_rec.prorated_rent_due
1217: := l_trx_hdr_rec.prorated_rent_due
1218: * l_prorat_factor_sum
1219: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_MON;
1215: IF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_MON THEN
1216: l_trx_hdr_rec.prorated_rent_due
1217: := l_trx_hdr_rec.prorated_rent_due
1218: * l_prorat_factor_sum
1219: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_MON;
1220:
1221: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_QTR THEN
1222: l_trx_hdr_rec.prorated_rent_due
1223: := l_trx_hdr_rec.prorated_rent_due
1217: := l_trx_hdr_rec.prorated_rent_due
1218: * l_prorat_factor_sum
1219: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_MON;
1220:
1221: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_QTR THEN
1222: l_trx_hdr_rec.prorated_rent_due
1223: := l_trx_hdr_rec.prorated_rent_due
1224: * l_prorat_factor_sum
1225: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_QTR;
1221: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_QTR THEN
1222: l_trx_hdr_rec.prorated_rent_due
1223: := l_trx_hdr_rec.prorated_rent_due
1224: * l_prorat_factor_sum
1225: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_QTR;
1226:
1227: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_SA THEN
1228: l_trx_hdr_rec.prorated_rent_due
1229: := l_trx_hdr_rec.prorated_rent_due
1223: := l_trx_hdr_rec.prorated_rent_due
1224: * l_prorat_factor_sum
1225: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_QTR;
1226:
1227: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_SA THEN
1228: l_trx_hdr_rec.prorated_rent_due
1229: := l_trx_hdr_rec.prorated_rent_due
1230: * l_prorat_factor_sum
1231: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_SA;
1227: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_SA THEN
1228: l_trx_hdr_rec.prorated_rent_due
1229: := l_trx_hdr_rec.prorated_rent_due
1230: * l_prorat_factor_sum
1231: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_SA;
1232:
1233: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_YR THEN
1234: l_trx_hdr_rec.prorated_rent_due
1235: := l_trx_hdr_rec.prorated_rent_due
1229: := l_trx_hdr_rec.prorated_rent_due
1230: * l_prorat_factor_sum
1231: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_SA;
1232:
1233: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_YR THEN
1234: l_trx_hdr_rec.prorated_rent_due
1235: := l_trx_hdr_rec.prorated_rent_due
1236: * l_prorat_factor_sum
1237: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_YR;
1233: ELSIF freq_rec.report_freq_code = pn_var_rent_calc_pkg.G_FREQ_YR THEN
1234: l_trx_hdr_rec.prorated_rent_due
1235: := l_trx_hdr_rec.prorated_rent_due
1236: * l_prorat_factor_sum
1237: / pn_var_rent_calc_pkg.G_CALC_PRD_IN_FREQ_YR;
1238:
1239: END IF;
1240:
1241: END LOOP;
1256:
1257: IF NVL(l_trx_hdr_rec.invoice_flag, 'Y') = 'P' THEN
1258:
1259: l_prev_billed
1260: := pn_var_rent_calc_pkg.find_prev_billed
1261: ( p_var_rent_id => l_trx_hdr_rec.var_rent_id
1262: ,p_line_item_grp_id => l_trx_hdr_rec.line_item_group_id
1263: ,p_calc_prd_st_dt => l_trx_hdr_rec.calc_prd_start_date
1264: ,p_calc_prd_end_dt => l_trx_hdr_rec.calc_prd_end_date
1266:
1267: ELSE
1268:
1269: l_prev_billed
1270: := pn_var_rent_calc_pkg.find_prev_billed
1271: ( p_var_rent_id => l_trx_hdr_rec.var_rent_id
1272: ,p_period_id => l_trx_hdr_rec.period_id
1273: ,p_line_item_id => l_trx_hdr_rec.line_item_id
1274: ,p_calc_prd_st_dt => l_trx_hdr_rec.calc_prd_start_date
1278: END IF;
1279:
1280: pnp_debug_pkg.log(' get previously billed complete - l_prev_billed: '||l_prev_billed);
1281:
1282: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
1283: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
1284: THEN
1285:
1286: l_trx_hdr_rec.percent_rent_due := l_trx_hdr_rec.calculated_rent;
1279:
1280: pnp_debug_pkg.log(' get previously billed complete - l_prev_billed: '||l_prev_billed);
1281:
1282: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
1283: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
1284: THEN
1285:
1286: l_trx_hdr_rec.percent_rent_due := l_trx_hdr_rec.calculated_rent;
1287: l_trx_hdr_rec.ytd_percent_rent := l_prev_billed
1286: l_trx_hdr_rec.percent_rent_due := l_trx_hdr_rec.calculated_rent;
1287: l_trx_hdr_rec.ytd_percent_rent := l_prev_billed
1288: + l_trx_hdr_rec.percent_rent_due;
1289:
1290: ELSIF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
1291: ,pn_var_rent_calc_pkg.G_CALC_YTD)
1292: THEN
1293:
1294: l_trx_hdr_rec.percent_rent_due
1287: l_trx_hdr_rec.ytd_percent_rent := l_prev_billed
1288: + l_trx_hdr_rec.percent_rent_due;
1289:
1290: ELSIF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
1291: ,pn_var_rent_calc_pkg.G_CALC_YTD)
1292: THEN
1293:
1294: l_trx_hdr_rec.percent_rent_due
1295: := l_trx_hdr_rec.calculated_rent - l_prev_billed;
1328: /* IMP: This condition is to nullify the rents for a special case.
1329: The case is for First-LAst year, when we have just 2 periods and
1330: first year and last year period is partial, in such a case we dont
1331: want to calculate the rent. */
1332: IF g_proration_rule IN (pn_var_rent_calc_pkg.G_PRORUL_FLY) AND
1333: l_period_num = 2 AND l_first_partial = 'Y' AND
1334: l_last_partial = 'Y'
1335: THEN
1336: l_trx_hdr_rec.percent_rent_due := 0;
1862: FOR vr_rec IN org_c(p_vr_id => p_var_rent_id) LOOP
1863: l_org_id := vr_rec.org_id;
1864: l_vr_commencement_date := vr_rec.commencement_date;
1865: END LOOP;
1866: l_precision := nvl(pn_var_rent_calc_pkg.get_currency_precision(l_org_id),4);
1867: pnp_debug_pkg.log('l_precision:'||l_precision);
1868: FOR first_period_rec IN first_period_cur(p_vr_id => p_var_rent_id) LOOP
1869: l_period_id := first_period_rec.period_id;
1870: END LOOP;
1924: /* not sure abt this part
1925: uncomment the AND inv_rec.total_actual_rent <> 0
1926: part if we do not want to create $0 invoices
1927: */
1928: l_constr_rent := pn_var_rent_calc_pkg.apply_constraints_fy(
1929: p_period_id => l_period_id,
1930: p_invoice_date => inv_rec.invoice_date,
1931: p_actual_rent => inv_rec.total_actual_rent);
1932:
1988: ,p_inv_dt => inv_rec.invoice_date)
1989: LOOP
1990: l_prev_inv_exp_rent := prev_inv_rec.prev_invoiced_amt;
1991: END LOOP;
1992: l_constr_rent := pn_var_rent_calc_pkg.apply_constraints_fy(
1993: p_period_id => l_period_id,
1994: p_invoice_date => inv_rec.invoice_date,
1995: p_actual_rent => inv_rec.total_actual_rent);
1996: /* no invoice to update - create a new one */
2060: DELETE
2061: pn_payment_terms_all
2062: WHERE
2063: var_rent_inv_id = l_var_rent_inv_id AND
2064: status <> pn_var_rent_calc_pkg.G_TERM_STATUS_APPROVED AND
2065: var_rent_type = pn_var_rent_calc_pkg.G_INV_ON_ACTUAL;
2066:
2067: /* update the invoice */
2068: UPDATE
2061: pn_payment_terms_all
2062: WHERE
2063: var_rent_inv_id = l_var_rent_inv_id AND
2064: status <> pn_var_rent_calc_pkg.G_TERM_STATUS_APPROVED AND
2065: var_rent_type = pn_var_rent_calc_pkg.G_INV_ON_ACTUAL;
2066:
2067: /* update the invoice */
2068: UPDATE
2069: pn_var_rent_inv_all
2186: SELECT grp_date_id
2187: FROM pn_var_grp_dates_all
2188: WHERE var_rent_id = ip_var_rent_id
2189: AND invoice_date = ip_invoice_date)
2190: AND vol_hist_status_code = pn_var_rent_calc_pkg.G_SALESVOL_STATUS_APPROVED);
2191:
2192: l_invoice_on VARCHAR2(30);
2193: l_row_id ROWID;
2194: l_var_rent_inv_id NUMBER;
2237: l_org_id := vr_rec.org_id;
2238: l_vr_termination_date := vr_rec.termination_date;
2239: END LOOP;
2240:
2241: l_precision := nvl(pn_var_rent_calc_pkg.get_currency_precision(l_org_id),4);
2242: pnp_debug_pkg.log('l_precision:'||l_precision);
2243:
2244: /* loop for all invoice dates in the period */
2245: FOR inv_rec IN invoice_dates_c( p_vr_id => p_var_rent_id
2288: END LOOP; /* check if there exists an invoice for this invoice date */
2289:
2290:
2291: /* Create the invoice for first partial year separately */
2292: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_LY
2293: ,pn_var_rent_calc_pkg.G_PRORUL_FLY)
2294: AND g_invoice_on = G_INV_ON_ACTUAL
2295: THEN
2296:
2289:
2290:
2291: /* Create the invoice for first partial year separately */
2292: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_LY
2293: ,pn_var_rent_calc_pkg.G_PRORUL_FLY)
2294: AND g_invoice_on = G_INV_ON_ACTUAL
2295: THEN
2296:
2297: FOR rec IN last_period_cur(p_var_rent_id,l_vr_termination_date ) LOOP
2326: inv_rec.invoice_date
2327: ) --
2328: LOOP
2329:
2330: l_constr_rent := pn_var_rent_calc_pkg.apply_constraints(
2331: p_period_id => p_period_id,
2332: p_invoice_date => inv_rec.invoice_date,
2333: p_actual_rent => inv_rec.total_actual_rent);
2334:
2393: ,p_inv_dt => inv_rec.invoice_date)
2394: LOOP
2395: l_prev_inv_exp_rent := prev_inv_rec.prev_invoiced_amt;
2396: END LOOP;
2397: l_constr_rent := pn_var_rent_calc_pkg.apply_constraints(
2398: p_period_id => p_period_id,
2399: p_invoice_date => inv_rec.invoice_date,
2400: p_actual_rent => inv_rec.total_actual_rent);
2401:
2467: DELETE
2468: pn_payment_terms_all
2469: WHERE
2470: var_rent_inv_id = l_var_rent_inv_id AND
2471: status <> pn_var_rent_calc_pkg.G_TERM_STATUS_APPROVED AND
2472: var_rent_type = pn_var_rent_calc_pkg.G_INV_ON_ACTUAL;
2473:
2474: /* update the invoice */
2475: UPDATE
2468: pn_payment_terms_all
2469: WHERE
2470: var_rent_inv_id = l_var_rent_inv_id AND
2471: status <> pn_var_rent_calc_pkg.G_TERM_STATUS_APPROVED AND
2472: var_rent_type = pn_var_rent_calc_pkg.G_INV_ON_ACTUAL;
2473:
2474: /* update the invoice */
2475: UPDATE
2476: pn_var_rent_inv_all
2741: END LOOP;
2742: --
2743: FOR inv_rec IN inv_c(p_var_rent_id, p_period_id, l_vr_termination_date) LOOP
2744: pnp_debug_pkg.log('called apply_def_neg_rent');
2745: pn_var_rent_calc_pkg.apply_def_neg_rent(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2746: pnp_debug_pkg.log('complete');
2747: IF (l_abat_order = pn_var_rent_calc_pkg.G_ALLOWANCE_FIRST) THEN
2748: pnp_debug_pkg.log('call pnp_debug_pkg.log');
2749: pn_var_rent_calc_pkg.apply_allow(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2743: FOR inv_rec IN inv_c(p_var_rent_id, p_period_id, l_vr_termination_date) LOOP
2744: pnp_debug_pkg.log('called apply_def_neg_rent');
2745: pn_var_rent_calc_pkg.apply_def_neg_rent(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2746: pnp_debug_pkg.log('complete');
2747: IF (l_abat_order = pn_var_rent_calc_pkg.G_ALLOWANCE_FIRST) THEN
2748: pnp_debug_pkg.log('call pnp_debug_pkg.log');
2749: pn_var_rent_calc_pkg.apply_allow(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2750: pnp_debug_pkg.log('complete');
2751: END IF;--Apply allowance.
2745: pn_var_rent_calc_pkg.apply_def_neg_rent(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2746: pnp_debug_pkg.log('complete');
2747: IF (l_abat_order = pn_var_rent_calc_pkg.G_ALLOWANCE_FIRST) THEN
2748: pnp_debug_pkg.log('call pnp_debug_pkg.log');
2749: pn_var_rent_calc_pkg.apply_allow(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2750: pnp_debug_pkg.log('complete');
2751: END IF;--Apply allowance.
2752:
2753: pnp_debug_pkg.log('call populate_abat');
2750: pnp_debug_pkg.log('complete');
2751: END IF;--Apply allowance.
2752:
2753: pnp_debug_pkg.log('call populate_abat');
2754: pn_var_rent_calc_pkg.populate_abat(p_var_rent_id , p_period_id, inv_rec.var_rent_inv_id);
2755: pnp_debug_pkg.log('complete');
2756:
2757: pnp_debug_pkg.log('call apply_abat');
2758: pn_var_rent_calc_pkg.apply_abat(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2754: pn_var_rent_calc_pkg.populate_abat(p_var_rent_id , p_period_id, inv_rec.var_rent_inv_id);
2755: pnp_debug_pkg.log('complete');
2756:
2757: pnp_debug_pkg.log('call apply_abat');
2758: pn_var_rent_calc_pkg.apply_abat(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2759: pnp_debug_pkg.log('complete');
2760:
2761: IF(l_abat_order <> pn_var_rent_calc_pkg.G_ALLOWANCE_FIRST) THEN
2762: pnp_debug_pkg.log('call pnp_debug_pkg.log');
2757: pnp_debug_pkg.log('call apply_abat');
2758: pn_var_rent_calc_pkg.apply_abat(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2759: pnp_debug_pkg.log('complete');
2760:
2761: IF(l_abat_order <> pn_var_rent_calc_pkg.G_ALLOWANCE_FIRST) THEN
2762: pnp_debug_pkg.log('call pnp_debug_pkg.log');
2763: pn_var_rent_calc_pkg.apply_allow(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2764: pnp_debug_pkg.log('complete');
2765: END IF;--Apply allowance
2759: pnp_debug_pkg.log('complete');
2760:
2761: IF(l_abat_order <> pn_var_rent_calc_pkg.G_ALLOWANCE_FIRST) THEN
2762: pnp_debug_pkg.log('call pnp_debug_pkg.log');
2763: pn_var_rent_calc_pkg.apply_allow(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2764: pnp_debug_pkg.log('complete');
2765: END IF;--Apply allowance
2766: pnp_debug_pkg.log('called populate_neg_rent');
2767: pn_var_rent_calc_pkg.populate_neg_rent(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2763: pn_var_rent_calc_pkg.apply_allow(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2764: pnp_debug_pkg.log('complete');
2765: END IF;--Apply allowance
2766: pnp_debug_pkg.log('called populate_neg_rent');
2767: pn_var_rent_calc_pkg.populate_neg_rent(p_var_rent_id, p_period_id, inv_rec.var_rent_inv_id, l_abated_rent);
2768: pnp_debug_pkg.log('complete');
2769:
2770:
2771: --
2787: DELETE
2788: pn_payment_terms_all
2789: WHERE
2790: var_rent_inv_id = inv_rec.var_rent_inv_id AND
2791: status <> pn_var_rent_calc_pkg.G_TERM_STATUS_APPROVED AND
2792: var_rent_type = pn_var_rent_calc_pkg.G_INV_ON_ACTUAL;
2793:
2794: -- Update the current invoice
2795: pnp_debug_pkg.log('Abatements - updating');
2788: pn_payment_terms_all
2789: WHERE
2790: var_rent_inv_id = inv_rec.var_rent_inv_id AND
2791: status <> pn_var_rent_calc_pkg.G_TERM_STATUS_APPROVED AND
2792: var_rent_type = pn_var_rent_calc_pkg.G_INV_ON_ACTUAL;
2793:
2794: -- Update the current invoice
2795: pnp_debug_pkg.log('Abatements - updating');
2796: UPDATE
2983: pnp_debug_pkg.log('l_negative_applied:'||l_negative_applied);
2984: END LOOP;
2985: l_negative_remaining := ABS(l_negative_available - l_negative_applied);
2986: pnp_debug_pkg.log('l_negative_remaining:'||l_negative_remaining);
2987: IF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_IGNORE) THEN
2988: l_abated_rent := GREATEST(0, inv_rec.constr_actual_rent);
2989: ELSIF(l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_CREDIT) THEN
2990: l_abated_rent := inv_rec.constr_actual_rent;
2991: ELSE
2985: l_negative_remaining := ABS(l_negative_available - l_negative_applied);
2986: pnp_debug_pkg.log('l_negative_remaining:'||l_negative_remaining);
2987: IF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_IGNORE) THEN
2988: l_abated_rent := GREATEST(0, inv_rec.constr_actual_rent);
2989: ELSIF(l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_CREDIT) THEN
2990: l_abated_rent := inv_rec.constr_actual_rent;
2991: ELSE
2992: -- negative rent is deffred
2993: IF (l_last_invoice_dt <> inv_rec.invoice_date) THEN
3070: WHERE var_rent_id = p_var_rent_id
3071: AND period_id = (SELECT max(period_id)
3072: FROM pn_var_periods_all
3073: WHERE var_rent_id = p_var_rent_id
3074: AND NVL(status, pn_var_rent_calc_pkg.G_PERIOD_ACTIVE_STATUS)
3075: <> pn_var_rent_calc_pkg.G_PERIOD_REVERSED_STATUS);
3076:
3077: CURSOR csr_neg_avail (ip_var_rent_id NUMBER,
3078: ip_invoice_date DATE) IS
3071: AND period_id = (SELECT max(period_id)
3072: FROM pn_var_periods_all
3073: WHERE var_rent_id = p_var_rent_id
3074: AND NVL(status, pn_var_rent_calc_pkg.G_PERIOD_ACTIVE_STATUS)
3075: <> pn_var_rent_calc_pkg.G_PERIOD_REVERSED_STATUS);
3076:
3077: CURSOR csr_neg_avail (ip_var_rent_id NUMBER,
3078: ip_invoice_date DATE) IS
3079: SELECT ABS(NVL(SUM(def_neg_rent),0)) negative_available
3139: pnp_debug_pkg.log('l_negative_applied:'||l_negative_applied);
3140: END LOOP;
3141: l_negative_remaining := ABS(l_negative_available - l_negative_applied);
3142: pnp_debug_pkg.log('l_negative_remaining:'||l_negative_remaining);
3143: IF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_DEFER) THEN
3144: -- Deffered negative rent can be applied only when consT-rent >0
3145: IF (l_last_invoice_dt <> inv_rec.invoice_date AND inv_rec.constr_actual_rent > 0) THEN
3146: --This invoice is not the last invoice
3147: l_abated_rent := GREATEST(0, inv_rec.constr_actual_rent - l_negative_remaining);
3217: WHERE var_rent_id = p_var_rent_id
3218: AND period_id = (SELECT max(period_id)
3219: FROM pn_var_periods_all
3220: WHERE var_rent_id = p_var_rent_id
3221: AND NVL(status, pn_var_rent_calc_pkg.G_PERIOD_ACTIVE_STATUS)
3222: <> pn_var_rent_calc_pkg.G_PERIOD_REVERSED_STATUS);
3223:
3224: CURSOR csr_get_abt(ip_var_rent_id NUMBER)
3225: IS
3218: AND period_id = (SELECT max(period_id)
3219: FROM pn_var_periods_all
3220: WHERE var_rent_id = p_var_rent_id
3221: AND NVL(status, pn_var_rent_calc_pkg.G_PERIOD_ACTIVE_STATUS)
3222: <> pn_var_rent_calc_pkg.G_PERIOD_REVERSED_STATUS);
3223:
3224: CURSOR csr_get_abt(ip_var_rent_id NUMBER)
3225: IS
3226: SELECT negative_rent
3248: pnp_debug_pkg.log('l_last_invoice_dt:'||l_last_invoice_dt);
3249: END LOOP;
3250: -- Loop for all invoices.
3251: FOR inv_rec IN invoices_c(p_var_rent_id, p_period_id, p_inv_id) LOOP
3252: IF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_IGNORE) THEN
3253: --We are ignoring negative rents. Set abated rent =0, if <0.
3254: l_abated_rent := GREATEST(0, x_abated_rent);
3255:
3256: ELSIF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_CREDIT) THEN
3252: IF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_IGNORE) THEN
3253: --We are ignoring negative rents. Set abated rent =0, if <0.
3254: l_abated_rent := GREATEST(0, x_abated_rent);
3255:
3256: ELSIF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_CREDIT) THEN
3257: l_abated_rent := x_abated_rent;
3258: ELSIF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_DEFER
3259: AND inv_rec.invoice_date <> l_last_invoice_dt) THEN
3260: l_abated_rent := GREATEST(0,x_abated_rent);
3254: l_abated_rent := GREATEST(0, x_abated_rent);
3255:
3256: ELSIF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_CREDIT) THEN
3257: l_abated_rent := x_abated_rent;
3258: ELSIF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_DEFER
3259: AND inv_rec.invoice_date <> l_last_invoice_dt) THEN
3260: l_abated_rent := GREATEST(0,x_abated_rent);
3261: l_neg_rent_def := ABS(x_abated_rent - l_abated_rent);
3262: ELSIF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_DEFER
3258: ELSIF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_DEFER
3259: AND inv_rec.invoice_date <> l_last_invoice_dt) THEN
3260: l_abated_rent := GREATEST(0,x_abated_rent);
3261: l_neg_rent_def := ABS(x_abated_rent - l_abated_rent);
3262: ELSIF (l_negative_rent_flag = pn_var_rent_calc_pkg.G_NEG_RENT_DEFER
3263: AND inv_rec.invoice_date = l_last_invoice_dt) THEN
3264: l_abated_rent := x_abated_rent;
3265: END IF;
3266: pnp_debug_pkg.log('l_abated_rent:'||l_abated_rent);
3324: FROM PN_VAR_ABAT_DEFAULTS_ALL
3325: WHERE var_rent_id = ip_var_rent_id
3326: AND start_date <= ip_inv_end_date
3327: AND NVL(end_date, ip_inv_end_date) >= ip_inv_start_date
3328: AND type_code = pn_var_rent_calc_pkg.G_ABAT_TYPE_CODE_ABAT;
3329: -- Get the details of
3330: CURSOR EXCESS_ABAT_C(ip_var_rent_id NUMBER) IS
3331: SELECT EXCESS_ABAT_CODE
3332: FROM PN_VAR_RENTS_ALL ABAT
3448: pnp_debug_pkg.log('l_ly_max_prd_id:'||l_ly_max_prd_id);
3449:
3450: --For LY/FLY, if last period and not last invoice,
3451: -- Invoices are dummy. Return immdiately.
3452: IF (p_period_id = l_ly_max_prd_id AND NOT(p_inv_id = l_ly_max_inv_id) AND l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_FLY, pn_var_rent_calc_pkg.G_PRORUL_LY) ) THEN
3453: pnp_debug_pkg.log('Ly invoice, not last - return immedietly');
3454: RETURN;
3455: END IF;
3456:
3483: l_inv_end_date := inv_dates_rec.inv_end_date;
3484: END LOOP;
3485: --If this invoice is FY/FLY and the first year
3486: --Or proration is LY/FLY and the last invoice
3487: IF ((l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_FY, pn_var_rent_calc_pkg.G_PRORUL_FLY) AND p_inv_id = l_first_inv_id)
3488: OR (l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_LY, pn_var_rent_calc_pkg.G_PRORUL_FLY) AND p_inv_id = l_last_inv_id) ) THEN
3489: --
3490: FOR inv_rec IN invoice_dates_fyly_c(p_inv_id) LOOP
3491: l_inv_start_date := inv_rec.start_date;
3484: END LOOP;
3485: --If this invoice is FY/FLY and the first year
3486: --Or proration is LY/FLY and the last invoice
3487: IF ((l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_FY, pn_var_rent_calc_pkg.G_PRORUL_FLY) AND p_inv_id = l_first_inv_id)
3488: OR (l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_LY, pn_var_rent_calc_pkg.G_PRORUL_FLY) AND p_inv_id = l_last_inv_id) ) THEN
3489: --
3490: FOR inv_rec IN invoice_dates_fyly_c(p_inv_id) LOOP
3491: l_inv_start_date := inv_rec.start_date;
3492: l_inv_end_date := inv_rec.end_date;
3519: l_total_abat := l_fixed_abat + l_rec_abat;
3520: END IF;
3521:
3522: pnp_debug_pkg.log('l_total_abat:'||l_total_abat);
3523: IF (l_excess_abat = pn_var_rent_calc_pkg.G_EXC_ABAT_IGNORE
3524: AND x_abated_rent>0 ) THEN
3525: l_abated_rent := GREATEST(0, x_abated_rent - l_total_abat);
3526: ELSIF (l_excess_abat = pn_var_rent_calc_pkg.G_EXC_ABAT_NEG_RENT ) THEN
3527: l_abated_rent := x_abated_rent - l_total_abat;
3522: pnp_debug_pkg.log('l_total_abat:'||l_total_abat);
3523: IF (l_excess_abat = pn_var_rent_calc_pkg.G_EXC_ABAT_IGNORE
3524: AND x_abated_rent>0 ) THEN
3525: l_abated_rent := GREATEST(0, x_abated_rent - l_total_abat);
3526: ELSIF (l_excess_abat = pn_var_rent_calc_pkg.G_EXC_ABAT_NEG_RENT ) THEN
3527: l_abated_rent := x_abated_rent - l_total_abat;
3528: END IF;
3529:
3530: pnp_debug_pkg.log('l_abated_rent:'||l_abated_rent);
3590: FROM PN_VAR_ABAT_DEFAULTS_ALL
3591: WHERE var_rent_id = ip_var_rent_id
3592: AND start_date <= ip_inv_end_date
3593: AND NVL(end_date, ip_inv_end_date) >= ip_inv_start_date
3594: AND type_code = pn_var_rent_calc_pkg.G_ABAT_TYPE_CODE_ALLO
3595: ORDER BY start_date;
3596: -- Get the details of inv_start, end_date
3597: CURSOR invoice_dates_c(ip_var_rent_id NUMBER,
3598: ip_invoice_date DATE
3683: END LOOP;
3684: --Special FY/LY/FLY handling
3685: --If this invoice is FY/FLY and the first year
3686: --Or proration is LY/FLY and the last invoice
3687: IF ((l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_FY, pn_var_rent_calc_pkg.G_PRORUL_FLY) AND p_inv_id = l_first_inv_id)
3688: OR (l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_LY, pn_var_rent_calc_pkg.G_PRORUL_FLY) AND p_inv_id = l_last_inv_id) ) THEN
3689: --
3690: FOR inv_rec IN invoice_dates_fyly_c(p_inv_id) LOOP
3691: l_inv_start_date := inv_rec.start_date;
3684: --Special FY/LY/FLY handling
3685: --If this invoice is FY/FLY and the first year
3686: --Or proration is LY/FLY and the last invoice
3687: IF ((l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_FY, pn_var_rent_calc_pkg.G_PRORUL_FLY) AND p_inv_id = l_first_inv_id)
3688: OR (l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_LY, pn_var_rent_calc_pkg.G_PRORUL_FLY) AND p_inv_id = l_last_inv_id) ) THEN
3689: --
3690: FOR inv_rec IN invoice_dates_fyly_c(p_inv_id) LOOP
3691: l_inv_start_date := inv_rec.start_date;
3692: l_inv_end_date := inv_rec.end_date;
3832: 'MAX');
3833: --Special FY/LY/FLY handling
3834: --If this invoice is FY/FLY and the first year
3835: --Or proration is LY/FLY and the last invoice
3836: IF ((l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_FY, pn_var_rent_calc_pkg.G_PRORUL_FLY) AND p_inv_id = l_first_inv_id)
3837: OR (l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_LY, pn_var_rent_calc_pkg.G_PRORUL_FLY) AND p_inv_id = l_last_inv_id) ) THEN
3838: --
3839: FOR inv_rec IN invoice_dates_fyly_c(p_inv_id) LOOP
3840: l_min_grp_date := inv_rec.start_date;
3833: --Special FY/LY/FLY handling
3834: --If this invoice is FY/FLY and the first year
3835: --Or proration is LY/FLY and the last invoice
3836: IF ((l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_FY, pn_var_rent_calc_pkg.G_PRORUL_FLY) AND p_inv_id = l_first_inv_id)
3837: OR (l_proration_type IN (pn_var_rent_calc_pkg.G_PRORUL_LY, pn_var_rent_calc_pkg.G_PRORUL_FLY) AND p_inv_id = l_last_inv_id) ) THEN
3838: --
3839: FOR inv_rec IN invoice_dates_fyly_c(p_inv_id) LOOP
3840: l_min_grp_date := inv_rec.start_date;
3841: l_max_grp_date := inv_rec.end_date;
3844: l_rec_abatement := pn_var_abatement_amount_pkg.calc_abatement(
3845: inv_rec.var_rent_inv_id
3846: ,l_min_grp_date
3847: ,l_max_grp_date);
3848: g_precision := nvl(pn_var_rent_calc_pkg.get_currency_precision(g_org_id),4);
3849: UPDATE pn_var_rent_inv_all
3850: SET rec_abatement = ROUND(l_rec_abatement, g_precision)
3851: WHERE var_rent_inv_id = inv_rec.var_rent_inv_id;
3852:
3925: FROM
3926: pn_var_periods_all
3927: WHERE
3928: var_rent_id = p_vr_id AND
3929: NVL(status, pn_var_rent_calc_pkg.G_PERIOD_ACTIVE_STATUS)
3930: <> pn_var_rent_calc_pkg.G_PERIOD_REVERSED_STATUS
3931: ORDER BY
3932: start_date;
3933:
3926: pn_var_periods_all
3927: WHERE
3928: var_rent_id = p_vr_id AND
3929: NVL(status, pn_var_rent_calc_pkg.G_PERIOD_ACTIVE_STATUS)
3930: <> pn_var_rent_calc_pkg.G_PERIOD_REVERSED_STATUS
3931: ORDER BY
3932: start_date;
3933:
3934: /* get all periods for VR */
3963: FROM
3964: pn_var_periods_all
3965: WHERE
3966: var_rent_id = p_vr_id AND
3967: NVL(status, pn_var_rent_calc_pkg.G_PERIOD_ACTIVE_STATUS)
3968: <> pn_var_rent_calc_pkg.G_PERIOD_REVERSED_STATUS AND
3969: start_date < (SELECT start_date
3970: FROM pn_var_periods_all
3971: WHERE period_id = p_prd_id)
3964: pn_var_periods_all
3965: WHERE
3966: var_rent_id = p_vr_id AND
3967: NVL(status, pn_var_rent_calc_pkg.G_PERIOD_ACTIVE_STATUS)
3968: <> pn_var_rent_calc_pkg.G_PERIOD_REVERSED_STATUS AND
3969: start_date < (SELECT start_date
3970: FROM pn_var_periods_all
3971: WHERE period_id = p_prd_id)
3972: ORDER BY
3996:
3997: l_prev_grp_date_id NUMBER;
3998: l_first_period_id NUMBER := 0;
3999:
4000: l_trx_hrd_r pn_var_rent_calc_pkg.trx_hdr_c%ROWTYPE;
4001: l_trx_hrd_for_r pn_var_rent_calc_pkg.trx_hdr_for_c%ROWTYPE;
4002: l_trx_hrd_t pn_var_rent_calc_pkg.TRX_HDR_TBL;
4003: l_trx_hrd_for_t pn_var_rent_calc_pkg.TRX_HEADER_TBL;
4004:
3997: l_prev_grp_date_id NUMBER;
3998: l_first_period_id NUMBER := 0;
3999:
4000: l_trx_hrd_r pn_var_rent_calc_pkg.trx_hdr_c%ROWTYPE;
4001: l_trx_hrd_for_r pn_var_rent_calc_pkg.trx_hdr_for_c%ROWTYPE;
4002: l_trx_hrd_t pn_var_rent_calc_pkg.TRX_HDR_TBL;
4003: l_trx_hrd_for_t pn_var_rent_calc_pkg.TRX_HEADER_TBL;
4004:
4005: l_context VARCHAR2(255);
3998: l_first_period_id NUMBER := 0;
3999:
4000: l_trx_hrd_r pn_var_rent_calc_pkg.trx_hdr_c%ROWTYPE;
4001: l_trx_hrd_for_r pn_var_rent_calc_pkg.trx_hdr_for_c%ROWTYPE;
4002: l_trx_hrd_t pn_var_rent_calc_pkg.TRX_HDR_TBL;
4003: l_trx_hrd_for_t pn_var_rent_calc_pkg.TRX_HEADER_TBL;
4004:
4005: l_context VARCHAR2(255);
4006: l_first_inv_dt DATE ;
3999:
4000: l_trx_hrd_r pn_var_rent_calc_pkg.trx_hdr_c%ROWTYPE;
4001: l_trx_hrd_for_r pn_var_rent_calc_pkg.trx_hdr_for_c%ROWTYPE;
4002: l_trx_hrd_t pn_var_rent_calc_pkg.TRX_HDR_TBL;
4003: l_trx_hrd_for_t pn_var_rent_calc_pkg.TRX_HEADER_TBL;
4004:
4005: l_context VARCHAR2(255);
4006: l_first_inv_dt DATE ;
4007: l_partial_prd_id NUMBER:=NULL;
4014: /* ------------------------------- CODE BEGIN ------------------------------- */
4015: /* -------------------------------------------------------------------------- */
4016:
4017: /* cache VR details */
4018: l_context := 'Call pn_var_rent_calc_pkg.cache_vr_details';
4019:
4020: pn_var_rent_calc_pkg.cache_vr_details(p_var_rent_id => p_var_rent_id);
4021:
4022: pnp_debug_pkg.log(l_context||' COMPLETE');
4016:
4017: /* cache VR details */
4018: l_context := 'Call pn_var_rent_calc_pkg.cache_vr_details';
4019:
4020: pn_var_rent_calc_pkg.cache_vr_details(p_var_rent_id => p_var_rent_id);
4021:
4022: pnp_debug_pkg.log(l_context||' COMPLETE');
4023:
4024: /* check if trx tables need to be updated for change in bkts */
4120:
4121: /* loop for all trx in the period,
4122: order by line item, calc (sub) period start*/
4123: /*Populate actual rents in trx tables.*/
4124: OPEN pn_var_rent_calc_pkg.trx_hdr_c
4125: ( p_vr_id => p_var_rent_id
4126: ,p_prd_id => l_periods_t(p).period_id);
4127: FETCH pn_var_rent_calc_pkg.trx_hdr_c BULK COLLECT INTO l_trx_hrd_t;
4128: CLOSE pn_var_rent_calc_pkg.trx_hdr_c;
4123: /*Populate actual rents in trx tables.*/
4124: OPEN pn_var_rent_calc_pkg.trx_hdr_c
4125: ( p_vr_id => p_var_rent_id
4126: ,p_prd_id => l_periods_t(p).period_id);
4127: FETCH pn_var_rent_calc_pkg.trx_hdr_c BULK COLLECT INTO l_trx_hrd_t;
4128: CLOSE pn_var_rent_calc_pkg.trx_hdr_c;
4129:
4130: pnp_debug_pkg.log(l_context||' COMPLETE');
4131: pnp_debug_pkg.log('');
4124: OPEN pn_var_rent_calc_pkg.trx_hdr_c
4125: ( p_vr_id => p_var_rent_id
4126: ,p_prd_id => l_periods_t(p).period_id);
4127: FETCH pn_var_rent_calc_pkg.trx_hdr_c BULK COLLECT INTO l_trx_hrd_t;
4128: CLOSE pn_var_rent_calc_pkg.trx_hdr_c;
4129:
4130: pnp_debug_pkg.log(l_context||' COMPLETE');
4131: pnp_debug_pkg.log('');
4132:
4150: /* if we need to create an invoice for this calc (sub) period
4151: AND if approved sales exist
4152: */
4153: IF NVL(l_trx_hrd_t(t).invoice_flag, 'Y') <> 'N' AND
4154: pn_var_rent_calc_pkg.exists_approved_sales
4155: ( p_line_item_id => l_trx_hrd_t(t).line_item_id
4156: ,p_grp_date_id => l_trx_hrd_t(t).grp_date_id)
4157: THEN
4158:
4157: THEN
4158:
4159: l_trx_hrd_r := l_trx_hrd_t(t);
4160:
4161: l_context := 'Call pn_var_rent_calc_pkg.get_rent_applicable';
4162: pn_var_rent_calc_pkg.get_rent_applicable(l_trx_hrd_r);
4163: pnp_debug_pkg.log(l_context||' COMPLETE');
4164: pnp_debug_pkg.log('');
4165:
4158:
4159: l_trx_hrd_r := l_trx_hrd_t(t);
4160:
4161: l_context := 'Call pn_var_rent_calc_pkg.get_rent_applicable';
4162: pn_var_rent_calc_pkg.get_rent_applicable(l_trx_hrd_r);
4163: pnp_debug_pkg.log(l_context||' COMPLETE');
4164: pnp_debug_pkg.log('');
4165:
4166: /* if rent changed */
4213: /* loop for all trx in the period,
4214: order by line item, calc (sub) period start*/
4215: /*Populate actual rents in trx tables.*/
4216: /*Populate forecasted rents in the trx tables.*/
4217: OPEN pn_var_rent_calc_pkg.trx_hdr_for_c
4218: ( p_vr_id => p_var_rent_id
4219: ,p_prd_id => l_periods_t(p).period_id);
4220: FETCH pn_var_rent_calc_pkg.trx_hdr_for_c BULK COLLECT INTO l_trx_hrd_for_t;
4221: CLOSE pn_var_rent_calc_pkg.trx_hdr_for_c;
4216: /*Populate forecasted rents in the trx tables.*/
4217: OPEN pn_var_rent_calc_pkg.trx_hdr_for_c
4218: ( p_vr_id => p_var_rent_id
4219: ,p_prd_id => l_periods_t(p).period_id);
4220: FETCH pn_var_rent_calc_pkg.trx_hdr_for_c BULK COLLECT INTO l_trx_hrd_for_t;
4221: CLOSE pn_var_rent_calc_pkg.trx_hdr_for_c;
4222:
4223: pnp_debug_pkg.log(l_context||' COMPLETE');
4224: pnp_debug_pkg.log('');
4217: OPEN pn_var_rent_calc_pkg.trx_hdr_for_c
4218: ( p_vr_id => p_var_rent_id
4219: ,p_prd_id => l_periods_t(p).period_id);
4220: FETCH pn_var_rent_calc_pkg.trx_hdr_for_c BULK COLLECT INTO l_trx_hrd_for_t;
4221: CLOSE pn_var_rent_calc_pkg.trx_hdr_for_c;
4222:
4223: pnp_debug_pkg.log(l_context||' COMPLETE');
4224: pnp_debug_pkg.log('');
4225:
4244: */
4245: IF NVL(l_trx_hrd_for_t(t).invoice_flag, 'Y') <> 'N'
4246: /*This will not be needed when invoicing on forecasted
4247: AND
4248: pn_var_rent_calc_pkg.exists_approved_sales
4249: ( p_line_item_id => l_trx_hrd_for_t(t).line_item_id
4250: ,p_grp_date_id => l_trx_hrd_for_t(t).grp_date_id)*/
4251: THEN
4252:
4251: THEN
4252:
4253: l_trx_hrd_for_r := l_trx_hrd_for_t(t);
4254:
4255: l_context := 'Call pn_var_rent_calc_pkg.get_rent_applicable_for';
4256: pn_var_rent_calc_pkg.get_rent_applicable_for(l_trx_hrd_for_r);
4257: pnp_debug_pkg.log(l_context||' COMPLETE');
4258: pnp_debug_pkg.log('');
4259:
4252:
4253: l_trx_hrd_for_r := l_trx_hrd_for_t(t);
4254:
4255: l_context := 'Call pn_var_rent_calc_pkg.get_rent_applicable_for';
4256: pn_var_rent_calc_pkg.get_rent_applicable_for(l_trx_hrd_for_r);
4257: pnp_debug_pkg.log(l_context||' COMPLETE');
4258: pnp_debug_pkg.log('');
4259:
4260: /* if rent changed */
4333: END IF;
4334:
4335: pnp_debug_pkg.log('set partial flag');
4336: -- Set l_partial_prd_id if 1st partial period exists and proration rule is FY/FLY
4337: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_FY
4338: ,pn_var_rent_calc_pkg.G_PRORUL_FLY) THEN
4339: FOR fst_rec IN check_fst_partial_prd(p_var_rent_id) LOOP
4340: l_partial_prd_id:= fst_rec.period_id;
4341: END LOOP;
4334:
4335: pnp_debug_pkg.log('set partial flag');
4336: -- Set l_partial_prd_id if 1st partial period exists and proration rule is FY/FLY
4337: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_FY
4338: ,pn_var_rent_calc_pkg.G_PRORUL_FLY) THEN
4339: FOR fst_rec IN check_fst_partial_prd(p_var_rent_id) LOOP
4340: l_partial_prd_id:= fst_rec.period_id;
4341: END LOOP;
4342: END IF;
4347: -- IF 1st partial period exists then call pop_inv_date_tab_firstyr ,to populate
4348: -- invoice dates from 2nd annual period
4349: -- ELSE call pop_inv_date_tab
4350: IF l_partial_prd_id IS NOT NULL THEN
4351: pn_var_rent_calc_pkg.pop_inv_date_tab_firstyr(p_var_rent_id => p_var_rent_id ,
4352: p_status => 'APPROVED');
4353: ELSE
4354: pn_var_rent_calc_pkg.pop_inv_date_tab(p_var_rent_id => p_var_rent_id ,
4355: p_status => 'APPROVED');
4350: IF l_partial_prd_id IS NOT NULL THEN
4351: pn_var_rent_calc_pkg.pop_inv_date_tab_firstyr(p_var_rent_id => p_var_rent_id ,
4352: p_status => 'APPROVED');
4353: ELSE
4354: pn_var_rent_calc_pkg.pop_inv_date_tab(p_var_rent_id => p_var_rent_id ,
4355: p_status => 'APPROVED');
4356: END IF;
4357:
4358: /*pnp_debug_pkg.log('data in inv_date_tab');
4374: LOOP
4375: IF(g_invoice_on=G_INV_ON_ACTUAL) OR (g_invoice_on=G_INV_ON_FORECASTED
4376: AND g_calc_type= G_CALC_TYPE_RECONCILE)
4377: THEN
4378: l_context := 'Call pn_var_rent_calc_pkg.post_summary';
4379:
4380: /* IF NOT ( g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_FY
4381: ,pn_var_rent_calc_pkg.G_PRORUL_FLY)
4382: AND (l_first_period_id = l_periods_t(p).period_id)
4376: AND g_calc_type= G_CALC_TYPE_RECONCILE)
4377: THEN
4378: l_context := 'Call pn_var_rent_calc_pkg.post_summary';
4379:
4380: /* IF NOT ( g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_FY
4381: ,pn_var_rent_calc_pkg.G_PRORUL_FLY)
4382: AND (l_first_period_id = l_periods_t(p).period_id)
4383: AND l_partial_period = 'Y')
4384: THEN*/
4377: THEN
4378: l_context := 'Call pn_var_rent_calc_pkg.post_summary';
4379:
4380: /* IF NOT ( g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_FY
4381: ,pn_var_rent_calc_pkg.G_PRORUL_FLY)
4382: AND (l_first_period_id = l_periods_t(p).period_id)
4383: AND l_partial_period = 'Y')
4384: THEN*/
4385: pn_var_rent_calc_pkg.post_summary
4381: ,pn_var_rent_calc_pkg.G_PRORUL_FLY)
4382: AND (l_first_period_id = l_periods_t(p).period_id)
4383: AND l_partial_period = 'Y')
4384: THEN*/
4385: pn_var_rent_calc_pkg.post_summary
4386: ( p_var_rent_id => p_var_rent_id
4387: ,p_period_id => l_periods_t(p).period_id);
4388: pnp_debug_pkg.log(l_context||' COMPLETE');
4389: pnp_debug_pkg.log('');
4390: /*END IF; */
4391:
4392: ELSIF (g_invoice_on=G_INV_ON_FORECASTED AND g_calc_type= G_CALC_TYPE_CALCULATE)
4393: THEN
4394: l_context := 'Call pn_var_rent_calc_pkg.post_summary_for';
4395: pn_var_rent_calc_pkg.post_summary_for
4396: ( p_var_rent_id => p_var_rent_id
4397: ,p_period_id => l_periods_t(p).period_id);
4398: pnp_debug_pkg.log(l_context||' COMPLETE');
4391:
4392: ELSIF (g_invoice_on=G_INV_ON_FORECASTED AND g_calc_type= G_CALC_TYPE_CALCULATE)
4393: THEN
4394: l_context := 'Call pn_var_rent_calc_pkg.post_summary_for';
4395: pn_var_rent_calc_pkg.post_summary_for
4396: ( p_var_rent_id => p_var_rent_id
4397: ,p_period_id => l_periods_t(p).period_id);
4398: pnp_debug_pkg.log(l_context||' COMPLETE');
4399: pnp_debug_pkg.log('');
4399: pnp_debug_pkg.log('');
4400:
4401: END IF;/*End invoice type and calc_type*/
4402:
4403: l_context := 'Call pn_var_rent_calc_pkg.insert_invoice';
4404: IF g_invoice_on = G_INV_ON_ACTUAL THEN
4405:
4406: IF NOT ( g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_FY
4407: ,pn_var_rent_calc_pkg.G_PRORUL_FLY)
4402:
4403: l_context := 'Call pn_var_rent_calc_pkg.insert_invoice';
4404: IF g_invoice_on = G_INV_ON_ACTUAL THEN
4405:
4406: IF NOT ( g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_FY
4407: ,pn_var_rent_calc_pkg.G_PRORUL_FLY)
4408: AND (l_first_period_id = l_periods_t(p).period_id)
4409: AND l_partial_period = 'Y')
4410: THEN
4403: l_context := 'Call pn_var_rent_calc_pkg.insert_invoice';
4404: IF g_invoice_on = G_INV_ON_ACTUAL THEN
4405:
4406: IF NOT ( g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_FY
4407: ,pn_var_rent_calc_pkg.G_PRORUL_FLY)
4408: AND (l_first_period_id = l_periods_t(p).period_id)
4409: AND l_partial_period = 'Y')
4410: THEN
4411: pn_var_rent_calc_pkg.insert_invoice
4407: ,pn_var_rent_calc_pkg.G_PRORUL_FLY)
4408: AND (l_first_period_id = l_periods_t(p).period_id)
4409: AND l_partial_period = 'Y')
4410: THEN
4411: pn_var_rent_calc_pkg.insert_invoice
4412: ( p_var_rent_id => p_var_rent_id
4413: ,p_period_id => l_periods_t(p).period_id);
4414: END IF;
4415:
4413: ,p_period_id => l_periods_t(p).period_id);
4414: END IF;
4415:
4416: ELSIF g_invoice_on = G_INV_ON_FORECASTED THEN
4417: pn_var_rent_calc_pkg.insert_invoice_for
4418: ( p_var_rent_id => p_var_rent_id
4419: ,p_period_id => l_periods_t(p).period_id);
4420:
4421: END IF;
4425:
4426: END LOOP;/*End loop for all periods*/
4427:
4428: /* Create the invoice for first partial year separately */
4429: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_FY
4430: ,pn_var_rent_calc_pkg.G_PRORUL_FLY)
4431: AND g_invoice_on = G_INV_ON_ACTUAL AND l_partial_period = 'Y'
4432: THEN
4433:
4426: END LOOP;/*End loop for all periods*/
4427:
4428: /* Create the invoice for first partial year separately */
4429: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_FY
4430: ,pn_var_rent_calc_pkg.G_PRORUL_FLY)
4431: AND g_invoice_on = G_INV_ON_ACTUAL AND l_partial_period = 'Y'
4432: THEN
4433:
4434: /*post_summary_firstyr (p_var_rent_id => p_var_rent_id);*/
4432: THEN
4433:
4434: /*post_summary_firstyr (p_var_rent_id => p_var_rent_id);*/
4435:
4436: /*pn_var_rent_calc_pkg.*/insert_invoice_firstyr( p_var_rent_id => p_var_rent_id );
4437: END IF;
4438:
4439: END IF;/*End insert invoice/post summary*/
4440:
4443: -- call ROLL_FWD_PARTIAL_PRD ,INCLUDE_INCREASES_FIRSTYR
4444: -- ELSE call ROLL_FWD_SELECNS
4445:
4446: IF l_partial_prd_id IS NOT NULL THEN
4447: pn_var_rent_calc_pkg.ROLL_FWD_PARTIAL_PRD(p_var_rent_id => p_var_rent_id);
4448: pn_var_rent_calc_pkg.INCLUDE_INCREASES_FIRSTYR(p_var_rent_id => p_var_rent_id);
4449: ELSE
4450: pn_var_rent_calc_pkg.ROLL_FWD_SELECNS(p_var_rent_id => p_var_rent_id);
4451: END IF;
4444: -- ELSE call ROLL_FWD_SELECNS
4445:
4446: IF l_partial_prd_id IS NOT NULL THEN
4447: pn_var_rent_calc_pkg.ROLL_FWD_PARTIAL_PRD(p_var_rent_id => p_var_rent_id);
4448: pn_var_rent_calc_pkg.INCLUDE_INCREASES_FIRSTYR(p_var_rent_id => p_var_rent_id);
4449: ELSE
4450: pn_var_rent_calc_pkg.ROLL_FWD_SELECNS(p_var_rent_id => p_var_rent_id);
4451: END IF;
4452:
4446: IF l_partial_prd_id IS NOT NULL THEN
4447: pn_var_rent_calc_pkg.ROLL_FWD_PARTIAL_PRD(p_var_rent_id => p_var_rent_id);
4448: pn_var_rent_calc_pkg.INCLUDE_INCREASES_FIRSTYR(p_var_rent_id => p_var_rent_id);
4449: ELSE
4450: pn_var_rent_calc_pkg.ROLL_FWD_SELECNS(p_var_rent_id => p_var_rent_id);
4451: END IF;
4452:
4453: -- If proration rule = LY,FLY then call separate roll forward for last partial period
4454: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_LY
4450: pn_var_rent_calc_pkg.ROLL_FWD_SELECNS(p_var_rent_id => p_var_rent_id);
4451: END IF;
4452:
4453: -- If proration rule = LY,FLY then call separate roll forward for last partial period
4454: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_LY
4455: ,pn_var_rent_calc_pkg.G_PRORUL_FLY) THEN
4456: pn_var_rent_calc_pkg.ROLL_FWD_LST_PARTIAL_PRD(p_var_rent_id => p_var_rent_id);
4457: END IF;
4458:
4451: END IF;
4452:
4453: -- If proration rule = LY,FLY then call separate roll forward for last partial period
4454: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_LY
4455: ,pn_var_rent_calc_pkg.G_PRORUL_FLY) THEN
4456: pn_var_rent_calc_pkg.ROLL_FWD_LST_PARTIAL_PRD(p_var_rent_id => p_var_rent_id);
4457: END IF;
4458:
4459: -- Roll forward for including rent increase terms
4452:
4453: -- If proration rule = LY,FLY then call separate roll forward for last partial period
4454: IF g_proration_rule IN ( pn_var_rent_calc_pkg.G_PRORUL_LY
4455: ,pn_var_rent_calc_pkg.G_PRORUL_FLY) THEN
4456: pn_var_rent_calc_pkg.ROLL_FWD_LST_PARTIAL_PRD(p_var_rent_id => p_var_rent_id);
4457: END IF;
4458:
4459: -- Roll forward for including rent increase terms
4460: pn_var_rent_calc_pkg.INCLUDE_INCREASES(p_var_rent_id => p_var_rent_id);
4456: pn_var_rent_calc_pkg.ROLL_FWD_LST_PARTIAL_PRD(p_var_rent_id => p_var_rent_id);
4457: END IF;
4458:
4459: -- Roll forward for including rent increase terms
4460: pn_var_rent_calc_pkg.INCLUDE_INCREASES(p_var_rent_id => p_var_rent_id);
4461: inv_date_tab.delete;
4462: g_partial_prd_flag := NULL; -- clearing the roll fwd flag of 1st partial prd
4463:
4464: --Reset abatements for the periods for which we donot re-calculate
4461: inv_date_tab.delete;
4462: g_partial_prd_flag := NULL; -- clearing the roll fwd flag of 1st partial prd
4463:
4464: --Reset abatements for the periods for which we donot re-calculate
4465: pn_var_rent_calc_pkg.reset_abatements(p_var_rent_id);
4466: pnp_debug_pkg.log('g_calculation_method3:'||g_calculation_method);
4467: IF l_periods_out_t.COUNT > 0 THEN
4468: FOR p IN l_periods_out_t.FIRST..l_periods_out_t.LAST --
4469: --
4478: ,p_flag => 'RESET');
4479: ELSE
4480: --No need to take trueup invoices into account.
4481: pnp_debug_pkg.log('Not true up');
4482: pn_var_rent_calc_pkg.apply_abatements
4483: ( p_var_rent_id => p_var_rent_id
4484: ,p_period_id => l_periods_out_t(p).period_id
4485: ,p_flag => 'RESET');
4486:
4504: ,p_flag => 'CALCULATE');
4505: ELSE
4506: pnp_debug_pkg.log('Not true up');
4507: --No need to take trueup invoices into account.
4508: pn_var_rent_calc_pkg.apply_abatements
4509: ( p_var_rent_id => p_var_rent_id
4510: ,p_period_id => l_periods_t(p).period_id
4511: ,p_flag => 'CALCULATE');
4512:
4514: END LOOP;
4515: END IF;
4516:
4517: /* deletes the draft term for which invoice_date or term template has changed.*/
4518: pn_var_rent_calc_pkg.delete_draft_terms( p_var_rent_id => p_var_rent_id);
4519:
4520: l_context := 'Loop for all cached periods';
4521: pnp_debug_pkg.log(l_context||' COMPLETE');
4522: pnp_debug_pkg.log('');
4676: FOR vr_rec IN org_c(p_vr_id => p_var_rent_id) LOOP
4677: l_org_id := vr_rec.org_id;
4678: END LOOP;
4679:
4680: l_precision := nvl(pn_var_rent_calc_pkg.get_currency_precision(l_org_id),4);
4681: pnp_debug_pkg.log('l_precision:'||l_precision);
4682:
4683: l_calc_type := g_calc_type;
4684: pnp_debug_pkg.log('calc_type:'|| l_calc_type);
4812: DELETE
4813: pn_payment_terms_all
4814: WHERE
4815: var_rent_inv_id = l_var_rent_inv_id AND
4816: status <> pn_var_rent_calc_pkg.G_TERM_STATUS_APPROVED AND
4817: var_rent_type = pn_var_rent_calc_pkg.G_INV_ON_FORECASTED;
4818:
4819: /* update the invoice */
4820: /*Since forcasted rents are not yet exported, we can update them.*/
4813: pn_payment_terms_all
4814: WHERE
4815: var_rent_inv_id = l_var_rent_inv_id AND
4816: status <> pn_var_rent_calc_pkg.G_TERM_STATUS_APPROVED AND
4817: var_rent_type = pn_var_rent_calc_pkg.G_INV_ON_FORECASTED;
4818:
4819: /* update the invoice */
4820: /*Since forcasted rents are not yet exported, we can update them.*/
4821: UPDATE
4894: LOOP
4895: l_prev_inv_exp_rent := prev_inv_rec.prev_invoiced_amt;
4896: END LOOP;
4897:
4898: l_constr_rent := pn_var_rent_calc_pkg.apply_constraints(
4899: p_period_id => p_period_id,
4900: p_invoice_date => inv_rec.invoice_date,
4901: p_actual_rent => inv_rec.total_actual_rent);
4902: --TODO.......
4964: DELETE
4965: pn_payment_terms_all
4966: WHERE
4967: var_rent_inv_id = l_var_rent_inv_id AND
4968: status <> pn_var_rent_calc_pkg.G_TERM_STATUS_APPROVED AND
4969: var_rent_type = pn_var_rent_calc_pkg.G_INV_ON_FORECASTED;
4970:
4971: /* update the invoice */
4972: UPDATE
4965: pn_payment_terms_all
4966: WHERE
4967: var_rent_inv_id = l_var_rent_inv_id AND
4968: status <> pn_var_rent_calc_pkg.G_TERM_STATUS_APPROVED AND
4969: var_rent_type = pn_var_rent_calc_pkg.G_INV_ON_FORECASTED;
4970:
4971: /* update the invoice */
4972: UPDATE
4973: pn_var_rent_inv_all
5014: --
5015: -- 18.Sep.06 Shabda o Created
5016: --------------------------------------------------------------------------------
5017: PROCEDURE get_rent_applicable_for
5018: (p_trx_hdr_rec IN OUT NOCOPY pn_var_rent_calc_pkg.trx_hdr_for_c%ROWTYPE)
5019: IS
5020:
5021: /* cache trx hdr passed */
5022: l_trx_hdr_rec pn_var_rent_calc_pkg.trx_hdr_for_c%ROWTYPE;
5018: (p_trx_hdr_rec IN OUT NOCOPY pn_var_rent_calc_pkg.trx_hdr_for_c%ROWTYPE)
5019: IS
5020:
5021: /* cache trx hdr passed */
5022: l_trx_hdr_rec pn_var_rent_calc_pkg.trx_hdr_for_c%ROWTYPE;
5023:
5024: /* get bkpt type */
5025: CURSOR bkpt_type_c(p_bkdt_id IN NUMBER) IS
5026: SELECT
5059: FROM
5060: pn_var_periods_all
5061: WHERE
5062: var_rent_id = p_vr_id AND
5063: NVL(status, 'A') <> pn_var_rent_calc_pkg.G_PERIOD_REVERSED_STATUS;
5064:
5065: /* get the last partial period */
5066: CURSOR last_period_c( p_vr_id IN NUMBER) IS
5067: SELECT
5114: g_negative_rent IS NULL
5115: THEN
5116:
5117: /* cache VR details */
5118: pn_var_rent_calc_pkg.cache_vr_details
5119: (p_var_rent_id => l_trx_hdr_rec.var_rent_id);
5120:
5121: END IF;
5122:
5122:
5123: /* cache bkpt details */
5124: l_bkpts_t.DELETE;
5125:
5126: OPEN pn_var_rent_calc_pkg.trx_dtl_c(p_hdr_id => p_trx_hdr_rec.trx_header_id);
5127: FETCH pn_var_rent_calc_pkg.trx_dtl_c BULK COLLECT INTO l_bkpts_t;
5128: CLOSE pn_var_rent_calc_pkg.trx_dtl_c;
5129:
5130: /* get the breakpoint type - flat, sliding, stratified */
5123: /* cache bkpt details */
5124: l_bkpts_t.DELETE;
5125:
5126: OPEN pn_var_rent_calc_pkg.trx_dtl_c(p_hdr_id => p_trx_hdr_rec.trx_header_id);
5127: FETCH pn_var_rent_calc_pkg.trx_dtl_c BULK COLLECT INTO l_bkpts_t;
5128: CLOSE pn_var_rent_calc_pkg.trx_dtl_c;
5129:
5130: /* get the breakpoint type - flat, sliding, stratified */
5131: FOR rec IN bkpt_type_c(p_bkdt_id => l_bkpts_t(1).bkpt_detail_id)
5124: l_bkpts_t.DELETE;
5125:
5126: OPEN pn_var_rent_calc_pkg.trx_dtl_c(p_hdr_id => p_trx_hdr_rec.trx_header_id);
5127: FETCH pn_var_rent_calc_pkg.trx_dtl_c BULK COLLECT INTO l_bkpts_t;
5128: CLOSE pn_var_rent_calc_pkg.trx_dtl_c;
5129:
5130: /* get the breakpoint type - flat, sliding, stratified */
5131: FOR rec IN bkpt_type_c(p_bkdt_id => l_bkpts_t(1).bkpt_detail_id)
5132: LOOP
5133: pnp_debug_pkg.log('Breakpoint Type:'||rec.breakpoint_type);
5134: l_bkpt_type := rec.breakpoint_type;
5135: END LOOP;
5136:
5137: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
5138: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
5139: THEN
5140: l_net_volume := l_trx_hdr_rec.prorated_group_sales_for;
5141:
5134: l_bkpt_type := rec.breakpoint_type;
5135: END LOOP;
5136:
5137: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
5138: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
5139: THEN
5140: l_net_volume := l_trx_hdr_rec.prorated_group_sales_for;
5141:
5142: ELSIF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
5138: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
5139: THEN
5140: l_net_volume := l_trx_hdr_rec.prorated_group_sales_for;
5141:
5142: ELSIF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
5143: ,pn_var_rent_calc_pkg.G_CALC_YTD)
5144: THEN
5145: l_net_volume := l_trx_hdr_rec.ytd_sales_for;
5146:
5139: THEN
5140: l_net_volume := l_trx_hdr_rec.prorated_group_sales_for;
5141:
5142: ELSIF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
5143: ,pn_var_rent_calc_pkg.G_CALC_YTD)
5144: THEN
5145: l_net_volume := l_trx_hdr_rec.ytd_sales_for;
5146:
5147: END IF;
5148: pnp_debug_pkg.log('l_net_volume'||l_net_volume);
5149: /* handling the case of volume not tripping any bkpts */
5150: /* init the calculated rent to 0 - it will be re-calculated */
5151: l_trx_hdr_rec.calculated_rent_for := 0;
5152: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
5153: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
5154: AND
5155: (l_net_volume < l_bkpts_t(1).prorated_grp_vol_start)
5156:
5149: /* handling the case of volume not tripping any bkpts */
5150: /* init the calculated rent to 0 - it will be re-calculated */
5151: l_trx_hdr_rec.calculated_rent_for := 0;
5152: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
5153: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
5154: AND
5155: (l_net_volume < l_bkpts_t(1).prorated_grp_vol_start)
5156:
5157: THEN
5171:
5172: /* --------------------- GET calculated_rent START --------------------- */
5173: /* get l_trx_hdr_rec.calculated_rent - CALCULATED RENT */
5174:
5175: IF l_bkpt_type = pn_var_rent_calc_pkg.G_BKPT_TYP_STRATIFIED
5176: THEN
5177:
5178: l_trx_hdr_rec.calculated_rent_for := 0;
5179:
5179:
5180: /* loop for all bkpt details */
5181: FOR i IN l_bkpts_t.FIRST..l_bkpts_t.LAST LOOP
5182:
5183: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
5184: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
5185: THEN
5186:
5187: l_bkpt_start := l_bkpts_t(i).prorated_grp_vol_start;
5180: /* loop for all bkpt details */
5181: FOR i IN l_bkpts_t.FIRST..l_bkpts_t.LAST LOOP
5182:
5183: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
5184: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
5185: THEN
5186:
5187: l_bkpt_start := l_bkpts_t(i).prorated_grp_vol_start;
5188: l_bkpt_end := l_bkpts_t(i).prorated_grp_vol_end;
5187: l_bkpt_start := l_bkpts_t(i).prorated_grp_vol_start;
5188: l_bkpt_end := l_bkpts_t(i).prorated_grp_vol_end;
5189:
5190:
5191: ELSIF g_calculation_method = pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
5192: THEN
5193: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_NP THEN
5194:
5195: l_bkpt_start := l_bkpts_t(i).prorated_grp_vol_start;
5189:
5190:
5191: ELSIF g_calculation_method = pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
5192: THEN
5193: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_NP THEN
5194:
5195: l_bkpt_start := l_bkpts_t(i).prorated_grp_vol_start;
5196: l_bkpt_end := l_bkpts_t(i).prorated_grp_vol_end;
5197:
5201: l_bkpt_end := l_bkpts_t(i).blended_period_vol_end;
5202:
5203: END IF;
5204:
5205: ELSIF g_calculation_method = pn_var_rent_calc_pkg.G_CALC_YTD
5206: THEN
5207:
5208: l_bkpt_start := l_bkpts_t(i).ytd_group_vol_start;
5209: l_bkpt_end := l_bkpts_t(i).ytd_group_vol_end;
5238: END IF; /* net vol > bkpt start */
5239:
5240: END LOOP; /* loop for all bkpt details */
5241:
5242: ELSIF l_bkpt_type IN ( pn_var_rent_calc_pkg.G_BKPT_TYP_FLAT
5243: ,pn_var_rent_calc_pkg.G_BKPT_TYP_SLIDING)
5244: THEN
5245:
5246: FOR i IN l_bkpts_t.FIRST..l_bkpts_t.LAST LOOP
5239:
5240: END LOOP; /* loop for all bkpt details */
5241:
5242: ELSIF l_bkpt_type IN ( pn_var_rent_calc_pkg.G_BKPT_TYP_FLAT
5243: ,pn_var_rent_calc_pkg.G_BKPT_TYP_SLIDING)
5244: THEN
5245:
5246: FOR i IN l_bkpts_t.FIRST..l_bkpts_t.LAST LOOP
5247:
5244: THEN
5245:
5246: FOR i IN l_bkpts_t.FIRST..l_bkpts_t.LAST LOOP
5247:
5248: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
5249: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
5250: THEN
5251:
5252: l_bkpt_start := l_bkpts_t(i).prorated_grp_vol_start;
5245:
5246: FOR i IN l_bkpts_t.FIRST..l_bkpts_t.LAST LOOP
5247:
5248: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
5249: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
5250: THEN
5251:
5252: l_bkpt_start := l_bkpts_t(i).prorated_grp_vol_start;
5253: l_bkpt_end := l_bkpts_t(i).prorated_grp_vol_end;
5252: l_bkpt_start := l_bkpts_t(i).prorated_grp_vol_start;
5253: l_bkpt_end := l_bkpts_t(i).prorated_grp_vol_end;
5254:
5255:
5256: ELSIF g_calculation_method = pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
5257: THEN
5258:
5259: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_NP THEN
5260:
5255:
5256: ELSIF g_calculation_method = pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
5257: THEN
5258:
5259: IF g_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_NP THEN
5260:
5261: l_bkpt_start := l_bkpts_t(i).prorated_grp_vol_start;
5262: l_bkpt_end := l_bkpts_t(i).prorated_grp_vol_end;
5263:
5267: l_bkpt_end := l_bkpts_t(i).blended_period_vol_end;
5268:
5269: END IF;
5270:
5271: ELSIF g_calculation_method = pn_var_rent_calc_pkg.G_CALC_YTD
5272: THEN
5273:
5274: l_bkpt_start := l_bkpts_t(i).ytd_group_vol_start;
5275: l_bkpt_end := l_bkpts_t(i).ytd_group_vol_end;
5283: IF l_net_volume >= l_bkpt_start AND
5284: l_net_volume <= NVL(l_bkpt_end, l_net_volume)
5285: THEN
5286:
5287: IF l_bkpt_type = pn_var_rent_calc_pkg.G_BKPT_TYP_SLIDING THEN
5288:
5289: l_trx_hdr_rec.calculated_rent_for
5290: := l_net_volume * l_bkpts_t(i).bkpt_rate;
5291:
5288:
5289: l_trx_hdr_rec.calculated_rent_for
5290: := l_net_volume * l_bkpts_t(i).bkpt_rate;
5291:
5292: ELSIF l_bkpt_type = pn_var_rent_calc_pkg.G_BKPT_TYP_FLAT THEN
5293:
5294: l_trx_hdr_rec.calculated_rent_for
5295: := (l_net_volume - l_bkpt_start) * l_bkpts_t(i).bkpt_rate;
5296: pnp_debug_pkg.log('calculated_rent_for:'||l_trx_hdr_rec.calculated_rent_for);
5314: /* ------------ GET percent_rent_due for, ytd_percent_rent_for START ------------ */
5315:
5316:
5317: l_prev_billed
5318: := pn_var_rent_calc_pkg.find_prev_billed_for
5319: ( p_var_rent_id => l_trx_hdr_rec.var_rent_id
5320: ,p_period_id => l_trx_hdr_rec.period_id
5321: ,p_line_item_id => l_trx_hdr_rec.line_item_id
5322: ,p_calc_prd_st_dt => l_trx_hdr_rec.calc_prd_start_date
5323: ,p_calc_prd_end_dt => l_trx_hdr_rec.calc_prd_end_date
5324: ,p_reset_grp_id => l_trx_hdr_rec.reset_group_id);
5325:
5326:
5327: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
5328: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
5329: THEN
5330:
5331: l_trx_hdr_rec.ytd_percent_rent_for := l_prev_billed + l_trx_hdr_rec.percent_rent_due_for;
5324: ,p_reset_grp_id => l_trx_hdr_rec.reset_group_id);
5325:
5326:
5327: IF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_NON_CUMULATIVE
5328: ,pn_var_rent_calc_pkg.G_CALC_TRUE_UP)
5329: THEN
5330:
5331: l_trx_hdr_rec.ytd_percent_rent_for := l_prev_billed + l_trx_hdr_rec.percent_rent_due_for;
5332: l_trx_hdr_rec.percent_rent_due_for := l_trx_hdr_rec.calculated_rent_for;
5330:
5331: l_trx_hdr_rec.ytd_percent_rent_for := l_prev_billed + l_trx_hdr_rec.percent_rent_due_for;
5332: l_trx_hdr_rec.percent_rent_due_for := l_trx_hdr_rec.calculated_rent_for;
5333:
5334: ELSIF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
5335: ,pn_var_rent_calc_pkg.G_CALC_YTD)
5336: THEN
5337:
5338: l_trx_hdr_rec.percent_rent_due_for
5331: l_trx_hdr_rec.ytd_percent_rent_for := l_prev_billed + l_trx_hdr_rec.percent_rent_due_for;
5332: l_trx_hdr_rec.percent_rent_due_for := l_trx_hdr_rec.calculated_rent_for;
5333:
5334: ELSIF g_calculation_method IN ( pn_var_rent_calc_pkg.G_CALC_CUMULATIVE
5335: ,pn_var_rent_calc_pkg.G_CALC_YTD)
5336: THEN
5337:
5338: l_trx_hdr_rec.percent_rent_due_for
5339: := l_trx_hdr_rec.calculated_rent_for - l_prev_billed;
5371: /* IMP: This condition is to nullify the rents for a special case.
5372: The case is for First-LAst year, when we have just 2 periods and
5373: first year and last year period is partial, in such a case we dont
5374: want to calculate the rent.
5375: IF g_proration_rule IN (pn_var_rent_calc_pkg.G_PRORUL_FLY) AND
5376: l_period_num = 2 AND l_first_partial = 'Y' AND
5377: l_last_partial = 'Y'
5378: THEN
5379: l_trx_hdr_rec.percent_rent_due_for := 0;
5738:
5739: IF l_proration_rule IN ('LY', 'FLY') THEN
5740: FOR rec IN period_last_cur LOOP
5741: IF(rec.period_id = p_period_id) THEN
5742: IF(pn_var_rent_calc_pkg.inv_end_date(inv_start_date,vr_id,p_period_id) = l_vr_term_date) THEN
5743: RETURN rec.start_date;
5744: END IF;
5745: END IF;
5746: END LOOP;
5775: -- HISTORY :
5776: --
5777: -- 3.Nov.06 Ram Kumar o Created
5778: -- 02-APR-06 sdmahesh o Bug # 5962894
5779: -- Used PN_VAR_RENT_CALC_PKG.INV_END_DATE to find
5780: -- INV_END_DATE
5781: --------------------------------------------------------------------------------
5782:
5783: FUNCTION inv_sch_date(inv_start_date IN DATE
5839: END LOOP;
5840:
5841: FOR rec_period_csr IN last_period_cur LOOP
5842:
5843: inv_end_date := pn_var_rent_calc_pkg.inv_end_date(inv_start_date,
5844: vr_id,
5845: rec_period_csr.period_id);
5846:
5847: END LOOP;
5850: FOR rec IN period_cur LOOP
5851: IF(rec.period_id = p_period_id) THEN
5852: --
5853: FOR rec_first_prd IN first_period_cur LOOP
5854: inv_end_date := pn_var_rent_calc_pkg.inv_end_date(inv_start_date,
5855: vr_id,
5856: rec_first_prd.period_id);
5857: END LOOP;
5858: END IF;
5860: END IF;
5861:
5862:
5863: inv_schedule_date :=
5864: NVL( ((ADD_MONTHS(pn_var_rent_calc_pkg.First_Day(inv_end_date),1)-1) + l_invg_day_of_month),
5865: (inv_end_date + nvl(l_invg_days_after,0)) );
5866:
5867: ------------------------------------------------------------
5868: -- takes care of the only 28 days for the schedule day
5867: ------------------------------------------------------------
5868: -- takes care of the only 28 days for the schedule day
5869: ------------------------------------------------------------
5870: IF TO_NUMBER(TO_CHAR(inv_schedule_date,'dd')) in (29,30,31) THEN
5871: inv_schedule_date := (pn_var_rent_calc_pkg.First_Day(inv_schedule_date)+27);
5872: END IF;
5873: ------------------------------------------------------------
5874:
5875: RETURN inv_schedule_date;
6338: -- HISTORY : Shabda. Set global variables g_calc_type and g_invoice_on.
6339: --
6340: -- dd-mon-yyyy name o Created
6341: -- 21-AUG-2008 acprakas o Bug#6849764. Modified to pass rec_get_per.period_id for period id while calling
6342: -- pn_var_rent_calc_pkg.calculate_rent.
6343: --------------------------------------------------------------------------------
6344: PROCEDURE process_rent_batch ( errbuf OUT NOCOPY VARCHAR2,
6345: retcode OUT NOCOPY VARCHAR2,
6346: p_property_code IN VARCHAR2,
6480: g_calc_type := p_calc_type;
6481: pnp_debug_pkg.log('g_invoice_on:'||g_invoice_on);
6482: pnp_debug_pkg.log('g_calc_type'||g_calc_type);
6483:
6484: pnp_debug_pkg.log('pn_var_rent_calc_pkg.process_rent_batch (+)' );
6485:
6486:
6487: fnd_message.set_name ('PN','PN_VRAM_PRM');
6488: fnd_message.set_token ('PT_NAME', p_property_name);
6538:
6539: END IF;
6540:
6541: g_invoice_on := NVL(p_invoice_on,l_invoice_on);
6542: g_precision := nvl(pn_var_rent_calc_pkg.get_currency_precision(g_org_id),4);
6543:
6544: fnd_message.set_name ('PN','PN_VRAM_VRN_PROC');
6545: fnd_message.set_token ('NUM',l_rent_num);
6546: pnp_debug_pkg.put_log_msg(fnd_message.get);
6565: pnp_debug_pkg.log ('process_rent_batch - period end date: '||rec_get_per.end_date);
6566:
6567:
6568:
6569: pn_var_rent_calc_pkg.calculate_rent
6570: (p_var_rent_id => l_var_rent_id
6571: ,p_period_id => rec_get_per.period_id); --Bug#6849764
6572:
6573: END LOOP;
6592: pnp_debug_pkg.log('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
6593:
6594: EXCEPTION
6595: WHEN OTHERS THEN
6596: pnp_debug_pkg.log('Error in pn_var_rent_calc_pkg.process_rent_batch :'||TO_CHAR(sqlcode)||' : '||sqlerrm);
6597: Errbuf := SQLERRM;
6598: Retcode := 2;
6599: rollback;
6600: raise;
6597: Errbuf := SQLERRM;
6598: Retcode := 2;
6599: rollback;
6600: raise;
6601: pnp_debug_pkg.log('pn_var_rent_calc_pkg.process_rent_batch (-) ');
6602:
6603: END process_rent_batch;
6604:
6605: FUNCTION END_BREAKPOINT(bkpt_start IN NUMBER, bkpt_end IN NUMBER) RETURN NUMBER IS
6872:
6873: ELSIF p_proration_rule IN('FY','FLY') AND l_first_period = 'Y'
6874: THEN
6875:
6876: pn_var_rent_calc_pkg.first_year_bkpt(bkpts_rec.var_rent_id,
6877: l_commencement_date,
6878: bkpts_rec.line_item_group_id,
6879: bkpts_rec.bkpt_rate,
6880: l_bkpt_start,
6882:
6883: ELSIF p_proration_rule IN('LY','FLY') AND l_last_period = 'Y'
6884: THEN
6885:
6886: pn_var_rent_calc_pkg.last_year_bkpt( bkpts_rec.var_rent_id,
6887: l_termination_date,
6888: bkpts_rec.line_item_group_id,
6889: bkpts_rec.bkpt_rate,
6890: l_bkpt_start,
6981:
6982: ELSIF p_proration_rule IN('FY','FLY') AND l_first_period = 'Y'
6983: THEN
6984:
6985: pn_var_rent_calc_pkg.first_year_bkpt(bkpts_rec.var_rent_id,
6986: l_commencement_date,
6987: bkpts_rec.line_item_group_id,
6988: bkpts_rec.bkpt_rate,
6989: l_bkpt_start,
6991:
6992: ELSIF p_proration_rule IN('LY','FLY') AND l_last_period = 'Y'
6993: THEN
6994:
6995: pn_var_rent_calc_pkg.last_year_bkpt( bkpts_rec.var_rent_id,
6996: l_termination_date,
6997: bkpts_rec.line_item_group_id,
6998: bkpts_rec.bkpt_rate,
6999: l_bkpt_start,
7004: l_bkpt_end := bkpts_rec.ytd_group_vol_end;
7005:
7006: END IF;
7007:
7008: l_bkpt_end := pn_var_rent_calc_pkg.end_breakpoint(l_bkpt_start, l_bkpt_end);
7009:
7010: END LOOP;
7011:
7012: RETURN l_bkpt_end;
7108:
7109: IF p_proration_rule IN('FY','FLY') AND l_first_period = 'Y'
7110: THEN
7111:
7112: pn_var_rent_calc_pkg.first_year_bkpt(overage_rec.var_rent_id, l_commencement_date,
7113: overage_rec.line_item_group_id, overage_rec.bkpt_rate,
7114: l_bkpt_start, l_bkpt_end);
7115:
7116: l_applicable_sales := pn_var_rent_calc_pkg.first_year_sales( overage_rec.var_rent_id
7112: pn_var_rent_calc_pkg.first_year_bkpt(overage_rec.var_rent_id, l_commencement_date,
7113: overage_rec.line_item_group_id, overage_rec.bkpt_rate,
7114: l_bkpt_start, l_bkpt_end);
7115:
7116: l_applicable_sales := pn_var_rent_calc_pkg.first_year_sales( overage_rec.var_rent_id
7117: ,l_commencement_date
7118: ,overage_rec.line_item_group_id);
7119:
7120: ELSIF p_proration_rule IN('LY','FLY') AND l_last_period = 'Y'
7119:
7120: ELSIF p_proration_rule IN('LY','FLY') AND l_last_period = 'Y'
7121: THEN
7122:
7123: pn_var_rent_calc_pkg.last_year_bkpt( overage_rec.var_rent_id, l_termination_date,
7124: overage_rec.line_item_group_id, overage_rec.bkpt_rate,
7125: l_bkpt_start, l_bkpt_end);
7126:
7127: l_applicable_sales := pn_var_rent_calc_pkg.last_year_sales( overage_rec.var_rent_id
7123: pn_var_rent_calc_pkg.last_year_bkpt( overage_rec.var_rent_id, l_termination_date,
7124: overage_rec.line_item_group_id, overage_rec.bkpt_rate,
7125: l_bkpt_start, l_bkpt_end);
7126:
7127: l_applicable_sales := pn_var_rent_calc_pkg.last_year_sales( overage_rec.var_rent_id
7128: ,l_termination_date
7129: ,overage_rec.line_item_group_id);
7130: ELSE
7131: FOR rec IN total_sales_C(overage_rec.trx_header_id) LOOP
7498:
7499: IF p_proration_rule IN('FY','FLY') AND l_first_period = 'Y'
7500: THEN
7501:
7502: l_applicable_sales := pn_var_rent_calc_pkg.first_year_sales( sales_rec.var_rent_id
7503: ,l_commencement_date
7504: ,sales_rec.line_item_group_id);
7505:
7506: ELSIF p_proration_rule IN('LY','FLY') AND l_last_period = 'Y'
7505:
7506: ELSIF p_proration_rule IN('LY','FLY') AND l_last_period = 'Y'
7507: THEN
7508:
7509: l_applicable_sales := pn_var_rent_calc_pkg.last_year_sales( sales_rec.var_rent_id
7510: ,l_termination_date
7511: ,sales_rec.line_item_group_id);
7512:
7513: ELSE
7751:
7752: IF p_proration_rule IN('FY','FLY') AND l_first_period = 'Y'
7753: THEN
7754:
7755: l_applicable_sales := pn_var_rent_calc_pkg.first_year_sales( sales_rec.var_rent_id
7756: ,l_commencement_date
7757: ,sales_rec.line_item_group_id);
7758:
7759: ELSIF p_proration_rule IN('LY','FLY') AND l_last_period = 'Y'
7758:
7759: ELSIF p_proration_rule IN('LY','FLY') AND l_last_period = 'Y'
7760: THEN
7761:
7762: l_applicable_sales := pn_var_rent_calc_pkg.last_year_sales( sales_rec.var_rent_id
7763: ,l_termination_date
7764: ,sales_rec.line_item_group_id);
7765:
7766: ELSE
7866:
7867: IF p_proration_rule IN('FY','FLY') AND l_first_period = 'Y'
7868: THEN
7869:
7870: pn_var_rent_calc_pkg.first_year_bkpt(bkpts_rec.var_rent_id,
7871: l_commencement_date,
7872: bkpts_rec.line_item_group_id,
7873: bkpts_rec.bkpt_rate,
7874: l_bkpt_start,
7876:
7877: ELSIF p_proration_rule IN('LY','FLY') AND l_last_period = 'Y'
7878: THEN
7879:
7880: pn_var_rent_calc_pkg.last_year_bkpt( bkpts_rec.var_rent_id,
7881: l_termination_date,
7882: bkpts_rec.line_item_group_id,
7883: bkpts_rec.bkpt_rate,
7884: l_bkpt_start,
7903:
7904: ELSIF (p_cumulative_vol = 'C')
7905: THEN
7906:
7907: IF p_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_NP
7908: THEN
7909: l_bkpt_start := bkpts_rec.prorated_grp_vol_start;
7910: ELSE
7911: l_bkpt_start := bkpts_rec.blended_period_vol_start;
8013:
8014: IF p_proration_rule IN('FY','FLY') AND l_first_period = 'Y'
8015: THEN
8016:
8017: pn_var_rent_calc_pkg.first_year_bkpt(bkpts_rec.var_rent_id,
8018: l_commencement_date,
8019: bkpts_rec.line_item_group_id,
8020: bkpts_rec.bkpt_rate,
8021: l_bkpt_start,
8023:
8024: ELSIF p_proration_rule IN('LY','FLY') AND l_last_period = 'Y'
8025: THEN
8026:
8027: pn_var_rent_calc_pkg.last_year_bkpt( bkpts_rec.var_rent_id,
8028: l_termination_date,
8029: bkpts_rec.line_item_group_id,
8030: bkpts_rec.bkpt_rate,
8031: l_bkpt_start,
8052:
8053: ELSIF (p_cumulative_vol = 'C')
8054: THEN
8055:
8056: IF p_proration_rule = pn_var_rent_calc_pkg.G_PRORUL_NP
8057: THEN
8058: l_bkpt_start := bkpts_rec.prorated_grp_vol_start;
8059: l_bkpt_end := bkpts_rec.prorated_grp_vol_end;
8060: ELSE
8064:
8065: END IF;
8066: END IF;
8067:
8068: l_bkpt_end := pn_var_rent_calc_pkg.end_breakpoint(l_bkpt_start, l_bkpt_end);
8069:
8070: END LOOP;
8071:
8072: RETURN l_bkpt_end;
8145:
8146: IF p_proration_rule IN('FY','FLY') AND l_first_period = 'Y'
8147: THEN
8148:
8149: pn_var_rent_calc_pkg.first_year_bkpt(bkpts_rec.var_rent_id,
8150: l_commencement_date,
8151: bkpts_rec.line_item_group_id,
8152: bkpts_rec.bkpt_rate,
8153: l_bkpt_start,
8155:
8156: ELSIF p_proration_rule IN('LY','FLY') AND l_last_period = 'Y'
8157: THEN
8158:
8159: pn_var_rent_calc_pkg.last_year_bkpt( bkpts_rec.var_rent_id,
8160: l_termination_date,
8161: bkpts_rec.line_item_group_id,
8162: bkpts_rec.bkpt_rate,
8163: l_bkpt_start,
8256:
8257: IF p_proration_rule IN('FY','FLY') AND l_first_period = 'Y'
8258: THEN
8259:
8260: pn_var_rent_calc_pkg.first_year_bkpt(bkpts_rec.var_rent_id,
8261: l_commencement_date,
8262: bkpts_rec.line_item_group_id,
8263: bkpts_rec.bkpt_rate,
8264: l_bkpt_start,
8266:
8267: ELSIF p_proration_rule IN('LY','FLY') AND l_last_period = 'Y'
8268: THEN
8269:
8270: pn_var_rent_calc_pkg.last_year_bkpt( bkpts_rec.var_rent_id,
8271: l_termination_date,
8272: bkpts_rec.line_item_group_id,
8273: bkpts_rec.bkpt_rate,
8274: l_bkpt_start,
8287: l_bkpt_start := bkpts_rec.prorated_grp_vol_start;
8288: l_bkpt_end := bkpts_rec.prorated_grp_vol_end;
8289: END IF;
8290:
8291: l_bkpt_end := pn_var_rent_calc_pkg.end_breakpoint(l_bkpt_start, l_bkpt_end);
8292:
8293: END LOOP;
8294:
8295: RETURN l_bkpt_end;
8715: p_overage := 0;
8716: END IF;
8717: END IF;
8718:
8719: p_trueup_bkpt_vol_end := pn_var_rent_calc_pkg.end_breakpoint(p_trueup_bkpt_vol_start, p_trueup_bkpt_vol_end);
8720:
8721: p_trueup_bkpt_vol_start := round(p_trueup_bkpt_vol_start,2);
8722: p_trueup_bkpt_vol_end := round(p_trueup_bkpt_vol_end,2);
8723: p_trueup_volume := round(p_trueup_volume,2);
10083: FOR gd_rec IN grp_date_cur(l_prd_id,l_gd_id)LOOP
10084: l_inv_st_dt := gd_rec.inv_start_date;
10085: END LOOP;
10086:
10087: l_inv_end_dt := pn_var_rent_calc_pkg.inv_end_date(l_inv_st_dt
10088: ,l_vr_id
10089: ,l_prd_id
10090: );
10091:
10393:
10394: FOR inv_rec IN invoice_cur (p_var_rent_id)
10395: LOOP
10396:
10397: /*l_inv_start_date := pn_var_rent_calc_pkg.inv_start_date(inv_start_date => inv_rec.invoice_date
10398: ,vr_id => p_var_rent_id
10399: ,approved_status => 'N'); */
10400:
10401: l_payment_start_date := pn_var_rent_calc_pkg.inv_sch_date(inv_start_date => inv_rec.invoice_date
10397: /*l_inv_start_date := pn_var_rent_calc_pkg.inv_start_date(inv_start_date => inv_rec.invoice_date
10398: ,vr_id => p_var_rent_id
10399: ,approved_status => 'N'); */
10400:
10401: l_payment_start_date := pn_var_rent_calc_pkg.inv_sch_date(inv_start_date => inv_rec.invoice_date
10402: ,vr_id => p_var_rent_id
10403: ,p_period_id => inv_rec.period_id);
10404:
10405: FOR rec IN invoice2upd_c ( p_var_rent_id
10846: RETURN l_true_up;
10847:
10848: END true_up_header;
10849:
10850: END pn_var_rent_calc_pkg;
10851: