APPS.AP_WITHHOLDING_PKG dependencies on FND_LOG

Line 8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

4: -- =====================================================================
5: -- P U B L I C O B J E C T S
6: -- =====================================================================
7:
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;

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

5: -- P U B L I C O B J E C T S
6: -- =====================================================================
7:
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

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

6: -- =====================================================================
7:
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

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

7:
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'AP.PLSQL.AP_WITHHOLDING_PKG.';

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

8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'AP.PLSQL.AP_WITHHOLDING_PKG.';
16:

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

9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'AP.PLSQL.AP_WITHHOLDING_PKG.';
16:
17: /*

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

10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'AP.PLSQL.AP_WITHHOLDING_PKG.';
16:
17: /*
18: bug13606808, Forward declaration for

Line 260: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

256:
257:
258: debug_info := 'Get 1099 Info From ASP';
259: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
260: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
261: END IF;
262:
263:
264: SELECT NVL(enable_1099_on_awt_flag, 'N'),

Line 307: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

303: ap_awt_temp_distributions table and this will be used in the proration formula */
304:
305: debug_info := 'l_prepay_awt_amount -- '||l_prepay_awt_amount;
306: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
307: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
308: END IF;
309: debug_info := 'l_non_prepay_awt_amount -- '||l_non_prepay_awt_amount;
310: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
311: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

Line 311: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

307: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
308: END IF;
309: debug_info := 'l_non_prepay_awt_amount -- '||l_non_prepay_awt_amount;
310: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
311: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
312: END IF;
313:
314: IF (l_prepay_awt_amount <> 0 AND l_prepay_awt_base_amount <> 0 AND
315: (l_prepay_awt_amount + l_non_prepay_awt_amount) > 0) THEN

Line 323: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

319: Here the awt amount sign would be opposite to what we see in ap_invoie_distributions_all table. */
320:
321: debug_info := 'l_prepay_awt_amount + l_non_prepay_awt_amount -- '||(l_prepay_awt_amount+l_non_prepay_awt_amount);
322: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
323: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
324: END IF;
325:
326: debug_info := 'OPEN CURSOR C_NONPREPAY_AWT';
327: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 328: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

324: END IF;
325:
326: debug_info := 'OPEN CURSOR C_NONPREPAY_AWT';
327: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
328: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
329: END IF;
330:
331: OPEN C_NONPREPAY_AWT(P_Invoice_Id);
332:

Line 339: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

335: LOOP
336:
337: debug_info := 'Fetch CURSOR C_NONPREPAY_AWT';
338: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
339: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
340: END IF;
341: FETCH C_NONPREPAY_AWT INTO rec_nonprepay_awt;
342:
343: EXIT WHEN C_NONPREPAY_AWT%NOTFOUND;

Line 350: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

346: /l_non_prepay_awt_amount;
347:
348: debug_info := 'l_pro_prepay_awt_amt -- '||l_pro_prepay_awt_amt;
349: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
350: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
351: END IF;
352:
353: l_pro_prepay_awt_base_amt := (rec_nonprepay_awt.base_withholding_amount * l_prepay_awt_base_amount)
354: /l_non_prepay_awt_base_amount;

Line 360: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

356: /* bug 7930936 Above is the proration formula */
357:
358: debug_info := 'l_pro_prepay_awt_base_amt -- '||l_pro_prepay_awt_base_amt;
359: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
360: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
361: END IF;
362:
363: l_sum_prorated_awt_amt := l_sum_prorated_awt_amt + l_pro_prepay_awt_amt;
364:

Line 367: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

363: l_sum_prorated_awt_amt := l_sum_prorated_awt_amt + l_pro_prepay_awt_amt;
364:
365: debug_info := 'l_sum_prorated_awt_amt -- '||l_sum_prorated_awt_amt;
366: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
367: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
368: END IF;
369:
370: l_sum_prorated_awt_base_amt := l_sum_prorated_awt_base_amt + l_pro_prepay_awt_base_amt;
371:

Line 374: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

370: l_sum_prorated_awt_base_amt := l_sum_prorated_awt_base_amt + l_pro_prepay_awt_base_amt;
371:
372: debug_info := 'l_sum_prorated_awt_base_amt -- '||l_sum_prorated_awt_base_amt;
373: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
374: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
375: END IF;
376:
377: update ap_awt_temp_distributions_all
378: set withholding_amount = withholding_amount + l_pro_prepay_awt_amt,

Line 399: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

395: l_amt_diff := l_prepay_awt_amount-l_sum_prorated_awt_amt;
396: l_base_amt_diff := l_prepay_awt_base_amount-l_sum_prorated_awt_base_amt;
397: debug_info := 'l_amt_diff -- '||l_amt_diff;
398: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
399: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
400: END IF;
401: debug_info := 'l_base_amt_diff -- '||l_base_amt_diff;
402: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
403: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

Line 403: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

399: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
400: END IF;
401: debug_info := 'l_base_amt_diff -- '||l_base_amt_diff;
402: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
403: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
404: END IF;
405:
406: update ap_awt_temp_distributions_all
407: set withholding_amount = withholding_amount + l_amt_diff,

Line 416: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

412: END IF;
413:
414: debug_info := 'CLSOE CURSOR C_NONPREPAY_AWT';
415: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
416: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
417: END IF;
418:
419: CLOSE C_NONPREPAY_AWT;
420: END IF; --l_prepay_awt_amount<>0

Line 426: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

422: --bug 7930936
423:
424: debug_info := 'OPEN CURSOR C_Current_Line';
425: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
426: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
427: END IF;
428: OPEN C_Current_line (P_Invoice_Id);
429:
430: debug_info := 'Fetch CURSOR c_current_line';

Line 432: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

428: OPEN C_Current_line (P_Invoice_Id);
429:
430: debug_info := 'Fetch CURSOR c_current_line';
431: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
432: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
433: END IF;
434: FETCH C_Current_line INTO curr_inv_line_number;
435:
436: debug_info := 'CLOSE CURSOR C_Current_Line';

Line 438: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

434: FETCH C_Current_line INTO curr_inv_line_number;
435:
436: debug_info := 'CLOSE CURSOR C_Current_Line';
437: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
438: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
439: END IF;
440: CLOSE C_Current_Line;
441:
442: debug_info := 'OPEN CURSOR c_invoice';

Line 444: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

440: CLOSE C_Current_Line;
441:
442: debug_info := 'OPEN CURSOR c_invoice';
443: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
444: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
445: END IF;
446: OPEN c_invoice (P_Invoice_Id);
447:
448: debug_info := 'Fetch CURSOR c_invoice';

Line 450: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

446: OPEN c_invoice (P_Invoice_Id);
447:
448: debug_info := 'Fetch CURSOR c_invoice';
449: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
450: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
451: END IF;
452: FETCH c_invoice INTO rec_invoice;
453:
454: debug_info := 'Check 1099 Info From Rec_Invoice';

Line 456: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

