[Home] [Help]
952: END IF;
953:
954: -- Print_Debug (l_api_name, 'AP_APPROVAL_PKG.APPROVE.BEGIN');
955: IF g_debug_mode = 'Y' THEN
956: AP_Debug_Pkg.Print(g_debug_mode, 'AP_APPROVAL_PKG.APPROVE.BEGIN' );
957: END IF;
958:
959: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
960: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'AP_APPROVAL_PKG.APPROVE.BEGIN');
964: ----------------------------------------------------------------
965: l_debug_info := 'Approving INVOICE_ID: '|| p_invoice_id;
966: -- Print_Debug (l_api_name, l_debug_info);
967: IF g_debug_mode = 'Y' THEN
968: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
969: END IF;
970:
971: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
972: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
981: ----------------------------------------------------------------
982: l_debug_info := 'Open Invoice_Type_Cur';
983: -- Print_Debug(l_api_name, l_debug_info);
984: IF g_debug_mode = 'Y' THEN
985: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
986: END IF;
987:
988: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
989: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1002: ----------------------------------------------------------------
1003: l_debug_info := 'Open Approve_Pay_Request_Cur';
1004: -- Print_Debug(l_api_name, l_debug_info);
1005: IF g_debug_mode = 'Y' THEN
1006: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1007: END IF;
1008:
1009: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1010: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1034: ----------------------------------------------------------------
1035: l_debug_info := 'Open Approve_Invoice_Cur';
1036: -- Print_Debug(l_api_name, l_debug_info);
1037: IF g_debug_mode = 'Y' THEN
1038: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1039: END IF;
1040:
1041: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1042: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1068: ----------------------------------------------------------------
1069: l_debug_info := 'Cache Tolerance Templates';
1070: -- Print_Debug(l_api_name, l_debug_info);
1071: IF g_debug_mode = 'Y' THEN
1072: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1073: END IF;
1074:
1075: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1076: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1088: ----------------------------------------------------------------
1089: l_debug_info := 'Retrieve System Options';
1090: -- Print_Debug(l_api_name, l_debug_info);
1091: IF g_debug_mode = 'Y' THEN
1092: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1093: END IF;
1094:
1095: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1096: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1135: ----------------------------------------------------------------
1136: l_debug_info := 'Initialize Invoice Holds Array';
1137: -- Print_Debug(l_api_name, l_debug_info);
1138: IF g_debug_mode = 'Y' THEN
1139: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1140: END IF;
1141:
1142: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1143: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1162: -----------------------------------------------------------------------
1163: l_debug_info := 'Check run option, to determine whether ok to approve';
1164: -- Print_Debug(l_api_name, l_debug_info);
1165: IF g_debug_mode = 'Y' THEN
1166: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1167: END IF;
1168:
1169: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1170: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1187: ----------------------------------------------------------------
1188: l_debug_info := 'Calculate Tax on the Invoice';
1189: -- Print_Debug(l_api_name, l_debug_info);
1190: IF g_debug_mode = 'Y' THEN
1191: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1192: END IF;
1193:
1194: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1195: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1210: ----------------------------------------------------------------
1211: l_debug_info := 'Fetch Invoice Lines';
1212: -- Print_Debug(l_api_name, l_debug_info);
1213: IF g_debug_mode = 'Y' THEN
1214: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1215: END IF;
1216:
1217: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1218: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1237: ----------------------------------------------------------------
1238: l_debug_info := 'Generate Distributions. Variance Checks';
1239: -- Print_Debug(l_api_name, l_debug_info);
1240: IF g_debug_mode = 'Y' THEN
1241: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1242: END IF;
1243:
1244: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1245: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1264: ----------------------------------------------------------------
1265: l_debug_info := 'Generate Tax Distributions';
1266: -- Print_Debug(l_api_name, l_debug_info);
1267: IF g_debug_mode = 'Y' THEN
1268: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1269: END IF;
1270:
1271: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1272: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1327: ----------------------------------------------------------------
1328: l_debug_info := 'Update Invoice Distributions to SELECTED';
1329: -- Print_Debug(l_api_name, l_debug_info);
1330: IF g_debug_mode = 'Y' THEN
1331: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1332: END IF;
1333:
1334: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1335: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1349: ----------------------------------------------------------------
1350: l_debug_info := 'Check Distribution Variance';
1351: -- Print_Debug(l_api_name, l_debug_info);
1352: IF g_debug_mode = 'Y' THEN
1353: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1354: END IF;
1355:
1356: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1357: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1373: ----------------------------------------------------------------
1374: l_debug_info := 'Create payment schedule for invoice request';
1375: -- Print_Debug(l_api_name, l_debug_info);
1376: IF g_debug_mode = 'Y' THEN
1377: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1378: END IF;
1379:
1380: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1381: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1395: ----------------------------------------------------------------
1396: l_debug_info := 'Distributions: Calculate Base Amount and Round';
1397: -- Print_Debug(l_api_name, l_debug_info);
1398: IF g_debug_mode = 'Y' THEN
1399: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1400: END IF;
1401:
1402: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1403: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1428: ----------------------------------------------------------------
1429: l_debug_info := 'Call Extended Withholding Routine';
1430: -- Print_Debug(l_api_name, l_debug_info);
1431: IF g_debug_mode = 'Y' THEN
1432: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1433: END IF;
1434:
1435: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1436: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1462: ---------------------------------------------------------------
1463: l_debug_info := 'Adjust Dists Base Amount for foreign currency rounding';
1464: -- Print_Debug(l_api_name, l_debug_info);
1465: IF g_debug_mode = 'Y' THEN
1466: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1467: END IF;
1468:
1469: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1470: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1492: ---------------------------------------------------------------
1493: l_debug_info := 'Sum of Distributions Amounts: '|| l_dist_total;
1494: -- Print_Debug(l_api_name, l_debug_info);
1495: IF g_debug_mode = 'Y' THEN
1496: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1497: END IF;
1498:
1499: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1500: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1510: l_debug_info := 'Invoice amount: '|| l_inv_amount ||
1511: ' Invoice base amount: '||l_inv_base_amount;
1512: -- Print_Debug(l_api_name, l_debug_info);
1513: IF g_debug_mode = 'Y' THEN
1514: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1515: END IF;
1516:
1517: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1518: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1545: l_debug_info := 'Sum of Distributions Base Amounts: '||
1546: l_base_dist_total;
1547: -- Print_Debug(l_api_name, l_debug_info);
1548: IF g_debug_mode = 'Y' THEN
1549: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1550: END IF;
1551:
1552: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1553: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1611: ---------------------------------------------------------
1612: l_debug_info := l_row_count||' rows updated.';
1613: -- Print_Debug(l_api_name, l_debug_info);
1614: IF g_debug_mode = 'Y' THEN
1615: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1616: END IF;
1617:
1618: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1619: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1623: ---------------------------------------------------------
1624: l_debug_info := 'No rows Updated';
1625: -- Print_Debug(l_api_name, l_debug_info);
1626: IF g_debug_mode = 'Y' THEN
1627: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1628: END IF;
1629:
1630: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1631: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1641: ----------------------------------------------------------------
1642: l_debug_info := 'Update Total Distribution Amount';
1643: -- Print_Debug(l_api_name, l_debug_info);
1644: IF g_debug_mode = 'Y' THEN
1645: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1646: END IF;
1647:
1648: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1649: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1669: ----------------------------------------------------------------
1670: l_debug_info := 'Exclude Tax/Freight: Recalculate Payment Schedules';
1671: -- Print_Debug(l_api_name, l_debug_info);
1672: IF g_debug_mode = 'Y' THEN
1673: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1674: END IF;
1675:
1676: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1677: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1689: ----------------------------------------------------------------
1690: l_debug_info := 'Retropricing: Check Line Variance';
1691: -- Print_Debug(l_api_name, l_debug_info);
1692: IF g_debug_mode = 'Y' THEN
1693: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1694: END IF;
1695:
1696: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1697: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1712: ----------------------------------------------------------------
1713: l_debug_info := 'Execute General Checks';
1714: -- Print_Debug(l_api_name, l_debug_info);
1715: IF g_debug_mode = 'Y' THEN
1716: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1717: END IF;
1718:
1719: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1720: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1740: ----------------------------------------------------------------
1741: l_debug_info := 'Execute Quantity Variance Check';
1742: -- Print_Debug(l_api_name, l_debug_info);
1743: IF g_debug_mode = 'Y' THEN
1744: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1745: END IF;
1746:
1747: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1748: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1760: ----------------------------------------------------------------
1761: l_debug_info := 'Execute Amount Variance Check';
1762: -- Print_Debug(l_api_name, l_debug_info);
1763: IF g_debug_mode = 'Y' THEN
1764: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1765: END IF;
1766:
1767: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1768: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1779: ----------------------------------------------------------------
1780: l_debug_info := 'Execute CLM Partial Funds Check';
1781: -- Print_Debug(l_api_name, l_debug_info);
1782: IF g_debug_mode = 'Y' THEN
1783: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1784: END IF;
1785:
1786: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1787: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1801: ----------------------------------------------------------------
1802: l_debug_info := 'Execute Pay when paid Check';
1803: -- Print_Debug(l_api_name, l_debug_info);
1804: IF g_debug_mode = 'Y' THEN
1805: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1806: END IF;
1807:
1808: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1809: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1821: ----------------------------------------------------------------
1822: l_debug_info := 'Execute PO Deliverable Check';
1823: -- Print_Debug(l_api_name, l_debug_info);
1824: IF g_debug_mode = 'Y' THEN
1825: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1826: END IF;
1827:
1828: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1829: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1840: ----------------------------------------------------------------
1841: l_debug_info := 'Execute Matched Checks';
1842: -- Print_Debug(l_api_name, l_debug_info);
1843: IF g_debug_mode = 'Y' THEN
1844: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1845: END IF;
1846:
1847: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1848: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1876: ----------------------------------------------------------------
1877: l_debug_info := 'Execute PO Final Close';
1878: -- Print_Debug(l_api_name, l_debug_info);
1879: IF g_debug_mode = 'Y' THEN
1880: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1881: END IF;
1882:
1883: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1884: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1899: ----------------------------------------------------------------
1900: l_debug_info := 'Validate Invoice for Tax';
1901: -- Print_Debug(l_api_name, l_debug_info);
1902: IF g_debug_mode = 'Y' THEN
1903: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1904: END IF;
1905:
1906: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1907: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1942: ----------------------------------------------------------------
1943: l_debug_info := 'Call GMS API to ensure missing ADLs are generated';
1944: -- Print_Debug(l_api_name, l_debug_info);
1945: IF g_debug_mode = 'Y' THEN
1946: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1947: END IF;
1948:
1949: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1950: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1957: ----------------------------------------------------------------
1958: l_debug_info := 'Execute Withholding';
1959: -- Print_Debug(l_api_name, l_debug_info);
1960: IF g_debug_mode = 'Y' THEN
1961: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1962: END IF;
1963:
1964: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1965: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1989: ----------------------------------------------------------------
1990: l_debug_info := 'Create Prepayment Application Distributions';
1991: -- Print_Debug(l_api_name, l_debug_info);
1992: IF g_debug_mode = 'Y' THEN
1993: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
1994: END IF;
1995:
1996: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1997: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2019: ----------------------------------------------------------------
2020: l_debug_info := 'Execute Budgetary Control';
2021: -- Print_Debug(l_api_name, l_debug_info);
2022: IF g_debug_mode = 'Y' THEN
2023: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2024: END IF;
2025:
2026: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2027: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2031: ----------------------------------------------------------------
2032: l_debug_info := 'Check Prepaid Amount Exceeds Invoice Amount';
2033: -- Print_Debug(l_api_name, l_debug_info);
2034: IF g_debug_mode = 'Y' THEN
2035: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2036: END IF;
2037:
2038: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2039: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2053:
2054: l_debug_info := 'p_budget_control is Y';
2055: -- Print_Debug(l_api_name, l_debug_info);
2056: IF g_debug_mode = 'Y' THEN
2057: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2058: END IF;
2059:
2060: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2061: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2071: IF p_calling_mode = 'CANCEL' AND l_encumbrance_exists = 0 THEN
2072: l_debug_info := 'Calling Mode is CANCEL and No Prior Encumb';
2073: -- Print_Debug(l_api_name, l_debug_info);
2074: IF g_debug_mode = 'Y' THEN
2075: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2076: END IF;
2077:
2078: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2079: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2092: ELSE
2093: l_debug_info := 'Calling AP_FUNDS_CONTROL_PKG.Funds_Reserve';
2094: -- Print_Debug(l_api_name, l_debug_info);
2095: IF g_debug_mode = 'Y' THEN
2096: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2097: END IF;
2098:
2099: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2100: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2195: ----------------------------------------------------------------
2196: l_debug_info := 'Call LCM API';
2197: -- Print_Debug(l_api_name, l_debug_info);
2198: IF g_debug_mode = 'Y' THEN
2199: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2200: END IF;
2201:
2202: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2203: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2226: ----------------------------------------------------------------
2227: l_debug_info := 'Update Invoice Distributions to APPROVED';
2228: -- Print_Debug(l_api_name, l_debug_info);
2229: IF g_debug_mode = 'Y' THEN
2230: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2231: END IF;
2232:
2233: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2234: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2242: ----------------------------------------------------------------
2243: l_debug_info := 'Generate Accounting Events';
2244: -- Print_Debug(l_api_name, l_debug_info);
2245: IF g_debug_mode = 'Y' THEN
2246: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2247: END IF;
2248:
2249: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2250: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2260: ----------------------------------------------------------------
2261: l_debug_info := 'Execute Due Date Sweeper after validation';
2262: -- Print_Debug(l_api_name, l_debug_info);
2263: IF g_debug_mode = 'Y' THEN
2264: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2265: END IF;
2266:
2267: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2268: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2290: ----------------------------------------------------------------
2291: l_debug_info := 'Update force_revalidation_flag to No';
2292: -- Print_Debug(l_api_name, l_debug_info);
2293: IF g_debug_mode = 'Y' THEN
2294: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2295: END IF;
2296:
2297: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2298: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2311: ----------------------------------------------------------------
2312: l_debug_info := 'Close approve_pay_request_cur';
2313: -- Print_Debug(l_api_name, l_debug_info);
2314: IF g_debug_mode = 'Y' THEN
2315: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2316: END IF;
2317:
2318: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2319: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2324: ----------------------------------------------------------------
2325: l_debug_info := 'Close approve_invoice_cursor';
2326: -- Print_Debug(l_api_name, l_debug_info);
2327: IF g_debug_mode = 'Y' THEN
2328: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2329: END IF;
2330:
2331: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2332: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2338: ----------------------------------------------------------------
2339: l_debug_info := 'Retrieve total hold count and validation status';
2340: -- Print_Debug(l_api_name, l_debug_info);
2341: IF g_debug_mode = 'Y' THEN
2342: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2343: END IF;
2344:
2345: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2346: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2355: ----------------------------------------------------------------
2356: l_debug_info := 'Validation Status: '||p_approval_status;
2357: -- Print_Debug(l_api_name, l_debug_info);
2358: IF g_debug_mode = 'Y' THEN
2359: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2360: END IF;
2361:
2362: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2363: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2379: -------------------------------------------------------------------
2380: l_debug_info := 'Get event class code';
2381: -- Print_Debug(l_api_name, l_debug_info);
2382: IF g_debug_mode = 'Y' THEN
2383: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2384: END IF;
2385:
2386: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2387: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2403: -----------------------------------------------------------------
2404: l_debug_info := 'Call Freeze Distributions';
2405: -- Print_Debug(l_api_name, l_debug_info);
2406: IF g_debug_mode = 'Y' THEN
2407: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2408: END IF;
2409:
2410: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2411: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2440: -----------------------------------------------------------------
2441: l_debug_info := 'UnFrozen Dists Count '||l_unfreeze_count;
2442: -- Print_Debug(l_api_name, l_debug_info);
2443: IF g_debug_mode = 'Y' THEN
2444: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2445: END IF;
2446:
2447: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2448: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2458: ----------------------------------------------------------------
2459: l_debug_info := 'Call API to freeze invoice in tax schema';
2460: -- Print_Debug(l_api_name, l_debug_info);
2461: IF g_debug_mode = 'Y' THEN
2462: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2463: END IF;
2464:
2465: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2466: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2496: ----------------------------------------------------------------
2497: l_debug_info := 'Commit Data';
2498: -- Print_Debug(l_api_name, l_debug_info);
2499: IF g_debug_mode = 'Y' THEN
2500: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2501: END IF;
2502:
2503: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2504: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2509: END IF;
2510:
2511: -- Print_Debug (l_api_name, 'AP_APPROVAL_PKG.APPROVE.END');
2512: IF g_debug_mode = 'Y' THEN
2513: AP_Debug_Pkg.Print(g_debug_mode, 'AP_APPROVAL_PKG.APPROVE.END' );
2514: END IF;
2515:
2516: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2517: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'AP_APPROVAL_PKG.APPROVE.END');
2542: l_lcm_msg_data := FND_MSG_PUB.get(i, FND_API.g_false);
2543: l_debug_info :='l_msg_data ('||i||'): '||l_lcm_msg_data;
2544: -- Print_Debug(l_api_name, l_debug_info);
2545: IF g_debug_mode = 'Y' THEN
2546: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2547: END IF;
2548:
2549: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2550: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2721:
2722: l_debug_info := 'Retrieving system parameters for validation';
2723: -- Print_Debug(l_debug_loc, l_debug_info);
2724: IF g_debug_mode = 'Y' THEN
2725: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2726: END IF;
2727:
2728: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2729: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
2758:
2759: l_debug_info := 'Set Options from Cache';
2760: -- Print_Debug (l_debug_loc, l_debug_info);
2761: IF g_debug_mode = 'Y' THEN
2762: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2763: END IF;
2764:
2765: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2766: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
2783:
2784: l_debug_info := 'Retrieving tolerances for validation';
2785: -- Print_Debug(l_debug_loc, l_debug_info);
2786: IF g_debug_mode = 'Y' THEN
2787: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2788: END IF;
2789:
2790: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2791: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
2896:
2897: l_debug_info := 'Skip Validation: Invoice_Id: ' || p_invoice_id;
2898: -- Print_Debug(l_api_name, l_debug_info);
2899: IF g_debug_mode = 'Y' THEN
2900: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2901: END IF;
2902:
2903: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2904: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2966:
2967: l_debug_info := 'Run Option: New: Set new distribution flag to S';
2968: -- Print_Debug (l_debug_loc,l_debug_info);
2969: IF g_debug_mode = 'Y' THEN
2970: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
2971: END IF;
2972:
2973: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2974: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
2995:
2996: l_debug_info := 'Run Option: All: Set new distribution flag to S';
2997: -- Print_Debug (l_debug_loc,l_debug_info);
2998: IF g_debug_mode = 'Y' THEN
2999: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3000: END IF;
3001:
3002: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3003: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3118: || ' project_id: '||p_inv_line_rec.project_id
3119: ||' generate_dists: '||p_inv_line_rec.generate_dists;
3120: -- Print_Debug(l_debug_loc, l_debug_info);
3121: IF g_debug_mode = 'Y' THEN
3122: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3123: END IF;
3124:
3125: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3126: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3136:
3137: l_debug_info := 'should have hold for line: '||p_inv_line_rec.line_number;
3138: -- Print_Debug(l_debug_loc, l_debug_info);
3139: IF g_debug_mode = 'Y' THEN
3140: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3141: END IF;
3142:
3143: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3144: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3280: ||' accouting_date: ' ||p_inv_line_rec.accounting_date
3281: ||' period_name: ' ||p_inv_line_rec.period_name;
3282: -- Print_Debug(l_debug_loc, l_debug_info);
3283: IF g_debug_mode = 'Y' THEN
3284: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3285: END IF;
3286:
3287: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3288: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3298: l_debug_info := 'Call the api that will create the distributions '||
3299: 'based on the other products registered view/api';
3300: -- Print_Debug(l_debug_loc, l_debug_info);
3301: IF g_debug_mode = 'Y' THEN
3302: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3303: END IF;
3304:
3305: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3306: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3325:
3326: l_debug_info := 'Execute_Dist_Generation_Check - insert from dist set';
3327: -- Print_Debug(l_debug_loc, l_debug_info);
3328: IF g_debug_mode = 'Y' THEN
3329: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3330: END IF;
3331:
3332: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3333: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3375:
3376: l_debug_info := 'Execute_Dist_Generation_Check: Error Code: ' || l_error_code;
3377: -- Print_Debug(l_debug_loc, l_debug_info);
3378: IF g_debug_mode = 'Y' THEN
3379: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3380: END IF;
3381:
3382: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3383: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3417:
3418: l_debug_info := 'Execute_Dist_Generation_Check - charge line with an allocation rule';
3419: -- Print_Debug(l_debug_loc, l_debug_info);
3420: IF g_debug_mode = 'Y' THEN
3421: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3422: END IF;
3423:
3424: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3425: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3463: l_debug_info := 'Execute_Dist_Generation_Check - ' ||
3464: 'Insert_Charge_From_Alloc error ' || l_error_code;
3465: -- Print_Debug (l_debug_loc, l_debug_info);
3466: IF g_debug_mode = 'Y' THEN
3467: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3468: END IF;
3469:
3470: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3471: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3484:
3485: l_debug_info := 'Execute_Dist_Generation_Check - Insert_AWT_Dist_From_Line';
3486: -- Print_Debug(l_debug_loc, l_debug_info);
3487: IF g_debug_mode = 'Y' THEN
3488: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3489: END IF;
3490:
3491: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3492: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3535:
3536: l_debug_info := 'Execute_Dist_Generation_Check - Insert_Single_Dist_From_Line';
3537: -- Print_Debug(l_debug_loc, l_debug_info);
3538: IF g_debug_mode = 'Y' THEN
3539: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3540: END IF;
3541:
3542: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3543: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3592: l_debug_info := 'Execute_Dist_Generation_Check-insert from dist'
3593: || ' set has error - ' || l_error_code ;
3594: -- Print_Debug(l_debug_loc, l_debug_info);
3595: IF g_debug_mode = 'Y' THEN
3596: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3597: END IF;
3598:
3599: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3600: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3614:
3615: l_debug_info := 'Execute_Dist_Generation_Check - Process hold code';
3616: -- Print_Debug(l_debug_loc, l_debug_info);
3617: IF g_debug_mode = 'Y' THEN
3618: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3619: END IF;
3620:
3621: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3622: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3631:
3632: l_debug_info := 'Release any holds related to distribution generation which were placed earlier';
3633: -- Print_Debug(l_debug_loc, l_debug_info);
3634: IF g_debug_mode = 'Y' THEN
3635: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3636: END IF;
3637:
3638: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3639: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3802: ||' hold future pay flag: '||p_hold_future_payments_flag;
3803:
3804: -- Print_Debug(l_debug_loc, l_debug_info);
3805: IF g_debug_mode = 'Y' THEN
3806: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3807: END IF;
3808:
3809: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3810: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3815: ---------------------------------------------------
3816: l_debug_info := 'Check Invalid Distribution Account';
3817: -- Print_Debug(l_debug_loc, l_debug_info);
3818: IF g_debug_mode = 'Y' THEN
3819: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3820: END IF;
3821:
3822: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3823: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3835: ---------------------------------------------------
3836: l_debug_info := 'Check PO Required';
3837: -- Print_Debug(l_debug_loc, l_debug_info);
3838: IF g_debug_mode = 'Y' THEN
3839: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3840: END IF;
3841:
3842: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3843: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3854: ---------------------------------------------------
3855: l_debug_info := 'Check for Missing Exchange Rate';
3856: -- Print_Debug(l_debug_loc, l_debug_info);
3857: IF g_debug_mode = 'Y' THEN
3858: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3859: END IF;
3860:
3861: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3862: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3875: ---------------------------------------------------
3876: l_debug_info := 'Check for Project Commitments For Retainage invoices ';
3877: -- Print_Debug(l_debug_loc, l_debug_info);
3878: IF g_debug_mode = 'Y' THEN
3879: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3880: END IF;
3881:
3882: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3883: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3907: ---------------------------------------------------
3908: l_debug_info := 'Check for invoice limit and vendor holds';
3909: -- Print_Debug(l_debug_loc, l_debug_info);
3910: IF g_debug_mode = 'Y' THEN
3911: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3912: END IF;
3913:
3914: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3915: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3947: -----------------------------------------------------------------------------------
3948: l_debug_info := 'Check whether vendor is CCR registered and registration is active';
3949: -- Print_Debug(l_debug_loc, l_debug_info);
3950: IF g_debug_mode = 'Y' THEN
3951: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3952: END IF;
3953:
3954: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3955: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3986: --GTAS Project Bug#13464635 Begin
3987: -----------------------------------------------------------------------------------
3988: l_debug_info := 'Check GTAS info is valid or not';
3989: IF g_debug_mode = 'Y' THEN
3990: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
3991: END IF;
3992: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3993: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
3994: END IF;
4099: p_calling_sequence;
4100:
4101: IF (g_debug_mode = 'Y') THEN
4102: l_debug_info := 'General check - check invalid dist account';
4103: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4104: AP_Debug_Pkg.Print(g_debug_mode, 'invoice id :'||
4105: to_char(p_invoice_id) );
4106: END IF;
4107:
4100:
4101: IF (g_debug_mode = 'Y') THEN
4102: l_debug_info := 'General check - check invalid dist account';
4103: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4104: AP_Debug_Pkg.Print(g_debug_mode, 'invoice id :'||
4105: to_char(p_invoice_id) );
4106: END IF;
4107:
4108: OPEN Invalid_Dist_Acct_Cur;
4111: EXIT WHEN Invalid_DIst_Acct_Cur%NOTFOUND;
4112:
4113: IF (g_debug_mode = 'Y') THEN
4114: l_debug_info := 'Inside loop of curser - Invalid_Dist_Acct_Cur';
4115: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4116: AP_Debug_Pkg.Print(g_debug_mode, 'invalid dist ccid hold'||
4117: l_invalid_dist_ccid_exists);
4118: END IF;
4119:
4112:
4113: IF (g_debug_mode = 'Y') THEN
4114: l_debug_info := 'Inside loop of curser - Invalid_Dist_Acct_Cur';
4115: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4116: AP_Debug_Pkg.Print(g_debug_mode, 'invalid dist ccid hold'||
4117: l_invalid_dist_ccid_exists);
4118: END IF;
4119:
4120: --
4130: INTO l_alt_exists;
4131: CLOSE Alternate_Account_Cur;
4132:
4133: IF (g_debug_mode = 'Y') THEN
4134: AP_Debug_Pkg.Print(g_debug_mode, 'Alternate Account Exists: '||
4135: l_alt_exists);
4136: END IF;
4137:
4138: IF l_alt_exists = 'Y' THEN
4145: CLOSE Invalid_Dist_Acct_Cur;
4146:
4147: IF (g_debug_mode = 'Y') THEN
4148: l_debug_info := 'Process DIST ACCT INVALID hold status on invoice';
4149: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4150: END IF;
4151:
4152: Process_Inv_Hold_Status(
4153: p_invoice_id,
4257: ---------------------------------------------------
4258: l_debug_info := 'PO REQUIRED hold placed. Invoice_ID: '||p_invoice_id;
4259: -- Print_Debug(l_debug_loc, l_debug_info);
4260: IF g_debug_mode = 'Y' THEN
4261: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4262: END IF;
4263:
4264: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4265: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
4357: ---------------------------------------------------
4358: l_debug_info := 'NO RATE hold placed. Invoice_ID: '||p_invoice_id;
4359: -- Print_Debug(l_debug_loc, l_debug_info);
4360: IF g_debug_mode = 'Y' THEN
4361: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4362: END IF;
4363:
4364: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4365: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
4450:
4451: l_debug_info := 'Call to Project API return flag '|| l_proj_comm ;
4452: -- Print_Debug(l_debug_loc, l_debug_info);
4453: IF g_debug_mode = 'Y' THEN
4454: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4455: END IF;
4456:
4457: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4458: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
4463: ---------------------------------------------------
4464: l_debug_info := 'PROJECT HOLD placed. Invoice_ID: '|| p_invoice_id;
4465: -- Print_Debug(l_debug_loc, l_debug_info);
4466: IF g_debug_mode = 'Y' THEN
4467: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4468: END IF;
4469:
4470: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4471: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
4613: --------------------------------------------------------
4614: l_debug_info := 'Distribution Variance Exists 1: '||l_dist_var_exists;
4615: -- Print_Debug(l_debug_loc, l_debug_info);
4616: IF g_debug_mode = 'Y' THEN
4617: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4618: END IF;
4619:
4620: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4621: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
4641: --------------------------------------------------------
4642: l_debug_info := 'Distribution Variance Exists 2: '||l_dist_var_exists;
4643: -- Print_Debug(l_debug_loc, l_debug_info);
4644: IF g_debug_mode = 'Y' THEN
4645: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4646: END IF;
4647:
4648: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4649: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
4957: --------------------------------------------------------
4958: l_debug_info := 'Line Variance Exists: '||l_line_var_exists;
4959: -- Print_Debug(l_debug_loc, l_debug_info);
4960: IF g_debug_mode = 'Y' THEN
4961: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
4962: END IF;
4963:
4964: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4965: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
5054: -----------------------------------------------------
5055: l_debug_info := 'Update Invoice Lines Base Amount';
5056: -- Print_Debug(l_debug_loc, l_debug_info);
5057: IF g_debug_mode = 'Y' THEN
5058: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5059: END IF;
5060:
5061: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5062: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
5100: -----------------------------------------------------
5101: l_debug_info := 'Round Invoice Lines Base Amount';
5102: -- Print_Debug(l_debug_loc, l_debug_info);
5103: IF g_debug_mode = 'Y' THEN
5104: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5105: END IF;
5106:
5107: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5108: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
5248: ------------------------------------------------------
5249: l_debug_info := 'Update Distribution Base Amounts';
5250: -- Print_Debug(l_debug_loc, l_debug_info);
5251: IF g_debug_mode = 'Y' THEN
5252: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5253: END IF;
5254:
5255: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5256: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
5400: -------------------------------------------------
5401: l_debug_info := 'Accounting Event Generation';
5402: -- Print_Debug(l_debug_loc, l_debug_info);
5403: IF g_debug_mode = 'Y' THEN
5404: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5405: END IF;
5406:
5407: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5408: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
5440: -------------------------------------------------
5441: l_debug_info := 'Accounting Event - create event for null event rows';
5442: -- Print_Debug(l_debug_loc, l_debug_info);
5443: IF g_debug_mode = 'Y' THEN
5444: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5445: END IF;
5446:
5447: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5448: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
5553: -------------------------------------------------
5554: l_debug_info := 'PREPAY VARIANCE hold placed';
5555: -- Print_Debug(l_debug_loc, l_debug_info);
5556: IF g_debug_mode = 'Y' THEN
5557: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5558: END IF;
5559:
5560: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5561: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
5568: -------------------------------------------------
5569: l_debug_info := 'PREPAY VARIANCE hold placed';
5570: -- Print_Debug(l_debug_loc, l_debug_info);
5571: IF g_debug_mode = 'Y' THEN
5572: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5573: END IF;
5574:
5575: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5576: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
5680: -------------------------------------------------------
5681: l_debug_info := 'AMOUNT hold placed: '||l_amount_hold_required;
5682: -- Print_Debug(l_debug_loc, l_debug_info);
5683: IF g_debug_mode = 'Y' THEN
5684: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5685: END IF;
5686:
5687: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5688: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
5705: -------------------------------------------------------
5706: l_debug_info := 'Check_invoice_vendor - check hold future payment';
5707: -- Print_Debug(l_debug_loc, l_debug_info);
5708: IF g_debug_mode = 'Y' THEN
5709: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
5710: END IF;
5711:
5712: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5713: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
6248: ------------------------------------------------------------
6249: l_debug_info := 'Set selected dists match_status_flag to tested';
6250: -- Print_Debug(l_debug_loc, l_debug_info);
6251: IF g_debug_mode = 'Y' THEN
6252: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
6253: END IF;
6254:
6255: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6256: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
6303: ------------------------------------------------------------
6304: l_debug_info := 'Set Tested dists to Approved if no unpostable holds';
6305: -- Print_Debug(l_debug_loc, l_debug_info);
6306: IF g_debug_mode = 'Y' THEN
6307: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
6308: END IF;
6309:
6310: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6311: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
6439:
6440: l_debug_info := 'p_hold_lookup_code,p_should_have_hold,p_hold_reason,p_system_user '||p_hold_lookup_code||','||p_should_have_hold||','||p_hold_reason||','||p_system_user;
6441: -- Print_Debug(l_debug_loc, l_debug_info);
6442: IF g_debug_mode = 'Y' THEN
6443: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
6444: END IF;
6445:
6446: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6447: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
6468: -------------------------------------------
6469: l_debug_info := 'Release hold if on hold and should not be on hold';
6470: -- Print_Debug(l_debug_loc, l_debug_info);
6471: IF g_debug_mode = 'Y' THEN
6472: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
6473: END IF;
6474:
6475: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6476: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
6500: -------------------------------------------
6501: l_debug_info := 'Set hold if it is not user released and needs hold';
6502: -- Print_Debug(l_debug_loc, l_debug_info);
6503: IF g_debug_mode = 'Y' THEN
6504: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
6505: END IF;
6506:
6507: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6508: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
6516: -------------------------------------------
6517: l_debug_info := 'Erase responsibility id from old insuff funds holds';
6518: -- Print_Debug(l_debug_loc, l_debug_info);
6519: IF g_debug_mode = 'Y' THEN
6520: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
6521: END IF;
6522:
6523: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6524: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
6535: -------------------------------------------
6536: l_debug_info := 'Set Hold';
6537: -- Print_Debug(l_debug_loc, l_debug_info);
6538: IF g_debug_mode = 'Y' THEN
6539: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
6540: END IF;
6541:
6542: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6543: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
6885: -------------------------------------------
6886: l_debug_info := 'Getting Release Info For Hold';
6887: -- Print_Debug(l_debug_loc, l_debug_info);
6888: IF g_debug_mode = 'Y' THEN
6889: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
6890: END IF;
6891:
6892: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6893: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
6902: -------------------------------------------
6903: l_debug_info := 'Updating AP_HOLDS with release info';
6904: -- Print_Debug(l_debug_loc, l_debug_info);
6905: IF g_debug_mode = 'Y' THEN
6906: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
6907: END IF;
6908:
6909: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6910: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
6960: -------------------------------------------
6961: l_debug_info := 'Adjust the Release Count';
6962: -- Print_Debug(l_debug_loc, l_debug_info);
6963: IF g_debug_mode = 'Y' THEN
6964: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
6965: END IF;
6966:
6967: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6968: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
6981: -------------------------------------------
6982: l_debug_info := 'Sync Invoice Holds Cache';
6983: -- Print_Debug(l_debug_loc, l_debug_info);
6984: IF g_debug_mode = 'Y' THEN
6985: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
6986: END IF;
6987:
6988: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6989: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
7072: -------------------------------------------
7073: l_debug_info := 'Inserting Into AP_HOLDS';
7074: -- Print_Debug(l_debug_loc, l_debug_info);
7075: IF g_debug_mode = 'Y' THEN
7076: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
7077: END IF;
7078:
7079: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7080: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
7133: -------------------------------------------
7134: l_debug_info := 'Select to see if the hold is user releaseable hold';
7135: -- Print_Debug(l_debug_loc, l_debug_info);
7136: IF g_debug_mode = 'Y' THEN
7137: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
7138: END IF;
7139:
7140: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7141: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
7160: -------------------------------------------
7161: l_debug_info := 'Start the Holds Workflow';
7162: -- Print_Debug(l_debug_loc, l_debug_info);
7163: IF g_debug_mode = 'Y' THEN
7164: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
7165: END IF;
7166:
7167: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7168: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
7174: -------------------------------------------
7175: l_debug_info := 'Started the Holds Workflow';
7176: -- Print_Debug(l_debug_loc, l_debug_info);
7177: IF g_debug_mode = 'Y' THEN
7178: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
7179: END IF;
7180:
7181: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7182: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
7194: -------------------------------------------
7195: l_debug_info := 'Adjust the Holds Count';
7196: -- Print_Debug(l_debug_loc, l_debug_info);
7197: IF g_debug_mode = 'Y' THEN
7198: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
7199: END IF;
7200:
7201: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7202: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
7211: -------------------------------------------
7212: l_debug_info := 'Sync Invoice Holds Cache';
7213: -- Print_Debug(l_debug_loc, l_debug_info);
7214: IF g_debug_mode = 'Y' THEN
7215: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
7216: END IF;
7217:
7218: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7219: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
7339: -------------------------------------------
7340: l_debug_info := 'Check hold_code to retrieve release code';
7341: -- Print_Debug(l_debug_loc, l_debug_info);
7342: IF g_debug_mode = 'Y' THEN
7343: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
7344: END IF;
7345:
7346: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7347: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
7461: -------------------------------------------
7462: l_debug_info := 'Invalid Hold Code';
7463: -- Print_Debug(l_debug_loc, l_debug_info);
7464: IF g_debug_mode = 'Y' THEN
7465: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
7466: END IF;
7467:
7468: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7469: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
7545: -------------------------------------------
7546: l_debug_info := 'Retrieving new invoice statuses';
7547: -- Print_Debug(l_debug_loc, l_debug_info);
7548: IF g_debug_mode = 'Y' THEN
7549: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
7550: END IF;
7551:
7552: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7553: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
7624: -------------------------------------------
7625: l_debug_info := 'Update Total Dist Amount';
7626: -- Print_Debug(l_debug_loc, l_debug_info);
7627: IF g_debug_mode = 'Y' THEN
7628: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
7629: END IF;
7630:
7631: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7632: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
8001:
8002: l_debug_info := 'Retro price case';
8003: -- Print_Debug(l_debug_loc,l_debug_info);
8004: IF g_debug_mode = 'Y' THEN
8005: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
8006: END IF;
8007:
8008: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8009: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
8097: ------------------------------------------------------------
8098: l_debug_info := 'Recreate the Payment Schedules: '|| l_invoice_amount;
8099: -- Print_Debug(l_debug_loc,l_debug_info);
8100: IF g_debug_mode = 'Y' THEN
8101: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
8102: END IF;
8103:
8104: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8105: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
8602: -------------------------------------------
8603: l_debug_info := 'createPaymentSchedules - payment schedule count = ' || l_schedule_count;
8604: -- Print_Debug(l_debug_loc, l_debug_info);
8605: IF g_debug_mode = 'Y' THEN
8606: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
8607: END IF;
8608:
8609: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8610: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
8616: -------------------------------------------
8617: l_debug_info := 'Get Required Info From Invoice Header';
8618: -- Print_Debug(l_debug_loc, l_debug_info);
8619: IF g_debug_mode = 'Y' THEN
8620: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
8621: END IF;
8622:
8623: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8624: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
8679: -------------------------------------------
8680: l_debug_info := 'createPaymentSchedules - payment schedule created.';
8681: -- Print_Debug(l_debug_loc, l_debug_info);
8682: IF g_debug_mode = 'Y' THEN
8683: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
8684: END IF;
8685:
8686: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8687: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
8838: -------------------------------------------
8839: l_debug_info := 'Generate Distributions as per the applications registered view';
8840: -- Print_Debug(l_api_name, l_debug_info);
8841: IF g_debug_mode = 'Y' THEN
8842: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
8843: END IF;
8844:
8845: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8846: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8850: -------------------------------------------
8851: l_debug_info := 'P_Registration_View: '||P_Registration_View;
8852: -- Print_Debug(l_api_name, l_debug_info);
8853: IF g_debug_mode = 'Y' THEN
8854: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
8855: END IF;
8856:
8857: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8858: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8864: -------------------------------------------
8865: l_debug_info := 'Open Cursor c_expense_report_dists';
8866: -- Print_Debug(l_api_name, l_debug_info);
8867: IF g_debug_mode = 'Y' THEN
8868: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
8869: END IF;
8870:
8871: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8872: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8883: -------------------------------------------
8884: l_debug_info := 'Exp Report Dists more than zero - setting the amount';
8885: -- Print_Debug(l_api_name, l_debug_info);
8886: IF g_debug_mode = 'Y' THEN
8887: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
8888: END IF;
8889:
8890: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8891: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8908: -------------------------------------------
8909: l_debug_info := 'Exp Report Dists more than zero - setting other attributes';
8910: -- Print_Debug(l_api_name, l_debug_info);
8911: IF g_debug_mode = 'Y' THEN
8912: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
8913: END IF;
8914:
8915: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8916: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9015:
9016: l_debug_info := l_debug_info || ': cannot read account type information';
9017: -- Print_Debug(l_api_name,l_debug_info);
9018: IF g_debug_mode = 'Y' THEN
9019: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
9020: END IF;
9021:
9022: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9023: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9061: -------------------------------------------
9062: l_debug_info := 'Bulk Insert into ap_invoice_distributions';
9063: -- Print_Debug(l_api_name, l_debug_info);
9064: IF g_debug_mode = 'Y' THEN
9065: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
9066: END IF;
9067:
9068: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9069: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9098: -------------------------------------------
9099: l_debug_info := 'Setting generate distributions flag to Done';
9100: -- Print_Debug(l_api_name, l_debug_info);
9101: IF g_debug_mode = 'Y' THEN
9102: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
9103: END IF;
9104:
9105: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9106: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9128: IF (SQLCODE <> -20001) THEN
9129: l_debug_info := 'In others exception '||sqlerrm;
9130: -- Print_Debug(l_api_name,l_debug_info);
9131: IF g_debug_mode = 'Y' THEN
9132: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
9133: END IF;
9134:
9135: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9136: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9359:
9360: ---------------------------------------------------------------------
9361: -- Print_Debug(l_api_name, 'AP_APPROVAL_PKG.BATCH_APPROVAL.BEGIN');
9362: IF g_debug_mode = 'Y' THEN
9363: AP_Debug_Pkg.Print(g_debug_mode, 'AP_APPROVAL_PKG.BATCH_APPROVAL.BEGIN' );
9364: END IF;
9365:
9366: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9367: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'AP_APPROVAL_PKG.BATCH_APPROVAL.BEGIN');
9373:
9374: ---------------------------------------------------------------------
9375: -- Print_Debug(l_api_name, 'Setting null input parameters');
9376: IF g_debug_mode = 'Y' THEN
9377: AP_Debug_Pkg.Print(g_debug_mode, 'Setting null input parameters' );
9378: END IF;
9379:
9380: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9381: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Setting null input parameters');
9391:
9392: ---------------------------------------------------------------------
9393: -- Print_Debug(l_api_name, 'Clean-up validation_request_id');
9394: IF g_debug_mode = 'Y' THEN
9395: AP_Debug_Pkg.Print(g_debug_mode, 'Clean-up validation_request_id' );
9396: END IF;
9397:
9398: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9399: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Clean-up validation_request_id');
9437:
9438: ---------------------------------------------------------------------
9439: -- Print_Debug(l_api_name, 'Cache System Options');
9440: IF g_debug_mode = 'Y' THEN
9441: AP_Debug_Pkg.Print(g_debug_mode, 'Cache System Options' );
9442: END IF;
9443:
9444: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9445: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Cache System Options');
9453: --Bug 9304530 - Added check to exclude already validated invoices
9454: ---------------------------------------------------------------------
9455: -- Print_Debug(l_api_name, 'Check Invoice Validation Status');
9456: IF g_debug_mode = 'Y' THEN
9457: AP_Debug_Pkg.Print(g_debug_mode, 'Check Invoice Validation Status' );
9458: END IF;
9459:
9460: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9461: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Check Invoice Validation Status');
9474:
9475: ---------------------------------------------------------------------
9476: -- Print_Debug(l_api_name, 'Begin Approving Single Invoice');
9477: IF g_debug_mode = 'Y' THEN
9478: AP_Debug_Pkg.Print(g_debug_mode, 'Begin Approving Single Invoice' );
9479: END IF;
9480:
9481: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9482: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Begin Approving Single Invoice');
9527: EXCEPTION
9528: WHEN OTHERS THEN
9529: -- Print_Debug(l_api_name, 'Invoice Number Not Found');
9530: IF g_debug_mode = 'Y' THEN
9531: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice Number Not Found' );
9532: END IF;
9533:
9534: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9535: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Invoice Number Not Found');
9541:
9542: ---------------------------------------------------------------------
9543: -- Print_Debug (l_api_name, 'Calculate Tax');
9544: IF g_debug_mode = 'Y' THEN
9545: AP_Debug_Pkg.Print(g_debug_mode, 'Calculate Tax' );
9546: END IF;
9547:
9548: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9549: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Calculate Tax');
9562:
9563: ----------------------------------------------------------------
9564: -- Print_Debug(l_api_name, 'Initialize Invoice Holds Array');
9565: IF g_debug_mode = 'Y' THEN
9566: AP_Debug_Pkg.Print(g_debug_mode, 'Initialize Invoice Holds Array' );
9567: END IF;
9568:
9569: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9570: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Initialize Invoice Holds Array');
9576:
9577: ---------------------------------------------------------------------
9578: -- Print_Debug (l_api_name, 'Generate Distributions');
9579: IF g_debug_mode = 'Y' THEN
9580: AP_Debug_Pkg.Print(g_debug_mode, 'Generate Distributions' );
9581: END IF;
9582:
9583: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9584: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Generate Distributions');
9606:
9607: ---------------------------------------------------------------------
9608: -- Print_Debug (l_api_name, 'Generate Tax Distributions');
9609: IF g_debug_mode = 'Y' THEN
9610: AP_Debug_Pkg.Print(g_debug_mode, 'Generate Tax Distributions' );
9611: END IF;
9612:
9613: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9614: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Generate Tax Distributions');
9634:
9635: ---------------------------------------------------------------------
9636: -- Print_Debug(l_api_name, 'Approving specified invoice : '||l_invoice_num);
9637: IF g_debug_mode = 'Y' THEN
9638: AP_Debug_Pkg.Print(g_debug_mode, 'Approving specified invoice : '||l_invoice_num );
9639: END IF;
9640:
9641: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9642: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Approving specified invoice : '||l_invoice_num);
9718: fnd_file.put_line(fnd_file.log, fnd_message.get);
9719: -----------------------------------------------------------------
9720: -- Print_Debug(l_api_name, 'Invoice is already approved/cancelled');
9721: IF g_debug_mode = 'Y' THEN
9722: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice is already approved/cancelled' );
9723: END IF;
9724:
9725: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9726: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Invoice is already approved/cancelled');
9731: EXCEPTION -- Bug 13374062
9732: WHEN OTHERS THEN
9733: -- Print_Debug(l_api_name, 'Invoice is locked for update');
9734: IF g_debug_mode = 'Y' THEN
9735: AP_Debug_Pkg.Print(g_debug_mode, 'Invoice is locked for update: invoice_id = '|| l_invoice_id );
9736: END IF;
9737:
9738: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9739: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Invoice is locked for update: invoice id = ' || l_invoice_id);
9743:
9744: ---------------------------------------------------------------------
9745: -- Print_Debug(l_api_name, 'End Approving Single Invoice');
9746: IF g_debug_mode = 'Y' THEN
9747: AP_Debug_Pkg.Print(g_debug_mode, 'End Approving Single Invoice' );
9748: END IF;
9749:
9750: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9751: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'End Approving Single Invoice');
9756:
9757: ---------------------------------------------------------------------
9758: -- Print_Debug(l_api_name, 'Batch Approval Start');
9759: IF g_debug_mode = 'Y' THEN
9760: AP_Debug_Pkg.Print(g_debug_mode, 'Batch Approval Start' );
9761: END IF;
9762:
9763: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9764: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Batch Approval Start');
9930: -- split the string as fndlog cannot handle more than 4000 chars
9931: -- Print_Debug (l_api_name, substr(l_sql_stmt, 1, 4000));
9932: -- Print_Debug (l_api_name, substr(l_sql_stmt, 4001));
9933: IF g_debug_mode = 'Y' THEN
9934: AP_Debug_Pkg.Print(g_debug_mode, substr(l_sql_stmt, 1, 4000) );
9935: AP_Debug_Pkg.Print(g_debug_mode, substr(l_sql_stmt, 4001) );
9936: END IF;
9937:
9938: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9931: -- Print_Debug (l_api_name, substr(l_sql_stmt, 1, 4000));
9932: -- Print_Debug (l_api_name, substr(l_sql_stmt, 4001));
9933: IF g_debug_mode = 'Y' THEN
9934: AP_Debug_Pkg.Print(g_debug_mode, substr(l_sql_stmt, 1, 4000) );
9935: AP_Debug_Pkg.Print(g_debug_mode, substr(l_sql_stmt, 4001) );
9936: END IF;
9937:
9938: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9939: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, substr(l_sql_stmt, 1, 4000));
10028: ---------------------------------------------------------------------
10029: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No. of Invoices selected for Processing: '||l_selected_invoice_ids.count);
10030: -- Print_Debug (l_api_name,'No. of Invoices selected for Processing: '||l_selected_invoice_ids.count);
10031: IF g_debug_mode = 'Y' THEN
10032: AP_Debug_Pkg.Print(g_debug_mode, 'No. of Invoices selected for Processing: '||l_selected_invoice_ids.count );
10033: END IF;
10034:
10035: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10036: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'No. of Invoices selected for Processing: '||l_selected_invoice_ids.count);
10060:
10061: ---------------------------------------------------------------------
10062: -- Print_Debug (l_api_name, 'Calculate Tax');
10063: IF g_debug_mode = 'Y' THEN
10064: AP_Debug_Pkg.Print(g_debug_mode, 'No. of Invoices selected for Processing: '||'Calculate Tax' );
10065: END IF;
10066:
10067: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10068: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Calculate Tax');
10155:
10156: ---------------------------------------------------------------------
10157: -- Print_Debug (l_api_name, 'Set Concurrent Request Warning');
10158: IF g_debug_mode = 'Y' THEN
10159: AP_Debug_Pkg.Print(g_debug_mode, 'Set Concurrent Request Warning' );
10160: END IF;
10161:
10162: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10163: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Set Concurrent Request Warning');
10169:
10170: ---------------------------------------------------------------------
10171: -- Print_Debug (l_api_name, 'Begin Single Mode');
10172: IF g_debug_mode = 'Y' THEN
10173: AP_Debug_Pkg.Print(g_debug_mode, 'Begin Single Mode' );
10174: END IF;
10175:
10176: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Begin Single Mode');
10199:
10200: ---------------------------------------------------------------------
10201: -- Print_Debug (l_api_name, 'Calculate Tax');
10202: IF g_debug_mode = 'Y' THEN
10203: AP_Debug_Pkg.Print(g_debug_mode, 'Calculate Tax' );
10204: END IF;
10205:
10206: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10207: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Calculate Tax');
10222:
10223: ----------------------------------------------------------------
10224: -- Print_Debug(l_api_name, 'Initialize Invoice Holds Array');
10225: IF g_debug_mode = 'Y' THEN
10226: AP_Debug_Pkg.Print(g_debug_mode, 'Initialize Invoice Holds Array' );
10227: END IF;
10228:
10229: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10230: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Initialize Invoice Holds Array');
10238:
10239: ---------------------------------------------------------------------
10240: -- Print_Debug (l_api_name, 'Generate Distributions');
10241: IF g_debug_mode = 'Y' THEN
10242: AP_Debug_Pkg.Print(g_debug_mode, 'Generate Distributions' );
10243: END IF;
10244:
10245: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10246: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Generate Distributions');
10274:
10275: ---------------------------------------------------------------------
10276: -- Print_Debug (l_api_name, 'Generate Tax Distributions');
10277: IF g_debug_mode = 'Y' THEN
10278: AP_Debug_Pkg.Print(g_debug_mode, 'Generate Tax Distributions' );
10279: END IF;
10280:
10281: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10282: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Generate Tax Distributions');
10306: --Bug9436217
10307: ---------------------------------------------------------------------
10308: -- Print_Debug(l_api_name, 'Approving specified invoice : '||l_selected_invoices_cursor(i).invoice_num);
10309: IF g_debug_mode = 'Y' THEN
10310: AP_Debug_Pkg.Print(g_debug_mode, 'Approving specified invoice : '||l_selected_invoices_cursor(i).invoice_num );
10311: END IF;
10312:
10313: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10314: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Approving specified invoice : '||l_selected_invoices_cursor(i).invoice_num);
10382: --Bug9436217
10383: ---------------------------------------------------------------------
10384: -- Print_Debug(l_api_name, 'End Approving Single Invoice');
10385: IF g_debug_mode = 'Y' THEN
10386: AP_Debug_Pkg.Print(g_debug_mode, 'End Approving Single Invoice' );
10387: END IF;
10388:
10389: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10390: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'End Approving Single Invoice');
10406: --Bug9436217
10407: -- Print_Debug (l_api_name, 'Exception: '|| sqlerrm ||' Invoice Validation did not process Invoice Number: '||
10408: -- l_selected_invoices_cursor(i).invoice_num);
10409: IF g_debug_mode = 'Y' THEN
10410: AP_Debug_Pkg.Print(g_debug_mode, 'Exception: '|| sqlerrm ||' Invoice Validation did not process Invoice Number: '||
10411: l_selected_invoices_cursor(i).invoice_num);
10412: END IF;
10413:
10414: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10431: --Bug9436217
10432: -- Print_Debug (l_api_name, 'Exception: '|| sqlerrm ||' Invoice Validation did not process Invoice Number: '||
10433: -- l_selected_invoices_cursor(i).invoice_num);
10434: IF g_debug_mode = 'Y' THEN
10435: AP_Debug_Pkg.Print(g_debug_mode, 'Exception: '|| sqlerrm ||' Invoice Validation did not process Invoice Number: '||
10436: l_selected_invoices_cursor(i).invoice_num);
10437: END IF;
10438:
10439: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10506:
10507: ---------------------------------------------------------------------
10508: -- Print_Debug (l_api_name, 'Generate Distributions');
10509: IF g_debug_mode = 'Y' THEN
10510: AP_Debug_Pkg.Print(g_debug_mode, 'Generate Distributions' );
10511: END IF;
10512:
10513: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10514: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Generate Distributions');
10560:
10561: ---------------------------------------------------------------------
10562: -- Print_Debug (l_api_name, 'Generate Tax Distributions');
10563: IF g_debug_mode = 'Y' THEN
10564: AP_Debug_Pkg.Print(g_debug_mode, 'Generate Tax Distributions' );
10565: END IF;
10566:
10567: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10568: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Generate Tax Distributions');
10642:
10643: ---------------------------------------------------------------------
10644: -- Print_Debug (l_api_name, 'Set Concurrent Request Warning');
10645: IF g_debug_mode = 'Y' THEN
10646: AP_Debug_Pkg.Print(g_debug_mode, 'Set Concurrent Request Warning' );
10647: END IF;
10648:
10649: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10650: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Set Concurrent Request Warning');
10663:
10664: ---------------------------------------------------------------------
10665: -- Print_Debug (l_api_name, 'Begin Single Mode');
10666: IF g_debug_mode = 'Y' THEN
10667: AP_Debug_Pkg.Print(g_debug_mode, 'Begin Single Mode' );
10668: END IF;
10669:
10670: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10671: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Begin Single Mode');
10696: --Bug9436217
10697: ---------------------------------------------------------------------
10698: -- Print_Debug (l_api_name, 'Generate Tax Distributions: '||l_selected_invoices_cursor(i).invoice_id);
10699: IF g_debug_mode = 'Y' THEN
10700: AP_Debug_Pkg.Print(g_debug_mode, 'Generate Tax Distributions: '||l_selected_invoices_cursor(i).invoice_id );
10701: END IF;
10702:
10703: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10704: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Generate Tax Distributions: '||l_selected_invoices_cursor(i).invoice_id);
10730: --Bug9436217
10731: ---------------------------------------------------------------------
10732: -- Print_Debug(l_api_name, 'Approving specified invoice : '||l_selected_invoices_cursor(i).invoice_num);
10733: IF g_debug_mode = 'Y' THEN
10734: AP_Debug_Pkg.Print(g_debug_mode, 'Approving specified invoice : '||l_selected_invoices_cursor(i).invoice_num );
10735: END IF;
10736:
10737: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10738: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Approving specified invoice : '||l_selected_invoices_cursor(i).invoice_num);
10810: --Bug9436217
10811: ---------------------------------------------------------------------
10812: -- Print_Debug(l_api_name, 'End Approving Single Invoice');
10813: IF g_debug_mode = 'Y' THEN
10814: AP_Debug_Pkg.Print(g_debug_mode, 'End Approving Single Invoice' );
10815: END IF;
10816:
10817: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10818: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'End Approving Single Invoice');
10842:
10843: -- Print_Debug (l_api_name, 'Exception: '|| sqlerrm ||' Invoice Validation did not process Invoice Number: '||
10844: -- l_selected_invoices_cursor(i).invoice_num);
10845: IF g_debug_mode = 'Y' THEN
10846: AP_Debug_Pkg.Print(g_debug_mode, 'Exception: '|| sqlerrm ||' Invoice Validation did not process Invoice Number: '||
10847: l_selected_invoices_cursor(i).invoice_num );
10848: END IF;
10849:
10850: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10876:
10877: -- Print_Debug (l_api_name, 'Exception: '|| sqlerrm ||' Invoice Validation did not process Invoice Number: '||
10878: -- l_selected_invoices_cursor(i).invoice_num);
10879: IF g_debug_mode = 'Y' THEN
10880: AP_Debug_Pkg.Print(g_debug_mode, 'Exception: '|| sqlerrm ||' Invoice Validation did not process Invoice Number: '||
10881: l_selected_invoices_cursor(i).invoice_num );
10882: END IF;
10883:
10884: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10947:
10948: ---------------------------------------------------------------------
10949: -- Print_Debug (l_api_name, 'Call Approve per invoice');
10950: IF g_debug_mode = 'Y' THEN
10951: AP_Debug_Pkg.Print(g_debug_mode, 'Call Approve per invoice' );
10952: END IF;
10953:
10954: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10955: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Call Approve per invoice');
11071:
11072: ---------------------------------------------------------------------
11073: -- Print_Debug (l_api_name, 'Populate ap_temp_approval_temp_gt');
11074: IF g_debug_mode = 'Y' THEN
11075: AP_Debug_Pkg.Print(g_debug_mode, 'Populate ap_temp_approval_temp_gt' );
11076: END IF;
11077:
11078: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11079: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Populate ap_temp_approval_temp_gt');
11089:
11090: ---------------------------------------------------------------------
11091: -- Print_Debug (l_api_name, 'Get the count of rows that will be printed');
11092: IF g_debug_mode = 'Y' THEN
11093: AP_Debug_Pkg.Print(g_debug_mode, 'Get the count of rows that will be printed' );
11094: END IF;
11095:
11096: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11097: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get the count of rows that will be printed');
11107: -- moved the call to end of the approval process
11108: ---------------------------------------------------------------------
11109: -- Print_Debug (l_api_name, 'Set Concurrent Request Warning');
11110: IF g_debug_mode = 'Y' THEN
11111: AP_Debug_Pkg.Print(g_debug_mode, 'Set Concurrent Request Warning' );
11112: END IF;
11113:
11114: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11115: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Set Concurrent Request Warning');
11123:
11124: ---------------------------------------------------------------------
11125: -- Print_Debug(l_api_name, 'AP_APPROVAL_PKG.BATCH_APPROVAL.END');
11126: IF g_debug_mode = 'Y' THEN
11127: AP_Debug_Pkg.Print(g_debug_mode, 'AP_APPROVAL_PKG.BATCH_APPROVAL.END' );
11128: END IF;
11129:
11130: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11131: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'AP_APPROVAL_PKG.BATCH_APPROVAL.END');
11141: fnd_file.put_line(fnd_file.log,l_approval_error);
11142: fnd_file.put_line(fnd_file.log,sqlerrm);
11143: -- Print_Debug(l_api_name, 'Exception: '||sqlerrm);
11144: IF g_debug_mode = 'Y' THEN
11145: AP_Debug_Pkg.Print(g_debug_mode, 'Exception: '||sqlerrm );
11146: END IF;
11147:
11148: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11149: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Exception: '||sqlerrm);
11180: fnd_file.put_line(fnd_file.log,l_approval_error);
11181: fnd_file.put_line(fnd_file.log,sqlerrm);
11182: -- Print_Debug(l_api_name, 'Others: Exception: '||sqlerrm);
11183: IF g_debug_mode = 'Y' THEN
11184: AP_Debug_Pkg.Print(g_debug_mode, 'Others: Exception: '||sqlerrm );
11185: END IF;
11186:
11187: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11188: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Others: Exception: '||sqlerrm);
11261: ------------------------------------------------------------
11262: l_debug_info := 'Retrieving system parameters for approval';
11263: -- Print_Debug(l_debug_loc,l_debug_info);
11264: IF g_debug_mode = 'Y' THEN
11265: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
11266: END IF;
11267:
11268: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11269: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
11355: ------------------------------------------------------------
11356: l_debug_info := 'Retrieving Supplier Site Tolerances';
11357: -- Print_Debug(l_debug_loc,l_debug_info);
11358: IF g_debug_mode = 'Y' THEN
11359: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
11360: END IF;
11361:
11362: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11363: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
11498: ----------------------------------------------------------------
11499: l_debug_info := 'Check Line Variance at invoice header level';
11500: -- Print_Debug(l_debug_loc, l_debug_info);
11501: IF g_debug_mode = 'Y' THEN
11502: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
11503: END IF;
11504:
11505: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11506: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
11523: ----------------------------------------------------------------
11524: l_debug_info := 'Calculate Base Amount. Round if no line variance';
11525: -- Print_Debug(l_debug_loc, l_debug_info);
11526: IF g_debug_mode = 'Y' THEN
11527: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
11528: END IF;
11529:
11530: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11531: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
11550: ----------------------------------------------------------------
11551: l_debug_info := 'Bulk Collect Invoice Lines';
11552: -- Print_Debug(l_debug_loc, l_debug_info);
11553: IF g_debug_mode = 'Y' THEN
11554: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
11555: END IF;
11556:
11557: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11558: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
11679: ----------------------------------------------------------------
11680: l_debug_info := 'Create charge allocations ';
11681: -- Print_Debug(l_debug_loc, l_debug_info);
11682: IF g_debug_mode = 'Y' THEN
11683: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
11684: END IF;
11685:
11686: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11687: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
11739: t_inv_lines_table(i).line_number ||' and '||
11740: t_inv_lines_table(i).line_type_lookup_code;
11741: -- Print_Debug(l_debug_loc, l_debug_info);
11742: IF g_debug_mode = 'Y' THEN
11743: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
11744: END IF;
11745:
11746: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11747: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
11766: ----------------------------------------------------------------
11767: l_debug_info := 'Generate Invoice Distributions';
11768: -- Print_Debug(l_debug_loc, l_debug_info);
11769: IF g_debug_mode = 'Y' THEN
11770: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
11771: END IF;
11772:
11773: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11774: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
11798: l_debug_info := 'Insufficient info for invoice line number: '||
11799: t_inv_lines_table(i).line_number;
11800: -- Print_Debug(l_debug_loc, l_debug_info);
11801: IF g_debug_mode = 'Y' THEN
11802: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
11803: END IF;
11804:
11805: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11806: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
11844: ----------------------------------------------------------------
11845: l_debug_info := 'Update Invoice Distributions to SELECTED';
11846: -- Print_Debug(l_debug_loc, l_debug_info);
11847: IF g_debug_mode = 'Y' THEN
11848: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
11849: END IF;
11850:
11851: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11852: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
11867: -----------------------------------------------------------------
11868: -- Print_Debug(l_debug_loc, 'Line Type : '|| t_inv_lines_table(i).line_type_lookup_code );
11869: -- Print_Debug(l_debug_loc, 'Match Type: '|| t_inv_lines_table(i).match_type );
11870: IF g_debug_mode = 'Y' THEN
11871: AP_Debug_Pkg.Print(g_debug_mode, 'Line Type : '|| t_inv_lines_table(i).line_type_lookup_code );
11872: AP_Debug_Pkg.Print(g_debug_mode, 'Match Type: '|| t_inv_lines_table(i).match_type );
11873: END IF;
11874:
11875: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11868: -- Print_Debug(l_debug_loc, 'Line Type : '|| t_inv_lines_table(i).line_type_lookup_code );
11869: -- Print_Debug(l_debug_loc, 'Match Type: '|| t_inv_lines_table(i).match_type );
11870: IF g_debug_mode = 'Y' THEN
11871: AP_Debug_Pkg.Print(g_debug_mode, 'Line Type : '|| t_inv_lines_table(i).line_type_lookup_code );
11872: AP_Debug_Pkg.Print(g_debug_mode, 'Match Type: '|| t_inv_lines_table(i).match_type );
11873: END IF;
11874:
11875: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11876: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,'Line Type : '|| t_inv_lines_table(i).line_type_lookup_code);
11891: ----------------------------------------------------------------
11892: l_debug_info := 'Calculate Exchange Rate and Invoice Price Variance';
11893: -- Print_Debug(l_debug_loc, l_debug_info);
11894: IF g_debug_mode = 'Y' THEN
11895: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
11896: END IF;
11897:
11898: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11899: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
11925: ----------------------------------------------------------------
11926: l_debug_info := 'Adjust Amount Applicable To Discount with Retainage';
11927: -- Print_Debug(l_debug_loc, l_debug_info);
11928: IF g_debug_mode = 'Y' THEN
11929: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
11930: END IF;
11931:
11932: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11933: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
12096: BEGIN
12097:
12098: IF g_debug_mode = 'Y' THEN
12099:
12100: AP_Debug_Pkg.Print(g_debug_mode, p_debug_info );
12101:
12102: END IF;
12103:
12104: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12233: ----------------------------------------------------------------
12234: l_debug_info := 'Bulk Collect Invoice Lines';
12235: -- Print_Debug(l_debug_loc, l_debug_info);
12236: IF g_debug_mode = 'Y' THEN
12237: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
12238: END IF;
12239:
12240: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12241: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
12320: t_inv_lines_table(i).line_number ||' and '||
12321: t_inv_lines_table(i).line_type_lookup_code;
12322: -- Print_Debug(l_debug_loc, l_debug_info);
12323: IF g_debug_mode = 'Y' THEN
12324: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
12325: END IF;
12326:
12327: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12328: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
12352: ----------------------------------------------------------------
12353: l_debug_info := 'Generate Invoice Distributions';
12354: -- Print_Debug(l_debug_loc, l_debug_info);
12355: IF g_debug_mode = 'Y' THEN
12356: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
12357: END IF;
12358:
12359: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12360: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
12384: l_debug_info := 'Insufficient info for invoice line number: '||
12385: t_inv_lines_table(i).line_number;
12386: -- Print_Debug(l_debug_loc, l_debug_info);
12387: IF g_debug_mode = 'Y' THEN
12388: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
12389: END IF;
12390:
12391: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12392: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
12400: ----------------------------------------------------------------
12401: l_debug_info := 'Update Invoice Distributions to SELECTED';
12402: -- Print_Debug(l_debug_loc, l_debug_info);
12403: IF g_debug_mode = 'Y' THEN
12404: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
12405: END IF;
12406:
12407: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12408: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
12422: -----------------------------------------------------------------
12423: -- Print_Debug(l_debug_loc, 'Line Type : '|| t_inv_lines_table(i).line_type_lookup_code );
12424: -- Print_Debug(l_debug_loc, 'Match Type: '|| t_inv_lines_table(i).match_type );
12425: IF g_debug_mode = 'Y' THEN
12426: AP_Debug_Pkg.Print(g_debug_mode, 'Line Type : '|| t_inv_lines_table(i).line_type_lookup_code );
12427: AP_Debug_Pkg.Print(g_debug_mode, 'Match Type: '|| t_inv_lines_table(i).match_type );
12428: END IF;
12429:
12430: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12423: -- Print_Debug(l_debug_loc, 'Line Type : '|| t_inv_lines_table(i).line_type_lookup_code );
12424: -- Print_Debug(l_debug_loc, 'Match Type: '|| t_inv_lines_table(i).match_type );
12425: IF g_debug_mode = 'Y' THEN
12426: AP_Debug_Pkg.Print(g_debug_mode, 'Line Type : '|| t_inv_lines_table(i).line_type_lookup_code );
12427: AP_Debug_Pkg.Print(g_debug_mode, 'Match Type: '|| t_inv_lines_table(i).match_type );
12428: END IF;
12429:
12430: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12431: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,'Line Type : '|| t_inv_lines_table(i).line_type_lookup_code);
12444: ----------------------------------------------------------------
12445: l_debug_info := 'Adjust Amount Applicable To Discount with Retainage';
12446: -- Print_Debug(l_debug_loc, l_debug_info);
12447: IF g_debug_mode = 'Y' THEN
12448: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
12449: END IF;
12450:
12451: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12452: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
12685: l_curr_calling_sequence := l_debug_loc|| '<-' ||P_curr_calling_sequence;
12686:
12687: l_debug_info := 'Check FV installed or not';
12688: IF g_debug_mode = 'Y' THEN
12689: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
12690: END IF;
12691:
12692: IF (AP_INVOICES_UTILITY_PKG.FV_ENABLED) THEN
12693:
12693:
12694: ----------------------------------------------------------------
12695: l_debug_info := 'Select invoice type';
12696: IF g_debug_mode = 'Y' THEN
12697: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
12698: END IF;
12699:
12700: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12701: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);
12711:
12712: ----------------------------------------------------------------
12713: l_debug_info := 'Update Global attributes on distributions';
12714: IF g_debug_mode = 'Y' THEN
12715: AP_Debug_Pkg.Print(g_debug_mode, l_debug_info );
12716: END IF;
12717:
12718: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12719: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,l_debug_info);