19: NOT_VALID_PROJECT_ID EXCEPTION;
20:
21: BEGIN
22: SELECT cz_xfr_run_infos_s.NEXTVAL INTO x_run_id FROM DUAL;
23: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
24: RAISE G_INCOMPATIBLE_API;
25: END IF;
26:
27: BEGIN
120: BEGIN
121: SAVEPOINT create_ui_PUB;
122:
123: SELECT cz_xfr_run_infos_s.NEXTVAL INTO x_run_id FROM DUAL;
124: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
125: RAISE G_INCOMPATIBLE_API;
126: END IF;
127:
128: BEGIN
344:
345: BEGIN
346: SAVEPOINT create_ui_PUB;
347:
348: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
349: RAISE G_INCOMPATIBLE_API;
350: END IF;
351:
352: BEGIN
382: END IF;
383:
384: EXCEPTION
385: WHEN G_INCOMPATIBLE_API THEN
386: x_return_status := FND_API.G_RET_STS_ERROR;
387: FND_MESSAGE.SET_NAME('CZ', 'CZ_MOP_API_VERSION_ERR');
388: FND_MESSAGE.SET_TOKEN('CODE_VERSION', l_api_version);
389: FND_MESSAGE.SET_TOKEN('IN_VERSION', p_api_version);
390: FND_MSG_PUB.ADD;
391: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
392: p_data => x_msg_data);
393:
394: WHEN NOT_VALID_PROJECT_ID THEN
395: x_return_status := FND_API.G_RET_STS_ERROR;
396: FND_MESSAGE.SET_NAME('CZ', 'CZ_MOP_DEV_PRJ_ID_ERR');
397: FND_MESSAGE.SET_TOKEN('PROJID', p_devl_project_id);
398: FND_MSG_PUB.ADD;
399: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
398: FND_MSG_PUB.ADD;
399: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
400: p_data => x_msg_data);
401: WHEN WRONG_SHOW_NODES THEN
402: x_return_status := FND_API.G_RET_STS_ERROR;
403: l_errbuf := CZ_UTILS.GET_TEXT('CZ_MOP_SHOW_ALL_NODES_ERR');
404:
405:
406: FND_MESSAGE.SET_NAME('CZ', 'CZ_MOP_SHOW_ALL_NODES_ERR');
408: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
409: p_data => x_msg_data);
410:
411: WHEN OTHERS THEN
412: x_return_status := FND_API.G_RET_STS_ERROR;
413: ROLLBACK TO create_ui_PUB;
414: l_errbuf := SQLERRM;
415: END create_jrad_ui;
416:
460: -- Start of API savepoint
461: SAVEPOINT refresh_ui_PUB;
462:
463: SELECT cz_xfr_run_infos_s.NEXTVAL INTO x_run_id FROM DUAL;
464: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
465: RAISE G_INCOMPATIBLE_API;
466: END IF;
467:
468: BEGIN
591: BEGIN
592: -- Start of API savepoint
593: SAVEPOINT refresh_ui_PUB;
594:
595: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
596: RAISE G_INCOMPATIBLE_API;
597: END IF;
598:
599: BEGIN
622: COMMIT WORK;
623:
624: EXCEPTION
625: WHEN G_INCOMPATIBLE_API THEN
626: x_return_status := FND_API.G_RET_STS_ERROR;
627: FND_MESSAGE.SET_NAME('CZ', 'CZ_MOP_API_VERSION_ERR');
628: FND_MESSAGE.SET_TOKEN('CODE_VERSION', l_api_version);
629: FND_MESSAGE.SET_TOKEN('IN_VERSION', p_api_version);
630: FND_MSG_PUB.ADD;
631: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
632: p_data => x_msg_data);
633:
634: WHEN NOT_VALID_UI_DEF_ID THEN
635: x_return_status := FND_API.G_RET_STS_ERROR;
636: FND_MESSAGE.SET_NAME('CZ', 'CZ_MOP_UI_DEF_ID_ERR');
637: FND_MSG_PUB.ADD;
638: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
639: p_data => x_msg_data);
638: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
639: p_data => x_msg_data);
640:
641: WHEN WRONG_UI_STYLE THEN
642: x_return_status := FND_API.G_RET_STS_ERROR;
643: FND_MESSAGE.SET_NAME('CZ', 'CZ_UI_STYLE_ERR');
644: FND_MSG_PUB.ADD;
645: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
646: p_data => x_msg_data);
645: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
646: p_data => x_msg_data);
647:
648: WHEN OTHERS THEN
649: x_return_status := FND_API.G_RET_STS_ERROR;
650: ROLLBACK TO refresh_ui_PUB;
651: END refresh_jrad_ui;
652:
653: ------------------------------------------------------------------------------------------------
697: SESS_NOT_INITIALIZED EXCEPTION;
698:
699: BEGIN
700:
701: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
702: RAISE G_INCOMPATIBLE_API;
703: END IF;
704:
705: l_user_id := FND_GLOBAL.user_id;
863: lTop_Id CZ_XFR_PROJECT_BILLS.TOP_ITEM_ID%TYPE;
864:
865: BEGIN
866:
867: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
868: RAISE G_INCOMPATIBLE_API;
869: END IF;
870: l_user_id := FND_GLOBAL.user_id;
871: IF (l_user_id IS NULL) THEN
1041:
1042: BEGIN
1043: SELECT cz_xfr_run_infos_s.NEXTVAL INTO x_run_id FROM DUAL;
1044:
1045: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1046: RAISE G_INCOMPATIBLE_API;
1047: END IF;
1048:
1049:
1103: NOT_VALID_PROJECT_ID EXCEPTION;
1104:
1105: BEGIN
1106: SELECT cz_xfr_run_infos_s.NEXTVAL INTO x_run_id FROM DUAL;
1107: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1108: RAISE G_INCOMPATIBLE_API;
1109: END IF;
1110:
1111: BEGIN
1192: BEGIN
1193: SAVEPOINT execute_populator_PUB;
1194:
1195: SELECT cz_xfr_run_infos_s.NEXTVAL INTO x_run_id FROM DUAL;
1196: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1197: RAISE G_INCOMPATIBLE_API;
1198: END IF;
1199:
1200: BEGIN
1276: BEGIN
1277: SAVEPOINT repopulate_PUB;
1278:
1279: SELECT cz_xfr_run_infos_s.NEXTVAL INTO x_run_id FROM DUAL;
1280: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1281: RAISE G_INCOMPATIBLE_API;
1282: END IF;
1283:
1284: BEGIN
1365: l_publication_id NUMBER;
1366: BEGIN
1367: SELECT cz_xfr_run_infos_s.NEXTVAL INTO x_run_id FROM DUAL;
1368:
1369: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1370: RAISE G_INCOMPATIBLE_API;
1371: END IF;
1372:
1373: l_start_date := p_start_date;
1454: x_msg_data VARCHAR2(2000);
1455: l_dummy_nbr NUMBER;
1456:
1457: BEGIN
1458: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1459: RAISE G_INCOMPATIBLE_API;
1460: END IF;
1461:
1462: IF p_encl_folder_id IS NOT NULL THEN
1488: EXCEPTION
1489: WHEN G_INCOMPATIBLE_API THEN
1490: RAISE G_INCOMPATIBLE_API;
1491: WHEN OTHERS THEN
1492: RAISE FND_API.G_EXC_ERROR;
1493: END rp_folder_exists;
1494: ---------------------------------------------------------
1495: FUNCTION rp_folder_exists (
1496: p_api_version IN NUMBER,
1533: l_count NUMBER;
1534:
1535: BEGIN
1536: -- standard call to check for call compatibility
1537: IF (NOT FND_API.compatible_api_call(l_api_version
1538: ,p_api_version
1539: ,l_api_name
1540: ,G_PKG_NAME
1541: )) THEN
1538: ,p_api_version
1539: ,l_api_name
1540: ,G_PKG_NAME
1541: )) THEN
1542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1543: END IF;
1544:
1545: BEGIN -- validate the encl_folder_id
1546: SELECT 1 INTO l_dummy_nbr
1550: AND deleted_flag = '0';
1551: EXCEPTION
1552: WHEN NO_DATA_FOUND THEN
1553: x_msg_data := CZ_UTILS.GET_TEXT('CZ_RP_FLDR_NO_ENCL_FLDR');
1554: RAISE FND_API.G_EXC_ERROR;
1555: END;
1556:
1557: BEGIN -- check if folder already exists, if so return its id
1558: SELECT object_id INTO x_new_folder_id
1588: COMMIT;
1589: x_new_folder_id := l_new_object_id;
1590: END;
1591:
1592: x_return_status := FND_API.G_RET_STS_SUCCESS;
1593:
1594: EXCEPTION
1595: WHEN FND_API.G_EXC_ERROR THEN
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1591:
1592: x_return_status := FND_API.G_RET_STS_SUCCESS;
1593:
1594: EXCEPTION
1595: WHEN FND_API.G_EXC_ERROR THEN
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1599: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1592: x_return_status := FND_API.G_RET_STS_SUCCESS;
1593:
1594: EXCEPTION
1595: WHEN FND_API.G_EXC_ERROR THEN
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1599: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1600: p_data => x_msg_data);
1593:
1594: EXCEPTION
1595: WHEN FND_API.G_EXC_ERROR THEN
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1599: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1600: p_data => x_msg_data);
1601: WHEN OTHERS THEN
1594: EXCEPTION
1595: WHEN FND_API.G_EXC_ERROR THEN
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1599: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1600: p_data => x_msg_data);
1601: WHEN OTHERS THEN
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1599: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1600: p_data => x_msg_data);
1601: WHEN OTHERS THEN
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1603: IF fnd_msg_pub.check_msg_Level(fnd_msg_pub.G_MSG_LVL_UNEXP_ERROR) THEN
1604: fnd_msg_pub.add_exc_msg(G_PKG_NAME, l_api_name);
1605: END IF;
1606: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1685: WHERE rec_status IS NOT NULL AND Run_ID = x_run_id;
1686:
1687: BEGIN
1688:
1689: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1690: RAISE G_INCOMPATIBLE_API;
1691: END IF;
1692:
1693: l_user_id := FND_GLOBAL.user_id;
1724: l_locked_models_tbl.DELETE;
1725: cz_security_pvt.lock_model(
1726: p_api_version => 1.0,
1727: p_model_id => l_model_id_tbl(i),
1728: p_lock_child_models => FND_API.G_FALSE,
1729: p_commit_flag => FND_API.G_TRUE,
1730: x_locked_entities => l_locked_models_tbl,
1731: x_return_status => l_return_status,
1732: x_msg_count => l_msg_count,
1725: cz_security_pvt.lock_model(
1726: p_api_version => 1.0,
1727: p_model_id => l_model_id_tbl(i),
1728: p_lock_child_models => FND_API.G_FALSE,
1729: p_commit_flag => FND_API.G_TRUE,
1730: x_locked_entities => l_locked_models_tbl,
1731: x_return_status => l_return_status,
1732: x_msg_count => l_msg_count,
1733: x_msg_data => l_msg_data);
1730: x_locked_entities => l_locked_models_tbl,
1731: x_return_status => l_return_status,
1732: x_msg_count => l_msg_count,
1733: x_msg_data => l_msg_data);
1734: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1735: FOR k IN 1..l_msg_count LOOP
1736: l_msg_data := fnd_msg_pub.get(k,fnd_api.g_false);
1737: xERROR:=cz_utils.log_report(l_msg_data,1,'CZ_MODELOPERATIONS_PUB.IMPORT_GENERIC',20001,p_run_id);
1738: COMMIT;
1732: x_msg_count => l_msg_count,
1733: x_msg_data => l_msg_data);
1734: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1735: FOR k IN 1..l_msg_count LOOP
1736: l_msg_data := fnd_msg_pub.get(k,fnd_api.g_false);
1737: xERROR:=cz_utils.log_report(l_msg_data,1,'CZ_MODELOPERATIONS_PUB.IMPORT_GENERIC',20001,p_run_id);
1738: COMMIT;
1739: END LOOP;
1740: RAISE FAILED_TO_LOCK_MODEL_EXCP;
1755:
1756: IF (l_all_locked_models_tbl.COUNT > 0) THEN
1757: cz_security_pvt.unlock_model(
1758: p_api_version => 1.0,
1759: p_commit_flag => FND_API.G_TRUE,
1760: p_models_to_unlock => l_all_locked_models_tbl,
1761: x_return_status => l_return_status,
1762: x_msg_count => l_msg_count,
1763: x_msg_data => l_msg_data);
1817: COMMIT;
1818: IF (l_all_locked_models_tbl.COUNT > 0) THEN
1819: cz_security_pvt.unlock_model(
1820: p_api_version => 1.0,
1821: p_commit_flag => FND_API.G_TRUE,
1822: p_models_to_unlock => l_all_locked_models_tbl,
1823: x_return_status => l_return_status,
1824: x_msg_count => l_msg_count,
1825: x_msg_data => l_msg_data);
1854: /*#
1855: * This is the public interface for force unlock operations on a model in Oracle Configurator
1856: * @param p_api_version Current version of the API is 1.0
1857: * @param p_model_id devl_project_id of the model from cz_devl_projects table
1858: * @param p_unlock_references A value of FND_API.G_TRUE indicates that the child models if any should be
1859: * force unlocked. A value of FND_API.G_FALSE indicates that only the root model
1860: * will be unlocked
1861: * @param p_init_msg_list FND_API.G_TRUE if the API should initialize the FND stack, FND_API.G_FALSE if not.
1862: * @param x_return_status standard FND status. (ex:FND_API.G_RET_STS_SUCCESS )
1855: * This is the public interface for force unlock operations on a model in Oracle Configurator
1856: * @param p_api_version Current version of the API is 1.0
1857: * @param p_model_id devl_project_id of the model from cz_devl_projects table
1858: * @param p_unlock_references A value of FND_API.G_TRUE indicates that the child models if any should be
1859: * force unlocked. A value of FND_API.G_FALSE indicates that only the root model
1860: * will be unlocked
1861: * @param p_init_msg_list FND_API.G_TRUE if the API should initialize the FND stack, FND_API.G_FALSE if not.
1862: * @param x_return_status standard FND status. (ex:FND_API.G_RET_STS_SUCCESS )
1863: * @param x_msg_count number of messages on the stack.
1857: * @param p_model_id devl_project_id of the model from cz_devl_projects table
1858: * @param p_unlock_references A value of FND_API.G_TRUE indicates that the child models if any should be
1859: * force unlocked. A value of FND_API.G_FALSE indicates that only the root model
1860: * will be unlocked
1861: * @param p_init_msg_list FND_API.G_TRUE if the API should initialize the FND stack, FND_API.G_FALSE if not.
1862: * @param x_return_status standard FND status. (ex:FND_API.G_RET_STS_SUCCESS )
1863: * @param x_msg_count number of messages on the stack.
1864: * @param x_msg_data standard FND OUT parameter for message. Messages are written to the FND error stack
1865: * @rep:scope public
1858: * @param p_unlock_references A value of FND_API.G_TRUE indicates that the child models if any should be
1859: * force unlocked. A value of FND_API.G_FALSE indicates that only the root model
1860: * will be unlocked
1861: * @param p_init_msg_list FND_API.G_TRUE if the API should initialize the FND stack, FND_API.G_FALSE if not.
1862: * @param x_return_status standard FND status. (ex:FND_API.G_RET_STS_SUCCESS )
1863: * @param x_msg_count number of messages on the stack.
1864: * @param x_msg_data standard FND OUT parameter for message. Messages are written to the FND error stack
1865: * @rep:scope public
1866: * @rep:product CZ
1921: /*#
1922: * This is the public interface for force unlock operations on a UI content template in Oracle Configurator
1923: * @param p_api_version Current version of the API is 1.0
1924: * @param p_template_id Template_id of the template from cz_ui_templates table
1925: * @param p_init_msg_list FND_API.G_TRUE if the API should initialize the FND stack, FND_API.G_FALSE if not.
1926: * @param x_return_status standard FND status. (ex:FND_API.G_RET_STS_SUCCESS )
1927: * @param x_msg_count number of messages on the stack.
1928: * @param x_msg_data standard FND OUT parameter for message. Messages are written to the FND error stack
1929: * @rep:scope public
1922: * This is the public interface for force unlock operations on a UI content template in Oracle Configurator
1923: * @param p_api_version Current version of the API is 1.0
1924: * @param p_template_id Template_id of the template from cz_ui_templates table
1925: * @param p_init_msg_list FND_API.G_TRUE if the API should initialize the FND stack, FND_API.G_FALSE if not.
1926: * @param x_return_status standard FND status. (ex:FND_API.G_RET_STS_SUCCESS )
1927: * @param x_msg_count number of messages on the stack.
1928: * @param x_msg_data standard FND OUT parameter for message. Messages are written to the FND error stack
1929: * @rep:scope public
1930: * @rep:product CZ
1988: l_api_version CONSTANT NUMBER := 1.0;
1989: l_api_name CONSTANT VARCHAR2(30) := 'usage_id_from_usage_name';
1990: BEGIN
1991: -- standard call to check for call compatibility
1992: IF (NOT FND_API.compatible_api_call(l_api_version
1993: ,p_api_version
1994: ,l_api_name
1995: ,G_PKG_NAME
1996: )) THEN
1993: ,p_api_version
1994: ,l_api_name
1995: ,G_PKG_NAME
1996: )) THEN
1997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1998: END IF;
1999: SELECT model_usage_id
2000: INTO v_usage_id
2001: FROM CZ_MODEL_USAGES
2001: FROM CZ_MODEL_USAGES
2002: WHERE LTRIM(RTRIM(UPPER(CZ_MODEL_USAGES.name))) = LTRIM(RTRIM(UPPER(p_usage_name)))
2003: AND cz_model_usages.in_use = '1';
2004:
2005: x_return_status := FND_API.G_RET_STS_SUCCESS;
2006: RETURN v_usage_id;
2007: EXCEPTION
2008: WHEN NO_DATA_FOUND THEN
2009: x_return_status:=FND_API.G_RET_STS_ERROR;
2005: x_return_status := FND_API.G_RET_STS_SUCCESS;
2006: RETURN v_usage_id;
2007: EXCEPTION
2008: WHEN NO_DATA_FOUND THEN
2009: x_return_status:=FND_API.G_RET_STS_ERROR;
2010: FND_MESSAGE.SET_NAME('CZ', 'CZ_USG_NO_USAGE_FOUND');
2011: FND_MSG_PUB.ADD;
2012: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2013: p_data => x_msg_data);
2012: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2013: p_data => x_msg_data);
2014: RETURN NULL;
2015:
2016: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2018: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2019: p_data => x_msg_data);
2020: RETURN NULL;
2013: p_data => x_msg_data);
2014: RETURN NULL;
2015:
2016: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2018: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2019: p_data => x_msg_data);
2020: RETURN NULL;
2021: END usage_id_from_usage_name;
2078: l_api_version CONSTANT NUMBER := 1.0;
2079: l_errbuf VARCHAR2(2000);
2080: BEGIN
2081:
2082: IF(NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME))THEN
2083:
2084: RAISE G_INCOMPATIBLE_API;
2085: END IF;
2086:
2119: l_errbuf VARCHAR2(2000);
2120:
2121: BEGIN
2122:
2123: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2124: RAISE G_INCOMPATIBLE_API;
2125: END IF;
2126: cz_pb_mgr.create_publication_request(
2127: p_model_id,
2137: l_status,
2138: x_msg_count,
2139: x_msg_data
2140: );
2141: IF l_status = FND_API.G_RET_STS_SUCCESS THEN
2142: x_return_status := G_STATUS_SUCCESS;
2143: ELSE
2144: x_return_status := G_STATUS_ERROR;
2145: END IF;