452: FETCH c_invoice INTO rec_invoice;
453:
454: debug_info := 'Check 1099 Info From Rec_Invoice';
455: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
456: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
457: END IF;
458: IF (l_enable_1099_on_awt_flag = 'Y') THEN
459: IF (rec_invoice.federal_reportable_flag = 'Y') THEN
460:

Line 489: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

485:
486: -- bug 8266021 Opened line cursor
487: debug_info := 'OPEN CURSOR C_line_cursor';
488: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
489: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
490: END IF;
491: OPEN C_line_cursor (P_Invoice_Id);
492:
493: <>

Line 497: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

493: <>
494: LOOP
495: debug_info := 'Fetch CURSOR C_line_cursor';
496: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
497: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
498: END IF;
499: FETCH C_line_cursor INTO rec_temp_lines;
500:
501: EXIT WHEN C_line_cursor%NOTFOUND;

Line 520: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

516: AND gps.closing_Status in ('O', 'F');
517:
518: debug_info := 'group_id'||rec_temp_lines.group_id;
519: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
520: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
521: END IF;
522:
523: debug_info := 'P_Calling_Module -- '||P_Calling_Module;
524: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 525: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

521: END IF;
522:
523: debug_info := 'P_Calling_Module -- '||P_Calling_Module;
524: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
525: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
526: END IF;
527:
528: -- Now we have obtained all the required information AND we can
529: -- create lines

Line 536: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

532: IF (P_Calling_Module = 'QUICKCHECK') then
533:
534: debug_info := 'Inside QUICKCHECK';
535: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
536: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
537: END IF;
538:
539: SELECT exchange_rate
540: INTO l_exchange_rate

Line 547: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

543: ELSIF (P_Calling_Module = 'CONFIRM') then
544:
545: debug_info := 'Inside CONFIRM';
546: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
547: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
548: END IF;
549:
550: SELECT DISTINCT payment_exchange_rate /* Bug 9666111 added distinct */
551: INTO l_exchange_rate

Line 557: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

553: WHERE invoice_id = P_Invoice_Id;
554: ELSE
555: debug_info := 'Inside VALIDATION';
556: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
557: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
558: END IF;
559:
560: l_exchange_rate := rec_invoice.exchange_rate;
561: END IF;

Line 576: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

