The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT Event_ID,
Event_Type_Code,
Event_Date,
Event_Number,
Event_Status_Code,
Entity_Code,
Source_ID_Int_1
FROM XLA_Events_GT
WHERE (Entity_Code = 'AP_PAYMENTS'
OR Event_Type_Code IN ('PREPAYMENT APPLIED',
'PREPAYMENT UNAPPLIED',
'PREPAYMENT APPLICATION ADJ'))
AND Event_Status_Code <> 'N'
ORDER BY Event_ID;
Delete_Hist_Dists (l_curr_calling_sequence);
SELECT ASP.Base_Currency_Code
INTO g_base_currency_code
FROM AP_System_Parameters_All ASP,
AP_Checks_All AC
WHERE AC.Check_ID = l_xla_event_rec.source_id_int_1
AND AC.Org_ID = ASP.Org_ID;
SELECT ASP.Base_Currency_Code
INTO g_base_currency_code
FROM AP_System_Parameters_All ASP,
AP_Invoices_All AI
WHERE AI.Invoice_ID = l_xla_event_rec.source_id_int_1
AND AI.Org_ID = ASP.Org_ID;
l_log_msg := 'Calling procedure AP_Acctg_Prepay_Dist_Pkg.Update_Gain_Loss_Ind';
AP_Acctg_Prepay_Dist_Pkg.Update_Gain_Loss_Ind
(l_xla_event_rec,
l_curr_calling_sequence);
l_log_msg := 'Procedure AP_Acctg_Prepay_Dist_Pkg.Updated_Gain_Loss_Ind executed';
PROCEDURE Delete_Hist_Dists
(P_Calling_Sequence IN VARCHAR2
) IS
l_curr_calling_sequence VARCHAR2(2000);
DELETE FROM AP_Payment_Hist_Dists
WHERE Accounting_Event_ID IN
(SELECT Event_ID
FROM XLA_Events_GT
WHERE Entity_Code = 'AP_PAYMENTS');
DELETE FROM AP_Prepay_App_Dists
WHERE Accounting_Event_ID IN
(SELECT Event_ID
FROM XLA_Events_GT
WHERE Event_Type_Code IN ('PREPAYMENT APPLICATION ADJ'));
END Delete_Hist_Dists;
SELECT SUM(APHD.Amount)
INTO l_pay_sum
FROM AP_Payment_Hist_Dists APHD,
AP_Payment_History_All APH
WHERE APHD.Invoice_Distribution_ID = P_Invoice_Distribution_ID
AND APHD.Invoice_Payment_ID = P_Invoice_Payment_ID
AND APH.Related_Event_ID = P_Related_Event_ID
AND APHD.Payment_History_ID = APH.Payment_History_ID
AND APH.Posted_Flag = 'Y' -- added for bug 7337949
AND APHD.Pay_Dist_Lookup_Code = 'CASH';
SELECT SUM(APHD.Invoice_Dist_Amount)
INTO l_inv_dist_sum
FROM AP_Payment_Hist_Dists APHD,
AP_Payment_History_All APH
WHERE APHD.Invoice_Distribution_ID = P_Invoice_Distribution_ID
AND APHD.Invoice_Payment_ID = P_Invoice_Payment_ID
AND APH.Related_Event_ID = P_Related_Event_ID
AND APHD.Payment_History_ID = APH.Payment_History_ID
AND APH.Posted_Flag = 'Y' --added for bug 7337949
AND APHD.Pay_Dist_Lookup_Code = 'CASH';
SELECT SUM(APHD.Bank_Curr_Amount)
INTO l_bank_curr_sum
FROM AP_Payment_Hist_Dists APHD,
AP_Payment_History_All APH
WHERE APHD.Invoice_Distribution_ID = P_Invoice_Distribution_ID
AND APHD.Invoice_Payment_ID = P_Invoice_Payment_ID
AND APH.Related_Event_ID = P_Related_Event_ID
AND APHD.Payment_History_ID = APH.Payment_History_ID
AND APH.Posted_Flag = 'Y' --added for bug 7337949
AND APHD.Pay_Dist_Lookup_Code = 'CASH';
SELECT SUM(APAD.Amount)
INTO l_prepay_sum
FROM AP_Prepay_App_Dists APAD
WHERE APAD.Invoice_Distribution_ID = P_Invoice_Distribution_ID
AND APAD.Prepay_App_Distribution_ID = P_Prepay_App_Dist_ID
AND APAD.Prepay_Dist_Lookup_Code IN ('PREPAY APPL', 'PREPAY APPL REC TAX',
'PREPAY APPL NONREC TAX', 'AWT',
'EXCHANGE RATE VARIANCE');
SELECT SUM(APAD.Amount)
INTO l_tax_diff_sum
FROM AP_Prepay_App_Dists APAD
WHERE APAD.Invoice_Distribution_ID = P_Invoice_Distribution_ID
AND APAD.Prepay_App_Distribution_ID = P_Prepay_App_Dist_ID
AND APAD.Prepay_Dist_Lookup_Code IN ('TAX DIFF');
SELECT SUM(APHD.Amount)
INTO l_discount_sum
FROM AP_Payment_Hist_Dists APHD,
AP_Payment_History_All APH
WHERE APHD.Invoice_Distribution_ID = P_Invoice_Distribution_ID
AND APHD.Invoice_Payment_ID = P_Invoice_Payment_ID
AND APH.Related_Event_ID = P_Related_Event_ID
AND APHD.Payment_History_ID = APH.Payment_History_ID
AND APH.Posted_Flag = 'Y' --added for bug 7337949
AND Pay_Dist_Lookup_Code = 'DISCOUNT';
SELECT SUM(APHD.Invoice_Dist_Amount)
INTO l_discount_sum
FROM AP_Payment_Hist_Dists APHD,
AP_Payment_History_All APH
WHERE APHD.Invoice_Distribution_ID = P_Invoice_Distribution_ID
AND APHD.Invoice_Payment_ID = P_Invoice_Payment_ID
AND APH.Related_Event_ID = P_Related_Event_ID
AND APHD.Payment_History_ID = APH.Payment_History_ID
AND APH.Posted_Flag = 'Y' --added for bug 7337949
AND Pay_Dist_Lookup_Code = 'DISCOUNT';
SELECT SUM(APHD.Bank_Curr_Amount)
INTO l_discount_sum
FROM AP_Payment_Hist_Dists APHD,
AP_Payment_History_All APH
WHERE APHD.Invoice_Distribution_ID = P_Invoice_Distribution_ID
AND APHD.Invoice_Payment_ID = P_Invoice_Payment_ID
AND APH.Related_Event_ID = P_Related_Event_ID
AND APHD.Payment_History_ID = APH.Payment_History_ID
AND APH.Posted_Flag = 'Y' ---added for bug 7337949
AND Pay_Dist_Lookup_Code = 'DISCOUNT';
SELECT SUM(APHD.Amount),
SUM(APHD.Invoice_Dist_Amount),
SUM(APHD.Bank_Curr_Amount)
INTO l_pay_sum,
l_inv_dist_sum,
l_bank_curr_sum
FROM AP_Payment_Hist_Dists APHD,
AP_Payment_History_All APH
WHERE APHD.Invoice_Distribution_ID = p_invoice_distribution_id
AND APHD.Pay_Dist_Lookup_Code IN ('CASH', 'DISCOUNT', 'AWT')
AND NVL(APH.Posted_Flag, 'N') = 'Y'
AND APH.Payment_History_ID = APHD.Payment_History_ID
AND APH.Transaction_Type IN ('PAYMENT CLEARING', 'PAYMENT UNCLEARING',
'PAYMENT CLEARING ADJUSTED');
SELECT SUM(APHD.Amount),
SUM(APHD.Invoice_Dist_Amount),
SUM(APHD.Bank_Curr_Amount)
INTO l_pay_sum,
l_inv_dist_sum,
l_bank_curr_sum
FROM AP_Payment_Hist_Dists APHD,
AP_Payment_History_All APH
WHERE APHD.Invoice_Distribution_ID = p_invoice_distribution_id
AND APHD.Pay_Dist_Lookup_Code IN ('CASH', 'DISCOUNT')
AND NVL(APH.Posted_Flag, 'N') = 'Y'
AND APH.Payment_History_ID = APHD.Payment_History_ID
AND APH.Transaction_Type IN ('PAYMENT MATURITY', 'PAYMENT MATURITY REVERSED',
'PAYMENT MATURITY ADJUSTED');
SELECT SUM(APHD.Amount),
SUM(APHD.Invoice_Dist_Amount),
SUM(APHD.Bank_Curr_Amount)
INTO l_pay_sum,
l_inv_dist_sum,
l_bank_curr_sum
FROM AP_Payment_Hist_Dists APHD,
AP_Payment_History_All APH
WHERE APHD.Invoice_Distribution_ID = p_invoice_distribution_id
AND APHD.Pay_Dist_Lookup_Code IN ('CASH', 'DISCOUNT')
AND NVL(APH.Posted_Flag, 'N') = 'Y'
AND APH.Payment_History_ID = APHD.Payment_History_ID
AND APH.Transaction_Type IN ('PAYMENT CREATED', 'PAYMENT CANCELLED', 'PAYMENT ADJUSTED',
'MANUAL PAYMENT ADJUSTED', 'UPGRADED MANUAL PMT ADJUSTED',
'REFUND RECORDED',
'REFUND ADJUSTED', 'REFUND CANCELLED');
SELECT SUM(APAD.Amount)
INTO l_prepay_sum
FROM AP_Prepay_App_Dists APAD
WHERE APAD.Invoice_Distribution_ID = P_Invoice_Distribution_ID
AND APAD.Prepay_Dist_Lookup_Code IN ('PREPAY APPL', 'PREPAY APPL REC TAX',
'PREPAY APPL NONREC TAX', 'AWT',
'EXCHANGE RATE VARIANCE');
SELECT SUM(--DECODE(APHD.Pay_Dist_Lookup_Code,
--'EXCHANGE RATE VARIANCE', -1 * APHD.Amount,
APHD.Amount)
INTO l_paid_acctd_amt
FROM AP_Payment_Hist_Dists APHD,
AP_Invoice_Distributions_All AID,
AP_Payment_History_All APH
WHERE AID.Invoice_ID = p_inv_rec.invoice_id
AND AID.Invoice_Distribution_ID = APHD.Invoice_Distribution_ID
AND APHD.Pay_Dist_Lookup_Code IN ('CASH', 'DISCOUNT', 'AWT')
AND APH.Posted_Flag = 'Y'
AND APH.Payment_History_ID = APHD.Payment_History_ID
AND APH.Transaction_Type IN ('PAYMENT CLEARING', 'PAYMENT UNCLEARING',
'PAYMENT CLEARING ADJUSTED');
SELECT SUM(--DECODE(APHD.Pay_Dist_Lookup_Code,
--'EXCHANGE RATE VARIANCE', -1 * APHD.Amount,
APHD.Amount)
INTO l_paid_acctd_amt
FROM AP_Payment_Hist_Dists APHD,
AP_Invoice_Distributions_All AID,
AP_Payment_History_All APH
WHERE AID.Invoice_ID = p_inv_rec.invoice_id
AND AID.Invoice_Distribution_ID = APHD.Invoice_Distribution_ID
AND APHD.Pay_Dist_Lookup_Code IN ('CASH', 'DISCOUNT', 'AWT')
AND APH.Posted_Flag = 'Y'
AND APH.Payment_History_ID = APHD.Payment_History_ID
AND APH.Transaction_Type IN ('PAYMENT MATURITY', 'PAYMENT MATURITY REVERSED',
'PAYMENT MATURITY ADJUSTED');
SELECT SUM(--DECODE(APHD.Pay_Dist_Lookup_Code,
--'EXCHANGE RATE VARIANCE', -1 * APHD.Amount,
APHD.Amount)
INTO l_paid_acctd_amt
FROM AP_Payment_Hist_Dists APHD,
AP_Invoice_Distributions_All AID,
AP_Payment_History_All APH
WHERE AID.Invoice_ID = p_inv_rec.invoice_id
AND AID.Invoice_Distribution_ID = APHD.Invoice_Distribution_ID
AND APHD.Pay_Dist_Lookup_Code IN ('CASH', 'DISCOUNT', 'AWT')
AND APH.Posted_Flag = 'Y'
AND APH.Payment_History_ID = APHD.Payment_History_ID
AND APH.Transaction_Type IN ('PAYMENT CREATED', 'PAYMENT CANCELLED', 'PAYMENT ADJUSTED',
'MANUAL PAYMENT ADJUSTED', 'UPGRADED MANUAL PMT ADJUSTED',
'REFUND RECORDED', 'REFUND ADJUSTED', 'REFUND CANCELLED');
SELECT SUM(APAD.Amount)
INTO l_prepaid_acctd_amt
FROM AP_Prepay_App_Dists APAD,
AP_Invoice_Distributions_All AID
WHERE AID.Invoice_ID = p_inv_rec.invoice_id
AND AID.Invoice_Distribution_ID = APAD.Invoice_Distribution_ID
AND APAD.Prepay_Dist_Lookup_Code IN ('PREPAY APPL', 'PREPAY APPL REC TAX',
'PREPAY APPL NONREC TAX', 'AWT');