[Home] [Help]
8:
9: ---------------------------------------------------------------------------
10: -- GLOBAL MESSAGE CONSTANTS
11: ---------------------------------------------------------------------------
12: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
13: ---------------------------------------------------------------------------
14: -- GLOBAL VARIABLES
15: ---------------------------------------------------------------------------
16: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_ARTICLES_GRP';
13: ---------------------------------------------------------------------------
14: -- GLOBAL VARIABLES
15: ---------------------------------------------------------------------------
16: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_ARTICLES_GRP';
17: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
18:
19: ------------------------------------------------------------------------------
20: -- GLOBAL CONSTANTS
21: ------------------------------------------------------------------------------
32: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
33: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
34: G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
35:
36: G_INVALID_VALUE CONSTANT varchar2(200) := OKC_API.G_INVALID_VALUE;
37: G_COL_NAME_TOKEN CONSTANT varchar2(200) := OKC_API.G_COL_NAME_TOKEN;
38: -- MOAC
39: --G_CURRENT_ORG_ID NUMBER := -99;
40: G_CURRENT_ORG_ID NUMBER ;
33: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
34: G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
35:
36: G_INVALID_VALUE CONSTANT varchar2(200) := OKC_API.G_INVALID_VALUE;
37: G_COL_NAME_TOKEN CONSTANT varchar2(200) := OKC_API.G_COL_NAME_TOKEN;
38: -- MOAC
39: --G_CURRENT_ORG_ID NUMBER := -99;
40: G_CURRENT_ORG_ID NUMBER ;
41: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
37: G_COL_NAME_TOKEN CONSTANT varchar2(200) := OKC_API.G_COL_NAME_TOKEN;
38: -- MOAC
39: --G_CURRENT_ORG_ID NUMBER := -99;
40: G_CURRENT_ORG_ID NUMBER ;
41: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
42: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
43: G_VAR_NOT_CLOSED EXCEPTION;
44: G_VAR_NOT_FOUND EXCEPTION;
45: G_VAR_NOT_FOUND_RET_STS CONSTANT varchar2(1) := 'V';
38: -- MOAC
39: --G_CURRENT_ORG_ID NUMBER := -99;
40: G_CURRENT_ORG_ID NUMBER ;
41: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
42: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
43: G_VAR_NOT_CLOSED EXCEPTION;
44: G_VAR_NOT_FOUND EXCEPTION;
45: G_VAR_NOT_FOUND_RET_STS CONSTANT varchar2(1) := 'V';
46: -- MOAC
160: when OTHERS
161: then
162: begin
163: x_return_status := G_RET_STS_UNEXP_ERROR;
164: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
165: p_msg_name => G_UNEXPECTED_ERROR,
166: p_token1 => G_SQLCODE_TOKEN,
167: p_token1_value => sqlcode,
168: p_token2 => G_SQLERRM_TOKEN,
302: EXCEPTION
303: when G_VAR_NOT_FOUND then
304: --dbms_output.put_line(' VAR NOT FOUND 1 ');
305: x_return_status := G_VAR_NOT_FOUND_RET_STS;
306: OKC_API.set_message(p_app_name => OKC_API.G_APP_NAME,
307: p_msg_name => 'OKC_ART_VAR_NOT_FOUND',
308: p_token1 => 'VARIABLE',
309: p_token1_value => p_extracted_var_name
310: );
312:
313: WHEN OTHERS THEN
314: --dbms_output.put_line(' VAR NOT FOUND when others');
315: x_return_status := G_RET_STS_UNEXP_ERROR;
316: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
317: p_msg_name => G_UNEXPECTED_ERROR,
318: p_token1 => G_SQLCODE_TOKEN,
319: p_token1_value => sqlcode,
320: p_token2 => G_SQLERRM_TOKEN,
554: EXCEPTION
555: WHEN G_VAR_NOT_FOUND then
556: --dbms_output.put_line(' VAR NOT FOUND 1 ');
557: x_return_status := G_VAR_NOT_FOUND_RET_STS;
558: OKC_API.set_message(p_app_name => OKC_API.G_APP_NAME,
559: p_msg_name => 'OKC_ART_VAR_NOT_FOUND',
560: p_token1 => 'VARIABLE',
561: p_token1_value => l_extracted_var_name
562: );
563: WHEN NO_DATA_FOUND
564: THEN
565: BEGIN
566: x_return_status := G_RET_STS_ERROR;
567: OKC_API.set_message(p_app_name => OKC_API.G_APP_NAME,
568: p_msg_name => 'OKC_ART_VAR_NOT_FOUND'
569: );
570:
571: END;
571: END;
572: when G_VAR_NOT_CLOSED
573: then
574: x_return_status := G_RET_STS_ERROR;
575: OKC_API.set_message(p_app_name => OKC_API.G_APP_NAME,
576: p_msg_name => 'OKC_ART_VAR_NOT_CLOSED'
577: );
578: WHEN OTHERS
579: THEN
577: );
578: WHEN OTHERS
579: THEN
580: x_return_status := G_RET_STS_UNEXP_ERROR;
581: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
582: p_msg_name => G_UNEXPECTED_ERROR,
583: p_token1 => G_SQLCODE_TOKEN,
584: p_token1_value => sqlcode,
585: p_token2 => G_SQLERRM_TOKEN,
685: if p_org_id IS NOT NULL Then
686: l_org_id := p_org_id;
687: else
688: if G_CURRENT_ORG_ID IS NULL Then
689: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
690: RAISE FND_API.G_EXC_ERROR ;
691: else
692: l_org_id := G_CURRENT_ORG_ID;
693: end if;
705: FETCH l_get_sob_csr into l_set_of_books_id;
706: l_row_notfound := l_get_sob_csr%NOTFOUND;
707: CLOSE l_get_sob_csr;
708: IF l_row_notfound THEN
709: Okc_Api.Set_Message(G_APP_NAME,'OKC_ART_INV_SOB_ID');
710: RAISE FND_API.G_EXC_ERROR ;
711: END IF;
712: l_row_notfound := FALSE;
713: -- New changes for MOAC Bug 4643332
716: FETCH l_clause_seq_csr into l_doc_category_code;
717: l_row_notfound1 := l_clause_seq_csr%NOTFOUND;
718: CLOSE l_clause_seq_csr;
719: IF l_row_notfound1 THEN
720: Okc_Api.Set_Message(G_APP_NAME,'OKC_ART_SEQ_CAT_NOT_DEFINED');
721: RAISE FND_API.G_EXC_ERROR ;
722: END IF;
723: l_row_notfound1 := FALSE;
724: --l_doc_category_code := G_DOC_CATEGORY_CODE; -- Commented for new changes for MOAC
744: --dbms_output.put_line('Info result is: '|| l_result ||'*'|| l_doc_sequence_type);
745: IF l_result <> FND_SEQNUM.SEQSUCC THEN
746: /* Commented following IF - Bug 3542035 , This IF is not reqd */
747: --IF l_result = FND_SEQNUM.NOTUSED THEN
748: OKC_API.set_message(G_APP_NAME,'OKC_ART_MISS_DOC_SEQ');
749: --END IF;
750: RAISE FND_API.G_EXC_ERROR;
751: END IF;
752:
777: CLOSE l_ensure_unique_csr;
778: IF l_row_notfound THEN
779: NULL; -- dups do not exist.
780: ELSE
781: Okc_Api.Set_Message(G_APP_NAME,'OKC_ART_ART_NUM_EXIST');
782: RAISE FND_API.G_EXC_ERROR ;
783: END IF;
784: ELSIF (x_doc_sequence_type = 'M') THEN
785: x_article_number := p_article_number;
786: END IF;
787: EXCEPTION
788: WHEN FND_API.G_EXC_ERROR THEN
789: IF (l_debug = 'Y') THEN
790: okc_debug.log('2400: Leaving get article number: OKC_API.G_EXCEPTION_ERROR Exception', 2);
791: --dbms_output.put_line('2400: Leaving get article number: OKC_API.G_EXCEPTION_ERROR Exception');
792: END IF;
793: x_return_status := G_RET_STS_ERROR ;
794: WHEN OTHERS THEN
787: EXCEPTION
788: WHEN FND_API.G_EXC_ERROR THEN
789: IF (l_debug = 'Y') THEN
790: okc_debug.log('2400: Leaving get article number: OKC_API.G_EXCEPTION_ERROR Exception', 2);
791: --dbms_output.put_line('2400: Leaving get article number: OKC_API.G_EXCEPTION_ERROR Exception');
792: END IF;
793: x_return_status := G_RET_STS_ERROR ;
794: WHEN OTHERS THEN
795: /*------------------------------------------+
798: | is mandatory. |
799: +------------------------------------------*/
800: --dbms_output.put_line('Get_Doc_Seq: ' || 'no_data_found raised'||G_profile_doc_seq);
801: IF (G_profile_doc_seq = 'A' ) THEN
802: OKC_API.Set_Message( 'FND','UNIQUE-ALWAYS USED');
803: END IF;
804: x_return_status := G_RET_STS_ERROR;
805: IF l_get_sob_csr%ISOPEN THEN
806: CLOSE l_get_sob_csr;
892: -- from a prior version we delete the adoption row for this version.
893:
894: -- MOAC
895: IF G_CURRENT_ORG_ID IS NULL Then
896: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
897: RAISE FND_API.G_EXC_ERROR ;
898: END IF;
899:
900: IF (G_CURRENT_ORG_ID = G_GLOBAL_ORG_ID OR
935:
936: EXCEPTION
937: WHEN FND_API.G_EXC_ERROR THEN
938: IF (l_debug = 'Y') THEN
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 );
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);
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 );
1165:
1166: EXCEPTION
1167: WHEN FND_API.G_EXC_ERROR THEN
1168: IF (l_debug = 'Y') THEN
1169: okc_debug.log('300: Leaving Validate_Article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
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 ;
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
1179: okc_debug.log('400: Leaving Validate_Article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
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 ;
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);
1313: -- MOAC
1314: IF G_CURRENT_ORG_ID IS NULL Then
1315: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
1316: RAISE FND_API.G_EXC_ERROR ;
1317: END IF;
1318:
1319: -- Fix for bug# 5158268. The variable l_article_number should be initialized with p_article_number
1453:
1454: EXCEPTION
1455: WHEN FND_API.G_EXC_ERROR THEN
1456: IF (l_debug = 'Y') THEN
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 );
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);
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 );
1562:
1563: EXCEPTION
1564: WHEN FND_API.G_EXC_ERROR THEN
1565: IF (l_debug = 'Y') THEN
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 );
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);
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 );
1696: x_return_status := FND_API.G_RET_STS_SUCCESS;
1697:
1698: -- MOAC
1699: IF G_CURRENT_ORG_ID IS NULL Then
1700: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
1701: RAISE FND_API.G_EXC_ERROR ;
1702: END IF;
1703:
1704: --------------------------------------------
1812:
1813: EXCEPTION
1814: WHEN FND_API.G_EXC_ERROR THEN
1815: IF (l_debug = 'Y') THEN
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 );
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);
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 );
1914: IF l_status NOT IN ( 'DRAFT','REJECTED') THEN
1915: IF (l_debug = 'Y') THEN
1916: Okc_Debug.Log('2200: - Article Status is not Draft or Rejected,It cannot be deleted',2);
1917: END IF;
1918: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_DEL_INV_STATUS');
1919: x_return_status := G_RET_STS_ERROR;
1920: RAISE FND_API.G_EXC_ERROR;
1921: ELSE
1922: OPEN l_only_version_csr (p_article_id, p_article_version_id);
1935: IF l_dummy1 = '1' THEN
1936: IF (l_debug = 'Y') THEN
1937: Okc_Debug.Log('2200: - Article Version is already Used in the Templates',2);
1938: END IF;
1939: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_USED_IN_TEMPL');
1940: x_return_status := G_RET_STS_ERROR;
1941: RAISE FND_API.G_EXC_ERROR;
1942: ELSE -- Check if it used in any of the Rules (Bug 3971186)
1943: IF (OKC_XPRT_UTIL_PVT.ok_to_delete_clause(p_article_id) = 'N') THEN
1943: IF (OKC_XPRT_UTIL_PVT.ok_to_delete_clause(p_article_id) = 'N') THEN
1944: IF (l_debug = 'Y') THEN
1945: Okc_Debug.Log('2200: - Article Version is already Used in the Rules',2);
1946: END IF;
1947: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_USED_IN_RULES');
1948: x_return_status := G_RET_STS_ERROR;
1949: RAISE FND_API.G_EXC_ERROR;
1950: ELSE
1951: OKC_ARTICLES_ALL_PVT.Delete_Row(
2013:
2014: EXCEPTION
2015: WHEN FND_API.G_EXC_ERROR THEN
2016: IF (l_debug = 'Y') THEN
2017: okc_debug.log('2400: Leaving delete_article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
2018: END IF;
2019: IF l_status_csr%ISOPEN THEN
2020: CLOSE l_status_csr;
2021: END IF;
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);
2035: END IF;
2036: IF l_status_csr%ISOPEN THEN
2037: CLOSE l_status_csr;
2038: END IF;
2230:
2231: EXCEPTION
2232: WHEN FND_API.G_EXC_ERROR THEN
2233: IF (l_debug = 'Y') THEN
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 );
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);
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 );
2380: x_return_status := FND_API.G_RET_STS_SUCCESS;
2381:
2382: -- MOAC
2383: IF G_CURRENT_ORG_ID IS NULL Then
2384: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
2385: RAISE FND_API.G_EXC_ERROR ;
2386: END IF;
2387:
2388: l_article_text := p_article_text;
2523:
2524: --dbms_output.put_line('Global Org Id: '||G_GLOBAL_ORG_ID ||'* Current Org Id: '||G_CURRENT_ORG_ID);
2525: -- MOAC
2526: IF G_CURRENT_ORG_ID IS NULL Then
2527: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
2528: RAISE FND_API.G_EXC_ERROR ;
2529: END IF;
2530:
2531: IF (G_CURRENT_ORG_ID = G_GLOBAL_ORG_ID OR
2620:
2621: EXCEPTION
2622: WHEN FND_API.G_EXC_ERROR THEN
2623: IF (l_debug = 'Y') THEN
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 );
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);
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 );
2708:
2709: EXCEPTION
2710: WHEN FND_API.G_EXC_ERROR THEN
2711: IF (l_debug = 'Y') THEN
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 );
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);
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 );
2846: WHEN OTHERS THEN
2847: IF (l_debug = 'Y') THEN
2848: okc_debug.log('1750: Leaving update_article_variables because of EXCEPTION: '||sqlerrm, 2);
2849: END IF;
2850: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2851: p_msg_name => G_UNEXPECTED_ERROR,
2852: p_token1 => G_SQLCODE_TOKEN,
2853: p_token1_value => sqlcode,
2854: p_token2 => G_SQLERRM_TOKEN,
3017: END IF;
3018:
3019: -- MOAC
3020: IF G_CURRENT_ORG_ID IS NULL Then
3021: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
3022: RAISE FND_API.G_EXC_ERROR ;
3023: END IF;
3024:
3025: OKC_ARTICLE_VERSIONS_PVT.Update_Row(
3119:
3120: EXCEPTION
3121: WHEN FND_API.G_EXC_ERROR THEN
3122: IF (l_debug = 'Y') THEN
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 );
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);
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 );
3482: G_doc_category_code := substr(Fnd_Profile.Value('OKC_ARTICLE_DOC_SEQ_CATEGORY'),1,30) ;
3483:
3484: -- MOAC
3485: IF G_CURRENT_ORG_ID IS NULL Then
3486: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
3487: RAISE FND_API.G_EXC_ERROR ;
3488: END IF;
3489:
3490: GET_ARTICLE_SEQ_NUMBER
3729: l_relationship_type_tbl.DELETE;
3730: EXIT WHEN l_relationship_csr%NOTFOUND;
3731: EXCEPTION
3732: WHEN OTHERS THEN
3733: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3734: p_msg_name => G_UNEXPECTED_ERROR,
3735: p_token1 => G_SQLCODE_TOKEN,
3736: p_token1_value => sqlcode,
3737: p_token2 => G_SQLERRM_TOKEN,
3833:
3834: EXCEPTION
3835: WHEN FND_API.G_EXC_ERROR THEN
3836: IF (l_debug = 'Y') THEN
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 );
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);
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 );
4227: EXIT WHEN l_org_info_csr%NOTFOUND;
4228: EXCEPTION
4229: WHEN OTHERS THEN
4230: --dbms_output.put_line(sqlerrm);
4231: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4232: p_msg_name => G_UNEXPECTED_ERROR,
4233: p_token1 => G_SQLCODE_TOKEN,
4234: p_token1_value => sqlcode,
4235: p_token2 => G_SQLERRM_TOKEN,
4241: CLOSE l_org_info_csr;
4242: EXCEPTION
4243: WHEN FND_API.G_EXC_ERROR THEN
4244: IF (l_debug = 'Y') THEN
4245: okc_debug.log('300: Leaving Auto_Adoption: OKC_API.G_EXCEPTION_ERROR Exception', 2);
4246: END IF;
4247: x_return_status := G_RET_STS_ERROR ;
4248:
4249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4247: x_return_status := G_RET_STS_ERROR ;
4248:
4249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4250: IF (l_debug = 'Y') THEN
4251: okc_debug.log('400: Leaving Auto_Adoption: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4252: END IF;
4253: IF l_org_info_csr%ISOPEN THEN
4254: CLOSE l_org_info_csr;
4255: END IF;
4398:
4399: EXCEPTION
4400: WHEN FND_API.G_EXC_ERROR THEN
4401: IF (l_debug = 'Y') THEN
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 );
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);
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 );
4637:
4638: EXCEPTION
4639: WHEN FND_API.G_EXC_ERROR THEN
4640: IF (l_debug = 'Y') THEN
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 );
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);
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 );
4719: WHEN OTHERS THEN
4720: IF l_highest_version_csr%ISOPEN Then
4721: close l_highest_version_csr;
4722: END IF;
4723: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4724: p_msg_name => G_UNEXPECTED_ERROR,
4725: p_token1 => G_SQLCODE_TOKEN,
4726: p_token1_value => sqlcode,
4727: p_token2 => G_SQLERRM_TOKEN,