572: --Bug 8266021 insert in ap_invoice_lines is changed to insert single line per tax code/group id
573:
574: debug_info := 'Insert INTO ap_invoice_lines_all';
575: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
576: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
577: END IF;
578:
579: INSERT INTO AP_INVOICE_LINES_all (
580: invoice_id,

Line 670: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

666: debug_info := ' After Initializing the line amounts and setting '||
667: ' dist running totals to 0 for line '||curr_inv_line_number||
668: ' l_line_amt :'||l_line_amt||' l_line_base_amt :'||l_line_base_amt;
669: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
670: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
671: END IF;
672:
673:
674:

Line 678: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

674:
675: --Bug 8266021 now the distributions related to this line will be inserted
676: debug_info := 'OPEN CURSOR c_temp_dists';
677: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
678: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
679: END IF;
680: OPEN c_temp_dists (P_Invoice_Id ,rec_temp_lines.group_id,rec_temp_lines.tax_id);
681:
682: <>

Line 688: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

684:
685: LOOP
686: debug_info := 'Fetch CURSOR c_temp_dists';
687: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
688: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
689: END IF;
690: FETCH c_temp_dists INTO rec_temp_dists;
691:
692: EXIT WHEN c_temp_dists%NOTFOUND;

Line 707: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

703: --bug 8726501
704:
705: debug_info := 'dist_num'||curr_inv_dist_line_number;
706: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
707: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
708: END IF;
709:
710: debug_info := 'Insert INTO ap_invoice_distributions';
711: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 712: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

708: END IF;
709:
710: debug_info := 'Insert INTO ap_invoice_distributions';
711: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
712: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
713: END IF;
714:
715: INSERT INTO ap_invoice_distributions_all (
716: accounting_date

Line 867: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

863:
864: -- bug8879522
865: debug_info := 'Adding the dist amount and dist base amount to running total';
866: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
867: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
868: END IF;
869:
870: l_sum_dists := l_sum_dists +
871: ap_utilities_pkg.ap_round_currency

Line 884: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

880: ' the totals are, '||
881: ' l_sum_dists : '||l_sum_dists||
882: ' l_sum_dists_base : '||l_sum_dists_base;
883: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
884: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
885: END IF;
886:
887:
888: --Bug 4539462 DBI logging

Line 908: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

904:
905:
906: debug_info := 'withholding_total -- '||to_char(withholding_total);
907: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
908: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
909: END IF;
910:
911:
912: END LOOP For_Each_Temporary_dist;

Line 916: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

912: END LOOP For_Each_Temporary_dist;
913:
914: debug_info := 'CLOSE CURSOR c_temp_dists';
915: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
916: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
917: END IF;
918: CLOSE c_temp_dists;
919:
920: -- bug8879522

Line 923: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

919:
920: -- bug8879522
921: debug_info := 'Calculating the difference between the dist totals and line amount';
922: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
923: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
924: END IF;
925:
926: l_round_amt := l_line_amt - l_sum_dists;
927: l_round_base_amt := l_line_base_amt - l_sum_dists_base;

Line 932: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

928:
929: debug_info := ' l_round_amt : '||to_char(l_round_amt)||
930: ' l_round_base_amt :'||to_char(l_round_base_amt);
931: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
932: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
933: END IF;
934:
935: --bug 9258669
936:

Line 943: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

939:
940: debug_info := ' withholding_total : '||to_char(withholding_total)||
941: ' base_withholding_total :'||to_char(base_withholding_total);
942: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
943: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
944: END IF;
945: --bug 9258669
946:
947: BEGIN

Line 968: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

964: END;
965:
966: debug_info := 'Max dist_id to round off is :'||l_dist_id_to_round;
967: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
968: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
969: END IF;
970:
971: UPDATE ap_invoice_distributions_all aid
972: SET aid.amount = aid.amount + l_round_amt,

Line 982: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

978: END LOOP For_Each_Temporary_line;
979:
980: debug_info := 'CLOSE CURSOR c_temp_lines';
981: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
982: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
983: END IF;
984: CLOSE c_line_cursor;
985:
986: -- delete temp withholding lines for thIS invoice

Line 990: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

986: -- delete temp withholding lines for thIS invoice
987:
988: debug_info := 'Delete From ap_awt_temp_distributions';
989: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
990: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
991: END IF;
992:
993: DELETE ap_awt_temp_distributions_all
994: WHERE invoice_id = p_invoice_id

Line 1008: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1004: WHERE AI.Invoice_ID = P_Invoice_Id;
1005:
1006: debug_info := 'l_exclude_freight_from_disc ' || l_exclude_freight_from_disc;
1007: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1008: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1009: END IF;
1010:
1011: IF l_exclude_freight_from_disc = 'Y' THEN
1012:

Line 1025: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1021: AND AID_FRE.Invoice_Distribution_ID = AID_AWT.Awt_Related_ID;
1022:
1023: debug_info := 'l_sub_withhold_amt ' || l_sub_withhold_amt;
1024: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1025: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1026: END IF;
1027:
1028: END IF;
1029: EXCEPTION

Line 1033: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1029: EXCEPTION
1030: WHEN OTHERS THEN
1031: debug_info := 'error occurred : '|| SQLERRM;
1032: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1033: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1034: END IF;
1035: END;
1036: /* 10183587 - END */
1037:

Line 1066: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1062:
1063: BEGIN
1064: debug_info := 'OPEN CURSOR c_payment_sched';
1065: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1066: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1067: END IF;
1068:
1069: OPEN c_payment_sched(P_Create_dists
1070: ,P_Payment_Num

Line 1090: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1086: num_payments NUMBER;
1087: BEGIN
1088: debug_info := 'OPEN CURSOR c_how_many_payments';
1089: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1090: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1091: END IF;
1092: OPEN c_how_many_payments (P_Invoice_Id);
1093:
1094: debug_info := 'Fetch CURSOR c_how_many_payments';

Line 1096: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1092: OPEN c_how_many_payments (P_Invoice_Id);
1093:
1094: debug_info := 'Fetch CURSOR c_how_many_payments';
1095: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1096: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1097: END IF;
1098: FETCH c_how_many_payments INTO num_payments;
1099:
1100: debug_info := 'CLOSE CURSOR c_how_many_payments';

Line 1102: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1098: FETCH c_how_many_payments INTO num_payments;
1099:
1100: debug_info := 'CLOSE CURSOR c_how_many_payments';
1101: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1102: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1103: END IF;
1104: CLOSE c_how_many_payments;
1105:
1106: <>

Line 1112: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1108: FOR j IN 1..num_payments LOOP
1109:
1110: debug_info := 'Fetch CURSOR c_payment_sched';
1111: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1112: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1113: END IF;
1114: FETCH c_payment_sched INTO rec_payment_sched;
1115:
1116: IF (inv_amount_before_withholding = 0) THEN

Line 1129: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1125: (amount_to_subtract ,P_Currency_Code);
1126:
1127: debug_info := 'amount_to_subtract ' || amount_to_subtract;
1128: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1129: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1130: END IF;
1131:
1132: -- BUG 7000143 Old Code.
1133: -- l_disc_amt_factor := withholding_total /

Line 1152: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1148: END IF;
1149:
1150: debug_info := 'amount_to_subtract ' || amount_to_subtract;
1151: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1152: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1153: END IF;
1154:
1155: debug_info := 'l_disc_amt_divisor ' || l_disc_amt_divisor;
1156: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 1157: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1153: END IF;
1154:
1155: debug_info := 'l_disc_amt_divisor ' || l_disc_amt_divisor;
1156: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1157: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1158: END IF;
1159:
1160: debug_info := 'l_disc_amt_factor ' || l_disc_amt_factor;
1161: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 1162: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1158: END IF;
1159:
1160: debug_info := 'l_disc_amt_factor ' || l_disc_amt_factor;
1161: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1162: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1163: END IF;
1164:
1165: IF (j < num_payments) THEN
1166: subtracting_cumulator := subtracting_cumulator +

Line 1180: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1176: rec_invoice.payment_currency_code);
1177:
1178: debug_info := 'pay_curr_amount_to_subtract ' || pay_curr_amount_to_subtract;
1179: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1180: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1181: END IF;
1182:
1183: -- Update current payment schedule:
1184: debug_info := 'Update current payment schedule';

Line 1186: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1182:
1183: -- Update current payment schedule:
1184: debug_info := 'Update current payment schedule';
1185: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1186: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1187: END IF;
1188:
1189: UPDATE ap_payment_schedules_all
1190: SET amount_remaining = amount_remaining -

Line 1213: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1209: ELSIF (P_Calling_Module <> 'AWT REPORT') THEN
1210: -- otherwise subtract total withholding FROM current payment
1211: debug_info := 'Fetch CURSOR c_payment_sched';
1212: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1213: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1214: END IF;
1215:
1216:
1217: FETCH c_payment_sched INTO rec_payment_sched;

Line 1220: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1216:
1217: FETCH c_payment_sched INTO rec_payment_sched;
1218: debug_info := 'Update current payment schedule';
1219: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1220: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1221: END IF;
1222:
1223: -- The withholding_total should be converted to payment
1224: -- currency before substracting it FROM the amount remaining.

Line 1237: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1233: END IF; -- whether withholding at approval time or not
1234:
1235: debug_info := 'CLOSE CURSOR c_payment_sched';
1236: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1237: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1238: END IF;
1239:
1240: CLOSE c_payment_sched;
1241: END Update_Payment_Schedules;

Line 1246: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1242:
1243: <>
1244: debug_info := 'Update ap_invoices';
1245: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1246: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1247: END IF;
1248:
1249: UPDATE ap_invoices_all
1250: SET awt_flag = DECODE(P_Create_dists, 'APPROVAL', 'Y','BOTH','Y', NULL), --Bug6660355

Line 1259: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1255: WHERE CURRENT OF c_invoice;
1256:
1257: debug_info := 'CLOSE CURSOR c_invoice';
1258: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1259: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1260: END IF;
1261:
1262: CLOSE c_invoice;
1263:

Line 1580: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1576: -- Get base invoice description to insert in every new generated invoice
1577:
1578: debug_info := 'OPEN CURSOR c_base_invoice_description';
1579: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1580: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1581: END IF;
1582:
1583: OPEN c_base_invoice_description (P_Invoice_Id);
1584:

Line 1587: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1583: OPEN c_base_invoice_description (P_Invoice_Id);
1584:
1585: debug_info := 'Fetch CURSOR c_base_invoice_description';
1586: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1587: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1588: END IF;
1589: --bug 8266021 added 3 more variables
1590: FETCH c_base_invoice_description
1591: INTO new_invoice_base_descr,

Line 1599: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1595: l_org_id;
1596:
1597: debug_info := 'CLOSE CURSOR c_base_invoice_description';
1598: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1599: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1600: END IF;
1601:
1602: CLOSE c_base_invoice_description;
1603:

Line 1622: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1618: <>
1619: LOOP
1620: debug_info := 'Fetch CURSOR for invoices (c_awt_invs_rev or c_awt_invs )';
1621: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1622: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1623: END IF;
1624:
1625: debug_info := 'P_Calling_Module '|| P_Calling_Module;
1626: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 1627: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1623: END IF;
1624:
1625: debug_info := 'P_Calling_Module '|| P_Calling_Module;
1626: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1627: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1628: END IF;
1629:
1630:
1631:

Line 1638: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1634: EXIT WHEN c_awt_invs_rev%NOTFOUND;
1635:
1636: debug_info := 'c_awt_invs_rev rows chosen'||c_awt_invs_rev%ROWCOUNT;
1637: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1638: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1639: END IF;
1640: ELSE
1641: FETCH c_awt_invs INTO rec_awt_invs;
1642: EXIT WHEN c_awt_invs%NOTFOUND;

Line 1646: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1642: EXIT WHEN c_awt_invs%NOTFOUND;
1643:
1644: debug_info := 'c_awt_invs rows chosen'||c_awt_invs%ROWCOUNT;
1645: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1646: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1647: END IF;
1648: END IF;
1649:
1650: -- Start: Create invoice payable to Tax Authority for thIS negative line:

Line 1681: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1677: AND p.org_id = t.org_id;
1678: BEGIN
1679: debug_info := 'OPEN CURSOR c_tax_authority';
1680: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1681: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1682: END IF;
1683:
1684: --bug 8266021 changed cursor parameter
1685: OPEN c_tax_authority(rec_awt_invs.tax_code_id);

Line 1689: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1685: OPEN c_tax_authority(rec_awt_invs.tax_code_id);
1686:
1687: debug_info := 'Fetch CURSOR c_tax_authority';
1688: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1689: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1690: END IF;
1691:
1692: FETCH c_tax_authority
1693: INTO tax_authority_id,

Line 1712: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1708: END IF;
1709:
1710: debug_info := 'CLOSE CURSOR c_tax_authority';
1711: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1712: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1713: END IF;
1714:
1715: CLOSE c_tax_authority;
1716: END Tax_Authority_Info;

Line 1796: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1792: debug_info := 'Get Exchange Rate'||'pc: '||ta_payment_currency_code||
1793: ' bc: '||base_currency||' date: '||
1794: to_char(rec_awt_lines.accounting_date, 'DD-MON-YYYY');
1795: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1796: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1797: END IF;
1798:
1799: --bug 8266021 changed the parameters from rec_awt_lines to rec_awt_invs
1800: IF ( gl_currency_api.is_fixed_rate(ta_payment_currency_code,

Line 1844: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

1840: --bug 9304565 commented the above condition as part of this bug.
1841:
1842: debug_info := 'Insert Into ap_invoices';
1843: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1844: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
1845: END IF;
1846:
1847: INSERT INTO ap_invoices_all
1848: (invoice_id

Line 2004: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2000: -- Insert Invoice Lines for each invoice inserted (bug 8266021)
2001:
2002: debug_info := 'Insert INTO ap_invoice_lines_all';
2003: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2004: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2005: END IF;
2006:
2007: INSERT INTO AP_INVOICE_LINES_all (
2008: invoice_id,

Line 2087: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2083:
2084:
2085: debug_info := 'invoice_id = '||P_Invoice_Id;
2086: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2087: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2088: END IF;
2089:
2090:
2091: debug_info := 'invoiceline_number = '||rec_awt_invs.invoice_line_number;

Line 2093: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2089:
2090:
2091: debug_info := 'invoiceline_number = '||rec_awt_invs.invoice_line_number;
2092: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2093: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2094: END IF;
2095:
2096:
2097: IF (P_Calling_Module in ('CANCEL INVOICE','REVERSE DIST','VOID PAYMENT')) THEN

Line 2102: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2098: OPEN c_awt_lines_rev (P_Invoice_Id,rec_awt_invs.invoice_line_number);
2099:
2100: debug_info := 'c_awt_lines_rev chosen';
2101: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2102: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2103: END IF;
2104:
2105: debug_info := 'rows chosen'||c_awt_lines_rev%ROWCOUNT;
2106: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 2107: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2103: END IF;
2104:
2105: debug_info := 'rows chosen'||c_awt_lines_rev%ROWCOUNT;
2106: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2107: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2108: END IF;
2109: ELSE
2110: OPEN c_awt_lines (P_Invoice_Id,rec_awt_invs.invoice_line_number);
2111: debug_info := 'c_awt_lines chosen';

Line 2113: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2109: ELSE
2110: OPEN c_awt_lines (P_Invoice_Id,rec_awt_invs.invoice_line_number);
2111: debug_info := 'c_awt_lines chosen';
2112: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2113: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2114: END IF;
2115:
2116: debug_info := 'rows chosen'||c_awt_lines%ROWCOUNT;
2117: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 2118: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2114: END IF;
2115:
2116: debug_info := 'rows chosen'||c_awt_lines%ROWCOUNT;
2117: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2118: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2119: END IF;
2120: END IF;
2121: l_dist_number := 0;
2122:

Line 2128: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2124: --Here also we will decide the cursor based on the calling module
2125: LOOP
2126: debug_info := 'Fetch CURSOR c_awt_lines';
2127: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2128: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2129: END IF;
2130:
2131:
2132:

Line 2148: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2144: l_dist_number := l_dist_number + 1 ;
2145:
2146: debug_info := 'Insert INTO ap_invoice_distributions';
2147: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2148: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2149: END IF;
2150:
2151: --bug 9913164 begins
2152: IF nvl(l_automatic_offsets,'N') = 'Y' THEN

Line 2169: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2165: P_calling_sequence);
2166:
2167: debug_info := 'Awt invoice dist ccid -- '||rec_awt_lines.dist_code_combination_id;
2168: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2169: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2170: END IF;
2171: debug_info := 'Std Invoice Item dist ccid -- '||l_dist_code_ccid;
2172: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2173: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

Line 2173: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2169: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2170: END IF;
2171: debug_info := 'Std Invoice Item dist ccid -- '||l_dist_code_ccid;
2172: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2173: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2174: END IF;
2175: debug_info := 'l_overlayed_awt_ccid -- '||l_overlayed_awt_ccid;
2176: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

Line 2177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2173: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2174: END IF;
2175: debug_info := 'l_overlayed_awt_ccid -- '||l_overlayed_awt_ccid;
2176: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2178: END IF;
2179: debug_info := 'l_reason -- '||l_reason;
2180: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2181: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

Line 2181: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2178: END IF;
2179: debug_info := 'l_reason -- '||l_reason;
2180: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2181: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2182: END IF;
2183: END IF;
2184: --bug 9913164 end
2185:

Line 2338: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2334:
2335: --bug 8266021
2336: debug_info := 'Update ap_invoice_distributions';
2337: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2338: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2339: END IF;
2340:
2341: IF (P_Calling_Module in ('CANCEL INVOICE','REVERSE DIST','VOID PAYMENT')) THEN
2342: UPDATE ap_invoice_distributions_all

Line 2406: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2402:
2403: /* commented in bug 8266021 ,this update has been moved up
2404: debug_info := 'Update ap_invoice_distributions';
2405: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2406: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2407: END IF;
2408:
2409: UPDATE ap_invoice_distributions_all
2410: SET awt_invoice_id = new_invoice_id

Line 2419: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2415:
2416: --bug 8266021
2417: debug_info := 'CLOSE CURSOR c_awt_invs (or c_awt_invs_rev) ';
2418: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2419: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2420: END IF;
2421: IF (P_Calling_Module in ('CANCEL INVOICE','REVERSE DIST','VOID PAYMENT')) THEN
2422: CLOSE c_awt_invs_rev;
2423: ELSE

Line 2745: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2741:
2742: -- Read setup information
2743: debug_info := 'Read Setup information';
2744: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2745: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2746: END IF;
2747:
2748: SELECT create_awt_dists_type,
2749: create_awt_invoices_type,

Line 2783: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2779: savepoint BEFORE_TEMPORARY_CALCULATIONS;
2780:
2781: debug_info := 'AP_CALC_Withholding_PKG.AP_Calculate_AWT_Amounts';
2782: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2783: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2784: END IF;
2785:
2786: -- Create Temporary AWT distributions:
2787: AP_CALC_Withholding_PKG.AP_Calculate_AWT_Amounts

Line 2828: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2824: THEN
2825:
2826: debug_info := 'Create_AWT_Distributions';
2827: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2828: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2829: END IF;
2830:
2831: -- Create AWT distributions:
2832: Create_AWT_distributions

Line 2868: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2864: END IF;
2865:
2866: debug_info := 'Create_AWT_Invoices';
2867: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2868: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2869: END IF;
2870:
2871: -- Bug 8254604 Modified method call to populate all the input parameters.
2872: Create_AWT_Invoices(

Line 2937: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2933: current_calling_sequence := 'AP_WITHHOLDING_PKG.AP_Withhold_AutoSelect';
2934:
2935: debug_info := 'AP_WITHHOLDING_PKG.AP_Withhold_AutoSelect';
2936: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2937: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2938: END IF;
2939:
2940: -- Undo Withholding for all SELECTed invoices in thIS checkrun
2941:

Line 2968: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2964:
2965: BEGIN
2966: debug_info := 'OPEN CURSOR for all SELECTed invoices';
2967: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2968: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2969: END IF;
2970:
2971: OPEN c_all_sel_invs (P_Checkrun_Name, p_checkrun_id);
2972:

Line 2976: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

2972:
2973: LOOP
2974: debug_info := 'Fetch CURSOR for all SELECTed invoices';
2975: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2976: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
2977: END IF;
2978:
2979: FETCH c_all_sel_invs INTO rec_all_sel_invs;
2980: EXIT WHEN c_all_sel_invs%NOTFOUND;

Line 3004: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3000: END LOOP;
3001:
3002: debug_info := 'CLOSE CURSOR for all SELECTed invoices';
3003: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3004: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3005: END IF;
3006:
3007: CLOSE c_all_sel_invs;
3008:

Line 3101: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3097: BEGIN
3098:
3099: debug_info := 'Select check_date for thIS checkrun';
3100: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3101: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3102: END IF;
3103:
3104: SELECT AISC.check_date
3105: INTO l_awt_date

Line 3113: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3109:
3110:
3111: debug_info := 'OPEN CURSOR for all ok to pay invoices';
3112: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3113: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3114: END IF;
3115:
3116: OPEN c_ok_sel_invs (P_Checkrun_Name, p_checkrun_id);
3117:

Line 3121: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3117:
3118: LOOP
3119: debug_info := 'Fetch CURSOR for all ok to pay invoices';
3120: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3121: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3122: END IF;
3123:
3124: FETCH c_ok_sel_invs INTO rec_ok_sel_invs;
3125: EXIT WHEN c_ok_sel_invs%NOTFOUND;

Line 3279: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3275:
3276:
3277: debug_info := 'AP_DO_WITHHOLDING';
3278: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3279: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3280: END IF;
3281:
3282: Ap_Do_Withholding
3283: (P_Invoice_Id => rec_ok_sel_invs.invoice_id

Line 3302: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3298: IF (l_awt_success = 'SUCCESS') THEN
3299:
3300: debug_info := 'Select sum of withholding amount for thIS invoice';
3301: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3302: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3303: END IF;
3304:
3305: SELECT NVL(SUM(AATD.withholding_amount), 0)
3306: INTO l_withholding_amount

Line 3321: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3317: rec_ok_sel_invs.payment_currency_code);
3318:
3319: debug_info := 'Update proposed payment in ap_selected_invoices';
3320: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3321: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3322: END IF;
3323:
3324: UPDATE ap_selected_invoices_all ASI
3325: SET /*ASI.proposed_payment_amount =

Line 3345: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3341: WHERE current of c_ok_sel_invs;
3342: ELSE
3343: debug_info := 'Update AWT error in ap_selected_invoices';
3344: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3345: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3346: END IF;
3347:
3348: UPDATE ap_SELECTed_invoices_all ASI
3349: SET ASI.ok_to_pay_flag = 'N',

Line 3358: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3354: END LOOP;
3355:
3356: debug_info := 'CLOSE CURSOR for all ok to pay invoices';
3357: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3358: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3359: END IF;
3360:
3361: CLOSE c_ok_sel_invs;
3362: END;

Line 3452: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3448: IF (NOT Ap_ExtENDed_Withholding_Pkg.Ap_ExtENDed_Withholding_Active) THEN
3449:
3450: debug_info := 'OPEN CURSOR for all OK to pay invoices';
3451: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3452: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3453: END IF;
3454:
3455: OPEN c_ok_sel_invs ;
3456:

Line 3460: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3456:
3457: LOOP
3458: debug_info := 'Fetch CURSOR for all OK to pay invoices';
3459: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3460: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3461: END IF;
3462:
3463: FETCH c_ok_sel_invs INTO rec_ok_sel_invs;
3464: EXIT WHEN c_ok_sel_invs%NOTFOUND;

Line 3484: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3480: END LOOP;
3481:
3482: debug_info := 'CLOSE CURSOR for all OK to pay invoices';
3483: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3484: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3485: END IF;
3486:
3487: CLOSE c_ok_sel_invs;
3488:

Line 3584: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3580: BEGIN
3581: current_calling_sequence := 'AP_WITHHOLDING_PKG.AP_Withhold_Cancel';
3582: debug_info := 'Open Cursor for all selected invoices';
3583: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3584: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3585: END IF;
3586:
3587: if p_completed_pmts_group_id is null then
3588: OPEN c_all_sel_invs (P_Checkrun_Name, p_checkrun_id);

Line 3597: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3593:
3594: LOOP
3595: debug_info := 'Fetch CURSOR for all SELECTed invoices -- invoice_id = '||to_char(rec_all_sel_invs.invoice_id);
3596: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3597: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3598: END IF;
3599:
3600:
3601: if p_completed_pmts_group_id is null then

Line 3628: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3624: END LOOP;
3625:
3626: debug_info := 'CLOSE CURSOR for all SELECTed invoices';
3627: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3628: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3629: END IF;
3630:
3631: if p_completed_pmts_group_id is null then
3632: CLOSE c_all_sel_invs;

Line 3820: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3816: current_calling_sequence := 'AP_WITHHOLDING_PKG.Period_Limit_ExISt_For_Tax<-' ||
3817: P_Calling_Sequence;
3818: debug_info := 'OPEN CURSOR c_get_limit';
3819: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3820: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3821: END IF;
3822:
3823: OPEN c_get_limit;
3824:

Line 3827: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3823: OPEN c_get_limit;
3824:
3825: debug_info := 'Fetch CURSOR c_get_limit';
3826: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3827: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3828: END IF;
3829:
3830: FETCH c_get_limit INTO dummy;
3831:

Line 3835: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3831:
3832: ret := c_get_limit%FOUND;
3833: debug_info := 'CLOSE CURSOR c_get_limit';
3834: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3835: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3836: END IF;
3837:
3838: CLOSE c_get_limit;
3839:

Line 3859: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3855:
3856: BEGIN
3857: debug_info := 'OPEN CURSOR for AWT temp distributions';
3858: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3859: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3860: END IF;
3861:
3862:
3863: --Bug12594549

Line 3869: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3865: LOOP
3866: -- Read one temporary distribution line:
3867: debug_info := 'Fetch CURSOR for AWT gross amount';
3868: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3869: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3870: END IF;
3871:
3872: FETCH c_temp_gross INTO rec_temp_gross;
3873: EXIT WHEN c_temp_gross%NOTFOUND;

Line 3895: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3891: awt_period ap_other_periods.period_name%TYPE;
3892: BEGIN
3893: debug_info := 'OPEN CURSOR c_get_awt_period';
3894: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3895: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3896: END IF;
3897:
3898: OPEN c_get_awt_period;
3899:

Line 3902: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3898: OPEN c_get_awt_period;
3899:
3900: debug_info := 'Fetch CURSOR c_get_awt_period';
3901: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3902: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3903: END IF;
3904:
3905: FETCH c_get_awt_period INTO awt_period;
3906:

Line 3909: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3905: FETCH c_get_awt_period INTO awt_period;
3906:
3907: debug_info := 'CLOSE CURSOR c_get_awt_period';
3908: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3909: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3910: END IF;
3911:
3912: CLOSE c_get_awt_period;
3913:

Line 3936: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3932: END LOOP ;
3933:
3934: debug_info := 'CLOSE CURSOR c_temp_gross';
3935: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3936: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3937: END IF;
3938:
3939: CLOSE c_temp_gross;
3940:

Line 3950: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3946: LOOP
3947: -- Read one temporary distribution line:
3948: debug_info := 'Fetch CURSOR for AWT temp distributions';
3949: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3950: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3951: END IF;
3952:
3953: FETCH c_temp INTO rec_temp;
3954: EXIT WHEN c_temp%NOTFOUND;

Line 3977: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3973: awt_period ap_other_periods.period_name%TYPE;
3974: BEGIN
3975: debug_info := 'OPEN CURSOR c_get_awt_period';
3976: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3977: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3978: END IF;
3979:
3980: OPEN c_get_awt_period;
3981:

Line 3984: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3980: OPEN c_get_awt_period;
3981:
3982: debug_info := 'Fetch CURSOR c_get_awt_period';
3983: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3984: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3985: END IF;
3986:
3987: FETCH c_get_awt_period INTO awt_period;
3988:

Line 3991: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3987: FETCH c_get_awt_period INTO awt_period;
3988:
3989: debug_info := 'CLOSE CURSOR c_get_awt_period';
3990: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3991: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3992: END IF;
3993:
3994: CLOSE c_get_awt_period;
3995:

Line 3998: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

3994: CLOSE c_get_awt_period;
3995:
3996: debug_info := 'Update ap_awt_buckets';
3997: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3998: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
3999: END IF;
4000:
4001: --Bug12594549 commented gross amount update
4002: UPDATE ap_awt_buckets_all

Line 4024: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4020: END LOOP For_Each_Temporary_dist;
4021:
4022: debug_info := 'CLOSE CURSOR c_temp';
4023: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4024: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4025: END IF;
4026:
4027: CLOSE c_temp;
4028:

Line 4034: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4030: outside the loop */
4031: IF (P_Calling_Module = 'AUTOSELECT') THEN
4032: debug_info := 'Update ap selected invoices';
4033: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4034: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4035: END IF;
4036:
4037: /* Note the withholding_amount in ap_selected_invoices_all is already in the
4038: payment currency. See ap_withhold_autoslect where it is updated.

Line 4077: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4073:
4074: -- Drop that temporary line:
4075: debug_info := 'Delete the AWT temp distribution';
4076: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4077: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4078: END IF;
4079:
4080: DELETE ap_awt_temp_distributions_all
4081: WHERE invoice_id = p_invoice_id

Line 4637: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4633: SAVEPOINT BEFORE_UNDO_WITHHOLDING;
4634: /* Bug 4759178, get org_id */
4635: debug_info := 'Select Org Id';
4636: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4637: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4638: END IF;
4639:
4640: IF (P_Calling_Module in ('CANCEL INVOICE','REVERSE DIST')) THEN
4641: SELECT AI.org_id

Line 4656: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4652: END IF;
4653:
4654: debug_info := 'Select GL Period Name';
4655: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4656: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4657: END IF;
4658:
4659: BEGIN
4660: SELECT GPS.period_name,

Line 4689: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4685: DBG_Loc VARCHAR2(30) := 'Process_Withholding_gross';
4686: BEGIN
4687: debug_info := 'OPEN CURSOR c_awt_gross_dists';
4688: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4689: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4690: END IF;
4691:
4692: IF (P_Calling_Module in ('CANCEL INVOICE','REVERSE DIST')) THEN
4693: OPEN c_awt_gross_dists_inv (P_Parent_Id);

Line 4704: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4700: <>
4701: LOOP
4702: debug_info := 'Fetch CURSOR c_get_awt_period';
4703: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4704: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4705: END IF;
4706:
4707: IF (P_Calling_Module in ('CANCEL INVOICE','REVERSE DIST')) THEN
4708: FETCH c_awt_gross_dists_inv INTO rec_awt_gross_dists;

Line 4732: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4728: AND p.end_date >= TRUNC(distDate);
4729: BEGIN
4730: debug_info := 'OPEN CURSOR c_get_period';
4731: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4732: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4733: END IF;
4734:
4735: OPEN c_get_period (rec_awt_gross_dists.accounting_date
4736: ,rec_awt_gross_dists.withholding_tax_code_id);

Line 4739: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4735: OPEN c_get_period (rec_awt_gross_dists.accounting_date
4736: ,rec_awt_gross_dists.withholding_tax_code_id);
4737: debug_info := 'Fetch CURSOR c_get_period';
4738: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4739: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4740: END IF;
4741:
4742: FETCH c_get_period INTO awt_period;
4743:

Line 4753: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4749: END IF;
4750:
4751: debug_info := 'CLOSE CURSOR c_get_period';
4752: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4753: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4754: END IF;
4755:
4756: CLOSE c_get_period;
4757:

Line 4781: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4777: OPEN c_invoice (rec_awt_gross_dists.invoice_id);
4778:
4779: debug_info := 'Fetch CURSOR c_invoice';
4780: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4781: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4782: END IF;
4783:
4784: FETCH c_invoice INTO rec_invoice;
4785:

Line 4812: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4808: END IF;
4809:
4810: debug_info := ' Fetching the functional currency AND exchange rate ' ;
4811: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4812: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4813: END IF;
4814:
4815: SELECT base_currency_code
4816: INTO l_func_currency_code

Line 4834: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4830: END IF;
4831:
4832: debug_info := 'OPEN CURSOR c_awt_bucket';
4833: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4834: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4835: END IF;
4836:
4837: OPEN c_awt_bucket(rec_invoice.vendor_id
4838: ,awt_period

Line 4843: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4839: ,rec_awt_gross_dists.vat_code
4840: );
4841: debug_info := 'Fetch CURSOR c_awt_bucket';
4842: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4843: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4844: END IF;
4845:
4846: FETCH c_awt_bucket INTO gross_amt_to_date, withheld_amt_to_date;
4847:

Line 4851: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4847:
4848: IF (c_awt_bucket%FOUND) THEN
4849: debug_info := 'Update the AWT bucket';
4850: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4851: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4852: END IF;
4853:
4854: UPDATE ap_awt_buckets
4855: SET gross_amount_to_date = (gross_amt_to_date -

Line 4871: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4867: END IF;
4868:
4869: debug_info := 'CLOSE CURSOR c_awt_bucket';
4870: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4871: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4872: END IF;
4873:
4874: CLOSE c_awt_bucket;
4875:

Line 4882: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4878: END Update_Bucket;
4879:
4880: debug_info := 'CLOSE CURSOR c_invoice';
4881: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4882: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4883: END IF;
4884:
4885:
4886: CLOSE c_invoice;

Line 4901: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4897: DBG_Loc VARCHAR2(30) := 'Process_Withholding_dists';
4898: BEGIN
4899: debug_info := 'OPEN CURSOR c_awt_dists';
4900: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4901: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4902: END IF;
4903:
4904: IF (P_Calling_Module in ('CANCEL INVOICE','REVERSE DIST')) THEN
4905: OPEN c_awt_dists_inv (P_Parent_Id);

Line 4914: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4910: <>
4911: LOOP
4912: debug_info := 'Fetch CURSOR c_get_awt_period';
4913: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4914: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4915: END IF;
4916:
4917: IF (P_Calling_Module in ('CANCEL INVOICE','REVERSE DIST')) THEN
4918: FETCH c_awt_dists_inv INTO rec_awt_dists;

Line 4942: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4938: AND p.end_date >= TRUNC(distDate);
4939: BEGIN
4940: debug_info := 'OPEN CURSOR c_get_period';
4941: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4942: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4943: END IF;
4944:
4945: OPEN c_get_period (rec_awt_dists.accounting_date
4946: ,rec_awt_dists.withholding_tax_code_id);

Line 4949: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4945: OPEN c_get_period (rec_awt_dists.accounting_date
4946: ,rec_awt_dists.withholding_tax_code_id);
4947: debug_info := 'Fetch CURSOR c_get_period';
4948: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4949: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4950: END IF;
4951:
4952: FETCH c_get_period INTO awt_period;
4953:

Line 4963: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

4959: END IF;
4960:
4961: debug_info := 'CLOSE CURSOR c_get_period';
4962: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4963: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
4964: END IF;
4965:
4966: CLOSE c_get_period;
4967:

Line 5006: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5002:
5003: BEGIN
5004: debug_info := 'OPEN CURSOR c_curr_dist';
5005: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5006: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5007: END IF;
5008:
5009: OPEN c_curr_dist (rec_awt_dists.invoice_id,
5010: rec_awt_dists.invoice_line_number);

Line 5014: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5010: rec_awt_dists.invoice_line_number);
5011:
5012: debug_info := 'Fetch CURSOR c_curr_dist';
5013: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5014: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5015: END IF;
5016:
5017: FETCH c_curr_dist INTO curr_line_number;
5018:

Line 5021: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5017: FETCH c_curr_dist INTO curr_line_number;
5018:
5019: debug_info := 'CLOSE CURSOR c_curr_dist';
5020: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5021: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5022: END IF;
5023:
5024: CLOSE c_curr_dist;
5025:

Line 5028: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5024: CLOSE c_curr_dist;
5025:
5026: debug_info := 'OPEN CURSOR c_invoice';
5027: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5028: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5029: END IF;
5030:
5031: OPEN c_invoice (rec_awt_dists.invoice_id);
5032:

Line 5035: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5031: OPEN c_invoice (rec_awt_dists.invoice_id);
5032:
5033: debug_info := 'Fetch CURSOR c_invoice';
5034: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5035: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5036: END IF;
5037:
5038: FETCH c_invoice INTO rec_invoice;
5039:

Line 5042: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5038: FETCH c_invoice INTO rec_invoice;
5039:
5040: debug_info := 'Discard the Line';
5041: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5042: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5043: END IF;
5044:
5045: /* Bug 5202248. Added the Nvl */
5046: IF nvl(l_old_inv_line_num, 0) <> rec_awt_dists.invoice_line_number THEN

Line 5077: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5073: -- awt lines will be N else it will be Y.
5074:
5075: debug_info := 'Insert reverse AWT line INTO ap_invoice_distributions';
5076: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5077: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5078: END IF;
5079:
5080: INSERT INTO ap_invoice_distributions
5081: (

Line 5291: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5287: IF (P_Calling_Module = 'VOID PAYMENT') THEN
5288:
5289: debug_info := 'OPEN CURSOR c_payment_num';
5290: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5291: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5292: END IF;
5293:
5294: OPEN c_payment_num(P_Parent_Id);
5295:

Line 5298: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5294: OPEN c_payment_num(P_Parent_Id);
5295:
5296: debug_info := 'Fetch CURSOR c_payment_num';
5297: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5298: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5299: END IF;
5300:
5301: FETCH c_payment_num INTO paym_num;
5302:

Line 5305: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5301: FETCH c_payment_num INTO paym_num;
5302:
5303: debug_info := 'CLOSE CURSOR c_payment_num';
5304: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5305: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5306: END IF;
5307:
5308: CLOSE c_payment_num;
5309:

Line 5314: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5310: END IF;
5311:
5312: debug_info := 'OPEN CURSOR c_payment_sched';
5313: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5314: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5315: END IF;
5316:
5317: OPEN c_payment_sched(paym_num, rec_awt_dists.invoice_id);
5318:

Line 5321: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5317: OPEN c_payment_sched(paym_num, rec_awt_dists.invoice_id);
5318:
5319: debug_info := 'Fetch CURSOR c_payment_sched';
5320: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5321: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5322: END IF;
5323:
5324: FETCH c_payment_sched INTO rec_payment_sched;
5325:

Line 5329: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5325:
5326: IF (c_payment_sched%FOUND) THEN
5327: debug_info := 'Update the payment schedule';
5328: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5329: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5330: END IF;
5331:
5332: UPDATE ap_payment_schedules
5333: SET amount_remaining = (amount_remaining +

Line 5354: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5350: END IF;
5351:
5352: debug_info := 'CLOSE CURSOR c_payment_sched';
5353: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5354: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5355: END IF;
5356:
5357: CLOSE c_payment_sched;
5358:

Line 5390: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5386: END IF;
5387:
5388: debug_info := ' Fetching the functional currency AND exchange rate ' ;
5389: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5390: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5391: END IF;
5392:
5393: SELECT base_currency_code
5394: INTO l_func_currency_code

Line 5411: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5407: END IF;
5408:
5409: debug_info := 'OPEN CURSOR c_awt_bucket';
5410: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5411: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5412: END IF;
5413:
5414: OPEN c_awt_bucket(rec_invoice.vendor_id
5415: ,awt_period

Line 5420: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5416: ,rec_awt_dists.vat_code
5417: );
5418: debug_info := 'Fetch CURSOR c_awt_bucket';
5419: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5420: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5421: END IF;
5422:
5423: FETCH c_awt_bucket INTO gross_amt_to_date, withheld_amt_to_date;
5424:

Line 5428: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5424:
5425: IF (c_awt_bucket%FOUND) THEN
5426: debug_info := 'Update the AWT bucket';
5427: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5428: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5429: END IF;
5430:
5431: --Bug12594549
5432: UPDATE ap_awt_buckets

Line 5450: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5446: END IF;
5447:
5448: debug_info := 'CLOSE CURSOR c_awt_bucket';
5449: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5450: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5451: END IF;
5452:
5453: CLOSE c_awt_bucket;
5454:

Line 5461: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5457: END Update_Bucket;
5458:
5459: debug_info := 'CLOSE CURSOR c_invoice';
5460: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5461: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5462: END IF;
5463:
5464: CLOSE c_invoice;
5465:

Line 5477: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5473:
5474: BEGIN
5475: debug_info := 'OPEN CURSOR c_read_setup';
5476: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5477: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5478: END IF;
5479:
5480: OPEN c_read_setup(l_org_id); --bug14404025
5481:

Line 5484: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5480: OPEN c_read_setup(l_org_id); --bug14404025
5481:
5482: debug_info := 'Fetch CURSOR c_read_setup';
5483: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5484: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5485: END IF;
5486:
5487: FETCH c_read_setup INTO l_create_invoices,l_create_dists; --bug7685907
5488:

Line 5491: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5487: FETCH c_read_setup INTO l_create_invoices,l_create_dists; --bug7685907
5488:
5489: debug_info := 'CLOSE CURSOR c_read_setup';
5490: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5491: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5492: END IF;
5493:
5494: CLOSE c_read_setup;
5495: --Bug6660355

Line 5550: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5546: END LOOP For_Each_Withholding_Line;
5547:
5548: debug_info := 'rec_awt_dists.awt_invoice_id '|| rec_awt_dists.awt_invoice_id;
5549: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5550: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5551: END IF;
5552:
5553: debug_info := 'rec_awt_dists.invoice_id '|| rec_awt_dists.invoice_id;
5554: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 5555: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5551: END IF;
5552:
5553: debug_info := 'rec_awt_dists.invoice_id '|| rec_awt_dists.invoice_id;
5554: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5555: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5556: END IF;
5557:
5558: debug_info := 'P_Parent_Id '|| P_Parent_Id;
5559: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 5560: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5556: END IF;
5557:
5558: debug_info := 'P_Parent_Id '|| P_Parent_Id;
5559: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5560: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5561: END IF;
5562:
5563:
5564: debug_info := 'l_create_invoices '||l_create_invoices;

Line 5566: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5562:
5563:
5564: debug_info := 'l_create_invoices '||l_create_invoices;
5565: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5566: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5567: END IF;
5568:
5569: /*Bug 10353952 begins*/
5570: SELECT count(*)

Line 5620: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5616: END IF;
5617:
5618: debug_info := 'CLOSE CURSOR c_awt_dists';
5619: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5620: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5621: END IF;
5622:
5623: IF (P_Calling_Module IN ('CANCEL INVOICE','REVERSE DIST')) THEN
5624: CLOSE c_awt_dists_inv;

Line 5773: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5769: BEGIN
5770:
5771: debug_info := 'DELETE orphan AWT temp distributions';
5772: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5773: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5774: END IF;
5775:
5776:
5777: OPEN c_orphan_awt_buckets_w(P_Invoice_Id, P_Payment_Num);

Line 5780: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5776:
5777: OPEN c_orphan_awt_buckets_w(P_Invoice_Id, P_Payment_Num);
5778: debug_info := 'OPEN CURSOR c_orphan_awt_buckets_w';
5779: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5780: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5781: END IF;
5782:
5783: LOOP
5784:

Line 5803: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5799:
5800: BEGIN
5801: debug_info := 'OPEN CURSOR c_get_awt_period';
5802: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5803: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5804: END IF;
5805:
5806: OPEN c_get_awt_period;
5807:

Line 5810: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5806: OPEN c_get_awt_period;
5807:
5808: debug_info := 'Fetch CURSOR c_get_awt_period';
5809: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5810: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5811: END IF;
5812:
5813: FETCH c_get_awt_period INTO awt_period;
5814:

Line 5817: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5813: FETCH c_get_awt_period INTO awt_period;
5814:
5815: debug_info := 'CLOSE CURSOR c_get_awt_period';
5816: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5817: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5818: END IF;
5819:
5820: CLOSE c_get_awt_period;
5821:

Line 5847: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5843:
5844: OPEN c_orphan_awt_buckets_g(P_Invoice_Id, P_Payment_Num);
5845: debug_info := 'OPEN CURSOR c_orphan_awt_buckets_g';
5846: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5847: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5848: END IF;
5849:
5850: LOOP
5851:

Line 5870: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5866:
5867: BEGIN
5868: debug_info := 'OPEN CURSOR c_get_awt_period';
5869: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5870: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5871: END IF;
5872:
5873: OPEN c_get_awt_period;
5874:

Line 5877: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5873: OPEN c_get_awt_period;
5874:
5875: debug_info := 'Fetch CURSOR c_get_awt_period';
5876: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5877: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5878: END IF;
5879:
5880: FETCH c_get_awt_period INTO awt_period;
5881:

Line 5884: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5880: FETCH c_get_awt_period INTO awt_period;
5881:
5882: debug_info := 'CLOSE CURSOR c_get_awt_period';
5883: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5884: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5885: END IF;
5886:
5887: CLOSE c_get_awt_period;
5888:

Line 5914: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);

5910: EXCEPTION
5911: WHEN OTHERS THEN
5912: debug_info := 'error occurred : '|| SQLERRM;
5913: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5914: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||DBG_Loc,debug_info);
5915: END IF;
5916: END;
5917:
5918: DELETE