597: FOR UPDATE OF PRESENT_VALUE;
598:
599: CURSOR C_PAYMENT IS
600: SELECT START_DATE,PAYMENT_AMOUNT,NUMBER_OF_PAYMENTS
601: FROM FA_LEASE_PAYMENTS
602: WHERE PAYMENT_SCHEDULE_ID = P_PAYMENT_SCHEDULE_ID
603: ORDER BY PAYMENT_LINE_NUMBER
604: FOR UPDATE OF ROW_PRESENT_VALUE;
605:
610:
611: BEGIN
612:
613: --------------------------------------------------------------------
614: -- CALCULATE ROW_PRESENT VLAUE FOR EACH ROW IN FA_LEASE_PAYMENTS AND
615: -- SUM ALL THE ROW_PRESENT VALUE FOR FA_LEASE_SHCEDULE.PRESENT_VALUE
616: --------------------------------------------------------------------
617:
618: FOR SCHEDULE_REC IN C_SCHEDULE LOOP
689: END IF;
690:
691: L_ROW_PRESENT_VALUE := ROUND(L_ROW_PRESENT_VALUE,
692: P_CURRENCY_PRECISION);
693: UPDATE FA_LEASE_PAYMENTS
694: SET ROW_PRESENT_VALUE = L_ROW_PRESENT_VALUE
695: WHERE CURRENT OF C_PAYMENT;
696: L_TOTAL_ROW_PRESENT_VALUE := L_TOTAL_ROW_PRESENT_VALUE + L_ROW_PRESENT_VALUE;
697:
929: SELECT
930: START_DATE,
931: NUMBER_OF_PAYMENTS,
932: PAYMENT_AMOUNT
933: FROM FA_LEASE_PAYMENTS
934: WHERE PAYMENT_SCHEDULE_ID=P_PAYMENT_SCHEDULE_ID
935: ORDER BY PAYMENT_LINE_NUMBER;
936:
937: CURSOR C IS