DBA Data[Home] [Help]

APPS.AP_APPROVAL_PKG dependencies on AP_PAYMENT_SCHEDULES

Line 1611: FROM ap_payment_schedules aps

1607:
1608: SELECT DECODE(NVL((MAX(aps.last_update_date)- MIN(aps.creation_date)),0),
1609: 0,'N','Y')
1610: INTO l_diff_flag
1611: FROM ap_payment_schedules aps
1612: WHERE aps.invoice_id = l_invoice_id;
1613:
1614: IF (l_diff_flag = 'N') THEN
1615: AP_PPA_PKG.Due_Date_Sweeper(

Line 6200: FROM ap_payment_schedules

6196: --
6197: -- If unapplying prepayment, we want to get the amount paid, else
6198: -- we want to get amount remaining so we won't overapply.
6199: --
6200: FROM ap_payment_schedules
6201: WHERE invoice_id = p_invoice_id
6202: AND (payment_status_flag||'' = 'P'
6203: OR payment_status_flag||'' = DECODE(p_amount_positive, 'N', 'Y', 'N'))
6204: ORDER BY DECODE(p_amount_positive,

Line 6267: UPDATE ap_payment_schedules

6263: +-----------------------------------------------------------------------*/
6264:
6265: l_debug_info := 'Update ap_payment_schedule for the invoice, case 1';
6266:
6267: UPDATE ap_payment_schedules
6268: SET amount_remaining = (amount_remaining -
6269: ap_utilities_pkg.ap_round_currency(
6270: l_apply_amount_remaining,
6271: p_payment_currency_code)),

Line 6302: UPDATE ap_payment_schedules

6298: *----------------------------------------------------------------------*/
6299:
6300: l_debug_info := 'Update ap_payment_schedule for the invoice, case 2';
6301:
6302: UPDATE ap_payment_schedules
6303: SET amount_remaining = DECODE(p_amount_positive,
6304: 'Y', 0,
6305: gross_amount),
6306: payment_status_flag = DECODE(p_amount_positive,

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

6372: l_payment_cross_rate ap_invoices.payment_cross_rate%TYPE;
6373: l_pay_curr_code ap_invoices.payment_currency_code%TYPE;
6374: l_num_payments NUMBER := 0;
6375: l_invoice_type ap_invoices.invoice_type_lookup_code%TYPE;--1724924
6376: l_inv_amt_remaining ap_payment_schedules.amount_remaining%TYPE := 0;
6377: l_gross_amount ap_payment_schedules.gross_amount%TYPE := 0;
6378: l_debug_loc VARCHAR2(30) := 'Manual_Withhold_Tax';
6379: l_curr_calling_sequence VARCHAR2(2000);
6380:

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

6373: l_pay_curr_code ap_invoices.payment_currency_code%TYPE;
6374: l_num_payments NUMBER := 0;
6375: l_invoice_type ap_invoices.invoice_type_lookup_code%TYPE;--1724924
6376: l_inv_amt_remaining ap_payment_schedules.amount_remaining%TYPE := 0;
6377: l_gross_amount ap_payment_schedules.gross_amount%TYPE := 0;
6378: l_debug_loc VARCHAR2(30) := 'Manual_Withhold_Tax';
6379: l_curr_calling_sequence VARCHAR2(2000);
6380:
6381: BEGIN

Line 6403: FROM ap_payment_schedules

6399:
6400:
6401: SELECT sum(nvl(amount_remaining,0)), sum(nvl(gross_amount,0))
6402: INTO l_inv_amt_remaining, l_gross_amount
6403: FROM ap_payment_schedules
6404: WHERE invoice_id = p_invoice_id;
6405:
6406: SELECT payment_cross_rate,
6407: payment_currency_code,

Line 6428: update ap_payment_schedules

6424: -- BUG 4344086 : if condition added. If l_gross_amount = 0 means, the
6425: -- invoice is either cancelled or is of 0$
6426: if l_gross_amount = 0
6427: then
6428: update ap_payment_schedules
6429: set amount_remaining = 0
6430: where invoice_id = p_invoice_id;
6431:
6432: elsif ((l_inv_amt_remaining <> 0) and (nvl(l_manual_awt_amount,0) <> 0))

Line 6435: update ap_payment_schedules

6431:
6432: elsif ((l_inv_amt_remaining <> 0) and (nvl(l_manual_awt_amount,0) <> 0))
6433: then
6434:
6435: update ap_payment_schedules
6436: set amount_remaining = (amount_remaining +
6437: ap_utilities_pkg.ap_round_currency(
6438: (amount_remaining * (l_manual_awt_amount/l_inv_amt_remaining)
6439: * l_payment_cross_rate), l_pay_curr_code ) )

Line 6445: update ap_payment_schedules

6441:
6442: elsif ((l_inv_amt_remaining = 0) and (nvl(l_manual_awt_amount,0) <> 0))
6443: then
6444:
6445: update ap_payment_schedules
6446: set amount_remaining =
6447: (amount_remaining +
6448: ap_utilities_pkg.ap_round_currency(
6449: (gross_amount * (l_manual_awt_amount/l_gross_amount)

Line 6490: FROM ap_payment_schedules

6486: p_last_update_login IN NUMBER,
6487: p_calling_sequence IN VARCHAR2) IS
6488: CURSOR Update_payment_schedule IS
6489: SELECT payment_num,gross_amount,amount_remaining
6490: FROM ap_payment_schedules
6491: WHERE invoice_id=p_invoice_id;
6492: l_automatic_awt_amount ap_invoice_distributions.amount%TYPE :=0;
6493: l_payment_cross_rate ap_invoices.payment_cross_rate%TYPE;
6494: l_pay_curr_code ap_invoices.payment_currency_code%TYPE;

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

6493: l_payment_cross_rate ap_invoices.payment_cross_rate%TYPE;
6494: l_pay_curr_code ap_invoices.payment_currency_code%TYPE;
6495: l_num_payments NUMBER := 0;
6496: l_invoice_type ap_invoices.invoice_type_lookup_code%TYPE;
6497: l_inv_amt_remaining ap_payment_schedules.amount_remaining%TYPE := 0;
6498: l_gross_amount ap_payment_schedules.gross_amount%TYPE := 0;
6499: l_payment_num ap_payment_schedules.payment_num%TYPE;
6500: l_debug_loc VARCHAR2(30) := 'Update_Pay_Sched_For_Awt';
6501: l_curr_calling_sequence VARCHAR2(2000);

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

6494: l_pay_curr_code ap_invoices.payment_currency_code%TYPE;
6495: l_num_payments NUMBER := 0;
6496: l_invoice_type ap_invoices.invoice_type_lookup_code%TYPE;
6497: l_inv_amt_remaining ap_payment_schedules.amount_remaining%TYPE := 0;
6498: l_gross_amount ap_payment_schedules.gross_amount%TYPE := 0;
6499: l_payment_num ap_payment_schedules.payment_num%TYPE;
6500: l_debug_loc VARCHAR2(30) := 'Update_Pay_Sched_For_Awt';
6501: l_curr_calling_sequence VARCHAR2(2000);
6502: l_wt_amt_to_subtract NUMBER := 0;

Line 6499: l_payment_num ap_payment_schedules.payment_num%TYPE;

6495: l_num_payments NUMBER := 0;
6496: l_invoice_type ap_invoices.invoice_type_lookup_code%TYPE;
6497: l_inv_amt_remaining ap_payment_schedules.amount_remaining%TYPE := 0;
6498: l_gross_amount ap_payment_schedules.gross_amount%TYPE := 0;
6499: l_payment_num ap_payment_schedules.payment_num%TYPE;
6500: l_debug_loc VARCHAR2(30) := 'Update_Pay_Sched_For_Awt';
6501: l_curr_calling_sequence VARCHAR2(2000);
6502: l_wt_amt_to_subtract NUMBER := 0;
6503: BEGIN

Line 6546: update ap_payment_schedules

6542: --===================================================================
6543: --Prorate the automatic AWT against the invoice amount remaining
6544: --===================================================================
6545: if l_gross_amount = 0 then
6546: update ap_payment_schedules
6547: set amount_remaining = 0
6548: where invoice_id = p_invoice_id
6549: and payment_num=l_payment_num;
6550:

Line 6554: update ap_payment_schedules

6550:
6551: elsif ((l_inv_amt_remaining <> 0) and (nvl(l_wt_amt_to_subtract,0) <> 0))
6552: then
6553:
6554: update ap_payment_schedules
6555: set amount_remaining = (amount_remaining -
6556: ap_utilities_pkg.ap_round_currency(
6557: (amount_remaining * ( l_wt_amt_to_subtract/l_inv_amt_remaining)
6558: * l_payment_cross_rate), l_pay_curr_code ) )

Line 6563: update ap_payment_schedules

6559: where invoice_id = p_invoice_id
6560: and payment_num=l_payment_num;
6561:
6562: End If;
6563: update ap_payment_schedules
6564: set payment_status_flag ='Y'
6565: where invoice_id = p_invoice_id
6566: and payment_num=l_payment_num
6567: and amount_remaining = 0

Line 6621: from ap_payment_schedules_all

6617: l_curr_calling_sequence := 'AP_APPROVAL_PKG.createPaymentSchedules <- '||P_calling_sequence;
6618:
6619: select count(*)
6620: into l_schedule_count
6621: from ap_payment_schedules_all
6622: where invoice_id = p_invoice_id;
6623:
6624: -------------------------------------------
6625: l_debug_info := 'createPaymentSchedules - payment schedule count = ' || l_schedule_count;