[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
59:
60:
61: /* Check for rounding only if the invoice currency or payment currency is different than
62: the base currency */
63: IF (p_inv_rec.invoice_currency_code <> ap_accounting_pay_pkg.g_base_currency_code) OR
64: (p_inv_rec.payment_currency_code <> ap_accounting_pay_pkg.g_base_currency_code) THEN
65:
66: IF p_prepay_dist_rec.invoice_distribution_id IS NOT NULL THEN
67:
60:
61: /* Check for rounding only if the invoice currency or payment currency is different than
62: the base currency */
63: IF (p_inv_rec.invoice_currency_code <> ap_accounting_pay_pkg.g_base_currency_code) OR
64: (p_inv_rec.payment_currency_code <> ap_accounting_pay_pkg.g_base_currency_code) THEN
65:
66: IF p_prepay_dist_rec.invoice_distribution_id IS NOT NULL THEN
67:
68: IF NOT AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists(P_Rounding_Method => AP_ACCOUNTING_PAY_PKG.G_TOTAL_APPL
64: (p_inv_rec.payment_currency_code <> ap_accounting_pay_pkg.g_base_currency_code) THEN
65:
66: IF p_prepay_dist_rec.invoice_distribution_id IS NOT NULL THEN
67:
68: IF NOT AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists(P_Rounding_Method => AP_ACCOUNTING_PAY_PKG.G_TOTAL_APPL
69: ,P_Inv_Rec => p_inv_rec
70: ,P_Invoice_Payment_id => NULL
71: ,P_Prepay_Appl_Distribution_Id => p_prepay_dist_rec.invoice_distribution_id
72: ,P_Prepay_Distribution_Id => NULL
96: l_log_msg := 'Procedure Total_Appl executed';
97: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
98: END IF;
99:
100: END IF; -- AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists
101:
102: IF NOT AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists(P_Rounding_Method => AP_ACCOUNTING_PAY_PKG.G_FINAL_APPL
103: ,P_Inv_Rec => p_inv_rec
104: ,P_Invoice_Payment_Id => NULL
98: END IF;
99:
100: END IF; -- AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists
101:
102: IF NOT AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists(P_Rounding_Method => AP_ACCOUNTING_PAY_PKG.G_FINAL_APPL
103: ,P_Inv_Rec => p_inv_rec
104: ,P_Invoice_Payment_Id => NULL
105: ,P_Prepay_Appl_Distribution_Id => NULL
106: ,P_Prepay_Distribution_Id => p_prepay_dist_rec.prepay_distribution_id
149: END IF;
150:
151: END IF;
152:
153: END IF; -- AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists
154:
155: ELSE
156:
157: IF NOT AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists(P_Rounding_Method => AP_ACCOUNTING_PAY_PKG.G_TOTAL_PAY
153: END IF; -- AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists
154:
155: ELSE
156:
157: IF NOT AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists(P_Rounding_Method => AP_ACCOUNTING_PAY_PKG.G_TOTAL_PAY
158: ,P_Inv_Rec => p_inv_rec
159: ,P_Invoice_Payment_Id => p_inv_pay_rec.invoice_payment_id
160: ,P_Prepay_Appl_Distribution_Id => NULL
161: ,P_Prepay_Distribution_Id => NULL
184: END IF;
185:
186: END IF;
187:
188: IF NOT AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists(P_Rounding_Method => AP_ACCOUNTING_PAY_PKG.G_COMPARE_PAY
189: ,P_Inv_Rec => p_inv_rec
190: ,P_Invoice_Payment_Id => p_inv_pay_rec.invoice_payment_id
191: ,P_Prepay_Appl_Distribution_Id => NULL
192: ,P_Prepay_Distribution_Id => NULL
213: l_log_msg := 'Procedure Compare_Pay executed';
214: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
215: END IF;
216:
217: END IF; -- AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists
218:
219: END IF; -- if prepayment event type
220:
221: /* Calculating the final payment rounding only when the invoice is fully paid */
219: END IF; -- if prepayment event type
220:
221: /* Calculating the final payment rounding only when the invoice is fully paid */
222: /* bug 9108925 -- the logic to check if the current event is the final pay/prepay event
223: for the invoice has been moved to AP_ACCOUNTING_PAY_PKG, function Is_Final_Event for
224: common reference */
225: IF AP_Accounting_Pay_Pkg.Is_Final_Payment(p_inv_rec,
226: 0, -- payment amt
227: 0, -- discount taken
221: /* Calculating the final payment rounding only when the invoice is fully paid */
222: /* bug 9108925 -- the logic to check if the current event is the final pay/prepay event
223: for the invoice has been moved to AP_ACCOUNTING_PAY_PKG, function Is_Final_Event for
224: common reference */
225: IF AP_Accounting_Pay_Pkg.Is_Final_Payment(p_inv_rec,
226: 0, -- payment amt
227: 0, -- discount taken
228: 0, -- prepay amount
229: p_xla_event_rec.event_type_code,
227: 0, -- discount taken
228: 0, -- prepay amount
229: p_xla_event_rec.event_type_code,
230: l_curr_calling_sequence)
231: AND AP_ACCOUNTING_PAY_PKG.Is_Final_Event(p_inv_rec,
232: p_xla_event_rec,
233: P_Prepay_Dist_Rec.Invoice_Distribution_Id,
234: l_curr_calling_sequence) THEN
235:
302: -- a final payment rounding if the amount is not fully relieved.
303: --
304: --------------------------------------------------------------------------------
305: PROCEDURE Final_Pay
306: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
307: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
308: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
309: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
310: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
303: --
304: --------------------------------------------------------------------------------
305: PROCEDURE Final_Pay
306: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
307: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
308: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
309: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
310: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
311: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
304: --------------------------------------------------------------------------------
305: PROCEDURE Final_Pay
306: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
307: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
308: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
309: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
310: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
311: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
312: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
305: PROCEDURE Final_Pay
306: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
307: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
308: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
309: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
310: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
311: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
312: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
313: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
307: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
308: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
309: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
310: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
311: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
312: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
313: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
314: ,P_Calling_Sequence IN VARCHAR2
315: ) IS
784: -- total payment rounding if the amounts are not fully relieved
785: --
786: --------------------------------------------------------------------------------
787: PROCEDURE Total_Pay
788: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
789: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
790: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
791: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
792: ,P_Calling_Sequence IN VARCHAR2
785: --
786: --------------------------------------------------------------------------------
787: PROCEDURE Total_Pay
788: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
789: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
790: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
791: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
792: ,P_Calling_Sequence IN VARCHAR2
793: ) IS
786: --------------------------------------------------------------------------------
787: PROCEDURE Total_Pay
788: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
789: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
790: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
791: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
792: ,P_Calling_Sequence IN VARCHAR2
793: ) IS
794:
937: l_inv_rate_total_amt := p_inv_pay_rec.invoice_base_amount;
938:
939: IF p_inv_pay_rec.discount_taken <> 0 THEN
940:
941: l_disc_pay_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
942: (p_inv_pay_rec.discount_taken,
943: p_pay_hist_rec.pmt_currency_code,
944: ap_accounting_pay_pkg.g_base_currency_code,
945: p_pay_hist_rec.pmt_to_base_xrate_type,
940:
941: l_disc_pay_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
942: (p_inv_pay_rec.discount_taken,
943: p_pay_hist_rec.pmt_currency_code,
944: ap_accounting_pay_pkg.g_base_currency_code,
945: p_pay_hist_rec.pmt_to_base_xrate_type,
946: p_pay_hist_rec.pmt_to_base_xrate_date,
947: p_pay_hist_rec.pmt_to_base_xrate,
948: l_curr_calling_sequence);
1074:
1075: IF (p_xla_event_rec.event_type_code IN ('PAYMENT CLEARED',
1076: 'PAYMENT CLEARING ADJUSTED')) THEN
1077:
1078: l_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1079: (p_inv_pay_rec.amount,
1080: p_pay_hist_rec.pmt_currency_code,
1081: ap_accounting_pay_pkg.g_base_currency_code,
1082: p_pay_hist_rec.pmt_to_base_xrate_type,
1077:
1078: l_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1079: (p_inv_pay_rec.amount,
1080: p_pay_hist_rec.pmt_currency_code,
1081: ap_accounting_pay_pkg.g_base_currency_code,
1082: p_pay_hist_rec.pmt_to_base_xrate_type,
1083: p_pay_hist_rec.pmt_to_base_xrate_date,
1084: p_pay_hist_rec.pmt_to_base_xrate,
1085: l_curr_calling_sequence);
1086:
1087:
1088: IF p_inv_pay_rec.discount_taken <> 0 THEN
1089:
1090: l_disc_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1091: (p_inv_pay_rec.discount_taken,
1092: p_pay_hist_rec.pmt_currency_code,
1093: ap_accounting_pay_pkg.g_base_currency_code,
1094: p_pay_hist_rec.pmt_to_base_xrate_type,
1089:
1090: l_disc_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1091: (p_inv_pay_rec.discount_taken,
1092: p_pay_hist_rec.pmt_currency_code,
1093: ap_accounting_pay_pkg.g_base_currency_code,
1094: p_pay_hist_rec.pmt_to_base_xrate_type,
1095: p_pay_hist_rec.pmt_to_base_xrate_date,
1096: p_pay_hist_rec.pmt_to_base_xrate,
1097: l_curr_calling_sequence);
1098: END IF;
1099:
1100: IF p_pay_hist_rec.errors_bank_amount <> 0 THEN
1101:
1102: l_err_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1103: (p_pay_hist_rec.errors_bank_amount,
1104: p_pay_hist_rec.pmt_currency_code,
1105: ap_accounting_pay_pkg.g_base_currency_code,
1106: p_pay_hist_rec.pmt_to_base_xrate_type,
1101:
1102: l_err_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1103: (p_pay_hist_rec.errors_bank_amount,
1104: p_pay_hist_rec.pmt_currency_code,
1105: ap_accounting_pay_pkg.g_base_currency_code,
1106: p_pay_hist_rec.pmt_to_base_xrate_type,
1107: p_pay_hist_rec.pmt_to_base_xrate_date,
1108: p_pay_hist_rec.pmt_to_base_xrate,
1109: l_curr_calling_sequence);
1110: END IF;
1111:
1112: IF p_pay_hist_rec.charges_bank_amount <> 0 THEN
1113:
1114: l_chrg_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1115: (p_pay_hist_rec.charges_bank_amount,
1116: p_pay_hist_rec.pmt_currency_code,
1117: ap_accounting_pay_pkg.g_base_currency_code,
1118: p_pay_hist_rec.pmt_to_base_xrate_type,
1113:
1114: l_chrg_clr_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1115: (p_pay_hist_rec.charges_bank_amount,
1116: p_pay_hist_rec.pmt_currency_code,
1117: ap_accounting_pay_pkg.g_base_currency_code,
1118: p_pay_hist_rec.pmt_to_base_xrate_type,
1119: p_pay_hist_rec.pmt_to_base_xrate_date,
1120: p_pay_hist_rec.pmt_to_base_xrate,
1121: l_curr_calling_sequence);
1131: 'PAYMENT CLEARED',
1132: 'PAYMENT CLEARING ADJUSTED')) THEN
1133:
1134: --9849243 Mat Rate total amt should be calculated with Maturity Exchange Rate
1135: IF ( ap_accounting_pay_pkg.g_mat_to_base_xrate_type IS NOT NULL AND
1136: ap_accounting_pay_pkg.g_mat_to_base_xrate_date IS NOT NULL AND
1137: ap_accounting_pay_pkg.g_mat_to_base_xrate IS NOT NULL) THEN
1138:
1139: l_rate_type := ap_accounting_pay_pkg.g_mat_to_base_xrate_type;
1132: 'PAYMENT CLEARING ADJUSTED')) THEN
1133:
1134: --9849243 Mat Rate total amt should be calculated with Maturity Exchange Rate
1135: IF ( ap_accounting_pay_pkg.g_mat_to_base_xrate_type IS NOT NULL AND
1136: ap_accounting_pay_pkg.g_mat_to_base_xrate_date IS NOT NULL AND
1137: ap_accounting_pay_pkg.g_mat_to_base_xrate IS NOT NULL) THEN
1138:
1139: l_rate_type := ap_accounting_pay_pkg.g_mat_to_base_xrate_type;
1140: l_rate_date := ap_accounting_pay_pkg.g_mat_to_base_xrate_date;
1133:
1134: --9849243 Mat Rate total amt should be calculated with Maturity Exchange Rate
1135: IF ( ap_accounting_pay_pkg.g_mat_to_base_xrate_type IS NOT NULL AND
1136: ap_accounting_pay_pkg.g_mat_to_base_xrate_date IS NOT NULL AND
1137: ap_accounting_pay_pkg.g_mat_to_base_xrate IS NOT NULL) THEN
1138:
1139: l_rate_type := ap_accounting_pay_pkg.g_mat_to_base_xrate_type;
1140: l_rate_date := ap_accounting_pay_pkg.g_mat_to_base_xrate_date;
1141: l_rate := ap_accounting_pay_pkg.g_mat_to_base_xrate;
1135: IF ( ap_accounting_pay_pkg.g_mat_to_base_xrate_type IS NOT NULL AND
1136: ap_accounting_pay_pkg.g_mat_to_base_xrate_date IS NOT NULL AND
1137: ap_accounting_pay_pkg.g_mat_to_base_xrate IS NOT NULL) THEN
1138:
1139: l_rate_type := ap_accounting_pay_pkg.g_mat_to_base_xrate_type;
1140: l_rate_date := ap_accounting_pay_pkg.g_mat_to_base_xrate_date;
1141: l_rate := ap_accounting_pay_pkg.g_mat_to_base_xrate;
1142: ELSE
1143: l_rate_type := p_pay_hist_rec.pmt_to_base_xrate_type;
1136: ap_accounting_pay_pkg.g_mat_to_base_xrate_date IS NOT NULL AND
1137: ap_accounting_pay_pkg.g_mat_to_base_xrate IS NOT NULL) THEN
1138:
1139: l_rate_type := ap_accounting_pay_pkg.g_mat_to_base_xrate_type;
1140: l_rate_date := ap_accounting_pay_pkg.g_mat_to_base_xrate_date;
1141: l_rate := ap_accounting_pay_pkg.g_mat_to_base_xrate;
1142: ELSE
1143: l_rate_type := p_pay_hist_rec.pmt_to_base_xrate_type;
1144: l_rate_date := p_pay_hist_rec.pmt_to_base_xrate_date;
1137: ap_accounting_pay_pkg.g_mat_to_base_xrate IS NOT NULL) THEN
1138:
1139: l_rate_type := ap_accounting_pay_pkg.g_mat_to_base_xrate_type;
1140: l_rate_date := ap_accounting_pay_pkg.g_mat_to_base_xrate_date;
1141: l_rate := ap_accounting_pay_pkg.g_mat_to_base_xrate;
1142: ELSE
1143: l_rate_type := p_pay_hist_rec.pmt_to_base_xrate_type;
1144: l_rate_date := p_pay_hist_rec.pmt_to_base_xrate_date;
1145: l_rate := p_pay_hist_rec.pmt_to_base_xrate;
1144: l_rate_date := p_pay_hist_rec.pmt_to_base_xrate_date;
1145: l_rate := p_pay_hist_rec.pmt_to_base_xrate;
1146: END IF; --9849243 Ends
1147:
1148: l_mat_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1149: (p_inv_pay_rec.amount,
1150: p_pay_hist_rec.pmt_currency_code,
1151: ap_accounting_pay_pkg.g_base_currency_code,
1152: l_rate_type, --9849243
1147:
1148: l_mat_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1149: (p_inv_pay_rec.amount,
1150: p_pay_hist_rec.pmt_currency_code,
1151: ap_accounting_pay_pkg.g_base_currency_code,
1152: l_rate_type, --9849243
1153: l_rate_date, --9849243
1154: l_rate, --9849243
1155: l_curr_calling_sequence);
1162: -- calculated for all types of transactions--CREATION, MATURITY and CLEARING
1163: --2. l_pay_rate_total_amt is assigned p_inv_pay_rec.payment_base_amount
1164: -- earlier in this procedure, reassignment is redundant
1165:
1166: /*l_pay_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1167: (p_inv_pay_rec.amount,
1168: p_pay_hist_rec.pmt_currency_code,
1169: ap_accounting_pay_pkg.g_base_currency_code,
1170: p_pay_hist_rec.pmt_to_base_xrate_type,
1165:
1166: /*l_pay_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1167: (p_inv_pay_rec.amount,
1168: p_pay_hist_rec.pmt_currency_code,
1169: ap_accounting_pay_pkg.g_base_currency_code,
1170: p_pay_hist_rec.pmt_to_base_xrate_type,
1171: p_pay_hist_rec.pmt_to_base_xrate_date,
1172: p_pay_hist_rec.pmt_to_base_xrate,
1173: l_curr_calling_sequence);*/
1173: l_curr_calling_sequence);*/
1174:
1175: IF p_inv_pay_rec.discount_taken <> 0 THEN
1176:
1177: l_disc_pay_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1178: (p_inv_pay_rec.discount_taken,
1179: p_pay_hist_rec.pmt_currency_code,
1180: ap_accounting_pay_pkg.g_base_currency_code,
1181: p_pay_hist_rec.pmt_to_base_xrate_type,
1176:
1177: l_disc_pay_rate_total_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
1178: (p_inv_pay_rec.discount_taken,
1179: p_pay_hist_rec.pmt_currency_code,
1180: ap_accounting_pay_pkg.g_base_currency_code,
1181: p_pay_hist_rec.pmt_to_base_xrate_type,
1182: p_pay_hist_rec.pmt_to_base_xrate_date,
1183: p_pay_hist_rec.pmt_to_base_xrate,
1184: l_curr_calling_sequence);
2323: -- MATURITY TO CLEARING ROUNDING
2324: --
2325: --------------------------------------------------------------------------------
2326: PROCEDURE Compare_Pay
2327: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2328: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2329: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2330: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
2331: ,P_Calling_Sequence IN VARCHAR2
2324: --
2325: --------------------------------------------------------------------------------
2326: PROCEDURE Compare_Pay
2327: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2328: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2329: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2330: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
2331: ,P_Calling_Sequence IN VARCHAR2
2332: ) IS
2325: --------------------------------------------------------------------------------
2326: PROCEDURE Compare_Pay
2327: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2328: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2329: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2330: ,P_Inv_Pay_Rec IN ap_acctg_pay_dist_pkg.r_inv_pay_info
2331: ,P_Calling_Sequence IN VARCHAR2
2332: ) IS
2333:
2401: INTO l_sum_pay_paid_base_amt
2402: FROM AP_Payment_Hist_Dists APHD,
2403: AP_Payment_History_All APH,
2404: AP_Payment_History_All APH1
2405: WHERE APH1.Payment_History_ID = ap_accounting_pay_pkg.g_pay_pmt_history_id
2406: AND APH.Related_Event_ID = APH1.Accounting_Event_ID
2407: AND APHD.Payment_History_ID = APH.Payment_History_ID
2408: AND APHD.Pay_Dist_Lookup_Code IN ('CASH')
2409: AND APHD.Invoice_payment_id = P_Inv_Pay_Rec.Invoice_payment_id -- Bug 8722710
2420: l_sum_mat_mat_base_amt
2421: FROM AP_Payment_Hist_Dists APHD,
2422: AP_Payment_History_All APH,
2423: AP_Payment_History_All APH1
2424: WHERE APH1.Payment_History_ID = ap_accounting_pay_pkg.g_mat_pmt_history_id
2425: AND APH.Related_Event_ID = APH1.Accounting_Event_ID
2426: AND APHD.Payment_History_ID = APH.Payment_History_ID
2427: AND APHD.Pay_Dist_Lookup_Code IN ('CASH')
2428: AND APHD.Invoice_payment_id = P_Inv_Pay_Rec.Invoice_payment_id -- Bug 8722710
2444: l_sum_clr_mat_base_amt
2445: FROM AP_Payment_Hist_Dists APHD,
2446: AP_Payment_History_All APH,
2447: AP_Payment_History_All APH1
2448: WHERE APH1.Payment_History_ID = ap_accounting_pay_pkg.g_clr_pmt_history_id
2449: AND APH.Related_Event_ID = APH1.Accounting_Event_ID
2450: AND APHD.Payment_History_ID = APH.Payment_History_ID
2451: AND APHD.Pay_Dist_Lookup_Code IN ('CASH')
2452: AND APHD.Invoice_payment_id = P_Inv_Pay_Rec.Invoice_payment_id -- Bug 8722710
2600: -- relieved by their corresponding records in APAD
2601: --
2602: --------------------------------------------------------------------------------
2603: PROCEDURE Total_Appl
2604: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2605: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2606: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2607: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2608: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2601: --
2602: --------------------------------------------------------------------------------
2603: PROCEDURE Total_Appl
2604: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2605: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2606: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2607: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2608: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2609: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
2602: --------------------------------------------------------------------------------
2603: PROCEDURE Total_Appl
2604: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2605: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2606: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2607: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2608: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2609: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
2610: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
2603: PROCEDURE Total_Appl
2604: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2605: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2606: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2607: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2608: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2609: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
2610: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
2611: ,P_Calling_Sequence IN VARCHAR2
2604: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2605: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2606: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2607: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2608: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2609: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
2610: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
2611: ,P_Calling_Sequence IN VARCHAR2
2612: ) IS
2685: RAISE_APPLICATION_ERROR(-20100, l_procedure_name||
2686: ' no_record_in_APAD_while_retrieving_max_dist');
2687: END; --bug 9936620
2688:
2689: l_tot_inv_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2690: (p_prepay_dist_rec.amount,
2691: p_inv_rec.invoice_currency_code,
2692: ap_accounting_pay_pkg.g_base_currency_code,
2693: p_inv_rec.exchange_rate_type,
2688:
2689: l_tot_inv_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2690: (p_prepay_dist_rec.amount,
2691: p_inv_rec.invoice_currency_code,
2692: ap_accounting_pay_pkg.g_base_currency_code,
2693: p_inv_rec.exchange_rate_type,
2694: p_inv_rec.exchange_date,
2695: p_inv_rec.exchange_rate,
2696: l_curr_calling_sequence);
2695: p_inv_rec.exchange_rate,
2696: l_curr_calling_sequence);
2697:
2698:
2699: l_tot_prepay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2700: (p_prepay_dist_rec.amount,
2701: p_inv_rec.invoice_currency_code,
2702: ap_accounting_pay_pkg.g_base_currency_code,
2703: l_max_prepay_rec.prepay_exchange_rate_type,
2698:
2699: l_tot_prepay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2700: (p_prepay_dist_rec.amount,
2701: p_inv_rec.invoice_currency_code,
2702: ap_accounting_pay_pkg.g_base_currency_code,
2703: l_max_prepay_rec.prepay_exchange_rate_type,
2704: l_max_prepay_rec.prepay_exchange_date,
2705: l_max_prepay_rec.prepay_exchange_rate,
2706: l_curr_calling_sequence);
2716: l_prepay_pay_tax_diff := p_prepay_dist_rec.prepay_tax_diff_amount;
2717: END IF;
2718:
2719:
2720: l_tot_prepay_pay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2721: (l_prepay_pay_amt,
2722: p_inv_rec.payment_currency_code,
2723: ap_accounting_pay_pkg.g_base_currency_code,
2724: l_max_prepay_rec.prepay_pay_exchange_rate_type,
2719:
2720: l_tot_prepay_pay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2721: (l_prepay_pay_amt,
2722: p_inv_rec.payment_currency_code,
2723: ap_accounting_pay_pkg.g_base_currency_code,
2724: l_max_prepay_rec.prepay_pay_exchange_rate_type,
2725: l_max_prepay_rec.prepay_pay_exchange_date,
2726: l_max_prepay_rec.prepay_pay_exchange_rate,
2727: l_curr_calling_sequence);
2725: l_max_prepay_rec.prepay_pay_exchange_date,
2726: l_max_prepay_rec.prepay_pay_exchange_rate,
2727: l_curr_calling_sequence);
2728:
2729: l_td_tot_inv_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2730: (p_prepay_dist_rec.prepay_tax_diff_amount,
2731: p_inv_rec.invoice_currency_code,
2732: ap_accounting_pay_pkg.g_base_currency_code,
2733: p_inv_rec.exchange_rate_type,
2728:
2729: l_td_tot_inv_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2730: (p_prepay_dist_rec.prepay_tax_diff_amount,
2731: p_inv_rec.invoice_currency_code,
2732: ap_accounting_pay_pkg.g_base_currency_code,
2733: p_inv_rec.exchange_rate_type,
2734: p_inv_rec.exchange_date,
2735: p_inv_rec.exchange_rate,
2736: l_curr_calling_sequence);
2735: p_inv_rec.exchange_rate,
2736: l_curr_calling_sequence);
2737:
2738:
2739: l_td_tot_prepay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2740: (p_prepay_dist_rec.prepay_tax_diff_amount,
2741: p_inv_rec.invoice_currency_code,
2742: ap_accounting_pay_pkg.g_base_currency_code,
2743: l_max_prepay_rec.prepay_exchange_rate_type,
2738:
2739: l_td_tot_prepay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2740: (p_prepay_dist_rec.prepay_tax_diff_amount,
2741: p_inv_rec.invoice_currency_code,
2742: ap_accounting_pay_pkg.g_base_currency_code,
2743: l_max_prepay_rec.prepay_exchange_rate_type,
2744: l_max_prepay_rec.prepay_exchange_date,
2745: l_max_prepay_rec.prepay_exchange_rate,
2746: l_curr_calling_sequence);
2745: l_max_prepay_rec.prepay_exchange_rate,
2746: l_curr_calling_sequence);
2747:
2748:
2749: l_td_tot_prepay_pay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2750: (l_prepay_pay_tax_diff,
2751: p_inv_rec.payment_currency_code,
2752: ap_accounting_pay_pkg.g_base_currency_code,
2753: l_max_prepay_rec.prepay_pay_exchange_rate_type,
2748:
2749: l_td_tot_prepay_pay_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2750: (l_prepay_pay_tax_diff,
2751: p_inv_rec.payment_currency_code,
2752: ap_accounting_pay_pkg.g_base_currency_code,
2753: l_max_prepay_rec.prepay_pay_exchange_rate_type,
2754: l_max_prepay_rec.prepay_pay_exchange_date,
2755: l_max_prepay_rec.prepay_pay_exchange_rate,
2756: l_curr_calling_sequence);
2757:
2758:
2759: IF l_max_prepay_rec.prepay_clr_exchange_rate IS NOT NULL THEN
2760:
2761: l_tot_prepay_clr_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2762: (l_prepay_pay_amt,
2763: p_inv_rec.payment_currency_code,
2764: ap_accounting_pay_pkg.g_base_currency_code,
2765: l_max_prepay_rec.prepay_clr_exchange_rate_type,
2760:
2761: l_tot_prepay_clr_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2762: (l_prepay_pay_amt,
2763: p_inv_rec.payment_currency_code,
2764: ap_accounting_pay_pkg.g_base_currency_code,
2765: l_max_prepay_rec.prepay_clr_exchange_rate_type,
2766: l_max_prepay_rec.prepay_clr_exchange_date,
2767: l_max_prepay_rec.prepay_clr_exchange_rate,
2768: l_curr_calling_sequence);
2766: l_max_prepay_rec.prepay_clr_exchange_date,
2767: l_max_prepay_rec.prepay_clr_exchange_rate,
2768: l_curr_calling_sequence);
2769:
2770: l_td_tot_prepay_clr_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2771: (l_prepay_pay_tax_diff,
2772: p_inv_rec.payment_currency_code,
2773: ap_accounting_pay_pkg.g_base_currency_code,
2774: l_max_prepay_rec.prepay_clr_exchange_rate_type,
2769:
2770: l_td_tot_prepay_clr_rate_amt := AP_Accounting_Pay_Pkg.Get_Base_Amount
2771: (l_prepay_pay_tax_diff,
2772: p_inv_rec.payment_currency_code,
2773: ap_accounting_pay_pkg.g_base_currency_code,
2774: l_max_prepay_rec.prepay_clr_exchange_rate_type,
2775: l_max_prepay_rec.prepay_clr_exchange_date,
2776: l_max_prepay_rec.prepay_clr_exchange_rate,
2777: l_curr_calling_sequence);
2927: -- prepayment distribution
2928: --
2929: --------------------------------------------------------------------------------
2930: PROCEDURE Final_Appl
2931: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2932: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2933: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2934: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2935: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2928: --
2929: --------------------------------------------------------------------------------
2930: PROCEDURE Final_Appl
2931: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2932: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2933: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2934: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2935: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2936: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
2929: --------------------------------------------------------------------------------
2930: PROCEDURE Final_Appl
2931: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2932: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2933: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2934: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2935: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2936: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
2937: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
2930: PROCEDURE Final_Appl
2931: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2932: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2933: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2934: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2935: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2936: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
2937: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
2938: ,P_Calling_Sequence IN VARCHAR2
2931: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
2932: ,P_Pay_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2933: ,P_Clr_Hist_Rec IN ap_accounting_pay_pkg.r_pay_hist_info
2934: ,P_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2935: ,P_Prepay_Inv_Rec IN ap_accounting_pay_pkg.r_invoices_info
2936: ,P_Prepay_Hist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_hist_info
2937: ,P_Prepay_Dist_Rec IN AP_ACCTG_PREPAY_DIST_PKG.r_prepay_dist_info
2938: ,P_Calling_Sequence IN VARCHAR2
2939: ) IS
3200: --
3201: --
3202: --------------------------------------------------------------------------------
3203: PROCEDURE Final_Cash
3204: (P_XLA_Event_Rec IN ap_accounting_pay_pkg.r_xla_event_info
3205: ,P_Calling_Sequence IN VARCHAR2
3206: ) IS
3207:
3208: l_curr_calling_sequence VARCHAR2(2000);
3214: l_ac_amount NUMBER;
3215: l_do_cash_rounding NUMBER;
3216: l_procedure_name CONSTANT VARCHAR2(30) := 'Final_Cash';
3217: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3218: l_pay_hist_rec ap_accounting_pay_pkg.r_pay_hist_info;
3219: BEGIN
3220:
3221: l_curr_calling_sequence := 'AP_ACCTG_PAY_ROUND_PKG.Final_Cash<- ' ||
3222: P_Calling_Sequence;
3335: --bug 9495694, removed condition 1=2 for clearing transaction_type and added
3336: --condition to not go for final cash rounding if clearing is in ledger_currency
3337:
3338: IF l_transaction_type = 'CLEARING' THEN
3339: IF l_pay_hist_rec.bank_currency_code <> ap_accounting_pay_pkg.g_base_currency_code Then
3340: l_ac_base_amount := AP_Accounting_Pay_Pkg.Get_Base_Amount
3341: (l_ac_amount,
3342: l_pay_hist_rec.pmt_currency_code,
3343: ap_accounting_pay_pkg.g_base_currency_code,
3336: --condition to not go for final cash rounding if clearing is in ledger_currency
3337:
3338: IF l_transaction_type = 'CLEARING' THEN
3339: IF l_pay_hist_rec.bank_currency_code <> ap_accounting_pay_pkg.g_base_currency_code Then
3340: l_ac_base_amount := AP_Accounting_Pay_Pkg.Get_Base_Amount
3341: (l_ac_amount,
3342: l_pay_hist_rec.pmt_currency_code,
3343: ap_accounting_pay_pkg.g_base_currency_code,
3344: l_pay_hist_rec.bank_to_base_xrate_type,
3339: IF l_pay_hist_rec.bank_currency_code <> ap_accounting_pay_pkg.g_base_currency_code Then
3340: l_ac_base_amount := AP_Accounting_Pay_Pkg.Get_Base_Amount
3341: (l_ac_amount,
3342: l_pay_hist_rec.pmt_currency_code,
3343: ap_accounting_pay_pkg.g_base_currency_code,
3344: l_pay_hist_rec.bank_to_base_xrate_type,
3345: l_pay_hist_rec.bank_to_base_xrate_date,
3346: l_pay_hist_rec.bank_to_base_xrate,
3347: l_curr_calling_sequence);