APPS.FA_LEASE_SCHEDULE_PVT dependencies on DUAL

Line 394: FROM DUAL;

390: -- CALCULATE (1 + I)**N
391: --------------------------------------------------------------
392: SELECT (POWER((1 + P_RATE_PER_PERIOD), P_NUM_PERIODS))
393: INTO RATE_FACTOR
394: FROM DUAL;
395:
396: INTEREST_AMOUNT := (P_PRINCIPAL * (RATE_FACTOR)) - P_PRINCIPAL;
397: INTEREST_AMOUNT := INTEREST_AMOUNT;
398:

Line 488: SELECT (POWER((1 + P_INTEREST_RATE), P_NUMBER_PAYMENTS)) INTO H_DENOMINATOR FROM DUAL;

484: --------------------------------------------------------------
485: IF (P_NUMBER_PAYMENTS = 0) THEN
486: H_DENOMINATOR := 1;
487: ELSE
488: SELECT (POWER((1 + P_INTEREST_RATE), P_NUMBER_PAYMENTS)) INTO H_DENOMINATOR FROM DUAL;
489: END IF;
490:
491: H_ROW_PV := (1/H_DENOMINATOR) * P_PAYMENT_AMOUNT;
492: H_ROW_PV := ROUND(H_ROW_PV, P_CURRENCY_PRECISION);

Line 528: SELECT (POWER((1 + P_INTEREST_RATE), P_NUMBER_PAYMENTS)) INTO H_SUBDENOMINATOR FROM DUAL;

524: IF (P_NUMBER_PAYMENTS = 0) THEN
525: H_SUBDENOMINATOR := 1;
526: ELSE
527: --H_SUBDENOMINATOR := ((1 + P_INTEREST_RATE) ** P_NUMBER_PAYMENTS);
528: SELECT (POWER((1 + P_INTEREST_RATE), P_NUMBER_PAYMENTS)) INTO H_SUBDENOMINATOR FROM DUAL;
529: END IF;
530: --
531: H_NUMERATOR := 1 - (1 / H_SUBDENOMINATOR);
532: H_ROW_PV := ((H_NUMERATOR / H_DENOMINATOR) * P_PAYMENT_AMOUNT);

Line 571: INTO H_SUBDENOMINATOR FROM DUAL;

567: ELSIF (P_NUMBER_PAYMENTS > 1) THEN
568: --THE FOLLOWING STATEMENT DOES NOT WORK. SO THE SELECT ST. IS NECESSARY
569: -- H_SUBDENOMINATOR := ((1 + P_INTEREST_RATE) ** (P_NUMBER_PAYMENTS - 1));
570: SELECT (POWER((1 + P_INTEREST_RATE), (P_NUMBER_PAYMENTS - 1)))
571: INTO H_SUBDENOMINATOR FROM DUAL;
572: END IF;
573:
574: H_NUMERATOR := 1 - (1 / H_SUBDENOMINATOR);
575: H_ROW_PV := (1 + (H_NUMERATOR/H_DENOMINATOR)) * P_PAYMENT_AMOUNT;