580: --GROUP BY c.due_date
581: --having due_date = max(due_date);
582:
583: BEGIN
584: pnp_debug_pkg.log('Reverse_Specific_Schedules Start (+)');
585:
586: pnp_debug_pkg.log('p_lease_id ' || p_lease_id);
587: IF p_lease_id <> 0 THEN
588: OPEN get_lease_change_id (p_lease_id);
582:
583: BEGIN
584: pnp_debug_pkg.log('Reverse_Specific_Schedules Start (+)');
585:
586: pnp_debug_pkg.log('p_lease_id ' || p_lease_id);
587: IF p_lease_id <> 0 THEN
588: OPEN get_lease_change_id (p_lease_id);
589: FETCH get_lease_change_id INTO l_lease_change_id;
590: CLOSE get_lease_change_id;
588: OPEN get_lease_change_id (p_lease_id);
589: FETCH get_lease_change_id INTO l_lease_change_id;
590: CLOSE get_lease_change_id;
591: END IF;
592: pnp_debug_pkg.log('l_lease_change_id ' || l_lease_change_id);
593:
594: IF l_lease_change_id <> 0 THEN
595: OPEN lease_change (l_lease_change_id);
596: FETCH lease_change INTO l_commencement_date;
595: OPEN lease_change (l_lease_change_id);
596: FETCH lease_change INTO l_commencement_date;
597: CLOSE lease_change;
598: END IF;
599: pnp_debug_pkg.log('l_commencement_date ' || l_commencement_date);
600:
601: IF (p_lease_id IS NOT NULL AND l_commencement_date IS NOT NULL) THEN
602: OPEN leave_alone_amt(p_lease_id);
603: FETCH leave_alone_amt INTO l_la_amount;
602: OPEN leave_alone_amt(p_lease_id);
603: FETCH leave_alone_amt INTO l_la_amount;
604: CLOSE leave_alone_amt;
605: END IF;
606: pnp_debug_pkg.log('l_la_amount ' || l_la_amount);
607:
608: IF l_la_amount <> 0 THEN
609:
610: FOR term_rec IN get_term_csr(p_lease_id) LOOP
608: IF l_la_amount <> 0 THEN
609:
610: FOR term_rec IN get_term_csr(p_lease_id) LOOP
611:
612: pnp_debug_pkg.log('Payment Term ID where adj will happen' || term_rec.payment_term_id);
613:
614: -- Get last payment_item_id where adjustment will happen
615: OPEN get_payment_item(term_rec.lease_id,term_rec.payment_term_id);
616: FETCH get_payment_item INTO lp_payment_item_id;
615: OPEN get_payment_item(term_rec.lease_id,term_rec.payment_term_id);
616: FETCH get_payment_item INTO lp_payment_item_id;
617: CLOSE get_payment_item;
618:
619: pnp_debug_pkg.log('Payment Item ID where adj will happen ' || lp_payment_item_id);
620: pnp_debug_pkg.log('Actual Diff Amt ' || term_rec.diff_act_amt);
621: pnp_debug_pkg.log('Actual Diff Export Currency Amt ' || term_rec.diff_exp_amt);
622:
623: IF ((lp_payment_item_id <> 0) AND (term_rec.diff_act_amt <> 0 OR term_rec.diff_exp_amt <> 0)) THEN
616: FETCH get_payment_item INTO lp_payment_item_id;
617: CLOSE get_payment_item;
618:
619: pnp_debug_pkg.log('Payment Item ID where adj will happen ' || lp_payment_item_id);
620: pnp_debug_pkg.log('Actual Diff Amt ' || term_rec.diff_act_amt);
621: pnp_debug_pkg.log('Actual Diff Export Currency Amt ' || term_rec.diff_exp_amt);
622:
623: IF ((lp_payment_item_id <> 0) AND (term_rec.diff_act_amt <> 0 OR term_rec.diff_exp_amt <> 0)) THEN
624:
617: CLOSE get_payment_item;
618:
619: pnp_debug_pkg.log('Payment Item ID where adj will happen ' || lp_payment_item_id);
620: pnp_debug_pkg.log('Actual Diff Amt ' || term_rec.diff_act_amt);
621: pnp_debug_pkg.log('Actual Diff Export Currency Amt ' || term_rec.diff_exp_amt);
622:
623: IF ((lp_payment_item_id <> 0) AND (term_rec.diff_act_amt <> 0 OR term_rec.diff_exp_amt <> 0)) THEN
624:
625: UPDATE pn_payment_items_all
631:
632: END LOOP;
633: END IF;
634:
635: pnp_debug_pkg.log('Reverse_Specific_Schedules End (-)');
636:
637: END Reverse_Specific_Schedules;
638:
639:
704: WHERE payment_term_id = p_payment_term_id
705: AND payment_item_type_lookup_code = 'CASH';
706:
707: BEGIN
708: pnp_debug_pkg.log('Get_First_Item_Date (+) - p_payment_term_id: ' || p_payment_term_id);
709:
710: OPEN first_item_cursor;
711: FETCH first_item_cursor INTO l_first_due_date;
712: CLOSE first_item_cursor;
712: CLOSE first_item_cursor;
713:
714: l_due_date := First_Day(l_first_due_date);
715:
716: pnp_debug_pkg.log('Get_First_Item_Date (-) - l_due_date: ' || l_due_date);
717:
718: RETURN l_due_date;
719:
720: END Get_First_Item_Date;
891: AND pps.payment_status_lookup_code = 'APPROVED';
892:
893: BEGIN
894:
895: pnp_debug_pkg.log('get_sch_info +Start+ (+)');
896:
897: /* Get the frequency for a frequency code. */
898:
899: p_freq := get_frequency(p_freq_code => p_freq_code);
907: IF l_cal_yr_st IS NOT NULL then
908: l_yr_start_dt := to_date(l_cal_yr_st || '-' || to_char(p_term_start_dt,'YYYY'),'DD-MM-YYYY');
909: END IF;
910:
911: pnp_debug_pkg.log('get_sch_info - Start **************** ');
912: pnp_debug_pkg.log('get_sch_info - IN: p_lease_context : '||p_lease_context);
913: pnp_debug_pkg.log('get_sch_info - IN: p_normalize_flag : '||p_normalize_flag);
914: pnp_debug_pkg.log('get_sch_info - IN: p_mths : '||p_mths);
915: pnp_debug_pkg.log('get_sch_info - IN: p_term_start_dt : '||p_term_start_dt);
908: l_yr_start_dt := to_date(l_cal_yr_st || '-' || to_char(p_term_start_dt,'YYYY'),'DD-MM-YYYY');
909: END IF;
910:
911: pnp_debug_pkg.log('get_sch_info - Start **************** ');
912: pnp_debug_pkg.log('get_sch_info - IN: p_lease_context : '||p_lease_context);
913: pnp_debug_pkg.log('get_sch_info - IN: p_normalize_flag : '||p_normalize_flag);
914: pnp_debug_pkg.log('get_sch_info - IN: p_mths : '||p_mths);
915: pnp_debug_pkg.log('get_sch_info - IN: p_term_start_dt : '||p_term_start_dt);
916: pnp_debug_pkg.log('get_sch_info - IN: p_term_end_dt : '||p_term_end_dt);
909: END IF;
910:
911: pnp_debug_pkg.log('get_sch_info - Start **************** ');
912: pnp_debug_pkg.log('get_sch_info - IN: p_lease_context : '||p_lease_context);
913: pnp_debug_pkg.log('get_sch_info - IN: p_normalize_flag : '||p_normalize_flag);
914: pnp_debug_pkg.log('get_sch_info - IN: p_mths : '||p_mths);
915: pnp_debug_pkg.log('get_sch_info - IN: p_term_start_dt : '||p_term_start_dt);
916: pnp_debug_pkg.log('get_sch_info - IN: p_term_end_dt : '||p_term_end_dt);
917: pnp_debug_pkg.log('get_sch_info - IN: p_freq_code : '||p_freq_code);
910:
911: pnp_debug_pkg.log('get_sch_info - Start **************** ');
912: pnp_debug_pkg.log('get_sch_info - IN: p_lease_context : '||p_lease_context);
913: pnp_debug_pkg.log('get_sch_info - IN: p_normalize_flag : '||p_normalize_flag);
914: pnp_debug_pkg.log('get_sch_info - IN: p_mths : '||p_mths);
915: pnp_debug_pkg.log('get_sch_info - IN: p_term_start_dt : '||p_term_start_dt);
916: pnp_debug_pkg.log('get_sch_info - IN: p_term_end_dt : '||p_term_end_dt);
917: pnp_debug_pkg.log('get_sch_info - IN: p_freq_code : '||p_freq_code);
918: pnp_debug_pkg.log('get_sch_info - IN: p_sch_day : '||p_sch_day);
911: pnp_debug_pkg.log('get_sch_info - Start **************** ');
912: pnp_debug_pkg.log('get_sch_info - IN: p_lease_context : '||p_lease_context);
913: pnp_debug_pkg.log('get_sch_info - IN: p_normalize_flag : '||p_normalize_flag);
914: pnp_debug_pkg.log('get_sch_info - IN: p_mths : '||p_mths);
915: pnp_debug_pkg.log('get_sch_info - IN: p_term_start_dt : '||p_term_start_dt);
916: pnp_debug_pkg.log('get_sch_info - IN: p_term_end_dt : '||p_term_end_dt);
917: pnp_debug_pkg.log('get_sch_info - IN: p_freq_code : '||p_freq_code);
918: pnp_debug_pkg.log('get_sch_info - IN: p_sch_day : '||p_sch_day);
919: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
912: pnp_debug_pkg.log('get_sch_info - IN: p_lease_context : '||p_lease_context);
913: pnp_debug_pkg.log('get_sch_info - IN: p_normalize_flag : '||p_normalize_flag);
914: pnp_debug_pkg.log('get_sch_info - IN: p_mths : '||p_mths);
915: pnp_debug_pkg.log('get_sch_info - IN: p_term_start_dt : '||p_term_start_dt);
916: pnp_debug_pkg.log('get_sch_info - IN: p_term_end_dt : '||p_term_end_dt);
917: pnp_debug_pkg.log('get_sch_info - IN: p_freq_code : '||p_freq_code);
918: pnp_debug_pkg.log('get_sch_info - IN: p_sch_day : '||p_sch_day);
919: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
920: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
913: pnp_debug_pkg.log('get_sch_info - IN: p_normalize_flag : '||p_normalize_flag);
914: pnp_debug_pkg.log('get_sch_info - IN: p_mths : '||p_mths);
915: pnp_debug_pkg.log('get_sch_info - IN: p_term_start_dt : '||p_term_start_dt);
916: pnp_debug_pkg.log('get_sch_info - IN: p_term_end_dt : '||p_term_end_dt);
917: pnp_debug_pkg.log('get_sch_info - IN: p_freq_code : '||p_freq_code);
918: pnp_debug_pkg.log('get_sch_info - IN: p_sch_day : '||p_sch_day);
919: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
920: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
921: pnp_debug_pkg.log('get_sch_info - IN: p_old_lea_term_dt : '||p_old_lea_term_dt);
914: pnp_debug_pkg.log('get_sch_info - IN: p_mths : '||p_mths);
915: pnp_debug_pkg.log('get_sch_info - IN: p_term_start_dt : '||p_term_start_dt);
916: pnp_debug_pkg.log('get_sch_info - IN: p_term_end_dt : '||p_term_end_dt);
917: pnp_debug_pkg.log('get_sch_info - IN: p_freq_code : '||p_freq_code);
918: pnp_debug_pkg.log('get_sch_info - IN: p_sch_day : '||p_sch_day);
919: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
920: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
921: pnp_debug_pkg.log('get_sch_info - IN: p_old_lea_term_dt : '||p_old_lea_term_dt);
922: pnp_debug_pkg.log('get_sch_info - IN: p_norm_str_dt : '||p_norm_str_dt);
915: pnp_debug_pkg.log('get_sch_info - IN: p_term_start_dt : '||p_term_start_dt);
916: pnp_debug_pkg.log('get_sch_info - IN: p_term_end_dt : '||p_term_end_dt);
917: pnp_debug_pkg.log('get_sch_info - IN: p_freq_code : '||p_freq_code);
918: pnp_debug_pkg.log('get_sch_info - IN: p_sch_day : '||p_sch_day);
919: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
920: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
921: pnp_debug_pkg.log('get_sch_info - IN: p_old_lea_term_dt : '||p_old_lea_term_dt);
922: pnp_debug_pkg.log('get_sch_info - IN: p_norm_str_dt : '||p_norm_str_dt);
923: pnp_debug_pkg.log('get_sch_info - IN: p_lease_id : '||p_lease_id);
916: pnp_debug_pkg.log('get_sch_info - IN: p_term_end_dt : '||p_term_end_dt);
917: pnp_debug_pkg.log('get_sch_info - IN: p_freq_code : '||p_freq_code);
918: pnp_debug_pkg.log('get_sch_info - IN: p_sch_day : '||p_sch_day);
919: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
920: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
921: pnp_debug_pkg.log('get_sch_info - IN: p_old_lea_term_dt : '||p_old_lea_term_dt);
922: pnp_debug_pkg.log('get_sch_info - IN: p_norm_str_dt : '||p_norm_str_dt);
923: pnp_debug_pkg.log('get_sch_info - IN: p_lease_id : '||p_lease_id);
924: pnp_debug_pkg.log('get_sch_info - IN: p_term_id : '||p_term_id);
917: pnp_debug_pkg.log('get_sch_info - IN: p_freq_code : '||p_freq_code);
918: pnp_debug_pkg.log('get_sch_info - IN: p_sch_day : '||p_sch_day);
919: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
920: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
921: pnp_debug_pkg.log('get_sch_info - IN: p_old_lea_term_dt : '||p_old_lea_term_dt);
922: pnp_debug_pkg.log('get_sch_info - IN: p_norm_str_dt : '||p_norm_str_dt);
923: pnp_debug_pkg.log('get_sch_info - IN: p_lease_id : '||p_lease_id);
924: pnp_debug_pkg.log('get_sch_info - IN: p_term_id : '||p_term_id);
925: pnp_debug_pkg.log('get_sch_info - IN: p_amd_comm_dt : '||p_amd_comm_dt);
918: pnp_debug_pkg.log('get_sch_info - IN: p_sch_day : '||p_sch_day);
919: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
920: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
921: pnp_debug_pkg.log('get_sch_info - IN: p_old_lea_term_dt : '||p_old_lea_term_dt);
922: pnp_debug_pkg.log('get_sch_info - IN: p_norm_str_dt : '||p_norm_str_dt);
923: pnp_debug_pkg.log('get_sch_info - IN: p_lease_id : '||p_lease_id);
924: pnp_debug_pkg.log('get_sch_info - IN: p_term_id : '||p_term_id);
925: pnp_debug_pkg.log('get_sch_info - IN: p_amd_comm_dt : '||p_amd_comm_dt);
926:
919: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
920: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
921: pnp_debug_pkg.log('get_sch_info - IN: p_old_lea_term_dt : '||p_old_lea_term_dt);
922: pnp_debug_pkg.log('get_sch_info - IN: p_norm_str_dt : '||p_norm_str_dt);
923: pnp_debug_pkg.log('get_sch_info - IN: p_lease_id : '||p_lease_id);
924: pnp_debug_pkg.log('get_sch_info - IN: p_term_id : '||p_term_id);
925: pnp_debug_pkg.log('get_sch_info - IN: p_amd_comm_dt : '||p_amd_comm_dt);
926:
927: /* get the no. of schedules, first schedule date and the counter */
920: pnp_debug_pkg.log('get_sch_info - IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
921: pnp_debug_pkg.log('get_sch_info - IN: p_old_lea_term_dt : '||p_old_lea_term_dt);
922: pnp_debug_pkg.log('get_sch_info - IN: p_norm_str_dt : '||p_norm_str_dt);
923: pnp_debug_pkg.log('get_sch_info - IN: p_lease_id : '||p_lease_id);
924: pnp_debug_pkg.log('get_sch_info - IN: p_term_id : '||p_term_id);
925: pnp_debug_pkg.log('get_sch_info - IN: p_amd_comm_dt : '||p_amd_comm_dt);
926:
927: /* get the no. of schedules, first schedule date and the counter */
928:
921: pnp_debug_pkg.log('get_sch_info - IN: p_old_lea_term_dt : '||p_old_lea_term_dt);
922: pnp_debug_pkg.log('get_sch_info - IN: p_norm_str_dt : '||p_norm_str_dt);
923: pnp_debug_pkg.log('get_sch_info - IN: p_lease_id : '||p_lease_id);
924: pnp_debug_pkg.log('get_sch_info - IN: p_term_id : '||p_term_id);
925: pnp_debug_pkg.log('get_sch_info - IN: p_amd_comm_dt : '||p_amd_comm_dt);
926:
927: /* get the no. of schedules, first schedule date and the counter */
928:
929: IF p_lease_context = 'EXP' AND NVL(p_normalize_flag,'N') = 'Y' THEN
963: /* Store the term's normalization start date */
964:
965: l_norm_str_dt := p_norm_str_dt;
966:
967: pnp_debug_pkg.log('norm_st_dt_rec_tbl.COUNT : '||norm_st_dt_rec_tbl.COUNT); /* 9231686 */
968: pnp_debug_pkg.log('p_sch_day : '||p_sch_day); /* 9231686 */
969:
970: IF norm_st_dt_rec_tbl(p_sch_day) is not null /* 9231686 */
971: THEN
964:
965: l_norm_str_dt := p_norm_str_dt;
966:
967: pnp_debug_pkg.log('norm_st_dt_rec_tbl.COUNT : '||norm_st_dt_rec_tbl.COUNT); /* 9231686 */
968: pnp_debug_pkg.log('p_sch_day : '||p_sch_day); /* 9231686 */
969:
970: IF norm_st_dt_rec_tbl(p_sch_day) is not null /* 9231686 */
971: THEN
972: pnp_debug_pkg.log('pn_schedules_items.g_norm_dt_avl : '||pn_schedules_items.g_norm_dt_avl);
968: pnp_debug_pkg.log('p_sch_day : '||p_sch_day); /* 9231686 */
969:
970: IF norm_st_dt_rec_tbl(p_sch_day) is not null /* 9231686 */
971: THEN
972: pnp_debug_pkg.log('pn_schedules_items.g_norm_dt_avl : '||pn_schedules_items.g_norm_dt_avl);
973: pn_schedules_items.g_norm_dt_avl := 'Y';
974: ELSE
975: pn_schedules_items.g_norm_dt_avl := NULL;
976:
976:
977: END IF;
978:
979:
980: pnp_debug_pkg.log('gvbl : '||pn_schedules_items.g_norm_dt_avl);
981:
982: If pn_schedules_items.g_norm_dt_avl is NULL THEN
983:
984: /* If Retro is enabled - we need correct p_norm_start_date to be passed to
987: OPEN csr_first_draft_sch(g_lease_id, p_norm_str_dt);
988: FETCH csr_first_draft_sch INTO l_first_draft_sch;
989: CLOSE csr_first_draft_sch;
990:
991: pnp_debug_pkg.log('l_first_draft_sch: '||l_first_draft_sch);
992:
993: IF l_first_draft_sch is NULL THEN
994: p_norm_str_dt := FIRST_DAY(p_sch_dt);
995: ELSE
999:
1000: norm_st_dt_rec_tbl(p_sch_day) := p_norm_str_dt;
1001:
1002: else
1003: pnp_debug_pkg.log('pn_schedules_items.g_norm_dt_avl: '||pn_schedules_items.g_norm_dt_avl);
1004: p_norm_str_dt := norm_st_dt_rec_tbl(p_sch_day);
1005: pnp_debug_pkg.log('l_first_draft_sch: '||p_norm_str_dt);
1006:
1007: END IF; /* 9231686 */
1001:
1002: else
1003: pnp_debug_pkg.log('pn_schedules_items.g_norm_dt_avl: '||pn_schedules_items.g_norm_dt_avl);
1004: p_norm_str_dt := norm_st_dt_rec_tbl(p_sch_day);
1005: pnp_debug_pkg.log('l_first_draft_sch: '||p_norm_str_dt);
1006:
1007: END IF; /* 9231686 */
1008:
1009: /* Total No. of schedules is the no. of schedules between the payment term norm. start date
1051: END IF;
1052:
1053: END IF;
1054:
1055: pnp_debug_pkg.log('get_sch_info - EXP p_old_lea_term_dt: '||p_old_lea_term_dt);
1056: pnp_debug_pkg.log('get_sch_info - EXP p_sch_day : '||TO_CHAR(p_sch_day));
1057: pnp_debug_pkg.log('get_sch_info - EXP p_no_sch : '||TO_CHAR(p_no_sch));
1058: pnp_debug_pkg.log('get_sch_info - EXP p_counter : '||TO_CHAR(p_counter));
1059: pnp_debug_pkg.log('get_sch_info - EXP p_sch_dt : '||p_sch_dt);
1052:
1053: END IF;
1054:
1055: pnp_debug_pkg.log('get_sch_info - EXP p_old_lea_term_dt: '||p_old_lea_term_dt);
1056: pnp_debug_pkg.log('get_sch_info - EXP p_sch_day : '||TO_CHAR(p_sch_day));
1057: pnp_debug_pkg.log('get_sch_info - EXP p_no_sch : '||TO_CHAR(p_no_sch));
1058: pnp_debug_pkg.log('get_sch_info - EXP p_counter : '||TO_CHAR(p_counter));
1059: pnp_debug_pkg.log('get_sch_info - EXP p_sch_dt : '||p_sch_dt);
1060: pnp_debug_pkg.log('get_sch_info - EXP p_sch_str_dt : '||p_sch_str_dt);
1053: END IF;
1054:
1055: pnp_debug_pkg.log('get_sch_info - EXP p_old_lea_term_dt: '||p_old_lea_term_dt);
1056: pnp_debug_pkg.log('get_sch_info - EXP p_sch_day : '||TO_CHAR(p_sch_day));
1057: pnp_debug_pkg.log('get_sch_info - EXP p_no_sch : '||TO_CHAR(p_no_sch));
1058: pnp_debug_pkg.log('get_sch_info - EXP p_counter : '||TO_CHAR(p_counter));
1059: pnp_debug_pkg.log('get_sch_info - EXP p_sch_dt : '||p_sch_dt);
1060: pnp_debug_pkg.log('get_sch_info - EXP p_sch_str_dt : '||p_sch_str_dt);
1061: pnp_debug_pkg.log('get_sch_info - EXP p_norm_str_dt : '||p_norm_str_dt);
1054:
1055: pnp_debug_pkg.log('get_sch_info - EXP p_old_lea_term_dt: '||p_old_lea_term_dt);
1056: pnp_debug_pkg.log('get_sch_info - EXP p_sch_day : '||TO_CHAR(p_sch_day));
1057: pnp_debug_pkg.log('get_sch_info - EXP p_no_sch : '||TO_CHAR(p_no_sch));
1058: pnp_debug_pkg.log('get_sch_info - EXP p_counter : '||TO_CHAR(p_counter));
1059: pnp_debug_pkg.log('get_sch_info - EXP p_sch_dt : '||p_sch_dt);
1060: pnp_debug_pkg.log('get_sch_info - EXP p_sch_str_dt : '||p_sch_str_dt);
1061: pnp_debug_pkg.log('get_sch_info - EXP p_norm_str_dt : '||p_norm_str_dt);
1062: pnp_debug_pkg.log('get_sch_info - EXP p_pro_sch_dt : '||p_pro_sch_dt);
1055: pnp_debug_pkg.log('get_sch_info - EXP p_old_lea_term_dt: '||p_old_lea_term_dt);
1056: pnp_debug_pkg.log('get_sch_info - EXP p_sch_day : '||TO_CHAR(p_sch_day));
1057: pnp_debug_pkg.log('get_sch_info - EXP p_no_sch : '||TO_CHAR(p_no_sch));
1058: pnp_debug_pkg.log('get_sch_info - EXP p_counter : '||TO_CHAR(p_counter));
1059: pnp_debug_pkg.log('get_sch_info - EXP p_sch_dt : '||p_sch_dt);
1060: pnp_debug_pkg.log('get_sch_info - EXP p_sch_str_dt : '||p_sch_str_dt);
1061: pnp_debug_pkg.log('get_sch_info - EXP p_norm_str_dt : '||p_norm_str_dt);
1062: pnp_debug_pkg.log('get_sch_info - EXP p_pro_sch_dt : '||p_pro_sch_dt);
1063: pnp_debug_pkg.log('get_sch_info - EXP l_lst_sch_dt : '||l_lst_sch_dt);
1056: pnp_debug_pkg.log('get_sch_info - EXP p_sch_day : '||TO_CHAR(p_sch_day));
1057: pnp_debug_pkg.log('get_sch_info - EXP p_no_sch : '||TO_CHAR(p_no_sch));
1058: pnp_debug_pkg.log('get_sch_info - EXP p_counter : '||TO_CHAR(p_counter));
1059: pnp_debug_pkg.log('get_sch_info - EXP p_sch_dt : '||p_sch_dt);
1060: pnp_debug_pkg.log('get_sch_info - EXP p_sch_str_dt : '||p_sch_str_dt);
1061: pnp_debug_pkg.log('get_sch_info - EXP p_norm_str_dt : '||p_norm_str_dt);
1062: pnp_debug_pkg.log('get_sch_info - EXP p_pro_sch_dt : '||p_pro_sch_dt);
1063: pnp_debug_pkg.log('get_sch_info - EXP l_lst_sch_dt : '||l_lst_sch_dt);
1064:
1057: pnp_debug_pkg.log('get_sch_info - EXP p_no_sch : '||TO_CHAR(p_no_sch));
1058: pnp_debug_pkg.log('get_sch_info - EXP p_counter : '||TO_CHAR(p_counter));
1059: pnp_debug_pkg.log('get_sch_info - EXP p_sch_dt : '||p_sch_dt);
1060: pnp_debug_pkg.log('get_sch_info - EXP p_sch_str_dt : '||p_sch_str_dt);
1061: pnp_debug_pkg.log('get_sch_info - EXP p_norm_str_dt : '||p_norm_str_dt);
1062: pnp_debug_pkg.log('get_sch_info - EXP p_pro_sch_dt : '||p_pro_sch_dt);
1063: pnp_debug_pkg.log('get_sch_info - EXP l_lst_sch_dt : '||l_lst_sch_dt);
1064:
1065:
1058: pnp_debug_pkg.log('get_sch_info - EXP p_counter : '||TO_CHAR(p_counter));
1059: pnp_debug_pkg.log('get_sch_info - EXP p_sch_dt : '||p_sch_dt);
1060: pnp_debug_pkg.log('get_sch_info - EXP p_sch_str_dt : '||p_sch_str_dt);
1061: pnp_debug_pkg.log('get_sch_info - EXP p_norm_str_dt : '||p_norm_str_dt);
1062: pnp_debug_pkg.log('get_sch_info - EXP p_pro_sch_dt : '||p_pro_sch_dt);
1063: pnp_debug_pkg.log('get_sch_info - EXP l_lst_sch_dt : '||l_lst_sch_dt);
1064:
1065:
1066: ELSIF (p_lease_context IN ('ABS', 'ADD', 'ADDEDT', 'ADDAMD') AND p_normalize_flag = 'Y') THEN
1059: pnp_debug_pkg.log('get_sch_info - EXP p_sch_dt : '||p_sch_dt);
1060: pnp_debug_pkg.log('get_sch_info - EXP p_sch_str_dt : '||p_sch_str_dt);
1061: pnp_debug_pkg.log('get_sch_info - EXP p_norm_str_dt : '||p_norm_str_dt);
1062: pnp_debug_pkg.log('get_sch_info - EXP p_pro_sch_dt : '||p_pro_sch_dt);
1063: pnp_debug_pkg.log('get_sch_info - EXP l_lst_sch_dt : '||l_lst_sch_dt);
1064:
1065:
1066: ELSIF (p_lease_context IN ('ABS', 'ADD', 'ADDEDT', 'ADDAMD') AND p_normalize_flag = 'Y') THEN
1067:
1166: /* Counter for creation of the cash items */
1167:
1168: p_counter := 0;
1169:
1170: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_old_lea_term_dt: '
1171: ||p_old_lea_term_dt);
1172: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1173: ||TO_CHAR(p_sch_day));
1174: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1168: p_counter := 0;
1169:
1170: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_old_lea_term_dt: '
1171: ||p_old_lea_term_dt);
1172: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1173: ||TO_CHAR(p_sch_day));
1174: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1175: ||TO_CHAR(p_no_sch));
1176: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1170: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_old_lea_term_dt: '
1171: ||p_old_lea_term_dt);
1172: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1173: ||TO_CHAR(p_sch_day));
1174: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1175: ||TO_CHAR(p_no_sch));
1176: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1177: ||TO_CHAR(p_counter));
1178: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1172: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1173: ||TO_CHAR(p_sch_day));
1174: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1175: ||TO_CHAR(p_no_sch));
1176: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1177: ||TO_CHAR(p_counter));
1178: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1179: ||p_sch_dt);
1180: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1174: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1175: ||TO_CHAR(p_no_sch));
1176: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1177: ||TO_CHAR(p_counter));
1178: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1179: ||p_sch_dt);
1180: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1181: ||p_sch_str_dt);
1182: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_norm_str_dt : '
1176: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1177: ||TO_CHAR(p_counter));
1178: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1179: ||p_sch_dt);
1180: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1181: ||p_sch_str_dt);
1182: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_norm_str_dt : '
1183: ||p_norm_str_dt);
1184:
1178: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1179: ||p_sch_dt);
1180: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1181: ||p_sch_str_dt);
1182: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_norm_str_dt : '
1183: ||p_norm_str_dt);
1184:
1185: ELSIF p_lease_context IN ('ABS', 'ADD', 'ADDEDT', 'ADDAMD') AND (NVL(p_normalize_flag,'N') <> 'Y') THEN
1186:
1227: /* For Not Normalized Terms, Normalize Start Date is NULL. */
1228:
1229: p_norm_str_dt := NULL;
1230:
1231: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' mths_for_sch : '
1232: ||TO_CHAR(l_mths_for_sch));
1233: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_old_lea_term_dt: '
1234: ||p_old_lea_term_dt);
1235: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1229: p_norm_str_dt := NULL;
1230:
1231: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' mths_for_sch : '
1232: ||TO_CHAR(l_mths_for_sch));
1233: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_old_lea_term_dt: '
1234: ||p_old_lea_term_dt);
1235: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1236: ||TO_CHAR(p_sch_day));
1237: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1231: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' mths_for_sch : '
1232: ||TO_CHAR(l_mths_for_sch));
1233: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_old_lea_term_dt: '
1234: ||p_old_lea_term_dt);
1235: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1236: ||TO_CHAR(p_sch_day));
1237: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1238: ||TO_CHAR(p_no_sch));
1239: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1233: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_old_lea_term_dt: '
1234: ||p_old_lea_term_dt);
1235: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1236: ||TO_CHAR(p_sch_day));
1237: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1238: ||TO_CHAR(p_no_sch));
1239: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1240: ||TO_CHAR(p_counter));
1241: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1235: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1236: ||TO_CHAR(p_sch_day));
1237: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1238: ||TO_CHAR(p_no_sch));
1239: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1240: ||TO_CHAR(p_counter));
1241: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1242: ||p_sch_dt);
1243: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1237: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1238: ||TO_CHAR(p_no_sch));
1239: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1240: ||TO_CHAR(p_counter));
1241: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1242: ||p_sch_dt);
1243: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1244: ||p_sch_str_dt);
1245: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_norm_str_dt : '
1239: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1240: ||TO_CHAR(p_counter));
1241: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1242: ||p_sch_dt);
1243: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1244: ||p_sch_str_dt);
1245: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_norm_str_dt : '
1246: ||p_norm_str_dt);
1247:
1241: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1242: ||p_sch_dt);
1243: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1244: ||p_sch_str_dt);
1245: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_norm_str_dt : '
1246: ||p_norm_str_dt);
1247:
1248: ELSIF p_lease_context = 'EXP' AND (NVL(p_normalize_flag,'N') <> 'Y') THEN
1249:
1307: normalized payment terms. */
1308:
1309: p_pro_sch_dt := p_sch_dt;
1310:
1311: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' mths_for_sch : '
1312: ||TO_CHAR(l_mths_for_sch));
1313: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_old_lea_term_dt: '
1314: ||p_old_lea_term_dt);
1315: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1309: p_pro_sch_dt := p_sch_dt;
1310:
1311: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' mths_for_sch : '
1312: ||TO_CHAR(l_mths_for_sch));
1313: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_old_lea_term_dt: '
1314: ||p_old_lea_term_dt);
1315: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1316: ||TO_CHAR(p_sch_day));
1317: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1311: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' mths_for_sch : '
1312: ||TO_CHAR(l_mths_for_sch));
1313: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_old_lea_term_dt: '
1314: ||p_old_lea_term_dt);
1315: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1316: ||TO_CHAR(p_sch_day));
1317: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1318: ||TO_CHAR(p_no_sch));
1319: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1313: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_old_lea_term_dt: '
1314: ||p_old_lea_term_dt);
1315: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1316: ||TO_CHAR(p_sch_day));
1317: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1318: ||TO_CHAR(p_no_sch));
1319: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1320: ||TO_CHAR(p_counter));
1321: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1315: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_day : '
1316: ||TO_CHAR(p_sch_day));
1317: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1318: ||TO_CHAR(p_no_sch));
1319: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1320: ||TO_CHAR(p_counter));
1321: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1322: ||p_sch_dt);
1323: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1317: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_no_sch : '
1318: ||TO_CHAR(p_no_sch));
1319: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1320: ||TO_CHAR(p_counter));
1321: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1322: ||p_sch_dt);
1323: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1324: ||p_sch_str_dt);
1325: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_norm_str_dt : '
1319: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_counter : '
1320: ||TO_CHAR(p_counter));
1321: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1322: ||p_sch_dt);
1323: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1324: ||p_sch_str_dt);
1325: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_norm_str_dt : '
1326: ||p_norm_str_dt);
1327: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_pro_sch_dt : '
1321: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_dt : '
1322: ||p_sch_dt);
1323: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1324: ||p_sch_str_dt);
1325: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_norm_str_dt : '
1326: ||p_norm_str_dt);
1327: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_pro_sch_dt : '
1328: ||p_pro_sch_dt);
1329: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' l_lst_sch_dt : '
1323: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_sch_str_dt : '
1324: ||p_sch_str_dt);
1325: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_norm_str_dt : '
1326: ||p_norm_str_dt);
1327: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_pro_sch_dt : '
1328: ||p_pro_sch_dt);
1329: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' l_lst_sch_dt : '
1330: ||l_lst_sch_dt);
1331:
1325: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_norm_str_dt : '
1326: ||p_norm_str_dt);
1327: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_pro_sch_dt : '
1328: ||p_pro_sch_dt);
1329: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' l_lst_sch_dt : '
1330: ||l_lst_sch_dt);
1331:
1332: END IF;
1333:
1336:
1337: IF p_lease_context in ('ABS','ADD', 'ADDEDT','ADDAMD') THEN
1338:
1339: p_pro_sch_dt := TO_DATE(p_sch_day||'/'||TO_CHAR(p_term_start_dt,'MM/YYYY'),'DD/MM/YYYY');
1340: pnp_debug_pkg.log('get_sch_info - ' || p_lease_context || ' p_pro_sch_dt : '||p_pro_sch_dt);
1341:
1342: END IF;
1343:
1344: /* p_sch_str_dt is used only for Non Monthly Payment Terms.
1343:
1344: /* p_sch_str_dt is used only for Non Monthly Payment Terms.
1345: For One Time and Monthly Payment Terms, set p_sch_str_dt to NULL. */
1346:
1347: pnp_debug_pkg.log('get_sch_info - OUT: p_pro_sch_dt : '||p_pro_sch_dt);
1348: pnp_debug_pkg.log('get_sch_info - OUT: p_no_sch : '||p_no_sch);
1349: pnp_debug_pkg.log('get_sch_info - OUT: p_freq : '||p_freq);
1350: pnp_debug_pkg.log('get_sch_info - OUT: p_counter : '||p_counter);
1351: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_dt : '||p_sch_dt);
1344: /* p_sch_str_dt is used only for Non Monthly Payment Terms.
1345: For One Time and Monthly Payment Terms, set p_sch_str_dt to NULL. */
1346:
1347: pnp_debug_pkg.log('get_sch_info - OUT: p_pro_sch_dt : '||p_pro_sch_dt);
1348: pnp_debug_pkg.log('get_sch_info - OUT: p_no_sch : '||p_no_sch);
1349: pnp_debug_pkg.log('get_sch_info - OUT: p_freq : '||p_freq);
1350: pnp_debug_pkg.log('get_sch_info - OUT: p_counter : '||p_counter);
1351: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_dt : '||p_sch_dt);
1352: pnp_debug_pkg.log('get_sch_info - OUT: p_norm_str_dt : '||p_norm_str_dt);
1345: For One Time and Monthly Payment Terms, set p_sch_str_dt to NULL. */
1346:
1347: pnp_debug_pkg.log('get_sch_info - OUT: p_pro_sch_dt : '||p_pro_sch_dt);
1348: pnp_debug_pkg.log('get_sch_info - OUT: p_no_sch : '||p_no_sch);
1349: pnp_debug_pkg.log('get_sch_info - OUT: p_freq : '||p_freq);
1350: pnp_debug_pkg.log('get_sch_info - OUT: p_counter : '||p_counter);
1351: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_dt : '||p_sch_dt);
1352: pnp_debug_pkg.log('get_sch_info - OUT: p_norm_str_dt : '||p_norm_str_dt);
1353: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_str_dt : '||p_sch_str_dt);
1346:
1347: pnp_debug_pkg.log('get_sch_info - OUT: p_pro_sch_dt : '||p_pro_sch_dt);
1348: pnp_debug_pkg.log('get_sch_info - OUT: p_no_sch : '||p_no_sch);
1349: pnp_debug_pkg.log('get_sch_info - OUT: p_freq : '||p_freq);
1350: pnp_debug_pkg.log('get_sch_info - OUT: p_counter : '||p_counter);
1351: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_dt : '||p_sch_dt);
1352: pnp_debug_pkg.log('get_sch_info - OUT: p_norm_str_dt : '||p_norm_str_dt);
1353: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_str_dt : '||p_sch_str_dt);
1354: pnp_debug_pkg.log('get_sch_info -End- (-)');
1347: pnp_debug_pkg.log('get_sch_info - OUT: p_pro_sch_dt : '||p_pro_sch_dt);
1348: pnp_debug_pkg.log('get_sch_info - OUT: p_no_sch : '||p_no_sch);
1349: pnp_debug_pkg.log('get_sch_info - OUT: p_freq : '||p_freq);
1350: pnp_debug_pkg.log('get_sch_info - OUT: p_counter : '||p_counter);
1351: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_dt : '||p_sch_dt);
1352: pnp_debug_pkg.log('get_sch_info - OUT: p_norm_str_dt : '||p_norm_str_dt);
1353: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_str_dt : '||p_sch_str_dt);
1354: pnp_debug_pkg.log('get_sch_info -End- (-)');
1355:
1348: pnp_debug_pkg.log('get_sch_info - OUT: p_no_sch : '||p_no_sch);
1349: pnp_debug_pkg.log('get_sch_info - OUT: p_freq : '||p_freq);
1350: pnp_debug_pkg.log('get_sch_info - OUT: p_counter : '||p_counter);
1351: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_dt : '||p_sch_dt);
1352: pnp_debug_pkg.log('get_sch_info - OUT: p_norm_str_dt : '||p_norm_str_dt);
1353: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_str_dt : '||p_sch_str_dt);
1354: pnp_debug_pkg.log('get_sch_info -End- (-)');
1355:
1356: END get_sch_info;
1349: pnp_debug_pkg.log('get_sch_info - OUT: p_freq : '||p_freq);
1350: pnp_debug_pkg.log('get_sch_info - OUT: p_counter : '||p_counter);
1351: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_dt : '||p_sch_dt);
1352: pnp_debug_pkg.log('get_sch_info - OUT: p_norm_str_dt : '||p_norm_str_dt);
1353: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_str_dt : '||p_sch_str_dt);
1354: pnp_debug_pkg.log('get_sch_info -End- (-)');
1355:
1356: END get_sch_info;
1357:
1350: pnp_debug_pkg.log('get_sch_info - OUT: p_counter : '||p_counter);
1351: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_dt : '||p_sch_dt);
1352: pnp_debug_pkg.log('get_sch_info - OUT: p_norm_str_dt : '||p_norm_str_dt);
1353: pnp_debug_pkg.log('get_sch_info - OUT: p_sch_str_dt : '||p_sch_str_dt);
1354: pnp_debug_pkg.log('get_sch_info -End- (-)');
1355:
1356: END get_sch_info;
1357:
1358:
1393: l_pro_type VARCHAR2(1000) := p_pr_rule;
1394:
1395: BEGIN
1396:
1397: pnp_debug_pkg.log('get_pro_amt +Start+ (+) -In- p_pr_rule: '||p_pr_rule);
1398: pnp_debug_pkg.log('get_pro_amt IN: p_sch_str_dt : '||p_sch_str_dt);
1399: pnp_debug_pkg.log('get_pro_amt IN: p_sch_end_dt : '||p_sch_end_dt);
1400: pnp_debug_pkg.log('get_pro_amt IN: p_trm_str_dt : '||p_trm_str_dt);
1401: pnp_debug_pkg.log('get_pro_amt IN: p_trm_end_dt : '||p_trm_end_dt);
1394:
1395: BEGIN
1396:
1397: pnp_debug_pkg.log('get_pro_amt +Start+ (+) -In- p_pr_rule: '||p_pr_rule);
1398: pnp_debug_pkg.log('get_pro_amt IN: p_sch_str_dt : '||p_sch_str_dt);
1399: pnp_debug_pkg.log('get_pro_amt IN: p_sch_end_dt : '||p_sch_end_dt);
1400: pnp_debug_pkg.log('get_pro_amt IN: p_trm_str_dt : '||p_trm_str_dt);
1401: pnp_debug_pkg.log('get_pro_amt IN: p_trm_end_dt : '||p_trm_end_dt);
1402: pnp_debug_pkg.log('get_pro_amt IN: p_mth_amt : '||p_mth_amt);
1395: BEGIN
1396:
1397: pnp_debug_pkg.log('get_pro_amt +Start+ (+) -In- p_pr_rule: '||p_pr_rule);
1398: pnp_debug_pkg.log('get_pro_amt IN: p_sch_str_dt : '||p_sch_str_dt);
1399: pnp_debug_pkg.log('get_pro_amt IN: p_sch_end_dt : '||p_sch_end_dt);
1400: pnp_debug_pkg.log('get_pro_amt IN: p_trm_str_dt : '||p_trm_str_dt);
1401: pnp_debug_pkg.log('get_pro_amt IN: p_trm_end_dt : '||p_trm_end_dt);
1402: pnp_debug_pkg.log('get_pro_amt IN: p_mth_amt : '||p_mth_amt);
1403: pnp_debug_pkg.log('get_pro_amt IN: p_pr_rule : '||p_pr_rule);
1396:
1397: pnp_debug_pkg.log('get_pro_amt +Start+ (+) -In- p_pr_rule: '||p_pr_rule);
1398: pnp_debug_pkg.log('get_pro_amt IN: p_sch_str_dt : '||p_sch_str_dt);
1399: pnp_debug_pkg.log('get_pro_amt IN: p_sch_end_dt : '||p_sch_end_dt);
1400: pnp_debug_pkg.log('get_pro_amt IN: p_trm_str_dt : '||p_trm_str_dt);
1401: pnp_debug_pkg.log('get_pro_amt IN: p_trm_end_dt : '||p_trm_end_dt);
1402: pnp_debug_pkg.log('get_pro_amt IN: p_mth_amt : '||p_mth_amt);
1403: pnp_debug_pkg.log('get_pro_amt IN: p_pr_rule : '||p_pr_rule);
1404: pnp_debug_pkg.log('get_pro_amt IN: p_partial_start : '||p_partial_start);
1397: pnp_debug_pkg.log('get_pro_amt +Start+ (+) -In- p_pr_rule: '||p_pr_rule);
1398: pnp_debug_pkg.log('get_pro_amt IN: p_sch_str_dt : '||p_sch_str_dt);
1399: pnp_debug_pkg.log('get_pro_amt IN: p_sch_end_dt : '||p_sch_end_dt);
1400: pnp_debug_pkg.log('get_pro_amt IN: p_trm_str_dt : '||p_trm_str_dt);
1401: pnp_debug_pkg.log('get_pro_amt IN: p_trm_end_dt : '||p_trm_end_dt);
1402: pnp_debug_pkg.log('get_pro_amt IN: p_mth_amt : '||p_mth_amt);
1403: pnp_debug_pkg.log('get_pro_amt IN: p_pr_rule : '||p_pr_rule);
1404: pnp_debug_pkg.log('get_pro_amt IN: p_partial_start : '||p_partial_start);
1405: pnp_debug_pkg.log('get_pro_amt IN: p_partial_end : '||p_partial_end);
1398: pnp_debug_pkg.log('get_pro_amt IN: p_sch_str_dt : '||p_sch_str_dt);
1399: pnp_debug_pkg.log('get_pro_amt IN: p_sch_end_dt : '||p_sch_end_dt);
1400: pnp_debug_pkg.log('get_pro_amt IN: p_trm_str_dt : '||p_trm_str_dt);
1401: pnp_debug_pkg.log('get_pro_amt IN: p_trm_end_dt : '||p_trm_end_dt);
1402: pnp_debug_pkg.log('get_pro_amt IN: p_mth_amt : '||p_mth_amt);
1403: pnp_debug_pkg.log('get_pro_amt IN: p_pr_rule : '||p_pr_rule);
1404: pnp_debug_pkg.log('get_pro_amt IN: p_partial_start : '||p_partial_start);
1405: pnp_debug_pkg.log('get_pro_amt IN: p_partial_end : '||p_partial_end);
1406:
1399: pnp_debug_pkg.log('get_pro_amt IN: p_sch_end_dt : '||p_sch_end_dt);
1400: pnp_debug_pkg.log('get_pro_amt IN: p_trm_str_dt : '||p_trm_str_dt);
1401: pnp_debug_pkg.log('get_pro_amt IN: p_trm_end_dt : '||p_trm_end_dt);
1402: pnp_debug_pkg.log('get_pro_amt IN: p_mth_amt : '||p_mth_amt);
1403: pnp_debug_pkg.log('get_pro_amt IN: p_pr_rule : '||p_pr_rule);
1404: pnp_debug_pkg.log('get_pro_amt IN: p_partial_start : '||p_partial_start);
1405: pnp_debug_pkg.log('get_pro_amt IN: p_partial_end : '||p_partial_end);
1406:
1407: l_mths := CEIL(MONTHS_BETWEEN(p_sch_end_dt, p_sch_str_dt));
1400: pnp_debug_pkg.log('get_pro_amt IN: p_trm_str_dt : '||p_trm_str_dt);
1401: pnp_debug_pkg.log('get_pro_amt IN: p_trm_end_dt : '||p_trm_end_dt);
1402: pnp_debug_pkg.log('get_pro_amt IN: p_mth_amt : '||p_mth_amt);
1403: pnp_debug_pkg.log('get_pro_amt IN: p_pr_rule : '||p_pr_rule);
1404: pnp_debug_pkg.log('get_pro_amt IN: p_partial_start : '||p_partial_start);
1405: pnp_debug_pkg.log('get_pro_amt IN: p_partial_end : '||p_partial_end);
1406:
1407: l_mths := CEIL(MONTHS_BETWEEN(p_sch_end_dt, p_sch_str_dt));
1408: l_freq := l_mths;
1401: pnp_debug_pkg.log('get_pro_amt IN: p_trm_end_dt : '||p_trm_end_dt);
1402: pnp_debug_pkg.log('get_pro_amt IN: p_mth_amt : '||p_mth_amt);
1403: pnp_debug_pkg.log('get_pro_amt IN: p_pr_rule : '||p_pr_rule);
1404: pnp_debug_pkg.log('get_pro_amt IN: p_partial_start : '||p_partial_start);
1405: pnp_debug_pkg.log('get_pro_amt IN: p_partial_end : '||p_partial_end);
1406:
1407: l_mths := CEIL(MONTHS_BETWEEN(p_sch_end_dt, p_sch_str_dt));
1408: l_freq := l_mths;
1409: l_pr_days := ((p_sch_end_dt - p_sch_str_dt) + 1);
1424: l_full_start_mths := FLOOR(ABS(MONTHS_BETWEEN(p_trm_str_dt, p_sch_str_dt)));
1425:
1426: l_partial_start_mths := l_full_start_mths +
1427: ABS(p_trm_str_dt - ADD_MONTHS(p_sch_str_dt,l_full_start_mths))/TO_NUMBER(TO_CHAR(LAST_DAY(ADD_MONTHS(p_sch_str_dt, l_full_start_mths)),'DD'));
1428: pnp_debug_pkg.log('get_pro_amt -partial_start_days: '||l_partial_start_days||
1429: ', l_partial_start_mths: '||l_partial_start_mths);
1430:
1431: END IF;
1432:
1438: l_partial_end_mths := l_full_end_mths +
1439: -- Fix for bug#13832432 has been reverted by bug#14158228
1440: ABS(ADD_MONTHS(p_sch_end_dt, -1 * l_full_end_mths) - p_trm_end_dt)/TO_NUMBER(TO_CHAR(LAST_DAY(ADD_MONTHS(p_sch_end_dt +1, -1 * (l_full_end_mths +1))),'DD'));
1441: --ABS(ADD_MONTHS(p_sch_end_dt, -1 * l_full_end_mths) - p_trm_end_dt)/TO_NUMBER(TO_CHAR(LAST_DAY(p_sch_end_dt), 'DD'));
1442: pnp_debug_pkg.log('get_pro_amt -partial_end_days: '||l_partial_end_days||
1443: ', l_partial_end_mths: '||l_partial_end_mths);
1444:
1445: END IF;
1446:
1447: IF p_partial_start = 'Y' OR p_partial_end = 'Y' THEN
1448:
1449: l_pr_days := l_pr_days - NVL(l_partial_start_days,0) - NVL(l_partial_end_days,0);
1450: l_pr_mths := l_mths - NVL(l_partial_start_mths,0) - NVL(l_partial_end_mths,0);
1451: pnp_debug_pkg.log('get_pro_amt -l_pr_days Final: '||l_pr_days||
1452: ', l_pr_mths Final: '||l_pr_mths);
1453:
1454: IF p_pr_rule = 999 THEN
1455: IF l_freq = 1 THEN -- For Monthly Term, Use prorated days.
1468: l_pr_amt := ROUND(p_mth_amt * l_mths, 2);
1469:
1470: END IF;
1471:
1472: pnp_debug_pkg.log('get_pro_amt -End- (-) : Pro Type: '||l_pro_type||
1473: ', l_pr_amt: '||l_pr_amt);
1474:
1475: RETURN l_pr_amt;
1476:
1507: l_partial_end VARCHAR2(1);
1508:
1509: BEGIN
1510:
1511: pnp_debug_pkg.log('get_amount +Start+ (+)');
1512: pnp_debug_pkg.log('get_amount IN: p_sch_str_dt : '||p_sch_str_dt);
1513: pnp_debug_pkg.log('get_amount IN: p_sch_end_dt : '||p_sch_end_dt);
1514: pnp_debug_pkg.log('get_amount IN: p_trm_str_dt : '||p_trm_str_dt);
1515: pnp_debug_pkg.log('get_amount IN: p_trm_end_dt : '||p_trm_end_dt);
1508:
1509: BEGIN
1510:
1511: pnp_debug_pkg.log('get_amount +Start+ (+)');
1512: pnp_debug_pkg.log('get_amount IN: p_sch_str_dt : '||p_sch_str_dt);
1513: pnp_debug_pkg.log('get_amount IN: p_sch_end_dt : '||p_sch_end_dt);
1514: pnp_debug_pkg.log('get_amount IN: p_trm_str_dt : '||p_trm_str_dt);
1515: pnp_debug_pkg.log('get_amount IN: p_trm_end_dt : '||p_trm_end_dt);
1516: pnp_debug_pkg.log('get_amount IN: p_act_amt : '||p_act_amt);
1509: BEGIN
1510:
1511: pnp_debug_pkg.log('get_amount +Start+ (+)');
1512: pnp_debug_pkg.log('get_amount IN: p_sch_str_dt : '||p_sch_str_dt);
1513: pnp_debug_pkg.log('get_amount IN: p_sch_end_dt : '||p_sch_end_dt);
1514: pnp_debug_pkg.log('get_amount IN: p_trm_str_dt : '||p_trm_str_dt);
1515: pnp_debug_pkg.log('get_amount IN: p_trm_end_dt : '||p_trm_end_dt);
1516: pnp_debug_pkg.log('get_amount IN: p_act_amt : '||p_act_amt);
1517: pnp_debug_pkg.log('get_amount IN: p_est_amt : '||p_est_amt);
1510:
1511: pnp_debug_pkg.log('get_amount +Start+ (+)');
1512: pnp_debug_pkg.log('get_amount IN: p_sch_str_dt : '||p_sch_str_dt);
1513: pnp_debug_pkg.log('get_amount IN: p_sch_end_dt : '||p_sch_end_dt);
1514: pnp_debug_pkg.log('get_amount IN: p_trm_str_dt : '||p_trm_str_dt);
1515: pnp_debug_pkg.log('get_amount IN: p_trm_end_dt : '||p_trm_end_dt);
1516: pnp_debug_pkg.log('get_amount IN: p_act_amt : '||p_act_amt);
1517: pnp_debug_pkg.log('get_amount IN: p_est_amt : '||p_est_amt);
1518: pnp_debug_pkg.log('get_amount IN: p_freq : '||p_freq);
1511: pnp_debug_pkg.log('get_amount +Start+ (+)');
1512: pnp_debug_pkg.log('get_amount IN: p_sch_str_dt : '||p_sch_str_dt);
1513: pnp_debug_pkg.log('get_amount IN: p_sch_end_dt : '||p_sch_end_dt);
1514: pnp_debug_pkg.log('get_amount IN: p_trm_str_dt : '||p_trm_str_dt);
1515: pnp_debug_pkg.log('get_amount IN: p_trm_end_dt : '||p_trm_end_dt);
1516: pnp_debug_pkg.log('get_amount IN: p_act_amt : '||p_act_amt);
1517: pnp_debug_pkg.log('get_amount IN: p_est_amt : '||p_est_amt);
1518: pnp_debug_pkg.log('get_amount IN: p_freq : '||p_freq);
1519: pnp_debug_pkg.log('get_amount IN: p_pro_rule : '||p_pro_rule);
1512: pnp_debug_pkg.log('get_amount IN: p_sch_str_dt : '||p_sch_str_dt);
1513: pnp_debug_pkg.log('get_amount IN: p_sch_end_dt : '||p_sch_end_dt);
1514: pnp_debug_pkg.log('get_amount IN: p_trm_str_dt : '||p_trm_str_dt);
1515: pnp_debug_pkg.log('get_amount IN: p_trm_end_dt : '||p_trm_end_dt);
1516: pnp_debug_pkg.log('get_amount IN: p_act_amt : '||p_act_amt);
1517: pnp_debug_pkg.log('get_amount IN: p_est_amt : '||p_est_amt);
1518: pnp_debug_pkg.log('get_amount IN: p_freq : '||p_freq);
1519: pnp_debug_pkg.log('get_amount IN: p_pro_rule : '||p_pro_rule);
1520:
1513: pnp_debug_pkg.log('get_amount IN: p_sch_end_dt : '||p_sch_end_dt);
1514: pnp_debug_pkg.log('get_amount IN: p_trm_str_dt : '||p_trm_str_dt);
1515: pnp_debug_pkg.log('get_amount IN: p_trm_end_dt : '||p_trm_end_dt);
1516: pnp_debug_pkg.log('get_amount IN: p_act_amt : '||p_act_amt);
1517: pnp_debug_pkg.log('get_amount IN: p_est_amt : '||p_est_amt);
1518: pnp_debug_pkg.log('get_amount IN: p_freq : '||p_freq);
1519: pnp_debug_pkg.log('get_amount IN: p_pro_rule : '||p_pro_rule);
1520:
1521: /* If the schedule lies completely outside the payment term range
1514: pnp_debug_pkg.log('get_amount IN: p_trm_str_dt : '||p_trm_str_dt);
1515: pnp_debug_pkg.log('get_amount IN: p_trm_end_dt : '||p_trm_end_dt);
1516: pnp_debug_pkg.log('get_amount IN: p_act_amt : '||p_act_amt);
1517: pnp_debug_pkg.log('get_amount IN: p_est_amt : '||p_est_amt);
1518: pnp_debug_pkg.log('get_amount IN: p_freq : '||p_freq);
1519: pnp_debug_pkg.log('get_amount IN: p_pro_rule : '||p_pro_rule);
1520:
1521: /* If the schedule lies completely outside the payment term range
1522: then the payment item amount will be equal to zero
1515: pnp_debug_pkg.log('get_amount IN: p_trm_end_dt : '||p_trm_end_dt);
1516: pnp_debug_pkg.log('get_amount IN: p_act_amt : '||p_act_amt);
1517: pnp_debug_pkg.log('get_amount IN: p_est_amt : '||p_est_amt);
1518: pnp_debug_pkg.log('get_amount IN: p_freq : '||p_freq);
1519: pnp_debug_pkg.log('get_amount IN: p_pro_rule : '||p_pro_rule);
1520:
1521: /* If the schedule lies completely outside the payment term range
1522: then the payment item amount will be equal to zero
1523:
1530: Note : This condition will arise when the payment term is normalized and lies
1531: completely within the main lease commencement and termination date.
1532: */
1533:
1534: pnp_debug_pkg.log('get_amount -In- p_sch_str_dt: '||TO_CHAR(p_sch_str_dt,'DD-MON-YYYY'));
1535: pnp_debug_pkg.log('get_amount -In- p_sch_end_dt: '||TO_CHAR(p_sch_end_dt,'DD-MON-YYYY'));
1536: pnp_debug_pkg.log('get_amount -In- p_trm_str_dt: '||TO_CHAR(p_trm_str_dt,'DD-MON-YYYY'));
1537: pnp_debug_pkg.log('get_amount -In- p_trm_end_dt: '||TO_CHAR(p_trm_end_dt,'DD-MON-YYYY'));
1538:
1531: completely within the main lease commencement and termination date.
1532: */
1533:
1534: pnp_debug_pkg.log('get_amount -In- p_sch_str_dt: '||TO_CHAR(p_sch_str_dt,'DD-MON-YYYY'));
1535: pnp_debug_pkg.log('get_amount -In- p_sch_end_dt: '||TO_CHAR(p_sch_end_dt,'DD-MON-YYYY'));
1536: pnp_debug_pkg.log('get_amount -In- p_trm_str_dt: '||TO_CHAR(p_trm_str_dt,'DD-MON-YYYY'));
1537: pnp_debug_pkg.log('get_amount -In- p_trm_end_dt: '||TO_CHAR(p_trm_end_dt,'DD-MON-YYYY'));
1538:
1539: IF (p_sch_str_dt < p_trm_str_dt AND p_sch_end_dt < p_trm_str_dt) OR
1532: */
1533:
1534: pnp_debug_pkg.log('get_amount -In- p_sch_str_dt: '||TO_CHAR(p_sch_str_dt,'DD-MON-YYYY'));
1535: pnp_debug_pkg.log('get_amount -In- p_sch_end_dt: '||TO_CHAR(p_sch_end_dt,'DD-MON-YYYY'));
1536: pnp_debug_pkg.log('get_amount -In- p_trm_str_dt: '||TO_CHAR(p_trm_str_dt,'DD-MON-YYYY'));
1537: pnp_debug_pkg.log('get_amount -In- p_trm_end_dt: '||TO_CHAR(p_trm_end_dt,'DD-MON-YYYY'));
1538:
1539: IF (p_sch_str_dt < p_trm_str_dt AND p_sch_end_dt < p_trm_str_dt) OR
1540: (p_sch_str_dt > p_trm_end_dt AND p_sch_end_dt > p_trm_end_dt) THEN
1533:
1534: pnp_debug_pkg.log('get_amount -In- p_sch_str_dt: '||TO_CHAR(p_sch_str_dt,'DD-MON-YYYY'));
1535: pnp_debug_pkg.log('get_amount -In- p_sch_end_dt: '||TO_CHAR(p_sch_end_dt,'DD-MON-YYYY'));
1536: pnp_debug_pkg.log('get_amount -In- p_trm_str_dt: '||TO_CHAR(p_trm_str_dt,'DD-MON-YYYY'));
1537: pnp_debug_pkg.log('get_amount -In- p_trm_end_dt: '||TO_CHAR(p_trm_end_dt,'DD-MON-YYYY'));
1538:
1539: IF (p_sch_str_dt < p_trm_str_dt AND p_sch_end_dt < p_trm_str_dt) OR
1540: (p_sch_str_dt > p_trm_end_dt AND p_sch_end_dt > p_trm_end_dt) THEN
1541:
1581: /* If partial start and partial end set the flags apprioriately */
1582:
1583: IF (p_trm_end_dt > p_sch_str_dt AND p_trm_end_dt < p_sch_end_dt) THEN
1584:
1585: pnp_debug_pkg.log('get amount - partial start partial end ');
1586: l_partial_start := 'Y';
1587: l_partial_end := 'Y';
1588:
1589: ELSE /* partial start and full end */
1587: l_partial_end := 'Y';
1588:
1589: ELSE /* partial start and full end */
1590:
1591: pnp_debug_pkg.log('get amount - partial start full end ');
1592: l_partial_start := 'Y';
1593: l_partial_end := 'N';
1594:
1595: END IF;
1597: ELSIF p_trm_str_dt <= p_sch_str_dt THEN /* full start */
1598:
1599: IF p_trm_end_dt >= p_sch_end_dt THEN /* full start and full end */
1600:
1601: pnp_debug_pkg.log('get amount - full start full end ');
1602:
1603: l_partial_start := 'N';
1604: l_partial_end := 'N';
1605:
1604: l_partial_end := 'N';
1605:
1606: ELSE /* full start and partial end */
1607:
1608: pnp_debug_pkg.log('get amount - full start partial end ');
1609: l_partial_start := 'N';
1610: l_partial_end := 'Y';
1611:
1612: END IF;
1648: END IF;
1649:
1650: END IF;
1651:
1652: pnp_debug_pkg.log('get_amount -OUT- p_cash_act_amt: '||TO_CHAR(p_cash_act_amt));
1653: pnp_debug_pkg.log('get_amount -OUT- p_cash_est_amt: '||TO_CHAR(p_cash_est_amt));
1654:
1655: pnp_debug_pkg.log('get_amount -End- (+)');
1656:
1649:
1650: END IF;
1651:
1652: pnp_debug_pkg.log('get_amount -OUT- p_cash_act_amt: '||TO_CHAR(p_cash_act_amt));
1653: pnp_debug_pkg.log('get_amount -OUT- p_cash_est_amt: '||TO_CHAR(p_cash_est_amt));
1654:
1655: pnp_debug_pkg.log('get_amount -End- (+)');
1656:
1657: END get_amount;
1651:
1652: pnp_debug_pkg.log('get_amount -OUT- p_cash_act_amt: '||TO_CHAR(p_cash_act_amt));
1653: pnp_debug_pkg.log('get_amount -OUT- p_cash_est_amt: '||TO_CHAR(p_cash_est_amt));
1654:
1655: pnp_debug_pkg.log('get_amount -End- (+)');
1656:
1657: END get_amount;
1658:
1659:
1756: p_lc_id,
1757: l_pymnt_st_lkp_cd,
1758: l_org_id);
1759:
1760: pnp_debug_pkg.log('create_schedule - created schedule id: '||TO_CHAR(l_sch_id)
1761: ||' - ('||p_sch_dt||')');
1762:
1763: ELSIF l_pymnt_st_lkp_cd <> 'DRAFT' THEN /* 7149537 */
1764:
1761: ||' - ('||p_sch_dt||')');
1762:
1763: ELSIF l_pymnt_st_lkp_cd <> 'DRAFT' THEN /* 7149537 */
1764:
1765: pnp_debug_pkg.log('create_schedule inside non-DRAFT');
1766:
1767: l_pymnt_st_lkp_cd := 'DRAFT';
1768: l_schd_date := p_sch_dt;
1769:
1770: /* check to see if the schedule date is already used by this payment term
1771: in the payment items table,in this case the calling procedure
1772: should not create the terms */
1773:
1774: pnp_debug_pkg.log('create_schedule: p_payment_term_id ' || p_payment_term_id);
1775:
1776: l_sched_exists := 'N';
1777: IF p_payment_term_id IS NOT NULL THEN
1778:
1787: l_sched_exists := 'N'; /* 7149537 */
1788: END IF;
1789: /*---- Bug#7149537------------*/
1790: END LOOP;
1791: pnp_debug_pkg.log('create_schedule: l_sched_exists ' || l_sched_exists);
1792: IF l_sched_exists = 'N' THEN
1793: BEGIN
1794:
1795: SELECT payment_schedule_id,
1800: AND schedule_date = l_schd_date
1801: AND payment_status_lookup_code = l_pymnt_st_lkp_cd
1802: AND ROWNUM = 1;
1803:
1804: pnp_debug_pkg.log('create_schedule: select executed' );
1805:
1806: EXCEPTION WHEN NO_DATA_FOUND THEN
1807: SELECT pn_payment_schedules_s.NEXTVAL INTO l_sch_id
1808: FROM DUAL;
1805:
1806: EXCEPTION WHEN NO_DATA_FOUND THEN
1807: SELECT pn_payment_schedules_s.NEXTVAL INTO l_sch_id
1808: FROM DUAL;
1809: pnp_debug_pkg.log('create_schedule: l_sch_id ' || l_sch_id);
1810: INSERT INTO pn_payment_schedules_all(
1811: payment_schedule_id,
1812: last_update_date,
1813: last_updated_by,
1834: END IF;
1835: END IF;
1836:
1837: END IF;
1838: pnp_debug_pkg.log('create_schedule: assigning to parameter');
1839: pnp_debug_pkg.log('create_schedule: assigning to parameter: l_sch_id ' || l_sch_id);
1840: pnp_debug_pkg.log('create_schedule: assigning to parameter: p_pymnt_st_lkp_cd ' || p_pymnt_st_lkp_cd);
1841: p_sch_id := l_sch_id;
1842: p_pymnt_st_lkp_cd := l_pymnt_st_lkp_cd;
1835: END IF;
1836:
1837: END IF;
1838: pnp_debug_pkg.log('create_schedule: assigning to parameter');
1839: pnp_debug_pkg.log('create_schedule: assigning to parameter: l_sch_id ' || l_sch_id);
1840: pnp_debug_pkg.log('create_schedule: assigning to parameter: p_pymnt_st_lkp_cd ' || p_pymnt_st_lkp_cd);
1841: p_sch_id := l_sch_id;
1842: p_pymnt_st_lkp_cd := l_pymnt_st_lkp_cd;
1843:
1836:
1837: END IF;
1838: pnp_debug_pkg.log('create_schedule: assigning to parameter');
1839: pnp_debug_pkg.log('create_schedule: assigning to parameter: l_sch_id ' || l_sch_id);
1840: pnp_debug_pkg.log('create_schedule: assigning to parameter: p_pymnt_st_lkp_cd ' || p_pymnt_st_lkp_cd);
1841: p_sch_id := l_sch_id;
1842: p_pymnt_st_lkp_cd := l_pymnt_st_lkp_cd;
1843:
1844: CLOSE check_sch;
1976: l_org_id,
1977: l_inv_grp_rule)
1978: RETURNING payment_item_id, actual_amount INTO l_payment_item_id, l_actual_amount;
1979:
1980: pnp_debug_pkg.log('create_cash_items OUT: payment_item_id: '||l_payment_item_id
1981: ||', actual_amount: '||l_actual_amount);
1982:
1983: EXCEPTION
1984:
2210: AND to_char(schedule_date,'MON-YY') = to_char(l_amd_comn_date,'MON-YY'); /* 9231686 */
2211:
2212:
2213:
2214: pnp_debug_pkg.log('create_normalize_items - l_amd_comn_date :=: '||TO_CHAR(l_amd_comn_date));
2215:
2216: /*IF l_amd_comn_date > p_norm_str_dt THEN
2217: l_amd_comn_date := p_norm_str_dt;
2218: END IF; /* 7149537 */--13772595
2216: /*IF l_amd_comn_date > p_norm_str_dt THEN
2217: l_amd_comn_date := p_norm_str_dt;
2218: END IF; /* 7149537 */--13772595
2219:
2220: pnp_debug_pkg.log('create_normalize_items - l_amd_comn_date1 :=: '||TO_CHAR(l_amd_comn_date));
2221:
2222: SELECT NVL(SUM(ppi.actual_amount),0)
2223: INTO l_app_amt
2224: FROM pn_payment_items_all ppi,
2232: pn_lease_details_all where lease_id = p_lease_id ); /* 7149537 */
2233:
2234:
2235: IF l_app_amt IS NOT NULL THEN
2236: pnp_debug_pkg.log('create_normalize_items - l_app_amt :=: '||TO_CHAR(l_app_amt));
2237: ELSE
2238: l_app_amt := 0;
2239: END IF; /* 7149537 */
2240:
2249: AND pps.payment_schedule_id = ppi.payment_schedule_id
2250: AND pps.payment_status_lookup_code = 'DRAFT'
2251: AND schedule_date < FIRST_DAY(l_amd_comn_date);
2252:
2253: pnp_debug_pkg.log('create_normalize_items - l_dft_amt :=: '||TO_CHAR(l_dft_amt));
2254:
2255: pnp_debug_pkg.log('create_normalize_items +Start+ (+) - Lease Context: '||p_lease_context);
2256: pnp_debug_pkg.log('create_normalize_items IN: p_lease_id : '||p_lease_id);
2257: pnp_debug_pkg.log('create_normalize_items IN: p_term_id : '||p_term_id);
2251: AND schedule_date < FIRST_DAY(l_amd_comn_date);
2252:
2253: pnp_debug_pkg.log('create_normalize_items - l_dft_amt :=: '||TO_CHAR(l_dft_amt));
2254:
2255: pnp_debug_pkg.log('create_normalize_items +Start+ (+) - Lease Context: '||p_lease_context);
2256: pnp_debug_pkg.log('create_normalize_items IN: p_lease_id : '||p_lease_id);
2257: pnp_debug_pkg.log('create_normalize_items IN: p_term_id : '||p_term_id);
2258: pnp_debug_pkg.log('create_normalize_items IN: p_sch_day : '||p_sch_day);
2259: pnp_debug_pkg.log('create_normalize_items IN: p_norm_str_dt : '||p_norm_str_dt);
2252:
2253: pnp_debug_pkg.log('create_normalize_items - l_dft_amt :=: '||TO_CHAR(l_dft_amt));
2254:
2255: pnp_debug_pkg.log('create_normalize_items +Start+ (+) - Lease Context: '||p_lease_context);
2256: pnp_debug_pkg.log('create_normalize_items IN: p_lease_id : '||p_lease_id);
2257: pnp_debug_pkg.log('create_normalize_items IN: p_term_id : '||p_term_id);
2258: pnp_debug_pkg.log('create_normalize_items IN: p_sch_day : '||p_sch_day);
2259: pnp_debug_pkg.log('create_normalize_items IN: p_norm_str_dt : '||p_norm_str_dt);
2260: pnp_debug_pkg.log('create_normalize_items IN: p_norm_end_dt : '||p_norm_end_dt);
2253: pnp_debug_pkg.log('create_normalize_items - l_dft_amt :=: '||TO_CHAR(l_dft_amt));
2254:
2255: pnp_debug_pkg.log('create_normalize_items +Start+ (+) - Lease Context: '||p_lease_context);
2256: pnp_debug_pkg.log('create_normalize_items IN: p_lease_id : '||p_lease_id);
2257: pnp_debug_pkg.log('create_normalize_items IN: p_term_id : '||p_term_id);
2258: pnp_debug_pkg.log('create_normalize_items IN: p_sch_day : '||p_sch_day);
2259: pnp_debug_pkg.log('create_normalize_items IN: p_norm_str_dt : '||p_norm_str_dt);
2260: pnp_debug_pkg.log('create_normalize_items IN: p_norm_end_dt : '||p_norm_end_dt);
2261: pnp_debug_pkg.log('create_normalize_items IN: p_lease_change_id : '||p_lease_change_id);
2254:
2255: pnp_debug_pkg.log('create_normalize_items +Start+ (+) - Lease Context: '||p_lease_context);
2256: pnp_debug_pkg.log('create_normalize_items IN: p_lease_id : '||p_lease_id);
2257: pnp_debug_pkg.log('create_normalize_items IN: p_term_id : '||p_term_id);
2258: pnp_debug_pkg.log('create_normalize_items IN: p_sch_day : '||p_sch_day);
2259: pnp_debug_pkg.log('create_normalize_items IN: p_norm_str_dt : '||p_norm_str_dt);
2260: pnp_debug_pkg.log('create_normalize_items IN: p_norm_end_dt : '||p_norm_end_dt);
2261: pnp_debug_pkg.log('create_normalize_items IN: p_lease_change_id : '||p_lease_change_id);
2262: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_id : '||p_vendor_id);
2255: pnp_debug_pkg.log('create_normalize_items +Start+ (+) - Lease Context: '||p_lease_context);
2256: pnp_debug_pkg.log('create_normalize_items IN: p_lease_id : '||p_lease_id);
2257: pnp_debug_pkg.log('create_normalize_items IN: p_term_id : '||p_term_id);
2258: pnp_debug_pkg.log('create_normalize_items IN: p_sch_day : '||p_sch_day);
2259: pnp_debug_pkg.log('create_normalize_items IN: p_norm_str_dt : '||p_norm_str_dt);
2260: pnp_debug_pkg.log('create_normalize_items IN: p_norm_end_dt : '||p_norm_end_dt);
2261: pnp_debug_pkg.log('create_normalize_items IN: p_lease_change_id : '||p_lease_change_id);
2262: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_id : '||p_vendor_id);
2263: pnp_debug_pkg.log('create_normalize_items IN: p_cust_id : '||p_cust_id);
2256: pnp_debug_pkg.log('create_normalize_items IN: p_lease_id : '||p_lease_id);
2257: pnp_debug_pkg.log('create_normalize_items IN: p_term_id : '||p_term_id);
2258: pnp_debug_pkg.log('create_normalize_items IN: p_sch_day : '||p_sch_day);
2259: pnp_debug_pkg.log('create_normalize_items IN: p_norm_str_dt : '||p_norm_str_dt);
2260: pnp_debug_pkg.log('create_normalize_items IN: p_norm_end_dt : '||p_norm_end_dt);
2261: pnp_debug_pkg.log('create_normalize_items IN: p_lease_change_id : '||p_lease_change_id);
2262: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_id : '||p_vendor_id);
2263: pnp_debug_pkg.log('create_normalize_items IN: p_cust_id : '||p_cust_id);
2264: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_site_id : '||p_vendor_site_id);
2257: pnp_debug_pkg.log('create_normalize_items IN: p_term_id : '||p_term_id);
2258: pnp_debug_pkg.log('create_normalize_items IN: p_sch_day : '||p_sch_day);
2259: pnp_debug_pkg.log('create_normalize_items IN: p_norm_str_dt : '||p_norm_str_dt);
2260: pnp_debug_pkg.log('create_normalize_items IN: p_norm_end_dt : '||p_norm_end_dt);
2261: pnp_debug_pkg.log('create_normalize_items IN: p_lease_change_id : '||p_lease_change_id);
2262: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_id : '||p_vendor_id);
2263: pnp_debug_pkg.log('create_normalize_items IN: p_cust_id : '||p_cust_id);
2264: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_site_id : '||p_vendor_site_id);
2265: pnp_debug_pkg.log('create_normalize_items IN: p_cust_site_use_id : '||p_cust_site_use_id);
2258: pnp_debug_pkg.log('create_normalize_items IN: p_sch_day : '||p_sch_day);
2259: pnp_debug_pkg.log('create_normalize_items IN: p_norm_str_dt : '||p_norm_str_dt);
2260: pnp_debug_pkg.log('create_normalize_items IN: p_norm_end_dt : '||p_norm_end_dt);
2261: pnp_debug_pkg.log('create_normalize_items IN: p_lease_change_id : '||p_lease_change_id);
2262: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_id : '||p_vendor_id);
2263: pnp_debug_pkg.log('create_normalize_items IN: p_cust_id : '||p_cust_id);
2264: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_site_id : '||p_vendor_site_id);
2265: pnp_debug_pkg.log('create_normalize_items IN: p_cust_site_use_id : '||p_cust_site_use_id);
2266: pnp_debug_pkg.log('create_normalize_items IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2259: pnp_debug_pkg.log('create_normalize_items IN: p_norm_str_dt : '||p_norm_str_dt);
2260: pnp_debug_pkg.log('create_normalize_items IN: p_norm_end_dt : '||p_norm_end_dt);
2261: pnp_debug_pkg.log('create_normalize_items IN: p_lease_change_id : '||p_lease_change_id);
2262: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_id : '||p_vendor_id);
2263: pnp_debug_pkg.log('create_normalize_items IN: p_cust_id : '||p_cust_id);
2264: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_site_id : '||p_vendor_site_id);
2265: pnp_debug_pkg.log('create_normalize_items IN: p_cust_site_use_id : '||p_cust_site_use_id);
2266: pnp_debug_pkg.log('create_normalize_items IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2267: pnp_debug_pkg.log('create_normalize_items IN: p_sob_id : '||p_sob_id);
2260: pnp_debug_pkg.log('create_normalize_items IN: p_norm_end_dt : '||p_norm_end_dt);
2261: pnp_debug_pkg.log('create_normalize_items IN: p_lease_change_id : '||p_lease_change_id);
2262: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_id : '||p_vendor_id);
2263: pnp_debug_pkg.log('create_normalize_items IN: p_cust_id : '||p_cust_id);
2264: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_site_id : '||p_vendor_site_id);
2265: pnp_debug_pkg.log('create_normalize_items IN: p_cust_site_use_id : '||p_cust_site_use_id);
2266: pnp_debug_pkg.log('create_normalize_items IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2267: pnp_debug_pkg.log('create_normalize_items IN: p_sob_id : '||p_sob_id);
2268: pnp_debug_pkg.log('create_normalize_items IN: p_rate : '||p_rate);
2261: pnp_debug_pkg.log('create_normalize_items IN: p_lease_change_id : '||p_lease_change_id);
2262: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_id : '||p_vendor_id);
2263: pnp_debug_pkg.log('create_normalize_items IN: p_cust_id : '||p_cust_id);
2264: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_site_id : '||p_vendor_site_id);
2265: pnp_debug_pkg.log('create_normalize_items IN: p_cust_site_use_id : '||p_cust_site_use_id);
2266: pnp_debug_pkg.log('create_normalize_items IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2267: pnp_debug_pkg.log('create_normalize_items IN: p_sob_id : '||p_sob_id);
2268: pnp_debug_pkg.log('create_normalize_items IN: p_rate : '||p_rate);
2269: pnp_debug_pkg.log('create_normalize_items IN: p_curr_code : '||p_curr_code);
2262: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_id : '||p_vendor_id);
2263: pnp_debug_pkg.log('create_normalize_items IN: p_cust_id : '||p_cust_id);
2264: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_site_id : '||p_vendor_site_id);
2265: pnp_debug_pkg.log('create_normalize_items IN: p_cust_site_use_id : '||p_cust_site_use_id);
2266: pnp_debug_pkg.log('create_normalize_items IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2267: pnp_debug_pkg.log('create_normalize_items IN: p_sob_id : '||p_sob_id);
2268: pnp_debug_pkg.log('create_normalize_items IN: p_rate : '||p_rate);
2269: pnp_debug_pkg.log('create_normalize_items IN: p_curr_code : '||p_curr_code);
2270:
2263: pnp_debug_pkg.log('create_normalize_items IN: p_cust_id : '||p_cust_id);
2264: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_site_id : '||p_vendor_site_id);
2265: pnp_debug_pkg.log('create_normalize_items IN: p_cust_site_use_id : '||p_cust_site_use_id);
2266: pnp_debug_pkg.log('create_normalize_items IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2267: pnp_debug_pkg.log('create_normalize_items IN: p_sob_id : '||p_sob_id);
2268: pnp_debug_pkg.log('create_normalize_items IN: p_rate : '||p_rate);
2269: pnp_debug_pkg.log('create_normalize_items IN: p_curr_code : '||p_curr_code);
2270:
2271: SELECT SUM(ppi.actual_amount)
2264: pnp_debug_pkg.log('create_normalize_items IN: p_vendor_site_id : '||p_vendor_site_id);
2265: pnp_debug_pkg.log('create_normalize_items IN: p_cust_site_use_id : '||p_cust_site_use_id);
2266: pnp_debug_pkg.log('create_normalize_items IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2267: pnp_debug_pkg.log('create_normalize_items IN: p_sob_id : '||p_sob_id);
2268: pnp_debug_pkg.log('create_normalize_items IN: p_rate : '||p_rate);
2269: pnp_debug_pkg.log('create_normalize_items IN: p_curr_code : '||p_curr_code);
2270:
2271: SELECT SUM(ppi.actual_amount)
2272: INTO l_total_cash_amt
2265: pnp_debug_pkg.log('create_normalize_items IN: p_cust_site_use_id : '||p_cust_site_use_id);
2266: pnp_debug_pkg.log('create_normalize_items IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2267: pnp_debug_pkg.log('create_normalize_items IN: p_sob_id : '||p_sob_id);
2268: pnp_debug_pkg.log('create_normalize_items IN: p_rate : '||p_rate);
2269: pnp_debug_pkg.log('create_normalize_items IN: p_curr_code : '||p_curr_code);
2270:
2271: SELECT SUM(ppi.actual_amount)
2272: INTO l_total_cash_amt
2273: FROM pn_payment_items_all ppi
2273: FROM pn_payment_items_all ppi
2274: WHERE ppi.payment_term_id = p_term_id
2275: AND ppi.payment_item_type_lookup_code = 'CASH';
2276:
2277: pnp_debug_pkg.log('create_normalize_items - total cash : '||TO_CHAR(l_total_cash_amt));
2278:
2279: --Fix for bug#14473645
2280: IF (p_norm_str_dt IS NOT NULL AND l_amd_comn_date IS NOT NULL AND TO_CHAR(p_norm_str_dt,'MMYY') = TO_CHAR(l_amd_comn_date,'MMYY')) THEN
2281: l_app_mths := 0;
2282: ELSE
2283: l_app_mths := CEIL(MONTHS_BETWEEN(p_norm_str_dt,l_amd_comn_date));
2284: END IF;
2285:
2286: pnp_debug_pkg.log('create_normalize_items - l_app_mths :=: '||TO_CHAR(l_app_mths));
2287: --bug#12728301 asahoo making l_la_amt to zero incase of EXP
2288: --Fix for bug#14143342
2289: IF p_lease_context IN ('ABS', 'ADD', 'ADDEDT', 'ADDAMD') THEN
2290:
2303: --Fix for bug#14143342
2304: l_la_amt := l_la_amt - l_app_amt + l_dft_amt; /* 7149537 */
2305: END IF;
2306:
2307: pnp_debug_pkg.log('create_normalize_items - leave alone amt : '||TO_CHAR(l_la_amt));
2308:
2309: /* Normalized Months required when Normalizing Partial Start,Partial end or both.*/
2310:
2311: l_mths := CEIL(MONTHS_BETWEEN(LAST_DAY(p_norm_end_dt),
2316:
2317: /* Find the last Schedule date of the term. */
2318:
2319: IF p_lease_context IN ('CON','EXP','CONTERM') THEN
2320: pnp_debug_pkg.log('create_normalize_items - l_sch_id_1 :=: '||TO_CHAR(l_sch_id_1));
2321: pnp_debug_pkg.log('create_normalize_items - p_norm_str_dt :=: '||TO_CHAR(p_norm_str_dt));
2322:
2323: SELECT LEAST(p_norm_end_dt, NVL(LAST_DAY(MAX(pps.schedule_date)), p_norm_end_dt))
2324: INTO l_norm_end_dt
2317: /* Find the last Schedule date of the term. */
2318:
2319: IF p_lease_context IN ('CON','EXP','CONTERM') THEN
2320: pnp_debug_pkg.log('create_normalize_items - l_sch_id_1 :=: '||TO_CHAR(l_sch_id_1));
2321: pnp_debug_pkg.log('create_normalize_items - p_norm_str_dt :=: '||TO_CHAR(p_norm_str_dt));
2322:
2323: SELECT LEAST(p_norm_end_dt, NVL(LAST_DAY(MAX(pps.schedule_date)), p_norm_end_dt))
2324: INTO l_norm_end_dt
2325: FROM pn_payment_items_all ppi,
2327: WHERE ppi.payment_term_id = p_term_id
2328: AND pps.payment_schedule_id = ppi.payment_schedule_id
2329: AND pps.payment_status_lookup_code = 'DRAFT';
2330:
2331: pnp_debug_pkg.log('l_norm_end_dt : '||TO_CHAR(l_norm_end_dt));
2332:
2333: SELECT COUNT(*)
2334: INTO l_app_sch
2335: FROM pn_payment_items_all ppi,
2359:
2360: -- If l_norm_mths = 0 do not re-normalize, exit create_normalize_items.
2361: IF l_norm_mths > 0 THEN -- Exit create_normalize_items.
2362:
2363: pnp_debug_pkg.log('create_normalize_items - l_mths : '||TO_CHAR(l_mths));
2364:
2365: l_last_sch_dt := TO_DATE(TO_CHAR(p_sch_day)||'/'||TO_CHAR(l_norm_end_dt,'MM/YYYY'),'DD/MM/YYYY');
2366:
2367: /* Find which day of month the lease starts.*/
2390: END IF;
2391:
2392: l_norm_mths := (l_norm_mths - 1) + NVL(l_partial_start_fraction,0);
2393:
2394: pnp_debug_pkg.log('create_normalize_items - l_partial_start_fraction : '
2395: ||TO_CHAR(l_partial_start_fraction));
2396:
2397: END IF;
2398:
2414: END IF;
2415:
2416: l_norm_mths := (l_norm_mths - 1) + NVL(l_partial_end_fraction,0);
2417:
2418: pnp_debug_pkg.log('create_normalize_items - l_partial_end_fraction : '
2419: ||TO_CHAR(l_partial_end_fraction));
2420:
2421: END IF;
2422:
2419: ||TO_CHAR(l_partial_end_fraction));
2420:
2421: END IF;
2422:
2423: pnp_debug_pkg.log('create_normalize_items - l_norm_mths : '||TO_CHAR(l_norm_mths));
2424:
2425: IF l_norm_mths <= 1 THEN
2426: l_monthly_norm_amt := l_total_cash_amt - l_la_amt; /* 9231686 */
2427: l_partial_end_flag := 'N';
2430: l_monthly_norm_amt := (l_total_cash_amt - l_la_amt )/l_norm_mths; /* 9231686 */
2431: END IF;
2432: l_norm_amt := l_monthly_norm_amt;
2433:
2434: pnp_debug_pkg.log('create_normalize_items - normalize amt : '||TO_CHAR(l_norm_amt));
2435:
2436: fnd_currency.get_info(p_curr_code, l_precision, l_ext_precision, l_min_acct_unit);
2437:
2438: IF p_lease_context IN ('EXP', 'CONTERM') THEN
2449: AND pps.schedule_date >= FIRST_DAY(l_amd_comn_date)) --Draft Schedules should not be deleted before ACD
2450: AND ppi.payment_item_type_lookup_code = 'NORMALIZED'
2451: AND ppi.payment_term_id = p_term_id;
2452:
2453: pnp_debug_pkg.log('create_normalize_items - deleted normalized items for EXP');
2454:
2455: END IF;
2456:
2457: IF p_lease_context IN ('ABS', 'ADD','ADDEDT', 'ADDAMD', 'EXP', 'CONTERM') THEN
2457: IF p_lease_context IN ('ABS', 'ADD','ADDEDT', 'ADDAMD', 'EXP', 'CONTERM') THEN
2458:
2459: l_norm_sch_dt := TO_DATE(TO_CHAR(p_sch_day)||'/'||TO_CHAR(l_amd_comn_date,'MM/YYYY'),'DD/MM/YYYY'); /* 8690792 */
2460:
2461: pnp_debug_pkg.log('create_normalize_items - 1st nor. sch. : '
2462: ||TO_CHAR(l_norm_sch_dt,'MM/DD/YYYY'));
2463:
2464: l_counter := 1;
2465:
2471: create_schedule(g_lease_id, p_lease_change_id, l_norm_sch_dt, l_sch_id, l_pymnt_st_lkp_cd, p_term_id);
2472: /*---- Bug#7149537-------*/
2473: IF (l_pymnt_st_lkp_cd = 'DRAFT' AND p_lease_context IN ('EXP', 'CONTERM')) OR
2474: p_lease_context in ('ABS', 'ADD', 'ADDEDT', 'ADDAMD') THEN
2475: pnp_debug_pkg.log('create_normalize_items - l_norm_sch_dt :=: '||TO_CHAR(l_norm_sch_dt));
2476: l_sch_id_1 := 0; -- Bug 7149537
2477: /* GET the schedule id if draft schedule already exist for the term */
2478: OPEN get_drf_sch (l_norm_sch_dt);
2479: FETCH get_drf_sch INTO l_sch_id_1;
2479: FETCH get_drf_sch INTO l_sch_id_1;
2480: CLOSE get_drf_sch;
2481:
2482: if l_sch_id_1 <>0 THEN -- Bug 7149537
2483: pnp_debug_pkg.log('create_normalize_items - l_sch_id_1 :=: '||TO_CHAR(nvl(l_sch_id_1,0)));
2484: ELSE
2485: l_sch_id_1 := 0;
2486: END IF;
2487:
2505: -- For last Item, adjust difference of Total Cash and Normalize amount
2506: -- so that sum of Cash and Normalize amounts are equal. (BUG# 2646928).
2507:
2508: l_prec_norm_amt := ROUND(l_norm_amt,l_precision);
2509: pnp_debug_pkg.log('create_normalize_items - l_prec_norm_amt : '||TO_CHAR(l_prec_norm_amt));
2510: l_tot_cum_norm_amt := l_tot_cum_norm_amt + l_prec_norm_amt;
2511: pnp_debug_pkg.log('create_normalize_items - l_tot_cum_norm_amt : '||TO_CHAR(l_tot_cum_norm_amt));
2512: IF l_counter = l_mths THEN
2513: l_tot_cum_diff_amt := (l_total_cash_amt - l_la_amt) - l_tot_cum_norm_amt;
2507:
2508: l_prec_norm_amt := ROUND(l_norm_amt,l_precision);
2509: pnp_debug_pkg.log('create_normalize_items - l_prec_norm_amt : '||TO_CHAR(l_prec_norm_amt));
2510: l_tot_cum_norm_amt := l_tot_cum_norm_amt + l_prec_norm_amt;
2511: pnp_debug_pkg.log('create_normalize_items - l_tot_cum_norm_amt : '||TO_CHAR(l_tot_cum_norm_amt));
2512: IF l_counter = l_mths THEN
2513: l_tot_cum_diff_amt := (l_total_cash_amt - l_la_amt) - l_tot_cum_norm_amt;
2514: l_prec_norm_amt := l_prec_norm_amt + l_tot_cum_diff_amt;
2515: END IF;
2551: END IF;
2552: END LOOP; /* 7149537 */
2553:
2554:
2555: pnp_debug_pkg.log('draft - l_norm_sch_dt : '||TO_CHAR(l_norm_sch_dt));
2556:
2557: pnp_debug_pkg.log('draft - l_prec_norm_amt : '||TO_CHAR(l_prec_norm_amt));
2558:
2559: l_draft_exist := 0;
2553:
2554:
2555: pnp_debug_pkg.log('draft - l_norm_sch_dt : '||TO_CHAR(l_norm_sch_dt));
2556:
2557: pnp_debug_pkg.log('draft - l_prec_norm_amt : '||TO_CHAR(l_prec_norm_amt));
2558:
2559: l_draft_exist := 0;
2560:
2561: /* CASH */
2573: l_draft_exist :=0;
2574: end;
2575: /*IF NVL(SQL%ROWCOUNT, 0) = 0 THEN */
2576: IF NVL(l_draft_exist,0) <> 0 THEN
2577: pnp_debug_pkg.log('draft - l_draft_exist : '||TO_CHAR(l_draft_exist));
2578: ELSE
2579: l_draft_exist := 0;
2580: create_cash_items(p_est_amt => 0, /* 7149537 */
2581: p_act_amt => 0,
2648: p_rate,
2649: l_org_id,
2650: l_inv_grp_rule);
2651:
2652: pnp_debug_pkg.log('INSERTED');
2653:
2654: ELSIF l_sch_id_1 <> 0 THEN /* 7149537 */
2655:
2656: pnp_debug_pkg.log('create_normalize_items - l_sch_id_1 : '||TO_CHAR(l_sch_id_1));
2652: pnp_debug_pkg.log('INSERTED');
2653:
2654: ELSIF l_sch_id_1 <> 0 THEN /* 7149537 */
2655:
2656: pnp_debug_pkg.log('create_normalize_items - l_sch_id_1 : '||TO_CHAR(l_sch_id_1));
2657:
2658: SELECT NVL(sum(actual_amount),0)
2659: into l_act_amt
2660: FROM pn_payment_items_all ppi,
2677: WHERE ppi.payment_schedule_id = l_sch_id_1
2678: AND ppi.payment_item_type_lookup_code = 'NORMALIZED'
2679: AND ppi.payment_term_id = p_term_id;
2680:
2681: pnp_debug_pkg.log('UPDATED -l_prec_norm_amt : '||TO_CHAR(l_prec_norm_amt));
2682: END IF;
2683: /* 7149537 */
2684:
2685: END IF;
2786: WHERE normalize ='Y'
2787: AND payment_term_id = p_term_id;
2788:
2789: ELSE -- Exit create_normalize_items.
2790: pnp_debug_pkg.log('create_normalize_items - Exit, No need to Normalize... l_norm_mths : '
2791: ||TO_CHAR(l_norm_mths));
2792: END IF; -- Exit create_normalize_items.
2793:
2794: pnp_debug_pkg.log('create_normalize_items -End- (-)');
2790: pnp_debug_pkg.log('create_normalize_items - Exit, No need to Normalize... l_norm_mths : '
2791: ||TO_CHAR(l_norm_mths));
2792: END IF; -- Exit create_normalize_items.
2793:
2794: pnp_debug_pkg.log('create_normalize_items -End- (-)');
2795:
2796: END create_normalize_items;
2797:
2798:
2897: l_non_zero_cash_sch_cnt NUMBER := 0;
2898:
2899: BEGIN
2900:
2901: pnp_debug_pkg.log('process_term +Start+ (+) - p_payment_term_id: '
2902: ||TO_CHAR(p_payment_term_id)
2903: ||', p_lease_context : '||p_lease_context);
2904: pnp_debug_pkg.log('process_term IN: p_no_sch : '||p_no_sch);
2905: pnp_debug_pkg.log('process_term IN: p_counter : '||p_counter);
2900:
2901: pnp_debug_pkg.log('process_term +Start+ (+) - p_payment_term_id: '
2902: ||TO_CHAR(p_payment_term_id)
2903: ||', p_lease_context : '||p_lease_context);
2904: pnp_debug_pkg.log('process_term IN: p_no_sch : '||p_no_sch);
2905: pnp_debug_pkg.log('process_term IN: p_counter : '||p_counter);
2906: pnp_debug_pkg.log('process_term IN: p_sch_dt : '||p_sch_dt);
2907: pnp_debug_pkg.log('process_term IN: p_pro_sch_dt : '||p_pro_sch_dt);
2908: pnp_debug_pkg.log('process_term IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
2901: pnp_debug_pkg.log('process_term +Start+ (+) - p_payment_term_id: '
2902: ||TO_CHAR(p_payment_term_id)
2903: ||', p_lease_context : '||p_lease_context);
2904: pnp_debug_pkg.log('process_term IN: p_no_sch : '||p_no_sch);
2905: pnp_debug_pkg.log('process_term IN: p_counter : '||p_counter);
2906: pnp_debug_pkg.log('process_term IN: p_sch_dt : '||p_sch_dt);
2907: pnp_debug_pkg.log('process_term IN: p_pro_sch_dt : '||p_pro_sch_dt);
2908: pnp_debug_pkg.log('process_term IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
2909: pnp_debug_pkg.log('process_term IN: p_freq : '||p_freq);
2902: ||TO_CHAR(p_payment_term_id)
2903: ||', p_lease_context : '||p_lease_context);
2904: pnp_debug_pkg.log('process_term IN: p_no_sch : '||p_no_sch);
2905: pnp_debug_pkg.log('process_term IN: p_counter : '||p_counter);
2906: pnp_debug_pkg.log('process_term IN: p_sch_dt : '||p_sch_dt);
2907: pnp_debug_pkg.log('process_term IN: p_pro_sch_dt : '||p_pro_sch_dt);
2908: pnp_debug_pkg.log('process_term IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
2909: pnp_debug_pkg.log('process_term IN: p_freq : '||p_freq);
2910: pnp_debug_pkg.log('process_term IN: p_freq_code : '||p_freq_code);
2903: ||', p_lease_context : '||p_lease_context);
2904: pnp_debug_pkg.log('process_term IN: p_no_sch : '||p_no_sch);
2905: pnp_debug_pkg.log('process_term IN: p_counter : '||p_counter);
2906: pnp_debug_pkg.log('process_term IN: p_sch_dt : '||p_sch_dt);
2907: pnp_debug_pkg.log('process_term IN: p_pro_sch_dt : '||p_pro_sch_dt);
2908: pnp_debug_pkg.log('process_term IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
2909: pnp_debug_pkg.log('process_term IN: p_freq : '||p_freq);
2910: pnp_debug_pkg.log('process_term IN: p_freq_code : '||p_freq_code);
2911: pnp_debug_pkg.log('process_term IN: p_payment_term_id : '||p_payment_term_id);
2904: pnp_debug_pkg.log('process_term IN: p_no_sch : '||p_no_sch);
2905: pnp_debug_pkg.log('process_term IN: p_counter : '||p_counter);
2906: pnp_debug_pkg.log('process_term IN: p_sch_dt : '||p_sch_dt);
2907: pnp_debug_pkg.log('process_term IN: p_pro_sch_dt : '||p_pro_sch_dt);
2908: pnp_debug_pkg.log('process_term IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
2909: pnp_debug_pkg.log('process_term IN: p_freq : '||p_freq);
2910: pnp_debug_pkg.log('process_term IN: p_freq_code : '||p_freq_code);
2911: pnp_debug_pkg.log('process_term IN: p_payment_term_id : '||p_payment_term_id);
2912: pnp_debug_pkg.log('process_term IN: p_pay_trm_typ_code : '||p_pay_trm_typ_code);
2905: pnp_debug_pkg.log('process_term IN: p_counter : '||p_counter);
2906: pnp_debug_pkg.log('process_term IN: p_sch_dt : '||p_sch_dt);
2907: pnp_debug_pkg.log('process_term IN: p_pro_sch_dt : '||p_pro_sch_dt);
2908: pnp_debug_pkg.log('process_term IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
2909: pnp_debug_pkg.log('process_term IN: p_freq : '||p_freq);
2910: pnp_debug_pkg.log('process_term IN: p_freq_code : '||p_freq_code);
2911: pnp_debug_pkg.log('process_term IN: p_payment_term_id : '||p_payment_term_id);
2912: pnp_debug_pkg.log('process_term IN: p_pay_trm_typ_code : '||p_pay_trm_typ_code);
2913: pnp_debug_pkg.log('process_term IN: p_trgt_dt : '||p_trgt_dt);
2906: pnp_debug_pkg.log('process_term IN: p_sch_dt : '||p_sch_dt);
2907: pnp_debug_pkg.log('process_term IN: p_pro_sch_dt : '||p_pro_sch_dt);
2908: pnp_debug_pkg.log('process_term IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
2909: pnp_debug_pkg.log('process_term IN: p_freq : '||p_freq);
2910: pnp_debug_pkg.log('process_term IN: p_freq_code : '||p_freq_code);
2911: pnp_debug_pkg.log('process_term IN: p_payment_term_id : '||p_payment_term_id);
2912: pnp_debug_pkg.log('process_term IN: p_pay_trm_typ_code : '||p_pay_trm_typ_code);
2913: pnp_debug_pkg.log('process_term IN: p_trgt_dt : '||p_trgt_dt);
2914: pnp_debug_pkg.log('process_term IN: p_normalize_flag : '||p_normalize_flag);
2907: pnp_debug_pkg.log('process_term IN: p_pro_sch_dt : '||p_pro_sch_dt);
2908: pnp_debug_pkg.log('process_term IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
2909: pnp_debug_pkg.log('process_term IN: p_freq : '||p_freq);
2910: pnp_debug_pkg.log('process_term IN: p_freq_code : '||p_freq_code);
2911: pnp_debug_pkg.log('process_term IN: p_payment_term_id : '||p_payment_term_id);
2912: pnp_debug_pkg.log('process_term IN: p_pay_trm_typ_code : '||p_pay_trm_typ_code);
2913: pnp_debug_pkg.log('process_term IN: p_trgt_dt : '||p_trgt_dt);
2914: pnp_debug_pkg.log('process_term IN: p_normalize_flag : '||p_normalize_flag);
2915: pnp_debug_pkg.log('process_term IN: p_lease_context : '||p_lease_context);
2908: pnp_debug_pkg.log('process_term IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
2909: pnp_debug_pkg.log('process_term IN: p_freq : '||p_freq);
2910: pnp_debug_pkg.log('process_term IN: p_freq_code : '||p_freq_code);
2911: pnp_debug_pkg.log('process_term IN: p_payment_term_id : '||p_payment_term_id);
2912: pnp_debug_pkg.log('process_term IN: p_pay_trm_typ_code : '||p_pay_trm_typ_code);
2913: pnp_debug_pkg.log('process_term IN: p_trgt_dt : '||p_trgt_dt);
2914: pnp_debug_pkg.log('process_term IN: p_normalize_flag : '||p_normalize_flag);
2915: pnp_debug_pkg.log('process_term IN: p_lease_context : '||p_lease_context);
2916: pnp_debug_pkg.log('process_term IN: p_mths : '||p_mths);
2909: pnp_debug_pkg.log('process_term IN: p_freq : '||p_freq);
2910: pnp_debug_pkg.log('process_term IN: p_freq_code : '||p_freq_code);
2911: pnp_debug_pkg.log('process_term IN: p_payment_term_id : '||p_payment_term_id);
2912: pnp_debug_pkg.log('process_term IN: p_pay_trm_typ_code : '||p_pay_trm_typ_code);
2913: pnp_debug_pkg.log('process_term IN: p_trgt_dt : '||p_trgt_dt);
2914: pnp_debug_pkg.log('process_term IN: p_normalize_flag : '||p_normalize_flag);
2915: pnp_debug_pkg.log('process_term IN: p_lease_context : '||p_lease_context);
2916: pnp_debug_pkg.log('process_term IN: p_mths : '||p_mths);
2917: pnp_debug_pkg.log('process_term IN: p_vendor_id : '||p_vendor_id);
2910: pnp_debug_pkg.log('process_term IN: p_freq_code : '||p_freq_code);
2911: pnp_debug_pkg.log('process_term IN: p_payment_term_id : '||p_payment_term_id);
2912: pnp_debug_pkg.log('process_term IN: p_pay_trm_typ_code : '||p_pay_trm_typ_code);
2913: pnp_debug_pkg.log('process_term IN: p_trgt_dt : '||p_trgt_dt);
2914: pnp_debug_pkg.log('process_term IN: p_normalize_flag : '||p_normalize_flag);
2915: pnp_debug_pkg.log('process_term IN: p_lease_context : '||p_lease_context);
2916: pnp_debug_pkg.log('process_term IN: p_mths : '||p_mths);
2917: pnp_debug_pkg.log('process_term IN: p_vendor_id : '||p_vendor_id);
2918: pnp_debug_pkg.log('process_term IN: p_customer_id : '||p_customer_id);
2911: pnp_debug_pkg.log('process_term IN: p_payment_term_id : '||p_payment_term_id);
2912: pnp_debug_pkg.log('process_term IN: p_pay_trm_typ_code : '||p_pay_trm_typ_code);
2913: pnp_debug_pkg.log('process_term IN: p_trgt_dt : '||p_trgt_dt);
2914: pnp_debug_pkg.log('process_term IN: p_normalize_flag : '||p_normalize_flag);
2915: pnp_debug_pkg.log('process_term IN: p_lease_context : '||p_lease_context);
2916: pnp_debug_pkg.log('process_term IN: p_mths : '||p_mths);
2917: pnp_debug_pkg.log('process_term IN: p_vendor_id : '||p_vendor_id);
2918: pnp_debug_pkg.log('process_term IN: p_customer_id : '||p_customer_id);
2919: pnp_debug_pkg.log('process_term IN: p_vendor_site_id : '||p_vendor_site_id);
2912: pnp_debug_pkg.log('process_term IN: p_pay_trm_typ_code : '||p_pay_trm_typ_code);
2913: pnp_debug_pkg.log('process_term IN: p_trgt_dt : '||p_trgt_dt);
2914: pnp_debug_pkg.log('process_term IN: p_normalize_flag : '||p_normalize_flag);
2915: pnp_debug_pkg.log('process_term IN: p_lease_context : '||p_lease_context);
2916: pnp_debug_pkg.log('process_term IN: p_mths : '||p_mths);
2917: pnp_debug_pkg.log('process_term IN: p_vendor_id : '||p_vendor_id);
2918: pnp_debug_pkg.log('process_term IN: p_customer_id : '||p_customer_id);
2919: pnp_debug_pkg.log('process_term IN: p_vendor_site_id : '||p_vendor_site_id);
2920: pnp_debug_pkg.log('process_term IN: p_customer_site_use_id : '||p_customer_site_use_id);
2913: pnp_debug_pkg.log('process_term IN: p_trgt_dt : '||p_trgt_dt);
2914: pnp_debug_pkg.log('process_term IN: p_normalize_flag : '||p_normalize_flag);
2915: pnp_debug_pkg.log('process_term IN: p_lease_context : '||p_lease_context);
2916: pnp_debug_pkg.log('process_term IN: p_mths : '||p_mths);
2917: pnp_debug_pkg.log('process_term IN: p_vendor_id : '||p_vendor_id);
2918: pnp_debug_pkg.log('process_term IN: p_customer_id : '||p_customer_id);
2919: pnp_debug_pkg.log('process_term IN: p_vendor_site_id : '||p_vendor_site_id);
2920: pnp_debug_pkg.log('process_term IN: p_customer_site_use_id : '||p_customer_site_use_id);
2921: pnp_debug_pkg.log('process_term IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2914: pnp_debug_pkg.log('process_term IN: p_normalize_flag : '||p_normalize_flag);
2915: pnp_debug_pkg.log('process_term IN: p_lease_context : '||p_lease_context);
2916: pnp_debug_pkg.log('process_term IN: p_mths : '||p_mths);
2917: pnp_debug_pkg.log('process_term IN: p_vendor_id : '||p_vendor_id);
2918: pnp_debug_pkg.log('process_term IN: p_customer_id : '||p_customer_id);
2919: pnp_debug_pkg.log('process_term IN: p_vendor_site_id : '||p_vendor_site_id);
2920: pnp_debug_pkg.log('process_term IN: p_customer_site_use_id : '||p_customer_site_use_id);
2921: pnp_debug_pkg.log('process_term IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2922: pnp_debug_pkg.log('process_term IN: p_set_of_books_id : '||p_set_of_books_id);
2915: pnp_debug_pkg.log('process_term IN: p_lease_context : '||p_lease_context);
2916: pnp_debug_pkg.log('process_term IN: p_mths : '||p_mths);
2917: pnp_debug_pkg.log('process_term IN: p_vendor_id : '||p_vendor_id);
2918: pnp_debug_pkg.log('process_term IN: p_customer_id : '||p_customer_id);
2919: pnp_debug_pkg.log('process_term IN: p_vendor_site_id : '||p_vendor_site_id);
2920: pnp_debug_pkg.log('process_term IN: p_customer_site_use_id : '||p_customer_site_use_id);
2921: pnp_debug_pkg.log('process_term IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2922: pnp_debug_pkg.log('process_term IN: p_set_of_books_id : '||p_set_of_books_id);
2923: pnp_debug_pkg.log('process_term IN: p_currency_code : '||p_currency_code);
2916: pnp_debug_pkg.log('process_term IN: p_mths : '||p_mths);
2917: pnp_debug_pkg.log('process_term IN: p_vendor_id : '||p_vendor_id);
2918: pnp_debug_pkg.log('process_term IN: p_customer_id : '||p_customer_id);
2919: pnp_debug_pkg.log('process_term IN: p_vendor_site_id : '||p_vendor_site_id);
2920: pnp_debug_pkg.log('process_term IN: p_customer_site_use_id : '||p_customer_site_use_id);
2921: pnp_debug_pkg.log('process_term IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2922: pnp_debug_pkg.log('process_term IN: p_set_of_books_id : '||p_set_of_books_id);
2923: pnp_debug_pkg.log('process_term IN: p_currency_code : '||p_currency_code);
2924: pnp_debug_pkg.log('process_term IN: p_rate : '||p_rate);
2917: pnp_debug_pkg.log('process_term IN: p_vendor_id : '||p_vendor_id);
2918: pnp_debug_pkg.log('process_term IN: p_customer_id : '||p_customer_id);
2919: pnp_debug_pkg.log('process_term IN: p_vendor_site_id : '||p_vendor_site_id);
2920: pnp_debug_pkg.log('process_term IN: p_customer_site_use_id : '||p_customer_site_use_id);
2921: pnp_debug_pkg.log('process_term IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2922: pnp_debug_pkg.log('process_term IN: p_set_of_books_id : '||p_set_of_books_id);
2923: pnp_debug_pkg.log('process_term IN: p_currency_code : '||p_currency_code);
2924: pnp_debug_pkg.log('process_term IN: p_rate : '||p_rate);
2925: pnp_debug_pkg.log('process_term IN: p_term_start_date : '||p_term_start_date);
2918: pnp_debug_pkg.log('process_term IN: p_customer_id : '||p_customer_id);
2919: pnp_debug_pkg.log('process_term IN: p_vendor_site_id : '||p_vendor_site_id);
2920: pnp_debug_pkg.log('process_term IN: p_customer_site_use_id : '||p_customer_site_use_id);
2921: pnp_debug_pkg.log('process_term IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2922: pnp_debug_pkg.log('process_term IN: p_set_of_books_id : '||p_set_of_books_id);
2923: pnp_debug_pkg.log('process_term IN: p_currency_code : '||p_currency_code);
2924: pnp_debug_pkg.log('process_term IN: p_rate : '||p_rate);
2925: pnp_debug_pkg.log('process_term IN: p_term_start_date : '||p_term_start_date);
2926: pnp_debug_pkg.log('process_term IN: p_term_end_date : '||p_term_end_date);
2919: pnp_debug_pkg.log('process_term IN: p_vendor_site_id : '||p_vendor_site_id);
2920: pnp_debug_pkg.log('process_term IN: p_customer_site_use_id : '||p_customer_site_use_id);
2921: pnp_debug_pkg.log('process_term IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2922: pnp_debug_pkg.log('process_term IN: p_set_of_books_id : '||p_set_of_books_id);
2923: pnp_debug_pkg.log('process_term IN: p_currency_code : '||p_currency_code);
2924: pnp_debug_pkg.log('process_term IN: p_rate : '||p_rate);
2925: pnp_debug_pkg.log('process_term IN: p_term_start_date : '||p_term_start_date);
2926: pnp_debug_pkg.log('process_term IN: p_term_end_date : '||p_term_end_date);
2927: pnp_debug_pkg.log('process_term IN: p_sch_str_dt : '||p_sch_str_dt);
2920: pnp_debug_pkg.log('process_term IN: p_customer_site_use_id : '||p_customer_site_use_id);
2921: pnp_debug_pkg.log('process_term IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2922: pnp_debug_pkg.log('process_term IN: p_set_of_books_id : '||p_set_of_books_id);
2923: pnp_debug_pkg.log('process_term IN: p_currency_code : '||p_currency_code);
2924: pnp_debug_pkg.log('process_term IN: p_rate : '||p_rate);
2925: pnp_debug_pkg.log('process_term IN: p_term_start_date : '||p_term_start_date);
2926: pnp_debug_pkg.log('process_term IN: p_term_end_date : '||p_term_end_date);
2927: pnp_debug_pkg.log('process_term IN: p_sch_str_dt : '||p_sch_str_dt);
2928: pnp_debug_pkg.log('process_term IN: p_act_amt : '||p_act_amt);
2921: pnp_debug_pkg.log('process_term IN: p_cust_ship_site_id : '||p_cust_ship_site_id);
2922: pnp_debug_pkg.log('process_term IN: p_set_of_books_id : '||p_set_of_books_id);
2923: pnp_debug_pkg.log('process_term IN: p_currency_code : '||p_currency_code);
2924: pnp_debug_pkg.log('process_term IN: p_rate : '||p_rate);
2925: pnp_debug_pkg.log('process_term IN: p_term_start_date : '||p_term_start_date);
2926: pnp_debug_pkg.log('process_term IN: p_term_end_date : '||p_term_end_date);
2927: pnp_debug_pkg.log('process_term IN: p_sch_str_dt : '||p_sch_str_dt);
2928: pnp_debug_pkg.log('process_term IN: p_act_amt : '||p_act_amt);
2929: pnp_debug_pkg.log('process_term IN: p_est_amt : '||p_est_amt);
2922: pnp_debug_pkg.log('process_term IN: p_set_of_books_id : '||p_set_of_books_id);
2923: pnp_debug_pkg.log('process_term IN: p_currency_code : '||p_currency_code);
2924: pnp_debug_pkg.log('process_term IN: p_rate : '||p_rate);
2925: pnp_debug_pkg.log('process_term IN: p_term_start_date : '||p_term_start_date);
2926: pnp_debug_pkg.log('process_term IN: p_term_end_date : '||p_term_end_date);
2927: pnp_debug_pkg.log('process_term IN: p_sch_str_dt : '||p_sch_str_dt);
2928: pnp_debug_pkg.log('process_term IN: p_act_amt : '||p_act_amt);
2929: pnp_debug_pkg.log('process_term IN: p_est_amt : '||p_est_amt);
2930: pnp_debug_pkg.log('process_term IN: p_index_prd_id : '||p_index_prd_id);
2923: pnp_debug_pkg.log('process_term IN: p_currency_code : '||p_currency_code);
2924: pnp_debug_pkg.log('process_term IN: p_rate : '||p_rate);
2925: pnp_debug_pkg.log('process_term IN: p_term_start_date : '||p_term_start_date);
2926: pnp_debug_pkg.log('process_term IN: p_term_end_date : '||p_term_end_date);
2927: pnp_debug_pkg.log('process_term IN: p_sch_str_dt : '||p_sch_str_dt);
2928: pnp_debug_pkg.log('process_term IN: p_act_amt : '||p_act_amt);
2929: pnp_debug_pkg.log('process_term IN: p_est_amt : '||p_est_amt);
2930: pnp_debug_pkg.log('process_term IN: p_index_prd_id : '||p_index_prd_id);
2931: pnp_debug_pkg.log('process_term IN: p_norm_str_dt : '||p_norm_str_dt);
2924: pnp_debug_pkg.log('process_term IN: p_rate : '||p_rate);
2925: pnp_debug_pkg.log('process_term IN: p_term_start_date : '||p_term_start_date);
2926: pnp_debug_pkg.log('process_term IN: p_term_end_date : '||p_term_end_date);
2927: pnp_debug_pkg.log('process_term IN: p_sch_str_dt : '||p_sch_str_dt);
2928: pnp_debug_pkg.log('process_term IN: p_act_amt : '||p_act_amt);
2929: pnp_debug_pkg.log('process_term IN: p_est_amt : '||p_est_amt);
2930: pnp_debug_pkg.log('process_term IN: p_index_prd_id : '||p_index_prd_id);
2931: pnp_debug_pkg.log('process_term IN: p_norm_str_dt : '||p_norm_str_dt);
2932: pnp_debug_pkg.log('process_term IN: p_lease_change_id : '||p_lease_change_id);
2925: pnp_debug_pkg.log('process_term IN: p_term_start_date : '||p_term_start_date);
2926: pnp_debug_pkg.log('process_term IN: p_term_end_date : '||p_term_end_date);
2927: pnp_debug_pkg.log('process_term IN: p_sch_str_dt : '||p_sch_str_dt);
2928: pnp_debug_pkg.log('process_term IN: p_act_amt : '||p_act_amt);
2929: pnp_debug_pkg.log('process_term IN: p_est_amt : '||p_est_amt);
2930: pnp_debug_pkg.log('process_term IN: p_index_prd_id : '||p_index_prd_id);
2931: pnp_debug_pkg.log('process_term IN: p_norm_str_dt : '||p_norm_str_dt);
2932: pnp_debug_pkg.log('process_term IN: p_lease_change_id : '||p_lease_change_id);
2933:
2926: pnp_debug_pkg.log('process_term IN: p_term_end_date : '||p_term_end_date);
2927: pnp_debug_pkg.log('process_term IN: p_sch_str_dt : '||p_sch_str_dt);
2928: pnp_debug_pkg.log('process_term IN: p_act_amt : '||p_act_amt);
2929: pnp_debug_pkg.log('process_term IN: p_est_amt : '||p_est_amt);
2930: pnp_debug_pkg.log('process_term IN: p_index_prd_id : '||p_index_prd_id);
2931: pnp_debug_pkg.log('process_term IN: p_norm_str_dt : '||p_norm_str_dt);
2932: pnp_debug_pkg.log('process_term IN: p_lease_change_id : '||p_lease_change_id);
2933:
2934: /* Initialize the schedule date */
2927: pnp_debug_pkg.log('process_term IN: p_sch_str_dt : '||p_sch_str_dt);
2928: pnp_debug_pkg.log('process_term IN: p_act_amt : '||p_act_amt);
2929: pnp_debug_pkg.log('process_term IN: p_est_amt : '||p_est_amt);
2930: pnp_debug_pkg.log('process_term IN: p_index_prd_id : '||p_index_prd_id);
2931: pnp_debug_pkg.log('process_term IN: p_norm_str_dt : '||p_norm_str_dt);
2932: pnp_debug_pkg.log('process_term IN: p_lease_change_id : '||p_lease_change_id);
2933:
2934: /* Initialize the schedule date */
2935:
2928: pnp_debug_pkg.log('process_term IN: p_act_amt : '||p_act_amt);
2929: pnp_debug_pkg.log('process_term IN: p_est_amt : '||p_est_amt);
2930: pnp_debug_pkg.log('process_term IN: p_index_prd_id : '||p_index_prd_id);
2931: pnp_debug_pkg.log('process_term IN: p_norm_str_dt : '||p_norm_str_dt);
2932: pnp_debug_pkg.log('process_term IN: p_lease_change_id : '||p_lease_change_id);
2933:
2934: /* Initialize the schedule date */
2935:
2936: -- Bug 7570052
2952: l_sch_str_dt := p_sch_str_dt;
2953: END IF;
2954:
2955:
2956: pnp_debug_pkg.log('process_term (+) - l_sch_str_dt: '||l_sch_str_dt
2957: ||', l_pro_sch_dt: '||l_pro_sch_dt);
2958:
2959: IF p_lease_context = 'EXP' --13850837
2960: THEN
3077: l_cash_est_amt := NULL;
3078:
3079: END IF;
3080:
3081: pnp_debug_pkg.log('process_term - l_cash_act_amt: '||TO_CHAR(l_cash_act_amt));
3082: pnp_debug_pkg.log('process_term - l_cash_est_amt: '||TO_CHAR(l_cash_est_amt));
3083: END IF;
3084:
3085: ELSIF p_lease_context IN ('ADDEDT', 'ADDAMD', 'ADD', 'ABS') THEN
3078:
3079: END IF;
3080:
3081: pnp_debug_pkg.log('process_term - l_cash_act_amt: '||TO_CHAR(l_cash_act_amt));
3082: pnp_debug_pkg.log('process_term - l_cash_est_amt: '||TO_CHAR(l_cash_est_amt));
3083: END IF;
3084:
3085: ELSIF p_lease_context IN ('ADDEDT', 'ADDAMD', 'ADD', 'ABS') THEN
3086: pnp_debug_pkg.log('process_term (+) - l_next_cash_duration_dt: '||l_next_cash_duration_dt||' -l_sch_dt '||l_sch_dt||'-l_pro_sch_dt '
3082: pnp_debug_pkg.log('process_term - l_cash_est_amt: '||TO_CHAR(l_cash_est_amt));
3083: END IF;
3084:
3085: ELSIF p_lease_context IN ('ADDEDT', 'ADDAMD', 'ADD', 'ABS') THEN
3086: pnp_debug_pkg.log('process_term (+) - l_next_cash_duration_dt: '||l_next_cash_duration_dt||' -l_sch_dt '||l_sch_dt||'-l_pro_sch_dt '
3087: ||l_pro_sch_dt||'-l_sch_str_dt '||l_sch_str_dt);
3088:
3089:
3090: /* If schedule date is equal to the schedule date which
3107:
3108: l_cash_est_amt := p_est_amt;
3109: l_cash_act_amt :=nvl(p_act_amt,p_est_amt);--Bug#2657736 added nvl
3110:
3111: pnp_debug_pkg.log('process_term - l_cash_act_amt: '||TO_CHAR(l_cash_act_amt));
3112: pnp_debug_pkg.log('process_term - l_cash_est_amt: '||TO_CHAR(l_cash_est_amt));
3113:
3114: ELSE
3115: -- Bug 13117329 IF l_sch_str_dt = l_next_cash_duration_dt THEN
3108: l_cash_est_amt := p_est_amt;
3109: l_cash_act_amt :=nvl(p_act_amt,p_est_amt);--Bug#2657736 added nvl
3110:
3111: pnp_debug_pkg.log('process_term - l_cash_act_amt: '||TO_CHAR(l_cash_act_amt));
3112: pnp_debug_pkg.log('process_term - l_cash_est_amt: '||TO_CHAR(l_cash_est_amt));
3113:
3114: ELSE
3115: -- Bug 13117329 IF l_sch_str_dt = l_next_cash_duration_dt THEN
3116:
3114: ELSE
3115: -- Bug 13117329 IF l_sch_str_dt = l_next_cash_duration_dt THEN
3116:
3117: IF ((TO_CHAR(l_sch_str_dt,'MM/YYYY') =TO_CHAR(l_next_cash_duration_dt,'MM/YYYY'))) THEN
3118: pnp_debug_pkg.log('process_term - Calling get_amount, sch st dt : '
3119: ||TO_CHAR(l_sch_str_dt,'MM/DD/YYYY'));
3120: pnp_debug_pkg.log('process_term - Calling get_amount, sch end dt : '
3121: ||TO_CHAR(l_sch_end_dt,'MM/DD/YYYY'));
3122: pnp_debug_pkg.log('process_term - Calling get_amount, term st dt : '
3116:
3117: IF ((TO_CHAR(l_sch_str_dt,'MM/YYYY') =TO_CHAR(l_next_cash_duration_dt,'MM/YYYY'))) THEN
3118: pnp_debug_pkg.log('process_term - Calling get_amount, sch st dt : '
3119: ||TO_CHAR(l_sch_str_dt,'MM/DD/YYYY'));
3120: pnp_debug_pkg.log('process_term - Calling get_amount, sch end dt : '
3121: ||TO_CHAR(l_sch_end_dt,'MM/DD/YYYY'));
3122: pnp_debug_pkg.log('process_term - Calling get_amount, term st dt : '
3123: ||TO_CHAR(p_term_start_date,'MM/DD/YYYY'));
3124: pnp_debug_pkg.log('process_term - Calling get_amount, term end dt : '
3118: pnp_debug_pkg.log('process_term - Calling get_amount, sch st dt : '
3119: ||TO_CHAR(l_sch_str_dt,'MM/DD/YYYY'));
3120: pnp_debug_pkg.log('process_term - Calling get_amount, sch end dt : '
3121: ||TO_CHAR(l_sch_end_dt,'MM/DD/YYYY'));
3122: pnp_debug_pkg.log('process_term - Calling get_amount, term st dt : '
3123: ||TO_CHAR(p_term_start_date,'MM/DD/YYYY'));
3124: pnp_debug_pkg.log('process_term - Calling get_amount, term end dt : '
3125: ||TO_CHAR(p_term_end_date,'MM/DD/YYYY'));
3126: pnp_debug_pkg.log('process_term - Calling get_amount, act amt : '
3120: pnp_debug_pkg.log('process_term - Calling get_amount, sch end dt : '
3121: ||TO_CHAR(l_sch_end_dt,'MM/DD/YYYY'));
3122: pnp_debug_pkg.log('process_term - Calling get_amount, term st dt : '
3123: ||TO_CHAR(p_term_start_date,'MM/DD/YYYY'));
3124: pnp_debug_pkg.log('process_term - Calling get_amount, term end dt : '
3125: ||TO_CHAR(p_term_end_date,'MM/DD/YYYY'));
3126: pnp_debug_pkg.log('process_term - Calling get_amount, act amt : '
3127: ||TO_CHAR(p_act_amt));
3128: pnp_debug_pkg.log('process_term - Calling get_amount, est amt : '
3122: pnp_debug_pkg.log('process_term - Calling get_amount, term st dt : '
3123: ||TO_CHAR(p_term_start_date,'MM/DD/YYYY'));
3124: pnp_debug_pkg.log('process_term - Calling get_amount, term end dt : '
3125: ||TO_CHAR(p_term_end_date,'MM/DD/YYYY'));
3126: pnp_debug_pkg.log('process_term - Calling get_amount, act amt : '
3127: ||TO_CHAR(p_act_amt));
3128: pnp_debug_pkg.log('process_term - Calling get_amount, est amt : '
3129: ||TO_CHAR(p_est_amt));
3130: pnp_debug_pkg.log('process_term - Calling get_amount, est amt : '
3124: pnp_debug_pkg.log('process_term - Calling get_amount, term end dt : '
3125: ||TO_CHAR(p_term_end_date,'MM/DD/YYYY'));
3126: pnp_debug_pkg.log('process_term - Calling get_amount, act amt : '
3127: ||TO_CHAR(p_act_amt));
3128: pnp_debug_pkg.log('process_term - Calling get_amount, est amt : '
3129: ||TO_CHAR(p_est_amt));
3130: pnp_debug_pkg.log('process_term - Calling get_amount, est amt : '
3131: ||TO_CHAR(p_freq));
3132:
3126: pnp_debug_pkg.log('process_term - Calling get_amount, act amt : '
3127: ||TO_CHAR(p_act_amt));
3128: pnp_debug_pkg.log('process_term - Calling get_amount, est amt : '
3129: ||TO_CHAR(p_est_amt));
3130: pnp_debug_pkg.log('process_term - Calling get_amount, est amt : '
3131: ||TO_CHAR(p_freq));
3132:
3133: get_amount(p_sch_str_dt => l_sch_str_dt,
3134: p_sch_end_dt => l_sch_end_dt,
3141: p_cash_est_amt => l_cash_est_amt);
3142:
3143: l_non_zero_cash_sch_cnt := l_non_zero_cash_sch_cnt + 1; -- Bug 7570052
3144:
3145: pnp_debug_pkg.log('process_term - Returned from get_amount, cash act amt: '
3146: ||TO_CHAR(l_cash_act_amt));
3147: pnp_debug_pkg.log('process_term - Returned from get_amount, cash est amt: '
3148: ||TO_CHAR(l_cash_est_amt));
3149:
3143: l_non_zero_cash_sch_cnt := l_non_zero_cash_sch_cnt + 1; -- Bug 7570052
3144:
3145: pnp_debug_pkg.log('process_term - Returned from get_amount, cash act amt: '
3146: ||TO_CHAR(l_cash_act_amt));
3147: pnp_debug_pkg.log('process_term - Returned from get_amount, cash est amt: '
3148: ||TO_CHAR(l_cash_est_amt));
3149:
3150: /* Get the next schedule date which will have non zero amount */
3151:
3209:
3210: l_cash_act_amt := 0;
3211: l_cash_est_amt := NULL;
3212:
3213: pnp_debug_pkg.log('process_term - l_cash_act_amt: '||TO_CHAR(l_cash_act_amt));
3214: pnp_debug_pkg.log('process_term - l_cash_est_amt: '||TO_CHAR(l_cash_est_amt));
3215:
3216: END IF;
3217:
3210: l_cash_act_amt := 0;
3211: l_cash_est_amt := NULL;
3212:
3213: pnp_debug_pkg.log('process_term - l_cash_act_amt: '||TO_CHAR(l_cash_act_amt));
3214: pnp_debug_pkg.log('process_term - l_cash_est_amt: '||TO_CHAR(l_cash_est_amt));
3215:
3216: END IF;
3217:
3218:
3240: AND (l_sch_dt = l_pro_sch_dt) THEN
3241:
3242: /* AMT-RETRO */
3243: IF NOT PNP_UTIL_FUNC.RETRO_ENABLED THEN
3244: pnp_debug_pkg.log('process_term - Calling create schedule for '|| p_trgt_dt);
3245: create_schedule(g_lease_id, p_lease_change_id, p_trgt_dt, l_sch_id, l_pymnt_st_lkp_cd, p_payment_term_id);
3246: ELSE
3247: PN_RETRO_ADJUSTMENT_PKG.find_schedule(g_lease_id,
3248: p_lease_change_id,
3341: END IF;
3342:
3343: END LOOP;
3344:
3345: pnp_debug_pkg.log('process_term - Cash Items Completed, Normalize = '
3346: ||NVL(p_normalize_flag,'N')||', p_lease_context : '||p_lease_context);
3347:
3348:
3349: IF NVL(p_normalize_flag,'N') = 'Y' THEN
3385: END IF;
3386:
3387: END IF;
3388:
3389: pnp_debug_pkg.log('process_term -End- (-)');
3390:
3391: END process_term;
3392:
3393: --------------------------------------------------------------------------------------------
3429: SELECT currency_code FROM pn_payment_terms_all WHERE payment_term_id = p_term_id;
3430:
3431: BEGIN
3432:
3433: pnp_debug_pkg.log('update_cash_item +Start+ (+)');
3434: pnp_debug_pkg.log('update_cash_item IN: p_term_id : '||p_term_id);
3435: pnp_debug_pkg.log('update_cash_item IN: p_term_str_dt : '||p_term_str_dt);
3436: pnp_debug_pkg.log('update_cash_item IN: p_term_end_dt : '||p_term_end_dt);
3437: pnp_debug_pkg.log('update_cash_item IN: p_schedule_dt : '||p_schedule_dt);
3430:
3431: BEGIN
3432:
3433: pnp_debug_pkg.log('update_cash_item +Start+ (+)');
3434: pnp_debug_pkg.log('update_cash_item IN: p_term_id : '||p_term_id);
3435: pnp_debug_pkg.log('update_cash_item IN: p_term_str_dt : '||p_term_str_dt);
3436: pnp_debug_pkg.log('update_cash_item IN: p_term_end_dt : '||p_term_end_dt);
3437: pnp_debug_pkg.log('update_cash_item IN: p_schedule_dt : '||p_schedule_dt);
3438: pnp_debug_pkg.log('update_cash_item IN: p_sch_str_dt : '||p_sch_str_dt);
3431: BEGIN
3432:
3433: pnp_debug_pkg.log('update_cash_item +Start+ (+)');
3434: pnp_debug_pkg.log('update_cash_item IN: p_term_id : '||p_term_id);
3435: pnp_debug_pkg.log('update_cash_item IN: p_term_str_dt : '||p_term_str_dt);
3436: pnp_debug_pkg.log('update_cash_item IN: p_term_end_dt : '||p_term_end_dt);
3437: pnp_debug_pkg.log('update_cash_item IN: p_schedule_dt : '||p_schedule_dt);
3438: pnp_debug_pkg.log('update_cash_item IN: p_sch_str_dt : '||p_sch_str_dt);
3439: pnp_debug_pkg.log('update_cash_item IN: p_sch_end_dt : '||p_sch_end_dt);
3432:
3433: pnp_debug_pkg.log('update_cash_item +Start+ (+)');
3434: pnp_debug_pkg.log('update_cash_item IN: p_term_id : '||p_term_id);
3435: pnp_debug_pkg.log('update_cash_item IN: p_term_str_dt : '||p_term_str_dt);
3436: pnp_debug_pkg.log('update_cash_item IN: p_term_end_dt : '||p_term_end_dt);
3437: pnp_debug_pkg.log('update_cash_item IN: p_schedule_dt : '||p_schedule_dt);
3438: pnp_debug_pkg.log('update_cash_item IN: p_sch_str_dt : '||p_sch_str_dt);
3439: pnp_debug_pkg.log('update_cash_item IN: p_sch_end_dt : '||p_sch_end_dt);
3440: pnp_debug_pkg.log('update_cash_item IN: p_act_amt : '||p_act_amt);
3433: pnp_debug_pkg.log('update_cash_item +Start+ (+)');
3434: pnp_debug_pkg.log('update_cash_item IN: p_term_id : '||p_term_id);
3435: pnp_debug_pkg.log('update_cash_item IN: p_term_str_dt : '||p_term_str_dt);
3436: pnp_debug_pkg.log('update_cash_item IN: p_term_end_dt : '||p_term_end_dt);
3437: pnp_debug_pkg.log('update_cash_item IN: p_schedule_dt : '||p_schedule_dt);
3438: pnp_debug_pkg.log('update_cash_item IN: p_sch_str_dt : '||p_sch_str_dt);
3439: pnp_debug_pkg.log('update_cash_item IN: p_sch_end_dt : '||p_sch_end_dt);
3440: pnp_debug_pkg.log('update_cash_item IN: p_act_amt : '||p_act_amt);
3441: pnp_debug_pkg.log('update_cash_item IN: p_est_amt : '||p_est_amt);
3434: pnp_debug_pkg.log('update_cash_item IN: p_term_id : '||p_term_id);
3435: pnp_debug_pkg.log('update_cash_item IN: p_term_str_dt : '||p_term_str_dt);
3436: pnp_debug_pkg.log('update_cash_item IN: p_term_end_dt : '||p_term_end_dt);
3437: pnp_debug_pkg.log('update_cash_item IN: p_schedule_dt : '||p_schedule_dt);
3438: pnp_debug_pkg.log('update_cash_item IN: p_sch_str_dt : '||p_sch_str_dt);
3439: pnp_debug_pkg.log('update_cash_item IN: p_sch_end_dt : '||p_sch_end_dt);
3440: pnp_debug_pkg.log('update_cash_item IN: p_act_amt : '||p_act_amt);
3441: pnp_debug_pkg.log('update_cash_item IN: p_est_amt : '||p_est_amt);
3442: pnp_debug_pkg.log('update_cash_item IN: p_freq : '||p_freq);
3435: pnp_debug_pkg.log('update_cash_item IN: p_term_str_dt : '||p_term_str_dt);
3436: pnp_debug_pkg.log('update_cash_item IN: p_term_end_dt : '||p_term_end_dt);
3437: pnp_debug_pkg.log('update_cash_item IN: p_schedule_dt : '||p_schedule_dt);
3438: pnp_debug_pkg.log('update_cash_item IN: p_sch_str_dt : '||p_sch_str_dt);
3439: pnp_debug_pkg.log('update_cash_item IN: p_sch_end_dt : '||p_sch_end_dt);
3440: pnp_debug_pkg.log('update_cash_item IN: p_act_amt : '||p_act_amt);
3441: pnp_debug_pkg.log('update_cash_item IN: p_est_amt : '||p_est_amt);
3442: pnp_debug_pkg.log('update_cash_item IN: p_freq : '||p_freq);
3443: /* Get the new amount for the schedule */
3436: pnp_debug_pkg.log('update_cash_item IN: p_term_end_dt : '||p_term_end_dt);
3437: pnp_debug_pkg.log('update_cash_item IN: p_schedule_dt : '||p_schedule_dt);
3438: pnp_debug_pkg.log('update_cash_item IN: p_sch_str_dt : '||p_sch_str_dt);
3439: pnp_debug_pkg.log('update_cash_item IN: p_sch_end_dt : '||p_sch_end_dt);
3440: pnp_debug_pkg.log('update_cash_item IN: p_act_amt : '||p_act_amt);
3441: pnp_debug_pkg.log('update_cash_item IN: p_est_amt : '||p_est_amt);
3442: pnp_debug_pkg.log('update_cash_item IN: p_freq : '||p_freq);
3443: /* Get the new amount for the schedule */
3444:
3437: pnp_debug_pkg.log('update_cash_item IN: p_schedule_dt : '||p_schedule_dt);
3438: pnp_debug_pkg.log('update_cash_item IN: p_sch_str_dt : '||p_sch_str_dt);
3439: pnp_debug_pkg.log('update_cash_item IN: p_sch_end_dt : '||p_sch_end_dt);
3440: pnp_debug_pkg.log('update_cash_item IN: p_act_amt : '||p_act_amt);
3441: pnp_debug_pkg.log('update_cash_item IN: p_est_amt : '||p_est_amt);
3442: pnp_debug_pkg.log('update_cash_item IN: p_freq : '||p_freq);
3443: /* Get the new amount for the schedule */
3444:
3445: get_amount(p_sch_str_dt => p_sch_str_dt,
3438: pnp_debug_pkg.log('update_cash_item IN: p_sch_str_dt : '||p_sch_str_dt);
3439: pnp_debug_pkg.log('update_cash_item IN: p_sch_end_dt : '||p_sch_end_dt);
3440: pnp_debug_pkg.log('update_cash_item IN: p_act_amt : '||p_act_amt);
3441: pnp_debug_pkg.log('update_cash_item IN: p_est_amt : '||p_est_amt);
3442: pnp_debug_pkg.log('update_cash_item IN: p_freq : '||p_freq);
3443: /* Get the new amount for the schedule */
3444:
3445: get_amount(p_sch_str_dt => p_sch_str_dt,
3446: p_sch_end_dt => p_sch_end_dt,
3495: AND pps.payment_status_lookup_code in ('DRAFT','ON_HOLD') --Fix for bug#12427309
3496: AND pps.payment_schedule_id = ppi1.payment_schedule_id
3497: AND pps.schedule_date = p_schedule_dt);
3498:
3499: pnp_debug_pkg.log('update_cash_item -End- (-)');
3500:
3501: END update_cash_item;
3502:
3503: -------------------------------------------------------------------------------
3565:
3566:
3567: BEGIN
3568:
3569: pnp_debug_pkg.log('recalculate_cash +Start+ (+) IN: p_new_lease_term_date: '
3570: ||p_new_lease_term_date);
3571:
3572: -- Bug 7570052
3573: SELECT cal_start
3577:
3578: FOR term IN get_terms
3579: LOOP
3580:
3581: pnp_debug_pkg.log('recalculate_cash - Term Id : '||term.payment_term_id);
3582: /* get the last schedule with non zero amount */
3583:
3584: OPEN get_last_schedule (term.payment_term_id);
3585: FETCH get_last_schedule INTO l_schedule_date;
3586: CLOSE get_last_schedule;
3587:
3588: IF l_schedule_date IS NOT NULL THEN
3589:
3590: pnp_debug_pkg.log('recalculate_cash - l_schedule_date'||l_schedule_date);
3591:
3592: /* get the frequency */
3593:
3594: l_frequency := get_frequency(p_freq_code => term.frequency_code);
3632:
3633: END IF;
3634:
3635: END LOOP;
3636: pnp_debug_pkg.log('recalculate_cash -End- (-)');
3637:
3638: END recalculate_cash;
3639:
3640:
3677: l_lease_context VARCHAR2(100);
3678:
3679: BEGIN
3680:
3681: pnp_debug_pkg.log('ADD_MAIN +Start+ (+)');
3682: pnp_debug_pkg.log('ADD_MAIN IN: p_lease_id : '||p_lease_id);
3683: pnp_debug_pkg.log('ADD_MAIN IN: p_lease_context : '||p_lease_context);
3684: pnp_debug_pkg.log('ADD_MAIN IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
3685: pnp_debug_pkg.log('ADD_MAIN IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
3678:
3679: BEGIN
3680:
3681: pnp_debug_pkg.log('ADD_MAIN +Start+ (+)');
3682: pnp_debug_pkg.log('ADD_MAIN IN: p_lease_id : '||p_lease_id);
3683: pnp_debug_pkg.log('ADD_MAIN IN: p_lease_context : '||p_lease_context);
3684: pnp_debug_pkg.log('ADD_MAIN IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
3685: pnp_debug_pkg.log('ADD_MAIN IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
3686: pnp_debug_pkg.log('ADD_MAIN IN: p_mths : '||p_mths);
3679: BEGIN
3680:
3681: pnp_debug_pkg.log('ADD_MAIN +Start+ (+)');
3682: pnp_debug_pkg.log('ADD_MAIN IN: p_lease_id : '||p_lease_id);
3683: pnp_debug_pkg.log('ADD_MAIN IN: p_lease_context : '||p_lease_context);
3684: pnp_debug_pkg.log('ADD_MAIN IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
3685: pnp_debug_pkg.log('ADD_MAIN IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
3686: pnp_debug_pkg.log('ADD_MAIN IN: p_mths : '||p_mths);
3687: FOR add_main_cur IN term_add_main_cur(p_lease_id)
3680:
3681: pnp_debug_pkg.log('ADD_MAIN +Start+ (+)');
3682: pnp_debug_pkg.log('ADD_MAIN IN: p_lease_id : '||p_lease_id);
3683: pnp_debug_pkg.log('ADD_MAIN IN: p_lease_context : '||p_lease_context);
3684: pnp_debug_pkg.log('ADD_MAIN IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
3685: pnp_debug_pkg.log('ADD_MAIN IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
3686: pnp_debug_pkg.log('ADD_MAIN IN: p_mths : '||p_mths);
3687: FOR add_main_cur IN term_add_main_cur(p_lease_id)
3688: LOOP
3681: pnp_debug_pkg.log('ADD_MAIN +Start+ (+)');
3682: pnp_debug_pkg.log('ADD_MAIN IN: p_lease_id : '||p_lease_id);
3683: pnp_debug_pkg.log('ADD_MAIN IN: p_lease_context : '||p_lease_context);
3684: pnp_debug_pkg.log('ADD_MAIN IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
3685: pnp_debug_pkg.log('ADD_MAIN IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
3686: pnp_debug_pkg.log('ADD_MAIN IN: p_mths : '||p_mths);
3687: FOR add_main_cur IN term_add_main_cur(p_lease_id)
3688: LOOP
3689:
3682: pnp_debug_pkg.log('ADD_MAIN IN: p_lease_id : '||p_lease_id);
3683: pnp_debug_pkg.log('ADD_MAIN IN: p_lease_context : '||p_lease_context);
3684: pnp_debug_pkg.log('ADD_MAIN IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
3685: pnp_debug_pkg.log('ADD_MAIN IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
3686: pnp_debug_pkg.log('ADD_MAIN IN: p_mths : '||p_mths);
3687: FOR add_main_cur IN term_add_main_cur(p_lease_id)
3688: LOOP
3689:
3690: IF add_main_cur.change_type_lookup_code = 'AMEND' THEN
3692: ELSIF add_main_cur.change_type_lookup_code = 'EDIT' THEN
3693: l_lease_context := 'ADDEDT';
3694: END IF;
3695:
3696: pnp_debug_pkg.log('ADD_MAIN lease_change_id: '||add_main_cur.lease_change_id
3697: ||', l_lease_context: '||l_lease_context
3698: ||', amd_comm_dt: '||add_main_cur.change_commencement_date);
3699:
3700: get_sch_info(p_lease_context => l_lease_context,
3767: WHERE payment_term_id = add_main_cur.payment_term_id;
3768: END IF;
3769:
3770: END LOOP;
3771: pnp_debug_pkg.log('ADD_MAIN -End- (-)');
3772:
3773: END add_main;
3774:
3775:
3785: RETURN BOOLEAN
3786: IS
3787: l_exists VARCHAR2(30) := 'N';
3788: BEGIN
3789: pnp_debug_pkg.log('LOCKED_AREA_EXPENSE_CLASS -Start- (+)');
3790:
3791: IF g_lease_class_code <> 'SUB_LEASE' THEN
3792:
3793: BEGIN
3816: END;
3817:
3818: END IF;
3819:
3820: pnp_debug_pkg.log('LOCKED_AREA_EXPENSE_CLASS -End- (-) Return: '||l_exists);
3821: IF l_exists = 'Y' THEN
3822: RETURN TRUE;
3823: ELSE
3824: RETURN FALSE;
3877: AND p_start_date BETWEEN pnl.active_start_date AND pnl.active_end_date;
3878:
3879: BEGIN
3880:
3881: pnp_debug_pkg.log('CONTRACT_TENANCIES of MAIN Lease +Start+ (+)');
3882: pnp_debug_pkg.log('CONTRACT_TENANCIES IN: p_lease_id : '||p_lease_id);
3883: pnp_debug_pkg.log('CONTRACT_TENANCIES IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
3884:
3885: FOR get_delete_tenancies IN get_delete_tenancies_csr
3878:
3879: BEGIN
3880:
3881: pnp_debug_pkg.log('CONTRACT_TENANCIES of MAIN Lease +Start+ (+)');
3882: pnp_debug_pkg.log('CONTRACT_TENANCIES IN: p_lease_id : '||p_lease_id);
3883: pnp_debug_pkg.log('CONTRACT_TENANCIES IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
3884:
3885: FOR get_delete_tenancies IN get_delete_tenancies_csr
3886: LOOP
3879: BEGIN
3880:
3881: pnp_debug_pkg.log('CONTRACT_TENANCIES of MAIN Lease +Start+ (+)');
3882: pnp_debug_pkg.log('CONTRACT_TENANCIES IN: p_lease_id : '||p_lease_id);
3883: pnp_debug_pkg.log('CONTRACT_TENANCIES IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
3884:
3885: FOR get_delete_tenancies IN get_delete_tenancies_csr
3886: LOOP
3887: l_action := NULL;
3892: l_tenancy_str_date := NVL(get_delete_tenancies.occupancy_date,
3893: get_delete_tenancies.estimated_occupancy_date);
3894: l_tenancy_end_date := get_delete_tenancies.expiration_date;
3895:
3896: pnp_debug_pkg.log('CON_TEN=>DEL : Deleting Tenancy_Id: '||l_tenancy_Id);
3897:
3898: OPEN get_location_type_csr(l_location_id, l_tenancy_str_date);
3899: FETCH get_location_type_csr INTO l_location_code, l_loc_type_code;
3900: CLOSE get_location_type_csr;
3899: FETCH get_location_type_csr INTO l_location_code, l_loc_type_code;
3900: CLOSE get_location_type_csr;
3901:
3902: IF Locked_Area_Expense_Class(l_tenancy_Id, l_tenancy_str_date, l_tenancy_end_date) THEN
3903: pnp_debug_pkg.put_log_msg('********************************************************************************');
3904: fnd_message.set_name ('PN','PN_SCHIT_LOCK_DEL');
3905: fnd_message.set_token ('LOC_CODE', l_location_code);
3906: fnd_message.set_token ('ODATE', l_tenancy_str_date);
3907: fnd_message.set_token ('EDATE', l_tenancy_end_date);
3904: fnd_message.set_name ('PN','PN_SCHIT_LOCK_DEL');
3905: fnd_message.set_token ('LOC_CODE', l_location_code);
3906: fnd_message.set_token ('ODATE', l_tenancy_str_date);
3907: fnd_message.set_token ('EDATE', l_tenancy_end_date);
3908: pnp_debug_pkg.put_log_msg(fnd_message.get);
3909: pnp_debug_pkg.put_log_msg('********************************************************************************');
3910: ELSE
3911:
3912: pn_tenancies_pkg.delete_row(
3905: fnd_message.set_token ('LOC_CODE', l_location_code);
3906: fnd_message.set_token ('ODATE', l_tenancy_str_date);
3907: fnd_message.set_token ('EDATE', l_tenancy_end_date);
3908: pnp_debug_pkg.put_log_msg(fnd_message.get);
3909: pnp_debug_pkg.put_log_msg('********************************************************************************');
3910: ELSE
3911:
3912: pn_tenancies_pkg.delete_row(
3913: x_tenancy_id => get_delete_tenancies.tenancy_id
3919: ,p_location_id => get_delete_tenancies.location_id
3920: ,p_loc_type_code => l_loc_type_code
3921: );
3922:
3923: pnp_debug_pkg.log('CON_TEN=>DEL : Tenancy and Space Assignments deleted. l_action: '||l_action);
3924:
3925: IF l_action = 'R' THEN --Regenerate
3926:
3927: pnp_debug_pkg.put_log_msg('********************************************************************************');
3923: pnp_debug_pkg.log('CON_TEN=>DEL : Tenancy and Space Assignments deleted. l_action: '||l_action);
3924:
3925: IF l_action = 'R' THEN --Regenerate
3926:
3927: pnp_debug_pkg.put_log_msg('********************************************************************************');
3928: fnd_message.set_name ('PN','PN_SCHIT_CUST');
3929: fnd_message.set_token ('LOC_CODE', l_location_code);
3930: fnd_message.set_token ('ODATE', l_tenancy_str_date);
3931: fnd_message.set_token ('EDATE', l_tenancy_end_date);
3928: fnd_message.set_name ('PN','PN_SCHIT_CUST');
3929: fnd_message.set_token ('LOC_CODE', l_location_code);
3930: fnd_message.set_token ('ODATE', l_tenancy_str_date);
3931: fnd_message.set_token ('EDATE', l_tenancy_end_date);
3932: pnp_debug_pkg.put_log_msg(fnd_message.get);
3933: pnp_debug_pkg.put_log_msg('********************************************************************************');
3934:
3935: END IF;
3936: END IF;
3929: fnd_message.set_token ('LOC_CODE', l_location_code);
3930: fnd_message.set_token ('ODATE', l_tenancy_str_date);
3931: fnd_message.set_token ('EDATE', l_tenancy_end_date);
3932: pnp_debug_pkg.put_log_msg(fnd_message.get);
3933: pnp_debug_pkg.put_log_msg('********************************************************************************');
3934:
3935: END IF;
3936: END IF;
3937: END LOOP;
3935: END IF;
3936: END IF;
3937: END LOOP;
3938:
3939: pnp_debug_pkg.log('CON_TEN: Deleting Tenancies complete. To Early Terminate Tenancies....');
3940:
3941: FOR get_update_tenancies IN get_update_tenancies_csr
3942: LOOP
3943: l_action := NULL;
3949: l_tenancy_str_date := NVL(get_update_tenancies.occupancy_date,
3950: get_update_tenancies.estimated_occupancy_date);
3951: l_tenancy_end_date := get_update_tenancies.expiration_date;
3952:
3953: pnp_debug_pkg.log('CON_TEN=>UPD : Early Terminating Tenancy_Id: '||l_tenancy_Id);
3954:
3955: pn_tenancies_pkg.update_auto_space_assign
3956: (
3957: p_location_id => get_update_tenancies.location_id
3978: ,p_action => l_action
3979: ,p_msg => l_message
3980: );
3981:
3982: pnp_debug_pkg.log('CON_TEN=>UPD : Space Assignments deleted. l_action: '||l_action);
3983:
3984: IF l_action = 'S' THEN
3985: OPEN get_location_type_csr(l_location_id, l_tenancy_str_date);
3986: FETCH get_location_type_csr INTO l_location_code, l_loc_type_code;
3985: OPEN get_location_type_csr(l_location_id, l_tenancy_str_date);
3986: FETCH get_location_type_csr INTO l_location_code, l_loc_type_code;
3987: CLOSE get_location_type_csr;
3988:
3989: pnp_debug_pkg.put_log_msg('********************************************************************************');
3990: fnd_message.set_name ('PN','PN_SCHIT_LOCK_UPD');
3991: fnd_message.set_token ('LOC_CODE', l_location_code);
3992: fnd_message.set_token ('ODATE', l_tenancy_str_date);
3993: fnd_message.set_token ('EDATE', l_tenancy_end_date);
3990: fnd_message.set_name ('PN','PN_SCHIT_LOCK_UPD');
3991: fnd_message.set_token ('LOC_CODE', l_location_code);
3992: fnd_message.set_token ('ODATE', l_tenancy_str_date);
3993: fnd_message.set_token ('EDATE', l_tenancy_end_date);
3994: pnp_debug_pkg.put_log_msg(fnd_message.get);
3995: pnp_debug_pkg.put_log_msg('********************************************************************************');
3996: ELSE
3997:
3998: UPDATE pn_tenancies_all
3991: fnd_message.set_token ('LOC_CODE', l_location_code);
3992: fnd_message.set_token ('ODATE', l_tenancy_str_date);
3993: fnd_message.set_token ('EDATE', l_tenancy_end_date);
3994: pnp_debug_pkg.put_log_msg(fnd_message.get);
3995: pnp_debug_pkg.put_log_msg('********************************************************************************');
3996: ELSE
3997:
3998: UPDATE pn_tenancies_all
3999: SET expiration_date = p_new_lea_term_dt,
4002: last_updated_by = NVL(fnd_profile.value('USER_ID'),0),
4003: last_update_login= NVL(fnd_profile.value('LOGIN_ID'),0)
4004: WHERE tenancy_id = l_tenancy_Id;
4005:
4006: pnp_debug_pkg.log('CON_TEN=>UPD : Tenancy Early Terminated...');
4007:
4008: IF l_action = 'R' THEN --Regenerate
4009: OPEN get_location_type_csr(l_location_id, l_tenancy_str_date);
4010: FETCH get_location_type_csr INTO l_location_code, l_loc_type_code;
4009: OPEN get_location_type_csr(l_location_id, l_tenancy_str_date);
4010: FETCH get_location_type_csr INTO l_location_code, l_loc_type_code;
4011: CLOSE get_location_type_csr;
4012:
4013: pnp_debug_pkg.put_log_msg('********************************************************************************');
4014: fnd_message.set_name ('PN','PN_SCHIT_CUST');
4015: fnd_message.set_token ('LOC_CODE', l_location_code);
4016: fnd_message.set_token ('ODATE', l_tenancy_str_date);
4017: fnd_message.set_token ('EDATE', l_tenancy_end_date);
4014: fnd_message.set_name ('PN','PN_SCHIT_CUST');
4015: fnd_message.set_token ('LOC_CODE', l_location_code);
4016: fnd_message.set_token ('ODATE', l_tenancy_str_date);
4017: fnd_message.set_token ('EDATE', l_tenancy_end_date);
4018: pnp_debug_pkg.put_log_msg(fnd_message.get);
4019: pnp_debug_pkg.put_log_msg('********************************************************************************');
4020: END IF;
4021: END IF;
4022: END LOOP;
4015: fnd_message.set_token ('LOC_CODE', l_location_code);
4016: fnd_message.set_token ('ODATE', l_tenancy_str_date);
4017: fnd_message.set_token ('EDATE', l_tenancy_end_date);
4018: pnp_debug_pkg.put_log_msg(fnd_message.get);
4019: pnp_debug_pkg.put_log_msg('********************************************************************************');
4020: END IF;
4021: END IF;
4022: END LOOP;
4023:
4020: END IF;
4021: END IF;
4022: END LOOP;
4023:
4024: pnp_debug_pkg.log('CONTRACT_TENANCIES of MAIN Lease +End+ (-)');
4025:
4026: END contract_tenancies;
4027:
4028:
4073: AND pld.lease_id = p_lease_id;
4074:
4075: BEGIN
4076:
4077: pnp_debug_pkg.log('CONTRACTION of MAIN Lease +Start+ (+)');
4078: pnp_debug_pkg.log('CONTRACTION IN: p_lease_id : '||p_lease_id);
4079: pnp_debug_pkg.log('CONTRACTION IN: p_lease_context : '||p_lease_context);
4080: pnp_debug_pkg.log('CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4081: pnp_debug_pkg.log('CONTRACTION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4074:
4075: BEGIN
4076:
4077: pnp_debug_pkg.log('CONTRACTION of MAIN Lease +Start+ (+)');
4078: pnp_debug_pkg.log('CONTRACTION IN: p_lease_id : '||p_lease_id);
4079: pnp_debug_pkg.log('CONTRACTION IN: p_lease_context : '||p_lease_context);
4080: pnp_debug_pkg.log('CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4081: pnp_debug_pkg.log('CONTRACTION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4082: pnp_debug_pkg.log('CONTRACTION IN: p_mths : '||p_mths);
4075: BEGIN
4076:
4077: pnp_debug_pkg.log('CONTRACTION of MAIN Lease +Start+ (+)');
4078: pnp_debug_pkg.log('CONTRACTION IN: p_lease_id : '||p_lease_id);
4079: pnp_debug_pkg.log('CONTRACTION IN: p_lease_context : '||p_lease_context);
4080: pnp_debug_pkg.log('CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4081: pnp_debug_pkg.log('CONTRACTION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4082: pnp_debug_pkg.log('CONTRACTION IN: p_mths : '||p_mths);
4083:
4076:
4077: pnp_debug_pkg.log('CONTRACTION of MAIN Lease +Start+ (+)');
4078: pnp_debug_pkg.log('CONTRACTION IN: p_lease_id : '||p_lease_id);
4079: pnp_debug_pkg.log('CONTRACTION IN: p_lease_context : '||p_lease_context);
4080: pnp_debug_pkg.log('CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4081: pnp_debug_pkg.log('CONTRACTION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4082: pnp_debug_pkg.log('CONTRACTION IN: p_mths : '||p_mths);
4083:
4084: /* If lease is contracted from main lease form then delete payment
4077: pnp_debug_pkg.log('CONTRACTION of MAIN Lease +Start+ (+)');
4078: pnp_debug_pkg.log('CONTRACTION IN: p_lease_id : '||p_lease_id);
4079: pnp_debug_pkg.log('CONTRACTION IN: p_lease_context : '||p_lease_context);
4080: pnp_debug_pkg.log('CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4081: pnp_debug_pkg.log('CONTRACTION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4082: pnp_debug_pkg.log('CONTRACTION IN: p_mths : '||p_mths);
4083:
4084: /* If lease is contracted from main lease form then delete payment
4085: items for the lease, for which payment schedules are in draft
4078: pnp_debug_pkg.log('CONTRACTION IN: p_lease_id : '||p_lease_id);
4079: pnp_debug_pkg.log('CONTRACTION IN: p_lease_context : '||p_lease_context);
4080: pnp_debug_pkg.log('CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4081: pnp_debug_pkg.log('CONTRACTION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4082: pnp_debug_pkg.log('CONTRACTION IN: p_mths : '||p_mths);
4083:
4084: /* If lease is contracted from main lease form then delete payment
4085: items for the lease, for which payment schedules are in draft
4086: status and schedule date is greater than lease termination date. */
4088: OPEN get_old_lea_term_dt;
4089: FETCH get_old_lea_term_dt INTO l_old_lea_term_dt;
4090: CLOSE get_old_lea_term_dt;
4091:
4092: pnp_debug_pkg.log('CON - MAIN - Deleting Payment Items');
4093:
4094: DELETE pn_payment_items_all
4095: WHERE payment_schedule_id IN (SELECT payment_schedule_id
4096: FROM pn_payment_schedules_all
4104:
4105: /* Delete payment schedules for the lease which are in draft status
4106: and schedule date is greater than lease termination date. */
4107:
4108: pnp_debug_pkg.log('CON - MAIN - Deleting Payment Schedules');
4109:
4110: DELETE pn_payment_schedules_all psch
4111: WHERE lease_id = p_lease_id
4112: AND schedule_date > p_new_lea_term_dt
4127:
4128: /* Delete payment terms for the lease which have term start date
4129: greater than lease termination date. */
4130:
4131: pnp_debug_pkg.log('CON - MAIN - Deleting Payment Terms');
4132:
4133: DELETE pn_payment_terms_all
4134: WHERE lease_id = p_lease_id
4135: AND start_date > p_new_lea_term_dt
4137:
4138: /* Update end date of remaining payment terms for the lease to
4139: lease termination date. */
4140:
4141: pnp_debug_pkg.log('CON - MAIN - Updating end date of Payment Terms');
4142:
4143: UPDATE pn_payment_terms_all
4144: SET end_date = p_new_lea_term_dt,
4145: last_update_date = SYSDATE,
4150: AND frequency_code <> 'OT';
4151:
4152: /* Call the index rent contraction routine */
4153:
4154: pnp_debug_pkg.log('CON - MAIN - Contracting Index rent ');
4155:
4156: pn_index_rent_periods_pkg.process_main_lease_term_date(p_lease_id,
4157: p_new_lea_term_dt,
4158: l_old_lea_term_dt,
4161:
4162: /* Update the cash items with new amount, for the terms which have
4163: been contracted. */
4164:
4165: pnp_debug_pkg.log('CON - MAIN - Updating last non zero cash items with new pro. amt');
4166:
4167: recalculate_cash(p_new_lease_term_date => p_new_lea_term_dt);
4168:
4169: /*Get the normalized payment terms for which re-normalization needs
4168:
4169: /*Get the normalized payment terms for which re-normalization needs
4170: to be done */
4171:
4172: pnp_debug_pkg.log('CON - MAIN - Doing re-normalization');
4173:
4174: l_active_lease_change_id := Get_Lease_Change_Id(p_lease_id);
4175: FOR con_cur IN term_con_exp_cur(p_lease_id,l_active_lease_change_id)
4176: LOOP
4174: l_active_lease_change_id := Get_Lease_Change_Id(p_lease_id);
4175: FOR con_cur IN term_con_exp_cur(p_lease_id,l_active_lease_change_id)
4176: LOOP
4177:
4178: pnp_debug_pkg.log('CON - MAIN - Re-Normalization - Term Id : '||con_cur.payment_term_id);
4179:
4180: /* If the lease is Contracted, Normalization of term should start from
4181: the same date of normalization, when the term was Abstracted or Added. */
4182:
4180: /* If the lease is Contracted, Normalization of term should start from
4181: the same date of normalization, when the term was Abstracted or Added. */
4182:
4183: l_norm_str_dt := NVL(con_cur.norm_start_date, Get_First_Item_Date(con_cur.payment_term_id));
4184: pnp_debug_pkg.log('CON - MAIN - Re-Normalization - l_norm_str_dt : '||l_norm_str_dt);
4185: /* AMT-RETRO */
4186: IF NOT PNP_UTIL_FUNC.RETRO_ENABLED THEN
4187: create_normalize_items(p_lease_context => p_lease_context,
4188: p_lease_id => p_lease_id,
4217: p_rate => con_cur.rate,
4218: p_lease_change_id => con_cur.lease_change_id);
4219: END IF;
4220:
4221: pnp_debug_pkg.log('CON - MAIN - Renormalization done for Term : '
4222: ||TO_CHAR(con_cur.payment_term_id));
4223:
4224: UPDATE pn_payment_terms_all
4225: SET norm_end_date = g_new_lea_term_dt
4246: ,p_new_lea_term_dt => p_new_lea_term_dt
4247: );
4248: END IF;
4249:
4250: pnp_debug_pkg.log('CONTRACTION of MAIN Lease -End- (-)');
4251:
4252: END contraction;
4253:
4254: --------------------------------------------------------------------------------------------
4305: WHERE lease_id = p_lease_id);
4306:
4307: BEGIN
4308:
4309: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT of MAIN Lease +Start+ (+)');
4310: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_lease_id : '||p_lease_id);
4311: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_lease_context : '||p_lease_context);
4312: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4313: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4306:
4307: BEGIN
4308:
4309: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT of MAIN Lease +Start+ (+)');
4310: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_lease_id : '||p_lease_id);
4311: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_lease_context : '||p_lease_context);
4312: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4313: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4314: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_mths : '||p_mths);
4307: BEGIN
4308:
4309: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT of MAIN Lease +Start+ (+)');
4310: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_lease_id : '||p_lease_id);
4311: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_lease_context : '||p_lease_context);
4312: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4313: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4314: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_mths : '||p_mths);
4315:
4308:
4309: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT of MAIN Lease +Start+ (+)');
4310: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_lease_id : '||p_lease_id);
4311: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_lease_context : '||p_lease_context);
4312: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4313: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4314: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_mths : '||p_mths);
4315:
4316: /* If lease is contracted from main lease form then delete payment
4309: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT of MAIN Lease +Start+ (+)');
4310: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_lease_id : '||p_lease_id);
4311: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_lease_context : '||p_lease_context);
4312: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4313: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4314: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_mths : '||p_mths);
4315:
4316: /* If lease is contracted from main lease form then delete payment
4317: items for the lease, for which payment schedules are in draft
4310: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_lease_id : '||p_lease_id);
4311: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_lease_context : '||p_lease_context);
4312: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4313: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4314: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT IN: p_mths : '||p_mths);
4315:
4316: /* If lease is contracted from main lease form then delete payment
4317: items for the lease, for which payment schedules are in draft
4318: status and schedule date is greater than lease termination date. */
4326: /* Call the index rent contraction routine */
4327:
4328: FOR i IN 1 .. l_item_end_dt_tbl.COUNT LOOP
4329: IF l_item_end_dt_tbl(i).index_period_id IS NOT NULL THEN
4330: pnp_debug_pkg.log('+++++++++++++For RI term:'||l_item_end_dt_tbl(i).term_id||' Item End Dt:'||l_item_end_dt_tbl(i).item_end_dt);
4331: IF l_ri_end_dt < l_item_end_dt_tbl(i).item_end_dt THEN
4332: l_ri_end_dt := l_item_end_dt_tbl(i).item_end_dt;
4333: pnp_debug_pkg.log('+++++++++++++Now l_ri_end_dt:'||l_ri_end_dt);
4334: END IF;
4329: IF l_item_end_dt_tbl(i).index_period_id IS NOT NULL THEN
4330: pnp_debug_pkg.log('+++++++++++++For RI term:'||l_item_end_dt_tbl(i).term_id||' Item End Dt:'||l_item_end_dt_tbl(i).item_end_dt);
4331: IF l_ri_end_dt < l_item_end_dt_tbl(i).item_end_dt THEN
4332: l_ri_end_dt := l_item_end_dt_tbl(i).item_end_dt;
4333: pnp_debug_pkg.log('+++++++++++++Now l_ri_end_dt:'||l_ri_end_dt);
4334: END IF;
4335: END IF;
4336: END LOOP;
4337:
4337:
4338: IF l_ri_end_dt < p_new_lea_term_dt THEN
4339: l_ri_end_dt := p_new_lea_term_dt;
4340: END IF;
4341: pnp_debug_pkg.log('+++++++++++++Now l_ri_end_dt:'||l_ri_end_dt);
4342: IF(NVL(fnd_profile.value('PN_RENT_INCREASE_TERM_END_DATE'),'END_LEASE') ='END_LEASE') THEN
4343: FOR i IN 1 .. l_item_end_dt_tbl.COUNT LOOP
4344: IF l_item_end_dt_tbl(i).index_period_id IS NOT NULL THEN
4345: IF nvl(l_item_end_dt_tbl(i).item_end_dt,l_max_item_end_dt) < p_new_lea_term_dt THEN
4374: ELSE
4375: FOR i IN 1 .. l_item_end_dt_tbl.COUNT LOOP
4376: IF l_item_end_dt_tbl(i).index_period_id IS NULL THEN
4377:
4378: pnp_debug_pkg.log('+++++++++++++Non-RI Term:'||
4379: ' Term ID:' || l_item_end_dt_tbl(i).term_id ||
4380: ' Item End Dt:' || l_item_end_dt_tbl(i).item_end_dt ||
4381: ' Lease End Dt:' ||p_new_lea_term_dt);
4382: IF nvl(l_item_end_dt_tbl(i).item_end_dt,l_max_item_end_dt) < p_new_lea_term_dt
4385: END IF;
4386: END IF;
4387: END LOOP;
4388: END IF;
4389: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Deleting Items');
4390: FOR i IN 1 .. l_item_end_dt_tbl.COUNT LOOP
4391: pnp_debug_pkg.log('+++++++++++Deleting All Items for term:'||l_item_end_dt_tbl(i).term_id||
4392: ' with schedule_date > ' ||l_item_end_dt_tbl(i).item_end_dt);
4393: DELETE pn_payment_items_all
4387: END LOOP;
4388: END IF;
4389: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Deleting Items');
4390: FOR i IN 1 .. l_item_end_dt_tbl.COUNT LOOP
4391: pnp_debug_pkg.log('+++++++++++Deleting All Items for term:'||l_item_end_dt_tbl(i).term_id||
4392: ' with schedule_date > ' ||l_item_end_dt_tbl(i).item_end_dt);
4393: DELETE pn_payment_items_all
4394: WHERE payment_schedule_id IN (SELECT payment_schedule_id
4395: FROM pn_payment_schedules_all
4401:
4402: /* Delete payment schedules for the lease which are in draft status
4403: and schedule date is greater than lease termination date. */
4404:
4405: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Deleting Payment Schedules');
4406: pnp_debug_pkg.log('+++++++++++Deleting Draft Empty Schedules for lease:'||p_lease_id||
4407: ' with schedule_date > '||p_new_lea_term_dt);
4408: DELETE pn_payment_schedules_all psch
4409: WHERE lease_id = p_lease_id
4402: /* Delete payment schedules for the lease which are in draft status
4403: and schedule date is greater than lease termination date. */
4404:
4405: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Deleting Payment Schedules');
4406: pnp_debug_pkg.log('+++++++++++Deleting Draft Empty Schedules for lease:'||p_lease_id||
4407: ' with schedule_date > '||p_new_lea_term_dt);
4408: DELETE pn_payment_schedules_all psch
4409: WHERE lease_id = p_lease_id
4410: AND schedule_date > p_new_lea_term_dt
4415:
4416: /* Delete payment terms for the lease which have term start date
4417: greater than lease termination date. */
4418:
4419: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Deleting Payment Terms');
4420:
4421: DELETE pn_payment_terms_all term
4422: WHERE lease_id = p_lease_id
4423: AND start_date > p_new_lea_term_dt
4431:
4432: /* Update end date of remaining payment terms for the lease to
4433: lease termination date. */
4434:
4435: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Updating end date of Payment Terms');
4436:
4437: FOR i IN 1 .. l_item_end_dt_tbl.COUNT LOOP
4438: UPDATE pn_payment_terms_all
4439: SET end_date = l_item_end_dt_tbl(i).item_end_dt,
4447:
4448: /* Update the cash items with new amount, for the terms which have
4449: been contracted. */
4450:
4451: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Updating last non zero cash items with new pro. amt');
4452:
4453: recalculate_cash(p_new_lease_term_date => p_new_lea_term_dt);
4454:
4455: /*Get the normalized payment terms for which re-normalization needs
4454:
4455: /*Get the normalized payment terms for which re-normalization needs
4456: to be done */
4457:
4458: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Doing re-normalization');
4459:
4460: l_active_lease_change_id := Get_Lease_Change_Id(p_lease_id);
4461: FOR con_cur IN term_con_exp_cur(p_lease_id,l_active_lease_change_id)
4462: LOOP
4460: l_active_lease_change_id := Get_Lease_Change_Id(p_lease_id);
4461: FOR con_cur IN term_con_exp_cur(p_lease_id,l_active_lease_change_id)
4462: LOOP
4463:
4464: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Re-Normalization - Term Id : '||con_cur.payment_term_id);
4465:
4466: /* If the lease is Contracted, Normalization of term should start from
4467: the same date of normalization, when the term was Abstracted or Added. */
4468:
4471: FOR rec in get_drf_sch_date(con_cur.payment_term_id)
4472: LOOP
4473: -- Fix for bug#9214283
4474: l_sch_dt_1 := rec.schedule_date;
4475: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling find_schedule lease_change_id : '|| con_cur.lease_change_id);
4476: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling find_schedule payment_term_id : '|| con_cur.payment_term_id);
4477: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling l_sch_dt_1: '|| l_sch_dt_1);
4478: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling l_payment_schedule_id : '|| l_payment_schedule_id);
4479: pn_retro_adjustment_pkg.find_schedule(p_lease_id
4472: LOOP
4473: -- Fix for bug#9214283
4474: l_sch_dt_1 := rec.schedule_date;
4475: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling find_schedule lease_change_id : '|| con_cur.lease_change_id);
4476: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling find_schedule payment_term_id : '|| con_cur.payment_term_id);
4477: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling l_sch_dt_1: '|| l_sch_dt_1);
4478: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling l_payment_schedule_id : '|| l_payment_schedule_id);
4479: pn_retro_adjustment_pkg.find_schedule(p_lease_id
4480: ,con_cur.lease_change_id
4473: -- Fix for bug#9214283
4474: l_sch_dt_1 := rec.schedule_date;
4475: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling find_schedule lease_change_id : '|| con_cur.lease_change_id);
4476: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling find_schedule payment_term_id : '|| con_cur.payment_term_id);
4477: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling l_sch_dt_1: '|| l_sch_dt_1);
4478: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling l_payment_schedule_id : '|| l_payment_schedule_id);
4479: pn_retro_adjustment_pkg.find_schedule(p_lease_id
4480: ,con_cur.lease_change_id
4481: ,con_cur.payment_term_id
4474: l_sch_dt_1 := rec.schedule_date;
4475: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling find_schedule lease_change_id : '|| con_cur.lease_change_id);
4476: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling find_schedule payment_term_id : '|| con_cur.payment_term_id);
4477: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling l_sch_dt_1: '|| l_sch_dt_1);
4478: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Calling l_payment_schedule_id : '|| l_payment_schedule_id);
4479: pn_retro_adjustment_pkg.find_schedule(p_lease_id
4480: ,con_cur.lease_change_id
4481: ,con_cur.payment_term_id
4482: ,l_sch_dt_1
4500: p_norm_end_dt => p_new_lea_term_dt,
4501: p_rate => con_cur.rate,
4502: p_lease_change_id => con_cur.lease_change_id);
4503:
4504: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Renormalization done for Term : '
4505: ||TO_CHAR(con_cur.payment_term_id));
4506:
4507: UPDATE pn_payment_terms_all
4508: SET norm_end_date = p_new_lea_term_dt
4528: ,p_new_lea_term_dt => p_new_lea_term_dt
4529: );
4530: END IF;
4531:
4532: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT of MAIN Lease -End- (-)');
4533:
4534: END contraction_by_itm_end_dt;
4535:
4536: --------------------------------------------------------------------------------------------
4672: AND pps.payment_status_lookup_code = 'DRAFT';
4673:
4674: BEGIN
4675:
4676: pnp_debug_pkg.log('EXPANSION +Start+ (+)');
4677: pnp_debug_pkg.log('EXPANSION IN: p_lease_id : '||p_lease_id);
4678: pnp_debug_pkg.log('EXPANSION IN: p_lease_context : '||p_lease_context);
4679: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4680: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4673:
4674: BEGIN
4675:
4676: pnp_debug_pkg.log('EXPANSION +Start+ (+)');
4677: pnp_debug_pkg.log('EXPANSION IN: p_lease_id : '||p_lease_id);
4678: pnp_debug_pkg.log('EXPANSION IN: p_lease_context : '||p_lease_context);
4679: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4680: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4681: pnp_debug_pkg.log('EXPANSION IN: p_mths : '||p_mths);
4674: BEGIN
4675:
4676: pnp_debug_pkg.log('EXPANSION +Start+ (+)');
4677: pnp_debug_pkg.log('EXPANSION IN: p_lease_id : '||p_lease_id);
4678: pnp_debug_pkg.log('EXPANSION IN: p_lease_context : '||p_lease_context);
4679: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4680: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4681: pnp_debug_pkg.log('EXPANSION IN: p_mths : '||p_mths);
4682: pnp_debug_pkg.log('EXPANSION IN: p_term_id : '||p_term_id);
4675:
4676: pnp_debug_pkg.log('EXPANSION +Start+ (+)');
4677: pnp_debug_pkg.log('EXPANSION IN: p_lease_id : '||p_lease_id);
4678: pnp_debug_pkg.log('EXPANSION IN: p_lease_context : '||p_lease_context);
4679: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4680: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4681: pnp_debug_pkg.log('EXPANSION IN: p_mths : '||p_mths);
4682: pnp_debug_pkg.log('EXPANSION IN: p_term_id : '||p_term_id);
4683: /* Find out NOCOPY the old lease termination date. */
4676: pnp_debug_pkg.log('EXPANSION +Start+ (+)');
4677: pnp_debug_pkg.log('EXPANSION IN: p_lease_id : '||p_lease_id);
4678: pnp_debug_pkg.log('EXPANSION IN: p_lease_context : '||p_lease_context);
4679: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4680: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4681: pnp_debug_pkg.log('EXPANSION IN: p_mths : '||p_mths);
4682: pnp_debug_pkg.log('EXPANSION IN: p_term_id : '||p_term_id);
4683: /* Find out NOCOPY the old lease termination date. */
4684:
4677: pnp_debug_pkg.log('EXPANSION IN: p_lease_id : '||p_lease_id);
4678: pnp_debug_pkg.log('EXPANSION IN: p_lease_context : '||p_lease_context);
4679: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4680: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4681: pnp_debug_pkg.log('EXPANSION IN: p_mths : '||p_mths);
4682: pnp_debug_pkg.log('EXPANSION IN: p_term_id : '||p_term_id);
4683: /* Find out NOCOPY the old lease termination date. */
4684:
4685: FOR i in 1..28 LOOP
4678: pnp_debug_pkg.log('EXPANSION IN: p_lease_context : '||p_lease_context);
4679: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
4680: pnp_debug_pkg.log('EXPANSION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
4681: pnp_debug_pkg.log('EXPANSION IN: p_mths : '||p_mths);
4682: pnp_debug_pkg.log('EXPANSION IN: p_term_id : '||p_term_id);
4683: /* Find out NOCOPY the old lease termination date. */
4684:
4685: FOR i in 1..28 LOOP
4686: norm_st_dt_rec_tbl(i) := NULL;
4696:
4697:
4698: /* Call the index rent expansion routine */
4699:
4700: pnp_debug_pkg.log('EXP - MAIN - Expanding Index rent ');
4701:
4702: pn_index_rent_periods_pkg.process_main_lease_term_date (p_lease_id,
4703: p_new_lea_term_dt,
4704: l_ext_dt,
4705: p_lease_context,
4706: l_msg,
4707: p_cutoff_date);
4708:
4709: pnp_debug_pkg.log('EXPANSION - l_old_lea_term_dt : '||l_old_lea_term_dt);
4710: l_active_lease_change_id := Get_Lease_Change_Id(p_lease_id);
4711: pnp_debug_pkg.log(' lease change id = '|| l_active_lease_change_id);
4712:
4713: l_cutoff_date := to_date(to_char(p_cutoff_date, 'yyyy-mm-dd') , 'yyyy-mm-dd');
4707: p_cutoff_date);
4708:
4709: pnp_debug_pkg.log('EXPANSION - l_old_lea_term_dt : '||l_old_lea_term_dt);
4710: l_active_lease_change_id := Get_Lease_Change_Id(p_lease_id);
4711: pnp_debug_pkg.log(' lease change id = '|| l_active_lease_change_id);
4712:
4713: l_cutoff_date := to_date(to_char(p_cutoff_date, 'yyyy-mm-dd') , 'yyyy-mm-dd');
4714: pnp_debug_pkg.log(' l_cutoff_date '|| l_cutoff_date);
4715:
4710: l_active_lease_change_id := Get_Lease_Change_Id(p_lease_id);
4711: pnp_debug_pkg.log(' lease change id = '|| l_active_lease_change_id);
4712:
4713: l_cutoff_date := to_date(to_char(p_cutoff_date, 'yyyy-mm-dd') , 'yyyy-mm-dd');
4714: pnp_debug_pkg.log(' l_cutoff_date '|| l_cutoff_date);
4715:
4716: FOR con_cur IN term_exp_cur(p_lease_id,l_active_lease_change_id, p_cutoff_date)
4717: LOOP
4718: pnp_debug_pkg.log('EXPANSION - getting sch info for term : '
4714: pnp_debug_pkg.log(' l_cutoff_date '|| l_cutoff_date);
4715:
4716: FOR con_cur IN term_exp_cur(p_lease_id,l_active_lease_change_id, p_cutoff_date)
4717: LOOP
4718: pnp_debug_pkg.log('EXPANSION - getting sch info for term : '
4719: ||TO_CHAR(con_cur.payment_term_id));
4720:
4721: /* If the lease is Expanded, Normalization of term should start from
4722: the same date of normalization, when the term was Abstracted or Added. */
4742: p_lease_id => p_lease_id,
4743: p_term_id => con_cur.payment_term_id,
4744: p_norm_str_dt => l_norm_str_dt);
4745:
4746: pnp_debug_pkg.log('EXPANSION - p_no_sch : '||TO_CHAR(l_no_sch));
4747: pnp_debug_pkg.log('EXPANSION - p_freq : '||TO_CHAR(l_freq));
4748: pnp_debug_pkg.log('EXPANSION - p_counter : '||TO_CHAR(l_counter));
4749: pnp_debug_pkg.log('EXPANSION - p_sch_dt : '||TO_CHAR(l_sch_dt));
4750: pnp_debug_pkg.log('EXPANSION - p_pro_sch_dt: '||TO_CHAR(l_pro_sch_dt));
4743: p_term_id => con_cur.payment_term_id,
4744: p_norm_str_dt => l_norm_str_dt);
4745:
4746: pnp_debug_pkg.log('EXPANSION - p_no_sch : '||TO_CHAR(l_no_sch));
4747: pnp_debug_pkg.log('EXPANSION - p_freq : '||TO_CHAR(l_freq));
4748: pnp_debug_pkg.log('EXPANSION - p_counter : '||TO_CHAR(l_counter));
4749: pnp_debug_pkg.log('EXPANSION - p_sch_dt : '||TO_CHAR(l_sch_dt));
4750: pnp_debug_pkg.log('EXPANSION - p_pro_sch_dt: '||TO_CHAR(l_pro_sch_dt));
4751:
4744: p_norm_str_dt => l_norm_str_dt);
4745:
4746: pnp_debug_pkg.log('EXPANSION - p_no_sch : '||TO_CHAR(l_no_sch));
4747: pnp_debug_pkg.log('EXPANSION - p_freq : '||TO_CHAR(l_freq));
4748: pnp_debug_pkg.log('EXPANSION - p_counter : '||TO_CHAR(l_counter));
4749: pnp_debug_pkg.log('EXPANSION - p_sch_dt : '||TO_CHAR(l_sch_dt));
4750: pnp_debug_pkg.log('EXPANSION - p_pro_sch_dt: '||TO_CHAR(l_pro_sch_dt));
4751:
4752: process_term(p_no_sch => l_no_sch,
4745:
4746: pnp_debug_pkg.log('EXPANSION - p_no_sch : '||TO_CHAR(l_no_sch));
4747: pnp_debug_pkg.log('EXPANSION - p_freq : '||TO_CHAR(l_freq));
4748: pnp_debug_pkg.log('EXPANSION - p_counter : '||TO_CHAR(l_counter));
4749: pnp_debug_pkg.log('EXPANSION - p_sch_dt : '||TO_CHAR(l_sch_dt));
4750: pnp_debug_pkg.log('EXPANSION - p_pro_sch_dt: '||TO_CHAR(l_pro_sch_dt));
4751:
4752: process_term(p_no_sch => l_no_sch,
4753: p_counter => l_counter,
4746: pnp_debug_pkg.log('EXPANSION - p_no_sch : '||TO_CHAR(l_no_sch));
4747: pnp_debug_pkg.log('EXPANSION - p_freq : '||TO_CHAR(l_freq));
4748: pnp_debug_pkg.log('EXPANSION - p_counter : '||TO_CHAR(l_counter));
4749: pnp_debug_pkg.log('EXPANSION - p_sch_dt : '||TO_CHAR(l_sch_dt));
4750: pnp_debug_pkg.log('EXPANSION - p_pro_sch_dt: '||TO_CHAR(l_pro_sch_dt));
4751:
4752: process_term(p_no_sch => l_no_sch,
4753: p_counter => l_counter,
4754: p_sch_dt => l_sch_dt,
4782: UPDATE pn_payment_terms_all
4783: SET norm_end_date = g_new_lea_term_dt
4784: WHERE payment_term_id = con_cur.payment_term_id;
4785:
4786: pnp_debug_pkg.log('EXPANSION - processed term '||TO_CHAR(con_cur.payment_term_id));
4787:
4788: END LOOP;
4789:
4790: IF NVL(p_ten_trm_context,'N') = 'Y' THEN
5047:
5048: /* Now create the schedules and items for the new terms that have been added along with
5049: the expansion of the main lease */
5050:
5051: pnp_debug_pkg.log('EXPANSION - adding terms - ... ');
5052: pnp_debug_pkg.log('EXPANSION - p_new_lea_term_dt: '||p_new_lea_term_dt);
5053: pnp_debug_pkg.log('EXPANSION - p_new_lea_comm_dt: '||p_new_lea_comm_dt);
5054: pnp_debug_pkg.log('EXPANSION - p_mths : '||TO_CHAR(p_mths));
5055:
5048: /* Now create the schedules and items for the new terms that have been added along with
5049: the expansion of the main lease */
5050:
5051: pnp_debug_pkg.log('EXPANSION - adding terms - ... ');
5052: pnp_debug_pkg.log('EXPANSION - p_new_lea_term_dt: '||p_new_lea_term_dt);
5053: pnp_debug_pkg.log('EXPANSION - p_new_lea_comm_dt: '||p_new_lea_comm_dt);
5054: pnp_debug_pkg.log('EXPANSION - p_mths : '||TO_CHAR(p_mths));
5055:
5056: add_main(p_lease_id => p_lease_id,
5049: the expansion of the main lease */
5050:
5051: pnp_debug_pkg.log('EXPANSION - adding terms - ... ');
5052: pnp_debug_pkg.log('EXPANSION - p_new_lea_term_dt: '||p_new_lea_term_dt);
5053: pnp_debug_pkg.log('EXPANSION - p_new_lea_comm_dt: '||p_new_lea_comm_dt);
5054: pnp_debug_pkg.log('EXPANSION - p_mths : '||TO_CHAR(p_mths));
5055:
5056: add_main(p_lease_id => p_lease_id,
5057: p_lease_context => 'ADDAMD',
5050:
5051: pnp_debug_pkg.log('EXPANSION - adding terms - ... ');
5052: pnp_debug_pkg.log('EXPANSION - p_new_lea_term_dt: '||p_new_lea_term_dt);
5053: pnp_debug_pkg.log('EXPANSION - p_new_lea_comm_dt: '||p_new_lea_comm_dt);
5054: pnp_debug_pkg.log('EXPANSION - p_mths : '||TO_CHAR(p_mths));
5055:
5056: add_main(p_lease_id => p_lease_id,
5057: p_lease_context => 'ADDAMD',
5058: p_new_lea_term_dt => p_new_lea_term_dt,
5078:
5079: end if;
5080:
5081: pn_schedules_items.g_norm_dt_avl := NULL; /* 9231686 */
5082: pnp_debug_pkg.log('EXPANSION -End- (-)');
5083:
5084: END expansion;
5085:
5086:
5159: l_lease_status VARCHAR2(30) ;
5160:
5161: BEGIN
5162:
5163: pnp_debug_pkg.log('ABSTRACT +Start+ (+)');
5164: pnp_debug_pkg.log('ABSTRACT IN: p_lease_id : '||p_lease_id);
5165: pnp_debug_pkg.log('ABSTRACT IN: p_lease_context : '||p_lease_context);
5166: pnp_debug_pkg.log('ABSTRACT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5167: pnp_debug_pkg.log('ABSTRACT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5160:
5161: BEGIN
5162:
5163: pnp_debug_pkg.log('ABSTRACT +Start+ (+)');
5164: pnp_debug_pkg.log('ABSTRACT IN: p_lease_id : '||p_lease_id);
5165: pnp_debug_pkg.log('ABSTRACT IN: p_lease_context : '||p_lease_context);
5166: pnp_debug_pkg.log('ABSTRACT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5167: pnp_debug_pkg.log('ABSTRACT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5168: pnp_debug_pkg.log('ABSTRACT IN: p_mths : '||p_mths);
5161: BEGIN
5162:
5163: pnp_debug_pkg.log('ABSTRACT +Start+ (+)');
5164: pnp_debug_pkg.log('ABSTRACT IN: p_lease_id : '||p_lease_id);
5165: pnp_debug_pkg.log('ABSTRACT IN: p_lease_context : '||p_lease_context);
5166: pnp_debug_pkg.log('ABSTRACT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5167: pnp_debug_pkg.log('ABSTRACT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5168: pnp_debug_pkg.log('ABSTRACT IN: p_mths : '||p_mths);
5169:
5162:
5163: pnp_debug_pkg.log('ABSTRACT +Start+ (+)');
5164: pnp_debug_pkg.log('ABSTRACT IN: p_lease_id : '||p_lease_id);
5165: pnp_debug_pkg.log('ABSTRACT IN: p_lease_context : '||p_lease_context);
5166: pnp_debug_pkg.log('ABSTRACT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5167: pnp_debug_pkg.log('ABSTRACT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5168: pnp_debug_pkg.log('ABSTRACT IN: p_mths : '||p_mths);
5169:
5170: IF p_lease_context IN ('LOF','SGN') THEN
5163: pnp_debug_pkg.log('ABSTRACT +Start+ (+)');
5164: pnp_debug_pkg.log('ABSTRACT IN: p_lease_id : '||p_lease_id);
5165: pnp_debug_pkg.log('ABSTRACT IN: p_lease_context : '||p_lease_context);
5166: pnp_debug_pkg.log('ABSTRACT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5167: pnp_debug_pkg.log('ABSTRACT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5168: pnp_debug_pkg.log('ABSTRACT IN: p_mths : '||p_mths);
5169:
5170: IF p_lease_context IN ('LOF','SGN') THEN
5171:
5164: pnp_debug_pkg.log('ABSTRACT IN: p_lease_id : '||p_lease_id);
5165: pnp_debug_pkg.log('ABSTRACT IN: p_lease_context : '||p_lease_context);
5166: pnp_debug_pkg.log('ABSTRACT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5167: pnp_debug_pkg.log('ABSTRACT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5168: pnp_debug_pkg.log('ABSTRACT IN: p_mths : '||p_mths);
5169:
5170: IF p_lease_context IN ('LOF','SGN') THEN
5171:
5172: FOR rec IN get_lease_status(p_lease_id) LOOP
5290: END IF;
5291:
5292: END LOOP;
5293: END IF;
5294: pnp_debug_pkg.log('ABSTRACT -End- (-)');
5295:
5296: END abstract;
5297:
5298:
5335: l_sch_str_dt DATE;
5336:
5337: BEGIN
5338:
5339: pnp_debug_pkg.log('ADD_IND_VAR +Start+ (+)');
5340: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_id : '||p_lease_id);
5341: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_context : '||p_lease_context);
5342: pnp_debug_pkg.log('ADD_IND_VAR IN: p_term_id : '||p_term_id);
5343: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5336:
5337: BEGIN
5338:
5339: pnp_debug_pkg.log('ADD_IND_VAR +Start+ (+)');
5340: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_id : '||p_lease_id);
5341: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_context : '||p_lease_context);
5342: pnp_debug_pkg.log('ADD_IND_VAR IN: p_term_id : '||p_term_id);
5343: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5344: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5337: BEGIN
5338:
5339: pnp_debug_pkg.log('ADD_IND_VAR +Start+ (+)');
5340: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_id : '||p_lease_id);
5341: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_context : '||p_lease_context);
5342: pnp_debug_pkg.log('ADD_IND_VAR IN: p_term_id : '||p_term_id);
5343: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5344: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5345: pnp_debug_pkg.log('ADD_IND_VAR IN: p_mths : '||p_mths);
5338:
5339: pnp_debug_pkg.log('ADD_IND_VAR +Start+ (+)');
5340: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_id : '||p_lease_id);
5341: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_context : '||p_lease_context);
5342: pnp_debug_pkg.log('ADD_IND_VAR IN: p_term_id : '||p_term_id);
5343: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5344: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5345: pnp_debug_pkg.log('ADD_IND_VAR IN: p_mths : '||p_mths);
5346: FOR add_ind_var_cur IN term_add_ind_var_cur(p_lease_id, p_term_id)
5339: pnp_debug_pkg.log('ADD_IND_VAR +Start+ (+)');
5340: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_id : '||p_lease_id);
5341: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_context : '||p_lease_context);
5342: pnp_debug_pkg.log('ADD_IND_VAR IN: p_term_id : '||p_term_id);
5343: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5344: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5345: pnp_debug_pkg.log('ADD_IND_VAR IN: p_mths : '||p_mths);
5346: FOR add_ind_var_cur IN term_add_ind_var_cur(p_lease_id, p_term_id)
5347: LOOP
5340: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_id : '||p_lease_id);
5341: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_context : '||p_lease_context);
5342: pnp_debug_pkg.log('ADD_IND_VAR IN: p_term_id : '||p_term_id);
5343: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5344: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5345: pnp_debug_pkg.log('ADD_IND_VAR IN: p_mths : '||p_mths);
5346: FOR add_ind_var_cur IN term_add_ind_var_cur(p_lease_id, p_term_id)
5347: LOOP
5348:
5341: pnp_debug_pkg.log('ADD_IND_VAR IN: p_lease_context : '||p_lease_context);
5342: pnp_debug_pkg.log('ADD_IND_VAR IN: p_term_id : '||p_term_id);
5343: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5344: pnp_debug_pkg.log('ADD_IND_VAR IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5345: pnp_debug_pkg.log('ADD_IND_VAR IN: p_mths : '||p_mths);
5346: FOR add_ind_var_cur IN term_add_ind_var_cur(p_lease_id, p_term_id)
5347: LOOP
5348:
5349: l_norm_str_dt := add_ind_var_cur.norm_start_date;
5405: WHERE payment_term_id = add_ind_var_cur.payment_term_id;
5406: END IF;
5407:
5408: END LOOP;
5409: pnp_debug_pkg.log('ADD_IND_VAR -End- (-)');
5410:
5411: END add_ind_var;
5412:
5413:
5476: AND First_Day(pps.schedule_date) <= First_Day(p_term_end_dt);
5477:
5478: BEGIN
5479:
5480: pnp_debug_pkg.log('CONTRACT_PAY_TERM - Contraction of Payment Term - CONTERM +Start+ (+)');
5481: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_lease_id : '||p_lease_id);
5482: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_lease_context : '||p_lease_context);
5483: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5484: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5477:
5478: BEGIN
5479:
5480: pnp_debug_pkg.log('CONTRACT_PAY_TERM - Contraction of Payment Term - CONTERM +Start+ (+)');
5481: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_lease_id : '||p_lease_id);
5482: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_lease_context : '||p_lease_context);
5483: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5484: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5485: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_mths : '||p_mths);
5478: BEGIN
5479:
5480: pnp_debug_pkg.log('CONTRACT_PAY_TERM - Contraction of Payment Term - CONTERM +Start+ (+)');
5481: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_lease_id : '||p_lease_id);
5482: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_lease_context : '||p_lease_context);
5483: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5484: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5485: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_mths : '||p_mths);
5486:
5479:
5480: pnp_debug_pkg.log('CONTRACT_PAY_TERM - Contraction of Payment Term - CONTERM +Start+ (+)');
5481: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_lease_id : '||p_lease_id);
5482: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_lease_context : '||p_lease_context);
5483: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5484: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5485: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_mths : '||p_mths);
5486:
5487: -- Bug 7570052
5480: pnp_debug_pkg.log('CONTRACT_PAY_TERM - Contraction of Payment Term - CONTERM +Start+ (+)');
5481: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_lease_id : '||p_lease_id);
5482: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_lease_context : '||p_lease_context);
5483: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5484: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5485: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_mths : '||p_mths);
5486:
5487: -- Bug 7570052
5488: SELECT cal_start
5481: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_lease_id : '||p_lease_id);
5482: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_lease_context : '||p_lease_context);
5483: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
5484: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
5485: pnp_debug_pkg.log('CONTRACT_PAY_TERM IN: p_mths : '||p_mths);
5486:
5487: -- Bug 7570052
5488: SELECT cal_start
5489: INTO l_cal_yr_st
5498:
5499: FOR pay_term_con_cur IN payment_term_con_cur (p_lease_id)
5500: LOOP
5501:
5502: pnp_debug_pkg.log('CONTRACT_PAY_TERM - Term ID : '
5503: ||TO_CHAR(pay_term_con_cur.payment_term_id)
5504: ||' , Term End Date: '||pay_term_con_cur.end_date);
5505:
5506: IF pay_term_con_cur.frequency_code = 'OT' THEN
5503: ||TO_CHAR(pay_term_con_cur.payment_term_id)
5504: ||' , Term End Date: '||pay_term_con_cur.end_date);
5505:
5506: IF pay_term_con_cur.frequency_code = 'OT' THEN
5507: pnp_debug_pkg.log('CONTRACT_PAY_TERM - Cash Amount Updation not required for OT Term.');
5508:
5509: ELSE
5510: OPEN lst_cash_sch_dt_cur(pay_term_con_cur.payment_term_id, pay_term_con_cur.end_date);
5511: FETCH lst_cash_sch_dt_cur INTO l_lst_cash_sch_dt;
5510: OPEN lst_cash_sch_dt_cur(pay_term_con_cur.payment_term_id, pay_term_con_cur.end_date);
5511: FETCH lst_cash_sch_dt_cur INTO l_lst_cash_sch_dt;
5512: CLOSE lst_cash_sch_dt_cur;
5513:
5514: pnp_debug_pkg.log('CONTRACT_PAY_TERM - Term Freq: '||pay_term_con_cur.frequency_code
5515: ||' , Last Cash Sch Dt : '||l_lst_cash_sch_dt);
5516:
5517: l_frequency := get_frequency(p_freq_code => pay_term_con_cur.frequency_code);
5518:
5537: END IF;
5538:
5539: IF l_sch_end_dt <> pay_term_con_cur.end_date THEN
5540:
5541: pnp_debug_pkg.log('CONTRACT_PAY_TERM - last schedule is partial');
5542: pnp_debug_pkg.log(' Term End Date: '||pay_term_con_cur.end_date||
5543: ' - '||
5544: ' Schedule End Date: '||l_sch_end_dt);
5545:
5538:
5539: IF l_sch_end_dt <> pay_term_con_cur.end_date THEN
5540:
5541: pnp_debug_pkg.log('CONTRACT_PAY_TERM - last schedule is partial');
5542: pnp_debug_pkg.log(' Term End Date: '||pay_term_con_cur.end_date||
5543: ' - '||
5544: ' Schedule End Date: '||l_sch_end_dt);
5545:
5546: update_cash_item(p_term_id => pay_term_con_cur.payment_term_id,
5572: AND pps.payment_status_lookup_code IN ('DRAFT','ON_HOLD')
5573: AND pps.payment_schedule_id = ppi1.payment_schedule_id
5574: AND pps.schedule_date > l_lst_cash_sch_dt);
5575:
5576: pnp_debug_pkg.log('CONTRACT_PAY_TERM - Updated Cash Items Amt to 0. - Normalize');
5577:
5578: ELSE
5579:
5580: DELETE pn_payment_items_all ppi
5601: = pps1.payment_schedule_id
5602: )
5603: );
5604:
5605: pnp_debug_pkg.log('CONTRACT_PAY_TERM - Deleted Cash Items.');
5606:
5607: END IF;
5608: END IF;
5609:
5672: p_new_lea_comm_dt => p_new_lea_comm_dt,
5673: p_mths => p_mths);
5674:
5675:
5676: pnp_debug_pkg.log('CONTRACT_PAY_TERM - Contraction of Payment Term - CONTERM -End- (+)');
5677:
5678: END contract_pay_term;
5679: ------------------------------------------------------------------------
5680: -- FUNCTION :- GET_LEASE_CHANGE_ID
5758: AND schedule_date = p_schedule_date
5759: AND payment_status_lookup_code = 'APPROVED';
5760: BEGIN
5761:
5762: pnp_debug_pkg.log('GET_SCHEDULE_DATE (+) LeaseId: '||p_lease_id||' Day: '||p_day);
5763:
5764: l_start_schedule_date := TO_DATE(TO_CHAR(p_day)||'/'||TO_CHAR(p_start_date,'MM/YYYY'),'DD/MM/YYYY');
5765:
5766: -- Check if there is any approved scheule for that date
5815: EXIT;
5816: END IF;
5817: END LOOP;
5818:
5819: pnp_debug_pkg.log('GET_SCHEDULE_DATE (-) Schedule Date: '||l_schedule_date);
5820: RETURN l_schedule_date;
5821:
5822: EXCEPTION
5823: WHEN OTHERS THEN
5820: RETURN l_schedule_date;
5821:
5822: EXCEPTION
5823: WHEN OTHERS THEN
5824: pnp_debug_pkg.log('GET_SCHEDULE_DATE - Others error ..' || sqlerrm);
5825: l_schedule_Date := NULL;
5826: RETURN l_schedule_date;
5827:
5828: END Get_Schedule_Date;
5861:
5862:
5863: BEGIN
5864:
5865: pnp_debug_pkg.log('INSERT_PAYMENT_TERM (+) ');
5866:
5867: pnt_payment_terms_pkg.Insert_Row
5868: (
5869: x_rowid => l_rowid,
5965: X_TAX_CLASSIFICATION_CODE => p_payment_term_rec.tax_classification_code /*bug#13556228*/
5966:
5967: );
5968:
5969: pnp_debug_pkg.log('INSERT_PAYMENT_TERM (-) Created Payment Term Id: '||l_payment_term_id);
5970:
5971: -- Fix for bug#2733889
5972:
5973: FOR rec_distributions in csr_distributions(p_payment_term_rec.payment_term_id) LOOP
6003: ,x_attribute14 => rec_distributions.attribute14
6004: ,x_attribute15 => rec_distributions.attribute15
6005: ,x_org_id => rec_distributions.org_id);
6006:
6007: pnp_debug_pkg.log('INSERT_PAYMENT_TERM : Created Distribution Id: '||l_distribution_id||
6008: ' for Payment term id :'||l_payment_term_id);
6009:
6010: l_dist_rowid := NULL;
6011: l_distribution_id := NULL;
6013: ---
6014:
6015: p_payment_term_rec.payment_term_id := l_payment_term_id;
6016:
6017: pnp_debug_pkg.log('INSERT_PAYMENT_TERM (-)');
6018:
6019: END Insert_Payment_Term;
6020:
6021: --------------------------------------------------------------------------------
6093: l_non_zero_cash_sch_cnt NUMBER := 0;
6094:
6095: BEGIN
6096:
6097: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM (+) '||
6098: ' Term Id: '|| p_payment_term_rec.payment_term_id||
6099: ' Term End Date: '|| p_new_end_date);
6100: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6101: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6096:
6097: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM (+) '||
6098: ' Term Id: '|| p_payment_term_rec.payment_term_id||
6099: ' Term End Date: '|| p_new_end_date);
6100: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6101: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6102: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_mths : '||p_mths);
6103: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_start_date : '||p_new_start_date);
6104: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_end_date : '||p_new_end_date);
6097: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM (+) '||
6098: ' Term Id: '|| p_payment_term_rec.payment_term_id||
6099: ' Term End Date: '|| p_new_end_date);
6100: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6101: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6102: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_mths : '||p_mths);
6103: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_start_date : '||p_new_start_date);
6104: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_end_date : '||p_new_end_date);
6105:
6098: ' Term Id: '|| p_payment_term_rec.payment_term_id||
6099: ' Term End Date: '|| p_new_end_date);
6100: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6101: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6102: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_mths : '||p_mths);
6103: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_start_date : '||p_new_start_date);
6104: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_end_date : '||p_new_end_date);
6105:
6106: /* get currency info for rounding */
6099: ' Term End Date: '|| p_new_end_date);
6100: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6101: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6102: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_mths : '||p_mths);
6103: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_start_date : '||p_new_start_date);
6104: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_end_date : '||p_new_end_date);
6105:
6106: /* get currency info for rounding */
6107: fnd_currency.get_info( currency_code => p_payment_term_rec.currency_code
6100: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6101: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6102: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_mths : '||p_mths);
6103: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_start_date : '||p_new_start_date);
6104: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM IN: p_new_end_date : '||p_new_end_date);
6105:
6106: /* get currency info for rounding */
6107: fnd_currency.get_info( currency_code => p_payment_term_rec.currency_code
6108: ,precision => l_precision
6136: p_term_id => p_payment_term_rec.payment_term_id);
6137:
6138: l_sch_day := TO_CHAR(l_sch_dt,'DD');
6139:
6140: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - l_sch dt: '||l_sch_dt||' l_sch day: '||l_sch_day);
6141:
6142: IF p_payment_term_rec.frequency_code IN ('MON', 'OT') THEN
6143: l_sch_str_dt := FIRST_DAY(l_sch_dt);
6144: END IF;
6142: IF p_payment_term_rec.frequency_code IN ('MON', 'OT') THEN
6143: l_sch_str_dt := FIRST_DAY(l_sch_dt);
6144: END IF;
6145:
6146: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - l_sch_str dt: '||l_sch_str_dt||
6147: ' l_counter: '||l_counter||
6148: ' l_no_sch: '||l_no_sch);
6149:
6150: FOR i IN (l_counter + 1) .. l_no_sch
6148: ' l_no_sch: '||l_no_sch);
6149:
6150: FOR i IN (l_counter + 1) .. l_no_sch
6151: LOOP
6152: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling create schedule ');
6153: /* AMT-RETRO */
6154: IF NOT PNP_UTIL_FUNC.RETRO_ENABLED THEN
6155: create_schedule(p_payment_term_rec.lease_id,
6156: p_payment_term_rec.lease_change_id,
6172: ELSE
6173: l_sch_end_dt := ADD_MONTHS(l_sch_str_dt, l_freq) -1;
6174: END IF;
6175:
6176: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM: l_sch_enddate_ = '||l_sch_end_dt||
6177: ' l_sch_dt: '|| l_sch_dt||
6178: ' l_pro_sch_dt: '||l_pro_sch_dt);
6179:
6180: IF l_sch_dt = l_pro_sch_dt THEN
6187: l_cash_act_amt :=nvl(p_payment_term_rec.actual_amount,
6188: p_payment_term_rec.estimated_amount);
6189: ELSE
6190:
6191: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, sch st dt : '
6192: ||TO_CHAR(l_sch_str_dt,'MM/DD/YYYY'));
6193: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, sch end dt : '
6194: ||TO_CHAR(l_sch_end_dt,'MM/DD/YYYY'));
6195: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, term st dt : '
6189: ELSE
6190:
6191: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, sch st dt : '
6192: ||TO_CHAR(l_sch_str_dt,'MM/DD/YYYY'));
6193: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, sch end dt : '
6194: ||TO_CHAR(l_sch_end_dt,'MM/DD/YYYY'));
6195: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, term st dt : '
6196: ||TO_CHAR(p_payment_term_rec.start_date,'MM/DD/YYYY'));
6197: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, term end dt : '
6191: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, sch st dt : '
6192: ||TO_CHAR(l_sch_str_dt,'MM/DD/YYYY'));
6193: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, sch end dt : '
6194: ||TO_CHAR(l_sch_end_dt,'MM/DD/YYYY'));
6195: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, term st dt : '
6196: ||TO_CHAR(p_payment_term_rec.start_date,'MM/DD/YYYY'));
6197: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, term end dt : '
6198: ||TO_CHAR(p_new_end_date,'MM/DD/YYYY'));
6199: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, act amt : '
6193: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, sch end dt : '
6194: ||TO_CHAR(l_sch_end_dt,'MM/DD/YYYY'));
6195: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, term st dt : '
6196: ||TO_CHAR(p_payment_term_rec.start_date,'MM/DD/YYYY'));
6197: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, term end dt : '
6198: ||TO_CHAR(p_new_end_date,'MM/DD/YYYY'));
6199: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, act amt : '
6200: ||TO_CHAR(l_act_amt));
6201: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, est amt : '
6195: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, term st dt : '
6196: ||TO_CHAR(p_payment_term_rec.start_date,'MM/DD/YYYY'));
6197: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, term end dt : '
6198: ||TO_CHAR(p_new_end_date,'MM/DD/YYYY'));
6199: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, act amt : '
6200: ||TO_CHAR(l_act_amt));
6201: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, est amt : '
6202: ||TO_CHAR(l_est_amt));
6203: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, freq : '
6197: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, term end dt : '
6198: ||TO_CHAR(p_new_end_date,'MM/DD/YYYY'));
6199: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, act amt : '
6200: ||TO_CHAR(l_act_amt));
6201: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, est amt : '
6202: ||TO_CHAR(l_est_amt));
6203: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, freq : '
6204: ||TO_CHAR(l_freq));
6205:
6199: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, act amt : '
6200: ||TO_CHAR(l_act_amt));
6201: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, est amt : '
6202: ||TO_CHAR(l_est_amt));
6203: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Calling get_amount, freq : '
6204: ||TO_CHAR(l_freq));
6205:
6206: get_amount(p_sch_str_dt => l_sch_str_dt,
6207: p_sch_end_dt => l_sch_end_dt,
6212: p_freq => l_freq,
6213: p_cash_act_amt => l_cash_act_amt,
6214: p_cash_est_amt => l_cash_est_amt);
6215:
6216: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Returned from get_amount, cash act amt: '
6217: ||TO_CHAR(l_cash_act_amt));
6218: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Returned from get_amount, cash est amt: '
6219: ||TO_CHAR(l_cash_est_amt));
6220:
6214: p_cash_est_amt => l_cash_est_amt);
6215:
6216: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Returned from get_amount, cash act amt: '
6217: ||TO_CHAR(l_cash_act_amt));
6218: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - Returned from get_amount, cash est amt: '
6219: ||TO_CHAR(l_cash_est_amt));
6220:
6221: -- Get the next schedule date which will have non zero amount
6222:
6243:
6244: l_rec_found := FALSE;
6245: IF NOT PNP_UTIL_FUNC.RETRO_ENABLED THEN
6246:
6247: pnp_debug_pkg.log('Retro not enabled... ');
6248:
6249: l_exist_amount := 0;
6250:
6251: FOR amt_rec IN exist_appr_item_amt LOOP
6251: FOR amt_rec IN exist_appr_item_amt LOOP
6252: l_exist_amount := amt_rec.amount;
6253: END LOOP; /* 9322649 */
6254:
6255: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - exist amount: ' || TO_CHAR(l_exist_amount));
6256: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - cash amount: ' ||TO_CHAR(l_cash_act_amt));
6257:
6258:
6259: FOR existing_items_rec in existing_payment_item_cur(l_sch_id) LOOP
6252: l_exist_amount := amt_rec.amount;
6253: END LOOP; /* 9322649 */
6254:
6255: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - exist amount: ' || TO_CHAR(l_exist_amount));
6256: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - cash amount: ' ||TO_CHAR(l_cash_act_amt));
6257:
6258:
6259: FOR existing_items_rec in existing_payment_item_cur(l_sch_id) LOOP
6260: l_rec_found := TRUE;
6258:
6259: FOR existing_items_rec in existing_payment_item_cur(l_sch_id) LOOP
6260: l_rec_found := TRUE;
6261:
6262: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - rec found...');
6263:
6264: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - existing_items_rec.actual_amount: ' ||TO_CHAR(existing_items_rec.actual_amount));
6265: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - l_cash_act_amt: ' ||TO_CHAR(l_cash_act_amt));
6266:
6260: l_rec_found := TRUE;
6261:
6262: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - rec found...');
6263:
6264: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - existing_items_rec.actual_amount: ' ||TO_CHAR(existing_items_rec.actual_amount));
6265: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - l_cash_act_amt: ' ||TO_CHAR(l_cash_act_amt));
6266:
6267: IF existing_items_rec.actual_amount <> l_cash_act_amt THEN
6268: UPDATE pn_payment_items_all
6261:
6262: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - rec found...');
6263:
6264: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - existing_items_rec.actual_amount: ' ||TO_CHAR(existing_items_rec.actual_amount));
6265: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - l_cash_act_amt: ' ||TO_CHAR(l_cash_act_amt));
6266:
6267: IF existing_items_rec.actual_amount <> l_cash_act_amt THEN
6268: UPDATE pn_payment_items_all
6269: SET actual_amount = ROUND(l_cash_act_amt - l_exist_amount, l_precision),
6277: END LOOP;
6278:
6279: IF NOT(l_rec_found) THEN
6280:
6281: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM - rec not found...');
6282:
6283: IF l_cash_act_amt - l_exist_amount <> 0 THEN
6284: create_cash_items(p_est_amt => l_cash_est_amt,
6285: p_act_amt => l_cash_act_amt - l_exist_amount,
6304: END IF; /* NOT(l_rec_found) */
6305:
6306: ELSE /* retro is enabled */
6307:
6308: pnp_debug_pkg.log('Retro enabled... ');
6309: l_exist_amount := 0;
6310: FOR amt_rec IN exist_appr_item_amt LOOP
6311: l_exist_amount := amt_rec.amount;
6312: END LOOP;
6360:
6361: l_sch_str_dt := ADD_MONTHS(l_sch_str_dt, l_freq);
6362: END LOOP;
6363:
6364: pnp_debug_pkg.log('EXTEND_PAYMENT_TERM (-) ');
6365: EXCEPTION
6366:
6367: WHEN OTHERS THEN
6368: x_return_status := FND_API.G_RET_STS_ERROR;
6407: l_norm_st_dt DATE;
6408:
6409: BEGIN
6410:
6411: pnp_debug_pkg.log('CREATE_PAYMENT_TERM (+) Lease ID: '||p_payment_term_rec.lease_id||
6412: ', p_lease_end_date: '||p_lease_end_date);
6413: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_lease_end_date : '||p_lease_end_date);
6414: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_start_date : '||p_term_start_date);
6415: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_end_date : '||p_term_end_date);
6409: BEGIN
6410:
6411: pnp_debug_pkg.log('CREATE_PAYMENT_TERM (+) Lease ID: '||p_payment_term_rec.lease_id||
6412: ', p_lease_end_date: '||p_lease_end_date);
6413: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_lease_end_date : '||p_lease_end_date);
6414: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_start_date : '||p_term_start_date);
6415: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_end_date : '||p_term_end_date);
6416: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6417: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6410:
6411: pnp_debug_pkg.log('CREATE_PAYMENT_TERM (+) Lease ID: '||p_payment_term_rec.lease_id||
6412: ', p_lease_end_date: '||p_lease_end_date);
6413: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_lease_end_date : '||p_lease_end_date);
6414: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_start_date : '||p_term_start_date);
6415: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_end_date : '||p_term_end_date);
6416: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6417: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6418: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_mths : '||p_mths);
6411: pnp_debug_pkg.log('CREATE_PAYMENT_TERM (+) Lease ID: '||p_payment_term_rec.lease_id||
6412: ', p_lease_end_date: '||p_lease_end_date);
6413: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_lease_end_date : '||p_lease_end_date);
6414: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_start_date : '||p_term_start_date);
6415: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_end_date : '||p_term_end_date);
6416: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6417: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6418: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_mths : '||p_mths);
6419:
6412: ', p_lease_end_date: '||p_lease_end_date);
6413: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_lease_end_date : '||p_lease_end_date);
6414: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_start_date : '||p_term_start_date);
6415: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_end_date : '||p_term_end_date);
6416: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6417: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6418: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_mths : '||p_mths);
6419:
6420: l_payment_term_rec := p_payment_term_rec;
6413: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_lease_end_date : '||p_lease_end_date);
6414: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_start_date : '||p_term_start_date);
6415: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_end_date : '||p_term_end_date);
6416: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6417: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6418: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_mths : '||p_mths);
6419:
6420: l_payment_term_rec := p_payment_term_rec;
6421: l_curr_payment_term_id := l_payment_term_rec.payment_term_id ;
6414: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_start_date : '||p_term_start_date);
6415: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_term_end_date : '||p_term_end_date);
6416: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6417: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6418: pnp_debug_pkg.log('CREATE_PAYMENT_TERM IN: p_mths : '||p_mths);
6419:
6420: l_payment_term_rec := p_payment_term_rec;
6421: l_curr_payment_term_id := l_payment_term_rec.payment_term_id ;
6422: l_payment_term_rec.start_date := p_term_start_date;
6425: l_payment_term_rec.lease_status := 'MTM' ;
6426: l_payment_term_rec.frequency_code := p_payment_term_rec.frequency_code;
6427: l_payment_term_rec.status := 'DRAFT';
6428:
6429: pnp_debug_pkg.log('CREATE_PAYMENT_TERM - payment term_id '||l_payment_term_rec.payment_Term_id);
6430:
6431: pn_schedules_items.Insert_Payment_Term (
6432: p_payment_term_rec => l_payment_term_rec,
6433: x_return_status => x_return_status,
6432: p_payment_term_rec => l_payment_term_rec,
6433: x_return_status => x_return_status,
6434: x_return_message => x_return_message);
6435:
6436: pnp_debug_pkg.log('CREATE_PAYMENT_TERM - Calling get_sch_info ...');
6437: get_sch_info(p_lease_context => 'ABS',
6438: p_normalize_flag => 'N',
6439: p_mths => p_mths,
6440: p_term_start_dt => p_term_start_date,
6453: p_norm_str_dt => l_norm_st_dt,
6454: p_lease_id => l_payment_term_rec.lease_id,
6455: p_term_id => l_payment_term_rec.payment_term_id);
6456:
6457: pnp_debug_pkg.log('CREATE_PAYMENT_TERM - Calling process term...');
6458: process_term(p_no_sch => l_no_sch,
6459: p_counter => l_counter,
6460: p_sch_dt => l_sch_dt,
6461: p_pro_sch_dt => l_pro_sch_dt,
6485: p_norm_str_dt => NULL,
6486: p_lease_change_id => l_payment_term_rec.lease_change_id);
6487:
6488:
6489: pnp_debug_pkg.log('CREATE_PAYMENT_TERM (-) ');
6490:
6491: EXCEPTION
6492: WHEN Invalid_Schd_Date THEN
6493: x_return_status := FND_API.G_RET_STS_ERROR;
6493: x_return_status := FND_API.G_RET_STS_ERROR;
6494:
6495: WHEN OTHERS THEN
6496: x_return_status := FND_API.G_RET_STS_ERROR;
6497: pnp_debug_pkg.log('CREATE_PAYMENT_TERM - Others error ..' || sqlerrm);
6498: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
6499:
6500: END Create_Payment_Term;
6501:
6574: l_create_term_flag VARCHAR2(1);
6575:
6576: BEGIN
6577:
6578: pnp_debug_pkg.log('ROLLOVER_LEASE +Start+ (+)');
6579: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_lease_id : '||p_lease_id);
6580: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_lease_end_date : '||p_lease_end_date);
6581: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6582: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6575:
6576: BEGIN
6577:
6578: pnp_debug_pkg.log('ROLLOVER_LEASE +Start+ (+)');
6579: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_lease_id : '||p_lease_id);
6580: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_lease_end_date : '||p_lease_end_date);
6581: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6582: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6583: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_mths : '||p_mths);
6576: BEGIN
6577:
6578: pnp_debug_pkg.log('ROLLOVER_LEASE +Start+ (+)');
6579: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_lease_id : '||p_lease_id);
6580: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_lease_end_date : '||p_lease_end_date);
6581: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6582: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6583: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_mths : '||p_mths);
6584:
6577:
6578: pnp_debug_pkg.log('ROLLOVER_LEASE +Start+ (+)');
6579: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_lease_id : '||p_lease_id);
6580: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_lease_end_date : '||p_lease_end_date);
6581: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6582: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6583: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_mths : '||p_mths);
6584:
6585: FOR lease IN get_lease_details LOOP
6578: pnp_debug_pkg.log('ROLLOVER_LEASE +Start+ (+)');
6579: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_lease_id : '||p_lease_id);
6580: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_lease_end_date : '||p_lease_end_date);
6581: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6582: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6583: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_mths : '||p_mths);
6584:
6585: FOR lease IN get_lease_details LOOP
6586: l_lease_term_date_old := lease.lease_term_date_old;
6579: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_lease_id : '||p_lease_id);
6580: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_lease_end_date : '||p_lease_end_date);
6581: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6582: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6583: pnp_debug_pkg.log('ROLLOVER_LEASE IN: p_mths : '||p_mths);
6584:
6585: FOR lease IN get_lease_details LOOP
6586: l_lease_term_date_old := lease.lease_term_date_old;
6587: l_lease_change_id := lease.lease_change_id;
6596: IF NVL(p_ten_trm_context,'N') ='Y' THEN
6597:
6598: FOR l_payment_term_rec IN payment_terms_cursor(l_lease_term_date_old)
6599: LOOP
6600: pnp_debug_pkg.log('ROLLOVER - Payment Term Id: '||l_payment_term_rec.payment_Term_id||
6601: ' Normalize: ' ||l_payment_term_rec.normalize);
6602:
6603: l_rollover_mode := NULL;
6604: l_schd_day := NULL;
6606: l_payment_term_start_date := l_payment_term_rec.end_date + 1;
6607: IF PNP_UTIL_FUNC.RETRO_ENABLED THEN
6608: IF NVL(l_payment_term_rec.normalize,'N')= 'Y' THEN
6609:
6610: pnp_debug_pkg.log('ROLLOVER - Calling create payment term ..');
6611: l_payment_term_rec.lease_change_id := l_lease_change_id;
6612: Create_Payment_Term (p_payment_term_rec => l_payment_term_rec,
6613: p_lease_end_date => p_lease_end_date,
6614: p_term_start_date => l_payment_term_start_date,
6620: x_return_message => x_return_message);
6621:
6622: ELSE
6623:
6624: pnp_debug_pkg.log('ROLLOVER - Calling extend_payment_term ..');
6625: Extend_Payment_Term (p_payment_term_rec => l_payment_term_rec,
6626: p_new_lea_comm_dt => p_new_lea_comm_dt,
6627: p_new_lea_term_dt => l_lease_term_date_old,
6628: p_mths => p_mths,
6630: p_new_end_date => p_lease_end_date,
6631: x_return_status => x_return_status,
6632: x_return_message => x_return_message);
6633:
6634: pnp_debug_pkg.log('ROLLOVER - Update end date of payment term..');
6635:
6636: UPDATE pn_payment_terms_all
6637: SET end_date = p_lease_end_date,
6638: lease_status = 'MTM'
6646: l_freq_code := l_payment_term_rec.frequency_code;
6647: l_freq := get_frequency(p_freq_code => l_freq_code);
6648:
6649: IF l_freq_code <> 'MON' THEN
6650: pnp_debug_pkg.log('Non-monthly term...');
6651: -- Check if last period is partial and set start date accordingly
6652: l_duration_in_months := CEIL(MONTHS_BETWEEN(LAST_DAY(l_payment_term_rec.end_date), FIRST_DAY(l_payment_term_rec.start_date)));
6653:
6654: l_no_of_sch := l_duration_in_months/l_freq;
6654: l_no_of_sch := l_duration_in_months/l_freq;
6655:
6656: /*IF TRUNC(l_no_of_sch) <> l_no_of_sch THEN
6657: -- Last period is partial, now check if last schedule is approved
6658: pnp_debug_pkg.log('last period is partial');
6659: OPEN last_sch_cur(l_payment_term_rec.payment_term_id);
6660: FETCH last_sch_cur INTO l_last_sch_date;
6661:
6662: select payment_status_lookup_code INTO l_payment_status
6681: p_start_date => l_payment_term_start_date,
6682: p_end_date => p_lease_end_date,
6683: p_freq => l_freq);
6684: l_schd_day := TO_NUMBER(TO_CHAR(l_schd_date,'DD'));
6685: pnp_debug_pkg.log('ROLLOVER - Get_Schedule_Date: '||l_schd_date||
6686: ' l_schd_day: '||l_schd_day);
6687:
6688: IF ((NVL(l_payment_term_rec.normalize,'N')= 'Y') OR (l_create_term_flag = 'Y')) THEN
6689: l_rollover_mode := 'CREATE_NEW_TERM';
6700: l_payment_term_start_date := l_payment_term_rec.end_date + 1;
6701:
6702: IF l_rollover_mode = 'CREATE_NEW_TERM' THEN
6703:
6704: pnp_debug_pkg.log('ROLLOVER - Calling create payment term ..');
6705: l_payment_term_rec.lease_change_id := l_lease_change_id;
6706: Create_Payment_Term (p_payment_term_rec => l_payment_term_rec,
6707: p_lease_end_date => p_lease_end_date,
6708: p_term_start_date => l_payment_term_start_date,
6713: x_return_status => x_return_status,
6714: x_return_message => x_return_message);
6715: ELSIF l_rollover_mode = 'EXTEND_TERM' THEN
6716:
6717: pnp_debug_pkg.log('ROLLOVER - Calling extend_payment_term ..');
6718: Extend_Payment_Term (p_payment_term_rec => l_payment_term_rec,
6719: p_new_lea_comm_dt => p_new_lea_comm_dt,
6720: p_new_lea_term_dt => l_lease_term_date_old,
6721: p_mths => p_mths,
6723: p_new_end_date => p_lease_end_date,
6724: x_return_status => x_return_status,
6725: x_return_message => x_return_message);
6726:
6727: pnp_debug_pkg.log('ROLLOVER - Update end date of payment term..');
6728: UPDATE pn_payment_terms_all
6729: SET end_date = p_lease_end_date,
6730: lease_status = 'MTM'
6731: WHERE payment_term_id = l_payment_term_rec.payment_term_id;
6754: p_lease_context => 'ROLLOVER',
6755: p_msg => x_return_message);
6756: END IF;
6757:
6758: pnp_debug_pkg.log('ROLLOVER_LEASE +Start+ (-)');
6759:
6760: EXCEPTION
6761: WHEN INVALID_SCHD_DATE THEN
6762: x_return_status := FND_API.G_RET_STS_ERROR;
6795: WHERE pth.payment_term_id = p_term_id);
6796:
6797: BEGIN
6798:
6799: pnp_debug_pkg.log('ADJUSTMENT - Adjustment of Term - ADJ - Start (+)');
6800: pnp_debug_pkg.log('ADJUSTMENT IN: p_lease_id : '||p_lease_id);
6801: pnp_debug_pkg.log('ADJUSTMENT IN: p_lease_context : '||p_lease_context);
6802: pnp_debug_pkg.log('ADJUSTMENT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6803: pnp_debug_pkg.log('ADJUSTMENT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6796:
6797: BEGIN
6798:
6799: pnp_debug_pkg.log('ADJUSTMENT - Adjustment of Term - ADJ - Start (+)');
6800: pnp_debug_pkg.log('ADJUSTMENT IN: p_lease_id : '||p_lease_id);
6801: pnp_debug_pkg.log('ADJUSTMENT IN: p_lease_context : '||p_lease_context);
6802: pnp_debug_pkg.log('ADJUSTMENT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6803: pnp_debug_pkg.log('ADJUSTMENT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6804: pnp_debug_pkg.log('ADJUSTMENT IN: p_mths : '||p_mths);
6797: BEGIN
6798:
6799: pnp_debug_pkg.log('ADJUSTMENT - Adjustment of Term - ADJ - Start (+)');
6800: pnp_debug_pkg.log('ADJUSTMENT IN: p_lease_id : '||p_lease_id);
6801: pnp_debug_pkg.log('ADJUSTMENT IN: p_lease_context : '||p_lease_context);
6802: pnp_debug_pkg.log('ADJUSTMENT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6803: pnp_debug_pkg.log('ADJUSTMENT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6804: pnp_debug_pkg.log('ADJUSTMENT IN: p_mths : '||p_mths);
6805:
6798:
6799: pnp_debug_pkg.log('ADJUSTMENT - Adjustment of Term - ADJ - Start (+)');
6800: pnp_debug_pkg.log('ADJUSTMENT IN: p_lease_id : '||p_lease_id);
6801: pnp_debug_pkg.log('ADJUSTMENT IN: p_lease_context : '||p_lease_context);
6802: pnp_debug_pkg.log('ADJUSTMENT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6803: pnp_debug_pkg.log('ADJUSTMENT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6804: pnp_debug_pkg.log('ADJUSTMENT IN: p_mths : '||p_mths);
6805:
6806: FOR adj_term_rec IN payment_term_con_cur(p_lease_id)
6799: pnp_debug_pkg.log('ADJUSTMENT - Adjustment of Term - ADJ - Start (+)');
6800: pnp_debug_pkg.log('ADJUSTMENT IN: p_lease_id : '||p_lease_id);
6801: pnp_debug_pkg.log('ADJUSTMENT IN: p_lease_context : '||p_lease_context);
6802: pnp_debug_pkg.log('ADJUSTMENT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6803: pnp_debug_pkg.log('ADJUSTMENT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6804: pnp_debug_pkg.log('ADJUSTMENT IN: p_mths : '||p_mths);
6805:
6806: FOR adj_term_rec IN payment_term_con_cur(p_lease_id)
6807: LOOP
6800: pnp_debug_pkg.log('ADJUSTMENT IN: p_lease_id : '||p_lease_id);
6801: pnp_debug_pkg.log('ADJUSTMENT IN: p_lease_context : '||p_lease_context);
6802: pnp_debug_pkg.log('ADJUSTMENT IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
6803: pnp_debug_pkg.log('ADJUSTMENT IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
6804: pnp_debug_pkg.log('ADJUSTMENT IN: p_mths : '||p_mths);
6805:
6806: FOR adj_term_rec IN payment_term_con_cur(p_lease_id)
6807: LOOP
6808:
6805:
6806: FOR adj_term_rec IN payment_term_con_cur(p_lease_id)
6807: LOOP
6808:
6809: pnp_debug_pkg.log('adj_term_rec loop : payment_term_id : '||adj_term_rec.payment_term_id);
6810:
6811: OPEN get_max_term_hist_cur(adj_term_rec.payment_term_id);
6812: FETCH get_max_term_hist_cur INTO l_term_hist_id, l_adj_type_code;
6813: CLOSE get_max_term_hist_cur;
6811: OPEN get_max_term_hist_cur(adj_term_rec.payment_term_id);
6812: FETCH get_max_term_hist_cur INTO l_term_hist_id, l_adj_type_code;
6813: CLOSE get_max_term_hist_cur;
6814:
6815: pnp_debug_pkg.log('adj_term_rec loop : l_term_hist_id : '||l_term_hist_id);
6816: pnp_debug_pkg.log('adj_term_rec loop : l_adj_type_code : '||l_adj_type_code);
6817: pnp_debug_pkg.log('adj_term_rec loop : lease_change_id : '||adj_term_rec.lease_change_id);
6818: pnp_debug_pkg.log('adj_term_rec loop : start_date : '||adj_term_rec.start_date);
6819: pnp_debug_pkg.log('adj_term_rec loop : end_date : '||adj_term_rec.end_date);
6812: FETCH get_max_term_hist_cur INTO l_term_hist_id, l_adj_type_code;
6813: CLOSE get_max_term_hist_cur;
6814:
6815: pnp_debug_pkg.log('adj_term_rec loop : l_term_hist_id : '||l_term_hist_id);
6816: pnp_debug_pkg.log('adj_term_rec loop : l_adj_type_code : '||l_adj_type_code);
6817: pnp_debug_pkg.log('adj_term_rec loop : lease_change_id : '||adj_term_rec.lease_change_id);
6818: pnp_debug_pkg.log('adj_term_rec loop : start_date : '||adj_term_rec.start_date);
6819: pnp_debug_pkg.log('adj_term_rec loop : end_date : '||adj_term_rec.end_date);
6820: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6813: CLOSE get_max_term_hist_cur;
6814:
6815: pnp_debug_pkg.log('adj_term_rec loop : l_term_hist_id : '||l_term_hist_id);
6816: pnp_debug_pkg.log('adj_term_rec loop : l_adj_type_code : '||l_adj_type_code);
6817: pnp_debug_pkg.log('adj_term_rec loop : lease_change_id : '||adj_term_rec.lease_change_id);
6818: pnp_debug_pkg.log('adj_term_rec loop : start_date : '||adj_term_rec.start_date);
6819: pnp_debug_pkg.log('adj_term_rec loop : end_date : '||adj_term_rec.end_date);
6820: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6821: pnp_debug_pkg.log('adj_term_rec loop : actual_amount : '||adj_term_rec.actual_amount);
6814:
6815: pnp_debug_pkg.log('adj_term_rec loop : l_term_hist_id : '||l_term_hist_id);
6816: pnp_debug_pkg.log('adj_term_rec loop : l_adj_type_code : '||l_adj_type_code);
6817: pnp_debug_pkg.log('adj_term_rec loop : lease_change_id : '||adj_term_rec.lease_change_id);
6818: pnp_debug_pkg.log('adj_term_rec loop : start_date : '||adj_term_rec.start_date);
6819: pnp_debug_pkg.log('adj_term_rec loop : end_date : '||adj_term_rec.end_date);
6820: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6821: pnp_debug_pkg.log('adj_term_rec loop : actual_amount : '||adj_term_rec.actual_amount);
6822: pnp_debug_pkg.log('adj_term_rec loop : frequency : '||adj_term_rec.frequency_code);
6815: pnp_debug_pkg.log('adj_term_rec loop : l_term_hist_id : '||l_term_hist_id);
6816: pnp_debug_pkg.log('adj_term_rec loop : l_adj_type_code : '||l_adj_type_code);
6817: pnp_debug_pkg.log('adj_term_rec loop : lease_change_id : '||adj_term_rec.lease_change_id);
6818: pnp_debug_pkg.log('adj_term_rec loop : start_date : '||adj_term_rec.start_date);
6819: pnp_debug_pkg.log('adj_term_rec loop : end_date : '||adj_term_rec.end_date);
6820: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6821: pnp_debug_pkg.log('adj_term_rec loop : actual_amount : '||adj_term_rec.actual_amount);
6822: pnp_debug_pkg.log('adj_term_rec loop : frequency : '||adj_term_rec.frequency_code);
6823: pnp_debug_pkg.log('Calling pn_retro_adjustment_pkg.create_retro_adjustments ...');
6816: pnp_debug_pkg.log('adj_term_rec loop : l_adj_type_code : '||l_adj_type_code);
6817: pnp_debug_pkg.log('adj_term_rec loop : lease_change_id : '||adj_term_rec.lease_change_id);
6818: pnp_debug_pkg.log('adj_term_rec loop : start_date : '||adj_term_rec.start_date);
6819: pnp_debug_pkg.log('adj_term_rec loop : end_date : '||adj_term_rec.end_date);
6820: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6821: pnp_debug_pkg.log('adj_term_rec loop : actual_amount : '||adj_term_rec.actual_amount);
6822: pnp_debug_pkg.log('adj_term_rec loop : frequency : '||adj_term_rec.frequency_code);
6823: pnp_debug_pkg.log('Calling pn_retro_adjustment_pkg.create_retro_adjustments ...');
6824:
6817: pnp_debug_pkg.log('adj_term_rec loop : lease_change_id : '||adj_term_rec.lease_change_id);
6818: pnp_debug_pkg.log('adj_term_rec loop : start_date : '||adj_term_rec.start_date);
6819: pnp_debug_pkg.log('adj_term_rec loop : end_date : '||adj_term_rec.end_date);
6820: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6821: pnp_debug_pkg.log('adj_term_rec loop : actual_amount : '||adj_term_rec.actual_amount);
6822: pnp_debug_pkg.log('adj_term_rec loop : frequency : '||adj_term_rec.frequency_code);
6823: pnp_debug_pkg.log('Calling pn_retro_adjustment_pkg.create_retro_adjustments ...');
6824:
6825: pn_retro_adjustment_pkg.create_retro_adjustments
6818: pnp_debug_pkg.log('adj_term_rec loop : start_date : '||adj_term_rec.start_date);
6819: pnp_debug_pkg.log('adj_term_rec loop : end_date : '||adj_term_rec.end_date);
6820: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6821: pnp_debug_pkg.log('adj_term_rec loop : actual_amount : '||adj_term_rec.actual_amount);
6822: pnp_debug_pkg.log('adj_term_rec loop : frequency : '||adj_term_rec.frequency_code);
6823: pnp_debug_pkg.log('Calling pn_retro_adjustment_pkg.create_retro_adjustments ...');
6824:
6825: pn_retro_adjustment_pkg.create_retro_adjustments
6826: (p_lease_id => p_lease_id,
6819: pnp_debug_pkg.log('adj_term_rec loop : end_date : '||adj_term_rec.end_date);
6820: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6821: pnp_debug_pkg.log('adj_term_rec loop : actual_amount : '||adj_term_rec.actual_amount);
6822: pnp_debug_pkg.log('adj_term_rec loop : frequency : '||adj_term_rec.frequency_code);
6823: pnp_debug_pkg.log('Calling pn_retro_adjustment_pkg.create_retro_adjustments ...');
6824:
6825: pn_retro_adjustment_pkg.create_retro_adjustments
6826: (p_lease_id => p_lease_id,
6827: p_lease_chg_id => adj_term_rec.lease_change_id,
6833: p_term_freq => adj_term_rec.frequency_code,
6834: p_term_hist_id => l_term_hist_id,
6835: p_adj_type_cd => l_adj_type_code);
6836:
6837: pnp_debug_pkg.log('adj_term_rec loop : normalize : '||adj_term_rec.normalize);
6838:
6839: IF NVL(adj_term_rec.normalize, 'N') = 'Y' THEN
6840:
6841: l_norm_str_dt := NVL(adj_term_rec.norm_start_date,
6840:
6841: l_norm_str_dt := NVL(adj_term_rec.norm_start_date,
6842: get_first_item_date(adj_term_rec.payment_term_id));
6843:
6844: pnp_debug_pkg.log('adj_term_rec loop : l_norm_str_dt : '||l_norm_str_dt);
6845: pnp_debug_pkg.log('adj_term_rec loop : g_lease_status : '||g_lease_status);
6846:
6847: IF g_lease_status = 'ACT' THEN
6848: l_lease_trmn_date := g_new_lea_term_dt;
6841: l_norm_str_dt := NVL(adj_term_rec.norm_start_date,
6842: get_first_item_date(adj_term_rec.payment_term_id));
6843:
6844: pnp_debug_pkg.log('adj_term_rec loop : l_norm_str_dt : '||l_norm_str_dt);
6845: pnp_debug_pkg.log('adj_term_rec loop : g_lease_status : '||g_lease_status);
6846:
6847: IF g_lease_status = 'ACT' THEN
6848: l_lease_trmn_date := g_new_lea_term_dt;
6849: ELSE
6849: ELSE
6850: l_lease_trmn_date := get_norm_end_date(p_lease_id);
6851: END IF;
6852:
6853: pnp_debug_pkg.log('adj_term_rec loop : l_lease_trmn_date : '||l_lease_trmn_date);
6854: pnp_debug_pkg.log('adj_term_rec loop : vendor_id : '||adj_term_rec.vendor_id);
6855: pnp_debug_pkg.log('adj_term_rec loop : vendor_site_id : '||adj_term_rec.vendor_site_id);
6856: pnp_debug_pkg.log('adj_term_rec loop : customer_id : '||adj_term_rec.customer_id);
6857: pnp_debug_pkg.log('adj_term_rec loop : cust_ship_site_id : '||adj_term_rec.cust_ship_site_id);
6850: l_lease_trmn_date := get_norm_end_date(p_lease_id);
6851: END IF;
6852:
6853: pnp_debug_pkg.log('adj_term_rec loop : l_lease_trmn_date : '||l_lease_trmn_date);
6854: pnp_debug_pkg.log('adj_term_rec loop : vendor_id : '||adj_term_rec.vendor_id);
6855: pnp_debug_pkg.log('adj_term_rec loop : vendor_site_id : '||adj_term_rec.vendor_site_id);
6856: pnp_debug_pkg.log('adj_term_rec loop : customer_id : '||adj_term_rec.customer_id);
6857: pnp_debug_pkg.log('adj_term_rec loop : cust_ship_site_id : '||adj_term_rec.cust_ship_site_id);
6858: pnp_debug_pkg.log('adj_term_rec loop : customer_site_use_id : '||adj_term_rec.customer_site_use_id);
6851: END IF;
6852:
6853: pnp_debug_pkg.log('adj_term_rec loop : l_lease_trmn_date : '||l_lease_trmn_date);
6854: pnp_debug_pkg.log('adj_term_rec loop : vendor_id : '||adj_term_rec.vendor_id);
6855: pnp_debug_pkg.log('adj_term_rec loop : vendor_site_id : '||adj_term_rec.vendor_site_id);
6856: pnp_debug_pkg.log('adj_term_rec loop : customer_id : '||adj_term_rec.customer_id);
6857: pnp_debug_pkg.log('adj_term_rec loop : cust_ship_site_id : '||adj_term_rec.cust_ship_site_id);
6858: pnp_debug_pkg.log('adj_term_rec loop : customer_site_use_id : '||adj_term_rec.customer_site_use_id);
6859: pnp_debug_pkg.log('adj_term_rec loop : set_of_books_id : '||adj_term_rec.set_of_books_id);
6852:
6853: pnp_debug_pkg.log('adj_term_rec loop : l_lease_trmn_date : '||l_lease_trmn_date);
6854: pnp_debug_pkg.log('adj_term_rec loop : vendor_id : '||adj_term_rec.vendor_id);
6855: pnp_debug_pkg.log('adj_term_rec loop : vendor_site_id : '||adj_term_rec.vendor_site_id);
6856: pnp_debug_pkg.log('adj_term_rec loop : customer_id : '||adj_term_rec.customer_id);
6857: pnp_debug_pkg.log('adj_term_rec loop : cust_ship_site_id : '||adj_term_rec.cust_ship_site_id);
6858: pnp_debug_pkg.log('adj_term_rec loop : customer_site_use_id : '||adj_term_rec.customer_site_use_id);
6859: pnp_debug_pkg.log('adj_term_rec loop : set_of_books_id : '||adj_term_rec.set_of_books_id);
6860: pnp_debug_pkg.log('adj_term_rec loop : currency_code : '||adj_term_rec.currency_code);
6853: pnp_debug_pkg.log('adj_term_rec loop : l_lease_trmn_date : '||l_lease_trmn_date);
6854: pnp_debug_pkg.log('adj_term_rec loop : vendor_id : '||adj_term_rec.vendor_id);
6855: pnp_debug_pkg.log('adj_term_rec loop : vendor_site_id : '||adj_term_rec.vendor_site_id);
6856: pnp_debug_pkg.log('adj_term_rec loop : customer_id : '||adj_term_rec.customer_id);
6857: pnp_debug_pkg.log('adj_term_rec loop : cust_ship_site_id : '||adj_term_rec.cust_ship_site_id);
6858: pnp_debug_pkg.log('adj_term_rec loop : customer_site_use_id : '||adj_term_rec.customer_site_use_id);
6859: pnp_debug_pkg.log('adj_term_rec loop : set_of_books_id : '||adj_term_rec.set_of_books_id);
6860: pnp_debug_pkg.log('adj_term_rec loop : currency_code : '||adj_term_rec.currency_code);
6861: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6854: pnp_debug_pkg.log('adj_term_rec loop : vendor_id : '||adj_term_rec.vendor_id);
6855: pnp_debug_pkg.log('adj_term_rec loop : vendor_site_id : '||adj_term_rec.vendor_site_id);
6856: pnp_debug_pkg.log('adj_term_rec loop : customer_id : '||adj_term_rec.customer_id);
6857: pnp_debug_pkg.log('adj_term_rec loop : cust_ship_site_id : '||adj_term_rec.cust_ship_site_id);
6858: pnp_debug_pkg.log('adj_term_rec loop : customer_site_use_id : '||adj_term_rec.customer_site_use_id);
6859: pnp_debug_pkg.log('adj_term_rec loop : set_of_books_id : '||adj_term_rec.set_of_books_id);
6860: pnp_debug_pkg.log('adj_term_rec loop : currency_code : '||adj_term_rec.currency_code);
6861: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6862: pnp_debug_pkg.log('adj_term_rec loop : norm_start_date : '||adj_term_rec.norm_start_date);
6855: pnp_debug_pkg.log('adj_term_rec loop : vendor_site_id : '||adj_term_rec.vendor_site_id);
6856: pnp_debug_pkg.log('adj_term_rec loop : customer_id : '||adj_term_rec.customer_id);
6857: pnp_debug_pkg.log('adj_term_rec loop : cust_ship_site_id : '||adj_term_rec.cust_ship_site_id);
6858: pnp_debug_pkg.log('adj_term_rec loop : customer_site_use_id : '||adj_term_rec.customer_site_use_id);
6859: pnp_debug_pkg.log('adj_term_rec loop : set_of_books_id : '||adj_term_rec.set_of_books_id);
6860: pnp_debug_pkg.log('adj_term_rec loop : currency_code : '||adj_term_rec.currency_code);
6861: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6862: pnp_debug_pkg.log('adj_term_rec loop : norm_start_date : '||adj_term_rec.norm_start_date);
6863: pnp_debug_pkg.log('adj_term_rec loop : norm_end_date : '||adj_term_rec.norm_end_date);
6856: pnp_debug_pkg.log('adj_term_rec loop : customer_id : '||adj_term_rec.customer_id);
6857: pnp_debug_pkg.log('adj_term_rec loop : cust_ship_site_id : '||adj_term_rec.cust_ship_site_id);
6858: pnp_debug_pkg.log('adj_term_rec loop : customer_site_use_id : '||adj_term_rec.customer_site_use_id);
6859: pnp_debug_pkg.log('adj_term_rec loop : set_of_books_id : '||adj_term_rec.set_of_books_id);
6860: pnp_debug_pkg.log('adj_term_rec loop : currency_code : '||adj_term_rec.currency_code);
6861: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6862: pnp_debug_pkg.log('adj_term_rec loop : norm_start_date : '||adj_term_rec.norm_start_date);
6863: pnp_debug_pkg.log('adj_term_rec loop : norm_end_date : '||adj_term_rec.norm_end_date);
6864: pnp_debug_pkg.log('adj_term_rec loop : rate : '||adj_term_rec.rate);
6857: pnp_debug_pkg.log('adj_term_rec loop : cust_ship_site_id : '||adj_term_rec.cust_ship_site_id);
6858: pnp_debug_pkg.log('adj_term_rec loop : customer_site_use_id : '||adj_term_rec.customer_site_use_id);
6859: pnp_debug_pkg.log('adj_term_rec loop : set_of_books_id : '||adj_term_rec.set_of_books_id);
6860: pnp_debug_pkg.log('adj_term_rec loop : currency_code : '||adj_term_rec.currency_code);
6861: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6862: pnp_debug_pkg.log('adj_term_rec loop : norm_start_date : '||adj_term_rec.norm_start_date);
6863: pnp_debug_pkg.log('adj_term_rec loop : norm_end_date : '||adj_term_rec.norm_end_date);
6864: pnp_debug_pkg.log('adj_term_rec loop : rate : '||adj_term_rec.rate);
6865: pnp_debug_pkg.log('Calling pn_norm_renorm_pkg.normalize_renormalize ...');
6858: pnp_debug_pkg.log('adj_term_rec loop : customer_site_use_id : '||adj_term_rec.customer_site_use_id);
6859: pnp_debug_pkg.log('adj_term_rec loop : set_of_books_id : '||adj_term_rec.set_of_books_id);
6860: pnp_debug_pkg.log('adj_term_rec loop : currency_code : '||adj_term_rec.currency_code);
6861: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6862: pnp_debug_pkg.log('adj_term_rec loop : norm_start_date : '||adj_term_rec.norm_start_date);
6863: pnp_debug_pkg.log('adj_term_rec loop : norm_end_date : '||adj_term_rec.norm_end_date);
6864: pnp_debug_pkg.log('adj_term_rec loop : rate : '||adj_term_rec.rate);
6865: pnp_debug_pkg.log('Calling pn_norm_renorm_pkg.normalize_renormalize ...');
6866:
6859: pnp_debug_pkg.log('adj_term_rec loop : set_of_books_id : '||adj_term_rec.set_of_books_id);
6860: pnp_debug_pkg.log('adj_term_rec loop : currency_code : '||adj_term_rec.currency_code);
6861: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6862: pnp_debug_pkg.log('adj_term_rec loop : norm_start_date : '||adj_term_rec.norm_start_date);
6863: pnp_debug_pkg.log('adj_term_rec loop : norm_end_date : '||adj_term_rec.norm_end_date);
6864: pnp_debug_pkg.log('adj_term_rec loop : rate : '||adj_term_rec.rate);
6865: pnp_debug_pkg.log('Calling pn_norm_renorm_pkg.normalize_renormalize ...');
6866:
6867: pn_norm_renorm_pkg.normalize_renormalize
6860: pnp_debug_pkg.log('adj_term_rec loop : currency_code : '||adj_term_rec.currency_code);
6861: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6862: pnp_debug_pkg.log('adj_term_rec loop : norm_start_date : '||adj_term_rec.norm_start_date);
6863: pnp_debug_pkg.log('adj_term_rec loop : norm_end_date : '||adj_term_rec.norm_end_date);
6864: pnp_debug_pkg.log('adj_term_rec loop : rate : '||adj_term_rec.rate);
6865: pnp_debug_pkg.log('Calling pn_norm_renorm_pkg.normalize_renormalize ...');
6866:
6867: pn_norm_renorm_pkg.normalize_renormalize
6868: (p_lease_context => p_lease_context,
6861: pnp_debug_pkg.log('adj_term_rec loop : schedule_day : '||adj_term_rec.schedule_day);
6862: pnp_debug_pkg.log('adj_term_rec loop : norm_start_date : '||adj_term_rec.norm_start_date);
6863: pnp_debug_pkg.log('adj_term_rec loop : norm_end_date : '||adj_term_rec.norm_end_date);
6864: pnp_debug_pkg.log('adj_term_rec loop : rate : '||adj_term_rec.rate);
6865: pnp_debug_pkg.log('Calling pn_norm_renorm_pkg.normalize_renormalize ...');
6866:
6867: pn_norm_renorm_pkg.normalize_renormalize
6868: (p_lease_context => p_lease_context,
6869: p_lease_id => p_lease_id,
6886: l_index := NVL(l_index,0) + 1;
6887: term_id_tab(l_index) := adj_term_rec.payment_term_id;
6888: END LOOP;
6889:
6890: pnp_debug_pkg.log('Calling add_main ...');
6891:
6892: add_main(p_lease_id => p_lease_id,
6893: p_lease_context => p_lease_context,
6894: p_new_lea_term_dt => g_new_lea_term_dt,
6894: p_new_lea_term_dt => g_new_lea_term_dt,
6895: p_new_lea_comm_dt => g_new_lea_comm_dt,
6896: p_mths => p_mths);
6897:
6898: pnp_debug_pkg.log('ADJUSTMENT - Adjustment of Term - ADJ - Start (-)');
6899:
6900: END adjustment;
6901:
6902: -- Retro End
6976: fnd_message.set_token ('ID', g_Lease_Id);
6977: fnd_message.set_token ('NUM', g_lease_num);
6978: fnd_message.set_token ('NAME', g_lease_name);
6979: fnd_message.set_token ('CONTXT', p_lease_context);
6980: pnp_debug_pkg.put_log_msg(fnd_message.get);
6981: pnp_debug_pkg.put_log_msg('');
6982:
6983: --Bug 13641575 Formatting changes
6984:
6977: fnd_message.set_token ('NUM', g_lease_num);
6978: fnd_message.set_token ('NAME', g_lease_name);
6979: fnd_message.set_token ('CONTXT', p_lease_context);
6980: pnp_debug_pkg.put_log_msg(fnd_message.get);
6981: pnp_debug_pkg.put_log_msg('');
6982:
6983: --Bug 13641575 Formatting changes
6984:
6985: fnd_message.set_name ('PN','PN_SCHIT_CUR');
6991: fnd_message.set_name ('PN','PN_SCHIT_ACC');
6992: l_message := l_message||fnd_message.get||' ';
6993: fnd_message.set_name ('PN','PN_SCHIT_ACR');
6994: l_message := l_message||fnd_message.get;
6995: pnp_debug_pkg.put_log_msg(l_message);
6996:
6997: --Bug 13641575 Formatting changes
6998:
6999: IF g_lease_class_code = 'DIRECT' THEN
7010: fnd_message.set_name ('PN','PN_SCHIT_ADJ');
7011: l_message := l_message||fnd_message.get||' ';
7012: fnd_message.set_name ('PN','PN_SCHIT_LIA');
7013: l_message := l_message||fnd_message.get;
7014: pnp_debug_pkg.put_log_msg(l_message);
7015: ELSE
7016: fnd_message.set_name ('PN','PN_RICAL_DATE');
7017: l_message := fnd_message.get||' ';
7018: fnd_message.set_name ('PN','PN_SCHIT_CODE');
7026: fnd_message.set_name ('PN','PN_SCHIT_ADJ');
7027: l_message := l_message||fnd_message.get||' ';
7028: fnd_message.set_name ('PN','PN_SCHIT_AST');
7029: l_message := l_message||fnd_message.get;
7030: pnp_debug_pkg.put_log_msg(l_message);
7031: END IF;
7032:
7033: --Bug 13641575 Formatting changes
7034:
7031: END IF;
7032:
7033: --Bug 13641575 Formatting changes
7034:
7035: pnp_debug_pkg.put_log_msg
7036: ('=========== '
7037: ||' ========= '
7038: ||' ============ '
7039: ||' ============ '
7045: FOR sch IN csr_get_schedules LOOP
7046:
7047: IF l_currency_code <> sch.currency_code THEN
7048: IF l_currency_code <> 'qwerty' THEN
7049: pnp_debug_pkg.put_log_msg('');
7050: END IF;
7051: l_currency_code := sch.currency_code;
7052: l_def_amt := 0;
7053: END IF;
7053: END IF;
7054:
7055: l_def_amt := l_def_amt + sch.norm_amt - sch.cash_norm_amt;
7056:
7057: pnp_debug_pkg.put_log_msg(TO_CHAR(sch.schedule_date)
7058: ||lpad(sch.currency_code,13)--Bug 13641575Formatting changes
7059: ||Format_Amount(sch.cash_amt, sch.currency_code)
7060: ||Format_Amount(sch.cash_norm_amt, sch.currency_code)
7061: ||Format_Amount(sch.norm_amt, sch.currency_code)
7100: AND line.start_date <= term.end_date
7101: AND line.end_date >= term.start_date;
7102:
7103: BEGIN
7104: pnp_debug_pkg.log('retro_rec_impact_report - (+)');
7105:
7106: IF term_id_tab.count > 0 THEN
7107: pnp_debug_pkg.put_log_msg
7108: ('===========================================================================');
7103: BEGIN
7104: pnp_debug_pkg.log('retro_rec_impact_report - (+)');
7105:
7106: IF term_id_tab.count > 0 THEN
7107: pnp_debug_pkg.put_log_msg
7108: ('===========================================================================');
7109: fnd_message.set_name('PN', 'PN_RETRO_RECAGR_REPORT');
7110: pnp_debug_pkg.put_log_msg(fnd_message.get);
7111: pnp_debug_pkg.put_log_msg('');
7106: IF term_id_tab.count > 0 THEN
7107: pnp_debug_pkg.put_log_msg
7108: ('===========================================================================');
7109: fnd_message.set_name('PN', 'PN_RETRO_RECAGR_REPORT');
7110: pnp_debug_pkg.put_log_msg(fnd_message.get);
7111: pnp_debug_pkg.put_log_msg('');
7112:
7113: FOR i in 1..term_id_tab.count LOOP
7114: FOR rec IN get_agreements_cur(term_id_tab(i)) LOOP
7107: pnp_debug_pkg.put_log_msg
7108: ('===========================================================================');
7109: fnd_message.set_name('PN', 'PN_RETRO_RECAGR_REPORT');
7110: pnp_debug_pkg.put_log_msg(fnd_message.get);
7111: pnp_debug_pkg.put_log_msg('');
7112:
7113: FOR i in 1..term_id_tab.count LOOP
7114: FOR rec IN get_agreements_cur(term_id_tab(i)) LOOP
7115:
7116: fnd_message.set_name('PN', 'PN_RECAGR_NAME_NUM');
7117: fnd_message.set_token('REC_AGR_NAME', rec.rec_agreement_name);
7118: fnd_message.set_token('REC_AGR_NUM', rec.rec_agreement_num);
7119:
7120: pnp_debug_pkg.put_log_msg(fnd_message.get);
7121: pnp_debug_pkg.put_log_msg('');
7122:
7123: END LOOP;
7124: END LOOP;
7117: fnd_message.set_token('REC_AGR_NAME', rec.rec_agreement_name);
7118: fnd_message.set_token('REC_AGR_NUM', rec.rec_agreement_num);
7119:
7120: pnp_debug_pkg.put_log_msg(fnd_message.get);
7121: pnp_debug_pkg.put_log_msg('');
7122:
7123: END LOOP;
7124: END LOOP;
7125:
7122:
7123: END LOOP;
7124: END LOOP;
7125:
7126: pnp_debug_pkg.put_log_msg
7127: ('===========================================================================');
7128: END IF;
7129:
7130: pnp_debug_pkg.log('retro_rec_impact_report - (-)');
7126: pnp_debug_pkg.put_log_msg
7127: ('===========================================================================');
7128: END IF;
7129:
7130: pnp_debug_pkg.log('retro_rec_impact_report - (-)');
7131: EXCEPTION
7132:
7133: WHEN others THEN
7134: RAISE;
7165: AND ppt.end_date
7166: AND pvr.var_rent_id = pvri.var_rent_id;
7167:
7168: BEGIN
7169: pnp_debug_pkg.log('retro_vr_impact_report - (+)');
7170:
7171: IF term_id_tab.count > 0 THEN
7172: pnp_debug_pkg.put_log_msg
7173: ('===========================================================================');
7168: BEGIN
7169: pnp_debug_pkg.log('retro_vr_impact_report - (+)');
7170:
7171: IF term_id_tab.count > 0 THEN
7172: pnp_debug_pkg.put_log_msg
7173: ('===========================================================================');
7174: fnd_message.set_name('PN', 'PN_RETRO_VARENT_REPORT');
7175: pnp_debug_pkg.put_log_msg(fnd_message.get);
7176: pnp_debug_pkg.put_log_msg('');
7171: IF term_id_tab.count > 0 THEN
7172: pnp_debug_pkg.put_log_msg
7173: ('===========================================================================');
7174: fnd_message.set_name('PN', 'PN_RETRO_VARENT_REPORT');
7175: pnp_debug_pkg.put_log_msg(fnd_message.get);
7176: pnp_debug_pkg.put_log_msg('');
7177:
7178: FOR i in 1..term_id_tab.count LOOP
7179: FOR vr IN get_vr_cur(term_id_tab(i)) LOOP
7172: pnp_debug_pkg.put_log_msg
7173: ('===========================================================================');
7174: fnd_message.set_name('PN', 'PN_RETRO_VARENT_REPORT');
7175: pnp_debug_pkg.put_log_msg(fnd_message.get);
7176: pnp_debug_pkg.put_log_msg('');
7177:
7178: FOR i in 1..term_id_tab.count LOOP
7179: FOR vr IN get_vr_cur(term_id_tab(i)) LOOP
7180:
7180:
7181: fnd_message.set_name('PN', 'PN_VARENT_NUM');
7182: fnd_message.set_token('VAR_RENT_NUM', vr.rent_num);
7183:
7184: pnp_debug_pkg.put_log_msg(fnd_message.get);
7185: pnp_debug_pkg.put_log_msg('');
7186:
7187: END LOOP;
7188: END LOOP;
7181: fnd_message.set_name('PN', 'PN_VARENT_NUM');
7182: fnd_message.set_token('VAR_RENT_NUM', vr.rent_num);
7183:
7184: pnp_debug_pkg.put_log_msg(fnd_message.get);
7185: pnp_debug_pkg.put_log_msg('');
7186:
7187: END LOOP;
7188: END LOOP;
7189:
7186:
7187: END LOOP;
7188: END LOOP;
7189:
7190: pnp_debug_pkg.put_log_msg
7191: ('===========================================================================');
7192: END IF;
7193:
7194: pnp_debug_pkg.log('retro_vr_impact_report - (-)');
7190: pnp_debug_pkg.put_log_msg
7191: ('===========================================================================');
7192: END IF;
7193:
7194: pnp_debug_pkg.log('retro_vr_impact_report - (-)');
7195: EXCEPTION
7196:
7197: WHEN others THEN
7198: RAISE;
7229: FROM pn_payment_terms_all
7230: WHERE payment_term_id = p_payment_term_id;
7231:
7232: BEGIN
7233: pnp_debug_pkg.log('UPDATE TERMS +Start+ (+)');
7234:
7235: pnp_debug_pkg.log('MINI-RETRO - CON - MAIN - Updating start/end date of Payment Terms');
7236:
7237: FOR rec IN currency_cur LOOP
7231:
7232: BEGIN
7233: pnp_debug_pkg.log('UPDATE TERMS +Start+ (+)');
7234:
7235: pnp_debug_pkg.log('MINI-RETRO - CON - MAIN - Updating start/end date of Payment Terms');
7236:
7237: FOR rec IN currency_cur LOOP
7238: fnd_currency.get_info ( currency_code => rec.currency_code
7239: ,precision => l_precision
7256: last_updated_by = NVL(fnd_profile.value('USER_ID'),0),
7257: last_update_login= NVL(fnd_profile.value('LOGIN_ID'),0)
7258: WHERE payment_term_id = p_payment_term_id;
7259:
7260: pnp_debug_pkg.log('UPDATE TERMS +Start+ (-)');
7261: END update_term_dates;
7262:
7263:
7264: -------------------------------------------------------------------------------
7293: FROM pn_payment_terms_all
7294: WHERE payment_term_id = p_term_id;
7295:
7296: BEGIN
7297: pnp_debug_pkg.log('update_cash_item +Start+ (-)');
7298:
7299: FOR rec IN currency_cur LOOP
7300: fnd_currency.get_info( currency_code => rec.currency_code
7301: ,precision => l_precision
7331: AND pps.payment_schedule_id = p_sched_id);
7332:
7333: END IF;
7334:
7335: pnp_debug_pkg.log('update_cash_item +End+ (-)');
7336:
7337: EXCEPTION
7338: WHEN OTHERS THEN RAISE;
7339:
7370: AND ppi.payment_item_type_lookup_code = 'CASH';
7371:
7372: BEGIN
7373:
7374: pnp_debug_pkg.log('calculate_cash_item +Start+ (+)');
7375:
7376: /* update the cash amount for the schedule */
7377: l_amt_due_to_term := 0;
7378:
7391: FOR rec IN total_amt_old_term_cur LOOP
7392: l_amt_due_to_old_term := rec.total_amount;
7393: END LOOP;
7394:
7395: pnp_debug_pkg.log('amount due to new term .........' || l_amt_due_to_term);
7396: pnp_debug_pkg.log('amount due to old term .........' || l_amt_due_to_old_term);
7397:
7398: l_cash_act_amt := l_amt_due_to_term - NVL(l_amt_due_to_old_term, 0);
7399:
7392: l_amt_due_to_old_term := rec.total_amount;
7393: END LOOP;
7394:
7395: pnp_debug_pkg.log('amount due to new term .........' || l_amt_due_to_term);
7396: pnp_debug_pkg.log('amount due to old term .........' || l_amt_due_to_old_term);
7397:
7398: l_cash_act_amt := l_amt_due_to_term - NVL(l_amt_due_to_old_term, 0);
7399:
7400: pnp_debug_pkg.log('Returning amount .........' || l_cash_act_amt);
7396: pnp_debug_pkg.log('amount due to old term .........' || l_amt_due_to_old_term);
7397:
7398: l_cash_act_amt := l_amt_due_to_term - NVL(l_amt_due_to_old_term, 0);
7399:
7400: pnp_debug_pkg.log('Returning amount .........' || l_cash_act_amt);
7401:
7402: pnp_debug_pkg.log('calculate_cash_item -End- (-)');
7403:
7404: RETURN l_cash_act_amt;
7398: l_cash_act_amt := l_amt_due_to_term - NVL(l_amt_due_to_old_term, 0);
7399:
7400: pnp_debug_pkg.log('Returning amount .........' || l_cash_act_amt);
7401:
7402: pnp_debug_pkg.log('calculate_cash_item -End- (-)');
7403:
7404: RETURN l_cash_act_amt;
7405:
7406: EXCEPTION
7420: -------------------------------------------------------------------------------
7421: PROCEDURE delete_term(p_payment_term_id NUMBER)
7422: AS
7423: BEGIN
7424: pnp_debug_pkg.log('Delete term start (+)');
7425:
7426: pnp_debug_pkg.log('Deleting all items for term ....'||p_payment_term_id);
7427: DELETE pn_payment_items_all
7428: WHERE payment_term_id = p_payment_term_id;
7422: AS
7423: BEGIN
7424: pnp_debug_pkg.log('Delete term start (+)');
7425:
7426: pnp_debug_pkg.log('Deleting all items for term ....'||p_payment_term_id);
7427: DELETE pn_payment_items_all
7428: WHERE payment_term_id = p_payment_term_id;
7429:
7430: pnp_debug_pkg.log('Deleting term ....'||p_payment_term_id);
7426: pnp_debug_pkg.log('Deleting all items for term ....'||p_payment_term_id);
7427: DELETE pn_payment_items_all
7428: WHERE payment_term_id = p_payment_term_id;
7429:
7430: pnp_debug_pkg.log('Deleting term ....'||p_payment_term_id);
7431: DELETE pn_payment_terms_all
7432: WHERE payment_term_id = p_payment_term_id;
7433:
7434:
7431: DELETE pn_payment_terms_all
7432: WHERE payment_term_id = p_payment_term_id;
7433:
7434:
7435: pnp_debug_pkg.log('Delete term End (-)');
7436:
7437: EXCEPTION
7438: WHEN OTHERS THEN
7439: RAISE ;
7578:
7579:
7580: IF norm_st_dt_rec_tbl(l_sch_dy) is not null
7581: THEN
7582: pnp_debug_pkg.log('pn_schedules_items.g_norm_dt_avl : '||pn_schedules_items.g_norm_dt_avl);
7583: pn_schedules_items.g_norm_dt_avl := 'Y';
7584: ELSE
7585: pn_schedules_items.g_norm_dt_avl := NULL;
7586:
7601:
7602: norm_st_dt_rec_tbl(l_sch_dy) := l_nrm_st_dt;
7603: ELSE
7604: l_nrm_st_dt := norm_st_dt_rec_tbl(l_sch_dy);
7605: pnp_debug_pkg.log('l_first_draft_sch: '||l_nrm_st_dt); /* 9231686 */
7606: END IF;
7607:
7608:
7609:
7606: END IF;
7607:
7608:
7609:
7610: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: l_nrm_st_dt : '||l_nrm_st_dt);
7611: IF l_amd_comn_date > l_nrm_st_dt THEN
7612: l_amd_comn_date := l_nrm_st_dt;
7613: END IF;
7614:
7612: l_amd_comn_date := l_nrm_st_dt;
7613: END IF;
7614:
7615:
7616: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO - Contraction of Payment Term - CONTERM +Start+ (+)');
7617: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_lease_id : '||p_lease_id);
7618: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_lease_context : '||p_lease_context);
7619: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7620: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
7613: END IF;
7614:
7615:
7616: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO - Contraction of Payment Term - CONTERM +Start+ (+)');
7617: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_lease_id : '||p_lease_id);
7618: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_lease_context : '||p_lease_context);
7619: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7620: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
7621: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_mths : '||p_mths);
7614:
7615:
7616: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO - Contraction of Payment Term - CONTERM +Start+ (+)');
7617: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_lease_id : '||p_lease_id);
7618: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_lease_context : '||p_lease_context);
7619: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7620: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
7621: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_mths : '||p_mths);
7622:
7615:
7616: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO - Contraction of Payment Term - CONTERM +Start+ (+)');
7617: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_lease_id : '||p_lease_id);
7618: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_lease_context : '||p_lease_context);
7619: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7620: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
7621: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_mths : '||p_mths);
7622:
7623: IF g_lease_status = 'ACT' THEN
7616: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO - Contraction of Payment Term - CONTERM +Start+ (+)');
7617: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_lease_id : '||p_lease_id);
7618: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_lease_context : '||p_lease_context);
7619: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7620: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
7621: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_mths : '||p_mths);
7622:
7623: IF g_lease_status = 'ACT' THEN
7624: l_lease_termination_date := g_new_lea_term_dt;
7617: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_lease_id : '||p_lease_id);
7618: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_lease_context : '||p_lease_context);
7619: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7620: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
7621: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO IN: p_mths : '||p_mths);
7622:
7623: IF g_lease_status = 'ACT' THEN
7624: l_lease_termination_date := g_new_lea_term_dt;
7625: ELSE
7630:
7631: FOR pay_term_con_cur IN payment_term_con_cur_retro(p_lease_id, p_payment_term_id )
7632: LOOP
7633:
7634: pnp_debug_pkg.log('CONTRACT_PAY_TERM_MINI_RETRO - Term ID : '
7635: ||TO_CHAR(pay_term_con_cur.payment_term_id)
7636: ||' , Term End Date: '||pay_term_con_cur.end_date);
7637:
7638: IF p_adjustment = 'Y' THEN
7753: IF nvl (pay_term_con_cur.norm_end_Date, g_new_lea_term_dt) > p_cutoff_date THEN
7754:
7755: IF NVL(FIRST_DAY(pay_term_con_cur.norm_start_date), FIRST_DAY(p_new_lea_comm_dt)) = FIRST_DAY(p_new_lea_comm_dt) /* 9231686 */
7756: THEN
7757: pnp_debug_pkg.log('NORMALIZE_RENORMALIZE - j2');
7758: l_norm_str_dt := l_amd_comn_date; /* 7561833 */
7759: --Fix for bug#14589191
7760: ELSIF (p_lease_context in ('CON','EXP','CONTERM')) THEN
7761: l_nrm_st_dt := l_amd_comn_date;
7759: --Fix for bug#14589191
7760: ELSIF (p_lease_context in ('CON','EXP','CONTERM')) THEN
7761: l_nrm_st_dt := l_amd_comn_date;
7762: ELSE
7763: pnp_debug_pkg.log('NORMALIZE_RENORMALIZE - j1');
7764: l_norm_str_dt := norm_st_dt_rec_tbl(l_sch_dy); /* Bug 9019575 */
7765: --l_norm_str_dt := NVL(FIRST_DAY(pay_term_con_cur.norm_start_date),l_amd_comn_date); /* 9231686 */
7766: END iF;
7767: pnp_debug_pkg.log('NORMALIZE_RENORMALIZE - l_amd_comn_dt-1 :=: '||TO_CHAR(l_amd_comn_date));
7763: pnp_debug_pkg.log('NORMALIZE_RENORMALIZE - j1');
7764: l_norm_str_dt := norm_st_dt_rec_tbl(l_sch_dy); /* Bug 9019575 */
7765: --l_norm_str_dt := NVL(FIRST_DAY(pay_term_con_cur.norm_start_date),l_amd_comn_date); /* 9231686 */
7766: END iF;
7767: pnp_debug_pkg.log('NORMALIZE_RENORMALIZE - l_amd_comn_dt-1 :=: '||TO_CHAR(l_amd_comn_date));
7768: pnp_debug_pkg.log('NORMALIZE_RENORMALIZE - l_norm_str_dt-1 :=: '||TO_CHAR(l_norm_str_dt));
7769:
7770: IF l_amd_comn_date > l_norm_str_dt THEN /* 9457938 */
7771: l_amd_comn_date := l_norm_str_dt;
7764: l_norm_str_dt := norm_st_dt_rec_tbl(l_sch_dy); /* Bug 9019575 */
7765: --l_norm_str_dt := NVL(FIRST_DAY(pay_term_con_cur.norm_start_date),l_amd_comn_date); /* 9231686 */
7766: END iF;
7767: pnp_debug_pkg.log('NORMALIZE_RENORMALIZE - l_amd_comn_dt-1 :=: '||TO_CHAR(l_amd_comn_date));
7768: pnp_debug_pkg.log('NORMALIZE_RENORMALIZE - l_norm_str_dt-1 :=: '||TO_CHAR(l_norm_str_dt));
7769:
7770: IF l_amd_comn_date > l_norm_str_dt THEN /* 9457938 */
7771: l_amd_comn_date := l_norm_str_dt;
7772: END IF;
7814: ,l_payment_schedule_id);
7815: END IF;
7816: /* End Bug 6154106 */
7817:
7818: pnp_debug_pkg.log('NORMALIZE_RENORMALIZE - find draft schedule for '||p_payment_term_id||' with ACD '||l_amd_comn_date);
7819:
7820: FOR rec in get_drf_sch_date(p_payment_term_id) LOOP
7821: l_sch_dt_1 := rec.schedule_date;
7822: pn_retro_adjustment_pkg.find_schedule( p_lease_id
7894: p_mths => p_mths);
7895:
7896: END IF;
7897:
7898: pnp_debug_pkg.log('CONTRACT_PAY_TERM - Contraction of Payment Term - CONTERM -End- (+)');
7899:
7900: EXCEPTION
7901: WHEN OTHERS THEN RAISE ;
7902:
7958: WHERE payment_term_id = p_payment_term_id);
7959:
7960:
7961: BEGIN
7962: pnp_debug_pkg.log('MINI RETRO CONTRACTION +Start+ (+)');
7963: pnp_debug_pkg.log('MINI RETRO CONTRACTION of MAIN Lease +Start+ (+)');
7964: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_id : '||p_lease_id);
7965: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_context : '||p_lease_context);
7966: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7959:
7960:
7961: BEGIN
7962: pnp_debug_pkg.log('MINI RETRO CONTRACTION +Start+ (+)');
7963: pnp_debug_pkg.log('MINI RETRO CONTRACTION of MAIN Lease +Start+ (+)');
7964: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_id : '||p_lease_id);
7965: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_context : '||p_lease_context);
7966: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7967: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
7960:
7961: BEGIN
7962: pnp_debug_pkg.log('MINI RETRO CONTRACTION +Start+ (+)');
7963: pnp_debug_pkg.log('MINI RETRO CONTRACTION of MAIN Lease +Start+ (+)');
7964: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_id : '||p_lease_id);
7965: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_context : '||p_lease_context);
7966: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7967: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
7968: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_mths : '||p_mths);
7961: BEGIN
7962: pnp_debug_pkg.log('MINI RETRO CONTRACTION +Start+ (+)');
7963: pnp_debug_pkg.log('MINI RETRO CONTRACTION of MAIN Lease +Start+ (+)');
7964: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_id : '||p_lease_id);
7965: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_context : '||p_lease_context);
7966: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7967: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
7968: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_mths : '||p_mths);
7969:
7962: pnp_debug_pkg.log('MINI RETRO CONTRACTION +Start+ (+)');
7963: pnp_debug_pkg.log('MINI RETRO CONTRACTION of MAIN Lease +Start+ (+)');
7964: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_id : '||p_lease_id);
7965: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_context : '||p_lease_context);
7966: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7967: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
7968: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_mths : '||p_mths);
7969:
7970: FOR rec IN get_old_lea_term_dt LOOP
7963: pnp_debug_pkg.log('MINI RETRO CONTRACTION of MAIN Lease +Start+ (+)');
7964: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_id : '||p_lease_id);
7965: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_context : '||p_lease_context);
7966: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7967: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
7968: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_mths : '||p_mths);
7969:
7970: FOR rec IN get_old_lea_term_dt LOOP
7971: l_old_lea_term_dt := rec.lease_termination_date;
7964: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_id : '||p_lease_id);
7965: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_lease_context : '||p_lease_context);
7966: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_term_dt : '||p_new_lea_term_dt);
7967: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_new_lea_comm_dt : '||p_new_lea_comm_dt);
7968: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: p_mths : '||p_mths);
7969:
7970: FOR rec IN get_old_lea_term_dt LOOP
7971: l_old_lea_term_dt := rec.lease_termination_date;
7972: END LOOP;
7970: FOR rec IN get_old_lea_term_dt LOOP
7971: l_old_lea_term_dt := rec.lease_termination_date;
7972: END LOOP;
7973:
7974: pnp_debug_pkg.log('MINI RETRO CONTRACTION - MAIN - Contracting Index rent ');
7975:
7976: select lease_status into l_str from pn_leases_all where lease_id = p_lease_id;
7977:
7978: if l_str in ('ACT','TER') then
8011: p_lease_context,
8012: l_msg,
8013: p_cutoff_date);
8014:
8015: pnp_debug_pkg.log('MINI RETRO CONTRACTION - MAIN - Deleting Payment Items');
8016:
8017: /* Retrieve the active lease change id */
8018: l_active_lease_change_id := Get_Lease_Change_Id(p_lease_id);
8019:
8016:
8017: /* Retrieve the active lease change id */
8018: l_active_lease_change_id := Get_Lease_Change_Id(p_lease_id);
8019:
8020: pnp_debug_pkg.log('MINI RETRO CONTRACTION IN: active lease change id : '||l_active_lease_change_id);
8021:
8022: /* Looping through all the terms associated with the lease. */
8023: FOR rec IN lease_con_cur_mini_retro(p_lease_id,l_active_lease_change_id)
8024: LOOP
8022: /* Looping through all the terms associated with the lease. */
8023: FOR rec IN lease_con_cur_mini_retro(p_lease_id,l_active_lease_change_id)
8024: LOOP
8025:
8026: pnp_debug_pkg.log('TERM ID : term id : '||rec.payment_term_id);
8027:
8028: l_is_norm := NVL(rec.normalize, 'N');
8029: l_schedule_exists := 'N';
8030:
8142: );
8143: END IF;
8144:
8145: pn_schedules_items.g_norm_dt_avl := NULL; /* 9231686 */
8146: pnp_debug_pkg.log('MINI RETRO CONTRACTION of MAIN Lease -End- (-)');
8147:
8148: EXCEPTION
8149: WHEN OTHERS THEN RAISE ;
8150:
8278: FOR i in 1..28 LOOP
8279: norm_st_dt_rec_tbl(i) := NULL;
8280: END LOOP;
8281:
8282: pnp_debug_pkg.log('pn_schedules_items.schedule_items +Start+ (+)');
8283: pnp_debug_pkg.log('Lease_ID : '||TO_CHAR(g_lease_id));
8284: pnp_debug_pkg.log('Lease Context: '||p_lease_context
8285: ||', Called From: '||p_called_from);
8286:
8279: norm_st_dt_rec_tbl(i) := NULL;
8280: END LOOP;
8281:
8282: pnp_debug_pkg.log('pn_schedules_items.schedule_items +Start+ (+)');
8283: pnp_debug_pkg.log('Lease_ID : '||TO_CHAR(g_lease_id));
8284: pnp_debug_pkg.log('Lease Context: '||p_lease_context
8285: ||', Called From: '||p_called_from);
8286:
8287: l_calc_batch := p_calc_batch;
8280: END LOOP;
8281:
8282: pnp_debug_pkg.log('pn_schedules_items.schedule_items +Start+ (+)');
8283: pnp_debug_pkg.log('Lease_ID : '||TO_CHAR(g_lease_id));
8284: pnp_debug_pkg.log('Lease Context: '||p_lease_context
8285: ||', Called From: '||p_called_from);
8286:
8287: l_calc_batch := p_calc_batch;
8288: FOR rec IN get_info LOOP
8313: g_lease_name;
8314: CLOSE get_lease_details;
8315:
8316:
8317: pnp_debug_pkg.log('Cut Off Date in varchar2 : '||p_cutoff_date);
8318:
8319: l_cutoff_date := fnd_date.canonical_to_date(p_cutoff_date);
8320:
8321: IF l_cutoff_date IS NULL THEN
8321: IF l_cutoff_date IS NULL THEN
8322: l_cutoff_date := g_new_lea_comm_dt ;
8323: END IF;
8324:
8325: pnp_debug_pkg.log('lease_termination_date : '||g_new_lea_term_dt);
8326: pnp_debug_pkg.log('lease_commencement_date : '||g_new_lea_comm_dt);
8327: pnp_debug_pkg.log('Cut Off Date : '||l_cutoff_date);
8328:
8329: /* Calculate number of months between lease commenecement date and termination date.*/
8322: l_cutoff_date := g_new_lea_comm_dt ;
8323: END IF;
8324:
8325: pnp_debug_pkg.log('lease_termination_date : '||g_new_lea_term_dt);
8326: pnp_debug_pkg.log('lease_commencement_date : '||g_new_lea_comm_dt);
8327: pnp_debug_pkg.log('Cut Off Date : '||l_cutoff_date);
8328:
8329: /* Calculate number of months between lease commenecement date and termination date.*/
8330:
8323: END IF;
8324:
8325: pnp_debug_pkg.log('lease_termination_date : '||g_new_lea_term_dt);
8326: pnp_debug_pkg.log('lease_commencement_date : '||g_new_lea_comm_dt);
8327: pnp_debug_pkg.log('Cut Off Date : '||l_cutoff_date);
8328:
8329: /* Calculate number of months between lease commenecement date and termination date.*/
8330:
8331: l_mths := ROUND(MONTHS_BETWEEN(First_Day(g_new_lea_term_dt),First_Day(g_new_lea_comm_dt)))+1;
8329: /* Calculate number of months between lease commenecement date and termination date.*/
8330:
8331: l_mths := ROUND(MONTHS_BETWEEN(First_Day(g_new_lea_term_dt),First_Day(g_new_lea_comm_dt)))+1;
8332:
8333: pnp_debug_pkg.log('No. of Months between Lease Commencement and Termination Date: '||l_mths);
8334:
8335: WHILE(l_start_pos <= length(p_lease_context))
8336: LOOP
8337: select decode(instr(p_lease_context,':',l_start_pos),0,length(p_lease_context),instr(p_lease_context,':',l_start_pos)-1)
8340: l_start_pos := l_end_pos + 2;
8341:
8342: IF l_lease_context = 'CON' AND p_called_from = 'MAIN' THEN
8343:
8344: pnp_debug_pkg.log('schedules_items - Contraction +Start+ (+)');
8345: IF NVL(fnd_profile.value('PN_ERLY_TMNT_B4_LST_APP_SCHD'),'N') = 'Y' THEN
8346: IF NOT pnp_util_func.mini_retro_enabled THEN
8347: contraction(p_lease_id => p_lease_id,
8348: p_lease_context => l_lease_context,
8367:
8368: --asahoo bug#12728301
8369: Reverse_Specific_Schedules(p_lease_id);
8370:
8371: pnp_debug_pkg.log('schedules_items - Contraction -End- (-)');
8372:
8373: ELSIF l_lease_context = 'EXP' AND p_called_from = 'MAIN' THEN
8374:
8375: pnp_debug_pkg.log('expansion from main +Start+ (+)');
8371: pnp_debug_pkg.log('schedules_items - Contraction -End- (-)');
8372:
8373: ELSIF l_lease_context = 'EXP' AND p_called_from = 'MAIN' THEN
8374:
8375: pnp_debug_pkg.log('expansion from main +Start+ (+)');
8376:
8377: expansion(p_lease_id => p_lease_id,
8378: p_lease_context => l_lease_context,
8379: p_new_lea_term_dt => g_new_lea_term_dt,
8386:
8387: --asahoo bug#12728301
8388: Reverse_Specific_Schedules(p_lease_id);
8389:
8390: pnp_debug_pkg.log('expansion from main -End- (-)');
8391:
8392: ELSIF l_lease_context IN ('ABS','LOF','SGN') THEN
8393:
8394: pnp_debug_pkg.log('abstraction +Start+ (+)');
8390: pnp_debug_pkg.log('expansion from main -End- (-)');
8391:
8392: ELSIF l_lease_context IN ('ABS','LOF','SGN') THEN
8393:
8394: pnp_debug_pkg.log('abstraction +Start+ (+)');
8395:
8396: abstract(p_lease_id => p_lease_id,
8397: p_lease_context => l_lease_context,
8398: p_new_lea_term_dt => g_new_lea_term_dt,
8398: p_new_lea_term_dt => g_new_lea_term_dt,
8399: p_new_lea_comm_dt => g_new_lea_comm_dt,
8400: p_mths => l_mths);
8401:
8402: pnp_debug_pkg.log('abstraction -End- (-)');
8403:
8404: ELSIF l_lease_context IN ('ADDEDT', 'ADDAMD') AND p_called_from = 'MAIN' THEN
8405:
8406: pnp_debug_pkg.log('addition from main +Start+ (+)');
8402: pnp_debug_pkg.log('abstraction -End- (-)');
8403:
8404: ELSIF l_lease_context IN ('ADDEDT', 'ADDAMD') AND p_called_from = 'MAIN' THEN
8405:
8406: pnp_debug_pkg.log('addition from main +Start+ (+)');
8407:
8408: add_main(p_lease_id => p_lease_id,
8409: p_lease_context => l_lease_context,
8410: p_new_lea_term_dt => g_new_lea_term_dt,
8410: p_new_lea_term_dt => g_new_lea_term_dt,
8411: p_new_lea_comm_dt => g_new_lea_comm_dt,
8412: p_mths => l_mths);
8413:
8414: pnp_debug_pkg.log('addition from main -End- (-)');
8415:
8416: ELSIF l_lease_context = 'ADD' AND p_called_from IN ('IND','VAR') THEN
8417:
8418: pnp_debug_pkg.log('addition from index/variable +Start+ (+)');
8414: pnp_debug_pkg.log('addition from main -End- (-)');
8415:
8416: ELSIF l_lease_context = 'ADD' AND p_called_from IN ('IND','VAR') THEN
8417:
8418: pnp_debug_pkg.log('addition from index/variable +Start+ (+)');
8419:
8420: add_ind_var(p_lease_id => p_lease_id,
8421: p_lease_context => l_lease_context,
8422: p_term_id => p_term_id,
8426:
8427: PN_REC_CALC_PKG.lock_area_exp_cls_dtl(p_term_id);
8428:
8429:
8430: pnp_debug_pkg.log('addition from index/variable -End- (-)');
8431:
8432:
8433: ELSIF l_lease_context = 'CONTERM' AND p_called_from = 'MAIN' THEN
8434:
8431:
8432:
8433: ELSIF l_lease_context = 'CONTERM' AND p_called_from = 'MAIN' THEN
8434:
8435: pnp_debug_pkg.log('schedules_items - Payment Term Contraction +Start+ (+)');
8436: IF NVL(fnd_profile.value('PN_ERLY_TMNT_B4_LST_APP_SCHD'),'N') = 'Y' THEN
8437: IF NOT pnp_util_func.mini_retro_enabled THEN
8438: contract_pay_term(p_lease_id => p_lease_id,
8439: p_lease_context => l_lease_context,
8467: p_new_lea_comm_dt => g_new_lea_comm_dt,
8468: p_mths => l_mths);
8469: END IF;
8470: Reverse_Specific_Schedules(p_lease_id);
8471: pnp_debug_pkg.log('schedules_items - Payment Term Contraction -End- (-)');
8472:
8473: -- Retro Start
8474: ELSIF l_lease_context = 'ADJ' AND p_called_from = 'MAIN' THEN
8475:
8474: ELSIF l_lease_context = 'ADJ' AND p_called_from = 'MAIN' THEN
8475:
8476: IF pnp_util_func.retro_enabled THEN
8477:
8478: pnp_debug_pkg.log('schedules_items - Term Adjustment +Start+ (+)');
8479:
8480: term_id_tab.delete;
8481: l_index := 0;
8482:
8485: p_new_lea_term_dt => g_new_lea_term_dt,
8486: p_new_lea_comm_dt => g_new_lea_comm_dt,
8487: p_mths => l_mths);
8488:
8489: pnp_debug_pkg.log('schedules_items - Term Adjustment -End- (-)');
8490:
8491: ELSE
8492: RAISE RETRO_NOT_ENABLED_EXCEPTION;
8493: END IF;
8493: END IF;
8494: -- Retro End
8495:
8496: ELSIF l_lease_context IN ('ROLLOVER') AND p_called_from = 'MAIN' THEN
8497: pnp_debug_pkg.log('schedules_items - Lease Rollover to MTM/HLD+Start+ (+)');
8498:
8499: rollover_lease(p_lease_id => p_lease_id ,
8500: p_lease_end_date => g_new_ext_end_date,
8501: p_new_lea_term_dt => g_new_lea_term_dt,
8509: Errbuf := SQLERRM;
8510: Retcode := 2;
8511: END IF;
8512:
8513: pnp_debug_pkg.log('schedules_items - Lease Rollover to MTM/HLD+End+ (-)');
8514:
8515: END IF;
8516: END loop; --While
8517:
8555: IF l_dummy IS NOT NULL THEN
8556: pn_var_defaults_pkg.create_setup_data (x_var_rent_id => var_rec.var_rent_id);
8557: END IF;
8558:
8559: pnp_debug_pkg.log('Updated Natural Breakpoints for VR - '||var_rec.var_rent_id);
8560:
8561:
8562: END LOOP;
8563:
8594: '', '', '', '', '', '', ''
8595: );
8596:
8597: IF (l_requestId = 0 ) THEN
8598: pnp_debug_pkg.log(' ');
8599: pnp_debug_pkg.log('Could not submit Concurrent Request PNCALNDX'
8600: ||' (PN - Calculate Index Rent)');
8601: fnd_message.set_name('PN', 'PN_SCHIT_CONC_FAIL');
8602: pnp_debug_pkg.put_log_msg(fnd_message.get);
8595: );
8596:
8597: IF (l_requestId = 0 ) THEN
8598: pnp_debug_pkg.log(' ');
8599: pnp_debug_pkg.log('Could not submit Concurrent Request PNCALNDX'
8600: ||' (PN - Calculate Index Rent)');
8601: fnd_message.set_name('PN', 'PN_SCHIT_CONC_FAIL');
8602: pnp_debug_pkg.put_log_msg(fnd_message.get);
8603:
8598: pnp_debug_pkg.log(' ');
8599: pnp_debug_pkg.log('Could not submit Concurrent Request PNCALNDX'
8600: ||' (PN - Calculate Index Rent)');
8601: fnd_message.set_name('PN', 'PN_SCHIT_CONC_FAIL');
8602: pnp_debug_pkg.put_log_msg(fnd_message.get);
8603:
8604: ELSE -- Got a request Id
8605: pnp_debug_pkg.log(' ');
8606: pnp_debug_pkg.log('Concurrent Request '||TO_CHAR(l_requestId)
8601: fnd_message.set_name('PN', 'PN_SCHIT_CONC_FAIL');
8602: pnp_debug_pkg.put_log_msg(fnd_message.get);
8603:
8604: ELSE -- Got a request Id
8605: pnp_debug_pkg.log(' ');
8606: pnp_debug_pkg.log('Concurrent Request '||TO_CHAR(l_requestId)
8607: ||' has been submitted for: PN - Calculate Index Rent');
8608: fnd_message.set_name('PN', 'PN_SCHIT_CONC_SUCC');
8609: pnp_debug_pkg.put_log_msg(fnd_message.get);
8602: pnp_debug_pkg.put_log_msg(fnd_message.get);
8603:
8604: ELSE -- Got a request Id
8605: pnp_debug_pkg.log(' ');
8606: pnp_debug_pkg.log('Concurrent Request '||TO_CHAR(l_requestId)
8607: ||' has been submitted for: PN - Calculate Index Rent');
8608: fnd_message.set_name('PN', 'PN_SCHIT_CONC_SUCC');
8609: pnp_debug_pkg.put_log_msg(fnd_message.get);
8610: END IF;
8605: pnp_debug_pkg.log(' ');
8606: pnp_debug_pkg.log('Concurrent Request '||TO_CHAR(l_requestId)
8607: ||' has been submitted for: PN - Calculate Index Rent');
8608: fnd_message.set_name('PN', 'PN_SCHIT_CONC_SUCC');
8609: pnp_debug_pkg.put_log_msg(fnd_message.get);
8610: END IF;
8611: END IF;
8612:
8613: pnp_debug_pkg.log('');
8609: pnp_debug_pkg.put_log_msg(fnd_message.get);
8610: END IF;
8611: END IF;
8612:
8613: pnp_debug_pkg.log('');
8614: pnp_debug_pkg.log('');
8615: pnp_debug_pkg.log('pn_schedules_items.schedule_items -End- (-)');
8616:
8617: EXCEPTION
8610: END IF;
8611: END IF;
8612:
8613: pnp_debug_pkg.log('');
8614: pnp_debug_pkg.log('');
8615: pnp_debug_pkg.log('pn_schedules_items.schedule_items -End- (-)');
8616:
8617: EXCEPTION
8618: WHEN RETRO_NOT_ENABLED_EXCEPTION THEN
8611: END IF;
8612:
8613: pnp_debug_pkg.log('');
8614: pnp_debug_pkg.log('');
8615: pnp_debug_pkg.log('pn_schedules_items.schedule_items -End- (-)');
8616:
8617: EXCEPTION
8618: WHEN RETRO_NOT_ENABLED_EXCEPTION THEN
8619: fnd_message.set_name ('PN', 'PN_RETRO_NOT_ENABLED');
8617: EXCEPTION
8618: WHEN RETRO_NOT_ENABLED_EXCEPTION THEN
8619: fnd_message.set_name ('PN', 'PN_RETRO_NOT_ENABLED');
8620: errbuf := fnd_message.get;
8621: pnp_debug_pkg.put_log_msg(errbuf);
8622: retcode := 2;
8623: RAISE;
8624:
8625: WHEN OTHERS THEN