eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AP_ACCTG_PAY_ROUND_PKG dependencies on FND_LOG

Line 5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

1: PACKAGE BODY AP_ACCTG_PAY_ROUND_PKG AS
2: /* $Header: apacrndb.pls 120.66.12020000.2 2012/07/12 09:47:39 pgayen ship $ */
3:
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;

Line 6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;

2: /* $Header: apacrndb.pls 120.66.12020000.2 2012/07/12 09:47:39 pgayen ship $ */
3:
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

Line 7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;

3:
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

Line 8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;

4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PAY_ROUND_PKG.';

Line 9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;

5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PAY_ROUND_PKG.';
13: -- Logging Infra

Line 10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PAY_ROUND_PKG.';
13: -- Logging Infra
14:

Line 11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_ACCTG_PAY_ROUND_PKG.';
13: -- Logging Infra
14:
15: -------------------------------------------------------------------------------

Line 39: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

35: l_prepay_amt NUMBER;
36:
37: -- Logging Infra:
38: l_procedure_name CONSTANT VARCHAR2(30) := 'DO_Rounding';
39: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
40:
41: -- bug 6600341
42: l_acctg_event_id XLA_EVENTS.EVENT_ID%TYPE;
43: exec_final_payment VARCHAR2(1); --bug 7614480

Line 52: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

48: l_curr_calling_sequence := 'AP_Acctg_Pay_Round_Pkg.Do_Rounding<- ' ||
49: p_calling_sequence;
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;

Line 57: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);

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:
61: /* Check for rounding only if the invoice currency or payment currency is different than

Line 81: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

77:
78: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
79: l_log_msg := 'Calling procedure Total_Appl for dist: '
80: || p_prepay_dist_rec.invoice_distribution_id;
81: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
82: END IF;
83:
84:
85: -- Calculate the total application rounding

Line 97: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

93: l_curr_calling_sequence);
94:
95: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
96: l_log_msg := 'Procedure Total_Appl executed';
97: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
98: END IF;
99:
100: END IF; -- AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists
101:

Line 133: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

129:
130: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
131: l_log_msg := 'Calling procedure Final_Appl for prepay dist: '
132: || p_prepay_dist_rec.prepay_distribution_id;
133: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
134: END IF;
135:
136: Final_Appl
137: (p_xla_event_rec,

Line 148: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

144: l_curr_calling_sequence);
145:
146: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
147: l_log_msg := 'Procedure Final_Appl executed';
148: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
149: END IF;
150:
151: END IF;
152:

Line 170: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

166:
167: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
168: l_log_msg := 'Calling procedure Total_Pay for invoice: '
169: || p_inv_rec.invoice_id;
170: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
171: END IF;
172:
173:
174: -- Calculate the total payment rounding

Line 183: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

179: l_curr_calling_sequence);
180:
181: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
182: l_log_msg := 'Procedure Total_Pay executed';
183: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
184: END IF;
185:
186: END IF;
187:

Line 201: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

197:
198: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
199: l_log_msg := 'Calling procedure Compare_Pay for invoice: '
200: || p_inv_rec.invoice_id;
201: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
202: END IF;
203:
204: -- Calculate the payment to maturity, payment to clearing and
205: -- maturity to clearing rounding

Line 214: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

210: l_curr_calling_sequence);
211:
212: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
213: l_log_msg := 'Procedure Compare_Pay executed';
214: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
215: END IF;
216:
217: END IF; -- AP_ACCOUNTING_PAY_PKG.Is_Upgrade_Proration_Exists
218:

Line 239: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

235:
236: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
237: l_log_msg := 'Calling procedure Final_Pay for invoice: '
238: || p_inv_rec.invoice_id;
239: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
240: END IF;
241:
242: --bug 9108925, commented the following, as is_final_event would take care of
243: --this condition

Line 263: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

259: l_curr_calling_sequence);
260:
261: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
262: l_log_msg := 'Procedure Final_Pay executed';
263: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
264: END IF;
265:
266: ELSE -- bug 6600341 contd
267: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN

Line 270: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name,l_log_msg);

266: ELSE -- bug 6600341 contd
267: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
268: l_log_msg := 'Procedure Final_Pay for invoice not called: '
269: || p_inv_rec.invoice_id;
270: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name,l_log_msg);
271: END IF;
272: -- END IF; -- bug 6600341 end
273: END IF;
274:

Line 280: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);

276:
277: -- Logging Infra: Procedure level
278: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
279: l_log_msg := 'End of procedure '|| l_procedure_name;
280: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
281: END IF;
282:
283:
284: EXCEPTION

Line 394: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

390: l_erv_base_amount AP_INVOICE_DISTRIBUTIONS_ALL.base_amount%type := 0;
391:
392: -- Logging Infra:
393: l_procedure_name CONSTANT VARCHAR2(30) := 'Final_Pay';
394: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
395:
396:
397: BEGIN
398:

Line 405: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);

401:
402: -- Logging Infra: Procedure level
403: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
404: l_log_msg := 'Begin of procedure '|| l_procedure_name;
405: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
406: END IF;
407:
408:
409: FOR l_inv_dist_rec IN Invoice_Dists(p_inv_rec.invoice_id)

Line 417: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

413: --a historical adjustment distribution, with the net balance
414: --as 0 under automatic offsets off condition
415: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
416: l_log_msg := 'Checking b_generate_pay_dist';
417: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
418: END IF;
419:
420: b_generate_pay_dist := TRUE;
421: IF nvl(l_inv_dist_rec.historical_flag, 'N') ='Y' THEN

Line 438: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);

434: IF b_generate_pay_dist THEN
435: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
436: l_log_msg := 'b_generate_pay_dist = TRUE for Invoice Distribution : ' ||
437: l_inv_dist_rec.invoice_distribution_id;
438: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
439: END IF;
440: ELSE
441: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
442: l_log_msg := 'b_generate_pay_dist = FALSE(No error) for Invoice Distribution : ' ||

Line 444: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);

440: ELSE
441: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
442: l_log_msg := 'b_generate_pay_dist = FALSE(No error) for Invoice Distribution : ' ||
443: l_inv_dist_rec.invoice_distribution_id;
444: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
445: END IF;
446: END IF ;
447:
448: --bug7314656, proceed to calculate the final payment rounding only

Line 456: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

452:
453: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
454: l_log_msg := 'Withi CUR loop: Invoice_Dists: Invoice_Dist_ID = '||
455: l_inv_dist_rec.invoice_distribution_id;
456: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
457: END IF;
458:
459:
460: -- Get the base amount from the payment hist distributions table for

Line 564: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

560: END IF;
561:
562: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
563: l_log_msg := 'Value of l_sum_pay_dist_base_amt = '||l_sum_pay_dist_base_amt;
564: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
565: END IF;
566:
567: -- Bug 7138115. Added additional join conditions to improve performance
568: -- bug 9257606, ignore the event, if reversed

Line 606: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

602: AND l_inv_dist_rec.related_id is not NULL ) THEN
603: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
604: l_log_msg := 'possible erv exists for invoice dist type =' ||
605: l_inv_dist_rec.line_type_lookup_code;
606: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
607: END IF;
608:
609: BEGIN
610:

Line 632: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

628: 'invoice dist ERV Amount = ' ||
629: l_erv_base_amount ||
630: 'and l_total_dist_base_amt' ||
631: l_total_dist_base_amt;
632: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
633: END IF;
634:
635:
636: IF ( (l_inv_dist_rec.base_amount + l_erv_base_amount)

Line 642: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

638:
639: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
640: l_log_msg := 'Total of accounted base amt is not equal to base amount.'
641: || 'Creating a final payment rounding';
642: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
643: END IF;
644:
645:
646: /* If this is a prepayment type of event then insert the rounding distribution into

Line 698: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

694:
695: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
696: l_log_msg := 'Calling procedure '||
697: 'AP_ACCTG_PREPAY_DIST_PKG.Prepay_Dist_Insert';
698: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
699: END IF;
700:
701: AP_ACCTG_PREPAY_DIST_PKG.Prepay_Dist_Insert
702: (l_pad_rec,

Line 708: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

704:
705: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
706: l_log_msg := 'Procedure AP_ACCTG_PREPAY_DIST_PKG.Prepay_Dist_Insert '
707: || 'executed';
708: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
709: END IF;
710:
711: ELSE
712:

Line 741: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

737: l_pd_rec.matured_base_amount := 0;
738:
739: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
740: l_log_msg := 'Calling procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert';
741: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
742: END IF;
743:
744:
745: AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert

Line 751: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

747: l_curr_calling_sequence);
748:
749: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
750: l_log_msg := 'Procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert executed';
751: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
752: END IF;
753:
754:
755: END IF;

Line 764: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);

760:
761: -- Logging Infra: Procedure level
762: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
763: l_log_msg := 'End of procedure '|| l_procedure_name;
764: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
765: END IF;
766:
767:
768: EXCEPTION

Line 831: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

827: l_pd_rec AP_PAYMENT_HIST_DISTS%ROWTYPE;
828:
829: -- Logging Infra:
830: l_procedure_name CONSTANT VARCHAR2(30) := 'Total_Pay';
831: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
832: l_inv_base_amt NUMBER := 0;--Bug6600117
833: l_inv_dist_diff_amt NUMBER := 0;
834: l_inv_amt NUMBER := 0;
835: l_pay_sum_amt NUMBER := 0;

Line 886: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);

882:
883: -- Logging Infra: Procedure level
884: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
885: l_log_msg := 'Begin of procedure '|| l_procedure_name;
886: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
887: END IF;
888:
889: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
890: l_log_msg := 'query to fetch largest distribution' ||

Line 894: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

890: l_log_msg := 'query to fetch largest distribution' ||
891: 'for xla event id ' || p_xla_event_rec.event_id ||
892: 'for payment id ' || p_inv_pay_rec.Invoice_Payment_ID ||
893: 'and invoice id ' || p_inv_rec.invoice_id;
894: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
895: END IF;
896: -- Get the max of the largest distribution for inserting the
897: -- total payment rounding
898: BEGIN

Line 958: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

954: l_log_msg := 'query to fetch the sum of base amounts' ||
955: 'for related event id ' || p_pay_hist_rec.Related_Event_ID ||
956: 'for payment id ' || p_inv_pay_rec.Invoice_Payment_ID ||
957: 'and invoice id ' || p_inv_rec.invoice_id;
958: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
959: END IF;
960:
961: SELECT SUM(DECODE(APHD.Pay_Dist_Lookup_Code, 'CASH', APHD.Invoice_Dist_Base_Amount, 0)),
962: SUM(DECODE(APHD.Pay_Dist_Lookup_Code, 'CASH', APHD.Paid_Base_Amount, 0)),

Line 989: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);

985: WHERE AID.Invoice_ID = p_inv_rec.invoice_id);
986:
987: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
988: l_log_msg := ' sum of the base amounts for each line type obtained';
989: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
990: END IF;
991:
992:
993: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 1002: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

998: 'CASH lines Cleared_Base_Amount sum= '||
999: l_clr_rate_sum_amt ||
1000: 'CASH lines Matured_Base_Amount sum= '||
1001: l_mat_rate_sum_amt;
1002: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1003: END IF;
1004:
1005: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1006: l_log_msg := 'DISCOUNT lines Paid_Base_Amount sum= ' ||

Line 1010: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1006: l_log_msg := 'DISCOUNT lines Paid_Base_Amount sum= ' ||
1007: l_disc_pay_rate_sum_amt ||
1008: 'DISCOUNT lines Cleared_Base_Amount sum= '||
1009: l_disc_clr_rate_sum_amt;
1010: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1011: END IF;
1012:
1013: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1014: l_log_msg := 'BANK ERROR Cleared_Base_Amount sum= ' ||

Line 1016: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1012:
1013: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1014: l_log_msg := 'BANK ERROR Cleared_Base_Amount sum= ' ||
1015: l_err_clr_rate_sum_amt ;
1016: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1017: END IF;
1018:
1019: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1020: l_log_msg := 'BANK CHARGE Cleared_Base_Amount sum= ' ||

Line 1022: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1018:
1019: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1020: l_log_msg := 'BANK CHARGE Cleared_Base_Amount sum= ' ||
1021: l_chrg_clr_rate_sum_amt ;
1022: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1023: END IF;
1024:
1025:
1026: /*Bug6600117 used below query to fetch the sum(amount) and sum(base_amount)

Line 1051: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1047: l_log_msg := 'query to fetch the sum(amount) and sum(base_amount)' ||
1048: 'from ap_payment_history and AP_Payment_Hist_dists tables executed' ||
1049: 'for payment id ' || p_inv_pay_rec.Invoice_Payment_ID ||
1050: 'and invoice id ' || p_inv_rec.invoice_id;
1051: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1052: END IF;
1053:
1054: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1055: l_log_msg := 'l_pay_sum_amt ' || l_pay_sum_amt;

Line 1056: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1052: END IF;
1053:
1054: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1055: l_log_msg := 'l_pay_sum_amt ' || l_pay_sum_amt;
1056: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1057: END IF;
1058:
1059: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1060: l_log_msg := 'l_max_dist_id ' || l_max_dist_id;

Line 1061: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1057: END IF;
1058:
1059: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1060: l_log_msg := 'l_max_dist_id ' || l_max_dist_id;
1061: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1062: END IF;
1063:
1064:
1065: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 1067: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1063:
1064:
1065: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1066: l_log_msg := 'l_inv_rate_sum_full_amt ' || l_inv_rate_sum_full_amt;
1067: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1068: END IF;
1069:
1070: SELECT sum(AI.invoice_amount) ,sum(AI.base_amount)
1071: INTO l_inv_amt,l_inv_base_amt

Line 1217: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1213: --If invoice is fully paid and there is fractional unbalance
1214: /* IF (l_pay_sum_amt = l_inv_amt) and NVL(l_inv_dist_diff_amt,0) <> 0 THEN
1215: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1216: l_log_msg := 'Updating rounding amount for l_inv_dist_diff_amt';
1217: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1218: END IF;
1219:
1220: Bug660017 If the invoice is paid in full by this payment and there is a
1221: difference of amount then adjust the maximum distribution with the fractional

Line 1241: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

1237: --Bug 7270829
1238:
1239: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1240: l_log_msg := 'Updated rounding amount for l_pay_rate_diff_amt';
1241: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1242: END IF;
1243: END IF;
1244:
1245: If there is a difference between the total and sum amounts then we will insert

Line 1265: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1261: IF NVL(l_inv_rate_diff_amt,0) <> 0 THEN
1262:
1263: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1264: l_log_msg := 'Updating rounding amount for l_inv_rate_diff_amt';
1265: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1266: END IF;
1267:
1268: UPDATE AP_Payment_Hist_Dists APHD
1269: SET APHD.Invoice_Dist_Base_Amount =

Line 1280: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

1276: AND APHD.Pay_Dist_Lookup_Code = 'CASH';
1277:
1278: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1279: l_log_msg := 'Updated rounding amount for l_inv_rate_diff_amt';
1280: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1281: END IF;
1282:
1283:
1284: END IF;

Line 1296: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1292: THEN
1293:
1294: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1295: l_log_msg := 'Updating rounding amount for l_clr_rate_diff_amt';
1296: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1297: END IF;
1298:
1299:
1300: UPDATE AP_Payment_Hist_Dists APHD

Line 1313: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

1309:
1310:
1311: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1312: l_log_msg := 'Updated rounding amount for l_clr_rate_diff_amt';
1313: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1314: END IF;
1315:
1316: ELSIF NVL(l_mat_rate_diff_amt,0) <> 0 AND
1317: (p_xla_event_rec.event_type_code IN ('PAYMENT MATURED',

Line 1323: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1319: THEN
1320:
1321: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1322: l_log_msg := 'Updating rounding amount for l_mat_rate_diff_amt';
1323: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1324: END IF;
1325:
1326: UPDATE AP_Payment_Hist_Dists APHD
1327: SET APHD.Matured_Base_Amount = APHD.Matured_Base_Amount

Line 1339: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

1335:
1336:
1337: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1338: l_log_msg := 'Updated rounding amount for l_mat_rate_diff_amt';
1339: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1340: END IF;
1341:
1342: ELSIF NVL(l_pay_rate_diff_amt,0) <> 0 THEN
1343:

Line 1346: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1342: ELSIF NVL(l_pay_rate_diff_amt,0) <> 0 THEN
1343:
1344: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1345: l_log_msg := 'Updating rounding amount for l_pay_rate_diff_amt';
1346: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1347: END IF;
1348:
1349:
1350: UPDATE AP_Payment_Hist_Dists APHD

Line 1362: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

1358:
1359:
1360: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1361: l_log_msg := 'Updated rounding amount for l_pay_rate_diff_amt';
1362: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1363: END IF;
1364:
1365: END IF;
1366:

Line 1371: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1367: IF NVL(l_disc_pay_rate_diff_amt,0) <> 0 THEN
1368:
1369: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1370: l_log_msg := 'Updating discount rounding amount for payment';
1371: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1372: END IF;
1373:
1374:
1375: UPDATE AP_Payment_Hist_Dists APHD

Line 1388: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

1384:
1385:
1386: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1387: l_log_msg := 'Updated discount rounding amount for payment';
1388: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1389: END IF;
1390:
1391:
1392: END IF;

Line 1398: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1394: IF NVL(l_disc_clr_rate_diff_amt,0) <> 0 THEN
1395:
1396: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1397: l_log_msg := 'Updating discount rounding amount for clearing';
1398: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1399: END IF;
1400:
1401:
1402: UPDATE AP_Payment_Hist_Dists APHD

Line 1415: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

1411:
1412:
1413: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1414: l_log_msg := 'Updated discount rounding amount for clearing';
1415: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1416: END IF;
1417:
1418:
1419: END IF;

Line 1426: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1422: IF NVL(l_err_clr_rate_diff_amt,0) <> 0 THEN
1423:
1424: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1425: l_log_msg := 'Updating error rounding amount';
1426: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1427: END IF;
1428:
1429:
1430: UPDATE AP_Payment_Hist_Dists APHD

Line 1443: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

1439:
1440:
1441: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1442: l_log_msg := 'Updated error rounding amount';
1443: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1444: END IF;
1445:
1446:
1447: END IF;

Line 1454: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1450: IF NVL(l_chrg_clr_rate_diff_amt,0) <> 0 THEN
1451:
1452: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1453: l_log_msg := 'Updating charge rounding amount';
1454: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1455: END IF;
1456:
1457:
1458: UPDATE AP_Payment_Hist_Dists APHD

Line 1471: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

1467:
1468:
1469: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1470: l_log_msg := 'Updated charge rounding amount';
1471: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1472: END IF;
1473:
1474:
1475: END IF;

Line 1536: FND_LOG.STRING(G_LEVEL_STATEMENT,

1532: IF NVL(l_inv_dist_rounding_amt, 0) <> 0 THEN --8449083
1533:
1534: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1535: l_log_msg := 'Updating rounding amount for l_inv_rate_diff_amt';
1536: FND_LOG.STRING(G_LEVEL_STATEMENT,
1537: G_MODULE_NAME || l_procedure_name,
1538: l_log_msg);
1539: END IF;
1540:

Line 1557: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1553: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1554:
1555: l_log_msg := 'Error : Entered into situation which will lead to infinite loop.'||
1556: 'There might be some data corrption. Check the following transaction';
1557: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1558: l_log_msg);
1559:
1560: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
1561: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||

Line 1564: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1560: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
1561: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||
1562: ', invoice_distribution_id = '||l_inv_dist_id||
1563: ', payment_history_id = '||l_pay_hist_id;
1564: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1565: l_log_msg);
1566:
1567: l_log_msg := 'l_inv_dist_rounding_amt = '||l_inv_dist_rounding_amt||
1568: 'l_pre_inv_dist_rounding_amt = '||l_pre_inv_dist_rounding_amt;

Line 1569: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1565: l_log_msg);
1566:
1567: l_log_msg := 'l_inv_dist_rounding_amt = '||l_inv_dist_rounding_amt||
1568: 'l_pre_inv_dist_rounding_amt = '||l_pre_inv_dist_rounding_amt;
1569: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1570: l_log_msg);
1571:
1572: l_log_msg := 'rounding failed and exiting loop!!!';
1573: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

Line 1573: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1569: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1570: l_log_msg);
1571:
1572: l_log_msg := 'rounding failed and exiting loop!!!';
1573: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1574: l_log_msg);
1575: END IF;
1576:
1577: exit;

Line 1583: FND_LOG.STRING(G_LEVEL_STATEMENT,

1579:
1580: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1581: l_log_msg := ' l_inv_dist_rounding_amt' ||
1582: to_char(l_inv_dist_rounding_amt);
1583: FND_LOG.STRING(G_LEVEL_STATEMENT,
1584: G_MODULE_NAME || l_procedure_name,
1585: l_log_msg);
1586: END IF;
1587: UPDATE AP_Payment_Hist_Dists APHD

Line 1610: FND_LOG.STRING(G_LEVEL_STATEMENT,

1606: AND APHD.Pay_Dist_Lookup_Code = 'CASH';
1607: l_inv_dist_rounding_amt := 0;
1608: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1609: l_log_msg := ' Rounding complete for l_inv_rate_diff_amt';
1610: FND_LOG.STRING(G_LEVEL_STATEMENT,
1611: G_MODULE_NAME || l_procedure_name,
1612: l_log_msg);
1613: END IF;
1614: END IF;

Line 1618: FND_LOG.STRING(G_LEVEL_PROCEDURE,

1614: END IF;
1615: /*End Changes BUG 7156680 Changes done to avoid negative rounding amount*/
1616: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1617: l_log_msg := 'Updated rounding amount for l_inv_rate_diff_amt';
1618: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1619: G_MODULE_NAME || l_procedure_name,
1620: l_log_msg);
1621: END IF;
1622: END IF;

