APPS.FA_LEASE_SCHEDULE_PVT dependencies on DUAL

Line 401: FROM DUAL;

397: -- CALCULATE (1 + I)**N
398: --------------------------------------------------------------
399: SELECT (POWER((1 + P_RATE_PER_PERIOD), P_NUM_PERIODS))
400: INTO RATE_FACTOR
401: FROM DUAL;
402:
403: INTEREST_AMOUNT := (P_PRINCIPAL * (RATE_FACTOR)) - P_PRINCIPAL;
404: INTEREST_AMOUNT := INTEREST_AMOUNT;
405:

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

497: --------------------------------------------------------------
498: IF (P_NUMBER_PAYMENTS = 0) THEN
499: H_DENOMINATOR := 1;
500: ELSE
501: SELECT (POWER((1 + P_INTEREST_RATE), P_NUMBER_PAYMENTS)) INTO H_DENOMINATOR FROM DUAL;
502: END IF;
503:
504: H_ROW_PV := (1/H_DENOMINATOR) * P_PAYMENT_AMOUNT;
505: H_ROW_PV := ROUND(H_ROW_PV, P_CURRENCY_PRECISION);

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

539: IF (P_NUMBER_PAYMENTS = 0) THEN
540: H_SUBDENOMINATOR := 1;
541: ELSE
542: --H_SUBDENOMINATOR := ((1 + P_INTEREST_RATE) ** P_NUMBER_PAYMENTS);
543: SELECT (POWER((1 + P_INTEREST_RATE), P_NUMBER_PAYMENTS)) INTO H_SUBDENOMINATOR FROM DUAL;
544: END IF;
545: --
546: H_NUMERATOR := 1 - (1 / H_SUBDENOMINATOR);
547: H_ROW_PV := ((H_NUMERATOR / H_DENOMINATOR) * P_PAYMENT_AMOUNT);

Line 588: INTO H_SUBDENOMINATOR FROM DUAL;

584: ELSIF (P_NUMBER_PAYMENTS > 1) THEN
585: --THE FOLLOWING STATEMENT DOES NOT WORK. SO THE SELECT ST. IS NECESSARY
586: -- H_SUBDENOMINATOR := ((1 + P_INTEREST_RATE) ** (P_NUMBER_PAYMENTS - 1));
587: SELECT (POWER((1 + P_INTEREST_RATE), (P_NUMBER_PAYMENTS - 1)))
588: INTO H_SUBDENOMINATOR FROM DUAL;
589: END IF;
590:
591: H_NUMERATOR := 1 - (1 / H_SUBDENOMINATOR);
592: H_ROW_PV := (1 + (H_NUMERATOR/H_DENOMINATOR)) * P_PAYMENT_AMOUNT;