[Home] [Help]
14:
15: G_Pay_AWT_Total_amt NUMBER := 0; --Bug 8524600
16: G_Inv_Adj_Amount NUMBER := 0; --BUG 9495429
17: -- Logging Infra
18: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
19: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
20: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
21: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
22: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
15: G_Pay_AWT_Total_amt NUMBER := 0; --Bug 8524600
16: G_Inv_Adj_Amount NUMBER := 0; --BUG 9495429
17: -- Logging Infra
18: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
19: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
20: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
21: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
22: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
23: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
16: G_Inv_Adj_Amount NUMBER := 0; --BUG 9495429
17: -- Logging Infra
18: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
19: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
20: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
21: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
22: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
23: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
24: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
17: -- Logging Infra
18: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
19: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
20: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
21: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
22: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
23: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
24: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PAY_DIST_PKG.';
18: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
19: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
20: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
21: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
22: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
23: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
24: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PAY_DIST_PKG.';
26: -- Logging Infra
19: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
20: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
21: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
22: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
23: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
24: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PAY_DIST_PKG.';
26: -- Logging Infra
27:
20: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
21: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
22: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
23: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
24: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PAY_DIST_PKG.';
26: -- Logging Infra
27:
28: -------------------------------------------------------------------------------
42: l_when_to_account_gain_loss ap_system_parameters_all.when_to_account_gain_loss%TYPE;
43:
44: -- Logging Infra:
45: l_procedure_name CONSTANT VARCHAR2(30) := 'Update_Gain_Loss_Ind';
46: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
47: CURSOR gain_loss_cur( p_payment_history_id NUMBER, p_accounting_event_id NUMBER )
48: IS
49: SELECT SUM( NVL( aphd.paid_base_amount, 0 ) ) inv_pay_amt
50: , SUM( NVL( aphd.invoice_dist_base_amount, 0 ) ) inv_amt
71: l_curr_calling_sequence := 'AP_Acctg_Pay_Dist_Pkg.Update_Gain_Loss_Ind<- '||
72: p_calling_sequence;
73:
74: -- Logging Infra: Setting up runtime level
75: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
76:
77: -- Logging Infra: Procedure level
78: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
79: l_log_msg := 'Begin of procedure '|| l_procedure_name;
76:
77: -- Logging Infra: Procedure level
78: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
79: l_log_msg := 'Begin of procedure '|| l_procedure_name;
80: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
81: END IF;
82:
83: OPEN GAIN_LOSS_CUR(P_PAY_HIST_REC.PAYMENT_HISTORY_ID,P_XLA_EVENT_REC.EVENT_ID) ;
84: FETCH GAIN_LOSS_CUR BULK COLLECT INTO GAIN_LOSS_TBL ;
99:
100: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
101: l_log_msg := 'Updating Gain Loss Indicator for Events ' ||
102: P_XLA_Event_Rec.Event_Type_Code;
103: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
104: END IF;
105:
106: UPDATE AP_PAYMENT_HIST_DISTS APHD
107: SET APHD.GAIN_LOSS_INDICATOR =
122:
123: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
124: l_log_msg := 'Updating Gain Loss Indicator for Events: Event_ID = ' ||
125: P_XLA_Event_Rec.Event_ID;
126: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
127: END IF;
128:
129: UPDATE AP_PAYMENT_HIST_DISTS APHD
130: SET APHD.GAIN_LOSS_INDICATOR =
144:
145: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
146: l_log_msg := 'Updating Gain Loss Indicator for Events: Event_ID = ' ||
147: P_XLA_Event_Rec.Event_ID;
148: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
149: END IF;
150:
151: SELECT COUNT( * )
152: INTO l_pay_mat_count
169: l_when_to_account_gain_loss = 'CLEARING ONLY' ) THEN -- bug 13257091
170:
171: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
172: l_log_msg := 'Updating Gain Loss between maturity and clearing events';
173: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
174: END IF;
175:
176: UPDATE AP_PAYMENT_HIST_DISTS APHD
177: SET APHD.GAIN_LOSS_INDICATOR =
189: ELSE
190:
191: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
192: l_log_msg := 'Updating Gain Loss between invoice/payment and clearing events';
193: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
194: END IF;
195:
196: --bug 5257209
197: -- commented for the bug 13257091 and the select statement moved to above
208: l_when_to_account_gain_loss = 'CLEARING ONLY' ) THEN
209:
210: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
211: l_log_msg := 'Update Gain/Loss between invoice and clearing for gain/loss at clear only';
212: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
213: END IF;
214:
215: -- Bug 6678474. Backing out the fix for bug 6621586 since it is incorrect.
216: UPDATE AP_PAYMENT_HIST_DISTS APHD
228: ELSE
229:
230: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
231: l_log_msg := 'Update Gain/Loss between payment and clearing for gain/loss at always';
232: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
233: END IF;
234:
235: -- Bug 6678474. Backing out the fix for bug 6621586 since it is incorrect.
236: UPDATE AP_PAYMENT_HIST_DISTS APHD
253: AND NVL(fnd_profile.value('FV_ENABLED'), 'N') = 'Y' )THEN
254:
255: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
256: l_log_msg := 'Update Gain/Loss for Payment Cancellation';
257: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
258: END IF;
259:
260: UPDATE AP_PAYMENT_HIST_DISTS APHD
261: SET APHD.GAIN_LOSS_INDICATOR =
275: END IF ;
276: -- Logging Infra: Procedure level
277: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
278: l_log_msg := 'End of procedure '|| l_procedure_name;
279: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
280: END IF;
281:
282:
283: EXCEPTION
316: l_inv_dist_rec ap_accounting_pay_pkg.r_inv_dist_info;
317:
318: -- Logging Infra:
319: l_procedure_name CONSTANT VARCHAR2(30) := 'Primary_Pay_Events';
320: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
321:
322: -- bug fix 6674279
323: b_generate_pay_dist BOOLEAN;
324: l_sum_per_event NUMBER;
367: p_calling_sequence;
368:
369:
370: -- Logging Infra: Setting up runtime level
371: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
372:
373: -- Logging Infra: Procedure level
374: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
375: l_log_msg := 'Begin of procedure '|| l_procedure_name;
372:
373: -- Logging Infra: Procedure level
374: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
375: l_log_msg := 'Begin of procedure '|| l_procedure_name;
376: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
377: END IF;
378:
379:
380: OPEN Payment_History(P_XLA_Event_Rec.Event_ID);
386: l_log_msg := 'CUR: Payment_History: Payment_History_ID = '||
387: l_pay_hist_rec.payment_history_id ||
388: 'and event type for payment is: ' ||
389: P_XLA_Event_Rec.Event_Type_Code;
390: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
391: END IF;
392:
393: /* We need payment hist information for the prior events in order
394: to calculate the base amounts for the prior events using the
404:
405: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
406: l_log_msg := 'inside logic of payment matured event and event type'||
407: P_XLA_Event_Rec.Event_Type_Code;
408: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
409: END IF;
410:
411: SELECT APH.Payment_History_ID,
412: APH.Pmt_To_Base_XRate_Type,
432: || ap_accounting_pay_pkg.g_pmt_to_base_xrate_date
433: || 'ap_accounting_pay_pkg.g_pmt_to_base_xrate'
434: || ap_accounting_pay_pkg.g_pmt_to_base_xrate;
435:
436: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
437: END IF;
438:
439: ap_accounting_pay_pkg.g_pay_pmt_history_id := l_pay_history_id;
440:
456: ap_accounting_pay_pkg.g_mat_to_base_xrate_date ||
457: 'ap_accounting_pay_pkg.g_mat_to_base_xrate' ||
458: ap_accounting_pay_pkg.g_mat_to_base_xrate;
459:
460: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
461: END IF;
462:
463: ELSIF (P_XLA_Event_Rec.Event_Type_Code IN ('PAYMENT CLEARED')) THEN
464:
464:
465: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
466: l_log_msg := 'inside logic of payment cleared event and event type'||
467: P_XLA_Event_Rec.Event_Type_Code;
468: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
469: END IF;
470:
471: SELECT APH.Payment_History_ID,
472: APH.Pmt_To_Base_XRate_Type,
487: l_log_msg := 'Payment_History_ID for payment = '
488: || l_pay_history_id
489: || 'Payment_History_ID for maturity ='
490: || l_mat_history_id;
491: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
492: END IF;
493:
494: SELECT MAX(APH.Payment_History_ID)
495: INTO l_mat_history_id
542: ap_accounting_pay_pkg.g_clr_to_base_xrate_date ||
543: 'ap_accounting_pay_pkg.g_clr_to_base_xrate=' ||
544: ap_accounting_pay_pkg.g_clr_to_base_xrate;
545:
546: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
547: END IF;
548:
549: ELSE
550:
550:
551: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
552: l_log_msg := 'inside logic of other payment event and event type'||
553: P_XLA_Event_Rec.Event_Type_Code;
554: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
555: END IF;
556:
557: ap_accounting_pay_pkg.g_pay_pmt_history_id := l_pay_hist_rec.payment_history_id;
558: ap_accounting_pay_pkg.g_pmt_to_base_xrate_type :=
564:
565: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
566: l_log_msg := 'Payment_History_ID for payment = '||
567: l_pay_hist_rec.payment_history_id;
568: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
569: END IF;
570:
571: END IF;
572:
619:
620: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
621: l_log_msg := 'loop through CUR: Clrg_Invoice_Payments: Invoice_ID = '||
622: l_inv_pay_rec.invoice_id;
623: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
624: END IF;
625:
626: ELSE
627: FETCH Invoice_Payments INTO l_inv_pay_rec;
630:
631: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
632: l_log_msg := 'loop through CUR: Invoice_Payments: Invoice_ID = '||
633: l_inv_pay_rec.invoice_id;
634: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
635: END IF;
636:
637: END IF;
638:
643:
644: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
645: l_log_msg := 'inside payment cursor loop, after open CUR:Invoice_Header: Invoice_ID= '
646: || l_inv_rec.invoice_id;
647: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
648: END IF;
649:
650: --bug 9936620
651: IF (l_inv_rec.invoice_currency_code <> l_inv_rec.payment_currency_code) THEN
732: p_xla_event_rec.event_type_code,
733: l_curr_calling_sequence) THEN
734: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
735: l_log_msg := 'Final payment of Invoice_ID '||l_inv_rec.invoice_id;
736: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
737: END IF;
738:
739: l_final_payment := AP_ACCOUNTING_PAY_PKG.Is_Final_Event
740: (l_inv_rec,
743: l_curr_calling_sequence);
744: ELSE
745: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
746: l_log_msg := 'Not final payment of Invoice_ID '||l_inv_rec.invoice_id;
747: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
748: END IF;
749: l_final_payment := FALSE;
750: END IF;
751: -- bug7247744
755: l_log_msg := 'Final pay/prepay event for Invoice_ID '||l_inv_rec.invoice_id;
756: ELSE
757: l_log_msg := 'Not final pay/prepay event for Invoice_ID '||l_inv_rec.invoice_id;
758: END IF;
759: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
760: END IF;
761:
762: --bug 9962345, modified the logic implemented in bug 9011207
763: --and moved it to after determination of l_final_payment.
801: l_final_payment := FALSE;
802:
803: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
804: l_log_msg := 'Not executing final pay logic for the current clearing txn';
805: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
806: END IF;
807: END IF;
808: END IF ;
809: --9962345 end
809: --9962345 end
810:
811: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
812: l_log_msg := 'Ready to open Invoice_Dists cursor after final payment check';
813: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
814: END IF;
815:
816: -- Perfomance Fix 7308385
817: -- Same query is used 3 different places in Pkg. when
932:
933: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
934: l_log_msg := 'Loop start for cur Invoice_Dists : Invoice_Dists: Invoice_Distribution_ID = '
935: ||l_inv_dist_rec.invoice_distribution_id;
936: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
937: END IF;
938:
939:
940: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
939:
940: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
941: l_log_msg := 'Calling procedure Pay_Dist_Proc for dist: '
942: || l_inv_dist_rec.invoice_distribution_id;
943: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
944: END IF;
945:
946: -- bugfix 6674279
947: -- for upgraded invoice adjustment event, if the distributions in the adjustment event
988:
989:
990: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
991: l_log_msg := 'Inside loop Invoice_Dists: After Procedure Pay_Dist_Proc executed';
992: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
993: END IF;
994:
995: END LOOP;
996: CLOSE Invoice_Dists;
996: CLOSE Invoice_Dists;
997:
998: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
999: l_log_msg := 'cursor Invoice_Dists is closed ';
1000: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1001: END IF;
1002:
1003: G_Total_Dist_Amt := 0;
1004: G_Total_Prorated_Amt := 0;
1012:
1013: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1014: l_log_msg := 'Calling procedure P_Acctg_Pay_Round_Pkg.Do_Rounding for Invoice_ID: '
1015: || l_inv_rec.invoice_id;
1016: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1017: END IF;
1018:
1019:
1020: -- Bug 6900582. Do not do rounding calculation if the payment is upgraded
1043: --END IF;
1044:
1045: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1046: l_log_msg := 'Procedure P_Acctg_Pay_Round_Pkg.Do_Rounding executed';
1047: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1048: END IF;
1049:
1050: l_final_payment := FALSE; --9011207 Resetting the flag
1051:
1054: IF (P_XLA_Event_Rec.Event_Type_Code IN ('PAYMENT CLEARED', 'PAYMENT MATURED')) THEN
1055: CLOSE Clrg_Invoice_Payments;
1056: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1057: l_log_msg := 'after close cursor Clrg_Invoice_Payments ';
1058: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1059: END IF;
1060: ELSE
1061: CLOSE Invoice_Payments;
1062: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1060: ELSE
1061: CLOSE Invoice_Payments;
1062: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1063: l_log_msg := 'after close cursor Invoice_Payment ';
1064: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1065: END IF;
1066: END IF;
1067:
1068:
1071: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1072: l_log_msg := 'Calling procedure Pay_Dist_Err_Chrg for errors bank amount and '
1073: || 'l_pay_hist_rec.Errors_Bank_Amount'
1074: || l_pay_hist_rec.Errors_Bank_Amount;
1075: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1076: END IF;
1077:
1078:
1079: -- Create error distribution lines
1085: ,p_calling_sequence => l_curr_calling_sequence);
1086:
1087: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1088: l_log_msg := 'Procedure Pay_Dist_Err_Chrg for errors bank amount executed';
1089: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1090: END IF;
1091:
1092: END IF;
1093:
1096: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1097: l_log_msg := 'Calling procedure Pay_Dist_Err_Chrg for charges bank amount =' ||
1098: 'l_pay_hist_rec.Charges_Bank_Amount' ||
1099: l_pay_hist_rec.Charges_Bank_Amount;
1100: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1101: END IF;
1102:
1103:
1104: -- Create charge distribution lines
1111: ,p_calling_sequence => l_curr_calling_sequence);
1112:
1113: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1114: l_log_msg := 'Procedure Pay_Dist_Err_Chrg for charges bank amount executed';
1115: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1116: END IF;
1117:
1118: END IF;
1119:
1118: END IF;
1119:
1120: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1121: l_log_msg := 'Calling procedure Update_Gain_Loss_Ind for payments';
1122: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1123: END IF;
1124:
1125: --11698822, call update_gain_loss_ind only for foreign currency txns
1126: IF l_txn_curr_code <> ap_accounting_pay_pkg.g_base_currency_code THEN
1131: END IF;
1132:
1133: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1134: l_log_msg := 'Procedure Update_Gain_Loss_Ind executed';
1135: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1136: END IF;
1137:
1138: -- Logging Infra: Procedure level
1139: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1137:
1138: -- Logging Infra: Procedure level
1139: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1140: l_log_msg := 'End of procedure '|| l_procedure_name;
1141: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
1142: END IF;
1143:
1144:
1145: EXCEPTION
1184: --Bug 8524600
1185: l_cross_txn_amt NUMBER; --bug 9936620
1186: -- Logging Infra:
1187: l_procedure_name CONSTANT VARCHAR2(30) := 'Manual_Pay_Adj_Events';
1188: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1189:
1190: BEGIN
1191:
1192: l_curr_calling_sequence := 'AP_ACCTG_PAY_DIST_PKG.Manual_Pay_Adj_Events<-' ||
1192: l_curr_calling_sequence := 'AP_ACCTG_PAY_DIST_PKG.Manual_Pay_Adj_Events<-' ||
1193: p_calling_sequence;
1194:
1195: -- Logging Infra: Setting up runtime level
1196: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1197:
1198: -- Logging Infra: Procedure level
1199: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1200: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1197:
1198: -- Logging Infra: Procedure level
1199: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1200: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1201: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1202: END IF;
1203:
1204:
1205: -- Get the payment hist info of the payment event
1209:
1210: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1211: l_log_msg := 'CUR: Payment_History: Payment_History_ID = '||
1212: l_pay_hist_rec.payment_history_id;
1213: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1214: END IF;
1215:
1216:
1217: OPEN Invoice_Payments(p_xla_event_rec.event_id);
1223:
1224: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1225: l_log_msg := 'CUR: Invoice_Payments: Invoice_ID = '||l_inv_pay_rec.invoice_id
1226: || 'Reversal_Flag = '||l_inv_pay_rec.reversal_flag;
1227: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1228: END IF;
1229:
1230: /* If this invoice payment is a reversal the payment distributions will be created
1231: by reversing the original distributions */
1235:
1236: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1237: l_log_msg := 'Calling procedure Pay_Dist_Reverse for invoice: '
1238: || l_inv_pay_rec.invoice_id;
1239: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1240: END IF;
1241:
1242: -- Create payment hist distributions by reversing the
1243: -- original payment hist dists.
1252: l_curr_calling_sequence);
1253:
1254: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1255: l_log_msg := 'Procedure Pay_Dist_Reverse executed';
1256: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1257: END IF;
1258:
1259: ELSE
1260:
1264:
1265:
1266: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1267: l_log_msg := 'CUR: Invoice_Header: Invoice_ID= '|| l_inv_rec.invoice_id;
1268: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1269: END IF;
1270:
1271: --bug 9936620
1272: IF (l_inv_rec.invoice_currency_code <> l_inv_rec.payment_currency_code) THEN
1293: p_xla_event_rec.event_type_code,
1294: l_curr_calling_sequence) THEN
1295: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1296: l_log_msg := 'Final payment of Invoice_ID '||l_inv_rec.invoice_id;
1297: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1298: END IF;
1299:
1300: l_final_payment := AP_ACCOUNTING_PAY_PKG.Is_Final_Event
1301: (l_inv_rec,
1304: l_curr_calling_sequence);
1305: ELSE
1306: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1307: l_log_msg := 'Not final payment of Invoice_ID '||l_inv_rec.invoice_id;
1308: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1309: END IF;
1310: l_final_payment := FALSE;
1311: -- added in bug 12594419
1312: END IF;
1317: l_log_msg := 'Final pay/prepay event for Invoice_ID '||l_inv_rec.invoice_id;
1318: ELSE
1319: l_log_msg := 'Not final pay/prepay event for Invoice_ID '||l_inv_rec.invoice_id;
1320: END IF;
1321: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1322: END IF;
1323:
1324: -- Perfomance Fix 7308385
1325: -- Bug 7636427 Start
1376:
1377: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1378: l_log_msg := 'CUR: Invoice_Dists: Invoice_Distribution_ID = '
1379: ||l_inv_dist_rec.invoice_distribution_id;
1380: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1381: END IF;
1382:
1383:
1384: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1383:
1384: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1385: l_log_msg := 'Calling procedure Pay_Dist_Proc for dist: '
1386: || l_inv_dist_rec.invoice_distribution_id;
1387: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1388: END IF;
1389:
1390: -- Create awt distributions only when the awt is created during invoice time or
1391: -- if the awt is created during the payment time then only those awt distributions
1406:
1407:
1408: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1409: l_log_msg := 'Procedure Pay_Dist_Proc executed';
1410: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1411: END IF;
1412:
1413:
1414: END LOOP;
1425:
1426: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1427: l_log_msg := 'Calling procedure P_Acctg_Pay_Round_Pkg.Do_Rounding for Invoice_ID: '
1428: || l_inv_rec.invoice_id;
1429: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1430: END IF;
1431:
1432: -- Create total and final payment roundings
1433: AP_Acctg_Pay_Round_Pkg.Do_Rounding
1442: l_curr_calling_sequence);
1443:
1444: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1445: l_log_msg := 'Procedure P_Acctg_Pay_Round_Pkg.Do_Rounding executed';
1446: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1447: END IF;
1448:
1449:
1450: END IF;
1457: IF l_pay_hist_rec.Errors_Bank_Amount <> 0 THEN
1458:
1459: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1460: l_log_msg := 'Calling procedure Pay_Dist_Err_Chrg for errors bank amount';
1461: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1462: END IF;
1463:
1464: --bug 5659368
1465: Pay_Dist_Err_Chrg
1469: ,p_calling_sequence => l_curr_calling_sequence);
1470:
1471: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1472: l_log_msg := 'Procedure Pay_Dist_Err_Chrg for errors bank amount executed';
1473: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1474: END IF;
1475:
1476: END IF;
1477:
1479: IF l_pay_hist_rec.Charges_Bank_Amount <> 0 THEN
1480:
1481: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1482: l_log_msg := 'Calling procedure Pay_Dist_Err_Chrg for charges bank amount';
1483: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1484: END IF;
1485:
1486: --bug 5659368
1487: Pay_Dist_Err_Chrg
1491: ,p_calling_sequence => l_curr_calling_sequence);
1492:
1493: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1494: l_log_msg := 'Procedure Pay_Dist_Err_Chrg for charges bank amount executed';
1495: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1496: END IF;
1497:
1498: END IF;
1499:
1498: END IF;
1499:
1500: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1501: l_log_msg := 'Calling procedure Update_Gain_Loss_Ind for payments';
1502: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1503: END IF;
1504:
1505: --11698822, call update_gain_loss_ind only for foreign currency txns
1506: IF l_pay_hist_rec.pmt_currency_code <> ap_accounting_pay_pkg.g_base_currency_code THEN
1511: END IF;
1512:
1513: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1514: l_log_msg := 'Procedure Update_Gain_Loss_Ind executed';
1515: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1516: END IF;
1517:
1518: -- Logging Infra: Procedure level
1519: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1517:
1518: -- Logging Infra: Procedure level
1519: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1520: l_log_msg := 'End of procedure '|| l_procedure_name;
1521: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
1522: END IF;
1523:
1524:
1525: EXCEPTION
1555: l_pay_hist_rec ap_accounting_pay_pkg.r_pay_hist_info;
1556:
1557: -- Logging Infra:
1558: l_procedure_name CONSTANT VARCHAR2(30) := 'Cancel_Primary_Pay_Events';
1559: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1560:
1561: BEGIN
1562:
1563: l_curr_calling_sequence := 'AP_ACCTG_PAY_DIST_PKG.Cancel_Primary_Pay_Events<-' ||
1563: l_curr_calling_sequence := 'AP_ACCTG_PAY_DIST_PKG.Cancel_Primary_Pay_Events<-' ||
1564: p_calling_sequence;
1565:
1566: -- Logging Infra: Setting up runtime level
1567: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1568:
1569: -- Logging Infra: Procedure level
1570: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1571: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1568:
1569: -- Logging Infra: Procedure level
1570: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1571: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1572: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1573: END IF;
1574:
1575:
1576: OPEN Payment_History(p_xla_event_rec.event_id);
1579:
1580: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1581: l_log_msg := 'CUR: Payment_History: Payment_History_ID = '||
1582: l_pay_hist_rec.payment_history_id;
1583: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1584: END IF;
1585:
1586:
1587: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1586:
1587: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1588: l_log_msg := 'Calling procedure Pay_Dist_Reverse for related event: '
1589: || l_pay_hist_rec.related_event_id;
1590: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1591: END IF;
1592:
1593:
1594: -- Create payment hist dists by reversing the original payment hist
1604: l_curr_calling_sequence);
1605:
1606: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1607: l_log_msg := 'Procedure Pay_Dist_Reverse executed';
1608: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1609: END IF;
1610:
1611: -- If Validation is added for 11721100
1612: IF l_pay_hist_rec.pmt_currency_code <> ap_accounting_pay_pkg.g_base_currency_code THEN
1612: IF l_pay_hist_rec.pmt_currency_code <> ap_accounting_pay_pkg.g_base_currency_code THEN
1613:
1614: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1615: l_log_msg := 'Calling procedure Update_Gain_Loss_Ind for payments';
1616: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1617: END IF;
1618:
1619: Update_Gain_Loss_Ind
1620: (p_xla_event_rec,
1622: l_curr_calling_sequence);
1623:
1624: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1625: l_log_msg := 'Procedure Update_Gain_Loss_Ind executed';
1626: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1627: END IF;
1628:
1629: END IF; -- l_pay_hist_rec.pmt_currency_code..
1630:
1741: AND AIP.REVERSAL_INV_PMT_ID IS NULL; --bug 9005225
1742:
1743: -- Logging Infra:
1744: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_Cascade_Adj_Events';
1745: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1746:
1747:
1748: BEGIN
1749:
1750: l_curr_calling_sequence := 'AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Cascade_Adj_Events<- ' ||
1751: p_calling_sequence;
1752:
1753: -- Logging Infra: Setting up runtime level
1754: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1755:
1756: -- Logging Infra: Procedure level
1757: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1758: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1755:
1756: -- Logging Infra: Procedure level
1757: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1758: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1759: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1760: END IF;
1761:
1762:
1763: OPEN Payment_History(p_xla_event_rec.event_id);
1767:
1768: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1769: l_log_msg := 'CUR: Payment_History: Payment_History_ID = '||
1770: l_pay_hist_rec.payment_history_id;
1771: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1772: END IF;
1773:
1774:
1775: /* We need payment hist information for the prior events in order
1795: WHERE APH.Payment_History_ID = l_pay_history_id;
1796:
1797: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1798: l_log_msg := 'Payment_History_ID for payment = '|| l_pay_history_id;
1799: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1800: END IF;
1801:
1802:
1803: ap_accounting_pay_pkg.g_pay_pmt_history_id := l_pay_history_id;
1812:
1813: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1814: l_log_msg := 'Payment_History_ID for maturity = '||
1815: l_pay_hist_rec.payment_history_id;
1816: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1817: END IF;
1818:
1819:
1820: ELSIF (P_XLA_Event_Rec.Event_Type_Code IN ('PAYMENT CLEARING ADJUSTED')) THEN
1855: END IF;
1856:
1857: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1858: l_log_msg := 'Payment_History_ID for payment = '|| l_pay_history_id;
1859: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1860: END IF;
1861:
1862: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1863: l_log_msg := 'Payment_History_ID for maturity = '|| l_mat_history_id;
1860: END IF;
1861:
1862: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1863: l_log_msg := 'Payment_History_ID for maturity = '|| l_mat_history_id;
1864: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1865: END IF;
1866:
1867:
1868: ap_accounting_pay_pkg.g_pay_pmt_history_id := l_pay_history_id;
1878:
1879: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1880: l_log_msg := 'Payment_History_ID for clearing = '||
1881: l_pay_hist_rec.payment_history_id;
1882: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1883: END IF;
1884:
1885: ELSE
1886:
1894:
1895: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1896: l_log_msg := 'Payment_History_ID for payment = '||
1897: l_pay_hist_rec.payment_history_id;
1898: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1899: END IF;
1900:
1901:
1902: END IF;
1917: CLOSE Invoice_Header;
1918:
1919: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1920: l_log_msg := 'CUR: Invoice_Header: Invoice_ID= '|| l_inv_rec.invoice_id;
1921: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1922: END IF;
1923:
1924:
1925: /* Get the invoice payments that need to be adjusted */
1934:
1935: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1936: l_log_msg := 'CUR: Invoice_Payments: Invoice_ID = '||
1937: l_inv_pay_rec.invoice_id;
1938: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1939: END IF;
1940:
1941: -- Perfomance Fix 7308385
1942: -- Bug 7636427 Start
1993: p_xla_event_rec.event_type_code,
1994: l_curr_calling_sequence) THEN
1995: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1996: l_log_msg := 'Final payment of Invoice_ID '||l_inv_rec.invoice_id;
1997: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1998: END IF;
1999: l_final_payment := AP_ACCOUNTING_PAY_PKG.Is_Final_Event (l_inv_rec,
2000: p_xla_event_rec,
2001: NULL,
2002: l_curr_calling_sequence);
2003: ELSE
2004: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2005: l_log_msg := 'Not final payment of Invoice_ID '||l_inv_rec.invoice_id;
2006: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2007: END IF;
2008: END IF;
2009: END IF;
2010: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2012: l_log_msg := 'Final pay/prepay event for Invoice_ID '||l_inv_rec.invoice_id;
2013: ELSE
2014: l_log_msg := 'Not final pay/prepay event for Invoice_ID '||l_inv_rec.invoice_id;
2015: END IF;
2016: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2017: END IF;
2018:
2019: SELECT SUM(AID.Amount)
2020: INTO l_inv_adj_amount
2037: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2038: l_log_msg := 'CUR: Invoice_Dists: Invoice_Distribution_ID = '
2039: ||l_inv_dist_rec.invoice_distribution_id
2040: ||'Reversal_Flag = '||l_inv_dist_rec.reversal_flag;
2041: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2042: END IF;
2043:
2044: -- Bug 7384943. Get the count of payment dists for the parent invoice dist
2045: l_pay_dist_cnt :=0; --7602927 Intialising
2062:
2063: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2064: l_log_msg := 'Calling procedure Pay_Dist_Reverse for dist: '
2065: || l_inv_dist_rec.invoice_distribution_id;
2066: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2067: END IF;
2068:
2069: Pay_Dist_Reverse
2070: (p_xla_event_rec,
2077: l_curr_calling_sequence);
2078:
2079: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2080: l_log_msg := 'Procedure Pay_Dist_Reverse executed';
2081: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2082: END IF;
2083:
2084:
2085: ELSE
2086:
2087: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2088: l_log_msg := 'Calling procedure Pay_Dist_Proc for dist: '
2089: || l_inv_dist_rec.invoice_distribution_id;
2090: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2091: END IF;
2092:
2093:
2094: -- Create awt distributions only when the awt is created during invoice time or
2108: END IF;
2109:
2110: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2111: l_log_msg := 'Procedure Pay_Dist_Proc executed';
2112: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2113: END IF;
2114:
2115:
2116: END IF;
2119: CLOSE Invoice_Dists;
2120:
2121: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2122: l_log_msg := 'l_inv_adj_amount = ' || l_inv_adj_amount;
2123: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2124: END IF;
2125:
2126: /* Check if there is any change to the invoice liability. If there is
2127: a change then we need to adjust the payment hist distributions for the
2152:
2153: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2154: l_log_msg := 'CUR: Inv_Adj_Dists: Invoice_Distribution_ID = '
2155: ||l_inv_dist_rec.invoice_distribution_id;
2156: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2157: END IF;
2158:
2159:
2160: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2159:
2160: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2161: l_log_msg := 'Calling procedure Pay_Dist_Proc for dist: '
2162: || l_inv_dist_rec.invoice_distribution_id;
2163: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2164: END IF;
2165:
2166: Pay_Dist_Proc(p_xla_event_rec,
2167: l_inv_pay_rec,
2173: l_curr_calling_sequence);
2174:
2175: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2176: l_log_msg := 'Procedure Pay_Dist_Proc executed';
2177: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2178: END IF;
2179:
2180:
2181: END LOOP;
2237: IF (l_inv_pay_rec.discount_taken <> 0) THEN
2238:
2239: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2240: l_log_msg := 'Adjusting discount amount for technical rounding';
2241: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2242: END IF;
2243:
2244: /* Adjust the discount amount for technical rounding */
2245: IF (P_XLA_Event_Rec.Event_Type_Code IN ('PAYMENT CLEARING ADJUSTED')
2359: IF (l_pay_hist_rec.errors_bank_amount <> 0) THEN
2360:
2361: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2362: l_log_msg := 'Adjusting errors bank amount for technical rounding';
2363: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2364: END IF;
2365:
2366:
2367: /* Adjust the bank errors amount for technical rounding */
2391:
2392:
2393: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2394: l_log_msg := 'Adjusting charges bank amount for technical rounding';
2395: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2396: END IF;
2397:
2398: /* Adjust the bank charges amount for technical rounding */
2399: UPDATE AP_Payment_Hist_Dists APD
2421:
2422: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2423: l_log_msg := 'Calling procedure P_Acctg_Pay_Round_Pkg.Do_Rounding for Invoice_ID: '
2424: || l_inv_rec.invoice_id;
2425: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2426: END IF;
2427:
2428: -- Create total and final payment rounding lines
2429: AP_Acctg_Pay_Round_Pkg.Do_Rounding
2438: l_curr_calling_sequence);
2439:
2440: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2441: l_log_msg := 'Procedure P_Acctg_Pay_Round_Pkg.Do_Rounding executed';
2442: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2443: END IF;
2444: END IF; --l_do_round = l_pay_hist_rec.payment_history_id 7489271
2445:
2446: END LOOP;
2450: IF l_pay_hist_rec.Errors_Bank_Amount <> 0 THEN
2451:
2452: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2453: l_log_msg := 'Calling procedure Pay_Dist_Err_Chrg for errors bank amount';
2454: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2455: END IF;
2456:
2457: --bug 5659368
2458: Pay_Dist_Err_Chrg
2462: ,p_calling_sequence => l_curr_calling_sequence);
2463:
2464: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2465: l_log_msg := 'Procedure Pay_Dist_Err_Chrg for errors bank amount executed';
2466: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2467: END IF;
2468:
2469:
2470: END IF;
2473: IF l_pay_hist_rec.Charges_Bank_Amount <> 0 THEN
2474:
2475: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2476: l_log_msg := 'Calling procedure Pay_Dist_Err_Chrg for charges bank amount';
2477: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2478: END IF;
2479:
2480: --bug 5659368
2481: Pay_Dist_Err_Chrg
2485: ,p_calling_sequence => l_curr_calling_sequence);
2486:
2487: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2488: l_log_msg := 'Procedure Pay_Dist_Err_Chrg for charges bank amount executed';
2489: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2490: END IF;
2491:
2492: END IF;
2493:
2492: END IF;
2493:
2494: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2495: l_log_msg := 'Calling procedure Update_Gain_Loss_Ind for payments';
2496: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2497: END IF;
2498:
2499: --11698822, call update_gain_loss_ind only for foreign currency txns
2500: IF l_txn_curr_code <> ap_accounting_pay_pkg.g_base_currency_code THEN
2505: END IF;
2506:
2507: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2508: l_log_msg := 'Procedure Update_Gain_Loss_Ind executed';
2509: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2510: END IF;
2511:
2512:
2513: -- Logging Infra: Procedure level
2512:
2513: -- Logging Infra: Procedure level
2514: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2515: l_log_msg := 'End of procedure '|| l_procedure_name;
2516: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
2517: END IF;
2518:
2519:
2520: EXCEPTION
2592: --Bug 9282465 end
2593: l_inv_adj_amount NUMBER := 0; --bug 9495429
2594: -- Logging Infra:
2595: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_Proc';
2596: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2597:
2598: BEGIN
2599:
2600: l_curr_calling_sequence := 'AP_ACCTG_PAY_DIST_PKG.Pay_Dist_Proc<- ' ||
2602:
2603: -- Logging Infra: Procedure level
2604: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2605: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2606: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2607: END IF;
2608:
2609:
2610: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2609:
2610: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2611: l_log_msg := 'Parameters: Invoice_ID = '|| p_inv_rec.invoice_id
2612: ||'Invoice_Dist_ID = '|| p_inv_dist_rec.invoice_distribution_id;
2613: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2614: END IF;
2615: /*Commented code removed*/
2616: /* Performance Fix 7308385 starts */
2617: --bug 9495429 start
2627: END IF;
2628: --bug 9495429 end
2629:
2630: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2631: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,
2632: 'l_total_dist_amount: '||l_total_dist_amount||
2633: ' p_inv_pay_rec.invoice_payment_id: '||p_inv_pay_rec.invoice_payment_id);
2634: END IF;
2635:
2637: l_proration_divisor := G_Total_Dist_Amount; --bug 9495429
2638: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2639: l_log_msg := 'p_inv_dist_rec.Line_Type_Lookup_Code = AWT' ||
2640: 'including AWT and l_proration_divisor =' || NVL(l_proration_divisor,0);
2641: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2642: END IF;
2643:
2644: ELSE
2645: /*Commented code removed*/
2648:
2649: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2650: l_log_msg := 'p_inv_dist_rec.Line_Type_Lookup_Code <> AWT' ||
2651: 'exclude AWT and l_proration_divisor =' || NVL(l_proration_divisor,0);
2652: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2653: END IF;
2654: END IF;
2655:
2656: -- Converting the distribution amount into payment currency for
2658: IF (p_inv_rec.invoice_currency_code <> p_inv_rec.payment_currency_code) THEN
2659:
2660: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2661: l_log_msg := 'this is cross currency';
2662: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2663: END IF;
2664: l_dist_amt_pay_curr := GL_Currency_API.Convert_Amount(
2665: p_inv_rec.invoice_currency_code,
2666: p_inv_rec.payment_currency_code,
2687:
2688: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2689: l_log_msg := 'Calculating payment and dist amt in bank currency for event type:'
2690: ||p_xla_event_rec.event_type_code;
2691: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2692: END IF;
2693:
2694:
2695: /* Converting the payment and distribution amount into bank currency */
2703: 'p_inv_pay_rec.amount = ' || p_inv_pay_rec.amount ||
2704: 'l_dist_amt_pay_curr =' || l_dist_amt_pay_curr ||
2705: 'p_pay_hist_rec.pmt_to_base_xrate = ' || p_pay_hist_rec.pmt_to_base_xrate ||
2706: 'p_pay_hist_rec.bank_to_base_xrate' || p_pay_hist_rec.bank_to_base_xrate;
2707: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2708: END IF;
2709:
2710:
2711: l_pay_amount_bank_curr := AP_Utilities_Pkg.AP_Round_Currency(
2721: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2722: l_log_msg := 'after calculation and' ||
2723: 'l_dist_amt_bank_curr = ' || l_dist_amt_bank_curr||
2724: 'l_pay_amount_bank_curr = ' || l_pay_amount_bank_curr;
2725: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2726: END IF;
2727:
2728: -- Added for bug fix 5694577
2729: ELSE -- p_pay_hist_rec.pmt_currency_code = p_pay_hist_rec.bank_currency_code
2731: l_pay_amount_bank_curr := p_inv_pay_rec.amount;
2732: l_dist_amt_bank_curr := l_dist_amt_pay_curr;
2733:
2734: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2735: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,
2736: 'l_pay_amount_bank_curr = ' || l_pay_amount_bank_curr||
2737: 'l_dist_amt_bank_curr = ' || l_dist_amt_bank_curr);
2738: END IF;
2739:
2743:
2744: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2745: l_log_msg := 'assign some bank related variables for other event type=>'
2746: ||p_xla_event_rec.event_type_code;
2747: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2748: END IF;
2749:
2750: l_pay_amount_bank_curr := p_inv_pay_rec.amount;
2751: l_dist_amt_bank_curr := l_dist_amt_pay_curr;
2753: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2754: l_log_msg := 'payment currency code = bank currency code for event type '||
2755: 'l_dist_amt_bank_curr = ' || l_dist_amt_bank_curr||
2756: 'l_pay_amount_bank_curr = ' || l_pay_amount_bank_curr;
2757: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2758: END IF;
2759:
2760: END IF; -- end of check event type
2761:
2765: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2766: l_log_msg := 'this run p_inv_dist_rec.amount = ' ||
2767: p_inv_dist_rec.amount ||
2768: 'Up to now ->g_total_dist_amt = '||g_total_dist_amt;
2769: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2770: END IF;
2771:
2772: /* We should distribute the discount amount first so that during the final payment
2773: this discount amount is also considered for adjusting the distribution */
2776:
2777: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2778: l_log_msg := 'Calling procedure Pay_Dist_Discount for dist: '
2779: || p_inv_dist_rec.invoice_distribution_id;
2780: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2781: END IF;
2782:
2783: Pay_Dist_Discount
2784: (p_xla_event_rec,
2797: 'p_disc_pay_amount =' || l_disc_pay_amount ||
2798: 'p_disc_dist_amount ='|| l_disc_dist_amount ||
2799: 'p_disc_bank_amount ='|| l_disc_bank_amount;
2800:
2801: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2802: END IF;
2803: END IF;
2804:
2805: -- IF (p_calc_mode IN ('P', 'M')) THEN --bug 9495429
2805: -- IF (p_calc_mode IN ('P', 'M')) THEN --bug 9495429
2806:
2807: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2808: l_log_msg := 'calculation mode p_calc_mode =' || p_calc_mode ;
2809: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2810: END IF;
2811:
2812: -- If this payment is a final payment for the invoice then we should make sure
2813: -- that the sum of payment distributions amount should be equal to the distribution
2816: IF p_final_payment = TRUE THEN
2817:
2818: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2819: l_log_msg := 'This is a final payment and now calling AP_Accounting_Pay_Pkg.Get_Pay_Sum';
2820: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2821: END IF;
2822:
2823: AP_Accounting_Pay_Pkg.Get_Pay_Sum
2824: (p_inv_dist_rec.invoice_distribution_id,
2832: l_log_msg := 'After Calling function AP_Accounting_Pay_Pkg.Get_Pay_Sum' ||
2833: 'l_total_paid_amt==' || nvl(l_total_paid_amt,0) ||
2834: 'l_tot_paid_amt_inv_curr=' || nvl(l_tot_paid_amt_inv_curr,0) ||
2835: 'l_tot_paid_amt_bank_curr =' || nvl(l_tot_paid_amt_bank_curr,0);
2836: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2837: END IF;
2838:
2839: --Bug 9282465
2840: /* 14121992 . re-placed the below function call in the AWT Block
2850: l_log_msg := 'After Calling function AP_Accounting_Pay_Pkg.Get_Pay_Base_Sum' ||
2851: 'l_total_paid_base_amt==' || nvl(l_total_paid_base_amt,0) ||
2852: 'l_tot_paid_inv_base_amt=' || nvl(l_tot_paid_inv_base_amt,0) ||
2853: 'l_tot_paid_cleared_base_amt =' || nvl(l_tot_paid_cleared_base_amt,0);
2854: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2855: END IF;
2856: */
2857: l_total_prepaid_amt := AP_Accounting_Pay_Pkg.Get_Prepay_Sum
2858: (p_inv_dist_rec.invoice_distribution_id,
2862: l_log_msg := 'get pay sum and its amount = ' ||
2863: l_total_paid_amt ||
2864: 'get prepay sum and its amount = '||
2865: l_total_prepaid_amt;
2866: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2867: END IF;
2868:
2869: --Bug 9282465
2870: /* 14121992 . re-placed the below function call in the AWT Block
2879: l_log_msg := 'get pay base sum and its amount = ' ||
2880: l_total_paid_base_amt ||
2881: 'get prepay base sum and its amount = '||
2882: l_total_prepaid_base_amt;
2883: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2884: END IF;
2885: */
2886:
2887: -- Converting the distribution and prepaid amount into payment currency for
2889: IF (p_inv_rec.invoice_currency_code <> p_inv_rec.payment_currency_code) THEN
2890:
2891: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2892: l_log_msg := 'Converting prepaid amount into payment currency';
2893: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2894: END IF;
2895:
2896: l_tot_prepaid_amt_pay_curr := GL_Currency_API.Convert_Amount(
2897: p_inv_rec.invoice_currency_code,
2909: 'PAYMENT CLEARING ADJUSTED')) THEN
2910:
2911: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2912: l_log_msg := 'Converting prepaid amount into bank currency';
2913: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2914: END IF;
2915:
2916: IF ( p_pay_hist_rec.pmt_currency_code <> p_pay_hist_rec.bank_currency_code
2917: AND p_pay_hist_rec.bank_currency_code is not NULL ) THEN
2956: l_log_msg := 'After Calling function AP_Accounting_Pay_Pkg.Get_Pay_Base_Sum' ||
2957: 'l_total_paid_base_amt==' || nvl(l_total_paid_base_amt,0) ||
2958: 'l_tot_paid_inv_base_amt=' || nvl(l_tot_paid_inv_base_amt,0) ||
2959: 'l_tot_paid_cleared_base_amt =' || nvl(l_tot_paid_cleared_base_amt,0);
2960: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2961: END IF;
2962:
2963: AP_Accounting_Pay_Pkg.Get_Prepay_Base_Sum(
2964: p_inv_dist_rec.invoice_distribution_id,
2971: l_log_msg := 'get pay base sum and its amount = ' ||
2972: l_total_paid_base_amt ||
2973: 'get prepay base sum and its amount = '||
2974: l_total_prepaid_base_amt;
2975: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2976: END IF;
2977:
2978:
2979:
3025:
3026: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3027: l_log_msg := 'g_total_dist_amt equal l_total_dist_amount =' ||
3028: l_total_dist_amount;
3029: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3030: END IF;
3031:
3032: -- To avoid rounding in case bank currency is same as ledger curreny, massage the last (biggest) line
3033: l_bank_curr_amount := l_pay_amount_bank_curr - g_total_bank_curr_amt;
3033: l_bank_curr_amount := l_pay_amount_bank_curr - g_total_bank_curr_amt;
3034:
3035: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3036: l_log_msg := 'l_bank_curr_amount = ' || l_bank_curr_amount;
3037: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3038: END IF;
3039:
3040: ELSE
3041: l_bank_curr_amount := AP_Utilities_Pkg.AP_Round_Currency(
3058: l_log_msg := 'Value for l_prorated_amount = ' || l_prorated_amount ||
3059: 'Value for l_inv_dist_amount = ' || l_inv_dist_amount ||
3060: 'Value for l_bank_curr_amount =' || l_bank_curr_amount;
3061:
3062: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3063: END IF;
3064:
3065: ELSE
3066:
3065: ELSE
3066:
3067: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3068: l_log_msg := 'this is NOT a final payment';
3069: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3070: END IF;
3071:
3072: IF (p_calc_mode IN ('P', 'M')) THEN
3073:
3078:
3079: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3080: l_log_msg := 'g_total_dist_amt equal l_total_dist_amount =' ||
3081: l_total_dist_amount;
3082: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3083: END IF;
3084:
3085: -- To avoid rounding, massage the last (biggest) line
3086: l_prorated_amount := p_inv_pay_rec.amount - g_total_prorated_amt;
3091: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3092: l_log_msg := 'Value for l_prorated_amount = ' || l_prorated_amount ||
3093: 'Value for l_inv_dist_amoun = ' || l_inv_dist_amount ||
3094: 'l_bank_curr_amount = ' || l_bank_curr_amount;
3095: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3096: END IF;
3097:
3098: ELSE
3099:
3098: ELSE
3099:
3100: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3101: l_log_msg := 'This is not the last invoice distribution for proration';
3102: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3103: END IF;
3104:
3105: IF ( NVL(G_Proration_Divisor,0) = 0 )THEN -- Bug 7636427
3106: l_prorated_amount := 0;
3110:
3111: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3112: l_log_msg := 'l_proration_divisor is not 0 it is =>'
3113: || l_proration_divisor;
3114: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3115: END IF;
3116:
3117: -- We do not need to prorate the AWT amounts for the AWT distributions
3118: -- that are created during payment time
3120: IF p_inv_dist_rec.awt_invoice_payment_id IS NOT NULL THEN
3121:
3122: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3123: l_log_msg := 'AWT at payment time and should not prorate to awt pmt distribution';
3124: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3125: END IF;
3126: --Bug 9282465
3127: --bug 10179705
3128: l_inv_dist_base_amount := AP_Utilities_Pkg.AP_Round_Currency(
3158: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3159: l_log_msg := 'AWT at payment time and ' ||
3160: ' l_prorated_amount = ' || l_prorated_amount ||
3161: 'l_bank_curr_amount = ' || l_bank_curr_amount;
3162: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3163: END IF;
3164:
3165: ELSE
3166:
3256: END IF; -- If AWT created at payment time
3257:
3258: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3259: l_log_msg := 'Value for l_prorated_amount = ' || l_prorated_amount;
3260: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3261: END IF;
3262: END IF;
3263: END IF;
3264: ELSE -- p_calc_mode = 'C'
3269: invoice */
3270:
3271: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3272: l_log_msg := 'calculation mode p_calc_mode (cascade?) =' || p_calc_mode ;
3273: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3274: END IF;
3275:
3276: IF ((g_total_dist_amt = l_total_dist_amount) AND
3277: NOT (((g_proration_divisor + g_pay_awt_total_amt) = 0)
3280:
3281: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3282: l_log_msg := 'g_total_dist_amt equal l_total_dist_amount =' ||
3283: l_total_dist_amount;
3284: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3285: END IF;
3286:
3287: SELECT -NVL(SUM(aphd.amount), 0) ,
3288: -NVL(SUM(aphd.invoice_dist_amount), 0),
3312: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3313: l_log_msg := 'Value for l_prorated_amount = ' || l_prorated_amount ||
3314: 'Value for l_inv_dist_amoun = ' || l_inv_dist_amount ||
3315: 'l_bank_curr_amount = ' || l_bank_curr_amount;
3316: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3317: END IF;
3318:
3319: ELSE
3320: --bug 9850638, if invoice and invoice payment amount are zero
3473: l_log_msg := 'After final payment check/process and' ||
3474: 'g_total_prorated_amt = ' || nvl(g_total_prorated_amt,0) ||
3475: 'g_total_inv_dist_amt = ' || nvl(g_total_inv_dist_amt,0) ||
3476: 'g_total_bank_curr_amt = ' ||nvl(g_total_bank_curr_amt,0);
3477: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3478: END IF;
3479:
3480: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3481: l_log_msg := 'Value for l_prorated_amount = ' || l_prorated_amount;
3478: END IF;
3479:
3480: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3481: l_log_msg := 'Value for l_prorated_amount = ' || l_prorated_amount;
3482: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3483: END IF;
3484:
3485: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3486: l_log_msg := 'Now calling AP_Accounting_Pay_Pkg.Get_Base_Amount before insert';
3483: END IF;
3484:
3485: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3486: l_log_msg := 'Now calling AP_Accounting_Pay_Pkg.Get_Base_Amount before insert';
3487: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3488: END IF;
3489:
3490: l_prorated_base_amount := AP_Accounting_Pay_Pkg.Get_Base_Amount
3491: (l_prorated_amount,
3499: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3500: l_log_msg := 'after call AP_Accounting_Pay_Pkg.Get_Base_Amoun and ' ||
3501: 'l_prorated_base_amount=' || nvl(l_prorated_base_amount,0) ||
3502: 'l_prorated_amount= ' || nvl(l_prorated_amount,0);
3503: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3504: END IF;
3505:
3506: -- populate the payment distribution record
3507:
3510:
3511: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3512: l_log_msg := 'Start to populate the l_pd_rec for event id' ||
3513: l_pd_rec.accounting_event_id;
3514: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3515: END IF;
3516:
3517: --Bug 9282465
3518: IF p_inv_dist_rec.line_type_lookup_code = 'AWT' THEN
3621: p_inv_rec.exchange_rate / p_inv_rec.payment_cross_rate) THEN
3622:
3623: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3624: l_log_msg := 'pmt to base rate = inv to base rate';
3625: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3626: END IF;
3627:
3628: l_pd_rec.invoice_dist_base_amount := l_prorated_base_amount;
3629:
3643: l_log_msg := 'pmt to base rate <> inv to base rate and ' ||
3644: 'l_pd_rec.invoice_dist_base_amount =' ||
3645: nvl(l_pd_rec.invoice_dist_base_amount,0) ||
3646: 'l_prorated_base_amount =' || nvl(l_prorated_base_amount,0);
3647: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3648: END IF;
3649:
3650: END IF;
3651: END IF;
3653: IF p_inv_dist_rec.quantity_variance IS NOT NULL THEN
3654:
3655: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3656: l_log_msg := 'Invoice has quantity variance';
3657: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3658: END IF;
3659:
3660: IF p_inv_dist_rec.amount = 0 THEN
3661: l_qty_variance := 0;
3680: IF p_inv_dist_rec.amount_variance IS NOT NULL THEN
3681:
3682: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3683: l_log_msg := 'Invoice has amount variance';
3684: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3685: END IF;
3686:
3687: IF p_inv_dist_rec.amount = 0 THEN
3688: l_amt_variance := 0;
3711:
3712:
3713: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3714: l_log_msg := 'Calling procedure Pay_Dist_Insert';
3715: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3716: END IF;
3717:
3718:
3719: -- Insert the payment hist distribution
3724:
3725: --bug7446229
3726: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3727: l_log_msg := 'Procedure Pay_Dist_Insert executed';
3728: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3729: END IF;
3730:
3731:
3732: IF ((p_xla_event_rec.event_type_code NOT IN
3747: l_log_msg := 'Calling procedure Pay_Dist_ERV for dist:' ||
3748: p_inv_dist_rec.invoice_distribution_id ||
3749: 'and pmt l_prorated_amount =' || l_prorated_amount ||
3750: 'and discount amout prorated = ' || l_disc_pay_amount ;
3751: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3752: END IF;
3753:
3754: Pay_Dist_ERV
3755: (p_xla_event_rec,
3761: l_curr_calling_sequence);
3762:
3763: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3764: l_log_msg := 'Procedure Pay_Dist_ERV executed';
3765: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3766: END IF;
3767:
3768:
3769: END IF;
3769: END IF;
3770:
3771: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3772: l_log_msg := 'End of pay_dist_proc';
3773: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3774: END IF;
3775:
3776: EXCEPTION
3777: WHEN OTHERS THEN
3818: l_pd_rec AP_PAYMENT_HIST_DISTS%ROWTYPE;
3819:
3820: -- Logging Infra:
3821: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_Discount';
3822: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3823: l_total_dist_amount NUMBER; -- Added for bug 7577312
3824:
3825: BEGIN
3826:
3831:
3832: -- Logging Infra: Procedure level
3833: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3834: l_log_msg := 'Begin of procedure '|| l_procedure_name;
3835: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3836: END IF;
3837:
3838:
3839: l_exclude_tax_from_disc := p_inv_rec.Disc_Is_Inv_Less_Tax_Flag;
3841:
3842: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3843: l_log_msg := 'l_exclude_tax_from_disc =' || l_exclude_tax_from_disc ||
3844: 'l_exclude_frt_from_disc = ' || l_exclude_frt_from_disc;
3845: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3846: END IF;
3847:
3848: -- Bug 7577312: Assigning the value of the l_total_dist_amount
3849: l_total_dist_amount := G_Total_Dist_Amount;
3883:
3884: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3885: l_log_msg := 'Total invoice amount excluding tax or freight = '||
3886: l_invoice_amount;
3887: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3888: END IF;
3889:
3890:
3891: /* If the options exclude_tax_from_disc and exclude_frt_from_disc
3895: AND ( p_inv_dist_rec.line_type_lookup_code = 'REC_TAX' or
3896: p_inv_dist_rec.line_type_lookup_code = 'NONREC_TAX') ) THEN
3897: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3898: l_log_msg := 'l_exclude_tax_from_disc= Y so this procedure do nothing for tax line';
3899: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3900: END IF;
3901:
3902: RETURN;
3903:
3905: AND p_inv_dist_rec.line_type_lookup_code = 'FREIGHT') THEN
3906:
3907: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3908: l_log_msg := 'l_exclude_frt_from_disc= Y so this procedure do nothing';
3909: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3910: END IF;
3911:
3912: RETURN;
3913:
3914: ELSE
3915:
3916: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3917: l_log_msg := 'consider discount prorate to frieight';
3918: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3919: END IF;
3920:
3921: IF (p_inv_rec.invoice_currency_code <> p_inv_rec.payment_currency_code) THEN
3922:
3938:
3939: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3940: l_log_msg := 'assigning the disc_amt_bank_curr for event type' ||
3941: p_xla_event_rec.event_type_code;
3942: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3943: END IF;
3944:
3945: IF p_pay_hist_rec.pmt_currency_code <> p_pay_hist_rec.bank_currency_code THEN
3946:
3945: IF p_pay_hist_rec.pmt_currency_code <> p_pay_hist_rec.bank_currency_code THEN
3946:
3947: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3948: l_log_msg := 'Converting discount amt into bank currency';
3949: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3950: END IF;
3951:
3952:
3953: l_disc_amt_bank_curr :=
3972:
3973: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3974: l_log_msg := 'assigning the disc_amt_bank_curr for event type' ||
3975: p_xla_event_rec.event_type_code;
3976: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3977: END IF;
3978:
3979: l_disc_amt_bank_curr := p_inv_pay_rec.discount_taken;
3980:
3984: IF (p_calc_mode IN ('P','M')) THEN
3985:
3986: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3987: l_log_msg := 'not cascade mode - p_calc_mode = ' || p_calc_mode;
3988: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3989: END IF;
3990:
3991: -- Bug 7577312: Changed the logic here to refer to l_total_dist_amount
3992: -- Bug 8202856. Added check for G_Last_NonExcluded_Dist_ID to cover cases
4000: l_bank_curr_amount := l_disc_amt_bank_curr - g_total_bank_curr_disc_amt;
4001:
4002: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4003: l_log_msg := 'Value of l_prorated_disc_amt = '||l_prorated_disc_amt;
4004: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4005: END IF;
4006:
4007:
4008: ELSE
4037: END IF;
4038:
4039: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4040: l_log_msg := 'Value of l_prorated_disc_amt = '||l_prorated_disc_amt;
4041: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4042: END IF;
4043:
4044: END IF;
4045:
4050: ELSE
4051:
4052: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4053: l_log_msg := 'seems cascade mode - p_calc_mode = ' || p_calc_mode;
4054: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4055: END IF;
4056:
4057: IF l_invoice_amount = 0 THEN --bug13681089
4058:
4096: END IF;
4097: END IF; --bug13681089
4098: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4099: l_log_msg := 'Value of l_prorated_disc_amt = '||l_prorated_disc_amt;
4100: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4101: END IF;
4102:
4103:
4104: END IF; -- If calc_mode in ('P,'M')
4204: END IF;
4205:
4206: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4207: l_log_msg := 'Calling procedure Pay_Dist_Insert';
4208: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
4209: END IF;
4210:
4211:
4212: Pay_Dist_Insert
4220:
4221:
4222: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4223: l_log_msg := 'Procedure Pay_Dist_Insert executed';
4224: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
4225: END IF;
4226:
4227:
4228: EXCEPTION
4261: l_pd_rec AP_PAYMENT_HIST_DISTS%ROWTYPE;
4262:
4263: -- Logging Infra:
4264: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_ERV';
4265: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4266:
4267: BEGIN
4268:
4269:
4273:
4274: -- Logging Infra: Procedure level
4275: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4276: l_log_msg := 'Begin of procedure '|| l_procedure_name;
4277: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4278: END IF;
4279:
4280: IF p_inv_dist_rec.rcv_transaction_id IS NOT NULL THEN
4281:
4286:
4287: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4288: l_log_msg := 'receipt matching and exchange rate = ' ||
4289: l_po_exchange_rate;
4290: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4291: END IF;
4292:
4293: ELSE
4294:
4299:
4300: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4301: l_log_msg := 'po matching and exchange rate = ' ||
4302: l_po_exchange_rate;
4303: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4304: END IF;
4305:
4306: END IF;
4307:
4315:
4316: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4317: l_log_msg := 'Value of l_po_pay_exchange_rate = '||l_po_pay_exchange_rate ||
4318: 'value of p_prorated_amount=' || p_prorated_amount;
4319: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4320: END IF;
4321:
4322:
4323: /* For Cash Basis ERV is Difference between Payment Exchange Rate and
4366: l_pd_rec.invoice_dist_base_amount := l_inv_erv_amount;
4367:
4368: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4369: l_log_msg := 'Calling procedure Pay_Dist_Insert';
4370: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
4371: END IF;
4372:
4373: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4374: l_log_msg := 'before callining erv/terv insert -' ||
4375: 'l_pd_rec.invoice_dist_base_amount = ' ||
4376: l_pd_rec.invoice_dist_base_amount ||
4377: 'l_pd_rec.paid_base_amount or cleared_base_amount =' ||
4378: l_erv_amount;
4379: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
4380: END IF;
4381:
4382: --9081055, Not inserting Exchange rate variance when the exchange rates
4383: -- at PO, Invoice and Payments are equal . Added condition to call
4390: END IF ;
4391:
4392: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4393: l_log_msg := 'Procedure Pay_Dist_Insert executed';
4394: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
4395: END IF;
4396:
4397: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4398: l_log_msg := 'end of procedure Pay_Dist_ERV';
4395: END IF;
4396:
4397: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4398: l_log_msg := 'end of procedure Pay_Dist_ERV';
4399: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
4400: END IF;
4401:
4402: EXCEPTION
4403: WHEN OTHERS THEN
4455: ORDER BY Amount; /* Bug13385106 */
4456:
4457: -- Logging Infra:
4458: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_Err_Chrg';
4459: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4460:
4461:
4462: BEGIN
4463:
4467:
4468: -- Logging Infra: Procedure level
4469: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4470: l_log_msg := 'Begin of procedure '|| l_procedure_name;
4471: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4472: END IF;
4473:
4474:
4475: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4475: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4476: l_log_msg := 'Passing Parameters are ' ||
4477: 'p_distribute_mode=' || p_distribute_mode ||
4478: 'event_id = ' || p_xla_event_rec.event_id;
4479: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
4480: END IF;
4481:
4482:
4483: IF ( p_distribute_mode = 'BANK_ERROR' AND
4494:
4495: ELSE
4496: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4497: l_log_msg := 'No need to prorate charge or error when amount=0 - return';
4498: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
4499: END IF;
4500: return;
4501: END IF;
4502:
4501: END IF;
4502:
4503: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4504: l_log_msg := 'l_err_chrg_amount= ' || l_err_chrg_amount;
4505: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
4506: END IF;
4507:
4508:
4509: SELECT SUM(Amount)
4517:
4518: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4519: l_log_msg := 'CUR: clearing_pay_dists: Invoice_Dist_ID = '
4520: ||l_clr_rec.invoice_distribution_id;
4521: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4522: END IF;
4523:
4524: l_total_dist_amt := l_total_dist_amt + l_clr_rec.amount;
4525:
4609:
4610:
4611: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4612: l_log_msg := 'Calling procedure Pay_Dist_Insert';
4613: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
4614: END IF;
4615:
4616: -- Insert the payment hist distribution
4617: Pay_Dist_Insert
4619: l_curr_calling_sequence);
4620:
4621: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4622: l_log_msg := 'Procedure Pay_Dist_Insert executed';
4623: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
4624: END IF;
4625:
4626:
4627: END LOOP;
4662: l_curr_calling_sequence VARCHAR2(2000);
4663:
4664: -- Logging Infra:
4665: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_Reverse';
4666: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
4667:
4668: l_transaction_type AP_PAYMENT_HISTORY_ALL.TRANSACTION_TYPE%TYPE;
4669: l_payment_history_id AP_PAYMENT_HISTORY_ALL.PAYMENT_HISTORY_ID%TYPE;
4670: l_accounting_event_id AP_PAYMENT_HISTORY_ALL.ACCOUNTING_EVENT_ID%TYPE;
4681:
4682: -- Logging Infra: Procedure level
4683: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
4684: l_log_msg := 'Begin of procedure '|| l_procedure_name;
4685: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
4686: END IF;
4687:
4688: IF p_reversal_inv_pmt_id IS NOT NULL THEN
4689:
4690:
4691: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4692: l_log_msg := 'Reversing based on reversal_inv_pmt_id '||
4693: p_reversal_inv_pmt_id;
4694: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4695: END IF;
4696:
4697: INSERT INTO ap_payment_hist_dists
4698: (Payment_Hist_Dist_ID,
4774:
4775: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4776: l_log_msg := 'Reversing based on related_event_id '||
4777: p_related_event_id;
4778: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4779: END IF;
4780:
4781: -- Bug 5015973. We will insert the new invoice_payment_id only for the
4782: -- cancelled event.
4956:
4957: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4958: l_log_msg := 'Reversing based on invoice_distribution_id '||
4959: p_invoice_dist_id;
4960: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
4961: END IF;
4962:
4963: INSERT INTO ap_payment_hist_dists
4964: (Payment_Hist_Dist_ID,
5038:
5039:
5040: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5041: l_log_msg := 'Done reversing the payment dists';
5042: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5043: END IF;
5044:
5045:
5046: -- Bug 6839052. Payment Cancellation cannot account for upgraded payments
5080:
5081: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5082: l_log_msg := 'Inside loop for upgrading dist links for '||
5083: 'PAYMENT CANCELLED,REFUND CANCELLED ';
5084: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5085: END IF;
5086:
5087: IF (aph_events.Historical_Flag = 'Y' AND
5088: aph_events.upg_batch_id IS NOT NULL AND
5089: aph_events.upg_batch_id <> -9999) THEN
5090: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5091: l_log_msg := 'Calling Upg_Dist_Links_Insert for payment_history_id '||
5092: aph_events.payment_history_id;
5093: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5094: END IF;
5095:
5096:
5097: -- We should not be recreating the distribution links for the historical
5126: END;
5127:
5128: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5129: l_log_msg := 'Event reversed in R12 already '||l_reversed_in_R12;
5130: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5131: END IF;
5132:
5133: IF l_reversed_in_R12 = 'N' THEN
5134:
5140: END IF;
5141:
5142: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5143: l_log_msg := 'Procedure Upg_Dist_Link_Insert complete';
5144: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5145: END IF;
5146:
5147: END IF;
5148: END LOOP;
5162:
5163: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5164: l_log_msg := 'Transaction Type based on the event type is '||
5165: l_transaction_type;
5166: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5167: END IF;
5168:
5169: BEGIN
5170: -- bug8911872
5194:
5195: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5196: l_log_msg := 'Accounting Event ID of the related event '||
5197: l_accounting_event_id;
5198: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5199: END IF;
5200:
5201: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5202: l_log_msg := 'Historical Flag of the related event '||
5200:
5201: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5202: l_log_msg := 'Historical Flag of the related event '||
5203: l_historical_flag;
5204: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5205: END IF;
5206:
5207: IF (l_historical_flag = 'Y' AND
5208: l_upg_batch_id IS NOT NULL AND
5209: l_upg_batch_id <> -9999) THEN
5210:
5211: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5212: l_log_msg := 'Calling procedure Upg_Dist_Link_Insert';
5213: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5214: END IF;
5215:
5216: Upg_Dist_Links_Insert
5217: (p_xla_event_rec,
5219: l_accounting_event_id,
5220: l_curr_calling_sequence);
5221: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5222: l_log_msg := 'Procedure Upg_Dist_Link_Insert complete';
5223: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5224: END IF;
5225: END IF;
5226:
5227: EXCEPTION
5227: EXCEPTION
5228: WHEN others THEN
5229: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5230: l_log_msg := 'Procedure Pay_Dist_Reverse raised exceptions';
5231: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5232: END IF;
5233: NULL;
5234: END;
5235: END IF;
5237:
5238: -- Logging Infra: Procedure level
5239: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5240: l_log_msg := 'End of procedure '|| l_procedure_name;
5241: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
5242: END IF;
5243:
5244:
5245: EXCEPTION
5268: l_curr_calling_sequence VARCHAR2(2000);
5269:
5270: -- Logging Infra:
5271: l_procedure_name CONSTANT VARCHAR2(30) := 'Pay_Dist_Insert';
5272: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5273:
5274:
5275: BEGIN
5276:
5280:
5281: -- Logging Infra: Procedure level
5282: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5283: l_log_msg := 'Begin of procedure '|| l_procedure_name;
5284: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
5285: END IF;
5286:
5287:
5288: INSERT INTO AP_Payment_Hist_Dists
5355:
5356: -- Logging Infra: Procedure level
5357: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5358: l_log_msg := 'End of procedure '|| l_procedure_name;
5359: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
5360: END IF;
5361:
5362:
5363: EXCEPTION
5393: l_curr_calling_sequence VARCHAR2(2000);
5394:
5395: -- Logging Infra:
5396: l_procedure_name CONSTANT VARCHAR2(30) := 'Upg_Dist_Links_Insert';
5397: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5398:
5399:
5400: BEGIN
5401:
5405:
5406: -- Logging Infra: Procedure level
5407: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
5408: l_log_msg := 'Begin of procedure '|| l_procedure_name;
5409: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||
5410: '.begin', l_log_msg);
5411: END IF;
5412:
5413: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5411: END IF;
5412:
5413: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5414: l_log_msg := 'Deleting xla_distribution_links';
5415: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5416: END IF;
5417:
5418: DELETE FROM xla_distribution_links
5419: WHERE application_id = 200
5431:
5432: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5433: l_log_msg := 'Inserting xla_distribution_links for event '||
5434: p_accounting_event_id;
5435: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
5436: END IF;
5437:
5438: -- Bug 8708433 This insert is for primary ledger id , hence the new join condition
5439: -- AND AEH.ledger_id = ASP.Set_Of_Books_ID
5859:
5860:
5861: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5862: l_log_msg := 'Done inserting into xla_distribution_links for primary ledger';
5863: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,
5864: l_log_msg);
5865: END IF;
5866:
5867: -- Bug 8708443 For all other non-primary ledgers, the proration of amounts
6267: WHERE FC.Currency_Code = ADL.Base_Currency_Code );
6268:
6269: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6270: l_log_msg := 'Done inserting into xla_distribution_links for non-primary ledgers';
6271: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,
6272: l_log_msg);
6273: END IF;
6274:
6275: -- 11721100 Update stmt to populate IDA and IDBA for payment created events --
6317: WHEN OTHERS THEN
6318: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6319: l_log_msg := 'Error while running Merge stmt for event id'||p_xla_event_rec.event_id;
6320:
6321: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
6322: END IF;
6323: NULL;
6324:
6325: END;
6327:
6328: -- Logging Infra: Procedure level
6329: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
6330: l_log_msg := 'End of procedure '|| l_procedure_name;
6331: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end',
6332: l_log_msg);
6333: END IF;
6334:
6335: