[Home] [Help]
11: G_Total_Dist_Amount NUMBER := 0; --BUG 7308385
12: G_Proration_Divisor NUMBER := 0; --BUG 7308385
13:
14: -- Logging Infra
15: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
16: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
18: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
19: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
12: G_Proration_Divisor NUMBER := 0; --BUG 7308385
13:
14: -- Logging Infra
15: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
16: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
18: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
19: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
13:
14: -- Logging Infra
15: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
16: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
18: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
19: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
21: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
14: -- Logging Infra
15: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
16: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
18: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
19: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
21: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
22: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PAY_DIST_PKG.';
15: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
16: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
18: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
19: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
21: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
22: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PAY_DIST_PKG.';
23: -- Logging Infra
16: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
18: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
19: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
21: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
22: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PAY_DIST_PKG.';
23: -- Logging Infra
24:
17: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
18: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
19: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
21: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
22: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PAY_DIST_PKG.';
23: -- Logging Infra
24:
25: -------------------------------------------------------------------------------
39: l_when_to_account_gain_loss ap_system_parameters_all.when_to_account_gain_loss%TYPE;
40:
41: -- Logging Infra:
42: l_procedure_name CONSTANT VARCHAR2(30) := 'Update_Gain_Loss_Ind';
43: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
44:
45: BEGIN
46:
47: l_curr_calling_sequence := 'AP_Acctg_Pay_Dist_Pkg.Update_Gain_Loss_Ind<- ' ||
48: p_calling_sequence;
49:
50:
51: -- Logging Infra: Setting up runtime level
52: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
53:
54: -- Logging Infra: Procedure level
55: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
56: l_log_msg := 'Begin of procedure '|| l_procedure_name;
53:
54: -- Logging Infra: Procedure level
55: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
56: l_log_msg := 'Begin of procedure '|| l_procedure_name;
57: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
58: END IF;
59:
60: ---Manual payment adusted event added in the list below for bug 7244022
61: --MANUAL PAYMENT ADJUSTED event is commented for bug 7445576
65:
66: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
67: l_log_msg := 'Updating Gain Loss Indicator for Events ' ||
68: P_XLA_Event_Rec.Event_Type_Code;
69: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
70: END IF;
71:
72: UPDATE AP_Payment_History_All APH
73: SET Gain_Loss_Indicator =
90:
91: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
92: l_log_msg := 'Updating Gain Loss Indicator for Events ' ||
93: P_XLA_Event_Rec.Event_Type_Code;
94: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
95: END IF;
96:
97:
98: UPDATE AP_Payment_History_All APH
112:
113: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
114: l_log_msg := 'Updating Gain Loss Indicator for Events: Event_ID = ' ||
115: P_XLA_Event_Rec.Event_ID;
116: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
117: END IF;
118:
119: UPDATE AP_Payment_History_All APH
120: SET Gain_Loss_Indicator =
130:
131: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
132: l_log_msg := 'Updating Gain Loss Indicator for Events: Event_ID = ' ||
133: P_XLA_Event_Rec.Event_ID;
134: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
135: END IF;
136:
137: SELECT count(*)
138: INTO l_pay_mat_count
146: IF l_pay_mat_count > 0 THEN
147:
148: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
149: l_log_msg := 'Updating Gain Loss between maturity and clearing events';
150: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
151: END IF;
152:
153: UPDATE AP_Payment_History_All APH
154: SET Gain_Loss_Indicator =
161: ELSE
162:
163: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
164: l_log_msg := 'Updating Gain Loss between invoice/payment and clearing events';
165: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
166: END IF;
167:
168: --bug 5257209
169:
178: l_when_to_account_gain_loss = 'CLEARING ONLY' ) THEN
179:
180: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
181: l_log_msg := 'Update Gain/Loss between invoice and clearing for gain/loss at clear only';
182: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
183: END IF;
184:
185: -- Bug 6678474. Backing out the fix for bug 6621586 since it is incorrect.
186: UPDATE AP_Payment_History_All APH
195: ELSE
196:
197: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
198: l_log_msg := 'Update Gain/Loss between payment and clearing for gain/loss at always';
199: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
200: END IF;
201:
202: -- Bug 6678474. Backing out the fix for bug 6621586 since it is incorrect.
203: UPDATE AP_Payment_History_All APH
220:
221: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
222: l_log_msg := 'Updating Gain Loss Indicator for Events: Event_ID = ' ||
223: P_XLA_Event_Rec.Event_ID;
224: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
225: END IF;
226:
227: UPDATE AP_Payment_History_All APH
228: SET APH.Gain_Loss_Indicator =
235:
236: -- Logging Infra: Procedure level
237: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
238: l_log_msg := 'End of procedure '|| l_procedure_name;
239: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
240: END IF;
241:
242:
243: EXCEPTION
276: l_inv_dist_rec ap_accounting_pay_pkg.r_inv_dist_info;
277:
278: -- Logging Infra:
279: l_procedure_name CONSTANT VARCHAR2(30) := 'Primary_Pay_Events';
280: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
281:
282: -- bug fix 6674279
283: b_generate_pay_dist BOOLEAN;
284: l_sum_per_event NUMBER;
313: p_calling_sequence;
314:
315:
316: -- Logging Infra: Setting up runtime level
317: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
318:
319: -- Logging Infra: Procedure level
320: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
321: l_log_msg := 'Begin of procedure '|| l_procedure_name;
318:
319: -- Logging Infra: Procedure level
320: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
321: l_log_msg := 'Begin of procedure '|| l_procedure_name;
322: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
323: END IF;
324:
325:
326: OPEN Payment_History(P_XLA_Event_Rec.Event_ID);
332: l_log_msg := 'CUR: Payment_History: Payment_History_ID = '||
333: l_pay_hist_rec.payment_history_id ||
334: 'and event type for payment is: ' ||
335: P_XLA_Event_Rec.Event_Type_Code;
336: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
337: END IF;
338:
339: /* We need payment hist information for the prior events in order
340: to calculate the base amounts for the prior events using the
344:
345: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
346: l_log_msg := 'inside logic of payment matured event and event type'||
347: P_XLA_Event_Rec.Event_Type_Code;
348: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
349: END IF;
350:
351: SELECT APH.Payment_History_ID,
352: APH.Pmt_To_Base_XRate_Type,
372: || ap_accounting_pay_pkg.g_pmt_to_base_xrate_date
373: || 'ap_accounting_pay_pkg.g_pmt_to_base_xrate'
374: || ap_accounting_pay_pkg.g_pmt_to_base_xrate;
375:
376: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
377: END IF;
378:
379: ap_accounting_pay_pkg.g_pay_pmt_history_id := l_pay_history_id;
380:
395: ap_accounting_pay_pkg.g_mat_to_base_xrate_date ||
396: 'ap_accounting_pay_pkg.g_mat_to_base_xrate' ||
397: ap_accounting_pay_pkg.g_mat_to_base_xrate;
398:
399: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
400: END IF;
401:
402: ELSIF (P_XLA_Event_Rec.Event_Type_Code IN ('PAYMENT CLEARED')) THEN
403:
403:
404: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
405: l_log_msg := 'inside logic of payment cleared event and event type'||
406: P_XLA_Event_Rec.Event_Type_Code;
407: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
408: END IF;
409:
410: SELECT APH.Payment_History_ID,
411: APH.Pmt_To_Base_XRate_Type,
426: l_log_msg := 'Payment_History_ID for payment = '
427: || l_pay_history_id
428: || 'Payment_History_ID for maturity ='
429: || l_mat_history_id;
430: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
431: END IF;
432:
433: SELECT MAX(APH.Payment_History_ID)
434: INTO l_mat_history_id
476: ap_accounting_pay_pkg.g_clr_to_base_xrate_date ||
477: 'ap_accounting_pay_pkg.g_clr_to_base_xrate=' ||
478: ap_accounting_pay_pkg.g_clr_to_base_xrate;
479:
480: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
481: END IF;
482:
483: ELSE
484:
484:
485: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
486: l_log_msg := 'inside logic of other payment event and event type'||
487: P_XLA_Event_Rec.Event_Type_Code;
488: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
489: END IF;
490:
491: ap_accounting_pay_pkg.g_pay_pmt_history_id := l_pay_hist_rec.payment_history_id;
492: ap_accounting_pay_pkg.g_pmt_to_base_xrate_type :=
497:
498: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
499: l_log_msg := 'Payment_History_ID for payment = '||
500: l_pay_hist_rec.payment_history_id;
501: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
502: END IF;
503:
504: END IF;
505:
538:
539: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
540: l_log_msg := 'loop through CUR: Clrg_Invoice_Payments: Invoice_ID = '||
541: l_inv_pay_rec.invoice_id;
542: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
543: END IF;
544:
545: ELSE
546: FETCH Invoice_Payments INTO l_inv_pay_rec;
549:
550: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
551: l_log_msg := 'loop through CUR: Invoice_Payments: Invoice_ID = '||
552: l_inv_pay_rec.invoice_id;
553: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
554: END IF;
555:
556: END IF;
557:
562:
563: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
564: l_log_msg := 'inside payment cursor loop, after open CUR:Invoice_Header: Invoice_ID= '
565: || l_inv_rec.invoice_id;
566: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
567: END IF;
568:
569:
570: -- Bug 6900582. While upgrading the payment hist dists table during R12
610: l_log_msg := 'Final payment of Invoice_ID '||l_inv_rec.invoice_id;
611: ELSE
612: l_log_msg := 'Not final payment of Invoice_ID '||l_inv_rec.invoice_id;
613: END IF;
614: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
615: END IF;
616:
617: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
618: l_log_msg := 'Ready to open Invoice_Dists cursor after final payment check';
615: END IF;
616:
617: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
618: l_log_msg := 'Ready to open Invoice_Dists cursor after final payment check';
619: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
620: END IF;
621:
622: -- Perfomance Fix 7308385
623: -- Same query is used 3 different places in Pkg. when
648:
649: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
650: l_log_msg := 'Loop start for cur Invoice_Dists : Invoice_Dists: Invoice_Distribution_ID = '
651: ||l_inv_dist_rec.invoice_distribution_id;
652: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
653: END IF;
654:
655:
656: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
655:
656: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
657: l_log_msg := 'Calling procedure Pay_Dist_Proc for dist: '
658: || l_inv_dist_rec.invoice_distribution_id;
659: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
660: END IF;
661:
662: -- bugfix 6674279
663: -- for upgraded invoice adjustment event, if the distributions in the adjustment event
704:
705:
706: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
707: l_log_msg := 'Inside loop Invoice_Dists: After Procedure Pay_Dist_Proc executed';
708: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
709: END IF;
710:
711: END LOOP;
712: CLOSE Invoice_Dists;
712: CLOSE Invoice_Dists;
713:
714: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
715: l_log_msg := 'cursor Invoice_Dists is closed ';
716: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
717: END IF;
718:
719: G_Total_Dist_Amt := 0;
720: G_Total_Prorated_Amt := 0;
727:
728: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
729: l_log_msg := 'Calling procedure P_Acctg_Pay_Round_Pkg.Do_Rounding for Invoice_ID: '
730: || l_inv_rec.invoice_id;
731: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
732: END IF;
733:
734:
735: -- Bug 6900582. Do not do rounding calculation if the payment is upgraded
750: END IF;
751:
752: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
753: l_log_msg := 'Procedure P_Acctg_Pay_Round_Pkg.Do_Rounding executed';
754: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
755: END IF;
756:
757: END LOOP;
758:
759: IF (P_XLA_Event_Rec.Event_Type_Code IN ('PAYMENT CLEARED', 'PAYMENT MATURED')) THEN
760: CLOSE Clrg_Invoice_Payments;
761: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
762: l_log_msg := 'after close cursor Clrg_Invoice_Payments ';
763: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
764: END IF;
765: ELSE
766: CLOSE Invoice_Payments;
767: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
765: ELSE
766: CLOSE Invoice_Payments;
767: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
768: l_log_msg := 'after close cursor Invoice_Payment ';
769: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
770: END IF;
771: END IF;
772:
773:
776: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
777: l_log_msg := 'Calling procedure Pay_Dist_Err_Chrg for errors bank amount and '
778: || 'l_pay_hist_rec.Errors_Bank_Amount'
779: || l_pay_hist_rec.Errors_Bank_Amount;
780: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
781: END IF;
782:
783:
784: -- Create error distribution lines
790: ,p_calling_sequence => l_curr_calling_sequence);
791:
792: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
793: l_log_msg := 'Procedure Pay_Dist_Err_Chrg for errors bank amount executed';
794: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
795: END IF;
796:
797: END IF;
798:
801: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
802: l_log_msg := 'Calling procedure Pay_Dist_Err_Chrg for charges bank amount =' ||
803: 'l_pay_hist_rec.Charges_Bank_Amount' ||
804: l_pay_hist_rec.Charges_Bank_Amount;
805: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
806: END IF;
807:
808:
809: -- Create charge distribution lines
816: ,p_calling_sequence => l_curr_calling_sequence);
817:
818: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
819: l_log_msg := 'Procedure Pay_Dist_Err_Chrg for charges bank amount executed';
820: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
821: END IF;
822:
823: END IF;
824:
823: END IF;
824:
825: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
826: l_log_msg := 'Calling procedure Update_Gain_Loss_Ind for payments';
827: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
828: END IF;
829:
830: Update_Gain_Loss_Ind
831: (p_xla_event_rec,
833: l_curr_calling_sequence);
834:
835: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
836: l_log_msg := 'Procedure Update_Gain_Loss_Ind executed';
837: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
838: END IF;
839:
840: -- Logging Infra: Procedure level
841: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
839:
840: -- Logging Infra: Procedure level
841: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
842: l_log_msg := 'End of procedure '|| l_procedure_name;
843: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
844: END IF;
845:
846:
847: EXCEPTION
879: l_inv_dist_rec ap_accounting_pay_pkg.r_inv_dist_info;
880:
881: -- Logging Infra:
882: l_procedure_name CONSTANT VARCHAR2(30) := 'Manual_Pay_Adj_Events';
883: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
884:
885: BEGIN
886:
887: l_curr_calling_sequence := 'AP_ACCTG_PAY_DIST_PKG.Manual_Pay_Adj_Events<-' ||
887: l_curr_calling_sequence := 'AP_ACCTG_PAY_DIST_PKG.Manual_Pay_Adj_Events<-' ||
888: p_calling_sequence;
889:
890: -- Logging Infra: Setting up runtime level
891: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
892:
893: -- Logging Infra: Procedure level
894: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
895: l_log_msg := 'Begin of procedure '|| l_procedure_name;
892:
893: -- Logging Infra: Procedure level
894: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
895: l_log_msg := 'Begin of procedure '|| l_procedure_name;
896: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
897: END IF;
898:
899:
900: -- Get the payment hist info of the payment event
904:
905: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
906: l_log_msg := 'CUR: Payment_History: Payment_History_ID = '||
907: l_pay_hist_rec.payment_history_id;
908: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
909: END IF;
910:
911:
912: OPEN Invoice_Payments(p_xla_event_rec.event_id);
918:
919: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
920: l_log_msg := 'CUR: Invoice_Payments: Invoice_ID = '||l_inv_pay_rec.invoice_id
921: || 'Reversal_Flag = '||l_inv_pay_rec.reversal_flag;
922: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
923: END IF;
924:
925: /* If this invoice payment is a reversal the payment distributions will be created
926: by reversing the original distributions */
929:
930: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
931: l_log_msg := 'Calling procedure Pay_Dist_Reverse for invoice: '
932: || l_inv_pay_rec.invoice_id;
933: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
934: END IF;
935:
936: -- Create payment hist distributions by reversing the
937: -- original payment hist dists.
946: l_curr_calling_sequence);
947:
948: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
949: l_log_msg := 'Procedure Pay_Dist_Reverse executed';
950: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
951: END IF;
952:
953: ELSE
954:
958:
959:
960: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
961: l_log_msg := 'CUR: Invoice_Header: Invoice_ID= '|| l_inv_rec.invoice_id;
962: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
963: END IF;
964:
965:
966: /* Check if the invoice is fully paid */
977: l_log_msg := 'Final payment of Invoice_ID '||l_inv_rec.invoice_id;
978: ELSE
979: l_log_msg := 'Not final payment of Invoice_ID '||l_inv_rec.invoice_id;
980: END IF;
981: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
982: END IF;
983:
984: -- Perfomance Fix 7308385
985: SELECT SUM(decode(aid.prepay_tax_parent_id, NULL, nvl(aid.amount, 0), 0)),
1007:
1008: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1009: l_log_msg := 'CUR: Invoice_Dists: Invoice_Distribution_ID = '
1010: ||l_inv_dist_rec.invoice_distribution_id;
1011: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1012: END IF;
1013:
1014:
1015: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1014:
1015: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1016: l_log_msg := 'Calling procedure Pay_Dist_Proc for dist: '
1017: || l_inv_dist_rec.invoice_distribution_id;
1018: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1019: END IF;
1020:
1021: -- Create awt distributions only when the awt is created during invoice time or
1022: -- if the awt is created during the payment time then only those awt distributions
1037:
1038:
1039: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1040: l_log_msg := 'Procedure Pay_Dist_Proc executed';
1041: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1042: END IF;
1043:
1044:
1045: END LOOP;
1056:
1057: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1058: l_log_msg := 'Calling procedure P_Acctg_Pay_Round_Pkg.Do_Rounding for Invoice_ID: '
1059: || l_inv_rec.invoice_id;
1060: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1061: END IF;
1062:
1063: -- Create total and final payment roundings
1064: AP_Acctg_Pay_Round_Pkg.Do_Rounding
1073: l_curr_calling_sequence);
1074:
1075: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1076: l_log_msg := 'Procedure P_Acctg_Pay_Round_Pkg.Do_Rounding executed';
1077: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1078: END IF;
1079:
1080:
1081: END IF;
1088: IF l_pay_hist_rec.Errors_Bank_Amount <> 0 THEN
1089:
1090: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1091: l_log_msg := 'Calling procedure Pay_Dist_Err_Chrg for errors bank amount';
1092: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1093: END IF;
1094:
1095: --bug 5659368
1096: Pay_Dist_Err_Chrg
1100: ,p_calling_sequence => l_curr_calling_sequence);
1101:
1102: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1103: l_log_msg := 'Procedure Pay_Dist_Err_Chrg for errors bank amount executed';
1104: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1105: END IF;
1106:
1107: END IF;
1108:
1110: IF l_pay_hist_rec.Charges_Bank_Amount <> 0 THEN
1111:
1112: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1113: l_log_msg := 'Calling procedure Pay_Dist_Err_Chrg for charges bank amount';
1114: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1115: END IF;
1116:
1117: --bug 5659368
1118: Pay_Dist_Err_Chrg
1122: ,p_calling_sequence => l_curr_calling_sequence);
1123:
1124: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1125: l_log_msg := 'Procedure Pay_Dist_Err_Chrg for charges bank amount executed';
1126: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1127: END IF;
1128:
1129: END IF;
1130:
1129: END IF;
1130:
1131: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1132: l_log_msg := 'Calling procedure Update_Gain_Loss_Ind for payments';
1133: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1134: END IF;
1135:
1136: Update_Gain_Loss_Ind
1137: (p_xla_event_rec,
1139: l_curr_calling_sequence);
1140:
1141: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1142: l_log_msg := 'Procedure Update_Gain_Loss_Ind executed';
1143: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1144: END IF;
1145:
1146: -- Logging Infra: Procedure level
1147: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1145:
1146: -- Logging Infra: Procedure level
1147: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1148: l_log_msg := 'End of procedure '|| l_procedure_name;
1149: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
1150: END IF;
1151:
1152:
1153: EXCEPTION
1181: l_pay_hist_rec ap_accounting_pay_pkg.r_pay_hist_info;
1182:
1183: -- Logging Infra:
1184: l_procedure_name CONSTANT VARCHAR2(30) := 'Cancel_Primary_Pay_Events';
1185: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1186:
1187: BEGIN
1188:
1189: l_curr_calling_sequence := 'AP_ACCTG_PAY_DIST_PKG.Cancel_Primary_Pay_Events<-' ||
1189: l_curr_calling_sequence := 'AP_ACCTG_PAY_DIST_PKG.Cancel_Primary_Pay_Events<-' ||
1190: p_calling_sequence;
1191:
1192: -- Logging Infra: Setting up runtime level
1193: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1194:
1195: -- Logging Infra: Procedure level
1196: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1197: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1194:
1195: -- Logging Infra: Procedure level
1196: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1197: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1198: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1199: END IF;
1200:
1201:
1202: OPEN Payment_History(p_xla_event_rec.event_id);
1205:
1206: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1207: l_log_msg := 'CUR: Payment_History: Payment_History_ID = '||
1208: l_pay_hist_rec.payment_history_id;
1209: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1210: END IF;
1211:
1212:
1213: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1212:
1213: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1214: l_log_msg := 'Calling procedure Pay_Dist_Reverse for related event: '
1215: || l_pay_hist_rec.related_event_id;
1216: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1217: END IF;
1218:
1219:
1220: -- Create payment hist dists by reversing the original payment hist
1230: l_curr_calling_sequence);
1231:
1232: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1233: l_log_msg := 'Procedure Pay_Dist_Reverse executed';
1234: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1235: END IF;
1236:
1237:
1238: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1236:
1237:
1238: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1239: l_log_msg := 'Calling procedure Update_Gain_Loss_Ind for payments';
1240: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1241: END IF;
1242:
1243: Update_Gain_Loss_Ind
1244: (p_xla_event_rec,
1246: l_curr_calling_sequence);
1247:
1248: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1249: l_log_msg := 'Procedure Update_Gain_Loss_Ind executed';
1250: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1251: END IF;
1252:
1253:
1254: EXCEPTION
1346: AND AIP.Invoice_ID = P_Invoice_ID;
1347:
1348: -- Logging Infra:
1349: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_Cascade_Adj_Events';
1350: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1351:
1352:
1353: BEGIN
1354:
1355: l_curr_calling_sequence := 'AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Cascade_Adj_Events<- ' ||
1356: p_calling_sequence;
1357:
1358: -- Logging Infra: Setting up runtime level
1359: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1360:
1361: -- Logging Infra: Procedure level
1362: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1363: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1360:
1361: -- Logging Infra: Procedure level
1362: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1363: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1364: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1365: END IF;
1366:
1367:
1368: OPEN Payment_History(p_xla_event_rec.event_id);
1372:
1373: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1374: l_log_msg := 'CUR: Payment_History: Payment_History_ID = '||
1375: l_pay_hist_rec.payment_history_id;
1376: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1377: END IF;
1378:
1379:
1380: /* We need payment hist information for the prior events in order
1399: WHERE APH.Payment_History_ID = l_pay_history_id;
1400:
1401: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1402: l_log_msg := 'Payment_History_ID for payment = '|| l_pay_history_id;
1403: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1404: END IF;
1405:
1406:
1407: ap_accounting_pay_pkg.g_pay_pmt_history_id := l_pay_history_id;
1415:
1416: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1417: l_log_msg := 'Payment_History_ID for maturity = '||
1418: l_pay_hist_rec.payment_history_id;
1419: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1420: END IF;
1421:
1422:
1423: ELSIF (P_XLA_Event_Rec.Event_Type_Code IN ('PAYMENT CLEARING ADJUSTED')) THEN
1458: END IF;
1459:
1460: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1461: l_log_msg := 'Payment_History_ID for payment = '|| l_pay_history_id;
1462: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1463: END IF;
1464:
1465: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1466: l_log_msg := 'Payment_History_ID for maturity = '|| l_mat_history_id;
1463: END IF;
1464:
1465: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1466: l_log_msg := 'Payment_History_ID for maturity = '|| l_mat_history_id;
1467: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1468: END IF;
1469:
1470:
1471: ap_accounting_pay_pkg.g_pay_pmt_history_id := l_pay_history_id;
1480:
1481: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1482: l_log_msg := 'Payment_History_ID for clearing = '||
1483: l_pay_hist_rec.payment_history_id;
1484: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1485: END IF;
1486:
1487: ELSE
1488:
1495:
1496: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1497: l_log_msg := 'Payment_History_ID for payment = '||
1498: l_pay_hist_rec.payment_history_id;
1499: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1500: END IF;
1501:
1502:
1503: END IF;
1516:
1517:
1518: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1519: l_log_msg := 'CUR: Invoice_Header: Invoice_ID= '|| l_inv_rec.invoice_id;
1520: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1521: END IF;
1522:
1523:
1524: /* Get the invoice payments that need to be adjusted */
1533:
1534: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1535: l_log_msg := 'CUR: Invoice_Payments: Invoice_ID = '||
1536: l_inv_pay_rec.invoice_id;
1537: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1538: END IF;
1539:
1540: -- Perfomance Fix 7308385
1541: SELECT SUM(decode(aid.prepay_tax_parent_id, NULL, nvl(aid.amount, 0), 0)),
1567: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1568: l_log_msg := 'CUR: Invoice_Dists: Invoice_Distribution_ID = '
1569: ||l_inv_dist_rec.invoice_distribution_id
1570: ||'Reversal_Flag = '||l_inv_dist_rec.reversal_flag;
1571: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1572: END IF;
1573:
1574: -- Bug 7384943. Get the count of payment dists for the parent invoice dist
1575: l_pay_dist_cnt :=0; --7602927 Intialising
1592:
1593: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1594: l_log_msg := 'Calling procedure Pay_Dist_Reverse for dist: '
1595: || l_inv_dist_rec.invoice_distribution_id;
1596: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1597: END IF;
1598:
1599: Pay_Dist_Reverse
1600: (p_xla_event_rec,
1607: l_curr_calling_sequence);
1608:
1609: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1610: l_log_msg := 'Procedure Pay_Dist_Reverse executed';
1611: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1612: END IF;
1613:
1614:
1615: ELSE
1616:
1617: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1618: l_log_msg := 'Calling procedure Pay_Dist_Proc for dist: '
1619: || l_inv_dist_rec.invoice_distribution_id;
1620: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1621: END IF;
1622:
1623:
1624: -- Create awt distributions only when the awt is created during invoice time or
1638: END IF;
1639:
1640: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1641: l_log_msg := 'Procedure Pay_Dist_Proc executed';
1642: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1643: END IF;
1644:
1645:
1646: END IF;
1656:
1657:
1658: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1659: l_log_msg := 'l_inv_adj_amount = ' || l_inv_adj_amount;
1660: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1661: END IF;
1662:
1663: /* Check if there is any change to the invoice liability. If there is
1664: a change then we need to adjust the payment hist distributions for the
1689:
1690: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1691: l_log_msg := 'CUR: Inv_Adj_Dists: Invoice_Distribution_ID = '
1692: ||l_inv_dist_rec.invoice_distribution_id;
1693: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1694: END IF;
1695:
1696:
1697: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1696:
1697: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1698: l_log_msg := 'Calling procedure Pay_Dist_Proc for dist: '
1699: || l_inv_dist_rec.invoice_distribution_id;
1700: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1701: END IF;
1702:
1703: Pay_Dist_Proc(p_xla_event_rec,
1704: l_inv_pay_rec,
1710: l_curr_calling_sequence);
1711:
1712: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1713: l_log_msg := 'Procedure Pay_Dist_Proc executed';
1714: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1715: END IF;
1716:
1717:
1718: END LOOP;
1759:
1760:
1761: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1762: l_log_msg := 'Adjusting payment amount for technical rounding';
1763: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1764: END IF;
1765:
1766:
1767: /* Adjust the payment amount for technical rounding */
1788: IF (l_inv_pay_rec.discount_taken <> 0) THEN
1789:
1790: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1791: l_log_msg := 'Adjusting discount amount for technical rounding';
1792: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1793: END IF;
1794:
1795:
1796: /* Adjust the discount amount for technical rounding */
1819: IF (l_pay_hist_rec.errors_bank_amount <> 0) THEN
1820:
1821: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1822: l_log_msg := 'Adjusting errors bank amount for technical rounding';
1823: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1824: END IF;
1825:
1826:
1827: /* Adjust the bank errors amount for technical rounding */
1851:
1852:
1853: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1854: l_log_msg := 'Adjusting charges bank amount for technical rounding';
1855: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1856: END IF;
1857:
1858: /* Adjust the bank charges amount for technical rounding */
1859: UPDATE AP_Payment_Hist_Dists APD
1881:
1882: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1883: l_log_msg := 'Calling procedure P_Acctg_Pay_Round_Pkg.Do_Rounding for Invoice_ID: '
1884: || l_inv_rec.invoice_id;
1885: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1886: END IF;
1887:
1888: -- Create total and final payment rounding lines
1889: AP_Acctg_Pay_Round_Pkg.Do_Rounding
1898: l_curr_calling_sequence);
1899:
1900: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1901: l_log_msg := 'Procedure P_Acctg_Pay_Round_Pkg.Do_Rounding executed';
1902: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1903: END IF;
1904: END IF; --l_do_round = l_pay_hist_rec.payment_history_id 7489271
1905:
1906: END LOOP;
1910: IF l_pay_hist_rec.Errors_Bank_Amount <> 0 THEN
1911:
1912: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1913: l_log_msg := 'Calling procedure Pay_Dist_Err_Chrg for errors bank amount';
1914: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1915: END IF;
1916:
1917: --bug 5659368
1918: Pay_Dist_Err_Chrg
1922: ,p_calling_sequence => l_curr_calling_sequence);
1923:
1924: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1925: l_log_msg := 'Procedure Pay_Dist_Err_Chrg for errors bank amount executed';
1926: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1927: END IF;
1928:
1929:
1930: END IF;
1933: IF l_pay_hist_rec.Charges_Bank_Amount <> 0 THEN
1934:
1935: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1936: l_log_msg := 'Calling procedure Pay_Dist_Err_Chrg for charges bank amount';
1937: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1938: END IF;
1939:
1940: --bug 5659368
1941: Pay_Dist_Err_Chrg
1945: ,p_calling_sequence => l_curr_calling_sequence);
1946:
1947: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1948: l_log_msg := 'Procedure Pay_Dist_Err_Chrg for charges bank amount executed';
1949: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1950: END IF;
1951:
1952: END IF;
1953:
1952: END IF;
1953:
1954: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1955: l_log_msg := 'Calling procedure Update_Gain_Loss_Ind for payments';
1956: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1957: END IF;
1958:
1959: Update_Gain_Loss_Ind
1960: (p_xla_event_rec,
1962: l_curr_calling_sequence);
1963:
1964: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1965: l_log_msg := 'Procedure Update_Gain_Loss_Ind executed';
1966: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1967: END IF;
1968:
1969:
1970: -- Logging Infra: Procedure level
1969:
1970: -- Logging Infra: Procedure level
1971: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1972: l_log_msg := 'End of procedure '|| l_procedure_name;
1973: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
1974: END IF;
1975:
1976:
1977: EXCEPTION
2035: l_pd_rec AP_PAYMENT_HIST_DISTS%ROWTYPE;
2036:
2037: -- Logging Infra:
2038: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_Proc';
2039: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2040:
2041: BEGIN
2042:
2043: l_curr_calling_sequence := 'AP_ACCTG_PAY_DIST_PKG.Pay_Dist_Proc<- ' ||
2045:
2046: -- Logging Infra: Procedure level
2047: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2048: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2049: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2050: END IF;
2051:
2052:
2053: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2052:
2053: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2054: l_log_msg := 'Parameters: Invoice_ID = '|| p_inv_rec.invoice_id
2055: ||'Invoice_Dist_ID = '|| p_inv_dist_rec.invoice_distribution_id;
2056: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2057: END IF;
2058:
2059: /* Performance Fix 7308385 starts
2060: -- Selecting the distribution amount including the AWT distributions for
2081: l_total_dist_amount := G_Total_Dist_Amount;
2082: -- Performance Fix 7308385 ends
2083:
2084: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2085: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,
2086: 'l_total_dist_amount: '||l_total_dist_amount||
2087: ' p_inv_pay_rec.invoice_payment_id: '||p_inv_pay_rec.invoice_payment_id);
2088: END IF;
2089:
2091: l_proration_divisor := l_total_dist_amount;
2092: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2093: l_log_msg := 'p_inv_dist_rec.Line_Type_Lookup_Code = AWT' ||
2094: 'including AWT and l_proration_divisor =' || NVL(l_proration_divisor,0);
2095: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2096: END IF;
2097:
2098: ELSE
2099: --bug6147546
2122:
2123: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2124: l_log_msg := 'p_inv_dist_rec.Line_Type_Lookup_Code <> AWT' ||
2125: 'exclude AWT and l_proration_divisor =' || NVL(l_proration_divisor,0);
2126: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2127: END IF;
2128: END IF;
2129:
2130:
2133: IF (p_inv_rec.invoice_currency_code <> p_inv_rec.payment_currency_code) THEN
2134:
2135: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2136: l_log_msg := 'this is cross currency';
2137: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2138: END IF;
2139: l_dist_amt_pay_curr := GL_Currency_API.Convert_Amount(
2140: p_inv_rec.invoice_currency_code,
2141: p_inv_rec.payment_currency_code,
2162:
2163: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2164: l_log_msg := 'Calculating payment and dist amt in bank currency for event type:'
2165: ||p_xla_event_rec.event_type_code;
2166: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2167: END IF;
2168:
2169:
2170: /* Converting the payment and distribution amount into bank currency */
2178: 'p_inv_pay_rec.amount = ' || p_inv_pay_rec.amount ||
2179: 'l_dist_amt_pay_curr =' || l_dist_amt_pay_curr ||
2180: 'p_pay_hist_rec.pmt_to_base_xrate = ' || p_pay_hist_rec.pmt_to_base_xrate ||
2181: 'p_pay_hist_rec.bank_to_base_xrate' || p_pay_hist_rec.bank_to_base_xrate;
2182: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2183: END IF;
2184:
2185:
2186: l_pay_amount_bank_curr := AP_Utilities_Pkg.AP_Round_Currency(
2196: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2197: l_log_msg := 'after calculation and' ||
2198: 'l_dist_amt_bank_curr = ' || l_dist_amt_bank_curr||
2199: 'l_pay_amount_bank_curr = ' || l_pay_amount_bank_curr;
2200: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2201: END IF;
2202:
2203: -- Added for bug fix 5694577
2204: ELSE -- p_pay_hist_rec.pmt_currency_code = p_pay_hist_rec.bank_currency_code
2206: l_pay_amount_bank_curr := p_inv_pay_rec.amount;
2207: l_dist_amt_bank_curr := l_dist_amt_pay_curr;
2208:
2209: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2210: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,
2211: 'l_pay_amount_bank_curr = ' || l_pay_amount_bank_curr||
2212: 'l_dist_amt_bank_curr = ' || l_dist_amt_bank_curr);
2213: END IF;
2214:
2218:
2219: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2220: l_log_msg := 'assign some bank related variables for other event type=>'
2221: ||p_xla_event_rec.event_type_code;
2222: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2223: END IF;
2224:
2225: l_pay_amount_bank_curr := p_inv_pay_rec.amount;
2226: l_dist_amt_bank_curr := l_dist_amt_pay_curr;
2228: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2229: l_log_msg := 'payment currency code = bank currency code for event type '||
2230: 'l_dist_amt_bank_curr = ' || l_dist_amt_bank_curr||
2231: 'l_pay_amount_bank_curr = ' || l_pay_amount_bank_curr;
2232: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2233: END IF;
2234:
2235: END IF; -- end of check event type
2236:
2240: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2241: l_log_msg := 'this run p_inv_dist_rec.amount = ' ||
2242: p_inv_dist_rec.amount ||
2243: 'Up to now ->g_total_dist_amt = '||g_total_dist_amt;
2244: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2245: END IF;
2246:
2247: /* We should distribute the discount amount first so that during the final payment
2248: this discount amount is also considered for adjusting the distribution */
2251:
2252: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2253: l_log_msg := 'Calling procedure Pay_Dist_Discount for dist: '
2254: || p_inv_dist_rec.invoice_distribution_id;
2255: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2256: END IF;
2257:
2258: Pay_Dist_Discount
2259: (p_xla_event_rec,
2272: 'p_disc_pay_amount =' || l_disc_pay_amount ||
2273: 'p_disc_dist_amount ='|| l_disc_dist_amount ||
2274: 'p_disc_bank_amount ='|| l_disc_bank_amount;
2275:
2276: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2277: END IF;
2278: END IF;
2279:
2280: IF (p_calc_mode IN ('P', 'M')) THEN
2280: IF (p_calc_mode IN ('P', 'M')) THEN
2281:
2282: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2283: l_log_msg := 'calculation mode p_calc_mode =' || p_calc_mode ;
2284: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2285: END IF;
2286:
2287: -- If this payment is a final payment for the invoice then we should make sure
2288: -- that the sum of payment distributions amount should be equal to the distribution
2291: IF p_final_payment = TRUE THEN
2292:
2293: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2294: l_log_msg := 'This is a final payment and now calling AP_Accounting_Pay_Pkg.Get_Pay_Sum';
2295: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2296: END IF;
2297:
2298: AP_Accounting_Pay_Pkg.Get_Pay_Sum
2299: (p_inv_dist_rec.invoice_distribution_id,
2307: l_log_msg := 'After Calling function AP_Accounting_Pay_Pkg.Get_Pay_Sum' ||
2308: 'l_total_paid_amt==' || nvl(l_total_paid_amt,0) ||
2309: 'l_tot_paid_amt_inv_curr=' || nvl(l_tot_paid_amt_inv_curr,0) ||
2310: 'l_tot_paid_amt_bank_curr =' || nvl(l_tot_paid_amt_bank_curr,0);
2311: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2312: END IF;
2313:
2314:
2315: l_total_prepaid_amt := AP_Accounting_Pay_Pkg.Get_Prepay_Sum
2320: l_log_msg := 'get pay sum and its amount = ' ||
2321: l_total_paid_amt ||
2322: 'get prepay sum and its amount = '||
2323: l_total_prepaid_amt;
2324: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2325: END IF;
2326:
2327:
2328: -- Converting the distribution and prepaid amount into payment currency for
2330: IF (p_inv_rec.invoice_currency_code <> p_inv_rec.payment_currency_code) THEN
2331:
2332: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2333: l_log_msg := 'Converting prepaid amount into payment currency';
2334: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2335: END IF;
2336:
2337: l_tot_prepaid_amt_pay_curr := GL_Currency_API.Convert_Amount(
2338: p_inv_rec.invoice_currency_code,
2350: 'PAYMENT CLEARING ADJUSTED')) THEN
2351:
2352: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2353: l_log_msg := 'Converting prepaid amount into bank currency';
2354: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2355: END IF;
2356:
2357: IF ( p_pay_hist_rec.pmt_currency_code <> p_pay_hist_rec.bank_currency_code
2358: AND p_pay_hist_rec.bank_currency_code is not NULL ) THEN
2386: l_log_msg := 'Value for l_prorated_amount = ' || l_prorated_amount ||
2387: 'Value for l_inv_dist_amount = ' || l_inv_dist_amount ||
2388: 'Value for l_bank_curr_amount =' || l_bank_curr_amount;
2389:
2390: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2391: END IF;
2392:
2393: ELSE
2394:
2393: ELSE
2394:
2395: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2396: l_log_msg := 'this is NOT a final payment';
2397: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2398: END IF;
2399:
2400: IF g_total_dist_amt = l_total_dist_amount THEN -- last dist rec
2401:
2401:
2402: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2403: l_log_msg := 'g_total_dist_amt equal l_total_dist_amount =' ||
2404: l_total_dist_amount;
2405: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2406: END IF;
2407:
2408: -- To avoid rounding, massage the last (biggest) line
2409: l_prorated_amount := p_inv_pay_rec.amount - g_total_prorated_amt;
2414: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2415: l_log_msg := 'Value for l_prorated_amount = ' || l_prorated_amount ||
2416: 'Value for l_inv_dist_amoun = ' || l_inv_dist_amount ||
2417: 'l_bank_curr_amount = ' || l_bank_curr_amount;
2418: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2419: END IF;
2420:
2421:
2422: ELSE
2422: ELSE
2423:
2424: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2425: l_log_msg := 'This is not the last invoice distribution for proration';
2426: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2427: END IF;
2428:
2429: IF NVL(l_proration_divisor,0) = 0 THEN
2430: l_prorated_amount := 0;
2435:
2436: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2437: l_log_msg := 'l_proration_divisor is not 0 it is =>'
2438: || l_proration_divisor;
2439: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2440: END IF;
2441:
2442: -- We do not need to prorate the AWT amounts for the AWT distributions
2443: -- that are created during payment time
2445: IF p_inv_dist_rec.awt_invoice_payment_id IS NOT NULL THEN
2446:
2447: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2448: l_log_msg := 'AWT at payment time and should not prorate to awt pmt distribution';
2449: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2450: END IF;
2451:
2452: l_prorated_amount := GL_Currency_API.Convert_Amount(
2453: p_inv_rec.invoice_currency_code,
2475: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2476: l_log_msg := 'AWT at payment time and ' ||
2477: ' l_prorated_amount = ' || l_prorated_amount ||
2478: 'l_bank_curr_amount = ' || l_bank_curr_amount;
2479: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2480: END IF;
2481:
2482: ELSE
2483:
2507: END IF; -- If AWT created at payment time
2508:
2509: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2510: l_log_msg := 'Value for l_prorated_amount = ' || l_prorated_amount;
2511: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2512: END IF;
2513:
2514:
2515: END IF;
2530: l_log_msg := 'After final payment check/process and' ||
2531: 'g_total_prorated_amt = ' || nvl(g_total_prorated_amt,0) ||
2532: 'g_total_inv_dist_amt = ' || nvl(g_total_inv_dist_amt,0) ||
2533: 'g_total_bank_curr_amt = ' ||nvl(g_total_bank_curr_amt,0);
2534: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2535: END IF;
2536:
2537:
2538: /* If this is a cascade event then we will create new payment distributions
2542: ELSE
2543:
2544: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2545: l_log_msg := 'calculation mode p_calc_mode (cascade?) =' || p_calc_mode ;
2546: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2547: END IF;
2548:
2549: IF NVL(l_proration_divisor, 0) = 0 THEN
2550: l_prorated_amount := 0;
2641: END IF; -- If AWT created at payment time
2642:
2643: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2644: l_log_msg := 'Value for l_prorated_amount = ' || l_prorated_amount;
2645: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2646: END IF;
2647:
2648: END IF;
2649: END IF; -- If calc_mode in ('P','M')
2649: END IF; -- If calc_mode in ('P','M')
2650:
2651: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2652: l_log_msg := 'Now calling AP_Accounting_Pay_Pkg.Get_Base_Amount before insert';
2653: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2654: END IF;
2655:
2656: l_prorated_base_amount := AP_Accounting_Pay_Pkg.Get_Base_Amount
2657: (l_prorated_amount,
2665: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2666: l_log_msg := 'after call AP_Accounting_Pay_Pkg.Get_Base_Amoun and ' ||
2667: 'l_prorated_base_amount=' || nvl(l_prorated_base_amount,0) ||
2668: 'l_prorated_amount= ' || nvl(l_prorated_amount,0);
2669: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2670: END IF;
2671:
2672: -- populate the payment distribution record
2673:
2676:
2677: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2678: l_log_msg := 'Start to populate the l_pd_rec for event id' ||
2679: l_pd_rec.accounting_event_id;
2680: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2681: END IF;
2682:
2683:
2684: IF p_inv_dist_rec.line_type_lookup_code = 'AWT' THEN
2761: p_inv_rec.exchange_rate / p_inv_rec.payment_cross_rate) THEN
2762:
2763: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2764: l_log_msg := 'pmt to base rate = inv to base rate';
2765: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2766: END IF;
2767:
2768: l_pd_rec.invoice_dist_base_amount := l_prorated_base_amount;
2769:
2783: l_log_msg := 'pmt to base rate <> inv to base rate and ' ||
2784: 'l_pd_rec.invoice_dist_base_amount =' ||
2785: nvl(l_pd_rec.invoice_dist_base_amount,0) ||
2786: 'l_prorated_base_amount =' || nvl(l_prorated_base_amount,0);
2787: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2788: END IF;
2789:
2790: END IF;
2791:
2793: IF p_inv_dist_rec.quantity_variance IS NOT NULL THEN
2794:
2795: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2796: l_log_msg := 'Invoice has quantity variance';
2797: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2798: END IF;
2799:
2800: IF p_inv_dist_rec.amount = 0 THEN
2801: l_qty_variance := 0;
2820: IF p_inv_dist_rec.amount_variance IS NOT NULL THEN
2821:
2822: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2823: l_log_msg := 'Invoice has amount variance';
2824: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2825: END IF;
2826:
2827: IF p_inv_dist_rec.amount = 0 THEN
2828: l_amt_variance := 0;
2851:
2852:
2853: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2854: l_log_msg := 'Calling procedure Pay_Dist_Insert';
2855: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2856: END IF;
2857:
2858:
2859: -- Insert the payment hist distribution
2864:
2865: --bug7446229
2866: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2867: l_log_msg := 'Procedure Pay_Dist_Insert executed';
2868: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2869: END IF;
2870:
2871:
2872: IF ((p_xla_event_rec.event_type_code NOT IN
2887: l_log_msg := 'Calling procedure Pay_Dist_ERV for dist:' ||
2888: p_inv_dist_rec.invoice_distribution_id ||
2889: 'and pmt l_prorated_amount =' || l_prorated_amount ||
2890: 'and discount amout prorated = ' || l_disc_pay_amount ;
2891: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2892: END IF;
2893:
2894: Pay_Dist_ERV
2895: (p_xla_event_rec,
2901: l_curr_calling_sequence);
2902:
2903: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2904: l_log_msg := 'Procedure Pay_Dist_ERV executed';
2905: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2906: END IF;
2907:
2908:
2909: END IF;
2909: END IF;
2910:
2911: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2912: l_log_msg := 'End of pay_dist_proc';
2913: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2914: END IF;
2915:
2916: EXCEPTION
2917: WHEN OTHERS THEN
2958: l_pd_rec AP_PAYMENT_HIST_DISTS%ROWTYPE;
2959:
2960: -- Logging Infra:
2961: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_Discount';
2962: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2963: l_total_dist_amount NUMBER; -- Added for bug 7577312
2964:
2965: BEGIN
2966:
2971:
2972: -- Logging Infra: Procedure level
2973: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2974: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2975: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2976: END IF;
2977:
2978:
2979: l_exclude_tax_from_disc := p_inv_rec.Disc_Is_Inv_Less_Tax_Flag;
2981:
2982: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2983: l_log_msg := 'l_exclude_tax_from_disc =' || l_exclude_tax_from_disc ||
2984: 'l_exclude_frt_from_disc = ' || l_exclude_frt_from_disc;
2985: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2986: END IF;
2987:
2988: -- Bug 7577312: Assigning the value of the l_total_dist_amount
2989: l_total_dist_amount := G_Total_Dist_Amount;
3013:
3014: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3015: l_log_msg := 'Total invoice amount excluding tax or freight = '||
3016: l_invoice_amount;
3017: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3018: END IF;
3019:
3020:
3021: /* If the options exclude_tax_from_disc and exclude_frt_from_disc
3025: AND ( p_inv_dist_rec.line_type_lookup_code = 'REC_TAX' or
3026: p_inv_dist_rec.line_type_lookup_code = 'NONREC_TAX') ) THEN
3027: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3028: l_log_msg := 'l_exclude_tax_from_disc= Y so this procedure do nothing for tax line';
3029: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3030: END IF;
3031:
3032: RETURN;
3033:
3035: AND p_inv_dist_rec.line_type_lookup_code = 'FREIGHT') THEN
3036:
3037: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3038: l_log_msg := 'l_exclude_frt_from_disc= Y so this procedure do nothing';
3039: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3040: END IF;
3041:
3042: RETURN;
3043:
3044: ELSE
3045:
3046: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3047: l_log_msg := 'consider discount prorate to frieight';
3048: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3049: END IF;
3050:
3051: IF (p_inv_rec.invoice_currency_code <> p_inv_rec.payment_currency_code) THEN
3052:
3068:
3069: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3070: l_log_msg := 'assigning the disc_amt_bank_curr for event type' ||
3071: p_xla_event_rec.event_type_code;
3072: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3073: END IF;
3074:
3075: IF p_pay_hist_rec.pmt_currency_code <> p_pay_hist_rec.bank_currency_code THEN
3076:
3075: IF p_pay_hist_rec.pmt_currency_code <> p_pay_hist_rec.bank_currency_code THEN
3076:
3077: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3078: l_log_msg := 'Converting discount amt into bank currency';
3079: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3080: END IF;
3081:
3082:
3083: l_disc_amt_bank_curr :=
3102:
3103: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3104: l_log_msg := 'assigning the disc_amt_bank_curr for event type' ||
3105: p_xla_event_rec.event_type_code;
3106: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3107: END IF;
3108:
3109: l_disc_amt_bank_curr := p_inv_pay_rec.discount_taken;
3110:
3114: IF (p_calc_mode IN ('P','M')) THEN
3115:
3116: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3117: l_log_msg := 'not cascade mode - p_calc_mode = ' || p_calc_mode;
3118: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3119: END IF;
3120:
3121: -- Bug 7577312: Changed the logic here to refer to l_total_dist_amount
3122: IF g_total_dist_amt = l_total_dist_amount THEN -- last dist rec
3127: l_bank_curr_amount := l_disc_amt_bank_curr - g_total_bank_curr_disc_amt;
3128:
3129: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3130: l_log_msg := 'Value of l_prorated_disc_amt = '||l_prorated_disc_amt;
3131: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3132: END IF;
3133:
3134:
3135: ELSE
3164: END IF;
3165:
3166: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3167: l_log_msg := 'Value of l_prorated_disc_amt = '||l_prorated_disc_amt;
3168: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3169: END IF;
3170:
3171: END IF;
3172:
3177: ELSE
3178:
3179: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3180: l_log_msg := 'seems cascade mode - p_calc_mode = ' || p_calc_mode;
3181: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3182: END IF;
3183:
3184: l_prorated_disc_amt := AP_UTILITIES_PKG.AP_ROUND_CURRENCY
3185: (p_inv_pay_rec.discount_taken * p_inv_dist_rec.amount
3214: END IF;
3215:
3216: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3217: l_log_msg := 'Value of l_prorated_disc_amt = '||l_prorated_disc_amt;
3218: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3219: END IF;
3220:
3221:
3222: END IF; -- If calc_mode in ('P,'M')
3322: END IF;
3323:
3324: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3325: l_log_msg := 'Calling procedure Pay_Dist_Insert';
3326: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3327: END IF;
3328:
3329:
3330: Pay_Dist_Insert
3338:
3339:
3340: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3341: l_log_msg := 'Procedure Pay_Dist_Insert executed';
3342: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3343: END IF;
3344:
3345:
3346: EXCEPTION
3379: l_pd_rec AP_PAYMENT_HIST_DISTS%ROWTYPE;
3380:
3381: -- Logging Infra:
3382: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_ERV';
3383: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3384:
3385: BEGIN
3386:
3387:
3391:
3392: -- Logging Infra: Procedure level
3393: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3394: l_log_msg := 'Begin of procedure '|| l_procedure_name;
3395: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3396: END IF;
3397:
3398: IF p_inv_dist_rec.rcv_transaction_id IS NOT NULL THEN
3399:
3404:
3405: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3406: l_log_msg := 'receipt matching and exchange rate = ' ||
3407: l_po_exchange_rate;
3408: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3409: END IF;
3410:
3411: ELSE
3412:
3417:
3418: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3419: l_log_msg := 'po matching and exchange rate = ' ||
3420: l_po_exchange_rate;
3421: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3422: END IF;
3423:
3424: END IF;
3425:
3433:
3434: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3435: l_log_msg := 'Value of l_po_pay_exchange_rate = '||l_po_pay_exchange_rate ||
3436: 'value of p_prorated_amount=' || p_prorated_amount;
3437: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3438: END IF;
3439:
3440:
3441: /* For Cash Basis ERV is Difference between Payment Exchange Rate and
3484: l_pd_rec.invoice_dist_base_amount := l_inv_erv_amount;
3485:
3486: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3487: l_log_msg := 'Calling procedure Pay_Dist_Insert';
3488: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3489: END IF;
3490:
3491: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3492: l_log_msg := 'before callining erv/terv insert -' ||
3493: 'l_pd_rec.invoice_dist_base_amount = ' ||
3494: l_pd_rec.invoice_dist_base_amount ||
3495: 'l_pd_rec.paid_base_amount or cleared_base_amount =' ||
3496: l_erv_amount;
3497: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3498: END IF;
3499:
3500: Pay_Dist_Insert
3501: (l_pd_rec,
3502: l_curr_calling_sequence);
3503:
3504: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3505: l_log_msg := 'Procedure Pay_Dist_Insert executed';
3506: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3507: END IF;
3508:
3509: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3510: l_log_msg := 'end of procedure Pay_Dist_ERV';
3507: END IF;
3508:
3509: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3510: l_log_msg := 'end of procedure Pay_Dist_ERV';
3511: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3512: END IF;
3513:
3514: EXCEPTION
3515: WHEN OTHERS THEN
3562: ORDER BY Amount;
3563:
3564: -- Logging Infra:
3565: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_Err_Chrg';
3566: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3567:
3568:
3569: BEGIN
3570:
3574:
3575: -- Logging Infra: Procedure level
3576: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3577: l_log_msg := 'Begin of procedure '|| l_procedure_name;
3578: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3579: END IF;
3580:
3581:
3582: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3582: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3583: l_log_msg := 'Passing Parameters are ' ||
3584: 'p_distribute_mode=' || p_distribute_mode ||
3585: 'event_id = ' || p_xla_event_rec.event_id;
3586: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3587: END IF;
3588:
3589:
3590: IF ( p_distribute_mode = 'BANK_ERROR' AND
3601:
3602: ELSE
3603: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3604: l_log_msg := 'No need to prorate charge or error when amount=0 - return';
3605: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3606: END IF;
3607: return;
3608: END IF;
3609:
3608: END IF;
3609:
3610: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3611: l_log_msg := 'l_err_chrg_amount= ' || l_err_chrg_amount;
3612: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3613: END IF;
3614:
3615:
3616: SELECT SUM(Amount)
3625:
3626: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3627: l_log_msg := 'CUR: clearing_pay_dists: Invoice_Dist_ID = '
3628: ||l_clr_rec.invoice_distribution_id;
3629: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3630: END IF;
3631:
3632: l_total_dist_amt := l_total_dist_amt + l_clr_rec.amount;
3633:
3731:
3732:
3733: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3734: l_log_msg := 'Calling procedure Pay_Dist_Insert';
3735: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3736: END IF;
3737:
3738: -- Insert the payment hist distribution
3739: Pay_Dist_Insert
3741: l_curr_calling_sequence);
3742:
3743: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3744: l_log_msg := 'Procedure Pay_Dist_Insert executed';
3745: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3746: END IF;
3747:
3748:
3749: END LOOP;
3784: l_curr_calling_sequence VARCHAR2(2000);
3785:
3786: -- Logging Infra:
3787: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_Reverse';
3788: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3789:
3790: l_transaction_type AP_PAYMENT_HISTORY_ALL.TRANSACTION_TYPE%TYPE;
3791: l_payment_history_id AP_PAYMENT_HISTORY_ALL.PAYMENT_HISTORY_ID%TYPE;
3792: l_accounting_event_id AP_PAYMENT_HISTORY_ALL.ACCOUNTING_EVENT_ID%TYPE;
3801:
3802: -- Logging Infra: Procedure level
3803: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3804: l_log_msg := 'Begin of procedure '|| l_procedure_name;
3805: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3806: END IF;
3807:
3808: IF p_reversal_inv_pmt_id IS NOT NULL THEN
3809:
3810:
3811: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3812: l_log_msg := 'Reversing based on reversal_inv_pmt_id '||
3813: p_reversal_inv_pmt_id;
3814: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3815: END IF;
3816:
3817: INSERT INTO ap_payment_hist_dists
3818: (Payment_Hist_Dist_ID,
3894:
3895: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3896: l_log_msg := 'Reversing based on related_event_id '||
3897: p_related_event_id;
3898: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3899: END IF;
3900:
3901: -- Bug 5015973. We will insert the new invoice_payment_id only for the
3902: -- cancelled event.
4076:
4077: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4078: l_log_msg := 'Reversing based on invoice_distribution_id '||
4079: p_invoice_dist_id;
4080: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4081: END IF;
4082:
4083: INSERT INTO ap_payment_hist_dists
4084: (Payment_Hist_Dist_ID,
4157:
4158:
4159: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4160: l_log_msg := 'Done reversing the payment dists';
4161: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4162: END IF;
4163:
4164:
4165: -- Bug 6839052. Payment Cancellation cannot account for upgraded payments
4184:
4185: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4186: l_log_msg := 'Transaction Type based on the event type is '||
4187: l_transaction_type;
4188: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4189: END IF;
4190:
4191: BEGIN
4192: SELECT Payment_History_ID,
4203:
4204: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4205: l_log_msg := 'Accounting Event ID of the related event '||
4206: l_accounting_event_id;
4207: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4208: END IF;
4209:
4210: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4211: l_log_msg := 'Historical Flag of the related event '||
4209:
4210: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4211: l_log_msg := 'Historical Flag of the related event '||
4212: l_historical_flag;
4213: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4214: END IF;
4215:
4216: IF l_historical_flag = 'Y' THEN
4217:
4216: IF l_historical_flag = 'Y' THEN
4217:
4218: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4219: l_log_msg := 'Calling procedure Upg_Dist_Link_Insert';
4220: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4221: END IF;
4222:
4223: Upg_Dist_Links_Insert
4224: (p_xla_event_rec,
4227: l_curr_calling_sequence);
4228:
4229: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4230: l_log_msg := 'Procedure Upg_Dist_Link_Insert complete';
4231: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4232: END IF;
4233:
4234: END IF;
4235:
4236: EXCEPTION
4237: WHEN others THEN
4238: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4239: l_log_msg := 'Procedure Pay_Dist_Reverse raised exceptions';
4240: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4241: END IF;
4242: NULL;
4243: END;
4244:
4246:
4247: -- Logging Infra: Procedure level
4248: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4249: l_log_msg := 'End of procedure '|| l_procedure_name;
4250: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
4251: END IF;
4252:
4253:
4254: EXCEPTION
4277: l_curr_calling_sequence VARCHAR2(2000);
4278:
4279: -- Logging Infra:
4280: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_Insert';
4281: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4282:
4283:
4284: BEGIN
4285:
4289:
4290: -- Logging Infra: Procedure level
4291: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4292: l_log_msg := 'Begin of procedure '|| l_procedure_name;
4293: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4294: END IF;
4295:
4296:
4297: INSERT INTO AP_Payment_Hist_Dists
4364:
4365: -- Logging Infra: Procedure level
4366: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4367: l_log_msg := 'End of procedure '|| l_procedure_name;
4368: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
4369: END IF;
4370:
4371:
4372: EXCEPTION
4402: l_curr_calling_sequence VARCHAR2(2000);
4403:
4404: -- Logging Infra:
4405: l_procedure_name CONSTANT VARCHAR2(30) := 'Upg_Dist_Links_Insert';
4406: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4407:
4408:
4409: BEGIN
4410:
4414:
4415: -- Logging Infra: Procedure level
4416: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4417: l_log_msg := 'Begin of procedure '|| l_procedure_name;
4418: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||
4419: '.begin', l_log_msg);
4420: END IF;
4421:
4422: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4420: END IF;
4421:
4422: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4423: l_log_msg := 'Deleting xla_distribution_links';
4424: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4425: END IF;
4426:
4427: DELETE FROM xla_distribution_links
4428: WHERE application_id = 200
4440:
4441: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4442: l_log_msg := 'Inserting xla_distribution_links for event '||
4443: p_accounting_event_id;
4444: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4445: END IF;
4446:
4447:
4448: INSERT INTO XLA_Distribution_Links t1
4773:
4774:
4775: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4776: l_log_msg := 'Done inserting into xla_distribution_links';
4777: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,
4778: l_log_msg);
4779: END IF;
4780:
4781:
4781:
4782: -- Logging Infra: Procedure level
4783: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4784: l_log_msg := 'End of procedure '|| l_procedure_name;
4785: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end',
4786: l_log_msg);
4787: END IF;
4788:
4789: