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.22.12010000.4 2008/08/15 01:42:06 gagrawal 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.22.12010000.4 2008/08/15 01:42:06 gagrawal 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:

Line 51: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

47: l_curr_calling_sequence := 'AP_Acctg_Pay_Round_Pkg.Do_Rounding<- ' ||
48: p_calling_sequence;
49:
50: -- Logging Infra: Setting up runtime level
51: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
52:
53: -- Logging Infra: Procedure level
54: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
55: l_log_msg := 'Begin of procedure '|| l_procedure_name;

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

52:
53: -- Logging Infra: Procedure level
54: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
55: l_log_msg := 'Begin of procedure '|| l_procedure_name;
56: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
57: END IF;
58:
59:
60: /* Check for rounding only if the invoice currency or payment currency is different than

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

65: IF (p_prepay_dist_rec.invoice_distribution_id IS NOT NULL) THEN
66: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
67: l_log_msg := 'Calling procedure Total_Appl for dist: '
68: || p_prepay_dist_rec.invoice_distribution_id;
69: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
70: END IF;
71:
72:
73: -- Calculate the total application rounding

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

81: l_curr_calling_sequence);
82:
83: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
84: l_log_msg := 'Procedure Total_Appl executed';
85: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
86: END IF;
87:
88:
89: /* Get the prepayment app dists amount that has already been accounted */

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

107:
108: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
109: l_log_msg := 'Calling procedure Final_Appl for prepay dist: '
110: || p_prepay_dist_rec.prepay_distribution_id;
111: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
112: END IF;
113:
114: Final_Appl
115: (p_xla_event_rec,

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

122: l_curr_calling_sequence);
123:
124: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
125: l_log_msg := 'Procedure Final_Appl executed';
126: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
127: END IF;
128:
129: END IF;
130:

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

132:
133: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
134: l_log_msg := 'Calling procedure Total_Pay for invoice: '
135: || p_inv_rec.invoice_id;
136: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
137: END IF;
138:
139:
140: -- Calculate the total payment rounding

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

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

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

152:
153: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
154: l_log_msg := 'Calling procedure Compare_Pay for invoice: '
155: || p_inv_rec.invoice_id;
156: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
157: END IF;
158:
159: -- Calculate the payment to maturity, payment to clearing and
160: -- maturity to clearing rounding

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

165: l_curr_calling_sequence);
166:
167: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
168: l_log_msg := 'Procedure Compare_Pay executed';
169: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
170: END IF;
171:
172:
173: END IF; -- if prepayment event type

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

183:
184: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
185: l_log_msg := 'Calling procedure Final_Pay for invoice: '
186: || p_inv_rec.invoice_id;
187: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
188: END IF;
189:
190: -- Bug 6600341
191: -- Final Payment Rounding should not be done if there are XLA Events

Line 204: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name,

200: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
201: l_log_msg := 'Fetched Acctg event id: '|| l_acctg_event_id
202: || ' , current XLA Event ID is: ' || p_xla_event_rec.event_id
203: || ' , Invoice ID: ' || p_inv_rec.invoice_id;
204: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name,
205: l_log_msg);
206: END IF;
207:
208: IF p_xla_event_rec.event_id = l_acctg_event_id THEN -- bug 6600341

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

209:
210: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
211: l_log_msg := 'Calling procedure Final_Pay for invoice: '
212: || p_inv_rec.invoice_id;
213: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
214: END IF;
215:
216: -- Calculate the final payment rounding to relieve the liability on the
217: -- invoice fully.

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

226: l_curr_calling_sequence);
227:
228: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
229: l_log_msg := 'Procedure Final_Pay executed';
230: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
231: END IF;
232:
233: ELSE -- bug 6600341 contd
234: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN

Line 237: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name,

233: ELSE -- bug 6600341 contd
234: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
235: l_log_msg := 'Procedure Final_Pay for invoice not called: '
236: || p_inv_rec.invoice_id;
237: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name,
238: l_log_msg);
239: END IF;
240: END IF; -- bug 6600341 end
241:

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

244:
245: -- Logging Infra: Procedure level
246: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
247: l_log_msg := 'End of procedure '|| l_procedure_name;
248: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
249: END IF;
250:
251:
252: EXCEPTION

Line 358: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