Line 1636: FND_LOG.STRING(G_LEVEL_STATEMENT,

1632: ('PAYMENT CLEARED', 'PAYMENT CLEARING ADJUSTED')) THEN*/ --bug 8735895
1633:
1634: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1635: l_log_msg := 'Updating rounding amount for l_clr_rate_diff_amt';
1636: FND_LOG.STRING(G_LEVEL_STATEMENT,
1637: G_MODULE_NAME || l_procedure_name,
1638: l_log_msg);
1639: END IF;
1640:

Line 1657: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1653: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1654:
1655: l_log_msg := 'Error : Entered into situation which will lead to infinite loop.'||
1656: 'There might be some data corrption. Check the following transaction';
1657: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1658: l_log_msg);
1659:
1660: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
1661: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||

Line 1664: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1660: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
1661: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||
1662: ', invoice_distribution_id = '||l_inv_dist_id||
1663: ', payment_history_id = '||l_pay_hist_id;
1664: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1665: l_log_msg);
1666:
1667: l_log_msg := 'l_clr_rate_rounding_amt = '||l_clr_rate_rounding_amt||
1668: 'l_pre_clr_rate_rounding_amt = '||l_pre_clr_rate_rounding_amt;

Line 1669: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1665: l_log_msg);
1666:
1667: l_log_msg := 'l_clr_rate_rounding_amt = '||l_clr_rate_rounding_amt||
1668: 'l_pre_clr_rate_rounding_amt = '||l_pre_clr_rate_rounding_amt;
1669: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1670: l_log_msg);
1671:
1672: l_log_msg := 'rounding failed and exiting loop!!!';
1673: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

