[Home] [Help]
856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
857: END IF;
858: -- Initialize message list if p_init_msg_list is set to TRUE.
859: IF FND_API.to_Boolean( p_init_msg_list ) THEN
860: FND_MSG_PUB.initialize;
861: END IF;
862: -- Initialize API return status to success
863: x_return_status := FND_API.G_RET_STS_SUCCESS;
864:
926: IF FND_API.To_Boolean( p_commit ) THEN
927: COMMIT WORK;
928: END IF;
929: -- Standard call to get message count and if count is 1, get message info.
930: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
931:
932: IF (l_debug = 'Y') THEN
933: okc_debug.log('2300: Leaving delete_article_version', 2);
934: END IF;
939: okc_debug.log('2400: Leaving delete_article_version: OKC_API.G_EXCEPTION_ERROR Exception', 2);
940: END IF;
941: ROLLBACK TO g_delete_article_version_GRP;
942: x_return_status := G_RET_STS_ERROR ;
943: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
944:
945: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
946: IF (l_debug = 'Y') THEN
947: okc_debug.log('2500: Leaving delete_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
947: okc_debug.log('2500: Leaving delete_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
948: END IF;
949: ROLLBACK TO g_delete_article_version_GRP;
950: x_return_status := G_RET_STS_UNEXP_ERROR ;
951: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
952:
953: WHEN OTHERS THEN
954: IF (l_debug = 'Y') THEN
955: okc_debug.log('2600: Leaving delete_article_version because of EXCEPTION: '||sqlerrm, 2);
956: END IF;
957:
958: ROLLBACK TO g_delete_article_version_GRP;
959: x_return_status := G_RET_STS_UNEXP_ERROR ;
960: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
961: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
962: END IF;
963: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
964:
957:
958: ROLLBACK TO g_delete_article_version_GRP;
959: x_return_status := G_RET_STS_UNEXP_ERROR ;
960: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
961: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
962: END IF;
963: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
964:
965: END delete_article_version;
959: x_return_status := G_RET_STS_UNEXP_ERROR ;
960: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
961: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
962: END IF;
963: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
964:
965: END delete_article_version;
966:
967: PROCEDURE validate_article(
1051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1052: END IF;
1053: -- Initialize message list if p_init_msg_list is set to TRUE.
1054: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1055: FND_MSG_PUB.initialize;
1056: END IF;
1057: -- Initialize API return status to success
1058: x_return_status := FND_API.G_RET_STS_SUCCESS;
1059:
1156: --------------------------------------------
1157: x_return_status := l_return_status;
1158:
1159: -- Standard call to get message count and if count is 1, get message info.
1160: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1161:
1162: IF (l_debug = 'Y') THEN
1163: okc_debug.log('200: Leaving validate_article', 2);
1164: END IF;
1170: END IF;
1171: ROLLBACK TO g_validate_article_GRP;
1172: l_return_status := G_RET_STS_ERROR ;
1173: x_return_status := G_RET_STS_ERROR ;
1174: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1175: --dbms_output.put_line('Msg data2:' || x_msg_data);
1176:
1177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1178: IF (l_debug = 'Y') THEN
1180: END IF;
1181: ROLLBACK TO g_validate_article_GRP;
1182: l_return_status := G_RET_STS_UNEXP_ERROR ;
1183: x_return_status := G_RET_STS_UNEXP_ERROR ;
1184: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1185:
1186: WHEN OTHERS THEN
1187: IF (l_debug = 'Y') THEN
1188: okc_debug.log('500: Leaving Validate_Article because of EXCEPTION: '||sqlerrm, 2);
1190:
1191: ROLLBACK TO g_validate_article_GRP;
1192: l_return_status := G_RET_STS_UNEXP_ERROR ;
1193: x_return_status := G_RET_STS_UNEXP_ERROR ;
1194: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1195: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1196: END IF;
1197: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1198:
1191: ROLLBACK TO g_validate_article_GRP;
1192: l_return_status := G_RET_STS_UNEXP_ERROR ;
1193: x_return_status := G_RET_STS_UNEXP_ERROR ;
1194: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1195: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1196: END IF;
1197: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1198:
1199: END validate_article;
1193: x_return_status := G_RET_STS_UNEXP_ERROR ;
1194: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1195: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1196: END IF;
1197: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1198:
1199: END validate_article;
1200:
1201: -------------------------------------
1304:
1305: -- Initialize message list if p_init_msg_list is set to TRUE.
1306: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1307: --dbms_output.put_line('600: Entered create_article message init');
1308: FND_MSG_PUB.initialize;
1309: END IF;
1310: -- Initialize API return status to success
1311: x_return_status := FND_API.G_RET_STS_SUCCESS;
1312: --dbms_output.put_line('600: Entered create_article from copy status is'||x_return_status);
1444: IF FND_API.To_Boolean( p_commit ) THEN
1445: COMMIT WORK;
1446: END IF;
1447: -- Standard call to get message count and if count is 1, get message info.
1448: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1449:
1450: IF (l_debug = 'Y') THEN
1451: okc_debug.log('700: Leaving create_article', 2);
1452: END IF;
1457: okc_debug.log('800: Leaving create_article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
1458: END IF;
1459: ROLLBACK TO g_create_article_GRP;
1460: x_return_status := G_RET_STS_ERROR ;
1461: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1462:
1463: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1464: IF (l_debug = 'Y') THEN
1465: okc_debug.log('900: Leaving create_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1465: okc_debug.log('900: Leaving create_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1466: END IF;
1467: ROLLBACK TO g_create_article_GRP;
1468: x_return_status := G_RET_STS_UNEXP_ERROR ;
1469: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1470:
1471: WHEN OTHERS THEN
1472: IF (l_debug = 'Y') THEN
1473: okc_debug.log('1000: Leaving create_article because of EXCEPTION: '||sqlerrm, 2);
1474: END IF;
1475:
1476: ROLLBACK TO g_create_article_GRP;
1477: x_return_status := G_RET_STS_UNEXP_ERROR ;
1478: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1479: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1480: END IF;
1481: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1482:
1475:
1476: ROLLBACK TO g_create_article_GRP;
1477: x_return_status := G_RET_STS_UNEXP_ERROR ;
1478: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1479: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1480: END IF;
1481: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1482:
1483: END create_article;
1477: x_return_status := G_RET_STS_UNEXP_ERROR ;
1478: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1479: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1480: END IF;
1481: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1482:
1483: END create_article;
1484: ---------------------------------------------------------------------------
1485: -- PROCEDURE lock_article
1511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1512: END IF;
1513: -- Initialize message list if p_init_msg_list is set to TRUE.
1514: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1515: FND_MSG_PUB.initialize;
1516: END IF;
1517: -- Initialize API return status to success
1518: x_return_status := FND_API.G_RET_STS_SUCCESS;
1519:
1553: END IF;
1554: --------------------------------------------
1555:
1556: -- Standard call to get message count and if count is 1, get message info.
1557: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1558:
1559: IF (l_debug = 'Y') THEN
1560: okc_debug.log('1200: Leaving lock_article', 2);
1561: END IF;
1566: okc_debug.log('1300: Leaving lock_article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
1567: END IF;
1568: ROLLBACK TO g_lock_article_GRP;
1569: x_return_status := G_RET_STS_ERROR ;
1570: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1571:
1572: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1573: IF (l_debug = 'Y') THEN
1574: okc_debug.log('1400: Leaving lock_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1574: okc_debug.log('1400: Leaving lock_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1575: END IF;
1576: ROLLBACK TO g_lock_article_GRP;
1577: x_return_status := G_RET_STS_UNEXP_ERROR ;
1578: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1579:
1580: WHEN OTHERS THEN
1581: IF (l_debug = 'Y') THEN
1582: okc_debug.log('1500: Leaving lock_article because of EXCEPTION: '||sqlerrm, 2);
1583: END IF;
1584:
1585: ROLLBACK TO g_lock_article_GRP;
1586: x_return_status := G_RET_STS_UNEXP_ERROR ;
1587: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1588: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1589: END IF;
1590: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1591:
1584:
1585: ROLLBACK TO g_lock_article_GRP;
1586: x_return_status := G_RET_STS_UNEXP_ERROR ;
1587: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1588: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1589: END IF;
1590: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1591:
1592: END lock_article;
1586: x_return_status := G_RET_STS_UNEXP_ERROR ;
1587: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1588: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1589: END IF;
1590: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1591:
1592: END lock_article;
1593: ---------------------------------------------------------------------------
1594: -- PROCEDURE update_article
1689: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
1690: CLOSE cur_org_csr;
1691: */
1692: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1693: FND_MSG_PUB.initialize;
1694: END IF;
1695: -- Initialize API return status to success
1696: x_return_status := FND_API.G_RET_STS_SUCCESS;
1697:
1803: IF FND_API.To_Boolean( p_commit ) THEN
1804: COMMIT WORK;
1805: END IF;
1806: -- Standard call to get message count and if count is 1, get message info.
1807: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1808:
1809: IF (l_debug = 'Y') THEN
1810: okc_debug.log('1800: Leaving update_article', 2);
1811: END IF;
1816: okc_debug.log('1900: Leaving update_article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
1817: END IF;
1818: ROLLBACK TO g_update_article_GRP;
1819: x_return_status := G_RET_STS_ERROR ;
1820: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1821:
1822: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1823: IF (l_debug = 'Y') THEN
1824: okc_debug.log('2000: Leaving update_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1824: okc_debug.log('2000: Leaving update_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1825: END IF;
1826: ROLLBACK TO g_update_article_GRP;
1827: x_return_status := G_RET_STS_UNEXP_ERROR ;
1828: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1829:
1830: WHEN OTHERS THEN
1831: IF (l_debug = 'Y') THEN
1832: okc_debug.log('2100: Leaving update_article because of EXCEPTION: '||sqlerrm, 2);
1833: END IF;
1834:
1835: ROLLBACK TO g_update_article_GRP;
1836: x_return_status := G_RET_STS_UNEXP_ERROR ;
1837: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1838: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1839: END IF;
1840: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1841:
1834:
1835: ROLLBACK TO g_update_article_GRP;
1836: x_return_status := G_RET_STS_UNEXP_ERROR ;
1837: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1838: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1839: END IF;
1840: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1841:
1842: END update_article;
1836: x_return_status := G_RET_STS_UNEXP_ERROR ;
1837: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1838: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1839: END IF;
1840: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1841:
1842: END update_article;
1843:
1844: ---------------------------------------------------------------------------
1899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1900: END IF;
1901: -- Initialize message list if p_init_msg_list is set to TRUE.
1902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1903: FND_MSG_PUB.initialize;
1904: END IF;
1905: -- Initialize API return status to success
1906: x_return_status := FND_API.G_RET_STS_SUCCESS;
1907:
2004: IF FND_API.To_Boolean( p_commit ) THEN
2005: COMMIT WORK;
2006: END IF;
2007: -- Standard call to get message count and if count is 1, get message info.
2008: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2009:
2010: IF (l_debug = 'Y') THEN
2011: okc_debug.log('2300: Leaving delete_article', 2);
2012: END IF;
2026: CLOSE l_template_csr;
2027: END IF;
2028: ROLLBACK TO g_delete_article_GRP;
2029: x_return_status := G_RET_STS_ERROR ;
2030: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2031:
2032: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2033: IF (l_debug = 'Y') THEN
2034: okc_debug.log('2500: Leaving delete_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2043: CLOSE l_template_csr;
2044: END IF;
2045: ROLLBACK TO g_delete_article_GRP;
2046: x_return_status := G_RET_STS_UNEXP_ERROR ;
2047: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2048:
2049: WHEN OTHERS THEN
2050: IF (l_debug = 'Y') THEN
2051: okc_debug.log('2600: Leaving delete_article because of EXCEPTION: '||sqlerrm, 2);
2060: CLOSE l_template_csr;
2061: END IF;
2062: ROLLBACK TO g_delete_article_GRP;
2063: x_return_status := G_RET_STS_UNEXP_ERROR ;
2064: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2065: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2066: END IF;
2067: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2068:
2061: END IF;
2062: ROLLBACK TO g_delete_article_GRP;
2063: x_return_status := G_RET_STS_UNEXP_ERROR ;
2064: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2065: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2066: END IF;
2067: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2068:
2069: END delete_article;
2063: x_return_status := G_RET_STS_UNEXP_ERROR ;
2064: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2065: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2066: END IF;
2067: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2068:
2069: END delete_article;
2070:
2071: ---------------------------------------
2147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2148: END IF;
2149: -- Initialize message list if p_init_msg_list is set to TRUE.
2150: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2151: FND_MSG_PUB.initialize;
2152: END IF;
2153: -- Initialize API return status to success
2154: x_return_status := FND_API.G_RET_STS_SUCCESS;
2155:
2221: END IF;
2222: --------------------------------------------
2223:
2224: -- Standard call to get message count and if count is 1, get message info.
2225: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2226:
2227: IF (l_debug = 'Y') THEN
2228: okc_debug.log('200: Leaving validate_article_version', 2);
2229: END IF;
2234: okc_debug.log('300: Leaving Validate_article_version: OKC_API.G_EXCEPTION_ERROR Exception', 2);
2235: END IF;
2236: ROLLBACK TO g_validate_article_version_GRP;
2237: x_return_status := G_RET_STS_ERROR ;
2238: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2239:
2240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2241: IF (l_debug = 'Y') THEN
2242: okc_debug.log('400: Leaving Validate_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2242: okc_debug.log('400: Leaving Validate_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2243: END IF;
2244: ROLLBACK TO g_validate_article_version_GRP;
2245: x_return_status := G_RET_STS_UNEXP_ERROR ;
2246: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2247:
2248: WHEN OTHERS THEN
2249: IF (l_debug = 'Y') THEN
2250: okc_debug.log('500: Leaving Validate_article_version because of EXCEPTION: '||sqlerrm, 2);
2251: END IF;
2252:
2253: ROLLBACK TO g_validate_article_version_GRP;
2254: x_return_status := G_RET_STS_UNEXP_ERROR ;
2255: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2256: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2257: END IF;
2258: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2259:
2252:
2253: ROLLBACK TO g_validate_article_version_GRP;
2254: x_return_status := G_RET_STS_UNEXP_ERROR ;
2255: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2256: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2257: END IF;
2258: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2259:
2260: END validate_article_version;
2254: x_return_status := G_RET_STS_UNEXP_ERROR ;
2255: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2256: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2257: END IF;
2258: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2259:
2260: END validate_article_version;
2261:
2262: -------------------------------------
2373: CLOSE cur_org_csr;
2374: */
2375: -- Initialize message list if p_init_msg_list is set to TRUE.
2376: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2377: FND_MSG_PUB.initialize;
2378: END IF;
2379: -- Initialize API return status to success
2380: x_return_status := FND_API.G_RET_STS_SUCCESS;
2381:
2611: IF FND_API.To_Boolean( p_commit ) THEN
2612: COMMIT WORK;
2613: END IF;
2614: -- Standard call to get message count and if count is 1, get message info.
2615: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2616:
2617: IF (l_debug = 'Y') THEN
2618: okc_debug.log('700: Leaving create_article_version', 2);
2619: END IF;
2624: okc_debug.log('800: Leaving create_article_version: OKC_API.G_EXCEPTION_ERROR Exception', 2);
2625: END IF;
2626: ROLLBACK TO g_create_article_version_GRP;
2627: x_return_status := G_RET_STS_ERROR ;
2628: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2629:
2630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2631: IF (l_debug = 'Y') THEN
2632: okc_debug.log('900: Leaving create_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2632: okc_debug.log('900: Leaving create_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2633: END IF;
2634: ROLLBACK TO g_create_article_version_GRP;
2635: x_return_status := G_RET_STS_UNEXP_ERROR ;
2636: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2637:
2638: WHEN OTHERS THEN
2639: IF (l_debug = 'Y') THEN
2640: okc_debug.log('1000: Leaving create_article_version because of EXCEPTION: '||sqlerrm, 2);
2641: END IF;
2642:
2643: ROLLBACK TO g_create_article_version_GRP;
2644: x_return_status := G_RET_STS_UNEXP_ERROR ;
2645: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2646: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2647: END IF;
2648: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2649:
2642:
2643: ROLLBACK TO g_create_article_version_GRP;
2644: x_return_status := G_RET_STS_UNEXP_ERROR ;
2645: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2646: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2647: END IF;
2648: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2649:
2650: END create_article_version;
2644: x_return_status := G_RET_STS_UNEXP_ERROR ;
2645: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2646: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2647: END IF;
2648: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2649:
2650: END create_article_version;
2651: ---------------------------------------------------------------------------
2652: -- PROCEDURE lock_article_version
2677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2678: END IF;
2679: -- Initialize message list if p_init_msg_list is set to TRUE.
2680: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2681: FND_MSG_PUB.initialize;
2682: END IF;
2683: -- Initialize API return status to success
2684: x_return_status := FND_API.G_RET_STS_SUCCESS;
2685:
2699: END IF;
2700: --------------------------------------------
2701:
2702: -- Standard call to get message count and if count is 1, get message info.
2703: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2704:
2705: IF (l_debug = 'Y') THEN
2706: okc_debug.log('1200: Leaving lock_article_version', 2);
2707: END IF;
2712: okc_debug.log('1300: Leaving lock_article_version: OKC_API.G_EXCEPTION_ERROR Exception', 2);
2713: END IF;
2714: ROLLBACK TO g_lock_article_version_GRP;
2715: x_return_status := G_RET_STS_ERROR ;
2716: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2717:
2718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2719: IF (l_debug = 'Y') THEN
2720: okc_debug.log('1400: Leaving lock_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2720: okc_debug.log('1400: Leaving lock_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2721: END IF;
2722: ROLLBACK TO g_lock_article_version_GRP;
2723: x_return_status := G_RET_STS_UNEXP_ERROR ;
2724: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2725:
2726: WHEN OTHERS THEN
2727: IF (l_debug = 'Y') THEN
2728: okc_debug.log('1500: Leaving lock_article_version because of EXCEPTION: '||sqlerrm, 2);
2729: END IF;
2730:
2731: ROLLBACK TO g_lock_article_version_GRP;
2732: x_return_status := G_RET_STS_UNEXP_ERROR ;
2733: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2734: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2735: END IF;
2736: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2737:
2730:
2731: ROLLBACK TO g_lock_article_version_GRP;
2732: x_return_status := G_RET_STS_UNEXP_ERROR ;
2733: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2734: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2735: END IF;
2736: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2737:
2738: END lock_article_version;
2732: x_return_status := G_RET_STS_UNEXP_ERROR ;
2733: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2734: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2735: END IF;
2736: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2737:
2738: END lock_article_version;
2739:
2740: ---------------------------------------------------------------------------
2957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2958: END IF;
2959: -- Initialize message list if p_init_msg_list is set to TRUE.
2960: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2961: FND_MSG_PUB.initialize;
2962: END IF;
2963: -- Initialize API return status to success
2964: x_return_status := FND_API.G_RET_STS_SUCCESS;
2965:
3110: IF FND_API.To_Boolean( p_commit ) THEN
3111: COMMIT WORK;
3112: END IF;
3113: -- Standard call to get message count and if count is 1, get message info.
3114: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3115:
3116: IF (l_debug = 'Y') THEN
3117: okc_debug.log('1800: Leaving update_article_version', 2);
3118: END IF;
3123: okc_debug.log('1900: Leaving update_article_version: OKC_API.G_EXCEPTION_ERROR Exception', 2);
3124: END IF;
3125: ROLLBACK TO g_update_article_version_GRP;
3126: x_return_status := G_RET_STS_ERROR ;
3127: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3128:
3129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3130: IF (l_debug = 'Y') THEN
3131: okc_debug.log('2000: Leaving update_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3131: okc_debug.log('2000: Leaving update_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3132: END IF;
3133: ROLLBACK TO g_update_article_version_GRP;
3134: x_return_status := G_RET_STS_UNEXP_ERROR ;
3135: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3136:
3137: WHEN OTHERS THEN
3138: IF (l_debug = 'Y') THEN
3139: okc_debug.log('2100: Leaving update_article_version because of EXCEPTION: '||sqlerrm, 2);
3140: END IF;
3141:
3142: ROLLBACK TO g_update_article_version_GRP;
3143: x_return_status := G_RET_STS_UNEXP_ERROR ;
3144: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3145: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3146: END IF;
3147: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3148:
3141:
3142: ROLLBACK TO g_update_article_version_GRP;
3143: x_return_status := G_RET_STS_UNEXP_ERROR ;
3144: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3145: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3146: END IF;
3147: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3148:
3149: END update_article_version;
3143: x_return_status := G_RET_STS_UNEXP_ERROR ;
3144: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3145: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3146: END IF;
3147: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3148:
3149: END update_article_version;
3150:
3151:
3328: CLOSE cur_org_csr;
3329: */
3330: -- Initialize message list if p_init_msg_list is set to TRUE.
3331: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3332: FND_MSG_PUB.initialize;
3333: END IF;
3334: -- Initialize API return status to success
3335: x_return_status := FND_API.G_RET_STS_SUCCESS;
3336: --dbms_output.put_line('2700: Before Cursor Entered Copy_Articles ');
3824: IF FND_API.To_Boolean( p_commit ) THEN
3825: COMMIT WORK;
3826: END IF;
3827: -- Standard call to get message count and if count is 1, get message info.
3828: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3829:
3830: IF (l_debug = 'Y') THEN
3831: okc_debug.log('2800: Leaving copy_article', 2);
3832: END IF;
3837: okc_debug.log('2900: Leaving copy_article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
3838: END IF;
3839: ROLLBACK TO g_copy_article_GRP;
3840: x_return_status := G_RET_STS_ERROR ;
3841: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3842:
3843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3844: IF (l_debug = 'Y') THEN
3845: okc_debug.log('3000: Leaving copy_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3845: okc_debug.log('3000: Leaving copy_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3846: END IF;
3847: ROLLBACK TO g_copy_article_GRP;
3848: x_return_status := G_RET_STS_UNEXP_ERROR ;
3849: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3850:
3851: WHEN OTHERS THEN
3852: IF (l_debug = 'Y') THEN
3853: okc_debug.log('3100: Leaving copy_article because of EXCEPTION: '||sqlerrm, 2);
3854: END IF;
3855:
3856: ROLLBACK TO g_copy_article_GRP;
3857: x_return_status := G_RET_STS_UNEXP_ERROR ;
3858: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3859: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3860: END IF;
3861: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3862:
3855:
3856: ROLLBACK TO g_copy_article_GRP;
3857: x_return_status := G_RET_STS_UNEXP_ERROR ;
3858: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3859: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3860: END IF;
3861: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3862:
3863: END copy_article;
3857: x_return_status := G_RET_STS_UNEXP_ERROR ;
3858: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3859: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3860: END IF;
3861: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3862:
3863: END copy_article;
3864:
3865: PROCEDURE get_local_article_id
4312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4313: END IF;
4314: -- Initialize message list if p_init_msg_list is set to TRUE.
4315: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4316: FND_MSG_PUB.initialize;
4317: END IF;
4318: -- Initialize API return status to success
4319: x_return_status := FND_API.G_RET_STS_SUCCESS;
4320:
4389: IF FND_API.To_Boolean( p_commit ) THEN
4390: COMMIT WORK;
4391: END IF;
4392: -- Standard call to get message count and if count is 1, get message info.
4393: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4394:
4395: IF (l_debug = 'Y') THEN
4396: okc_debug.log('700: Leaving insert_row', 2);
4397: END IF;
4402: okc_debug.log('800: Leaving insert_row: OKC_API.G_EXCEPTION_ERROR Exception', 2);
4403: END IF;
4404: ROLLBACK TO g_insert_row_GRP;
4405: x_return_status := G_RET_STS_ERROR ;
4406: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4407:
4408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4409: IF (l_debug = 'Y') THEN
4410: okc_debug.log('900: Leaving insert_row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4410: okc_debug.log('900: Leaving insert_row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4411: END IF;
4412: ROLLBACK TO g_insert_row_GRP;
4413: x_return_status := G_RET_STS_UNEXP_ERROR ;
4414: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4415:
4416: WHEN OTHERS THEN
4417: IF (l_debug = 'Y') THEN
4418: okc_debug.log('1000: Leaving insert_row because of EXCEPTION: '||sqlerrm, 2);
4419: END IF;
4420:
4421: ROLLBACK TO g_insert_row_GRP;
4422: x_return_status := G_RET_STS_UNEXP_ERROR ;
4423: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4424: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4425: END IF;
4426: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4427:
4420:
4421: ROLLBACK TO g_insert_row_GRP;
4422: x_return_status := G_RET_STS_UNEXP_ERROR ;
4423: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4424: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4425: END IF;
4426: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4427:
4428: END create_article_relationship;
4422: x_return_status := G_RET_STS_UNEXP_ERROR ;
4423: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4424: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4425: END IF;
4426: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4427:
4428: END create_article_relationship;
4429:
4430: ---------------------------------------------------------------------------
4561: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4562: END IF;
4563: -- Initialize message list if p_init_msg_list is set to TRUE.
4564: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4565: FND_MSG_PUB.initialize;
4566: END IF;
4567: -- Initialize API return status to success
4568: x_return_status := FND_API.G_RET_STS_SUCCESS;
4569:
4628: IF FND_API.To_Boolean( p_commit ) THEN
4629: COMMIT WORK;
4630: END IF;
4631: -- Standard call to get message count and if count is 1, get message info.
4632: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4633:
4634: IF (l_debug = 'Y') THEN
4635: okc_debug.log('2300: Leaving delete_row', 2);
4636: END IF;
4641: okc_debug.log('2400: Leaving delete_Row: OKC_API.G_EXCEPTION_ERROR Exception', 2);
4642: END IF;
4643: ROLLBACK TO g_delete_row_GRP;
4644: x_return_status := G_RET_STS_ERROR ;
4645: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4646:
4647: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4648: IF (l_debug = 'Y') THEN
4649: okc_debug.log('2500: Leaving delete_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4649: okc_debug.log('2500: Leaving delete_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4650: END IF;
4651: ROLLBACK TO g_delete_row_GRP;
4652: x_return_status := G_RET_STS_UNEXP_ERROR ;
4653: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4654:
4655: WHEN OTHERS THEN
4656: IF (l_debug = 'Y') THEN
4657: okc_debug.log('2600: Leaving delete_Row because of EXCEPTION: '||sqlerrm, 2);
4658: END IF;
4659:
4660: ROLLBACK TO g_delete_row_GRP;
4661: x_return_status := G_RET_STS_UNEXP_ERROR ;
4662: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4663: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4664: END IF;
4665: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4666:
4659:
4660: ROLLBACK TO g_delete_row_GRP;
4661: x_return_status := G_RET_STS_UNEXP_ERROR ;
4662: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4663: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4664: END IF;
4665: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4666:
4667: END delete_article_relationship;
4661: x_return_status := G_RET_STS_UNEXP_ERROR ;
4662: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4663: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4664: END IF;
4665: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4666:
4667: END delete_article_relationship;
4668:
4669: -- Bug#3722445: The following API will be used by the Update Article UI to check if future approved versions exist
4701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4702: END IF;
4703: -- Initialize message list if p_init_msg_list is set to TRUE.
4704: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4705: FND_MSG_PUB.initialize;
4706: END IF;
4707:
4708: -- Initialize API return status to success
4709: x_return_status := FND_API.G_RET_STS_SUCCESS;
4713: l_yes_no := 'N';
4714: END IF;
4715: CLOSE l_highest_version_csr;
4716: x_yes_no := l_yes_no;
4717: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4718: EXCEPTION
4719: WHEN OTHERS THEN
4720: IF l_highest_version_csr%ISOPEN Then
4721: close l_highest_version_csr;
4727: p_token2 => G_SQLERRM_TOKEN,
4728: p_token2_value => sqlerrm);
4729:
4730: x_return_status := G_RET_STS_UNEXP_ERROR ;
4731: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,p_encoded=> 'F', p_data => x_msg_data );
4732:
4733: END later_approved_exists;
4734: -- MOAC
4735: /*