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_APPROVAL_MATCHED_PKG dependencies on AP_DEBUG_PKG

Line 377: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

373: g_debug_mode := 'Y';
374: END IF;
375:
376: IF (g_debug_mode = 'Y') THEN
377: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
378: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
379: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice line number: '||
380: TO_CHAR(p_inv_line_number));
381: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||

Line 378: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));

374: END IF;
375:
376: IF (g_debug_mode = 'Y') THEN
377: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
378: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
379: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice line number: '||
380: TO_CHAR(p_inv_line_number));
381: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
382: p_base_currency_code);

Line 379: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice line number: '||

375:
376: IF (g_debug_mode = 'Y') THEN
377: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
378: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
379: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice line number: '||
380: TO_CHAR(p_inv_line_number));
381: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
382: p_base_currency_code);
383: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||

Line 381: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||

377: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
378: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
379: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice line number: '||
380: TO_CHAR(p_inv_line_number));
381: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
382: p_base_currency_code);
383: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||
384: p_inv_currency_code);
385: AP_Debug_Pkg.Print(g_debug_mode, 'sys gain ccid: '||

Line 383: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||

379: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice line number: '||
380: TO_CHAR(p_inv_line_number));
381: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
382: p_base_currency_code);
383: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||
384: p_inv_currency_code);
385: AP_Debug_Pkg.Print(g_debug_mode, 'sys gain ccid: '||
386: TO_CHAR(p_sys_xrate_gain_ccid));
387: AP_Debug_Pkg.Print(g_debug_mode, 'sys loss ccid: '||

Line 385: AP_Debug_Pkg.Print(g_debug_mode, 'sys gain ccid: '||

381: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
382: p_base_currency_code);
383: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||
384: p_inv_currency_code);
385: AP_Debug_Pkg.Print(g_debug_mode, 'sys gain ccid: '||
386: TO_CHAR(p_sys_xrate_gain_ccid));
387: AP_Debug_Pkg.Print(g_debug_mode, 'sys loss ccid: '||
388: TO_CHAR(p_sys_xrate_loss_ccid));
389: END IF;

Line 387: AP_Debug_Pkg.Print(g_debug_mode, 'sys loss ccid: '||

383: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||
384: p_inv_currency_code);
385: AP_Debug_Pkg.Print(g_debug_mode, 'sys gain ccid: '||
386: TO_CHAR(p_sys_xrate_gain_ccid));
387: AP_Debug_Pkg.Print(g_debug_mode, 'sys loss ccid: '||
388: TO_CHAR(p_sys_xrate_loss_ccid));
389: END IF;
390:
391:

Line 436: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

432:
433:
434: IF (g_debug_mode = 'Y') THEN
435: l_debug_info := 'Open Distribution_Cur';
436: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
437: END IF;
438:
439: OPEN Distribution_Cur;
440: LOOP

Line 473: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