Line 1673: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1669: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1670: l_log_msg);
1671:
1672: l_log_msg := 'rounding failed and exiting loop!!!';
1673: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1674: l_log_msg);
1675: END IF;
1676:
1677: exit;

Line 1702: FND_LOG.STRING(G_LEVEL_PROCEDURE,

1698: l_clr_rate_rounding_amt := 0;
1699: END IF;
1700: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1701: l_log_msg := 'Updated rounding amount for l_clr_rate_diff_amt';
1702: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1703: G_MODULE_NAME || l_procedure_name,
1704: l_log_msg);
1705: END IF;
1706: END IF; --bug 8735895

Line 1714: FND_LOG.STRING(G_LEVEL_STATEMENT,

1710: ('PAYMENT MATURED', 'PAYMENT MATURITY ADJUSTED')) THEN*/ --bug 8735895
1711:
1712: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1713: l_log_msg := 'Updating rounding amount for l_mat_rate_diff_amt';
1714: FND_LOG.STRING(G_LEVEL_STATEMENT,
1715: G_MODULE_NAME || l_procedure_name,
1716: l_log_msg);
1717: END IF;
1718: IF (sign(l_mat_rate_rounding_amt + l_inv_mat_base_amt) <>

Line 1734: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1730: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1731:
1732: l_log_msg := 'Error : Entered into situation which will lead to infinite loop.'||
1733: 'There might be some data corrption. Check the following transaction';
1734: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1735: l_log_msg);
1736:
1737: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
1738: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||

