[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,
543: EXCEPTION
544: WHEN G_VAR_NOT_FOUND then
545: --dbms_output.put_line(' VAR NOT FOUND 1 ');
546: x_return_status := G_VAR_NOT_FOUND_RET_STS;
547: OKC_API.set_message(p_app_name => OKC_API.G_APP_NAME,
548: p_msg_name => 'OKC_ART_VAR_NOT_FOUND',
549: p_token1 => 'VARIABLE',
550: p_token1_value => l_extracted_var_name
551: );
552: WHEN NO_DATA_FOUND
553: THEN
554: BEGIN
555: x_return_status := G_RET_STS_ERROR;
556: OKC_API.set_message(p_app_name => OKC_API.G_APP_NAME,
557: p_msg_name => 'OKC_ART_VAR_NOT_FOUND'
558: );
559:
560: END;
560: END;
561: when G_VAR_NOT_CLOSED
562: then
563: x_return_status := G_RET_STS_ERROR;
564: OKC_API.set_message(p_app_name => OKC_API.G_APP_NAME,
565: p_msg_name => 'OKC_ART_VAR_NOT_CLOSED'
566: );
567: WHEN OTHERS
568: THEN
566: );
567: WHEN OTHERS
568: THEN
569: x_return_status := G_RET_STS_UNEXP_ERROR;
570: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
571: p_msg_name => G_UNEXPECTED_ERROR,
572: p_token1 => G_SQLCODE_TOKEN,
573: p_token1_value => sqlcode,
574: p_token2 => G_SQLERRM_TOKEN,
674: if p_org_id IS NOT NULL Then
675: l_org_id := p_org_id;
676: else
677: if G_CURRENT_ORG_ID IS NULL Then
678: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
679: RAISE FND_API.G_EXC_ERROR ;
680: else
681: l_org_id := G_CURRENT_ORG_ID;
682: end if;
694: FETCH l_get_sob_csr into l_set_of_books_id;
695: l_row_notfound := l_get_sob_csr%NOTFOUND;
696: CLOSE l_get_sob_csr;
697: IF l_row_notfound THEN
698: Okc_Api.Set_Message(G_APP_NAME,'OKC_ART_INV_SOB_ID');
699: RAISE FND_API.G_EXC_ERROR ;
700: END IF;
701: l_row_notfound := FALSE;
702: -- New changes for MOAC Bug 4643332
705: FETCH l_clause_seq_csr into l_doc_category_code;
706: l_row_notfound1 := l_clause_seq_csr%NOTFOUND;
707: CLOSE l_clause_seq_csr;
708: IF l_row_notfound1 THEN
709: Okc_Api.Set_Message(G_APP_NAME,'OKC_ART_SEQ_CAT_NOT_DEFINED');
710: RAISE FND_API.G_EXC_ERROR ;
711: END IF;
712: l_row_notfound1 := FALSE;
713: --l_doc_category_code := G_DOC_CATEGORY_CODE; -- Commented for new changes for MOAC
733: --dbms_output.put_line('Info result is: '|| l_result ||'*'|| l_doc_sequence_type);
734: IF l_result <> FND_SEQNUM.SEQSUCC THEN
735: /* Commented following IF - Bug 3542035 , This IF is not reqd */
736: --IF l_result = FND_SEQNUM.NOTUSED THEN
737: OKC_API.set_message(G_APP_NAME,'OKC_ART_MISS_DOC_SEQ');
738: --END IF;
739: RAISE FND_API.G_EXC_ERROR;
740: END IF;
741:
766: CLOSE l_ensure_unique_csr;
767: IF l_row_notfound THEN
768: NULL; -- dups do not exist.
769: ELSE
770: Okc_Api.Set_Message(G_APP_NAME,'OKC_ART_ART_NUM_EXIST');
771: RAISE FND_API.G_EXC_ERROR ;
772: END IF;
773: ELSIF (x_doc_sequence_type = 'M') THEN
774: x_article_number := p_article_number;
775: END IF;
776: EXCEPTION
777: WHEN FND_API.G_EXC_ERROR THEN
778: IF (l_debug = 'Y') THEN
779: okc_debug.log('2400: Leaving get article number: OKC_API.G_EXCEPTION_ERROR Exception', 2);
780: --dbms_output.put_line('2400: Leaving get article number: OKC_API.G_EXCEPTION_ERROR Exception');
781: END IF;
782: x_return_status := G_RET_STS_ERROR ;
783: WHEN OTHERS THEN
776: EXCEPTION
777: WHEN FND_API.G_EXC_ERROR THEN
778: IF (l_debug = 'Y') THEN
779: okc_debug.log('2400: Leaving get article number: OKC_API.G_EXCEPTION_ERROR Exception', 2);
780: --dbms_output.put_line('2400: Leaving get article number: OKC_API.G_EXCEPTION_ERROR Exception');
781: END IF;
782: x_return_status := G_RET_STS_ERROR ;
783: WHEN OTHERS THEN
784: /*------------------------------------------+
787: | is mandatory. |
788: +------------------------------------------*/
789: --dbms_output.put_line('Get_Doc_Seq: ' || 'no_data_found raised'||G_profile_doc_seq);
790: IF (G_profile_doc_seq = 'A' ) THEN
791: OKC_API.Set_Message( 'FND','UNIQUE-ALWAYS USED');
792: END IF;
793: x_return_status := G_RET_STS_ERROR;
794: IF l_get_sob_csr%ISOPEN THEN
795: CLOSE l_get_sob_csr;
881: -- from a prior version we delete the adoption row for this version.
882:
883: -- MOAC
884: IF G_CURRENT_ORG_ID IS NULL Then
885: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
886: RAISE FND_API.G_EXC_ERROR ;
887: END IF;
888:
889: IF (G_CURRENT_ORG_ID = G_GLOBAL_ORG_ID OR
924:
925: EXCEPTION
926: WHEN FND_API.G_EXC_ERROR THEN
927: IF (l_debug = 'Y') THEN
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 );
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);
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 );
1143:
1144: EXCEPTION
1145: WHEN FND_API.G_EXC_ERROR THEN
1146: IF (l_debug = 'Y') THEN
1147: okc_debug.log('300: Leaving Validate_Article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
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 ;
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
1157: okc_debug.log('400: Leaving Validate_Article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
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 ;
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);
1286: -- MOAC
1287: IF G_CURRENT_ORG_ID IS NULL Then
1288: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
1289: RAISE FND_API.G_EXC_ERROR ;
1290: END IF;
1291:
1292: -- Fix for bug# 5158268. The variable l_article_number should be initialized with p_article_number
1421:
1422: EXCEPTION
1423: WHEN FND_API.G_EXC_ERROR THEN
1424: IF (l_debug = 'Y') THEN
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 );
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);
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 );
1530:
1531: EXCEPTION
1532: WHEN FND_API.G_EXC_ERROR THEN
1533: IF (l_debug = 'Y') THEN
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 );
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);
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 );
1659: x_return_status := FND_API.G_RET_STS_SUCCESS;
1660:
1661: -- MOAC
1662: IF G_CURRENT_ORG_ID IS NULL Then
1663: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
1664: RAISE FND_API.G_EXC_ERROR ;
1665: END IF;
1666:
1667: --------------------------------------------
1770:
1771: EXCEPTION
1772: WHEN FND_API.G_EXC_ERROR THEN
1773: IF (l_debug = 'Y') THEN
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 );
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);
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 );
1872: IF l_status NOT IN ( 'DRAFT','REJECTED') THEN
1873: IF (l_debug = 'Y') THEN
1874: Okc_Debug.Log('2200: - Article Status is not Draft or Rejected,It cannot be deleted',2);
1875: END IF;
1876: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_DEL_INV_STATUS');
1877: x_return_status := G_RET_STS_ERROR;
1878: RAISE FND_API.G_EXC_ERROR;
1879: ELSE
1880: OPEN l_only_version_csr (p_article_id, p_article_version_id);
1893: IF l_dummy1 = '1' THEN
1894: IF (l_debug = 'Y') THEN
1895: Okc_Debug.Log('2200: - Article Version is already Used in the Templates',2);
1896: END IF;
1897: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_USED_IN_TEMPL');
1898: x_return_status := G_RET_STS_ERROR;
1899: RAISE FND_API.G_EXC_ERROR;
1900: ELSE -- Check if it used in any of the Rules (Bug 3971186)
1901: IF (OKC_XPRT_UTIL_PVT.ok_to_delete_clause(p_article_id) = 'N') THEN
1901: IF (OKC_XPRT_UTIL_PVT.ok_to_delete_clause(p_article_id) = 'N') THEN
1902: IF (l_debug = 'Y') THEN
1903: Okc_Debug.Log('2200: - Article Version is already Used in the Rules',2);
1904: END IF;
1905: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_USED_IN_RULES');
1906: x_return_status := G_RET_STS_ERROR;
1907: RAISE FND_API.G_EXC_ERROR;
1908: ELSE
1909: OKC_ARTICLES_ALL_PVT.Delete_Row(
1971:
1972: EXCEPTION
1973: WHEN FND_API.G_EXC_ERROR THEN
1974: IF (l_debug = 'Y') THEN
1975: okc_debug.log('2400: Leaving delete_article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
1976: END IF;
1977: IF l_status_csr%ISOPEN THEN
1978: CLOSE l_status_csr;
1979: END IF;
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);
1993: END IF;
1994: IF l_status_csr%ISOPEN THEN
1995: CLOSE l_status_csr;
1996: END IF;
2179:
2180: EXCEPTION
2181: WHEN FND_API.G_EXC_ERROR THEN
2182: IF (l_debug = 'Y') THEN
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 );
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);
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 );
2324: x_return_status := FND_API.G_RET_STS_SUCCESS;
2325:
2326: -- MOAC
2327: IF G_CURRENT_ORG_ID IS NULL Then
2328: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
2329: RAISE FND_API.G_EXC_ERROR ;
2330: END IF;
2331:
2332: l_article_text := p_article_text;
2462:
2463: --dbms_output.put_line('Global Org Id: '||G_GLOBAL_ORG_ID ||'* Current Org Id: '||G_CURRENT_ORG_ID);
2464: -- MOAC
2465: IF G_CURRENT_ORG_ID IS NULL Then
2466: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
2467: RAISE FND_API.G_EXC_ERROR ;
2468: END IF;
2469:
2470: IF (G_CURRENT_ORG_ID = G_GLOBAL_ORG_ID OR
2518:
2519: EXCEPTION
2520: WHEN FND_API.G_EXC_ERROR THEN
2521: IF (l_debug = 'Y') THEN
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 );
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);
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 );
2606:
2607: EXCEPTION
2608: WHEN FND_API.G_EXC_ERROR THEN
2609: IF (l_debug = 'Y') THEN
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 );
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);
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 );
2744: WHEN OTHERS THEN
2745: IF (l_debug = 'Y') THEN
2746: okc_debug.log('1750: Leaving update_article_variables because of EXCEPTION: '||sqlerrm, 2);
2747: END IF;
2748: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2749: p_msg_name => G_UNEXPECTED_ERROR,
2750: p_token1 => G_SQLCODE_TOKEN,
2751: p_token1_value => sqlcode,
2752: p_token2 => G_SQLERRM_TOKEN,
2910: END IF;
2911:
2912: -- MOAC
2913: IF G_CURRENT_ORG_ID IS NULL Then
2914: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
2915: RAISE FND_API.G_EXC_ERROR ;
2916: END IF;
2917:
2918: OKC_ARTICLE_VERSIONS_PVT.Update_Row(
3007:
3008: EXCEPTION
3009: WHEN FND_API.G_EXC_ERROR THEN
3010: IF (l_debug = 'Y') THEN
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 );
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);
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 );
3361: G_doc_category_code := substr(Fnd_Profile.Value('OKC_ARTICLE_DOC_SEQ_CATEGORY'),1,30) ;
3362:
3363: -- MOAC
3364: IF G_CURRENT_ORG_ID IS NULL Then
3365: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
3366: RAISE FND_API.G_EXC_ERROR ;
3367: END IF;
3368:
3369: GET_ARTICLE_SEQ_NUMBER
3603: l_relationship_type_tbl.DELETE;
3604: EXIT WHEN l_relationship_csr%NOTFOUND;
3605: EXCEPTION
3606: WHEN OTHERS THEN
3607: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3608: p_msg_name => G_UNEXPECTED_ERROR,
3609: p_token1 => G_SQLCODE_TOKEN,
3610: p_token1_value => sqlcode,
3611: p_token2 => G_SQLERRM_TOKEN,
3666:
3667: EXCEPTION
3668: WHEN FND_API.G_EXC_ERROR THEN
3669: IF (l_debug = 'Y') THEN
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 );
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);
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 );
4060: EXIT WHEN l_org_info_csr%NOTFOUND;
4061: EXCEPTION
4062: WHEN OTHERS THEN
4063: --dbms_output.put_line(sqlerrm);
4064: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4065: p_msg_name => G_UNEXPECTED_ERROR,
4066: p_token1 => G_SQLCODE_TOKEN,
4067: p_token1_value => sqlcode,
4068: p_token2 => G_SQLERRM_TOKEN,
4074: CLOSE l_org_info_csr;
4075: EXCEPTION
4076: WHEN FND_API.G_EXC_ERROR THEN
4077: IF (l_debug = 'Y') THEN
4078: okc_debug.log('300: Leaving Auto_Adoption: OKC_API.G_EXCEPTION_ERROR Exception', 2);
4079: END IF;
4080: x_return_status := G_RET_STS_ERROR ;
4081:
4082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4080: x_return_status := G_RET_STS_ERROR ;
4081:
4082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4083: IF (l_debug = 'Y') THEN
4084: okc_debug.log('400: Leaving Auto_Adoption: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4085: END IF;
4086: IF l_org_info_csr%ISOPEN THEN
4087: CLOSE l_org_info_csr;
4088: END IF;
4231:
4232: EXCEPTION
4233: WHEN FND_API.G_EXC_ERROR THEN
4234: IF (l_debug = 'Y') THEN
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 );
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);
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 );
4470:
4471: EXCEPTION
4472: WHEN FND_API.G_EXC_ERROR THEN
4473: IF (l_debug = 'Y') THEN
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 );
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);
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 );
4552: WHEN OTHERS THEN
4553: IF l_highest_version_csr%ISOPEN Then
4554: close l_highest_version_csr;
4555: END IF;
4556: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4557: p_msg_name => G_UNEXPECTED_ERROR,
4558: p_token1 => G_SQLCODE_TOKEN,
4559: p_token1_value => sqlcode,
4560: p_token2 => G_SQLERRM_TOKEN,