354: l_erv_base_amount AP_INVOICE_DISTRIBUTIONS_ALL.base_amount%type := 0;
355:
356: -- Logging Infra:
357: l_procedure_name CONSTANT VARCHAR2(30) := 'Final_Pay';
358: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
359:
360:
361: BEGIN
362:

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

365:
366: -- Logging Infra: Procedure level
367: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
368: l_log_msg := 'Begin of procedure '|| l_procedure_name;
369: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
370: END IF;
371:
372:
373: FOR l_inv_dist_rec IN Invoice_Dists(p_inv_rec.invoice_id)

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

377: --a historical adjustment distribution, with the net balance
378: --as 0 under automatic offsets off condition
379: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
380: l_log_msg := 'Checking b_generate_pay_dist';
381: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
382: END IF;
383:
384: b_generate_pay_dist := TRUE;
385: IF nvl(l_inv_dist_rec.historical_flag, 'N') ='Y' THEN

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

398: IF b_generate_pay_dist THEN
399: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
400: l_log_msg := 'b_generate_pay_dist = TRUE for Invoice Distribution : ' ||
401: l_inv_dist_rec.invoice_distribution_id;
402: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
403: END IF;
404: ELSE
405: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
406: l_log_msg := 'b_generate_pay_dist = FALSE(No error) for Invoice Distribution : ' ||

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

404: ELSE
405: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
406: l_log_msg := 'b_generate_pay_dist = FALSE(No error) for Invoice Distribution : ' ||
407: l_inv_dist_rec.invoice_distribution_id;
408: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
409: END IF;
410: END IF ;
411:
412: --bug7314656, proceed to calculate the final payment rounding only

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

416:
417: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
418: l_log_msg := 'Withi CUR loop: Invoice_Dists: Invoice_Dist_ID = '||
419: l_inv_dist_rec.invoice_distribution_id;
420: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
421: END IF;
422:
423:
424: -- Get the base amount from the payment hist distributions table for

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

496: END IF;
497:
498: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
499: l_log_msg := 'Value of l_sum_pay_dist_base_amt = '||l_sum_pay_dist_base_amt;
500: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
501: END IF;
502:
503: -- Bug 7138115. Added additional join conditions to improve performance
504: SELECT SUM(APAD.Base_Amount)

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

529: AND l_inv_dist_rec.related_id is not NULL ) THEN
530: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
531: l_log_msg := 'possible erv exists for invoice dist type =' ||
532: l_inv_dist_rec.line_type_lookup_code;
533: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
534: END IF;
535:
536: BEGIN
537:

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

