[Home] [Help]
845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
846: END IF;
847: -- Initialize message list if p_init_msg_list is set to TRUE.
848: IF FND_API.to_Boolean( p_init_msg_list ) THEN
849: FND_MSG_PUB.initialize;
850: END IF;
851: -- Initialize API return status to success
852: x_return_status := FND_API.G_RET_STS_SUCCESS;
853:
915: IF FND_API.To_Boolean( p_commit ) THEN
916: COMMIT WORK;
917: END IF;
918: -- Standard call to get message count and if count is 1, get message info.
919: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
920:
921: IF (l_debug = 'Y') THEN
922: okc_debug.log('2300: Leaving delete_article_version', 2);
923: END IF;
928: okc_debug.log('2400: Leaving delete_article_version: OKC_API.G_EXCEPTION_ERROR Exception', 2);
929: END IF;
930: ROLLBACK TO g_delete_article_version_GRP;
931: x_return_status := G_RET_STS_ERROR ;
932: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
933:
934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
935: IF (l_debug = 'Y') THEN
936: okc_debug.log('2500: Leaving delete_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
936: okc_debug.log('2500: Leaving delete_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
937: END IF;
938: ROLLBACK TO g_delete_article_version_GRP;
939: x_return_status := G_RET_STS_UNEXP_ERROR ;
940: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
941:
942: WHEN OTHERS THEN
943: IF (l_debug = 'Y') THEN
944: okc_debug.log('2600: Leaving delete_article_version because of EXCEPTION: '||sqlerrm, 2);
945: END IF;
946:
947: ROLLBACK TO g_delete_article_version_GRP;
948: x_return_status := G_RET_STS_UNEXP_ERROR ;
949: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
950: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
951: END IF;
952: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
953:
946:
947: ROLLBACK TO g_delete_article_version_GRP;
948: x_return_status := G_RET_STS_UNEXP_ERROR ;
949: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
950: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
951: END IF;
952: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
953:
954: END delete_article_version;
948: x_return_status := G_RET_STS_UNEXP_ERROR ;
949: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
950: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
951: END IF;
952: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
953:
954: END delete_article_version;
955:
956: PROCEDURE validate_article(
1035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1036: END IF;
1037: -- Initialize message list if p_init_msg_list is set to TRUE.
1038: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1039: FND_MSG_PUB.initialize;
1040: END IF;
1041: -- Initialize API return status to success
1042: x_return_status := FND_API.G_RET_STS_SUCCESS;
1043:
1134: --------------------------------------------
1135: x_return_status := l_return_status;
1136:
1137: -- Standard call to get message count and if count is 1, get message info.
1138: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1139:
1140: IF (l_debug = 'Y') THEN
1141: okc_debug.log('200: Leaving validate_article', 2);
1142: END IF;
1148: END IF;
1149: ROLLBACK TO g_validate_article_GRP;
1150: l_return_status := G_RET_STS_ERROR ;
1151: x_return_status := G_RET_STS_ERROR ;
1152: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1153: --dbms_output.put_line('Msg data2:' || x_msg_data);
1154:
1155: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1156: IF (l_debug = 'Y') THEN
1158: END IF;
1159: ROLLBACK TO g_validate_article_GRP;
1160: l_return_status := G_RET_STS_UNEXP_ERROR ;
1161: x_return_status := G_RET_STS_UNEXP_ERROR ;
1162: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1163:
1164: WHEN OTHERS THEN
1165: IF (l_debug = 'Y') THEN
1166: okc_debug.log('500: Leaving Validate_Article because of EXCEPTION: '||sqlerrm, 2);
1168:
1169: ROLLBACK TO g_validate_article_GRP;
1170: l_return_status := G_RET_STS_UNEXP_ERROR ;
1171: x_return_status := G_RET_STS_UNEXP_ERROR ;
1172: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1173: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1174: END IF;
1175: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1176:
1169: ROLLBACK TO g_validate_article_GRP;
1170: l_return_status := G_RET_STS_UNEXP_ERROR ;
1171: x_return_status := G_RET_STS_UNEXP_ERROR ;
1172: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1173: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1174: END IF;
1175: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1176:
1177: END validate_article;
1171: x_return_status := G_RET_STS_UNEXP_ERROR ;
1172: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1173: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1174: END IF;
1175: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1176:
1177: END validate_article;
1178:
1179: -------------------------------------
1277:
1278: -- Initialize message list if p_init_msg_list is set to TRUE.
1279: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1280: --dbms_output.put_line('600: Entered create_article message init');
1281: FND_MSG_PUB.initialize;
1282: END IF;
1283: -- Initialize API return status to success
1284: x_return_status := FND_API.G_RET_STS_SUCCESS;
1285: --dbms_output.put_line('600: Entered create_article from copy status is'||x_return_status);
1412: IF FND_API.To_Boolean( p_commit ) THEN
1413: COMMIT WORK;
1414: END IF;
1415: -- Standard call to get message count and if count is 1, get message info.
1416: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1417:
1418: IF (l_debug = 'Y') THEN
1419: okc_debug.log('700: Leaving create_article', 2);
1420: END IF;
1425: okc_debug.log('800: Leaving create_article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
1426: END IF;
1427: ROLLBACK TO g_create_article_GRP;
1428: x_return_status := G_RET_STS_ERROR ;
1429: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1430:
1431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1432: IF (l_debug = 'Y') THEN
1433: okc_debug.log('900: Leaving create_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1433: okc_debug.log('900: Leaving create_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1434: END IF;
1435: ROLLBACK TO g_create_article_GRP;
1436: x_return_status := G_RET_STS_UNEXP_ERROR ;
1437: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1438:
1439: WHEN OTHERS THEN
1440: IF (l_debug = 'Y') THEN
1441: okc_debug.log('1000: Leaving create_article because of EXCEPTION: '||sqlerrm, 2);
1442: END IF;
1443:
1444: ROLLBACK TO g_create_article_GRP;
1445: x_return_status := G_RET_STS_UNEXP_ERROR ;
1446: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1447: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1448: END IF;
1449: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1450:
1443:
1444: ROLLBACK TO g_create_article_GRP;
1445: x_return_status := G_RET_STS_UNEXP_ERROR ;
1446: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1447: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1448: END IF;
1449: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1450:
1451: END create_article;
1445: x_return_status := G_RET_STS_UNEXP_ERROR ;
1446: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1447: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1448: END IF;
1449: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1450:
1451: END create_article;
1452: ---------------------------------------------------------------------------
1453: -- PROCEDURE lock_article
1479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1480: END IF;
1481: -- Initialize message list if p_init_msg_list is set to TRUE.
1482: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1483: FND_MSG_PUB.initialize;
1484: END IF;
1485: -- Initialize API return status to success
1486: x_return_status := FND_API.G_RET_STS_SUCCESS;
1487:
1521: END IF;
1522: --------------------------------------------
1523:
1524: -- Standard call to get message count and if count is 1, get message info.
1525: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1526:
1527: IF (l_debug = 'Y') THEN
1528: okc_debug.log('1200: Leaving lock_article', 2);
1529: END IF;
1534: okc_debug.log('1300: Leaving lock_article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
1535: END IF;
1536: ROLLBACK TO g_lock_article_GRP;
1537: x_return_status := G_RET_STS_ERROR ;
1538: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1539:
1540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1541: IF (l_debug = 'Y') THEN
1542: okc_debug.log('1400: Leaving lock_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1542: okc_debug.log('1400: Leaving lock_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1543: END IF;
1544: ROLLBACK TO g_lock_article_GRP;
1545: x_return_status := G_RET_STS_UNEXP_ERROR ;
1546: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1547:
1548: WHEN OTHERS THEN
1549: IF (l_debug = 'Y') THEN
1550: okc_debug.log('1500: Leaving lock_article because of EXCEPTION: '||sqlerrm, 2);
1551: END IF;
1552:
1553: ROLLBACK TO g_lock_article_GRP;
1554: x_return_status := G_RET_STS_UNEXP_ERROR ;
1555: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1556: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1557: END IF;
1558: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1559:
1552:
1553: ROLLBACK TO g_lock_article_GRP;
1554: x_return_status := G_RET_STS_UNEXP_ERROR ;
1555: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1556: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1557: END IF;
1558: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1559:
1560: END lock_article;
1554: x_return_status := G_RET_STS_UNEXP_ERROR ;
1555: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1556: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1557: END IF;
1558: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1559:
1560: END lock_article;
1561: ---------------------------------------------------------------------------
1562: -- PROCEDURE update_article
1652: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
1653: CLOSE cur_org_csr;
1654: */
1655: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1656: FND_MSG_PUB.initialize;
1657: END IF;
1658: -- Initialize API return status to success
1659: x_return_status := FND_API.G_RET_STS_SUCCESS;
1660:
1761: IF FND_API.To_Boolean( p_commit ) THEN
1762: COMMIT WORK;
1763: END IF;
1764: -- Standard call to get message count and if count is 1, get message info.
1765: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1766:
1767: IF (l_debug = 'Y') THEN
1768: okc_debug.log('1800: Leaving update_article', 2);
1769: END IF;
1774: okc_debug.log('1900: Leaving update_article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
1775: END IF;
1776: ROLLBACK TO g_update_article_GRP;
1777: x_return_status := G_RET_STS_ERROR ;
1778: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1779:
1780: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1781: IF (l_debug = 'Y') THEN
1782: okc_debug.log('2000: Leaving update_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1782: okc_debug.log('2000: Leaving update_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1783: END IF;
1784: ROLLBACK TO g_update_article_GRP;
1785: x_return_status := G_RET_STS_UNEXP_ERROR ;
1786: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1787:
1788: WHEN OTHERS THEN
1789: IF (l_debug = 'Y') THEN
1790: okc_debug.log('2100: Leaving update_article because of EXCEPTION: '||sqlerrm, 2);
1791: END IF;
1792:
1793: ROLLBACK TO g_update_article_GRP;
1794: x_return_status := G_RET_STS_UNEXP_ERROR ;
1795: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1796: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1797: END IF;
1798: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1799:
1792:
1793: ROLLBACK TO g_update_article_GRP;
1794: x_return_status := G_RET_STS_UNEXP_ERROR ;
1795: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1796: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1797: END IF;
1798: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1799:
1800: END update_article;
1794: x_return_status := G_RET_STS_UNEXP_ERROR ;
1795: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1796: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1797: END IF;
1798: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1799:
1800: END update_article;
1801:
1802: ---------------------------------------------------------------------------
1857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1858: END IF;
1859: -- Initialize message list if p_init_msg_list is set to TRUE.
1860: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1861: FND_MSG_PUB.initialize;
1862: END IF;
1863: -- Initialize API return status to success
1864: x_return_status := FND_API.G_RET_STS_SUCCESS;
1865:
1962: IF FND_API.To_Boolean( p_commit ) THEN
1963: COMMIT WORK;
1964: END IF;
1965: -- Standard call to get message count and if count is 1, get message info.
1966: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1967:
1968: IF (l_debug = 'Y') THEN
1969: okc_debug.log('2300: Leaving delete_article', 2);
1970: END IF;
1984: CLOSE l_template_csr;
1985: END IF;
1986: ROLLBACK TO g_delete_article_GRP;
1987: x_return_status := G_RET_STS_ERROR ;
1988: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1989:
1990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1991: IF (l_debug = 'Y') THEN
1992: okc_debug.log('2500: Leaving delete_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2001: CLOSE l_template_csr;
2002: END IF;
2003: ROLLBACK TO g_delete_article_GRP;
2004: x_return_status := G_RET_STS_UNEXP_ERROR ;
2005: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2006:
2007: WHEN OTHERS THEN
2008: IF (l_debug = 'Y') THEN
2009: okc_debug.log('2600: Leaving delete_article because of EXCEPTION: '||sqlerrm, 2);
2018: CLOSE l_template_csr;
2019: END IF;
2020: ROLLBACK TO g_delete_article_GRP;
2021: x_return_status := G_RET_STS_UNEXP_ERROR ;
2022: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2023: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2024: END IF;
2025: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2026:
2019: END IF;
2020: ROLLBACK TO g_delete_article_GRP;
2021: x_return_status := G_RET_STS_UNEXP_ERROR ;
2022: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2023: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2024: END IF;
2025: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2026:
2027: END delete_article;
2021: x_return_status := G_RET_STS_UNEXP_ERROR ;
2022: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2023: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2024: END IF;
2025: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2026:
2027: END delete_article;
2028:
2029: ---------------------------------------
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: END IF;
2103: -- Initialize message list if p_init_msg_list is set to TRUE.
2104: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2105: FND_MSG_PUB.initialize;
2106: END IF;
2107: -- Initialize API return status to success
2108: x_return_status := FND_API.G_RET_STS_SUCCESS;
2109:
2170: END IF;
2171: --------------------------------------------
2172:
2173: -- Standard call to get message count and if count is 1, get message info.
2174: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2175:
2176: IF (l_debug = 'Y') THEN
2177: okc_debug.log('200: Leaving validate_article_version', 2);
2178: END IF;
2183: okc_debug.log('300: Leaving Validate_article_version: OKC_API.G_EXCEPTION_ERROR Exception', 2);
2184: END IF;
2185: ROLLBACK TO g_validate_article_version_GRP;
2186: x_return_status := G_RET_STS_ERROR ;
2187: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2188:
2189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2190: IF (l_debug = 'Y') THEN
2191: okc_debug.log('400: Leaving Validate_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2191: okc_debug.log('400: Leaving Validate_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2192: END IF;
2193: ROLLBACK TO g_validate_article_version_GRP;
2194: x_return_status := G_RET_STS_UNEXP_ERROR ;
2195: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2196:
2197: WHEN OTHERS THEN
2198: IF (l_debug = 'Y') THEN
2199: okc_debug.log('500: Leaving Validate_article_version because of EXCEPTION: '||sqlerrm, 2);
2200: END IF;
2201:
2202: ROLLBACK TO g_validate_article_version_GRP;
2203: x_return_status := G_RET_STS_UNEXP_ERROR ;
2204: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2205: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2206: END IF;
2207: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2208:
2201:
2202: ROLLBACK TO g_validate_article_version_GRP;
2203: x_return_status := G_RET_STS_UNEXP_ERROR ;
2204: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2205: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2206: END IF;
2207: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2208:
2209: END validate_article_version;
2203: x_return_status := G_RET_STS_UNEXP_ERROR ;
2204: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2205: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2206: END IF;
2207: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2208:
2209: END validate_article_version;
2210:
2211: -------------------------------------
2317: CLOSE cur_org_csr;
2318: */
2319: -- Initialize message list if p_init_msg_list is set to TRUE.
2320: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2321: FND_MSG_PUB.initialize;
2322: END IF;
2323: -- Initialize API return status to success
2324: x_return_status := FND_API.G_RET_STS_SUCCESS;
2325:
2509: IF FND_API.To_Boolean( p_commit ) THEN
2510: COMMIT WORK;
2511: END IF;
2512: -- Standard call to get message count and if count is 1, get message info.
2513: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2514:
2515: IF (l_debug = 'Y') THEN
2516: okc_debug.log('700: Leaving create_article_version', 2);
2517: END IF;
2522: okc_debug.log('800: Leaving create_article_version: OKC_API.G_EXCEPTION_ERROR Exception', 2);
2523: END IF;
2524: ROLLBACK TO g_create_article_version_GRP;
2525: x_return_status := G_RET_STS_ERROR ;
2526: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2527:
2528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2529: IF (l_debug = 'Y') THEN
2530: okc_debug.log('900: Leaving create_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2530: okc_debug.log('900: Leaving create_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2531: END IF;
2532: ROLLBACK TO g_create_article_version_GRP;
2533: x_return_status := G_RET_STS_UNEXP_ERROR ;
2534: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2535:
2536: WHEN OTHERS THEN
2537: IF (l_debug = 'Y') THEN
2538: okc_debug.log('1000: Leaving create_article_version because of EXCEPTION: '||sqlerrm, 2);
2539: END IF;
2540:
2541: ROLLBACK TO g_create_article_version_GRP;
2542: x_return_status := G_RET_STS_UNEXP_ERROR ;
2543: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2544: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2545: END IF;
2546: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2547:
2540:
2541: ROLLBACK TO g_create_article_version_GRP;
2542: x_return_status := G_RET_STS_UNEXP_ERROR ;
2543: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2544: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2545: END IF;
2546: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2547:
2548: END create_article_version;
2542: x_return_status := G_RET_STS_UNEXP_ERROR ;
2543: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2544: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2545: END IF;
2546: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2547:
2548: END create_article_version;
2549: ---------------------------------------------------------------------------
2550: -- PROCEDURE lock_article_version
2575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2576: END IF;
2577: -- Initialize message list if p_init_msg_list is set to TRUE.
2578: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2579: FND_MSG_PUB.initialize;
2580: END IF;
2581: -- Initialize API return status to success
2582: x_return_status := FND_API.G_RET_STS_SUCCESS;
2583:
2597: END IF;
2598: --------------------------------------------
2599:
2600: -- Standard call to get message count and if count is 1, get message info.
2601: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2602:
2603: IF (l_debug = 'Y') THEN
2604: okc_debug.log('1200: Leaving lock_article_version', 2);
2605: END IF;
2610: okc_debug.log('1300: Leaving lock_article_version: OKC_API.G_EXCEPTION_ERROR Exception', 2);
2611: END IF;
2612: ROLLBACK TO g_lock_article_version_GRP;
2613: x_return_status := G_RET_STS_ERROR ;
2614: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2615:
2616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2617: IF (l_debug = 'Y') THEN
2618: okc_debug.log('1400: Leaving lock_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2618: okc_debug.log('1400: Leaving lock_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2619: END IF;
2620: ROLLBACK TO g_lock_article_version_GRP;
2621: x_return_status := G_RET_STS_UNEXP_ERROR ;
2622: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2623:
2624: WHEN OTHERS THEN
2625: IF (l_debug = 'Y') THEN
2626: okc_debug.log('1500: Leaving lock_article_version because of EXCEPTION: '||sqlerrm, 2);
2627: END IF;
2628:
2629: ROLLBACK TO g_lock_article_version_GRP;
2630: x_return_status := G_RET_STS_UNEXP_ERROR ;
2631: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2632: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2633: END IF;
2634: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2635:
2628:
2629: ROLLBACK TO g_lock_article_version_GRP;
2630: x_return_status := G_RET_STS_UNEXP_ERROR ;
2631: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2632: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2633: END IF;
2634: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2635:
2636: END lock_article_version;
2630: x_return_status := G_RET_STS_UNEXP_ERROR ;
2631: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2632: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2633: END IF;
2634: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2635:
2636: END lock_article_version;
2637:
2638: ---------------------------------------------------------------------------
2850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2851: END IF;
2852: -- Initialize message list if p_init_msg_list is set to TRUE.
2853: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2854: FND_MSG_PUB.initialize;
2855: END IF;
2856: -- Initialize API return status to success
2857: x_return_status := FND_API.G_RET_STS_SUCCESS;
2858:
2998: IF FND_API.To_Boolean( p_commit ) THEN
2999: COMMIT WORK;
3000: END IF;
3001: -- Standard call to get message count and if count is 1, get message info.
3002: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3003:
3004: IF (l_debug = 'Y') THEN
3005: okc_debug.log('1800: Leaving update_article_version', 2);
3006: END IF;
3011: okc_debug.log('1900: Leaving update_article_version: OKC_API.G_EXCEPTION_ERROR Exception', 2);
3012: END IF;
3013: ROLLBACK TO g_update_article_version_GRP;
3014: x_return_status := G_RET_STS_ERROR ;
3015: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3016:
3017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3018: IF (l_debug = 'Y') THEN
3019: okc_debug.log('2000: Leaving update_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3019: okc_debug.log('2000: Leaving update_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3020: END IF;
3021: ROLLBACK TO g_update_article_version_GRP;
3022: x_return_status := G_RET_STS_UNEXP_ERROR ;
3023: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3024:
3025: WHEN OTHERS THEN
3026: IF (l_debug = 'Y') THEN
3027: okc_debug.log('2100: Leaving update_article_version because of EXCEPTION: '||sqlerrm, 2);
3028: END IF;
3029:
3030: ROLLBACK TO g_update_article_version_GRP;
3031: x_return_status := G_RET_STS_UNEXP_ERROR ;
3032: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3033: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3034: END IF;
3035: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3036:
3029:
3030: ROLLBACK TO g_update_article_version_GRP;
3031: x_return_status := G_RET_STS_UNEXP_ERROR ;
3032: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3033: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3034: END IF;
3035: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3036:
3037: END update_article_version;
3031: x_return_status := G_RET_STS_UNEXP_ERROR ;
3032: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3033: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3034: END IF;
3035: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3036:
3037: END update_article_version;
3038:
3039:
3211: CLOSE cur_org_csr;
3212: */
3213: -- Initialize message list if p_init_msg_list is set to TRUE.
3214: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3215: FND_MSG_PUB.initialize;
3216: END IF;
3217: -- Initialize API return status to success
3218: x_return_status := FND_API.G_RET_STS_SUCCESS;
3219: --dbms_output.put_line('2700: Before Cursor Entered Copy_Articles ');
3657: IF FND_API.To_Boolean( p_commit ) THEN
3658: COMMIT WORK;
3659: END IF;
3660: -- Standard call to get message count and if count is 1, get message info.
3661: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3662:
3663: IF (l_debug = 'Y') THEN
3664: okc_debug.log('2800: Leaving copy_article', 2);
3665: END IF;
3670: okc_debug.log('2900: Leaving copy_article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
3671: END IF;
3672: ROLLBACK TO g_copy_article_GRP;
3673: x_return_status := G_RET_STS_ERROR ;
3674: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3675:
3676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3677: IF (l_debug = 'Y') THEN
3678: okc_debug.log('3000: Leaving copy_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3678: okc_debug.log('3000: Leaving copy_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3679: END IF;
3680: ROLLBACK TO g_copy_article_GRP;
3681: x_return_status := G_RET_STS_UNEXP_ERROR ;
3682: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3683:
3684: WHEN OTHERS THEN
3685: IF (l_debug = 'Y') THEN
3686: okc_debug.log('3100: Leaving copy_article because of EXCEPTION: '||sqlerrm, 2);
3687: END IF;
3688:
3689: ROLLBACK TO g_copy_article_GRP;
3690: x_return_status := G_RET_STS_UNEXP_ERROR ;
3691: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3692: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3693: END IF;
3694: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3695:
3688:
3689: ROLLBACK TO g_copy_article_GRP;
3690: x_return_status := G_RET_STS_UNEXP_ERROR ;
3691: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3692: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3693: END IF;
3694: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3695:
3696: END copy_article;
3690: x_return_status := G_RET_STS_UNEXP_ERROR ;
3691: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3692: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3693: END IF;
3694: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3695:
3696: END copy_article;
3697:
3698: PROCEDURE get_local_article_id
4145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4146: END IF;
4147: -- Initialize message list if p_init_msg_list is set to TRUE.
4148: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4149: FND_MSG_PUB.initialize;
4150: END IF;
4151: -- Initialize API return status to success
4152: x_return_status := FND_API.G_RET_STS_SUCCESS;
4153:
4222: IF FND_API.To_Boolean( p_commit ) THEN
4223: COMMIT WORK;
4224: END IF;
4225: -- Standard call to get message count and if count is 1, get message info.
4226: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4227:
4228: IF (l_debug = 'Y') THEN
4229: okc_debug.log('700: Leaving insert_row', 2);
4230: END IF;
4235: okc_debug.log('800: Leaving insert_row: OKC_API.G_EXCEPTION_ERROR Exception', 2);
4236: END IF;
4237: ROLLBACK TO g_insert_row_GRP;
4238: x_return_status := G_RET_STS_ERROR ;
4239: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4240:
4241: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4242: IF (l_debug = 'Y') THEN
4243: okc_debug.log('900: Leaving insert_row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4243: okc_debug.log('900: Leaving insert_row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4244: END IF;
4245: ROLLBACK TO g_insert_row_GRP;
4246: x_return_status := G_RET_STS_UNEXP_ERROR ;
4247: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4248:
4249: WHEN OTHERS THEN
4250: IF (l_debug = 'Y') THEN
4251: okc_debug.log('1000: Leaving insert_row because of EXCEPTION: '||sqlerrm, 2);
4252: END IF;
4253:
4254: ROLLBACK TO g_insert_row_GRP;
4255: x_return_status := G_RET_STS_UNEXP_ERROR ;
4256: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4257: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4258: END IF;
4259: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4260:
4253:
4254: ROLLBACK TO g_insert_row_GRP;
4255: x_return_status := G_RET_STS_UNEXP_ERROR ;
4256: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4257: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4258: END IF;
4259: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4260:
4261: END create_article_relationship;
4255: x_return_status := G_RET_STS_UNEXP_ERROR ;
4256: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4257: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4258: END IF;
4259: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4260:
4261: END create_article_relationship;
4262:
4263: ---------------------------------------------------------------------------
4394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4395: END IF;
4396: -- Initialize message list if p_init_msg_list is set to TRUE.
4397: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4398: FND_MSG_PUB.initialize;
4399: END IF;
4400: -- Initialize API return status to success
4401: x_return_status := FND_API.G_RET_STS_SUCCESS;
4402:
4461: IF FND_API.To_Boolean( p_commit ) THEN
4462: COMMIT WORK;
4463: END IF;
4464: -- Standard call to get message count and if count is 1, get message info.
4465: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4466:
4467: IF (l_debug = 'Y') THEN
4468: okc_debug.log('2300: Leaving delete_row', 2);
4469: END IF;
4474: okc_debug.log('2400: Leaving delete_Row: OKC_API.G_EXCEPTION_ERROR Exception', 2);
4475: END IF;
4476: ROLLBACK TO g_delete_row_GRP;
4477: x_return_status := G_RET_STS_ERROR ;
4478: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4479:
4480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4481: IF (l_debug = 'Y') THEN
4482: okc_debug.log('2500: Leaving delete_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4482: okc_debug.log('2500: Leaving delete_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4483: END IF;
4484: ROLLBACK TO g_delete_row_GRP;
4485: x_return_status := G_RET_STS_UNEXP_ERROR ;
4486: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4487:
4488: WHEN OTHERS THEN
4489: IF (l_debug = 'Y') THEN
4490: okc_debug.log('2600: Leaving delete_Row because of EXCEPTION: '||sqlerrm, 2);
4491: END IF;
4492:
4493: ROLLBACK TO g_delete_row_GRP;
4494: x_return_status := G_RET_STS_UNEXP_ERROR ;
4495: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4496: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4497: END IF;
4498: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4499:
4492:
4493: ROLLBACK TO g_delete_row_GRP;
4494: x_return_status := G_RET_STS_UNEXP_ERROR ;
4495: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4496: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4497: END IF;
4498: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4499:
4500: END delete_article_relationship;
4494: x_return_status := G_RET_STS_UNEXP_ERROR ;
4495: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4496: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4497: END IF;
4498: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4499:
4500: END delete_article_relationship;
4501:
4502: -- Bug#3722445: The following API will be used by the Update Article UI to check if future approved versions exist
4534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4535: END IF;
4536: -- Initialize message list if p_init_msg_list is set to TRUE.
4537: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4538: FND_MSG_PUB.initialize;
4539: END IF;
4540:
4541: -- Initialize API return status to success
4542: x_return_status := FND_API.G_RET_STS_SUCCESS;
4546: l_yes_no := 'N';
4547: END IF;
4548: CLOSE l_highest_version_csr;
4549: x_yes_no := l_yes_no;
4550: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4551: EXCEPTION
4552: WHEN OTHERS THEN
4553: IF l_highest_version_csr%ISOPEN Then
4554: close l_highest_version_csr;
4560: p_token2 => G_SQLERRM_TOKEN,
4561: p_token2_value => sqlerrm);
4562:
4563: x_return_status := G_RET_STS_UNEXP_ERROR ;
4564: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,p_encoded=> 'F', p_data => x_msg_data );
4565:
4566: END later_approved_exists;
4567: -- MOAC
4568: /*