Line 1741: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1737: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
1738: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||
1739: ', invoice_distribution_id = '||l_inv_dist_id||
1740: ', payment_history_id = '||l_pay_hist_id;
1741: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1742: l_log_msg);
1743:
1744: l_log_msg := 'l_mat_rate_rounding_amt = '||l_mat_rate_rounding_amt||
1745: 'l_pre_mat_rate_rounding_amt = '||l_pre_mat_rate_rounding_amt;

Line 1746: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1742: l_log_msg);
1743:
1744: l_log_msg := 'l_mat_rate_rounding_amt = '||l_mat_rate_rounding_amt||
1745: 'l_pre_mat_rate_rounding_amt = '||l_pre_mat_rate_rounding_amt;
1746: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1747: l_log_msg);
1748:
1749: l_log_msg := 'rounding failed and exiting loop!!!';
1750: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

Line 1750: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1746: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1747: l_log_msg);
1748:
1749: l_log_msg := 'rounding failed and exiting loop!!!';
1750: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1751: l_log_msg);
1752: END IF;
1753:
1754: exit;

Line 1780: FND_LOG.STRING(G_LEVEL_PROCEDURE,

1776: END IF;
1777:
1778: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1779: l_log_msg := 'Updated rounding amount for l_mat_rate_diff_amt';
1780: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1781: G_MODULE_NAME || l_procedure_name,
1782: l_log_msg);
1783: END IF;
1784: END IF; --bug 8735895

Line 1790: FND_LOG.STRING(G_LEVEL_STATEMENT,

1786: IF NVL(l_pay_rate_rounding_amt, 0) <> 0 THEN --8449083
1787:
1788: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1789: l_log_msg := 'Updating rounding amount for l_pay_rate_diff_amt';
1790: FND_LOG.STRING(G_LEVEL_STATEMENT,
1791: G_MODULE_NAME || l_procedure_name,
1792: l_log_msg);
1793: END IF;
1794: IF (sign(l_pay_rate_rounding_amt + l_inv_paid_base_amt) <>

Line 1810: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1806: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1807:
1808: l_log_msg := 'Error : Entered into situation which will lead to infinite loop.'||
1809: 'There might be some data corrption. Check the following transaction';
1810: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1811: l_log_msg);
1812:
1813: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
1814: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||

Line 1817: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1813: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
1814: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||
1815: ', invoice_distribution_id = '||l_inv_dist_id||
1816: ', payment_history_id = '||l_pay_hist_id;
1817: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1818: l_log_msg);
1819:
1820: l_log_msg := 'l_pay_rate_rounding_amt = '||l_pay_rate_rounding_amt||
1821: 'l_pre_pay_rate_rounding_amt = '||l_pre_pay_rate_rounding_amt;

Line 1822: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1818: l_log_msg);
1819:
1820: l_log_msg := 'l_pay_rate_rounding_amt = '||l_pay_rate_rounding_amt||
1821: 'l_pre_pay_rate_rounding_amt = '||l_pre_pay_rate_rounding_amt;
1822: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1823: l_log_msg);
1824:
1825: l_log_msg := 'rounding failed and exiting loop!!!';
1826: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

Line 1826: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1822: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1823: l_log_msg);
1824:
1825: l_log_msg := 'rounding failed and exiting loop!!!';
1826: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1827: l_log_msg);
1828: END IF;
1829:
1830: exit;

Line 1856: FND_LOG.STRING(G_LEVEL_PROCEDURE,

1852: END IF;
1853:
1854: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1855: l_log_msg := 'Updated rounding amount for l_pay_rate_diff_amt';
1856: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1857: G_MODULE_NAME || l_procedure_name,
1858: l_log_msg);
1859: END IF;
1860:

Line 1888: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,l_log_msg);

1884: EXCEPTION WHEN OTHERS THEN
1885: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1886: l_log_msg := 'exception when select discount row amount values for payment'||SQLERRM;
1887: l_log_msg := l_log_msg||'Exiting loop';
1888: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,l_log_msg);
1889: END IF;
1890: EXIT;
1891: END;
1892:

Line 1895: FND_LOG.STRING(G_LEVEL_STATEMENT,

1891: END;
1892:
1893: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1894: l_log_msg := 'Updating discount rounding amount for payment';
1895: FND_LOG.STRING(G_LEVEL_STATEMENT,
1896: G_MODULE_NAME || l_procedure_name,
1897: l_log_msg);
1898: END IF;
1899: IF (sign(l_disc_pay_rounding_amt + l_inv_paid_base_amt_disc) <>

Line 1915: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1911: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1912:
1913: l_log_msg := 'Error : Entered into situation which will lead to infinite loop.'||
1914: 'There might be some data corrption. Check the following transaction';
1915: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1916: l_log_msg);
1917:
1918: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
1919: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||

Line 1922: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1918: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
1919: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||
1920: ', invoice_distribution_id = '||l_inv_dist_id||
1921: ', payment_history_id = '||l_pay_hist_id;
1922: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1923: l_log_msg);
1924:
1925: l_log_msg := 'l_disc_pay_rounding_amt = '||l_disc_pay_rounding_amt||
1926: 'l_pre_disc_pay_rounding_amt = '||l_pre_disc_pay_rounding_amt;

Line 1927: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1923: l_log_msg);
1924:
1925: l_log_msg := 'l_disc_pay_rounding_amt = '||l_disc_pay_rounding_amt||
1926: 'l_pre_disc_pay_rounding_amt = '||l_pre_disc_pay_rounding_amt;
1927: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1928: l_log_msg);
1929:
1930: l_log_msg := 'rounding failed and exiting loop!!!';
1931: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