555: 'invoice dist ERV Amount = ' ||
556: l_erv_base_amount ||
557: 'and l_total_dist_base_amt' ||
558: l_total_dist_base_amt;
559: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
560: END IF;
561:
562:
563: IF ( (l_inv_dist_rec.base_amount + l_erv_base_amount)

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

565:
566: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
567: l_log_msg := 'Total of accounted base amt is not equal to base amount.'
568: || 'Creating a final payment rounding';
569: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
570: END IF;
571:
572:
573: /* If this is a prepayment type of event then insert the rounding distribution into

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

609:
610: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
611: l_log_msg := 'Calling procedure '||
612: 'AP_ACCTG_PREPAY_DIST_PKG.Prepay_Dist_Insert';
613: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
614: END IF;
615:
616: AP_ACCTG_PREPAY_DIST_PKG.Prepay_Dist_Insert
617: (l_pad_rec,

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

619:
620: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
621: l_log_msg := 'Procedure AP_ACCTG_PREPAY_DIST_PKG.Prepay_Dist_Insert '
622: || 'executed';
623: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
624: END IF;
625:
626: ELSE
627:

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

652: l_pd_rec.matured_base_amount := 0;
653:
654: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
655: l_log_msg := 'Calling procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert';
656: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
657: END IF;
658:
659:
660: AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert

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

662: l_curr_calling_sequence);
663:
664: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
665: l_log_msg := 'Procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert executed';
666: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
667: END IF;
668:
669:
670: END IF;

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

674:
675: -- Logging Infra: Procedure level
676: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
677: l_log_msg := 'End of procedure '|| l_procedure_name;
678: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
679: END IF;
680:
681:
682: EXCEPTION

Line 745: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

741: l_pd_rec AP_PAYMENT_HIST_DISTS%ROWTYPE;
742:
743: -- Logging Infra:
744: l_procedure_name CONSTANT VARCHAR2(30) := 'Total_Pay';
745: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
746: l_inv_base_amt NUMBER := 0;--Bug6600117
747: l_inv_dist_diff_amt NUMBER := 0;
748: l_inv_amt NUMBER := 0;
749: l_pay_sum_amt NUMBER := 0;

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

758:
759: -- Logging Infra: Procedure level
760: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
761: l_log_msg := 'Begin of procedure '|| l_procedure_name;
762: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
763: END IF;
764:
765:
766: -- Get the max of the largest distribution for inserting the

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

861: WHERE AID.Invoice_ID = p_inv_rec.invoice_id);
862:
863: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
864: l_log_msg := 'l_inv_rate_sum_full_amt ' || l_inv_rate_sum_full_amt;
865: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
866: END IF;
867:
868: SELECT sum(AI.invoice_amount) ,sum(AI.base_amount)
869: INTO l_inv_amt,l_inv_base_amt

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

986: --If invoice is fully paid and there is fractional unbalance
987: IF (l_pay_sum_amt = l_inv_amt) and NVL(l_inv_dist_diff_amt,0) <> 0 THEN
988: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
989: l_log_msg := 'Updating rounding amount for l_inv_dist_diff_amt';
990: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
991: END IF;
992:
993: /* Bug660017 If the invoice is paid in full by this payment and there is a
994: difference of amount then adjust the maximum distribution with the fractional

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

1010: --Bug 7270829
1011:
1012: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1013: l_log_msg := 'Updated rounding amount for l_pay_rate_diff_amt';
1014: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1015: END IF;
1016: END IF;
1017:
1018: /* If there is a difference between the total and sum amounts then we will insert

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

1033: IF NVL(l_inv_rate_diff_amt,0) <> 0 THEN
1034:
1035: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1036: l_log_msg := 'Updating rounding amount for l_inv_rate_diff_amt';
1037: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1038: END IF;
1039:
1040: UPDATE AP_Payment_Hist_Dists APHD
1041: SET APHD.Invoice_Dist_Base_Amount =

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

1048: AND APHD.Pay_Dist_Lookup_Code = 'CASH';
1049:
1050: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1051: l_log_msg := 'Updated rounding amount for l_inv_rate_diff_amt';
1052: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1053: END IF;
1054:
1055:
1056: END IF;

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

1064: THEN
1065:
1066: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1067: l_log_msg := 'Updating rounding amount for l_clr_rate_diff_amt';
1068: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1069: END IF;
1070:
1071:
1072: UPDATE AP_Payment_Hist_Dists APHD

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

1081:
1082:
1083: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1084: l_log_msg := 'Updated rounding amount for l_clr_rate_diff_amt';
1085: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1086: END IF;
1087:
1088: ELSIF NVL(l_mat_rate_diff_amt,0) <> 0 AND
1089: (p_xla_event_rec.event_type_code IN ('PAYMENT MATURED',

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

1091: THEN
1092:
1093: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1094: l_log_msg := 'Updating rounding amount for l_mat_rate_diff_amt';
1095: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1096: END IF;
1097:
1098: UPDATE AP_Payment_Hist_Dists APHD
1099: SET APHD.Matured_Base_Amount = APHD.Matured_Base_Amount

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

1107:
1108:
1109: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1110: l_log_msg := 'Updated rounding amount for l_mat_rate_diff_amt';
1111: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1112: END IF;
1113:
1114: ELSIF NVL(l_pay_rate_diff_amt,0) <> 0 THEN
1115:

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

1114: ELSIF NVL(l_pay_rate_diff_amt,0) <> 0 THEN
1115:
1116: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1117: l_log_msg := 'Updating rounding amount for l_pay_rate_diff_amt';
1118: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1119: END IF;
1120:
1121:
1122: UPDATE AP_Payment_Hist_Dists APHD

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

1130:
1131:
1132: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1133: l_log_msg := 'Updated rounding amount for l_pay_rate_diff_amt';
1134: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1135: END IF;
1136:
1137: END IF;
1138:

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

1139: IF NVL(l_disc_pay_rate_diff_amt,0) <> 0 THEN
1140:
1141: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1142: l_log_msg := 'Updating discount rounding amount for payment';
1143: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1144: END IF;
1145:
1146:
1147: UPDATE AP_Payment_Hist_Dists APHD

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

1156:
1157:
1158: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1159: l_log_msg := 'Updated discount rounding amount for payment';
1160: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1161: END IF;
1162:
1163:
1164: END IF;

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

1166: IF NVL(l_disc_clr_rate_diff_amt,0) <> 0 THEN
1167:
1168: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1169: l_log_msg := 'Updating discount rounding amount for clearing';
1170: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1171: END IF;
1172:
1173:
1174: UPDATE AP_Payment_Hist_Dists APHD

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

1183:
1184:
1185: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1186: l_log_msg := 'Updated discount rounding amount for clearing';
1187: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1188: END IF;
1189:
1190:
1191: END IF;

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

1194: IF NVL(l_err_clr_rate_diff_amt,0) <> 0 THEN
1195:
1196: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1197: l_log_msg := 'Updating error rounding amount';
1198: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1199: END IF;
1200:
1201:
1202: UPDATE AP_Payment_Hist_Dists APHD

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

1211:
1212:
1213: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1214: l_log_msg := 'Updated error rounding amount';
1215: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1216: END IF;
1217:
1218:
1219: END IF;

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

1222: IF NVL(l_chrg_clr_rate_diff_amt,0) <> 0 THEN
1223:
1224: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1225: l_log_msg := 'Updating charge rounding amount';
1226: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1227: END IF;
1228:
1229:
1230: UPDATE AP_Payment_Hist_Dists APHD

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

1239:
1240:
1241: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1242: l_log_msg := 'Updated charge rounding amount';
1243: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1244: END IF;
1245:
1246:
1247: END IF;

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

1248:
1249: -- Logging Infra: Procedure level
1250: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1251: l_log_msg := 'End of procedure '|| l_procedure_name;
1252: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
1253: END IF;
1254:
1255:
1256: EXCEPTION

Line 1304: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

1300: l_pd_rec AP_PAYMENT_HIST_DISTS%ROWTYPE;
1301:
1302: -- Logging Infra:
1303: l_procedure_name CONSTANT VARCHAR2(30) := 'Compare_Pay';
1304: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1305:
1306: BEGIN
1307:
1308: l_curr_calling_sequence := 'AP_ACCTG_PAY_ROUND_PKG.Compare_Pay<- ' ||

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

1311:
1312: -- Logging Infra: Procedure level
1313: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1314: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1315: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1316: END IF;
1317:
1318:
1319: -- Getting the max of the largest distribution for inserting the rounding

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

1424: IF l_diff_mat_paid_base_amt <> 0 THEN
1425:
1426: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1427: l_log_msg := 'Inserting future payment rounding';
1428: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1429: END IF;
1430:
1431:
1432: l_pd_rec.pay_dist_lookup_code := 'FUTURE PAYMENT ROUNDING';

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

1436: l_pd_rec.matured_base_amount := 0;
1437:
1438: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1439: l_log_msg := 'Calling procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert';
1440: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1441: END IF;
1442:
1443: AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert
1444: (l_pd_rec,

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

1445: l_curr_calling_sequence);
1446:
1447: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1448: l_log_msg := 'Procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert executed';
1449: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1450: END IF;
1451:
1452:
1453: END IF;

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

1455: IF l_diff_clr_paid_base_amt <> 0 THEN
1456:
1457: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1458: l_log_msg := 'Inserting payment to clearing rounding';
1459: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1460: END IF;
1461:
1462: l_pd_rec.pay_dist_lookup_code := 'PAYMENT TO CLEARING ROUNDING';
1463:

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

1466: l_pd_rec.matured_base_amount := 0;
1467:
1468: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1469: l_log_msg := 'Calling procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert';
1470: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1471: END IF;
1472:
1473: AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert
1474: (l_pd_rec,

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

1475: l_curr_calling_sequence);
1476:
1477: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1478: l_log_msg := 'Procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert executed';
1479: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1480: END IF;
1481:
1482:
1483: END IF;

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

1486:
1487:
1488: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1489: l_log_msg := 'Inserting maturity to clearing rounding';
1490: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1491: END IF;
1492:
1493: l_pd_rec.pay_dist_lookup_code := 'MATURITY TO CLEARING ROUNDING';
1494:

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

1497: l_pd_rec.matured_base_amount := l_diff_clr_mat_base_amt;
1498:
1499: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1500: l_log_msg := 'Calling procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert';
1501: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1502: END IF;
1503:
1504: AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert
1505: (l_pd_rec,

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

1506: l_curr_calling_sequence);
1507:
1508: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1509: l_log_msg := 'Procedure AP_Acctg_Pay_Dist_Pkg.Pay_Dist_Insert executed';
1510: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1511: END IF;
1512:
1513:
1514: END IF;

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

1515:
1516: -- Logging Infra: Procedure level
1517: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1518: l_log_msg := 'End of procedure '|| l_procedure_name;
1519: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
1520: END IF;
1521:
1522:
1523: EXCEPTION

Line 1590: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

1586: l_pad_rec AP_PREPAY_APP_DISTS%ROWTYPE;
1587:
1588: -- Logging Infra:
1589: l_procedure_name CONSTANT VARCHAR2(30) := 'Total_Appl';
1590: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1591:
1592: BEGIN
1593:
1594: l_curr_calling_sequence := 'AP_Acctg_Pay_Round_Pkg.Total_Appl<- ' ||

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

1596:
1597: -- Logging Infra: Procedure level
1598: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1599: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1600: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1601: END IF;
1602:
1603:
1604: -- Get the max of the largest distribution for inserting the rounding line

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

1765: (l_diff_prepay_pay_rate_amt <> 0) OR (l_diff_prepay_clr_rate_amt <> 0) THEN
1766:
1767: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1768: l_log_msg := 'Updating prepay appl rounding amount';
1769: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1770: END IF;
1771:
1772:
1773: UPDATE AP_Prepay_App_Dists APPD

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

1791:
1792:
1793: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1794: l_log_msg := 'Updated prepay appl rounding amount';
1795: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1796: END IF;
1797:
1798:
1799: END IF;

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

1804:
1805:
1806: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1807: l_log_msg := 'Updating tax diff rounding amount';
1808: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1809: END IF;
1810:
1811: UPDATE AP_Prepay_App_Dists APPD
1812: SET Base_Amount = Base_Amount + NVL(l_td_diff_inv_rate_amt,0),

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

1828:
1829:
1830: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1831: l_log_msg := 'Updating tax diff rounding amount';
1832: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
1833: END IF;
1834:
1835:
1836: END IF;

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

1837:
1838: -- Logging Infra: Procedure level
1839: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1840: l_log_msg := 'End of procedure '|| l_procedure_name;
1841: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
1842: END IF;
1843:
1844:
1845: EXCEPTION

Line 1894: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

1890: l_pad_rec AP_PREPAY_APP_DISTS%ROWTYPE;
1891:
1892: -- Logging Infra:
1893: l_procedure_name CONSTANT VARCHAR2(30) := 'Final_Appl';
1894: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1895:
1896: BEGIN
1897:
1898: l_curr_calling_sequence := 'AP_ACCTG_PAY_ROUND_PKG.Final_Appl<- ' ||

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

1900:
1901: -- Logging Infra: Procedure level
1902: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1903: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1904: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.begin', l_log_msg);
1905: END IF;
1906:
1907: -- Getting the max of the largest distribution for inserting the rounding dist
1908: SELECT APAD.*

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

2001: OR (l_diff_prepay_clr_rate_amt <> 0) THEN
2002:
2003: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2004: l_log_msg := 'Inserting final appl rounding dist';
2005: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
2006: END IF;
2007:
2008:
2009: l_pad_rec.prepay_dist_lookup_code := 'FINAL APPL ROUNDING';

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

2013:
2014:
2015: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2016: l_log_msg := 'Calling procedure Prepay_Dist_Insert';
2017: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2018: END IF;
2019:
2020:
2021: AP_ACCTG_PREPAY_DIST_PKG.Prepay_Dist_Insert

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

2023: l_curr_calling_sequence);
2024:
2025: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2026: l_log_msg := 'Procedure Prepay_Dist_Insert executed';
2027: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
2028: END IF;
2029:
2030:
2031: END IF;

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

2032:
2033: -- Logging Infra: Procedure level
2034: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
2035: l_log_msg := 'End of procedure '|| l_procedure_name;
2036: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name||'.end', l_log_msg);
2037: END IF;
2038:
2039:
2040: EXCEPTION