469: +-----------------------------------------------------------------*/
470:
471: IF (g_debug_mode = 'Y') THEN
472: l_debug_info := 'Calculate IPV and ERV';
473: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
474: END IF;
475:
476: /*-----------------------------------------------------------------+
477: | Step 1 - Open check variance cursor to check if ERV already |

Line 532: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

528: l_curr_calling_sequence);
529:
530: IF (g_debug_mode = 'Y') THEN
531: l_debug_info := 'After calling Calculate_variance' || l_debug_info;
532: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
533: AP_Debug_Pkg.Print(g_debug_mode, l_debug_context );
534: END IF;
535:
536: /*--------------------------------------------------------------+

Line 533: AP_Debug_Pkg.Print(g_debug_mode, l_debug_context );

529:
530: IF (g_debug_mode = 'Y') THEN
531: l_debug_info := 'After calling Calculate_variance' || l_debug_info;
532: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
533: AP_Debug_Pkg.Print(g_debug_mode, l_debug_context );
534: END IF;
535:
536: /*--------------------------------------------------------------+
537: | Step 3.1: Calculate extra_po_erv for the ITEM distribution |

Line 554: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info);

550: IF (g_debug_mode = 'Y') THEN
551: l_debug_info := l_debug_loc ||
552: 'receipt match line when accrue on receipt is N' ||
553: 'calculate po_erv';
554: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info);
555: END IF;
556:
557: -- Amount Based Matching
558: IF l_match_basis = 'QUANTITY' THEN

Line 613: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

609:
610: IF (g_debug_mode = 'Y') THEN
611: l_debug_info := 'Exec_Matched_Variance_Checks - variance exists ' ||
612: 'calling get_erv_ccid ';
613: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
614: END IF;
615:
616: IF ( NVL(l_erv,0 ) <> 0 ) THEN
617:

Line 670: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

666: -- Case A.1 - There is no existing IPV line - insert
667: -----------------------------------------------------------
668: IF (g_debug_mode = 'Y') THEN
669: l_debug_info := 'Non reversal dist line - Insert IPV line';
670: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
671: END IF;
672:
673: l_related_id := l_invoice_distribution_id;
674:

Line 881: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

877: -- Case A.2 - There is an existing IPV line - update
878: ------------------------------------------------------------
879: IF (g_debug_mode = 'Y') THEN
880: l_debug_info := 'Non reversal line - UPDATE exist ipv line';
881: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
882: END IF;
883:
884: -----------------------------------------------------------
885: -- Update the existing IPV line for newly calculated IPV

Line 916: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

912: -----------------------------------------------------------
913:
914: IF (g_debug_mode = 'Y') THEN
915: l_debug_info := 'Non reversal dist line - Insert ERV line';
916: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
917: END IF;
918:
919: l_related_id := l_invoice_distribution_id;
920:

Line 1127: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1123: -----------------------------------------------------------
1124:
1125: IF (g_debug_mode = 'Y') THEN
1126: l_debug_info := 'Non reversal dist line-process exist ERV line';
1127: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1128: END IF;
1129:
1130: -------------------------------------------------------------
1131: -- UPDATE the existing ERV line for newly calculated ERV

Line 1234: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1230: END IF; -- end of check l_reversal_flag
1231:
1232: IF (g_debug_mode = 'Y') THEN
1233: l_debug_info := 'Inside the Distribution Cursor - finish one interate';
1234: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1235: END IF;
1236:
1237: END LOOP;
1238: CLOSE Distribution_Cur;

Line 1246: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1242: +-----------------------------------------------------------------*/
1243:
1244: IF (g_debug_mode = 'Y') THEN
1245: l_debug_info := 'Process ERV ACCT INVALID hold for the invoice';
1246: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1247: END IF;
1248:
1249: /* Bug 5230770. We should not process any invalid acct holds since it
1250: does not make any sense with SLA

Line 1405: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1401: g_debug_mode := 'Y';
1402: END IF;
1403:
1404: IF (g_debug_mode = 'Y') THEN
1405: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1406: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
1407: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
1408: p_base_currency_code);
1409: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||

Line 1406: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));

1402: END IF;
1403:
1404: IF (g_debug_mode = 'Y') THEN
1405: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1406: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
1407: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
1408: p_base_currency_code);
1409: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||
1410: p_inv_currency_code);

Line 1407: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||

1403:
1404: IF (g_debug_mode = 'Y') THEN
1405: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1406: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
1407: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
1408: p_base_currency_code);
1409: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||
1410: p_inv_currency_code);
1411: END IF;

Line 1409: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||

1405: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1406: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
1407: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
1408: p_base_currency_code);
1409: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||
1410: p_inv_currency_code);
1411: END IF;
1412:
1413: /*-----------------------------------------------------------------+

Line 1420: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1416: +-----------------------------------------------------------------*/
1417:
1418: IF (g_debug_mode = 'Y') THEN
1419: l_debug_info := 'Open Distribution_Cur';
1420: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1421: END IF;
1422:
1423: OPEN Distribution_Cur;
1424: LOOP

Line 1448: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1444: +-----------------------------------------------------------------*/
1445:
1446: IF (g_debug_mode = 'Y') THEN
1447: l_debug_info := 'Exec_Qty_Variance_Check- call Calculate_QV';
1448: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1449: END IF;
1450:
1451: AP_FUNDS_CONTROL_PKG.Calc_QV(
1452: p_invoice_id,

Line 1477: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1473: +-----------------------------------------------------------------*/
1474:
1475: IF (g_debug_mode = 'Y') THEN
1476: l_debug_info := 'Set inv dist qv if right dist_line_num to be updated ';
1477: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1478: END IF;
1479:
1480: IF (l_distribution_line_number = l_update_dist_num AND
1481: l_invoice_line_number = l_update_line_num ) THEN

Line 1493: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1489: IF (g_debug_mode = 'Y') THEN
1490: l_debug_info := 'Exec_Qty_Variance_Checks-update line with dist_line_num'
1491: || '=' || to_char(l_distribution_line_number)
1492: || 'line_number' || to_char(l_invoice_line_number);
1493: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1494: END IF;
1495:
1496: UPDATE ap_invoice_distributions
1497: SET quantity_variance = decode(nvl(quantity_variance,0)+l_qv,0,

Line 1530: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1526:
1527: IF (g_debug_mode = 'Y') THEN
1528: l_debug_info := 'Exec_Qty_Variance_Checks-finish update the distribution'
1529: || 'for each distribution line';
1530: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1531: END IF;
1532:
1533: END LOOP;
1534: CLOSE Distribution_Cur;

Line 1668: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1664: g_debug_mode := 'Y';
1665: END IF;
1666:
1667: IF (g_debug_mode = 'Y') THEN
1668: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1669: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
1670: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
1671: p_base_currency_code);
1672: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||

Line 1669: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));

1665: END IF;
1666:
1667: IF (g_debug_mode = 'Y') THEN
1668: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1669: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
1670: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
1671: p_base_currency_code);
1672: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||
1673: p_inv_currency_code);

Line 1670: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||