Line 1931: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

1927: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1928: l_log_msg);
1929:
1930: l_log_msg := 'rounding failed and exiting loop!!!';
1931: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
1932: l_log_msg);
1933: END IF;
1934:
1935: exit;

Line 1961: FND_LOG.STRING(G_LEVEL_PROCEDURE,

1957: END IF;
1958:
1959: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1960: l_log_msg := 'Updated discount rounding amount for payment';
1961: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1962: G_MODULE_NAME || l_procedure_name,
1963: l_log_msg);
1964: END IF;
1965:

Line 1993: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,l_log_msg);

1989: EXCEPTION WHEN OTHERS THEN
1990: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1991: l_log_msg := 'exception when select discount row amount values for payment'||SQLERRM;
1992: l_log_msg := l_log_msg||'Exiting loop';
1993: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,l_log_msg);
1994: END IF;
1995: EXIT;
1996: END;
1997:

Line 2000: FND_LOG.STRING(G_LEVEL_STATEMENT,

1996: END;
1997:
1998: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1999: l_log_msg := 'Updating discount rounding amount for clearing';
2000: FND_LOG.STRING(G_LEVEL_STATEMENT,
2001: G_MODULE_NAME || l_procedure_name,
2002: l_log_msg);
2003: END IF;
2004: IF (sign(l_disc_clr_rounding_amt + l_inv_clr_base_amt_disc) <>

Line 2020: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

2016: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2017:
2018: l_log_msg := 'Error : Entered into situation which will lead to infinite loop.'||
2019: 'There might be some data corrption. Check the following transaction';
2020: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2021: l_log_msg);
2022:
2023: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
2024: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||

Line 2027: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

2023: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
2024: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||
2025: ', invoice_distribution_id = '||l_inv_dist_id||
2026: ', payment_history_id = '||l_pay_hist_id;
2027: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2028: l_log_msg);
2029:
2030: l_log_msg := 'l_disc_clr_rounding_amt = '||l_disc_clr_rounding_amt||
2031: 'l_pre_disc_clr_rounding_amt = '||l_pre_disc_clr_rounding_amt;

Line 2032: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

2028: l_log_msg);
2029:
2030: l_log_msg := 'l_disc_clr_rounding_amt = '||l_disc_clr_rounding_amt||
2031: 'l_pre_disc_clr_rounding_amt = '||l_pre_disc_clr_rounding_amt;
2032: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2033: l_log_msg);
2034:
2035: l_log_msg := 'rounding failed and exiting loop!!!';
2036: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

Line 2036: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

2032: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2033: l_log_msg);
2034:
2035: l_log_msg := 'rounding failed and exiting loop!!!';
2036: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2037: l_log_msg);
2038: END IF;
2039:
2040: exit;

Line 2066: FND_LOG.STRING(G_LEVEL_PROCEDURE,

2062: END IF;
2063:
2064: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2065: l_log_msg := 'Updated discount rounding amount for clearing';
2066: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2067: G_MODULE_NAME || l_procedure_name,
2068: l_log_msg);
2069: END IF;
2070:

Line 2077: FND_LOG.STRING(G_LEVEL_STATEMENT,

2073: IF NVL(l_err_clr_rounding_amt, 0) <> 0 THEN --8449083
2074:
2075: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2076: l_log_msg := 'Updating error rounding amount';
2077: FND_LOG.STRING(G_LEVEL_STATEMENT,
2078: G_MODULE_NAME || l_procedure_name,
2079: l_log_msg);
2080: END IF;
2081:

Line 2098: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

2094: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2095:
2096: l_log_msg := 'Error : Entered into situation which will lead to infinite loop.'||
2097: 'There might be some data corrption. Check the following transaction';
2098: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2099: l_log_msg);
2100:
2101: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
2102: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||

Line 2105: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

2101: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
2102: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||
2103: ', invoice_distribution_id = '||l_inv_dist_id||
2104: ', payment_history_id = '||l_pay_hist_id;
2105: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2106: l_log_msg);
2107:
2108: l_log_msg := 'l_err_clr_rounding_amt = '||l_err_clr_rounding_amt||
2109: 'l_pre_err_clr_rounding_amt = '||l_pre_err_clr_rounding_amt;

Line 2110: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

2106: l_log_msg);
2107:
2108: l_log_msg := 'l_err_clr_rounding_amt = '||l_err_clr_rounding_amt||
2109: 'l_pre_err_clr_rounding_amt = '||l_pre_err_clr_rounding_amt;
2110: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2111: l_log_msg);
2112:
2113: l_log_msg := 'rounding failed and exiting loop!!!';
2114: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

Line 2114: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

2110: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2111: l_log_msg);
2112:
2113: l_log_msg := 'rounding failed and exiting loop!!!';
2114: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2115: l_log_msg);
2116: END IF;
2117:
2118: exit;

Line 2144: FND_LOG.STRING(G_LEVEL_PROCEDURE,

2140: END IF;
2141:
2142: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2143: l_log_msg := 'Updated error rounding amount';
2144: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2145: G_MODULE_NAME || l_procedure_name,
2146: l_log_msg);
2147: END IF;
2148:

Line 2155: FND_LOG.STRING(G_LEVEL_STATEMENT,

2151: IF NVL(l_chrg_clr_rounding_amt, 0) <> 0 THEN --8449083
2152:
2153: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2154: l_log_msg := 'Updating charge rounding amount';
2155: FND_LOG.STRING(G_LEVEL_STATEMENT,
2156: G_MODULE_NAME || l_procedure_name,
2157: l_log_msg);
2158: END IF;
2159:

Line 2176: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

2172: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2173:
2174: l_log_msg := 'Error : Entered into situation which will lead to infinite loop.'||
2175: 'There might be some data corrption. Check the following transaction';
2176: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2177: l_log_msg);
2178:
2179: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
2180: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||

Line 2183: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

2179: l_log_msg := 'event_id = '||p_xla_event_rec.event_id||
2180: ', invoice_payment_id = '||p_inv_pay_rec.invoice_payment_id||
2181: ', invoice_distribution_id = '||l_inv_dist_id||
2182: ', payment_history_id = '||l_pay_hist_id;
2183: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2184: l_log_msg);
2185:
2186: l_log_msg := 'l_chrg_clr_rounding_amt = '||l_chrg_clr_rounding_amt||
2187: 'l_pre_chrg_clr_rounding_amt = '||l_pre_chrg_clr_rounding_amt;

Line 2188: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

2184: l_log_msg);
2185:
2186: l_log_msg := 'l_chrg_clr_rounding_amt = '||l_chrg_clr_rounding_amt||
2187: 'l_pre_chrg_clr_rounding_amt = '||l_pre_chrg_clr_rounding_amt;
2188: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2189: l_log_msg);
2190:
2191: l_log_msg := 'rounding failed and exiting loop!!!';
2192: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

Line 2192: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,

2188: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2189: l_log_msg);
2190:
2191: l_log_msg := 'rounding failed and exiting loop!!!';
2192: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME || l_procedure_name,
2193: l_log_msg);
2194: END IF;
2195:
2196: exit;

Line 2222: FND_LOG.STRING(G_LEVEL_PROCEDURE,

2218: END IF;
2219:
2220: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2221: l_log_msg := 'Updated charge rounding amount';
2222: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2223: G_MODULE_NAME || l_procedure_name,
2224: l_log_msg);
2225: END IF;
2226:

Line 2297: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);

2293:
2294: -- Logging Infra: Procedure level
2295: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2296: l_log_msg := 'End of procedure '|| l_procedure_name;
2297: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
2298: END IF;
2299:
2300:
2301: EXCEPTION

Line 2351: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

2347: l_pd_rec AP_PAYMENT_HIST_DISTS%ROWTYPE;
2348:
2349: -- Logging Infra:
2350: l_procedure_name CONSTANT VARCHAR2(30) := 'Compare_Pay';
2351: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2352:
2353: BEGIN
2354:
2355: l_curr_calling_sequence := 'AP_ACCTG_PAY_ROUND_PKG.Compare_Pay<- ' ||

Line 2362: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);

2358:
2359: -- Logging Infra: Procedure level
2360: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2361: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2362: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2363: END IF;
2364:
2365:
2366: -- Getting the max of the largest distribution for inserting the rounding

Line 2486: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

2482: IF l_diff_mat_paid_base_amt <> 0 THEN
2483:
2484: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2485: l_log_msg := 'Inserting future payment rounding';
2486: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2487: END IF;
2488:
2489:
2490: l_pd_rec.pay_dist_lookup_code := 'FUTURE PAYMENT ROUNDING';

Line 2498: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

2494: l_pd_rec.matured_base_amount := 0;
2495:
2496: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2497: l_log_msg := 'Calling procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert';
2498: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2499: END IF;
2500:
2501: AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert
2502: (l_pd_rec,

Line 2507: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

2503: l_curr_calling_sequence);
2504:
2505: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2506: l_log_msg := 'Procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert executed';
2507: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2508: END IF;
2509:
2510:
2511: END IF;

Line 2517: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

2513: IF l_diff_clr_paid_base_amt <> 0 THEN
2514:
2515: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2516: l_log_msg := 'Inserting payment to clearing rounding';
2517: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2518: END IF;
2519:
2520: l_pd_rec.pay_dist_lookup_code := 'PAYMENT TO CLEARING ROUNDING';
2521:

Line 2528: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

2524: l_pd_rec.matured_base_amount := 0;
2525:
2526: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2527: l_log_msg := 'Calling procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert';
2528: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2529: END IF;
2530:
2531: AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert
2532: (l_pd_rec,

Line 2537: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

2533: l_curr_calling_sequence);
2534:
2535: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2536: l_log_msg := 'Procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert executed';
2537: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2538: END IF;
2539:
2540:
2541: END IF;

Line 2548: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

2544:
2545:
2546: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2547: l_log_msg := 'Inserting maturity to clearing rounding';
2548: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2549: END IF;
2550:
2551: l_pd_rec.pay_dist_lookup_code := 'MATURITY TO CLEARING ROUNDING';
2552:

Line 2559: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

2555: l_pd_rec.matured_base_amount := l_diff_clr_mat_base_amt;
2556:
2557: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2558: l_log_msg := 'Calling procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert';
2559: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2560: END IF;
2561:
2562: AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert
2563: (l_pd_rec,

Line 2568: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

2564: l_curr_calling_sequence);
2565:
2566: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2567: l_log_msg := 'Procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert executed';
2568: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2569: END IF;
2570:
2571:
2572: END IF;

Line 2577: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);

2573:
2574: -- Logging Infra: Procedure level
2575: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2576: l_log_msg := 'End of procedure '|| l_procedure_name;
2577: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
2578: END IF;
2579:
2580:
2581: EXCEPTION

Line 2650: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

2646: l_pad_rec AP_PREPAY_APP_DISTS%ROWTYPE;
2647:
2648: -- Logging Infra:
2649: l_procedure_name CONSTANT VARCHAR2(30) := 'Total_Appl';
2650: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2651:
2652: BEGIN
2653:
2654: l_curr_calling_sequence := 'AP_Acctg_Pay_Round_Pkg.Total_Appl<- ' ||

Line 2660: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);

2656:
2657: -- Logging Infra: Procedure level
2658: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2659: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2660: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2661: END IF;
2662:
2663: -- Get the max of the largest distribution for inserting the rounding line
2664: BEGIN

Line 2833: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

2829: (l_diff_prepay_pay_rate_amt <> 0) OR (l_diff_prepay_clr_rate_amt <> 0) THEN
2830:
2831: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2832: l_log_msg := 'Updating prepay appl rounding amount';
2833: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2834: END IF;
2835:
2836:
2837: UPDATE AP_Prepay_App_Dists APPD

Line 2859: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

2855:
2856:
2857: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2858: l_log_msg := 'Updated prepay appl rounding amount';
2859: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2860: END IF;
2861:
2862:
2863: END IF;

Line 2872: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

2868:
2869:
2870: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2871: l_log_msg := 'Updating tax diff rounding amount';
2872: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2873: END IF;
2874:
2875: UPDATE AP_Prepay_App_Dists APPD
2876: SET Base_Amount = Base_Amount + NVL(l_td_diff_inv_rate_amt,0),

