APPS.AP_INVOICE_LINES_UTILITY_PKG dependencies on AP_PAYMENT_SCHEDULES

Line 2107: * Objective update ap_payment_schedules.remaining_amount for manual entry

2103: End Get_Retained_Amount;
2104:
2105: /* ==========================================================================================
2106: * Procedure manual_withhold_tax()
2107: * Objective update ap_payment_schedules.remaining_amount for manual entry
2108: * withholding lines
2109: * This procedire has been moved from payment schedules library since it did
2110: * not consider the
2111: * ap lines model

Line 2118: l_inv_amt_remaining ap_payment_schedules.amount_remaining%TYPE := 0;

2114: PROCEDURE Manual_Withhold_Tax(p_invoice_id IN number
2115: ,p_manual_withhold_amount IN number
2116: ) IS
2117:
2118: l_inv_amt_remaining ap_payment_schedules.amount_remaining%TYPE := 0;
2119: l_gross_amount ap_payment_schedules.gross_amount%TYPE := 0;
2120: l_payment_cross_rate ap_invoices_all.payment_cross_rate%TYPE :=0;
2121: l_payment_currency_code ap_invoices_all.payment_currency_code%TYPE;
2122:

Line 2119: l_gross_amount ap_payment_schedules.gross_amount%TYPE := 0;

2115: ,p_manual_withhold_amount IN number
2116: ) IS
2117:
2118: l_inv_amt_remaining ap_payment_schedules.amount_remaining%TYPE := 0;
2119: l_gross_amount ap_payment_schedules.gross_amount%TYPE := 0;
2120: l_payment_cross_rate ap_invoices_all.payment_cross_rate%TYPE :=0;
2121: l_payment_currency_code ap_invoices_all.payment_currency_code%TYPE;
2122:
2123: -- Debug variables

Line 2140: FROM ap_payment_schedules

2136: WHERE invoice_id = p_invoice_id;
2137:
2138: SELECT sum(nvl(amount_remaining,0)), sum(nvl(gross_amount,0))
2139: INTO l_inv_amt_remaining, l_gross_amount
2140: FROM ap_payment_schedules
2141: WHERE invoice_id = p_invoice_id;
2142:
2143: l_debug_info := 'Updating payment schedules due a manual withholding tax';
2144:

Line 2147: update ap_payment_schedules

2143: l_debug_info := 'Updating payment schedules due a manual withholding tax';
2144:
2145: IF ((l_inv_amt_remaining <> 0) AND (p_manual_withhold_amount is not null))
2146: THEN
2147: update ap_payment_schedules
2148: set amount_remaining = (amount_remaining +
2149: ap_utilities_pkg.ap_round_currency(
2150: (amount_remaining * (p_manual_withhold_amount/l_inv_amt_remaining)
2151: * l_payment_cross_rate), l_payment_currency_code))

Line 2156: update ap_payment_schedules

2152: where invoice_id = p_invoice_id;
2153:
2154: ELSIF ((l_inv_amt_remaining = 0) and (p_manual_withhold_amount is not null))
2155: THEN
2156: update ap_payment_schedules
2157: set amount_remaining = (amount_remaining +
2158: ap_utilities_pkg.ap_round_currency(
2159: (gross_amount * (p_manual_withhold_amount/l_gross_amount)
2160: * l_payment_cross_rate), l_payment_currency_code)),