DBA Data[Home] [Help]

APPS.OKL_LTE_INT_PVT dependencies on OKL_ACCOUNTING_UTIL

Line 41: l_func_currency okl_k_headers_full_v.currency_code%TYPE := okl_accounting_util.get_func_curr_code;

37: l_amount NUMBER;
38: l_interest_amount NUMBER;
39:
40: --start code pgomes 12/18/2002
41: l_func_currency okl_k_headers_full_v.currency_code%TYPE := okl_accounting_util.get_func_curr_code;
42: l_contract_currency okl_k_headers_full_v.currency_code%TYPE;
43: l_prev_contract_currency okl_k_headers_full_v.currency_code%TYPE;
44: l_late_policy okl_late_policies_v.name%TYPE;
45: l_prev_late_policy okl_late_policies_v.name%TYPE;

Line 569: OKL_ACCOUNTING_UTIL.convert_to_contract_currency(

565: LOOP
566: --start code pgomes 12/18/2002
567: IF (l_func_currency <> NVL(l_contract_currency, '000')) THEN
568: --convert minimum_late_interest to contract currency
569: OKL_ACCOUNTING_UTIL.convert_to_contract_currency(
570: p_khr_id => l_khr_id,
571: p_from_currency => l_func_currency,
572: p_transaction_date => sysdate,
573: p_amount => l_lpo_cur.minimum_late_interest,

Line 580: l_minimum_late_interest := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_minimum_late_interest, l_contract_currency);

576: x_currency_conversion_rate => l_currency_conversion_rate,
577: x_currency_conversion_date => l_currency_conversion_date,
578: x_converted_amount => l_minimum_late_interest);
579:
580: l_minimum_late_interest := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_minimum_late_interest, l_contract_currency);
581:
582: --convert maximum_late_interest to contract currency
583: OKL_ACCOUNTING_UTIL.convert_to_contract_currency(
584: p_khr_id => l_khr_id,

Line 583: OKL_ACCOUNTING_UTIL.convert_to_contract_currency(

579:
580: l_minimum_late_interest := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_minimum_late_interest, l_contract_currency);
581:
582: --convert maximum_late_interest to contract currency
583: OKL_ACCOUNTING_UTIL.convert_to_contract_currency(
584: p_khr_id => l_khr_id,
585: p_from_currency => l_func_currency,
586: p_transaction_date => sysdate,
587: p_amount => l_lpo_cur.maximum_late_interest,

Line 594: l_maximum_late_interest := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_maximum_late_interest, l_contract_currency);

590: x_currency_conversion_rate => l_currency_conversion_rate,
591: x_currency_conversion_date => l_currency_conversion_date,
592: x_converted_amount => l_maximum_late_interest);
593:
594: l_maximum_late_interest := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_maximum_late_interest, l_contract_currency);
595:
596: --convert late_int_minimum_balance to contract currency
597: OKL_ACCOUNTING_UTIL.convert_to_contract_currency(
598: p_khr_id => l_khr_id,

Line 597: OKL_ACCOUNTING_UTIL.convert_to_contract_currency(

593:
594: l_maximum_late_interest := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_maximum_late_interest, l_contract_currency);
595:
596: --convert late_int_minimum_balance to contract currency
597: OKL_ACCOUNTING_UTIL.convert_to_contract_currency(
598: p_khr_id => l_khr_id,
599: p_from_currency => l_func_currency,
600: p_transaction_date => sysdate,
601: p_amount => l_lpo_cur.late_int_minimum_balance,

Line 608: l_late_int_minimum_balance := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_late_int_minimum_balance, l_contract_currency);

604: x_currency_conversion_rate => l_currency_conversion_rate,
605: x_currency_conversion_date => l_currency_conversion_date,
606: x_converted_amount => l_late_int_minimum_balance);
607:
608: l_late_int_minimum_balance := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_late_int_minimum_balance, l_contract_currency);
609: ELSE
610: l_minimum_late_interest := l_lpo_cur.minimum_late_interest;
611: l_maximum_late_interest := l_lpo_cur.maximum_late_interest;
612: l_late_int_minimum_balance := l_lpo_cur.late_int_minimum_balance;

Line 658: l_amount := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_amount, l_contract_currency);

654: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Fixed: Interest rate applied => '||(l_late_int_rate+l_adder_rate));
655:
656: --Bug# 11076575: Changed l_apply_date to l_receipt_date
657: l_amount := ((l_amt_applied*(l_late_int_rate+l_adder_rate)*(l_receipt_date-l_due_date))/100)/l_days_calc;
658: l_amount := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_amount, l_contract_currency);
659: ELSE
660: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Variable: Interest rate applied => '||(l_index_rate+l_adder_rate));
661:
662: --Bug# 11076575: Changed l_apply_date to l_receipt_date

Line 664: l_amount := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_amount, l_contract_currency);

660: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Variable: Interest rate applied => '||(l_index_rate+l_adder_rate));
661:
662: --Bug# 11076575: Changed l_apply_date to l_receipt_date
663: l_amount := ((l_amt_applied*(l_index_rate+l_adder_rate)*(l_receipt_date-l_due_date))/100)/l_days_calc;
664: l_amount := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_amount, l_contract_currency);
665: END IF;
666: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Calculated late interest => '||l_amount);
667:
668: IF(l_amount < l_minimum_late_interest) THEN