1666:
1667: IF (g_debug_mode = 'Y') THEN
1668: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1669: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
1670: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
1671: p_base_currency_code);
1672: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||
1673: p_inv_currency_code);
1674: END IF;

Line 1672: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||

1668: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1669: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
1670: AP_Debug_Pkg.Print(g_debug_mode, 'base currency code: '||
1671: p_base_currency_code);
1672: AP_Debug_Pkg.Print(g_debug_mode, 'invoice currency code: '||
1673: p_inv_currency_code);
1674: END IF;
1675:
1676: /*-----------------------------------------------------------------+

Line 1683: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1679: +-----------------------------------------------------------------*/
1680:
1681: IF (g_debug_mode = 'Y') THEN
1682: l_debug_info := 'Open Distribution_Cur';
1683: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1684: END IF;
1685:
1686: OPEN Distribution_Cur;
1687: LOOP

Line 1708: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1704: +-----------------------------------------------------------------*/
1705:
1706: IF (g_debug_mode = 'Y') THEN
1707: l_debug_info := 'Exec_Amt_Variance_Check- call Calculate_AV';
1708: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1709: END IF;
1710:
1711: AP_FUNDS_CONTROL_PKG.Calc_AV(
1712: p_invoice_id,

Line 1733: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1729: +-----------------------------------------------------------------*/
1730:
1731: IF (g_debug_mode = 'Y') THEN
1732: l_debug_info := 'Set inv dist av if right dist_line_num to be updated ';
1733: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1734: END IF;
1735:
1736: IF (l_distribution_line_number = l_update_dist_num AND
1737: l_invoice_line_number = l_update_line_num ) THEN

Line 1749: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1745: IF (g_debug_mode = 'Y') THEN
1746: l_debug_info := 'Exec_Amt_Variance_Checks-update line with dist_line_num'
1747: || '=' || to_char(l_distribution_line_number)
1748: || 'line_number' || to_char(l_invoice_line_number);
1749: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1750: END IF;
1751:
1752: UPDATE ap_invoice_distributions
1753: SET amount_variance = decode(nvl(amount_variance,0)+l_av,0,

Line 1786: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

1782:
1783: IF (g_debug_mode = 'Y') THEN
1784: l_debug_info := 'Exec_Amt_Variance_Checks-finish update the distribution'
1785: || 'for each distribution line';
1786: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1787: END IF;
1788:
1789: END LOOP;
1790: CLOSE Distribution_Cur;

Line 2105: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2101: -----------------------------------------
2102: l_debug_info := 'Open Matched_Cur';
2103: -----------------------------------------
2104: IF (g_debug_mode = 'Y') THEN
2105: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2106: END IF;
2107:
2108: OPEN Matched_Cur;
2109: LOOP

Line 2115: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2111: ---------------------------------------
2112: l_debug_info := 'Fetch Matched_Cur';
2113: ---------------------------------------
2114: IF (g_debug_mode = 'Y') THEN
2115: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2116: END IF;
2117:
2118: FETCH Matched_Cur
2119: INTO l_line_location_id,

Line 2235: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2231: ---------------------------------------
2232: l_debug_info := 'Check PO closed code';
2233: ---------------------------------------
2234: IF (g_debug_mode = 'Y') THEN
2235: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2236: END IF;
2237:
2238: /*-----------------------------------------------------------------+
2239: | Set final_matching_exists to 'Y' when po_close_code is final |

Line 2273: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2269: -----------------------------------------------------------------
2270: l_debug_info := 'Process FINAL MATCHING hold for shipment match';
2271: -----------------------------------------------------------------
2272: IF (g_debug_mode = 'Y') THEN
2273: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2274: END IF;
2275:
2276: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2277: p_invoice_id,

Line 2293: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2289: ------------------------------------------------
2290: l_debug_info := 'Check for Currency Difference';
2291: ------------------------------------------------
2292: IF (g_debug_mode = 'Y') THEN
2293: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2294: END IF;
2295:
2296: IF (l_inv_currency_code <> l_po_currency_code) THEN
2297:

Line 2306: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2302: ----------------------------------------------------------------------
2303: l_debug_info := 'Process CURRENCY DIFFERENCE hold for shipment match';
2304: ----------------------------------------------------------------------
2305: IF (g_debug_mode = 'Y') THEN
2306: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2307: END IF;
2308:
2309: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2310: p_invoice_id,

Line 2326: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2322: -----------------------------------------
2323: l_debug_info := 'Check PO Approval Flag';
2324: -----------------------------------------
2325: IF (g_debug_mode = 'Y') THEN
2326: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2327: END IF;
2328:
2329: IF ((l_po_approved_flag <> 'Y') AND
2330: (NVL(l_discarded_flag, 'N' ) <> 'N') AND

Line 2341: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2337: ------------------------------------------------------------------
2338: l_debug_info := 'Process PO NOT APPROVED hold for shipment match';
2339: ------------------------------------------------------------------
2340: IF (g_debug_mode = 'Y') THEN
2341: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2342: END IF;
2343:
2344: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2345: p_invoice_id,

Line 2361: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2357: ------------------------------------------
2358: l_debug_info := 'Check Receipt Exception';
2359: ------------------------------------------
2360: IF (g_debug_mode = 'Y') THEN
2361: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2362: END IF;
2363:
2364: Check_Receipt_Exception(
2365: p_invoice_id,

Line 2379: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2375: -------------------------------------------------------------
2376: l_debug_info := 'Calculate Invoice Shipment Quantity Billed';
2377: -------------------------------------------------------------
2378: IF (g_debug_mode = 'Y') THEN
2379: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2380: END IF;
2381:
2382: IF (l_payment_type <> 'MILESTONE') THEN
2383:

Line 2399: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2395: -----------------------------------------
2396: l_debug_info := 'Check Quantity Ordered';
2397: -----------------------------------------
2398: IF (g_debug_mode = 'Y') THEN
2399: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2400: END IF;
2401:
2402: IF (p_qty_tol IS NOT NULL) THEN
2403: IF (l_qty_billed > (p_qty_tol * l_qty_ordered)) THEN

Line 2416: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2412: ----------------------------------------------------------
2413: l_debug_info := 'Process QTY ORD hold for shipment match';
2414: ----------------------------------------------------------
2415: IF (g_debug_mode = 'Y') THEN
2416: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2417: END IF;
2418:
2419: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2420: p_invoice_id,

Line 2448: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2444: --------------------------------------------------------------
2445: l_debug_info := 'Process MAX QTY ORD hold for shipment match';
2446: --------------------------------------------------------------
2447: IF (g_debug_mode = 'Y') THEN
2448: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2449: END IF;
2450:
2451: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2452: p_invoice_id,

Line 2468: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2464: ------------------------------------------
2465: l_debug_info := 'Check Quantity Received ';
2466: ------------------------------------------
2467: IF (g_debug_mode = 'Y') THEN
2468: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2469: END IF;
2470:
2471: /*-----------------------------------------------------------------+
2472: | Calculate the net quantity received. the values are got from |

Line 2508: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2504: ----------------------------------------------------------
2505: l_debug_info := 'Process QTY REC hold for shipment match';
2506: ----------------------------------------------------------
2507: IF (g_debug_mode = 'Y') THEN
2508: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2509: END IF;
2510:
2511: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2512: p_invoice_id,

Line 2528: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2524: --------------------------------------------------
2525: l_debug_info := 'Check Maximum Quantity Received';
2526: --------------------------------------------------
2527: IF (g_debug_mode = 'Y') THEN
2528: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2529: END IF;
2530:
2531: IF (p_max_qty_rec_tol IS NOT NULL) THEN
2532: IF ( (l_billed_quantity_used >

Line 2547: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2543: --------------------------------------------------------------
2544: l_debug_info := 'Process MAX QTY REC hold for shipment match';
2545: --------------------------------------------------------------
2546: IF (g_debug_mode = 'Y') THEN
2547: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2548: END IF;
2549:
2550: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2551: p_invoice_id,

Line 2567: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2563: ------------------------------
2564: l_debug_info := 'Check Price';
2565: ------------------------------
2566: IF (g_debug_mode = 'Y') THEN
2567: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2568: END IF;
2569:
2570: Check_Price(
2571: p_invoice_id,

Line 2591: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2587: -------------------------------------------
2588: l_debug_info := 'Check Quantity Inspected';
2589: -------------------------------------------
2590: IF (g_debug_mode = 'Y') THEN
2591: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2592: END IF;
2593:
2594: IF (l_match_option = 'R') THEN
2595: l_billed_quantity_used := nvl(l_billed_txn_qty,0); -- from po api

Line 2612: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2608: ----------------------------------------------------------
2609: l_debug_info := 'Process QUALITY hold for shipment match';
2610: ----------------------------------------------------------
2611: IF (g_debug_mode = 'Y') THEN
2612: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2613: END IF;
2614:
2615: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2616: p_invoice_id,

Line 2645: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2641: -----------------------------------------
2642: l_debug_info := 'Check Amount Ordered';
2643: -----------------------------------------
2644: IF (g_debug_mode = 'Y') THEN
2645: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2646: END IF;
2647:
2648: IF (p_amt_tol IS NOT NULL) THEN
2649: IF (l_amt_billed > (p_amt_tol * l_amt_ordered)) THEN

Line 2662: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2658: ----------------------------------------------------------
2659: l_debug_info := 'Process AMT ORD hold for shipment match';
2660: ----------------------------------------------------------
2661: IF (g_debug_mode = 'Y') THEN
2662: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2663: END IF;
2664:
2665: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2666: p_invoice_id,

Line 2694: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2690: --------------------------------------------------------------
2691: l_debug_info := 'Process MAX AMT ORD hold for shipment match';
2692: --------------------------------------------------------------
2693: IF (g_debug_mode = 'Y') THEN
2694: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2695: END IF;
2696:
2697: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2698: p_invoice_id,

Line 2714: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2710: ------------------------------------------
2711: l_debug_info := 'Check Amount Received ';
2712: ------------------------------------------
2713: IF (g_debug_mode = 'Y') THEN
2714: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2715: END IF;
2716:
2717: /*-----------------------------------------------------------------+
2718: | Calculate the net amount received. the values are got from |

Line 2747: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2743: ----------------------------------------------------------
2744: l_debug_info := 'Process AMT REC hold for shipment match';
2745: ----------------------------------------------------------
2746: IF (g_debug_mode = 'Y') THEN
2747: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2748: END IF;
2749:
2750: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2751: p_invoice_id,

Line 2767: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2763: --------------------------------------------------
2764: l_debug_info := 'Check Maximum Amount Received';
2765: --------------------------------------------------
2766: IF (g_debug_mode = 'Y') THEN
2767: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2768: END IF;
2769:
2770: IF (p_max_amt_rec_tol IS NOT NULL) THEN
2771: IF ( (l_billed_amount_used >

Line 2786: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2782: --------------------------------------------------------------
2783: l_debug_info := 'Process MAX AMT REC hold for shipment match';
2784: --------------------------------------------------------------
2785: IF (g_debug_mode = 'Y') THEN
2786: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2787: END IF;
2788:
2789: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2790: p_invoice_id,

Line 2831: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2827: -----------------------------------------------------------
2828: l_debug_info := 'Check for Milestone Hold for Quantity Ordered';
2829: -----------------------------------------------------------
2830: IF (g_debug_mode = 'Y') THEN
2831: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2832: END IF;
2833: --
2834: -- Bug 5077550
2835: -- When the pay item type is milestone and the match basis is

Line 2863: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2859: ----------------------------------------------------------
2860: l_debug_info := 'Process MILESTONE hold for shipment match';
2861: ----------------------------------------------------------
2862: IF (g_debug_mode = 'Y') THEN
2863: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2864: END IF;
2865:
2866: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2867: p_invoice_id,

Line 2886: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2882: ------------------------------------------
2883:
2884:
2885: IF (g_debug_mode = 'Y') THEN
2886: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2887: END IF;
2888:
2889: /*-----------------------------------------------------------------+
2890: | Calculate the net quantity received. the values are got from |

Line 2926: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2922: ----------------------------------------------------------
2923: l_debug_info := 'Process QTY REC hold for shipment match';
2924: ----------------------------------------------------------
2925: IF (g_debug_mode = 'Y') THEN
2926: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2927: END IF;
2928:
2929: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2930: p_invoice_id,

Line 2960: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2956: -----------------------------------------
2957: l_debug_info := 'Check Amount Ordered';
2958: -----------------------------------------
2959: IF (g_debug_mode = 'Y') THEN
2960: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2961: END IF;
2962:
2963: --Bug6830703
2964: --added the condition l_amt_billed<>0 to avoid checking

Line 2981: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

2977: ----------------------------------------------------------
2978: l_debug_info := 'Process AMT ORD hold for shipment match';
2979: ----------------------------------------------------------
2980: IF (g_debug_mode = 'Y') THEN
2981: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2982: END IF;
2983:
2984: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
2985: p_invoice_id,

Line 3004: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3000: ------------------------------------------
3001: l_debug_info := 'Check Amount Received ';
3002: ------------------------------------------
3003: IF (g_debug_mode = 'Y') THEN
3004: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3005: END IF;
3006:
3007: /*-----------------------------------------------------------------+
3008: | Calculate the net amount received. the values are got from |

Line 3037: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3033: ----------------------------------------------------------
3034: l_debug_info := 'Process AMT REC hold for shipment match';
3035: ----------------------------------------------------------
3036: IF (g_debug_mode = 'Y') THEN
3037: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3038: END IF;
3039:
3040: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3041: p_invoice_id,

Line 3066: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3062: ---------------------------------------
3063: -- BUG 3486887 : Added parameter p_origin_doc_id=> p_invoice_id in Close_PO()
3064:
3065: IF (g_debug_mode = 'Y') THEN
3066: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3067: END IF;
3068:
3069: IF (l_final_match_flag NOT IN ('Y', 'D')) THEN
3070:

Line 3092: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3088: --------------------------------------------------
3089: l_debug_info := 'Check for ship amount tolerance';
3090: --------------------------------------------------
3091: IF (g_debug_mode = 'Y') THEN
3092: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3093: END IF;
3094:
3095:
3096: IF (l_payment_type <> 'MILESTONE') THEN

Line 3145: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3141: -----------------------------------------------------------------------
3142: l_debug_info := 'Process MAX SHIP AMOUNT Hold for this shipment match';
3143: -----------------------------------------------------------------------
3144: IF (g_debug_mode = 'Y') THEN
3145: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3146: END IF;
3147:
3148: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3149: p_invoice_id,

Line 3165: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3161: -----------------------------------------------------------
3162: l_debug_info := 'Compare erv with exchange rate tolerance';
3163: -----------------------------------------------------------
3164: IF (g_debug_mode = 'Y') THEN
3165: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3166: END IF;
3167:
3168: IF ((l_matching_basis = 'QUANTITY' and p_goods_rate_amt_tolerance IS NOT NULL)
3169: OR (l_matching_basis = 'AMOUNT' and p_services_rate_amt_tolerance IS NOT NULL))

Line 3201: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3197: -----------------------------------------------------------------------
3198: l_debug_info := 'Process MAX RATE AMOUNT Hold for this shipment match';
3199: -----------------------------------------------------------------------
3200: IF (g_debug_mode = 'Y') THEN
3201: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3202: END IF;
3203:
3204: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3205: p_invoice_id,

Line 3221: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3217: --------------------------------------------------
3218: l_debug_info := 'Check for total amount tolerance';
3219: --------------------------------------------------
3220: IF (g_debug_mode = 'Y') THEN
3221: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3222: END IF;
3223:
3224: IF ((l_matching_basis = 'QUANTITY' and p_goods_total_amt_tolerance IS NOT NULL) OR
3225: (l_matching_basis = 'AMOUNT' and p_services_total_amt_tolerance IS NOT NULL)

Line 3262: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3258: -----------------------------------------------------------------------
3259: l_debug_info := 'Process MAX TOTAL AMOUNT Hold for this shipment match';
3260: -----------------------------------------------------------------------
3261: IF (g_debug_mode = 'Y') THEN
3262: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3263: END IF;
3264:
3265: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3266: p_invoice_id,

Line 3770: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3766: -----------------------------------------------
3767: l_debug_info := 'Open Final_Match_Release_Cur';
3768: -----------------------------------------------
3769: IF (g_debug_mode = 'Y') THEN
3770: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3771: END IF;
3772:
3773: OPEN Final_Match_Release_Cur;
3774: LOOP

Line 3780: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3776: ------------------------------------------------
3777: l_debug_info := 'Fetch Final_Match_Release_Cur';
3778: ------------------------------------------------
3779: IF (g_debug_mode = 'Y') THEN
3780: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3781: END IF;
3782:
3783: FETCH Final_Match_Release_Cur
3784: INTO l_line_location_id,

Line 3807: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3803: -----------------------------------------
3804: l_debug_info := 'Open Final_Match_Cur';
3805: -----------------------------------------
3806: IF (g_debug_mode = 'Y') THEN
3807: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3808: END IF;
3809:
3810: OPEN Final_Match_Cur;
3811: LOOP

Line 3852: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3848: ------------------------------------------------
3849: l_debug_info := 'Start Final Match Processing';
3850: ------------------------------------------------
3851: IF (g_debug_mode = 'Y') THEN
3852: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3853: END IF;
3854:
3855: Get_Shipment_Qty_Delivered(
3856: l_line_location_id,

Line 3873: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3869:
3870: -- BUG 3486887 : Added parameter p_origin_doc_id=> p_invoice_id in Close_PO()
3871:
3872: IF (g_debug_mode = 'Y') THEN
3873: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3874: END IF;
3875:
3876: IF (NOT(PO_ACTIONS.Close_PO(
3877: p_docid => l_po_header_id,

Line 3897: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3893: -----------------------------------------------
3894: l_debug_info := 'Process PO Close retrun code';
3895: -----------------------------------------------
3896: IF (g_debug_mode = 'Y') THEN
3897: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3898: END IF;
3899:
3900: IF (l_return_code IN ('SUBMISSION_FAILED', 'STATE_FAILED')) THEN
3901:

Line 3906: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3902: -------------------------------------------------
3903: l_debug_info := 'PO Closed with failure';
3904: -------------------------------------------------
3905: IF (g_debug_mode = 'Y') THEN
3906: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3907: END IF;
3908:
3909: l_cant_po_close_exists := 'Y';
3910: ELSE

Line 3915: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3911: -------------------------------------------------
3912: l_debug_info := 'Get PO Closed Code after success';
3913: -------------------------------------------------
3914: IF (g_debug_mode = 'Y') THEN
3915: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3916: END IF;
3917:
3918: Get_PO_Closed_Code(
3919: l_line_location_id,

Line 3928: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3924: -------------------------------------------------------------
3925: l_debug_info := 'Update Inv Dist/Line Final_Match_Flag to D';
3926: -------------------------------------------------------------
3927: IF (g_debug_mode = 'Y') THEN
3928: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3929: END IF;
3930:
3931: -- Start Bug 3489536
3932:

Line 3968: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3964: -------------------------------------------------------------
3965: l_debug_info := 'Error l_po_closed_code not finally closed';
3966: -------------------------------------------------------------
3967: IF (g_debug_mode = 'Y') THEN
3968: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3969: END IF;
3970:
3971: Raise Error;
3972:

Line 3992: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

3988: --------------------------------------------------------------
3989: l_debug_info := 'Process the CANT CLOSE PO hold status';
3990: --------------------------------------------------------------
3991: IF (g_debug_mode = 'Y') THEN
3992: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3993: END IF;
3994:
3995: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
3996: p_invoice_id,

Line 4014: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

4010: ----------------------------------------
4011: l_debug_info := 'CLOSE Final_Match_Cur';
4012: ----------------------------------------
4013: IF (g_debug_mode = 'Y') THEN
4014: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4015: END IF;
4016:
4017: CLOSE Final_Match_Cur;
4018:

Line 4029: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

4025: ------------------------------------------------------------------------
4026: l_debug_info := 'Process CANT TRY PO CLOSE hold status for the invoice';
4027: ------------------------------------------------------------------------
4028: IF (g_debug_mode = 'Y') THEN
4029: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4030: END IF;
4031:
4032: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
4033: p_invoice_id,

Line 4101: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info);

4097: p_calling_sequence;
4098:
4099: IF g_debug_mode = 'Y' THEN
4100: l_debug_info := 'Check if Rec Exception Exists';
4101: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info);
4102: END IF;
4103:
4104: /*-----------------------------------------------------------------+
4105: | Query is done at invoice line level for release 11.6 trying to |

Line 4145: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info);

4141: END IF;
4142:
4143: IF g_debug_mode = 'Y' THEN
4144: l_debug_info := 'Process Invoice Hold Status for REC EXCEPTION';
4145: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info);
4146: END IF;
4147:
4148: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
4149: p_invoice_id,

Line 4250: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

4246: ---------------------------------------------------------
4247: l_debug_info := 'Check if invoice is a price correction';
4248: ---------------------------------------------------------
4249: IF (g_debug_mode = 'Y') THEN
4250: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4251: END IF;
4252:
4253: /*-----------------------------------------------------------------+
4254: | To check if the match is a base match only or has corrections |

Line 4336: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

4332: --------------------------------------
4333: l_debug_info := 'Process PRICE hold ';
4334: --------------------------------------
4335: IF (g_debug_mode = 'Y') THEN
4336: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4337: END IF;
4338:
4339: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
4340: p_invoice_id,

Line 4442: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

4438: ---------------------------------------------------------------
4439: l_debug_info := 'calculate average price for a invoice ';
4440: ---------------------------------------------------------------
4441: IF (g_debug_mode = 'Y') THEN
4442: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4443: END IF;
4444:
4445: IF ( p_match_option = 'P' ) THEN
4446:

Line 4452: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

4448: l_debug_info := 'CHECK_AVERAGE_PRICE <- match to PO';
4449: ---------------------------------------------------------------
4450:
4451: IF (g_debug_mode = 'Y') THEN
4452: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4453: END IF;
4454:
4455: SELECT sum( decode( nvl(AIL.unit_price,0) * nvl(AIL.quantity_invoiced,0),
4456: 0, nvl(AIL.amount, 0),

Line 4488: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

4484: l_debug_info := 'CHECK_AVERAGE_PRICE <- match to receipt';
4485: ---------------------------------------------------------------
4486:
4487: IF (g_debug_mode = 'Y') THEN
4488: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4489: END IF;
4490:
4491: SELECT sum (decode(AIL.unit_meas_lookup_code
4492: ,p_txn_uom

Line 5113: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5109: --------------------------------------------------------
5110: l_debug_info := 'Calculate Shipment Total for the invoice';
5111: --------------------------------------------------------
5112: IF (g_debug_mode = 'Y') THEN
5113: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5114: END IF;
5115:
5116: /*-----------------------------------------------------------------+
5117: | Calculate the total shipment transaction amt billed by this |

Line 5134: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5130: -----------------------------------------------------------------
5131: l_debug_info := 'Calc_Ship_Total_Trx_Amt_Var->shipment amt is 0';
5132: -----------------------------------------------------------------
5133: IF (g_debug_mode = 'Y') THEN
5134: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5135: END IF;
5136: p_ship_trx_amt_var := 0;
5137: ELSE
5138: IF p_match_basis = 'QUANTITY' THEN -- Amount Based Matching

Line 5279: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5275: ------------------------------------------------------------------
5276: l_debug_info := 'Calculate Shipment Total amount for the invoice';
5277: --------------------------------------------------------------=---
5278: IF (g_debug_mode = 'Y') THEN
5279: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5280: END IF;
5281:
5282: /*-----------------------------------------------------------------+
5283: | The Meaning fo the following query conditions indicates:- |

Line 5305: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5301: l_debug_info := 'Calc_Ship_Trx_Amt - Match to PO';
5302: -------------------------------------------------------
5303:
5304: IF (g_debug_mode = 'Y') THEN
5305: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5306: END IF;
5307:
5308: SELECT sum( NVL(L.amount, 0) )
5309: INTO p_ship_trx_amt

Line 5339: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5335: l_debug_info := 'Calc_Ship_Trx_Amt - Match to RECEIPT';
5336: -------------------------------------------------------
5337:
5338: IF (g_debug_mode = 'Y') THEN
5339: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5340: END IF;
5341:
5342: SELECT sum(NVL(L.amount, 0))
5343: INTO p_ship_trx_amt

Line 5421: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5417: l_debug_info := 'Calculate ERV total for Shipment/receipt in the invoice';
5418: -------------------------------------------------------------------------
5419:
5420: IF g_debug_mode = 'Y' THEN
5421: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5422: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
5423: AP_Debug_Pkg.Print(g_debug_mode, 'line location id: '||
5424: TO_CHAR(p_line_location_id));
5425: END IF;

Line 5422: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));

5418: -------------------------------------------------------------------------
5419:
5420: IF g_debug_mode = 'Y' THEN
5421: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5422: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
5423: AP_Debug_Pkg.Print(g_debug_mode, 'line location id: '||
5424: TO_CHAR(p_line_location_id));
5425: END IF;
5426:

Line 5423: AP_Debug_Pkg.Print(g_debug_mode, 'line location id: '||

5419:
5420: IF g_debug_mode = 'Y' THEN
5421: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5422: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice id: '|| TO_CHAR(p_invoice_id));
5423: AP_Debug_Pkg.Print(g_debug_mode, 'line location id: '||
5424: TO_CHAR(p_line_location_id));
5425: END IF;
5426:
5427: IF (p_match_option = 'P') THEN

Line 5433: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5429: -------------------------------------------------------
5430: l_debug_info := 'Calc_Max_Rate_Var - Match to RECEIPT';
5431: -------------------------------------------------------
5432: IF (g_debug_mode = 'Y') THEN
5433: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5434: END IF;
5435:
5436: SELECT SUM( NVL(D.base_amount, 0))
5437: INTO p_rate_amt_var

Line 5450: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5446: -------------------------------------------------------
5447: l_debug_info := 'Calc_Max_Rate_Var - Match to RECEIPT';
5448: -------------------------------------------------------
5449: IF (g_debug_mode = 'Y') THEN
5450: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5451: END IF;
5452:
5453: SELECT SUM(NVL(D.base_amount, 0))
5454: INTO p_rate_amt_var

Line 5524: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5520: l_debug_info := 'Calculate Base Shipment Total for the invoice';
5521: ----------------------------------------------------------------
5522:
5523: IF g_debug_mode = 'Y' THEN
5524: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5525: END IF;
5526:
5527: /*-----------------------------------------------------------------+
5528: | Calculate the total shipment transaction amt billed by this |

Line 5552: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5548: ---------------------------------------------------------------------------
5549: l_debug_info := 'Calc_Ship_Total_base_Trx_Amt_Var->base shipment amt is 0';
5550: ---------------------------------------------------------------------------
5551: IF (g_debug_mode = 'Y') THEN
5552: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5553: END IF;
5554:
5555: p_ship_base_amt_var := 0;
5556:

Line 5563: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5559: ---------------------------------------------------------------------------
5560: l_debug_info := 'Calc_Ship_Total_base_Trx_Amt_Var->base shipment amt <> 0';
5561: ---------------------------------------------------------------------------
5562: IF (g_debug_mode = 'Y') THEN
5563: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5564: END IF;
5565:
5566: --Amount-Based Matching Project, added the IF condition
5567:

Line 5679: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5675: l_debug_info := 'Calculate base Shipment amount for the invoice';
5676: ------------------------------------------------------------------
5677:
5678: IF g_debug_mode = 'Y' THEN
5679: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5680: END IF;
5681:
5682:
5683: /*-----------------------------------------------------------------+

Line 5706: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5702: l_debug_info := 'Calc_Ship_BASE_Trx_Amt - Match to PO';
5703: ----------------------------------------------------------
5704:
5705: IF (g_debug_mode = 'Y') THEN
5706: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5707: END IF;
5708:
5709: SELECT SUM( DECODE( p_inv_curr_code
5710: ,p_base_curr_code

Line 5746: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );

5742: l_debug_info := 'Calc_Ship_Trx_BASE_Amt - Match to RECEIPT';
5743: ------------------------------------------------------------
5744:
5745: IF (g_debug_mode = 'Y') THEN
5746: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5747: END IF;
5748:
5749: SELECT SUM( DECODE( p_inv_curr_code
5750: ,p_base_curr_code

Line 5989: AP_Debug_Pkg.Print(g_debug_mode, 'exec_po_deliverable_check - end for invoice_id : '|| p_invoice_id);

5985: p_holds_count,
5986: p_release_count,
5987: p_calling_sequence);
5988:
5989: AP_Debug_Pkg.Print(g_debug_mode, 'exec_po_deliverable_check - end for invoice_id : '|| p_invoice_id);
5990:
5991: EXCEPTION
5992: WHEN OTHERS THEN
5993: IF (SQLCODE <> -20001) THEN

Line 6012: AP_Debug_Pkg.Print('Y', p_debug_info );

6008: p_debug_info IN VARCHAR2) IS
6009: BEGIN
6010:
6011: IF AP_APPROVAL_PKG.g_debug_mode = 'Y' THEN
6012: AP_Debug_Pkg.Print('Y', p_debug_info );
6013: END IF;
6014:
6015: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6016: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'AP.PLSQL.AP_APPROVAL_MATCHED_PKG'||p_api_name,p_debug_info);