Line 2896: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

2892:
2893:
2894: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2895: l_log_msg := 'Updating tax diff rounding amount';
2896: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2897: END IF;
2898:
2899:
2900: END IF;

Line 2905: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);

2901:
2902: -- Logging Infra: Procedure level
2903: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2904: l_log_msg := 'End of procedure '|| l_procedure_name;
2905: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
2906: END IF;
2907:
2908:
2909: EXCEPTION

Line 2961: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

2957: l_pad_rec AP_PREPAY_APP_DISTS%ROWTYPE;
2958:
2959: -- Logging Infra:
2960: l_procedure_name CONSTANT VARCHAR2(30) := 'Final_Appl';
2961: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2962:
2963: BEGIN
2964:
2965: l_curr_calling_sequence := 'AP_ACCTG_PAY_ROUND_PKG.Final_Appl<- ' ||

Line 2971: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);

2967:
2968: -- Logging Infra: Procedure level
2969: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2970: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2971: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
2972: END IF;
2973:
2974: BEGIN
2975:

Line 2987: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

2983: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2984: l_log_msg := 'l_invrate_for_prepay is: '|| l_invrate_for_prepay||
2985: 'and P_Prepay_Dist_Rec.Line_type_lookup_code is: '||
2986: P_Prepay_Dist_Rec.Line_type_lookup_code;
2987: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2988: END IF;
2989:
2990: IF l_invrate_for_prepay = 'Y' AND P_Prepay_Dist_Rec.Line_type_lookup_code IN ('REC_TAX','NONREC_TAX') THEN
2991:

Line 2994: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

2990: IF l_invrate_for_prepay = 'Y' AND P_Prepay_Dist_Rec.Line_type_lookup_code IN ('REC_TAX','NONREC_TAX') THEN
2991:
2992: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2993: l_log_msg := 'Returning from the Final_Appl procedure';
2994: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2995: END IF;
2996:
2997: RETURN;
2998: END IF;

Line 3005: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

3001: WHEN OTHERS THEN
3002: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3003: l_log_msg := 'Encountered an Exception '||SQLERRM||
3004: ' while checking the option Invrate_for_prepay_tax ';
3005: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3006: END IF;
3007: END;
3008:
3009: -- Getting the max of the largest distribution for inserting the rounding dist

Line 3145: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

3141: OR (l_diff_prepay_clr_rate_amt <> 0) THEN
3142:
3143: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3144: l_log_msg := 'Inserting final appl rounding dist';
3145: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3146: END IF;
3147:
3148:
3149: l_pad_rec.prepay_dist_lookup_code := 'FINAL APPL ROUNDING';

Line 3157: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

3153:
3154:
3155: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3156: l_log_msg := 'Calling procedure Prepay_Dist_Insert';
3157: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3158: END IF;
3159:
3160:
3161: AP_ACCTG_PREPAY_DIST_PKG.Prepay_Dist_Insert

Line 3167: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

3163: l_curr_calling_sequence);
3164:
3165: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3166: l_log_msg := 'Procedure Prepay_Dist_Insert executed';
3167: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3168: END IF;
3169:
3170:
3171: END IF;

Line 3176: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);

3172:
3173: -- Logging Infra: Procedure level
3174: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3175: l_log_msg := 'End of procedure '|| l_procedure_name;
3176: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
3177: END IF;
3178:
3179:
3180: EXCEPTION

Line 3217: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

3213: l_sum_cash_amt NUMBER;
3214: l_ac_amount NUMBER;
3215: l_do_cash_rounding NUMBER;
3216: l_procedure_name CONSTANT VARCHAR2(30) := 'Final_Cash';
3217: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
3218: l_pay_hist_rec ap_accounting_pay_pkg.r_pay_hist_info;
3219: BEGIN
3220:
3221: l_curr_calling_sequence := 'AP_ACCTG_PAY_ROUND_PKG.Final_Cash<- ' ||

Line 3228: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);

3224:
3225: -- Logging Infra: Procedure level
3226: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3227: l_log_msg := 'Begin of procedure '|| l_procedure_name;
3228: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
3229: END IF;
3230:
3231:
3232: SELECT count(*) into l_do_cash_rounding

Line 3282: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

3278: 'MATURITY' , 'PAYMENT MATURITY','PAYMENT CREATED');
3279:
3280: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3281: l_log_msg := 'l_ac_base_amount :'|| l_ac_base_amount||' l_sum_cash_amt :'|| l_sum_cash_amt;
3282: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3283: END IF;
3284:
3285: IF ( l_sum_cash_amt <> l_ac_base_amount AND l_sum_cash_amt <> 0) Then
3286: --Getting Payment History Header Details

Line 3354: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

3350: l_pd_rec.cleared_base_amount := l_ac_base_amount - l_sum_cash_amt;
3351:
3352: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3353: l_log_msg := 'l_pd_rec.cleared_base_amount :'|| l_pd_rec.cleared_base_amount;
3354: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3355: END IF;
3356:
3357: ELSIF ( l_transaction_type = 'MATURITY' AND 1=2) Then
3358: l_pd_rec.matured_base_amount := l_ac_base_amount - l_sum_cash_amt;

Line 3367: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

3363: END IF; --bug 8880820
3364:
3365: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3366: l_log_msg := 'Calling proc AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert';
3367: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3368: END IF;
3369:
3370: IF (nvl(l_pd_rec.paid_base_amount,0) <> 0 OR
3371: nvl(l_pd_rec.cleared_base_amount,0) <> 0 OR

Line 3382: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

3378: End IF; -- nvl(l_pd_rec.paid_base_amount,0) <> 0 ....
3379:
3380: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3381: l_log_msg := 'Proc AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert executed';
3382: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
3383: END IF;
3384:
3385: END IF; -- l_sum_cash_amt <> l_ac_base_amount
3386:

Line 3400: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);

3396: END IF; -- l_do_cash_rounding = 0
3397:
3398: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
3399: l_log_msg := 'End of procedure '|| l_procedure_name;
3400: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
3401: END IF;
3402:
3403: EXCEPTION
3404: WHEN OTHERS THEN