[Home] [Help]
5: -- Package constants
6: -- ***********************
7: g_pkg_name CONSTANT VARCHAR2(30) := 'fem_pl_pkg';
8:
9: g_ret_sts_success CONSTANT VARCHAR2(1):= fnd_api.g_ret_sts_success;
10: g_ret_sts_error CONSTANT VARCHAR2(1):= fnd_api.g_ret_sts_error;
11: g_ret_sts_unexp_error CONSTANT VARCHAR2(1):= fnd_api.g_ret_sts_unexp_error;
12:
13: c_resp_app_id CONSTANT NUMBER := FND_GLOBAL.RESP_APPL_ID;
6: -- ***********************
7: g_pkg_name CONSTANT VARCHAR2(30) := 'fem_pl_pkg';
8:
9: g_ret_sts_success CONSTANT VARCHAR2(1):= fnd_api.g_ret_sts_success;
10: g_ret_sts_error CONSTANT VARCHAR2(1):= fnd_api.g_ret_sts_error;
11: g_ret_sts_unexp_error CONSTANT VARCHAR2(1):= fnd_api.g_ret_sts_unexp_error;
12:
13: c_resp_app_id CONSTANT NUMBER := FND_GLOBAL.RESP_APPL_ID;
14:
7: g_pkg_name CONSTANT VARCHAR2(30) := 'fem_pl_pkg';
8:
9: g_ret_sts_success CONSTANT VARCHAR2(1):= fnd_api.g_ret_sts_success;
10: g_ret_sts_error CONSTANT VARCHAR2(1):= fnd_api.g_ret_sts_error;
11: g_ret_sts_unexp_error CONSTANT VARCHAR2(1):= fnd_api.g_ret_sts_unexp_error;
12:
13: c_resp_app_id CONSTANT NUMBER := FND_GLOBAL.RESP_APPL_ID;
14:
15: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
71: -- 2. Initialize FND_MSG_PUB message queue if necessary.
72: -- ==========================================================================
73:
74: -- Check for call compatibility.
75: IF NOT FND_API.Compatible_API_Call (
76: p_current_version_number => p_current_api_version,
77: p_caller_version_number => p_caller_api_version,
78: p_api_name => p_api_name,
79: p_pkg_name => p_api_name) THEN
83: p_module => C_MODULE,
84: p_msg_text => 'INTERNAL ERROR: API Version ('||p_current_api_version||') not compatible with '
85: ||'passed in version ('||p_caller_api_version||')');
86: END IF;
87: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
88: END IF;
89:
90: -- Initialize FND message queue
91: IF p_init_msg_list = FND_API.G_TRUE then
87: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
88: END IF;
89:
90: -- Initialize FND message queue
91: IF p_init_msg_list = FND_API.G_TRUE then
92: FND_MSG_PUB.Initialize;
93: END IF;
94:
95: END Perform_Standard_API_Steps;
200: -- ******************************************************************************
201:
202: PROCEDURE effective_date_incl_rslt_data (
203: p_api_version IN NUMBER,
204: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
205: p_encoded IN VARCHAR2 DEFAULT FND_API.G_TRUE,
206: x_return_status OUT NOCOPY VARCHAR2,
207: x_msg_count OUT NOCOPY NUMBER,
208: x_msg_data OUT NOCOPY VARCHAR2,
201:
202: PROCEDURE effective_date_incl_rslt_data (
203: p_api_version IN NUMBER,
204: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
205: p_encoded IN VARCHAR2 DEFAULT FND_API.G_TRUE,
206: x_return_status OUT NOCOPY VARCHAR2,
207: x_msg_count OUT NOCOPY NUMBER,
208: x_msg_data OUT NOCOPY VARCHAR2,
209: p_object_definition_id IN NUMBER,
335: x_msg_data OUT NOCOPY VARCHAR2,
336: x_date_incl_rslt_data OUT NOCOPY VARCHAR2) IS
337: -- ==========================================================================
338: -- API signature kept for backward compatibility. It simply calls the
339: -- effective_date_incl_rslt_data that follows the FND API standards.
340: -- ==========================================================================
341: v_return_status VARCHAR2(1);
342: BEGIN
343: effective_date_incl_rslt_data (
415: -- ***************************************************************************
416:
417: PROCEDURE can_delete_object_def (
418: p_api_version IN NUMBER,
419: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
420: p_encoded IN VARCHAR2 DEFAULT FND_API.G_TRUE,
421: x_return_status OUT NOCOPY VARCHAR2,
422: x_msg_count OUT NOCOPY NUMBER,
423: x_msg_data OUT NOCOPY VARCHAR2,
416:
417: PROCEDURE can_delete_object_def (
418: p_api_version IN NUMBER,
419: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
420: p_encoded IN VARCHAR2 DEFAULT FND_API.G_TRUE,
421: x_return_status OUT NOCOPY VARCHAR2,
422: x_msg_count OUT NOCOPY NUMBER,
423: x_msg_data OUT NOCOPY VARCHAR2,
424: p_object_definition_id IN NUMBER,
679: p_process_type IN NUMBER DEFAULT NULL,
680: p_calling_program IN VARCHAR2 DEFAULT NULL) IS
681: -- ==========================================================================
682: -- API signature kept for backward compatibility. It simply calls the
683: -- can_delete_object_def that follows the FND API standards.
684: -- ==========================================================================
685: v_return_status VARCHAR2(1);
686: BEGIN
687: can_delete_object_def (
698: -- **************************************************************************
699:
700: PROCEDURE can_delete_object (
701: p_api_version IN NUMBER,
702: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
703: p_encoded IN VARCHAR2 DEFAULT FND_API.G_TRUE,
704: x_return_status OUT NOCOPY VARCHAR2,
705: x_msg_count OUT NOCOPY NUMBER,
706: x_msg_data OUT NOCOPY VARCHAR2,
699:
700: PROCEDURE can_delete_object (
701: p_api_version IN NUMBER,
702: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
703: p_encoded IN VARCHAR2 DEFAULT FND_API.G_TRUE,
704: x_return_status OUT NOCOPY VARCHAR2,
705: x_msg_count OUT NOCOPY NUMBER,
706: x_msg_data OUT NOCOPY VARCHAR2,
707: p_object_id IN NUMBER,
783: -- See bug 4600065 for details of this issue.
784: FOR adef IN c1 LOOP
785: can_delete_object_def(
786: p_api_version => 1.0,
787: p_init_msg_list => FND_API.G_FALSE,
788: p_encoded => p_encoded,
789: x_return_status => v_return_status,
790: x_msg_count => x_msg_count,
791: x_msg_data => x_msg_data,
937: x_msg_count OUT NOCOPY NUMBER,
938: x_msg_data OUT NOCOPY VARCHAR2) IS
939: -- ==========================================================================
940: -- API signature kept for backward compatibility. It simply calls the
941: -- can_delete_object that follows the FND API standards.
942: -- ==========================================================================
943: v_return_status VARCHAR2(1);
944: BEGIN
945: can_delete_object (
1207:
1208: END obj_execution_lock_exists;
1209: -- ******************************************************************************
1210: PROCEDURE register_object_execution (p_api_version IN NUMBER,
1211: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1212: p_request_id IN NUMBER,
1213: p_object_id IN NUMBER,
1214: p_exec_object_definition_id IN NUMBER,
1215: p_user_id IN NUMBER,
1290: -- Standard Start of API savepoint
1291: SAVEPOINT register_object_execution_pub;
1292:
1293: -- Standard call to check for call compatibility.
1294: IF NOT FND_API.Compatible_API_Call (l_api_version,
1295: p_api_version,
1296: l_api_name,
1297: g_pkg_name)
1298: THEN
1295: p_api_version,
1296: l_api_name,
1297: g_pkg_name)
1298: THEN
1299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1300: END IF;
1301:
1302: -- Initialize API return status to success
1303: x_return_status := G_RET_STS_SUCCESS;
1417:
1418: -- Register definition of executed object
1419: register_object_def(
1420: p_api_version => 1.0,
1421: p_commit => FND_API.G_FALSE,
1422: p_request_id => p_request_id,
1423: p_object_id => p_object_id,
1424: p_object_definition_id => p_exec_object_definition_id,
1425: p_user_id => p_user_id,
1478: fem_engines_pkg.tech_message(p_severity => c_log_level_3,
1479: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
1480: p_msg_text => 'End. Object execution already registered. X_RETURN_STATUS:'||x_return_status);
1481:
1482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1483: ROLLBACK TO register_object_execution_pub;
1484: x_return_status := g_ret_sts_unexp_error;
1485:
1486: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
1530:
1531: END register_object_execution;
1532: -- ******************************************************************************
1533: PROCEDURE register_request (p_api_version IN NUMBER,
1534: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1535: p_cal_period_id IN NUMBER DEFAULT NULL,
1536: p_ledger_id IN NUMBER DEFAULT NULL,
1537: p_dataset_io_obj_def_id IN NUMBER DEFAULT NULL,
1538: p_output_dataset_code IN NUMBER DEFAULT NULL,
1585: -- Standard Start of API savepoint
1586: SAVEPOINT register_request_pub;
1587:
1588: -- Standard call to check for call compatibility.
1589: IF NOT FND_API.Compatible_API_Call (l_api_version,
1590: p_api_version,
1591: l_api_name,
1592: g_pkg_name)
1593: THEN
1590: p_api_version,
1591: l_api_name,
1592: g_pkg_name)
1593: THEN
1594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1595: END IF;
1596:
1597: -- Initialize API return status to success
1598: x_return_status := G_RET_STS_SUCCESS;
1611: p_effective_date, p_cal_period_id, p_ledger_id, p_dataset_io_obj_def_id,
1612: p_output_dataset_code, p_source_system_code,p_exec_mode_code, p_dimension_id,
1613: p_table_name, p_hierarchy_name);
1614:
1615: IF FND_API.To_Boolean( p_commit ) THEN
1616: COMMIT WORK;
1617: END IF;
1618:
1619: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
1628: EXCEPTION
1629: WHEN DUP_VAL_ON_INDEX THEN
1630: NULL;
1631:
1632: IF FND_API.To_Boolean( p_commit ) THEN
1633: COMMIT WORK;
1634: ELSE
1635: ROLLBACK TO register_request_pub;
1636: END IF;
1638: fem_engines_pkg.tech_message(p_severity => c_log_level_3,
1639: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
1640: p_msg_text => 'End. Request already registered. X_RETURN_STATUS:'||x_return_status);
1641:
1642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1643: ROLLBACK TO register_request_pub;
1644: x_return_status := g_ret_sts_unexp_error;
1645:
1646: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
1654:
1655: END register_request;
1656: -- ******************************************************************************
1657: PROCEDURE unregister_request (p_api_version IN NUMBER,
1658: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1659: p_request_id IN NUMBER,
1660: x_msg_count OUT NOCOPY NUMBER,
1661: x_msg_data OUT NOCOPY VARCHAR2,
1662: x_return_status OUT NOCOPY VARCHAR2) IS
1685: -- Standard Start of API savepoint
1686: SAVEPOINT unregister_request_pub;
1687:
1688: -- Standard call to check for call compatibility.
1689: IF NOT FND_API.Compatible_API_Call (l_api_version,
1690: p_api_version,
1691: l_api_name,
1692: g_pkg_name)
1693: THEN
1690: p_api_version,
1691: l_api_name,
1692: g_pkg_name)
1693: THEN
1694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1695: END IF;
1696:
1697: -- Initialize API return status to success
1698: x_return_status := G_RET_STS_SUCCESS;
1712: x_return_status := G_RET_STS_ERROR;
1713:
1714: END IF;
1715:
1716: IF FND_API.To_Boolean( p_commit ) THEN
1717: COMMIT WORK;
1718: END IF;
1719:
1720: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
1721: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
1722: p_msg_text => 'End. X_RETURN_STATUS: '||x_return_status);
1723:
1724: EXCEPTION
1725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1726: ROLLBACK TO unregister_request_pub;
1727: x_return_status := g_ret_sts_unexp_error;
1728:
1729: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
1733:
1734: END unregister_request;
1735: -- ******************************************************************************
1736: PROCEDURE update_request_status (p_api_version IN NUMBER,
1737: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1738: p_request_id IN NUMBER,
1739: p_exec_status_code IN VARCHAR2,
1740: p_user_id IN NUMBER,
1741: p_last_update_login IN NUMBER,
1756: -- Standard Start of API savepoint
1757: SAVEPOINT update_request_status_pub;
1758:
1759: -- Standard call to check for call compatibility.
1760: IF NOT FND_API.Compatible_API_Call (l_api_version,
1761: p_api_version,
1762: l_api_name,
1763: g_pkg_name)
1764: THEN
1761: p_api_version,
1762: l_api_name,
1763: g_pkg_name)
1764: THEN
1765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1766: END IF;
1767:
1768: -- Initialize API return status to success
1769: x_return_status := G_RET_STS_SUCCESS;
1772: last_updated_by = p_user_id, last_update_date = sysdate,
1773: last_update_login = p_last_update_login
1774: WHERE request_id = p_request_id;
1775:
1776: IF FND_API.To_Boolean( p_commit ) THEN
1777: COMMIT WORK;
1778: END IF;
1779:
1780: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
1781: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
1782: p_msg_text => 'End. X_RETURN_STATUS: '||x_return_status);
1783:
1784: EXCEPTION
1785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1786: ROLLBACK TO update_request_status_pub;
1787: x_return_status := g_ret_sts_unexp_error;
1788:
1789: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
1793:
1794: END update_request_status;
1795: -- ******************************************************************************
1796: PROCEDURE update_obj_exec_status (p_api_version IN NUMBER,
1797: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1798: p_request_id IN NUMBER,
1799: p_object_id IN NUMBER,
1800: p_exec_status_code IN VARCHAR2,
1801: p_user_id IN NUMBER,
1818: -- Standard Start of API savepoint
1819: SAVEPOINT update_obj_exec_status_pub;
1820:
1821: -- Standard call to check for call compatibility.
1822: IF NOT FND_API.Compatible_API_Call (l_api_version,
1823: p_api_version,
1824: l_api_name,
1825: g_pkg_name)
1826: THEN
1823: p_api_version,
1824: l_api_name,
1825: g_pkg_name)
1826: THEN
1827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1828: END IF;
1829:
1830: -- Initialize API return status to success
1831: x_return_status := G_RET_STS_SUCCESS;
1835: last_update_login = p_last_update_login
1836: WHERE request_id = p_request_id
1837: AND object_id = p_object_id;
1838:
1839: IF FND_API.To_Boolean( p_commit ) THEN
1840: COMMIT WORK;
1841: END IF;
1842:
1843: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
1844: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
1845: p_msg_text => 'End. X_RETURN_STATUS: '||x_return_status);
1846:
1847: EXCEPTION
1848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1849: ROLLBACK TO update_obj_exec_status_pub;
1850: x_return_status := g_ret_sts_unexp_error;
1851:
1852: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
1856:
1857: END update_obj_exec_status;
1858: -- ******************************************************************************
1859: PROCEDURE update_obj_exec_errors (p_api_version IN NUMBER,
1860: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1861: p_request_id IN NUMBER,
1862: p_object_id IN NUMBER,
1863: p_errors_reported IN NUMBER,
1864: p_errors_reprocessed IN NUMBER,
1883: -- Standard Start of API savepoint
1884: SAVEPOINT update_obj_exec_errors_pub;
1885:
1886: -- Standard call to check for call compatibility.
1887: IF NOT FND_API.Compatible_API_Call (l_api_version,
1888: p_api_version,
1889: l_api_name,
1890: g_pkg_name)
1891: THEN
1888: p_api_version,
1889: l_api_name,
1890: g_pkg_name)
1891: THEN
1892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1893: END IF;
1894:
1895: -- Initialize API return status to success
1896: x_return_status := G_RET_STS_SUCCESS;
1902: last_update_login = p_last_update_login
1903: WHERE request_id = p_request_id
1904: AND object_id = p_object_id;
1905:
1906: IF FND_API.To_Boolean( p_commit ) THEN
1907: COMMIT WORK;
1908: END IF;
1909:
1910: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
1911: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
1912: p_msg_text => 'End. X_RETURN_STATUS: '||x_return_status);
1913:
1914: EXCEPTION
1915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1916: ROLLBACK TO update_obj_exec_errors_pub;
1917: x_return_status := g_ret_sts_unexp_error;
1918:
1919: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
1923:
1924: END update_obj_exec_errors;
1925: -- ******************************************************************************
1926: PROCEDURE register_object_def (p_api_version IN NUMBER,
1927: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1928: p_request_id IN NUMBER,
1929: p_object_id IN NUMBER,
1930: p_object_definition_id IN NUMBER,
1931: p_user_id IN NUMBER,
1948: -- Standard Start of API savepoint
1949: SAVEPOINT register_object_def_pub;
1950:
1951: -- Standard call to check for call compatibility.
1952: IF NOT FND_API.Compatible_API_Call (l_api_version,
1953: p_api_version,
1954: l_api_name,
1955: g_pkg_name)
1956: THEN
1953: p_api_version,
1954: l_api_name,
1955: g_pkg_name)
1956: THEN
1957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1958: END IF;
1959:
1960: -- Initialize API return status to success
1961: x_return_status := G_RET_STS_SUCCESS;
1969: FROM fem_pl_object_executions
1970: WHERE request_id = p_request_id
1971: AND object_id = p_object_id;
1972:
1973: IF FND_API.To_Boolean( p_commit ) THEN
1974: COMMIT WORK;
1975: END IF;
1976:
1977: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
1980:
1981: EXCEPTION
1982: WHEN DUP_VAL_ON_INDEX THEN
1983: NULL;
1984: IF FND_API.To_Boolean( p_commit ) THEN
1985: COMMIT WORK;
1986: ELSE
1987: ROLLBACK TO register_object_def_pub;
1988: END IF;
1989: fem_engines_pkg.tech_message(p_severity => c_log_level_3,
1990: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
1991: p_msg_text => 'End. Object definition already registered. X_RETURN_STATUS: '||x_return_status);
1992:
1993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1994: ROLLBACK TO register_object_def_pub;
1995: x_return_status := g_ret_sts_unexp_error;
1996:
1997: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2001:
2002: END register_object_def;
2003: -- ******************************************************************************
2004: PROCEDURE register_dependent_objdefs (p_api_version IN NUMBER,
2005: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2006: p_request_id IN NUMBER,
2007: p_object_id IN NUMBER,
2008: p_exec_object_definition_id IN NUMBER,
2009: p_effective_date IN DATE,
2049: -- Standard Start of API savepoint
2050: SAVEPOINT register_dependent_objdefs_pub;
2051:
2052: -- Standard call to check for call compatibility.
2053: IF NOT FND_API.Compatible_API_Call (l_api_version,
2054: p_api_version,
2055: l_api_name,
2056: g_pkg_name)
2057: THEN
2054: p_api_version,
2055: l_api_name,
2056: g_pkg_name)
2057: THEN
2058: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2059: END IF;
2060:
2061: -- Initialize API return status to success
2062: x_return_status := G_RET_STS_SUCCESS;
2071: AND approval_status_code NOT IN ('SUBMIT_APPROVAL','SUBMIT_DELETE');
2072:
2073: register_object_def(
2074: p_api_version => 1.0,
2075: p_commit => FND_API.G_FALSE,
2076: p_request_id => p_request_id,
2077: p_object_id => p_object_id,
2078: p_object_definition_id => v_object_definition_id,
2079: p_user_id => p_user_id,
2087: END IF;
2088:
2089: END LOOP;
2090:
2091: IF FND_API.To_Boolean( p_commit ) THEN
2092: COMMIT WORK;
2093: END IF;
2094:
2095: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
2117: FND_MSG_PUB.Count_And_Get
2118: (p_count => x_msg_count,
2119: p_data => x_msg_data);
2120:
2121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2122: ROLLBACK TO register_dependent_objdefs_pub;
2123: x_return_status := g_ret_sts_unexp_error;
2124:
2125: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2129:
2130: END register_dependent_objdefs;
2131: -- ******************************************************************************
2132: PROCEDURE register_table (p_api_version IN NUMBER,
2133: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2134: p_request_id IN NUMBER,
2135: p_object_id IN NUMBER,
2136: p_table_name IN VARCHAR2,
2137: p_statement_type IN VARCHAR2,
2158: -- Standard Start of API savepoint
2159: SAVEPOINT register_table_pub;
2160:
2161: -- Standard call to check for call compatibility.
2162: IF NOT FND_API.Compatible_API_Call (l_api_version,
2163: p_api_version,
2164: l_api_name,
2165: g_pkg_name)
2166: THEN
2163: p_api_version,
2164: l_api_name,
2165: g_pkg_name)
2166: THEN
2167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2168: END IF;
2169:
2170: -- Initialize API return status to success
2171: x_return_status := G_RET_STS_SUCCESS;
2180: FROM fem_pl_object_executions
2181: WHERE request_id = p_request_id
2182: AND object_id = p_object_id;
2183:
2184: IF FND_API.To_Boolean( p_commit ) THEN
2185: COMMIT WORK;
2186: END IF;
2187:
2188: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
2191:
2192: EXCEPTION
2193: WHEN DUP_VAL_ON_INDEX THEN
2194: NULL;
2195: IF FND_API.To_Boolean( p_commit ) THEN
2196: COMMIT WORK;
2197: ELSE
2198: ROLLBACK TO register_table_pub;
2199: END IF;
2199: END IF;
2200: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2201: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
2202: p_msg_text => 'End. Table already registered. X_RETURN_STATUS: '||x_return_status);
2203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2204: ROLLBACK TO register_table_pub;
2205: x_return_status := g_ret_sts_unexp_error;
2206:
2207: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2211:
2212: END register_table;
2213: -- ******************************************************************************
2214: PROCEDURE update_num_of_output_rows (p_api_version IN NUMBER,
2215: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2216: p_request_id IN NUMBER,
2217: p_object_id IN NUMBER,
2218: p_table_name IN VARCHAR2,
2219: p_statement_type IN VARCHAR2,
2242: -- Standard Start of API savepoint
2243: SAVEPOINT update_num_of_output_rows_pub;
2244:
2245: -- Standard call to check for call compatibility.
2246: IF NOT FND_API.Compatible_API_Call (l_api_version,
2247: p_api_version,
2248: l_api_name,
2249: g_pkg_name)
2250: THEN
2247: p_api_version,
2248: l_api_name,
2249: g_pkg_name)
2250: THEN
2251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2252: END IF;
2253:
2254: -- Initialize API return status to unexp error
2255: x_return_status := G_RET_STS_UNEXP_ERROR;
2320: END IF; -- rowcount > 0
2321: END IF; -- v_object_type_code
2322: END IF; -- p_num_of_output_rows > 0
2323:
2324: IF FND_API.To_Boolean( p_commit ) THEN
2325: COMMIT WORK;
2326: END IF;
2327:
2328: -- Update API return status to success
2332: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
2333: p_msg_text => 'End. X_RETURN_STATUS: '||x_return_status);
2334:
2335: EXCEPTION
2336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2337: ROLLBACK TO update_num_of_output_rows_pub;
2338: x_return_status := g_ret_sts_unexp_error;
2339:
2340: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2344:
2345: END update_num_of_output_rows;
2346: -- ******************************************************************************
2347: PROCEDURE register_updated_column (p_api_version IN NUMBER,
2348: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2349: p_request_id IN NUMBER,
2350: p_object_id IN NUMBER,
2351: p_table_name IN VARCHAR2,
2352: p_statement_type IN VARCHAR2,
2373: -- Standard Start of API savepoint
2374: SAVEPOINT register_updated_column_pub;
2375:
2376: -- Standard call to check for call compatibility.
2377: IF NOT FND_API.Compatible_API_Call (l_api_version,
2378: p_api_version,
2379: l_api_name,
2380: g_pkg_name)
2381: THEN
2378: p_api_version,
2379: l_api_name,
2380: g_pkg_name)
2381: THEN
2382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2383: END IF;
2384:
2385: -- Initialize API return status to success
2386: x_return_status := G_RET_STS_SUCCESS;
2398: AND object_id = p_object_id
2399: AND table_name = p_table_name
2400: AND statement_type = p_statement_type;
2401:
2402: IF FND_API.To_Boolean( p_commit ) THEN
2403: COMMIT WORK;
2404: END IF;
2405:
2406: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
2409:
2410: EXCEPTION
2411: WHEN DUP_VAL_ON_INDEX THEN
2412: NULL;
2413: IF FND_API.To_Boolean( p_commit ) THEN
2414: COMMIT WORK;
2415: ELSE
2416: ROLLBACK TO register_updated_column_pub;
2417: END IF;
2418: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2419: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
2420: p_msg_text => 'End. Updated column already registered. X_RETURN_STATUS:'||x_return_status);
2421:
2422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2423: ROLLBACK TO register_updated_column_pub;
2424: x_return_status := g_ret_sts_unexp_error;
2425:
2426: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2430:
2431: END register_updated_column;
2432: -- ******************************************************************************
2433: PROCEDURE register_chain (p_api_version IN NUMBER,
2434: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2435: p_request_id IN NUMBER,
2436: p_object_id IN NUMBER,
2437: p_source_created_by_request_id IN NUMBER,
2438: p_source_created_by_object_id IN NUMBER,
2457: -- Standard Start of API savepoint
2458: SAVEPOINT register_chain_pub;
2459:
2460: -- Standard call to check for call compatibility.
2461: IF NOT FND_API.Compatible_API_Call (l_api_version,
2462: p_api_version,
2463: l_api_name,
2464: g_pkg_name)
2465: THEN
2462: p_api_version,
2463: l_api_name,
2464: g_pkg_name)
2465: THEN
2466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2467: END IF;
2468:
2469: -- Initialize API return status to success
2470: x_return_status := G_RET_STS_SUCCESS;
2480: FROM fem_pl_object_executions
2481: WHERE request_id = p_request_id
2482: AND object_id = p_object_id;
2483:
2484: IF FND_API.To_Boolean( p_commit ) THEN
2485: COMMIT WORK;
2486: END IF;
2487:
2488: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
2492: EXCEPTION
2493: WHEN DUP_VAL_ON_INDEX THEN
2494: NULL;
2495:
2496: IF FND_API.To_Boolean( p_commit ) THEN
2497: COMMIT WORK;
2498: ELSE
2499: ROLLBACK TO register_chain_pub;
2500: END IF;
2501: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2502: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
2503: p_msg_text => 'End. Processing chain already registered. X_RETURN_STATUS:'||x_return_status);
2504:
2505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2506: ROLLBACK TO register_chain_pub;
2507: x_return_status := g_ret_sts_unexp_error;
2508:
2509: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2513:
2514: END register_chain;
2515: -- ******************************************************************************
2516: PROCEDURE register_temp_object (p_api_version IN NUMBER,
2517: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2518: p_request_id IN NUMBER,
2519: p_object_id IN NUMBER,
2520: p_object_type IN VARCHAR2,
2521: p_object_name IN VARCHAR2,
2540: -- Standard Start of API savepoint
2541: SAVEPOINT register_temp_object_pub;
2542:
2543: -- Standard call to check for call compatibility.
2544: IF NOT FND_API.Compatible_API_Call (l_api_version,
2545: p_api_version,
2546: l_api_name,
2547: g_pkg_name)
2548: THEN
2545: p_api_version,
2546: l_api_name,
2547: g_pkg_name)
2548: THEN
2549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2550: END IF;
2551:
2552: -- Initialize API return status to success
2553: x_return_status := G_RET_STS_SUCCESS;
2562: FROM fem_pl_object_executions
2563: WHERE request_id = p_request_id
2564: AND object_id = p_object_id;
2565:
2566: IF FND_API.To_Boolean( p_commit ) THEN
2567: COMMIT WORK;
2568: END IF;
2569:
2570: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
2573:
2574: EXCEPTION
2575: WHEN DUP_VAL_ON_INDEX THEN
2576: NULL;
2577: IF FND_API.To_Boolean( p_commit ) THEN
2578: COMMIT WORK;
2579: ELSE
2580: ROLLBACK TO register_temp_object_pub;
2581: END IF;
2583: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2584: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
2585: p_msg_text => 'End. Temporary object already registered. X_RETURN_STATUS:'||x_return_status);
2586:
2587: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2588: ROLLBACK TO register_temp_object_pub;
2589: x_return_status := g_ret_sts_unexp_error;
2590:
2591: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2595:
2596: END register_temp_object;
2597: -- ******************************************************************************
2598: PROCEDURE update_num_of_input_rows (p_api_version IN NUMBER,
2599: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2600: p_request_id IN NUMBER,
2601: p_object_id IN NUMBER,
2602: p_num_of_input_rows IN NUMBER,
2603: p_user_id IN NUMBER,
2620: -- Standard Start of API savepoint
2621: SAVEPOINT update_num_of_input_rows_pub;
2622:
2623: -- Standard call to check for call compatibility.
2624: IF NOT FND_API.Compatible_API_Call (l_api_version,
2625: p_api_version,
2626: l_api_name,
2627: g_pkg_name)
2628: THEN
2625: p_api_version,
2626: l_api_name,
2627: g_pkg_name)
2628: THEN
2629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2630: END IF;
2631:
2632: -- Initialize API return status to success
2633: x_return_status := G_RET_STS_SUCCESS;
2637: last_update_login = p_last_update_login
2638: WHERE request_id = p_request_id
2639: AND object_id = p_object_id;
2640:
2641: IF FND_API.To_Boolean( p_commit ) THEN
2642: COMMIT WORK;
2643: END IF;
2644:
2645: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
2646: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
2647: p_msg_text => 'End. X_RETURN_STATUS:'||x_return_status);
2648:
2649: EXCEPTION
2650: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2651: ROLLBACK TO update_num_of_input_rows_pub;
2652: x_return_status := g_ret_sts_unexp_error;
2653:
2654: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2658:
2659: END update_num_of_input_rows;
2660: -- ******************************************************************************
2661: PROCEDURE register_obj_exec_step (p_api_version IN NUMBER,
2662: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2663: p_request_id IN NUMBER,
2664: p_object_id IN NUMBER,
2665: p_exec_step IN VARCHAR2,
2666: p_exec_status_code IN VARCHAR2,
2685: -- Standard Start of API savepoint
2686: SAVEPOINT register_obj_exec_step_pub;
2687:
2688: -- Standard call to check for call compatibility.
2689: IF NOT FND_API.Compatible_API_Call (l_api_version,
2690: p_api_version,
2691: l_api_name,
2692: g_pkg_name)
2693: THEN
2690: p_api_version,
2691: l_api_name,
2692: g_pkg_name)
2693: THEN
2694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2695: END IF;
2696:
2697: -- Initialize API return status to success
2698: x_return_status := G_RET_STS_SUCCESS;
2705: FROM fem_pl_object_executions
2706: WHERE request_id = p_request_id
2707: AND object_id = p_object_id;
2708:
2709: IF FND_API.To_Boolean( p_commit ) THEN
2710: COMMIT WORK;
2711: END IF;
2712:
2713: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
2717: EXCEPTION
2718: WHEN DUP_VAL_ON_INDEX THEN
2719:
2720: NULL;
2721: IF FND_API.To_Boolean( p_commit ) THEN
2722: COMMIT WORK;
2723: ELSE
2724: ROLLBACK TO register_obj_exec_step_pub;
2725: END IF;
2726: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2727: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
2728: p_msg_text => 'End. Object execution step already registered. X_RETURN_STATUS:'||x_return_status);
2729:
2730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2731: ROLLBACK TO register_obj_exec_step_pub;
2732: x_return_status := g_ret_sts_unexp_error;
2733:
2734: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2738:
2739: END register_obj_exec_step;
2740: -- ******************************************************************************
2741: PROCEDURE unregister_obj_exec_step (p_api_version IN NUMBER,
2742: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2743: p_request_id IN NUMBER,
2744: p_object_id IN NUMBER,
2745: p_exec_step IN VARCHAR2,
2746: x_msg_count OUT NOCOPY NUMBER,
2761: -- Standard Start of API savepoint
2762: SAVEPOINT unregister_obj_exec_step_pub;
2763:
2764: -- Standard call to check for call compatibility.
2765: IF NOT FND_API.Compatible_API_Call (l_api_version,
2766: p_api_version,
2767: l_api_name,
2768: g_pkg_name)
2769: THEN
2766: p_api_version,
2767: l_api_name,
2768: g_pkg_name)
2769: THEN
2770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2771: END IF;
2772:
2773: -- Initialize API return status to success
2774: x_return_status := G_RET_STS_SUCCESS;
2777: WHERE request_id = p_request_id
2778: AND object_id = p_object_id
2779: AND exec_step = p_exec_step;
2780:
2781: IF FND_API.To_Boolean( p_commit ) THEN
2782: COMMIT WORK;
2783: END IF;
2784:
2785: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
2786: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
2787: p_msg_text => 'End. X_RETURN_STATUS:'||x_return_status);
2788:
2789: EXCEPTION
2790: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2791: ROLLBACK TO unregister_obj_exec_step_pub;
2792: x_return_status := g_ret_sts_unexp_error;
2793:
2794: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2798:
2799: END unregister_obj_exec_step;
2800: -- ******************************************************************************
2801: PROCEDURE unregister_obj_exec_steps (p_api_version IN NUMBER,
2802: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2803: p_request_id IN NUMBER,
2804: p_object_id IN NUMBER,
2805: x_msg_count OUT NOCOPY NUMBER,
2806: x_msg_data OUT NOCOPY VARCHAR2,
2819: -- Standard Start of API savepoint
2820: SAVEPOINT unregister_obj_exec_steps_pub;
2821:
2822: -- Standard call to check for call compatibility.
2823: IF NOT FND_API.Compatible_API_Call (l_api_version,
2824: p_api_version,
2825: l_api_name,
2826: g_pkg_name)
2827: THEN
2824: p_api_version,
2825: l_api_name,
2826: g_pkg_name)
2827: THEN
2828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2829: END IF;
2830:
2831: -- Initialize API return status to success
2832: x_return_status := G_RET_STS_SUCCESS;
2834: DELETE fem_pl_obj_exec_steps
2835: WHERE request_id = p_request_id
2836: AND object_id = p_object_id;
2837:
2838: IF FND_API.To_Boolean( p_commit ) THEN
2839: COMMIT WORK;
2840: END IF;
2841:
2842: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
2843: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
2844: p_msg_text => 'End. X_RETURN_STATUS:'||x_return_status);
2845:
2846: EXCEPTION
2847: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2848: ROLLBACK TO unregister_obj_exec_steps_pub;
2849: x_return_status := g_ret_sts_unexp_error;
2850:
2851: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2855:
2856: END unregister_obj_exec_steps;
2857: -- ******************************************************************************
2858: PROCEDURE update_obj_exec_step_status (p_api_version IN NUMBER,
2859: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2860: p_request_id IN NUMBER,
2861: p_object_id IN NUMBER,
2862: p_exec_step IN VARCHAR2,
2863: p_exec_status_code IN VARCHAR2,
2882: -- Standard Start of API savepoint
2883: SAVEPOINT update_obj_exec_step_statu_pub;
2884:
2885: -- Standard call to check for call compatibility.
2886: IF NOT FND_API.Compatible_API_Call (l_api_version,
2887: p_api_version,
2888: l_api_name,
2889: g_pkg_name)
2890: THEN
2887: p_api_version,
2888: l_api_name,
2889: g_pkg_name)
2890: THEN
2891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2892: END IF;
2893:
2894: -- Initialize API return status to success
2895: x_return_status := G_RET_STS_SUCCESS;
2900: WHERE request_id = p_request_id
2901: AND object_id = p_object_id
2902: AND exec_step = p_exec_step;
2903:
2904: IF FND_API.To_Boolean( p_commit ) THEN
2905: COMMIT WORK;
2906: END IF;
2907:
2908: fem_engines_pkg.tech_message(p_severity => c_log_level_1,
2909: p_module => 'fem.plsql.'||g_pkg_name||'.'||l_api_name,
2910: p_msg_text => 'End. X_RETURN_STATUS:'||x_return_status);
2911:
2912: EXCEPTION
2913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2914: ROLLBACK TO update_obj_exec_step_statu_pub;
2915: x_return_status := g_ret_sts_unexp_error;
2916:
2917: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
2921:
2922: END update_obj_exec_step_status;
2923: -- ******************************************************************************
2924: PROCEDURE set_exec_state (p_api_version IN NUMBER,
2925: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2926: p_request_id IN NUMBER,
2927: p_object_id IN NUMBER,
2928: x_msg_count OUT NOCOPY NUMBER,
2929: x_msg_data OUT NOCOPY VARCHAR2,
2955: -- Standard Start of API savepoint
2956: SAVEPOINT set_exec_state_pub;
2957:
2958: -- Standard call to check for call compatibility.
2959: IF NOT FND_API.Compatible_API_Call (l_api_version,
2960: p_api_version,
2961: l_api_name,
2962: g_pkg_name)
2963: THEN
2960: p_api_version,
2961: l_api_name,
2962: g_pkg_name)
2963: THEN
2964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2965: END IF;
2966:
2967: -- Initialize API return status to success
2968: x_return_status := G_RET_STS_SUCCESS;
3039: AND exec_status_code = 'RUNNING';
3040:
3041: END IF;
3042:
3043: IF FND_API.To_Boolean( p_commit ) THEN
3044: COMMIT WORK;
3045: END IF;
3046:
3047: fem_engines_pkg.tech_message(p_severity => c_log_level_2
3050: ' Request Status:'||v_dstatus||' Always Rerunnable Flag: '||
3051: v_always_rerunnable_flag||' X_RETURN_STATUS:'||x_return_status);
3052:
3053: EXCEPTION
3054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3055: ROLLBACK TO set_exec_state_pub;
3056: x_return_status := g_ret_sts_unexp_error;
3057:
3058: fem_engines_pkg.tech_message(p_severity => c_log_level_2,
3134:
3135: FOR a_prev_run IN c1 LOOP
3136:
3137: set_exec_state (p_api_version => 1.0,
3138: p_commit => fnd_api.g_false,
3139: p_request_id => a_prev_run.request_id,
3140: p_object_id => p_object_id,
3141: x_msg_count => x_msg_count,
3142: x_msg_data => x_msg_data,
3298:
3299: FOR a_prev_run IN c1 LOOP
3300:
3301: set_exec_state (p_api_version => 1.0,
3302: p_commit => fnd_api.g_false,
3303: p_request_id => a_prev_run.request_id,
3304: p_object_id => p_object_id,
3305: x_msg_count => x_msg_count,
3306: x_msg_data => x_msg_data,
3465:
3466: FOR a_prev_run IN c1 LOOP
3467:
3468: set_exec_state (p_api_version => 1.0,
3469: p_commit => fnd_api.g_false,
3470: p_request_id => a_prev_run.request_id,
3471: p_object_id => p_object_id,
3472: x_msg_count => x_msg_count,
3473: x_msg_data => x_msg_data,
3636:
3637: FOR a_prev_run IN c1 LOOP
3638:
3639: set_exec_state (p_api_version => 1.0,
3640: p_commit => fnd_api.g_false,
3641: p_request_id => a_prev_run.request_id,
3642: p_object_id => p_object_id,
3643: x_msg_count => x_msg_count,
3644: x_msg_data => x_msg_data,
3804:
3805: FOR a_prev_run IN c1 LOOP
3806:
3807: set_exec_state (p_api_version => 1.0,
3808: p_commit => fnd_api.g_false,
3809: p_request_id => a_prev_run.request_id,
3810: p_object_id => p_object_id,
3811: x_msg_count => x_msg_count,
3812: x_msg_data => x_msg_data,
3957:
3958: FOR a_prev_run IN c1 LOOP
3959:
3960: set_exec_state (p_api_version => 1.0,
3961: p_commit => fnd_api.g_false,
3962: p_request_id => a_prev_run.request_id,
3963: p_object_id => p_object_id,
3964: x_msg_count => x_msg_count,
3965: x_msg_data => x_msg_data,
4020: -- ****************************************************************************
4021:
4022: PROCEDURE check_chaining (
4023: p_api_version IN NUMBER DEFAULT 1.0,
4024: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4025: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4026: p_encoded IN VARCHAR2 DEFAULT FND_API.G_TRUE,
4027: x_return_status OUT NOCOPY VARCHAR2,
4028: x_msg_count OUT NOCOPY NUMBER,
4021:
4022: PROCEDURE check_chaining (
4023: p_api_version IN NUMBER DEFAULT 1.0,
4024: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4025: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4026: p_encoded IN VARCHAR2 DEFAULT FND_API.G_TRUE,
4027: x_return_status OUT NOCOPY VARCHAR2,
4028: x_msg_count OUT NOCOPY NUMBER,
4029: x_msg_data OUT NOCOPY VARCHAR2,
4022: PROCEDURE check_chaining (
4023: p_api_version IN NUMBER DEFAULT 1.0,
4024: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4025: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4026: p_encoded IN VARCHAR2 DEFAULT FND_API.G_TRUE,
4027: x_return_status OUT NOCOPY VARCHAR2,
4028: x_msg_count OUT NOCOPY NUMBER,
4029: x_msg_data OUT NOCOPY VARCHAR2,
4030: p_request_id IN NUMBER,
4083: -- Initialize return status to unexpected error
4084: x_return_status := g_ret_sts_unexp_error;
4085:
4086: -- Check for call compatibility.
4087: IF NOT FND_API.Compatible_API_Call (C_API_VERSION,
4088: p_api_version,
4089: C_API_NAME,
4090: G_PKG_NAME)
4091: THEN
4099: RAISE e_unexp;
4100: END IF;
4101:
4102: -- Initialize FND message queue
4103: IF p_init_msg_list = FND_API.G_TRUE then
4104: FND_MSG_PUB.Initialize;
4105: END IF;
4106:
4107: -- Check to see this request has been chanined to another process.
4107: -- Check to see this request has been chanined to another process.
4108: OPEN c_chains(p_request_id, p_object_id);
4109: FETCH c_chains INTO x_dep_request_id, x_dep_object_id;
4110: IF c_chains%NOTFOUND THEN
4111: x_chain_exists := FND_API.G_FALSE;
4112: ELSE
4113: x_chain_exists := FND_API.G_TRUE;
4114: END IF;
4115: CLOSE c_chains;
4109: FETCH c_chains INTO x_dep_request_id, x_dep_object_id;
4110: IF c_chains%NOTFOUND THEN
4111: x_chain_exists := FND_API.G_FALSE;
4112: ELSE
4113: x_chain_exists := FND_API.G_TRUE;
4114: END IF;
4115: CLOSE c_chains;
4116:
4117: x_return_status := g_ret_sts_success;
4115: CLOSE c_chains;
4116:
4117: x_return_status := g_ret_sts_success;
4118:
4119: IF (p_commit = FND_API.G_TRUE) THEN
4120: COMMIT;
4121: END IF;
4122:
4123: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4147: -- ****************************************************************************
4148:
4149: PROCEDURE get_exec_status (
4150: p_api_version IN NUMBER DEFAULT 1.0,
4151: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4152: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4153: p_encoded IN VARCHAR2 DEFAULT FND_API.G_TRUE,
4154: x_return_status OUT NOCOPY VARCHAR2,
4155: x_msg_count OUT NOCOPY NUMBER,
4148:
4149: PROCEDURE get_exec_status (
4150: p_api_version IN NUMBER DEFAULT 1.0,
4151: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4152: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4153: p_encoded IN VARCHAR2 DEFAULT FND_API.G_TRUE,
4154: x_return_status OUT NOCOPY VARCHAR2,
4155: x_msg_count OUT NOCOPY NUMBER,
4156: x_msg_data OUT NOCOPY VARCHAR2,
4149: PROCEDURE get_exec_status (
4150: p_api_version IN NUMBER DEFAULT 1.0,
4151: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4152: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4153: p_encoded IN VARCHAR2 DEFAULT FND_API.G_TRUE,
4154: x_return_status OUT NOCOPY VARCHAR2,
4155: x_msg_count OUT NOCOPY NUMBER,
4156: x_msg_data OUT NOCOPY VARCHAR2,
4157: p_request_id IN NUMBER,
4206: -- Initialize return status to unexpected error
4207: x_return_status := g_ret_sts_unexp_error;
4208:
4209: -- Check for call compatibility.
4210: IF NOT FND_API.Compatible_API_Call (C_API_VERSION,
4211: p_api_version,
4212: C_API_NAME,
4213: G_PKG_NAME)
4214: THEN
4222: RAISE e_unexp;
4223: END IF;
4224:
4225: -- Initialize FND message queue
4226: IF p_init_msg_list = FND_API.G_TRUE then
4227: FND_MSG_PUB.Initialize;
4228: END IF;
4229:
4230: -- Standard Start of API savepoint
4243: -- by calling set_exec_state. Set_exec_state will set the updated
4244: -- status in FEM_PL_OBJECT_EXECUTIONS.
4245: IF v_exec_status_code = 'RUNNING' THEN
4246: set_exec_state (p_api_version => 1.0,
4247: p_commit => FND_API.G_FALSE,
4248: p_request_id => p_request_id,
4249: p_object_id => p_object_id,
4250: x_msg_count => x_msg_count,
4251: x_msg_data => x_msg_data,
4315:
4316: x_exec_status_code := v_exec_status_code;
4317: x_return_status := g_ret_sts_success;
4318:
4319: IF (p_commit = FND_API.G_TRUE) THEN
4320: COMMIT;
4321: END IF;
4322:
4323: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN