782: ELSIF P_SUMMARY_LEVEL = 'TRANSACTION_DISTRIBUTION' THEN
783: /*
784: IF L_EXEMPT_AMOUNT IS NOT NULL THEN
785: P_EXEMPT_ENTERED_AMOUNT :=
786: arpcurr.CurrRound(L_EXEMPT_AMOUNT,L_CURRENCY_CODE);
787:
788: IF P_TAXABLE_AMOUNT IS NOT NULL THEN
789: P_TAXABLE_EXEMPT_ENTERED_AMT :=
790: arpcurr.CurrRound((P_TAXABLE_AMOUNT + L_EXEMPT_AMOUNT),
786: arpcurr.CurrRound(L_EXEMPT_AMOUNT,L_CURRENCY_CODE);
787:
788: IF P_TAXABLE_AMOUNT IS NOT NULL THEN
789: P_TAXABLE_EXEMPT_ENTERED_AMT :=
790: arpcurr.CurrRound((P_TAXABLE_AMOUNT + L_EXEMPT_AMOUNT),
791: L_CURRENCY_CODE);
792: END IF;
793:
794: ELSE
797: END IF;
798:
799: IF P_EXEMPT_ENTERED_AMOUNT IS NOT NULL THEN
800: P_EXEMPT_ACCTD_AMOUNT :=
801: arpcurr.FUNCTIONAL_AMOUNT(
802: P_EXEMPT_ENTERED_AMOUNT,
803: L_CURRENCY_CODE,
804: L_EXCHANGE_RATE,
805: L_PRECISION,
807: END IF;
808:
809: IF P_TAXABLE_EXEMPT_ENTERED_AMT IS NOT NULL THEN
810: P_TAXABLE_EXEMPT_ACCTD_AMT :=
811: arpcurr.FUNCTIONAL_AMOUNT(
812: P_TAXABLE_EXEMPT_ENTERED_AMT,
813: L_CURRENCY_CODE,
814: L_EXCHANGE_RATE,
815: L_PRECISION,
821: -- before taxable amount is rounded (BUG3123264).
822:
823: IF P_TAXABLE_AMOUNT IS NOT NULL THEN
824: P_TAXABLE_ACCOUNTED_AMOUNT :=
825: arpcurr.FUNCTIONAL_AMOUNT(P_TAXABLE_AMOUNT,
826: L_CURRENCY_CODE,
827: L_EXCHANGE_RATE,
828: L_PRECISION,
829: L_MIN_ACCT_UNIT);
831:
832:
833: IF P_TAXABLE_AMOUNT IS NOT NULL THEN
834: P_TAXABLE_AMOUNT :=
835: arpcurr.CurrRound(P_TAXABLE_AMOUNT,L_CURRENCY_CODE);
836: END IF;
837: */
838: NULL;
839:
2060: l_taxable_amount := P_INPUT_TAXABLE_AMOUNT;
2061: END IF;
2062:
2063: IF P_EXEMPT_ENTERED_AMOUNT IS NOT NULL THEN
2064: P_EXEMPT_ACCTD_AMOUNT := arpcurr.FUNCTIONAL_AMOUNT(
2065: P_EXEMPT_ENTERED_AMOUNT,
2066: P_CURRENCY_CODE,
2067: P_EXCHANGE_RATE,
2068: P_PRECISION,
2069: P_MIN_ACCT_UNIT);
2070: END IF;
2071:
2072: IF P_TAXABLE_EXEMPT_ENTERED_AMT IS NOT NULL THEN
2073: P_TAXABLE_EXEMPT_ACCTD_AMT := arpcurr.FUNCTIONAL_AMOUNT(
2074: P_TAXABLE_EXEMPT_ENTERED_AMT,
2075: P_CURRENCY_CODE,
2076: P_EXCHANGE_RATE,
2077: P_PRECISION,
2083:
2084: P_TAXABLE_AMOUNT := l_taxable_amount;
2085: */
2086: IF P_INPUT_TAX_AMOUNT IS NOT NULL THEN
2087: l_TAX_ACCOUNTED_AMOUNT := arpcurr.FUNCTIONAL_AMOUNT(
2088: P_INPUT_TAX_AMOUNT,
2089: P_CURRENCY_CODE,
2090: P_EXCHANGE_RATE,
2091: P_PRECISION,
2092: P_MIN_ACCT_UNIT);
2093: END IF;
2094:
2095: IF p_input_taxable_amount IS NOT NULL THEN
2096: l_TAXABLE_ACCOUNTED_AMOUNT := arpcurr.FUNCTIONAL_AMOUNT(
2097: p_input_taxable_amount,
2098: P_CURRENCY_CODE,
2099: P_EXCHANGE_RATE,
2100: P_PRECISION,