[Home] [Help]
9: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_APPROVAL_PKG.';
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_APPROVAL_PKG.';
21:
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_APPROVAL_PKG.';
21:
22: /*===========================================================================
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_APPROVAL_PKG.';
21:
22: /*===========================================================================
23: | Private Global Variable specification
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');
961: END IF;
962:
963:
964: ----------------------------------------------------------------
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);
973: END IF;
974: ----------------------------------------------------------------
975:
976: IF nvl(p_conc_flag,'N') <> '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);
990: END IF;
991: ----------------------------------------------------------------
992: OPEN Invoice_Type_Cur;
993: FETCH Invoice_Type_Cur
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);
1011: END IF;
1012: ----------------------------------------------------------------
1013: OPEN Approve_Pay_Request_Cur;
1014: FETCH Approve_Pay_Request_Cur
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);
1043: END IF;
1044: ----------------------------------------------------------------
1045: OPEN Approve_Invoice_Cur;
1046: FETCH Approve_Invoice_Cur
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);
1077: END IF;
1078: ----------------------------------------------------------------
1079: Cache_Tolerance_Templates(
1080: l_tolerance_id,
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);
1097: END IF;
1098: ----------------------------------------------------------------
1099: Approval_Init(
1100: g_org_id,
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);
1144: END IF;
1145: ----------------------------------------------------------------
1146: Initialize_Invoice_Holds(
1147: p_invoice_id => p_invoice_id,
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);
1171: END IF;
1172: -----------------------------------------------------------------------
1173:
1174: IF Inv_Needs_Approving(
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);
1196: END IF;
1197: ----------------------------------------------------------------
1198: l_success := ap_etax_pkg.calling_etax(
1199: p_invoice_id => l_invoice_id,
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);
1219: END IF;
1220: ----------------------------------------------------------------
1221: OPEN Invoice_Line_Cur(p_invoice_id);
1222: FETCH Invoice_Line_Cur
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);
1246: END IF;
1247: ----------------------------------------------------------------
1248:
1249: --bugfix:6684139/6699825
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);
1273: END IF;
1274: ----------------------------------------------------------------
1275: l_success := ap_etax_pkg.calling_etax(
1276: p_invoice_id => p_invoice_id,
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);
1336: END IF;
1337: ----------------------------------------------------------------
1338: -- Update distributions to SELECTED as new inclusive/exclusive
1339: -- tax distributions could have been created.
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);
1358: END IF;
1359: ----------------------------------------------------------------
1360:
1361: Check_Dist_Variance(
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);
1382: END IF;
1383: ----------------------------------------------------------------
1384: createPaymentSchedules(l_invoice_id, l_curr_calling_sequence);
1385:
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);
1404: END IF;
1405: ----------------------------------------------------------------
1406:
1407: IF ( l_line_variance_hold_exist = TRUE OR
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);
1437: END IF;
1438: ----------------------------------------------------------------
1439: Ap_Extended_Withholding_Pkg.Ap_Ext_Withholding_Default
1440: (p_invoice_id => p_invoice_id,
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);
1471: END IF;
1472: ---------------------------------------------------------------
1473:
1474: IF ( l_line_variance_hold_exist = FALSE AND
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);
1501: END IF;
1502: ---------------------------------------------------------------
1503:
1504: SELECT invoice_amount, base_amount
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);
1519: END IF;
1520: ---------------------------------------------------------------
1521:
1522: SELECT COUNT('X')
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);
1554: END IF;
1555: ---------------------------------------------------------------
1556:
1557: IF (l_inv_base_amount <> l_base_dist_total) 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);
1620: END IF;
1621: ---------------------------------------------------------
1622: ELSE
1623: ---------------------------------------------------------
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);
1632: END IF;
1633: ---------------------------------------------------------
1634: END IF;
1635: END IF; -- IF (l_dist_total = l_inv_amount)
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);
1650: END IF;
1651: ----------------------------------------------------------------
1652: Update_Total_Dist_Amount(l_invoice_id,
1653: l_curr_calling_sequence);
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);
1678: END IF;
1679: ----------------------------------------------------------------
1680: Exclude_Tax_Freight_From_Disc(
1681: l_invoice_id,
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);
1698: END IF;
1699: ----------------------------------------------------------------
1700: Check_Line_Variance(
1701: l_invoice_id,
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);
1721: END IF;
1722: ----------------------------------------------------------------
1723: Execute_General_Checks(
1724: l_invoice_id,
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);
1749: END IF;
1750: ----------------------------------------------------------------
1751: IF l_invoice_type_lookup_code <> 'PO PRICE ADJUST' THEN
1752: AP_APPROVAL_MATCHED_PKG.Exec_Qty_Variance_Check(
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);
1769: END IF;
1770: ----------------------------------------------------------------
1771: AP_APPROVAL_MATCHED_PKG.Exec_Amt_Variance_Check(
1772: p_invoice_id => l_invoice_id,
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);
1788: END IF;
1789: ----------------------------------------------------------------
1790: AP_APPROVAL_MATCHED_PKG.exec_partial_funds_check(
1791: p_invoice_id => l_invoice_id,
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);
1810: END IF;
1811: ----------------------------------------------------------------
1812: AP_APPROVAL_MATCHED_PKG.exec_pay_when_paid_check(
1813: p_invoice_id => l_invoice_id,
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);
1830: END IF;
1831: ----------------------------------------------------------------
1832: AP_APPROVAL_MATCHED_PKG.exec_po_deliverable_check(
1833: p_invoice_id => l_invoice_id,
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);
1849: END IF;
1850: ----------------------------------------------------------------
1851: AP_APPROVAL_MATCHED_PKG.Execute_Matched_Checks(
1852: p_invoice_id => l_invoice_id,
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);
1885: END IF;
1886: ----------------------------------------------------------------
1887: AP_APPROVAL_MATCHED_PKG.Exec_PO_Final_Close(
1888: l_invoice_id,
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);
1908: END IF;
1909: ----------------------------------------------------------------
1910: -- Bug16390854: start
1911:
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);
1951: END IF;
1952: ----------------------------------------------------------------
1953: GMS_AP_API2.verify_create_adls
1954: (l_invoice_id,
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);
1966: END IF;
1967: ----------------------------------------------------------------
1968: Withhold_Tax_On(
1969: l_invoice_id,
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);
1998: END IF;
1999: ----------------------------------------------------------------
2000:
2001: -- bug9038462, changing the criteria for the regeneration of
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);
2028: END IF;
2029: ----------------------------------------------------------------
2030: --Bug 8260168 Start
2031: ----------------------------------------------------------------
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);
2040: END IF;
2041: ----------------------------------------------------------------
2042: Check_Prepaid_Amount(
2043: l_invoice_id,
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);
2062: END IF;
2063: -- Bug 6681580
2064: select count(*)
2065: INTO l_encumbrance_exists
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);
2080: END IF;
2081:
2082: -- bug9553683
2083: Release_fund_holds
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);
2101: END IF;
2102:
2103: AP_FUNDS_CONTROL_PKG.Funds_Reserve(
2104: p_calling_mode,
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);
2204: END IF;
2205: ----------------------------------------------------------------
2206:
2207: --EXECUTE IMMEDIATE
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);
2235: END IF;
2236: ----------------------------------------------------------------
2237: Update_Inv_Dists_To_Approved(
2238: l_invoice_id,
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);
2251: END IF;
2252: ----------------------------------------------------------------
2253: Generate_Account_Event(
2254: l_invoice_id,
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);
2269: END IF;
2270: ----------------------------------------------------------------
2271:
2272: IF (l_recalc_pay_schedule_flag = '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);
2299: END IF;
2300: ----------------------------------------------------------------
2301:
2302: UPDATE ap_invoices_all
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);
2320: END IF;
2321: ----------------------------------------------------------------
2322: CLOSE approve_pay_request_cur;
2323: ELSE
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);
2333: END IF;
2334: ----------------------------------------------------------------
2335: CLOSE approve_invoice_cur;
2336: END IF;
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);
2347: END IF;
2348: ----------------------------------------------------------------
2349: Get_Invoice_Statuses(
2350: l_invoice_id,
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);
2364: END IF;
2365: ----------------------------------------------------------------
2366:
2367: IF p_calling_mode = 'APPROVE' 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);
2388: END IF;
2389: -------------------------------------------------------------------
2390: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
2391: P_Invoice_Type_Lookup_Code => l_inv_header_rec.invoice_type_lookup_code,
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);
2412: END IF;
2413: -----------------------------------------------------------------
2414: --Bug7592845
2415: IF NOT(AP_ETAX_SERVICES_PKG.Freeze_itm_Distributions(
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);
2449: END IF;
2450: -----------------------------------------------------------------
2451: IF l_unfreeze_count > 0 THEN
2452: RAISE TAX_UNFREEZE_EXCEPTION;
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);
2467: END IF;
2468: ----------------------------------------------------------------
2469: l_success := ap_etax_pkg.calling_etax(
2470: p_invoice_id => p_invoice_id,
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);
2505: END IF;
2506: ----------------------------------------------------------------
2507: COMMIT;
2508: END IF;
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');
2518: END IF;
2519:
2520: EXCEPTION
2521: --Bug9021265
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);
2551: END IF;
2552: END LOOP;
2553:
2554: -- Throwing error messages to form to display
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);
2730: END IF;
2731:
2732: SELECT nvl(sp.set_of_books_id, -1),
2733: nvl(recalc_pay_schedule_flag, 'N'),
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);
2767: END IF;
2768:
2769: p_set_of_books_id := AP_APPROVAL_PKG.G_Options_Table(p_org_id).set_of_books_id;
2770: p_recalc_pay_sched_flag := AP_APPROVAL_PKG.G_Options_Table(p_org_id).recalc_pay_schedule_flag;
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);
2792: END IF;
2793:
2794: IF p_invoice_type <> 'PAYMENT REQUEST' THEN
2795:
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);
2905: END IF;
2906:
2907: return(FALSE);
2908: END IF;
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);
2975: END IF;
2976:
2977: UPDATE ap_invoice_distributions_all D
2978: SET match_status_flag = 'S'
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);
3004: END IF;
3005:
3006: UPDATE ap_invoice_distributions_all D
3007: SET match_status_flag = 'S'
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);
3127: END IF;
3128: ----
3129:
3130: IF (p_inv_line_rec.generate_dists = 'Y'
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);
3145: END IF;
3146:
3147: l_should_have_hold := 'Y';
3148: p_insufficient_data_exist := TRUE;
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);
3289: END IF;
3290: ----------------------------------------------------------------------
3291:
3292: IF (Is_Product_Registered(P_application_id => p_inv_line_rec.application_id,
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);
3307: END IF;
3308: ----------------------------------------------------------------------
3309:
3310: l_success := Gen_Dists_From_Registration(
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);
3334: END IF;
3335:
3336: l_success := AP_INVOICE_LINES_PKG.Insert_From_Dist_Set(
3337: X_invoice_id => p_inv_line_rec.invoice_id,
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);
3384: END IF;
3385:
3386: ELSE
3387:
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);
3426: END IF;
3427:
3428: l_success := AP_INVOICE_DISTRIBUTIONS_PKG.Insert_Charge_From_Alloc(
3429: X_invoice_id => p_inv_line_rec.invoice_id,
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);
3472: END IF;
3473:
3474: END IF; -- end of check l_error_code
3475: END IF; -- end of check l_success
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);
3493: END IF;
3494:
3495: l_success := AP_INVOICE_DISTRIBUTIONS_PKG.Insert_AWT_Dist_From_Line(
3496: X_batch_id => p_batch_id,
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);
3544: END IF;
3545:
3546: l_success := AP_INVOICE_DISTRIBUTIONS_PKG.Insert_Single_Dist_From_Line(
3547: X_batch_id => p_batch_id,
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);
3601: END IF;
3602:
3603: END IF; -- end of check l_error_code
3604: END IF; -- end of check l_success
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);
3623: END IF;
3624:
3625: --BUGFIX:5685469
3626: --Need to release the holds (related to distribution generation) placed in earlier calls of
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);
3640: END IF;
3641:
3642: IF ( p_inv_line_rec.distribution_set_id is not null) THEN
3643:
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);
3811: END IF;
3812: ---------------------------------------------------
3813:
3814: -- Bug 7158219
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);
3824: END IF;
3825: ---------------------------------------------------
3826:
3827: Check_Invalid_Dist_Acct(
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);
3844: END IF;
3845: ---------------------------------------------------
3846: Check_PO_Required(
3847: p_invoice_id,
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);
3863: END IF;
3864: ---------------------------------------------------
3865: Check_No_Rate(
3866: p_invoice_id,
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);
3884: END IF;
3885: ---------------------------------------------------
3886:
3887: Select vendor_id,vendor_site_id,
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);
3916: END IF;
3917: ---------------------------------------------------
3918: Check_invoice_vendor(
3919: p_invoice_id,
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);
3956: END IF;
3957: ------------------------------------------------------------------------------------
3958: --bug9296410 the below code is commented here and moved above before the call to "Check_Project_Commitments" to reduce redundency
3959:
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;
3995: ------------------------------------------------------------------------------------
3996: CHECK_GDF_VALID(
3997: P_INVOICE_ID,
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);
4266: END IF;
4267: ---------------------------------------------------
4268: END IF;
4269:
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);
4366: END IF;
4367: ---------------------------------------------------
4368: END IF;
4369:
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);
4459: END IF;
4460:
4461: IF ( l_proj_comm = 'Y' ) THEN
4462:
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);
4472: END IF;
4473: ---------------------------------------------------
4474:
4475: ELSE
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);
4622: END IF;
4623: --------------------------------------------------------
4624:
4625: -- END IF;
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);
4650: END IF;
4651: --------------------------------------------------------
4652:
4653: END IF;
4716:
4717: l_debug_info := 'Before checking vendor is a CCR registered or not ';
4718:
4719: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4720: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info );
4721: END IF;
4722:
4723: P_Vendor_Site_Reg_Expired := 'N';
4724:
4735:
4736: l_debug_info := 'Vendor is CCR registered';
4737: --Bug16247029: Start
4738: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4739: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info );
4740: END IF;
4741: --Bug16247029: End
4742:
4743: l_vndr_ccr_status := AP_UTILITIES_PKG.GET_CCR_REG_STATUS(p_vendor_site_id);
4744:
4745: l_debug_info := 'l_vndr_ccr_status = '|| l_vndr_ccr_status;
4746: --Bug16247029: Start
4747: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4748: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info );
4749: END IF;
4750: --Bug16247029: End
4751:
4752: IF(l_vndr_ccr_status <> 'A') THEN
4765:
4766: l_debug_info := 'l_rmt_vndr_ccr_status = '|| l_vndr_ccr_status;
4767: --Bug16247029: Start
4768: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4769: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info );
4770: END IF;
4771: --Bug16247029: End
4772:
4773: IF(l_vndr_ccr_status <> 'A') THEN
4782: l_debug_info := 'Calling invoice hold process to
4783: put/release holds on invoice';
4784: --Bug16247029: Start
4785: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4786: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info );
4787: END IF;
4788: --Bug16247029: End
4789:
4790: Process_Inv_Hold_Status(
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);
4966: END IF;
4967: --------------------------------------------------------
4968:
4969: Process_Inv_Hold_Status(
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);
5063: END IF;
5064: -----------------------------------------------------
5065:
5066: UPDATE AP_INVOICE_LINES AIL
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);
5109: END IF;
5110: -----------------------------------------------------
5111:
5112: IF ( NVL(p_need_to_round_flag, 'N') = '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);
5257: END IF;
5258: ------------------------------------------------------
5259:
5260: --Bugfix:4625771
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);
5409: END IF;
5410: -------------------------------------------------
5411:
5412: SELECT count(*)
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);
5449: END IF;
5450: -------------------------------------------------
5451:
5452: AP_Accounting_Events_Pkg.Create_Events(
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);
5562: END IF;
5563: -------------------------------------------------
5564: END IF;
5565: IF l_invoice_amount < l_paid_amount THEN -- added as part of bug 833945 to check paid amount should not be greater than invoice amount
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);
5577: END IF;
5578: -------------------------------------------------
5579: END IF; -- end of bug 833945
5580: END LOOP;
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);
5689: END IF;
5690: -------------------------------------------------------
5691:
5692: Process_Inv_Hold_Status(
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);
5714: END IF;
5715: -------------------------------------------------------
5716:
5717: Process_Inv_Hold_Status(
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);
6257: END IF;
6258: ------------------------------------------------------------
6259: --Used the base table insead of secured synonym bug 10171820
6260:
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);
6312: END IF;
6313: ------------------------------------------------------------
6314:
6315: -- BUG 4340061
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);
6448: END IF;
6449:
6450:
6451: Get_Hold_Status(
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);
6477: END IF;
6478: -------------------------------------------
6479:
6480: IF ( check_hold_batch_releaseable(
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);
6509: END IF;
6510: -------------------------------------------
6511:
6512: IF ((p_hold_reason IS NULL) OR
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);
6525: END IF;
6526: -------------------------------------------
6527:
6528: UPDATE ap_holds
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);
6544: END IF;
6545: -------------------------------------------
6546:
6547: Set_Hold(
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);
6894: END IF;
6895: -------------------------------------------
6896:
6897: Get_Release_Lookup_For_Hold(
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);
6911: END IF;
6912: -------------------------------------------
6913: /* Commented this part to put this is a loop (8494768)
6914: -- Bug 8323412 begins
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);
6969: END IF;
6970: -------------------------------------------
6971:
6972: IF (sql%rowcount >0) 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);
6990: END IF;
6991: -------------------------------------------
6992:
6993: initialize_invoice_holds
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);
7081: END IF;
7082: -------------------------------------------
7083:
7084: SELECT ap_holds_s.nextval
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);
7142: END IF;
7143: -------------------------------------------
7144:
7145: SELECT user_releaseable_flag,
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);
7169: END IF;
7170: -------------------------------------------
7171:
7172: AP_WORKFLOW_PKG.create_hold_wf_process(l_hold_id);
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);
7183: END IF;
7184: -------------------------------------------
7185:
7186: END IF;
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);
7203: END IF;
7204: -------------------------------------------
7205: Count_Org_Hold(
7206: p_org_id => g_org_id
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);
7220: END IF;
7221: -------------------------------------------
7222: initialize_invoice_holds
7223: (p_invoice_id => p_invoice_id,
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);
7348: END IF;
7349: -------------------------------------------
7350:
7351:
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);
7470: END IF;
7471: -------------------------------------------
7472:
7473: Raise Invalid_Hold;
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);
7554: END IF;
7555: -------------------------------------------
7556:
7557: OPEN Invoice_Status_Cur;
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);
7633: END IF;
7634: -------------------------------------------
7635:
7636: -- Fix for Bug #5107865. Replaced bulk update with single update for
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);
8010: END IF;
8011:
8012: --Bug9024044: Removed NVL condition from below SUM functions
8013: SELECT sum(amount),
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);
8106: END IF;
8107: ------------------------------------------------------------
8108:
8109: AP_CREATE_PAY_SCHEDS_PKG.AP_Create_From_Terms
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);
8611: END IF;
8612: -------------------------------------------
8613:
8614: if ( l_schedule_count <= 0 ) 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);
8625: END IF;
8626: -------------------------------------------
8627:
8628: BEGIN
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);
8688: END IF;
8689: -------------------------------------------
8690:
8691: end if;
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);
8847: END IF;
8848: -------------------------------------------
8849:
8850: -------------------------------------------
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);
8859: END IF;
8860: -------------------------------------------
8861:
8862: IF (P_Registration_View = 'AP_EXP_REPORT_DISTS') 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);
8873: END IF;
8874: -------------------------------------------
8875:
8876: OPEN c_expense_report_dists;
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);
8892: END IF;
8893: -------------------------------------------
8894:
8895: FOR i IN l_exp_report_dists_tab.first .. l_exp_report_dists_tab.last LOOP
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);
8917: END IF;
8918: -------------------------------------------
8919:
8920: FOR i IN l_exp_report_dists_tab.first .. l_exp_report_dists_tab.last LOOP
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);
9024: END IF;
9025:
9026: RETURN(FALSE);
9027:
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);
9070: END IF;
9071: -------------------------------------------
9072: IF (nvl(l_dist_tab.count,0)<>0) THEN
9073:
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);
9107: END IF;
9108: -------------------------------------------
9109:
9110: IF (nvl(p_generate_permanent,'N') = '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);
9137: END IF;
9138:
9139: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
9140: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
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');
9368: END IF;
9369: ---------------------------------------------------------------------
9370:
9371: ap_approval_pkg.g_validation_request_id := p_conc_request_id;
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');
9382: END IF;
9383: ---------------------------------------------------------------------
9384: l_inv_batch_id := NVL(p_inv_batch_id,-1);
9385: l_vendor_id := NVL(p_vendor_id,-1);
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');
9400: END IF;
9401: ---------------------------------------------------------------------
9402: /* Bug 9777752 : Sl No 4 Change
9403: UPDATE ap_invoices api
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');
9446: END IF;
9447: ---------------------------------------------------------------------
9448: AP_Approval_PKG.Cache_Options(l_curr_calling_sequence);
9449:
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');
9462: END IF;
9463: ---------------------------------------------------------------------
9464:
9465: BEGIN
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');
9483: END IF;
9484: ---------------------------------------------------------------------
9485:
9486: /* 6699825/6684139: Added the AND condition to check if the invoice has any
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');
9536: END IF;
9537: RETURN(FALSE);
9538: END;
9539:
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');
9550: END IF;
9551: ---------------------------------------------------------------------
9552: l_success := ap_etax_pkg.calling_etax(
9553: p_invoice_id => NULL,
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');
9571: END IF;
9572: ----------------------------------------------------------------
9573: Initialize_Invoice_Holds(
9574: p_invoice_id => l_invoice_id,
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');
9585: END IF;
9586: ---------------------------------------------------------------------
9587:
9588: l_invoice_rec.invoice_id := l_invoice_id;
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');
9615: END IF;
9616: ---------------------------------------------------------------------
9617: l_success := ap_etax_pkg.calling_etax (
9618: p_invoice_id => NULL,
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);
9643: END IF;
9644: ---------------------------------------------------------------------
9645:
9646: IF l_validation_request_id = p_conc_request_id 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');
9727: END IF;
9728: -----------------------------------------------------------------
9729: END IF; --if p_approval_status...
9730:
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);
9740: END IF;
9741: RETURN(TRUE);
9742: END;
9743:
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');
9752: END IF;
9753: ---------------------------------------------------------------------
9754:
9755: ELSE -- Invoice_id is null case -- Marker 0
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');
9765: END IF;
9766: ---------------------------------------------------------------------
9767:
9768: /*bug6858309 modified this dynamic update to filter out
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));
9940: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, substr(l_sql_stmt, 4001));
9941: END IF;
9942: -- bug 9054664: modify end
9943: ---------------------------------------------------------------------
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));
9940: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, substr(l_sql_stmt, 4001));
9941: END IF;
9942: -- bug 9054664: modify end
9943: ---------------------------------------------------------------------
9944:
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);
10037: END IF;
10038: ---------------------------------------------------------------------
10039:
10040: IF l_selected_invoice_ids.count > 0 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');
10069: END IF;
10070: ---------------------------------------------------------------------
10071:
10072: SAVEPOINT AP_APPROVAL_PKG_SP_ETAX;
10098: BULK COLLECT INTO l_r_tx_err;
10099: CLOSE c_tx_err;
10100:
10101: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10102: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Rows fetched from GT is ' || l_r_tx_err.count );
10103: END IF ;
10104:
10105: EXIT when (l_r_tx_err.count = 0 OR l_success);
10106:
10116:
10117: FORALL i in 1..l_r_inv_err.count
10118: Update ap_invoices_all set validation_request_id = NULL where invoice_id = l_r_inv_err(i);
10119:
10120: -- Bug 14579876: Moved FND_LOG.String() call above SAVEPOINT
10121: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10122: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Rows updated ' || sql%rowcount);
10123: END IF ;
10124:
10118: Update ap_invoices_all set validation_request_id = NULL where invoice_id = l_r_inv_err(i);
10119:
10120: -- Bug 14579876: Moved FND_LOG.String() call above SAVEPOINT
10121: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10122: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Rows updated ' || sql%rowcount);
10123: END IF ;
10124:
10125: SAVEPOINT AP_APPROVAL_PKG_SP_ETAX; --bug10140354 Added Savepoint
10126:
10135: || ', Line Number: ' || l_r_tx_err(i).trx_line_id);
10136: fnd_file.put_line (fnd_file.log, l_r_tx_err(i).message_text);
10137:
10138: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10139: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Invoice Validation did not process Invoice Id Due to Tax Error:'
10140: || l_r_tx_err(i).trx_id);
10141: END IF;
10142: END LOOP;
10143:
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');
10164: END IF;
10165: ---------------------------------------------------------------------
10166:
10167: l_conc_status := 'WARNING';
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');
10178: END IF;
10179: ---------------------------------------------------------------------
10180: --Bug9436217
10181:
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');
10208: END IF;
10209: ---------------------------------------------------------------------
10210: l_success := ap_etax_pkg.calling_etax(
10211: --Bug9436217
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');
10231: END IF;
10232: ----------------------------------------------------------------
10233: Initialize_Invoice_Holds(
10234: --Bug9436217
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');
10247: END IF;
10248: ---------------------------------------------------------------------
10249:
10250: --Bug9436217
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');
10283: END IF;
10284: ---------------------------------------------------------------------
10285: l_success := ap_etax_pkg.calling_etax (
10286: --Bug9436217
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);
10315: END IF;
10316: ---------------------------------------------------------------------
10317:
10318:
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');
10391: END IF;
10392: ---------------------------------------------------------------------
10393:
10394: EXCEPTION
10411: l_selected_invoices_cursor(i).invoice_num);
10412: END IF;
10413:
10414: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10415: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Exception: '|| sqlerrm ||' Invoice Validation did not process Invoice Number: '||
10416: l_selected_invoices_cursor(i).invoice_num);
10417: END IF;
10418: --Bug9436217
10419:
10436: l_selected_invoices_cursor(i).invoice_num);
10437: END IF;
10438:
10439: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10440: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Exception: '|| sqlerrm ||' Invoice Validation did not process Invoice Number: '||
10441: l_selected_invoices_cursor(i).invoice_num);
10442: END IF;
10443: --Bug9436217
10444:
10473: || ', Line Number: ' || l_r_tx_err(i).trx_line_id);
10474: fnd_file.put_line (fnd_file.log, l_r_tx_err(i).message_text);
10475:
10476: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10477: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Invoice Validation did not process Invoice Id Due to Expected Tax Error:'
10478: || l_r_tx_err(i).trx_id);
10479: END IF;
10480: END LOOP;
10481:
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');
10515: END IF;
10516: ---------------------------------------------------------------------
10517:
10518: OPEN SELECTED_INVOICES_CURSOR;
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');
10569: END IF;
10570: ---------------------------------------------------------------------
10571:
10572: SAVEPOINT AP_APPROVAL_PKG_SP_TAX_DIST;
10608:
10609: FORALL i in 1..l_r_inv_err.count
10610: Update ap_invoices_all set validation_request_id = NULL where invoice_id = l_r_inv_err(i);
10611:
10612: -- Bug 14579876: Moved FND_LOG.String() call above SAVEPOINT
10613: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10614: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Rows updated ' || sql%rowcount);
10615: END IF ;
10616:
10610: Update ap_invoices_all set validation_request_id = NULL where invoice_id = l_r_inv_err(i);
10611:
10612: -- Bug 14579876: Moved FND_LOG.String() call above SAVEPOINT
10613: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10614: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Rows updated ' || sql%rowcount);
10615: END IF ;
10616:
10617: SAVEPOINT AP_APPROVAL_PKG_SP_TAX_DIST; --bug10140354 Added Savepoint
10618:
10627: || ', Line Number: ' || l_r_tx_err(i).trx_line_id);
10628: fnd_file.put_line (fnd_file.log, l_r_tx_err(i).message_text);
10629:
10630: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10631: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Invoice Validation did not process Invoice Id Due to Tax Error in Distribution:'
10632: || l_r_tx_err(i).trx_id);
10633: END IF;
10634: END LOOP;
10635:
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');
10651: END IF;
10652: ---------------------------------------------------------------------
10653:
10654: l_conc_status := 'WARNING';
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');
10672: END IF;
10673: ---------------------------------------------------------------------
10674:
10675: --Bug9436217
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);
10705: END IF;
10706: ---------------------------------------------------------------------
10707: --Bug9436217
10708: l_success := ap_etax_pkg.calling_etax (
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);
10739: END IF;
10740: ---------------------------------------------------------------------
10741: --Bug9436217
10742:
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');
10819: END IF;
10820: ---------------------------------------------------------------------
10821:
10822:
10847: l_selected_invoices_cursor(i).invoice_num );
10848: END IF;
10849:
10850: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10851: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Exception: '|| sqlerrm ||' Invoice Validation did not process Invoice Number: '||
10852: l_selected_invoices_cursor(i).invoice_num);
10853: END IF;
10854:
10855: --Bug9436217
10881: l_selected_invoices_cursor(i).invoice_num );
10882: END IF;
10883:
10884: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10885: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Exception: '|| sqlerrm ||' Invoice Validation did not process Invoice Number: '||
10886: l_selected_invoices_cursor(i).invoice_num);
10887: END IF;
10888:
10889: --Bug9436217
10917: || ', Line Number: ' || l_r_tx_err(i).trx_line_id);
10918: fnd_file.put_line (fnd_file.log, l_r_tx_err(i).message_text);
10919:
10920: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10921: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Invoice Validation did not process Invoice Id Due to Expected Tax Error in Distribution:'
10922: || l_r_tx_err(i).trx_id);
10923: END IF;
10924: END LOOP;
10925:
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');
10956: END IF;
10957: ---------------------------------------------------------------------
10958:
10959: --Bug9436217
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');
11080: END IF;
11081: ---------------------------------------------------------------------
11082:
11083: DELETE FROM ap_temp_approval_gt;
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');
11098: END IF;
11099: ---------------------------------------------------------------------
11100:
11101: SELECT count(*) into p_report_holds_count
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');
11116: END IF;
11117: ---------------------------------------------------------------------
11118: IF l_conc_status = 'WARNING' THEN
11119: l_errbuf := 'Warning/Error message to be displayed';
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');
11132: END IF;
11133: ---------------------------------------------------------------------
11134:
11135: RETURN(TRUE);
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);
11150: END IF;
11151:
11152: --Bug7246971
11153:
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);
11189: END IF;
11190:
11191: --Bug7246971
11192:
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);
11270: END IF;
11271: ------------------------------------------------------------
11272:
11273: OPEN C_Options_Query;
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);
11364: END IF;
11365: ------------------------------------------------------------
11366:
11367: IF p_tolerance_id IS NOT NULL 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);
11507: END IF;
11508:
11509: ----------------------------------------------------------------
11510:
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);
11532: END IF;
11533:
11534: ----------------------------------------------------------------
11535:
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);
11559: END IF;
11560: ----------------------------------------------------------------
11561:
11562: OPEN Invoice_Line_Cur (p_invoice_rec.invoice_id);
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);
11688: END IF;
11689: ----------------------------------------------------------------
11690:
11691: SELECT nvl(prorate_across_all_items,'N')
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);
11748: END IF;
11749: ----------------------------------------------------------------
11750:
11751: Check_Insufficient_Line_Data(
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);
11775: END IF;
11776: ----------------------------------------------------------------
11777:
11778: l_result := Execute_Dist_Generation_Check(
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);
11807: END IF;
11808: ----------------------------------------------------------------
11809: END IF; -- end of sufficient data check
11810: END IF; -- end of line_type_lookup_code check
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);
11853: END IF;
11854: ----------------------------------------------------------------
11855: -- Perf 6759699
11856: -- All the reamining values for the p_run_option is handeled before
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);
11877: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,'Match Type: '|| t_inv_lines_table(i).match_type);
11878: END IF;
11879: -----------------------------------------------------------------
11880: --Bug#10416960. Added RETROITEM 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);
11877: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,'Match Type: '|| t_inv_lines_table(i).match_type);
11878: END IF;
11879: -----------------------------------------------------------------
11880: --Bug#10416960. Added RETROITEM type
11881: IF ( t_inv_lines_table(i).line_type_lookup_code in ('ITEM','RETROITEM','RETAINAGE RELEASE') AND /*Bug 9242891:Added retainage release type*/
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);
11900: END IF;
11901: ----------------------------------------------------------------
11902:
11903: AP_APPROVAL_MATCHED_PKG.Exec_Matched_Variance_Checks(
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);
11934: END IF;
11935: ----------------------------------------------------------------
11936:
11937: update ap_invoices_all
12101:
12102: END IF;
12103:
12104: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12105: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||p_api_name,p_debug_info);
12106: END IF;
12107: END Print_Debug;
12108:
12109: /*=============================================================================
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);
12242: END IF;
12243: ----------------------------------------------------------------
12244:
12245: OPEN invoice_line_mawt_cur (p_invoice_rec.invoice_id);
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);
12329: END IF;
12330: ----------------------------------------------------------------
12331:
12332: Check_Insufficient_Line_Data(
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);
12361: END IF;
12362: ----------------------------------------------------------------
12363:
12364: l_result := Execute_Dist_Generation_Check(
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);
12393: END IF;
12394: ----------------------------------------------------------------
12395: END IF; -- end of sufficient data check
12396: END IF; -- end of line_type_lookup_code check
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);
12409: END IF;
12410: ----------------------------------------------------------------
12411: -- All the reamining values for the p_run_option is handeled before
12412: -- the loop. If the line number is passed then it will use proper index.This will
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);
12432: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,'Match Type: '|| t_inv_lines_table(i).match_type);
12433: END IF;
12434: -----------------------------------------------------------------
12435:
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);
12432: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_debug_loc,'Match Type: '|| t_inv_lines_table(i).match_type);
12433: END IF;
12434: -----------------------------------------------------------------
12435:
12436: END IF;
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);
12453: END IF;
12454: ----------------------------------------------------------------
12455:
12456: UPDATE ap_invoices_all
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);
12702: END IF;
12703: ----------------------------------------------------------------
12704:
12705: SELECT INVOICE_TYPE_LOOKUP_CODE
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);
12720: END IF;
12721: ----------------------------------------------------------------
12722:
12723: UPDATE AP_INVOICE_DISTRIBUTIONS AID
12802: l_curr_calling_sequence := 'AP_APPROVAL_PKG.CHECK_GDF_VALID <-'||p_calling_sequence;
12803: l_debug_info := 'Before initializing holds';
12804:
12805: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12806: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info);
12807: END IF;
12808: INITIALIZE_INVOICE_HOLDS
12809: (p_invoice_id => p_invoice_id,
12810: p_calling_sequence => l_curr_calling_sequence);
12810: p_calling_sequence => l_curr_calling_sequence);
12811:
12812: l_debug_info := 'Before calling FV API to check GDF validity';
12813: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12814: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info );
12815: END IF;
12816:
12817: AP_INVOICES_UTILITY_PKG.CHECK_GDF_VALID
12818: (P_INVOICE_ID, --P_id
12825: l_debug_info := 'Calling invoice hold process to
12826: put/release holds on invoice';
12827: --Bug16247029: Start
12828: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12829: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info );
12830: END IF;
12831: --Bug16247029: End
12832:
12833: PROCESS_INV_HOLD_STATUS(