[Home] [Help]
18: -- Single point of entry for the rounding calculations.
19: --
20: --------------------------------------------------------------------------------
21: PROCEDURE Do_Rounding
22: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
23: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
24: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
25: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
26: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
19: --
20: --------------------------------------------------------------------------------
21: PROCEDURE Do_Rounding
22: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
23: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
24: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
25: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
26: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
27: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
20: --------------------------------------------------------------------------------
21: PROCEDURE Do_Rounding
22: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
23: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
24: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
25: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
26: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
27: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
28: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
21: PROCEDURE Do_Rounding
22: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
23: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
24: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
25: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
26: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
27: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
28: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
29: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
23: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
24: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
25: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
26: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
27: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
28: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
29: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
30: ,P_Calling_Sequence IN VARCHAR2
31: ) IS
58:
59:
60: /* Check for rounding only if the invoice currency or payment currency is different than
61: the base currency */
62: IF (p_inv_rec.invoice_currency_code <> ap_accounting_pay_pkg.g_base_currency_code) OR
63: (p_inv_rec.payment_currency_code <> ap_accounting_pay_pkg.g_base_currency_code) THEN
64:
65: IF (p_prepay_dist_rec.invoice_distribution_id IS NOT NULL) THEN
66: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
59:
60: /* Check for rounding only if the invoice currency or payment currency is different than
61: the base currency */
62: IF (p_inv_rec.invoice_currency_code <> ap_accounting_pay_pkg.g_base_currency_code) OR
63: (p_inv_rec.payment_currency_code <> ap_accounting_pay_pkg.g_base_currency_code) THEN
64:
65: IF (p_prepay_dist_rec.invoice_distribution_id IS NOT NULL) THEN
66: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
67: l_log_msg := 'Calling procedure Total_Appl for dist: '
173: END IF; -- if prepayment event type
174:
175:
176: /* Calculating the final payment rounding only when the invoice is fully paid */
177: IF (AP_Accounting_Pay_Pkg.Is_Final_Payment(p_inv_rec,
178: 0, -- payment amt
179: 0, -- discount taken
180: 0, -- prepay amount
181: p_xla_event_rec.event_type_code,
269: -- a final payment rounding if the amount is not fully relieved.
270: --
271: --------------------------------------------------------------------------------
272: PROCEDURE Final_Pay
273: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
274: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
275: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
276: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
277: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
270: --
271: --------------------------------------------------------------------------------
272: PROCEDURE Final_Pay
273: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
274: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
275: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
276: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
277: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
278: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
271: --------------------------------------------------------------------------------
272: PROCEDURE Final_Pay
273: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
274: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
275: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
276: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
277: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
278: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
279: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
272: PROCEDURE Final_Pay
273: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
274: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
275: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
276: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
277: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
278: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
279: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
280: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
274: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
275: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
276: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
277: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
278: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
279: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
280: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
281: ,P_Calling_Sequence IN VARCHAR2
282: ) IS
698: -- total payment rounding if the amounts are not fully relieved
699: --
700: --------------------------------------------------------------------------------
701: PROCEDURE Total_Pay
702: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
703: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
704: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
705: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
706: ,P_Calling_Sequence IN VARCHAR2
699: --
700: --------------------------------------------------------------------------------
701: PROCEDURE Total_Pay
702: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
703: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
704: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
705: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
706: ,P_Calling_Sequence IN VARCHAR2
707: ) IS
700: --------------------------------------------------------------------------------
701: PROCEDURE Total_Pay
702: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
703: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
704: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
705: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
706: ,P_Calling_Sequence IN VARCHAR2
707: ) IS
708:
800: l_inv_rate_total_amt := p_inv_pay_rec.invoice_base_amount;
801:
802: IF p_inv_pay_rec.discount_taken <> 0 THEN
803:
804: l_disc_pay_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
805: (p_inv_pay_rec.discount_taken,
806: p_pay_hist_rec.pmt_currency_code,
807: ap_accounting_pay_pkg.g_base_currency_code,
808: p_pay_hist_rec.pmt_to_base_xrate_type,
803:
804: l_disc_pay_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
805: (p_inv_pay_rec.discount_taken,
806: p_pay_hist_rec.pmt_currency_code,
807: ap_accounting_pay_pkg.g_base_currency_code,
808: p_pay_hist_rec.pmt_to_base_xrate_type,
809: p_pay_hist_rec.pmt_to_base_xrate_date,
810: p_pay_hist_rec.pmt_to_base_xrate,
811: l_curr_calling_sequence);
872:
873: IF (p_xla_event_rec.event_type_code IN ('PAYMENT CLEARED',
874: 'PAYMENT CLEARING ADJUSTED')) THEN
875:
876: l_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
877: (p_inv_pay_rec.amount,
878: p_pay_hist_rec.pmt_currency_code,
879: ap_accounting_pay_pkg.g_base_currency_code,
880: p_pay_hist_rec.pmt_to_base_xrate_type,
875:
876: l_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
877: (p_inv_pay_rec.amount,
878: p_pay_hist_rec.pmt_currency_code,
879: ap_accounting_pay_pkg.g_base_currency_code,
880: p_pay_hist_rec.pmt_to_base_xrate_type,
881: p_pay_hist_rec.pmt_to_base_xrate_date,
882: p_pay_hist_rec.pmt_to_base_xrate,
883: l_curr_calling_sequence);
884:
885:
886: IF p_inv_pay_rec.discount_taken <> 0 THEN
887:
888: l_disc_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
889: (p_inv_pay_rec.discount_taken,
890: p_pay_hist_rec.pmt_currency_code,
891: ap_accounting_pay_pkg.g_base_currency_code,
892: p_pay_hist_rec.pmt_to_base_xrate_type,
887:
888: l_disc_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
889: (p_inv_pay_rec.discount_taken,
890: p_pay_hist_rec.pmt_currency_code,
891: ap_accounting_pay_pkg.g_base_currency_code,
892: p_pay_hist_rec.pmt_to_base_xrate_type,
893: p_pay_hist_rec.pmt_to_base_xrate_date,
894: p_pay_hist_rec.pmt_to_base_xrate,
895: l_curr_calling_sequence);
896: END IF;
897:
898: IF p_pay_hist_rec.errors_bank_amount <> 0 THEN
899:
900: l_err_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
901: (p_pay_hist_rec.errors_bank_amount,
902: p_pay_hist_rec.pmt_currency_code,
903: ap_accounting_pay_pkg.g_base_currency_code,
904: p_pay_hist_rec.pmt_to_base_xrate_type,
899:
900: l_err_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
901: (p_pay_hist_rec.errors_bank_amount,
902: p_pay_hist_rec.pmt_currency_code,
903: ap_accounting_pay_pkg.g_base_currency_code,
904: p_pay_hist_rec.pmt_to_base_xrate_type,
905: p_pay_hist_rec.pmt_to_base_xrate_date,
906: p_pay_hist_rec.pmt_to_base_xrate,
907: l_curr_calling_sequence);
908: END IF;
909:
910: IF p_pay_hist_rec.charges_bank_amount <> 0 THEN
911:
912: l_chrg_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
913: (p_pay_hist_rec.charges_bank_amount,
914: p_pay_hist_rec.pmt_currency_code,
915: ap_accounting_pay_pkg.g_base_currency_code,
916: p_pay_hist_rec.pmt_to_base_xrate_type,
911:
912: l_chrg_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
913: (p_pay_hist_rec.charges_bank_amount,
914: p_pay_hist_rec.pmt_currency_code,
915: ap_accounting_pay_pkg.g_base_currency_code,
916: p_pay_hist_rec.pmt_to_base_xrate_type,
917: p_pay_hist_rec.pmt_to_base_xrate_date,
918: p_pay_hist_rec.pmt_to_base_xrate,
919: l_curr_calling_sequence);
922:
923: ELSIF (p_xla_event_rec.event_type_code IN ('PAYMENT MATURED',
924: 'PAYMENT MATURITY ADJUSTED')) THEN
925:
926: l_mat_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
927: (p_inv_pay_rec.amount,
928: p_pay_hist_rec.pmt_currency_code,
929: ap_accounting_pay_pkg.g_base_currency_code,
930: p_pay_hist_rec.pmt_to_base_xrate_type,
925:
926: l_mat_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
927: (p_inv_pay_rec.amount,
928: p_pay_hist_rec.pmt_currency_code,
929: ap_accounting_pay_pkg.g_base_currency_code,
930: p_pay_hist_rec.pmt_to_base_xrate_type,
931: p_pay_hist_rec.pmt_to_base_xrate_date,
932: p_pay_hist_rec.pmt_to_base_xrate,
933: l_curr_calling_sequence);
933: l_curr_calling_sequence);
934:
935: ELSE
936:
937: l_pay_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
938: (p_inv_pay_rec.amount,
939: p_pay_hist_rec.pmt_currency_code,
940: ap_accounting_pay_pkg.g_base_currency_code,
941: p_pay_hist_rec.pmt_to_base_xrate_type,
936:
937: l_pay_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
938: (p_inv_pay_rec.amount,
939: p_pay_hist_rec.pmt_currency_code,
940: ap_accounting_pay_pkg.g_base_currency_code,
941: p_pay_hist_rec.pmt_to_base_xrate_type,
942: p_pay_hist_rec.pmt_to_base_xrate_date,
943: p_pay_hist_rec.pmt_to_base_xrate,
944: l_curr_calling_sequence);
944: l_curr_calling_sequence);
945:
946: IF p_inv_pay_rec.discount_taken <> 0 THEN
947:
948: l_disc_pay_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
949: (p_inv_pay_rec.discount_taken,
950: p_pay_hist_rec.pmt_currency_code,
951: ap_accounting_pay_pkg.g_base_currency_code,
952: p_pay_hist_rec.pmt_to_base_xrate_type,
947:
948: l_disc_pay_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
949: (p_inv_pay_rec.discount_taken,
950: p_pay_hist_rec.pmt_currency_code,
951: ap_accounting_pay_pkg.g_base_currency_code,
952: p_pay_hist_rec.pmt_to_base_xrate_type,
953: p_pay_hist_rec.pmt_to_base_xrate_date,
954: p_pay_hist_rec.pmt_to_base_xrate,
955: l_curr_calling_sequence);
1276: -- MATURITY TO CLEARING ROUNDING
1277: --
1278: --------------------------------------------------------------------------------
1279: PROCEDURE Compare_Pay
1280: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1281: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1282: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1283: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
1284: ,P_Calling_Sequence IN VARCHAR2
1277: --
1278: --------------------------------------------------------------------------------
1279: PROCEDURE Compare_Pay
1280: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1281: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1282: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1283: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
1284: ,P_Calling_Sequence IN VARCHAR2
1285: ) IS
1278: --------------------------------------------------------------------------------
1279: PROCEDURE Compare_Pay
1280: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1281: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1282: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1283: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
1284: ,P_Calling_Sequence IN VARCHAR2
1285: ) IS
1286:
1346: INTO l_sum_pay_paid_base_amt
1347: FROM AP_Payment_Hist_Dists APHD,
1348: AP_Payment_History_All APH,
1349: AP_Payment_History_All APH1
1350: WHERE APH1.Payment_History_ID = ap_accounting_pay_pkg.g_pay_pmt_history_id
1351: AND APH.Related_Event_ID = APH1.Accounting_Event_ID
1352: AND APHD.Payment_History_ID = APH.Payment_History_ID
1353: AND APHD.Pay_Dist_Lookup_Code IN ('CASH')
1354: AND APHD.Invoice_Distribution_ID IN
1364: l_sum_mat_mat_base_amt
1365: FROM AP_Payment_Hist_Dists APHD,
1366: AP_Payment_History_All APH,
1367: AP_Payment_History_All APH1
1368: WHERE APH1.Payment_History_ID = ap_accounting_pay_pkg.g_mat_pmt_history_id
1369: AND APH.Related_Event_ID = APH1.Accounting_Event_ID
1370: AND APHD.Payment_History_ID = APH.Payment_History_ID
1371: AND APHD.Pay_Dist_Lookup_Code IN ('CASH')
1372: AND APHD.Invoice_Distribution_ID IN
1387: l_sum_clr_mat_base_amt
1388: FROM AP_Payment_Hist_Dists APHD,
1389: AP_Payment_History_All APH,
1390: AP_Payment_History_All APH1
1391: WHERE APH1.Payment_History_ID = ap_accounting_pay_pkg.g_clr_pmt_history_id
1392: AND APH.Related_Event_ID = APH1.Accounting_Event_ID
1393: AND APHD.Payment_History_ID = APH.Payment_History_ID
1394: AND APHD.Pay_Dist_Lookup_Code IN ('CASH')
1395: AND APHD.Invoice_Distribution_ID IN
1540: -- relieved by their corresponding records in APAD
1541: --
1542: --------------------------------------------------------------------------------
1543: PROCEDURE Total_Appl
1544: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1545: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1546: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1547: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1548: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1541: --
1542: --------------------------------------------------------------------------------
1543: PROCEDURE Total_Appl
1544: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1545: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1546: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1547: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1548: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1549: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
1542: --------------------------------------------------------------------------------
1543: PROCEDURE Total_Appl
1544: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1545: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1546: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1547: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1548: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1549: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
1550: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
1543: PROCEDURE Total_Appl
1544: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1545: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1546: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1547: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1548: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1549: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
1550: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
1551: ,P_Calling_Sequence IN VARCHAR2
1544: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1545: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1546: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1547: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1548: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1549: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
1550: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
1551: ,P_Calling_Sequence IN VARCHAR2
1552: ) IS
1621: AND APAD2.Prepay_History_ID = p_prepay_hist_rec.prepay_history_id))
1622: AND Rownum = 1;
1623:
1624:
1625: l_tot_inv_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1626: (p_prepay_dist_rec.amount,
1627: p_inv_rec.invoice_currency_code,
1628: ap_accounting_pay_pkg.g_base_currency_code,
1629: p_inv_rec.exchange_rate_type,
1624:
1625: l_tot_inv_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1626: (p_prepay_dist_rec.amount,
1627: p_inv_rec.invoice_currency_code,
1628: ap_accounting_pay_pkg.g_base_currency_code,
1629: p_inv_rec.exchange_rate_type,
1630: p_inv_rec.exchange_date,
1631: p_inv_rec.exchange_rate,
1632: l_curr_calling_sequence);
1631: p_inv_rec.exchange_rate,
1632: l_curr_calling_sequence);
1633:
1634:
1635: l_tot_prepay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1636: (p_prepay_dist_rec.amount,
1637: p_inv_rec.invoice_currency_code,
1638: ap_accounting_pay_pkg.g_base_currency_code,
1639: l_max_prepay_rec.prepay_exchange_rate_type,
1634:
1635: l_tot_prepay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1636: (p_prepay_dist_rec.amount,
1637: p_inv_rec.invoice_currency_code,
1638: ap_accounting_pay_pkg.g_base_currency_code,
1639: l_max_prepay_rec.prepay_exchange_rate_type,
1640: l_max_prepay_rec.prepay_exchange_date,
1641: l_max_prepay_rec.prepay_exchange_rate,
1642: l_curr_calling_sequence);
1652: l_prepay_pay_tax_diff := p_prepay_dist_rec.prepay_tax_diff_amount;
1653: END IF;
1654:
1655:
1656: l_tot_prepay_pay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1657: (l_prepay_pay_amt,
1658: p_inv_rec.payment_currency_code,
1659: ap_accounting_pay_pkg.g_base_currency_code,
1660: l_max_prepay_rec.prepay_pay_exchange_rate_type,
1655:
1656: l_tot_prepay_pay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1657: (l_prepay_pay_amt,
1658: p_inv_rec.payment_currency_code,
1659: ap_accounting_pay_pkg.g_base_currency_code,
1660: l_max_prepay_rec.prepay_pay_exchange_rate_type,
1661: l_max_prepay_rec.prepay_pay_exchange_date,
1662: l_max_prepay_rec.prepay_pay_exchange_rate,
1663: l_curr_calling_sequence);
1661: l_max_prepay_rec.prepay_pay_exchange_date,
1662: l_max_prepay_rec.prepay_pay_exchange_rate,
1663: l_curr_calling_sequence);
1664:
1665: l_td_tot_inv_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1666: (p_prepay_dist_rec.prepay_tax_diff_amount,
1667: p_inv_rec.invoice_currency_code,
1668: ap_accounting_pay_pkg.g_base_currency_code,
1669: p_inv_rec.exchange_rate_type,
1664:
1665: l_td_tot_inv_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1666: (p_prepay_dist_rec.prepay_tax_diff_amount,
1667: p_inv_rec.invoice_currency_code,
1668: ap_accounting_pay_pkg.g_base_currency_code,
1669: p_inv_rec.exchange_rate_type,
1670: p_inv_rec.exchange_date,
1671: p_inv_rec.exchange_rate,
1672: l_curr_calling_sequence);
1671: p_inv_rec.exchange_rate,
1672: l_curr_calling_sequence);
1673:
1674:
1675: l_td_tot_prepay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1676: (p_prepay_dist_rec.prepay_tax_diff_amount,
1677: p_inv_rec.invoice_currency_code,
1678: ap_accounting_pay_pkg.g_base_currency_code,
1679: l_max_prepay_rec.prepay_exchange_rate_type,
1674:
1675: l_td_tot_prepay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1676: (p_prepay_dist_rec.prepay_tax_diff_amount,
1677: p_inv_rec.invoice_currency_code,
1678: ap_accounting_pay_pkg.g_base_currency_code,
1679: l_max_prepay_rec.prepay_exchange_rate_type,
1680: l_max_prepay_rec.prepay_exchange_date,
1681: l_max_prepay_rec.prepay_exchange_rate,
1682: l_curr_calling_sequence);
1681: l_max_prepay_rec.prepay_exchange_rate,
1682: l_curr_calling_sequence);
1683:
1684:
1685: l_td_tot_prepay_pay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1686: (l_prepay_pay_tax_diff,
1687: p_inv_rec.payment_currency_code,
1688: ap_accounting_pay_pkg.g_base_currency_code,
1689: l_max_prepay_rec.prepay_pay_exchange_rate_type,
1684:
1685: l_td_tot_prepay_pay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1686: (l_prepay_pay_tax_diff,
1687: p_inv_rec.payment_currency_code,
1688: ap_accounting_pay_pkg.g_base_currency_code,
1689: l_max_prepay_rec.prepay_pay_exchange_rate_type,
1690: l_max_prepay_rec.prepay_pay_exchange_date,
1691: l_max_prepay_rec.prepay_pay_exchange_rate,
1692: l_curr_calling_sequence);
1693:
1694:
1695: IF l_max_prepay_rec.prepay_clr_exchange_rate IS NOT NULL THEN
1696:
1697: l_tot_prepay_clr_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1698: (l_prepay_pay_amt,
1699: p_inv_rec.payment_currency_code,
1700: ap_accounting_pay_pkg.g_base_currency_code,
1701: l_max_prepay_rec.prepay_clr_exchange_rate_type,
1696:
1697: l_tot_prepay_clr_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1698: (l_prepay_pay_amt,
1699: p_inv_rec.payment_currency_code,
1700: ap_accounting_pay_pkg.g_base_currency_code,
1701: l_max_prepay_rec.prepay_clr_exchange_rate_type,
1702: l_max_prepay_rec.prepay_clr_exchange_date,
1703: l_max_prepay_rec.prepay_clr_exchange_rate,
1704: l_curr_calling_sequence);
1702: l_max_prepay_rec.prepay_clr_exchange_date,
1703: l_max_prepay_rec.prepay_clr_exchange_rate,
1704: l_curr_calling_sequence);
1705:
1706: l_td_tot_prepay_clr_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1707: (l_prepay_pay_tax_diff,
1708: p_inv_rec.payment_currency_code,
1709: ap_accounting_pay_pkg.g_base_currency_code,
1710: l_max_prepay_rec.prepay_clr_exchange_rate_type,
1705:
1706: l_td_tot_prepay_clr_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1707: (l_prepay_pay_tax_diff,
1708: p_inv_rec.payment_currency_code,
1709: ap_accounting_pay_pkg.g_base_currency_code,
1710: l_max_prepay_rec.prepay_clr_exchange_rate_type,
1711: l_max_prepay_rec.prepay_clr_exchange_date,
1712: l_max_prepay_rec.prepay_clr_exchange_rate,
1713: l_curr_calling_sequence);
1861: -- prepayment distribution
1862: --
1863: --------------------------------------------------------------------------------
1864: PROCEDURE Final_Appl
1865: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1866: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1867: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1868: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1869: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1862: --
1863: --------------------------------------------------------------------------------
1864: PROCEDURE Final_Appl
1865: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1866: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1867: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1868: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1869: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1870: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
1863: --------------------------------------------------------------------------------
1864: PROCEDURE Final_Appl
1865: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1866: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1867: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1868: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1869: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1870: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
1871: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
1864: PROCEDURE Final_Appl
1865: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1866: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1867: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1868: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1869: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1870: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
1871: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
1872: ,P_Calling_Sequence IN VARCHAR2
1865: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
1866: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1867: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
1868: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1869: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
1870: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
1871: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
1872: ,P_Calling_Sequence IN VARCHAR2
1873: ) IS