[Home] [Help]
18:
19: ------------------------------------------------------------------------------
20: -- GLOBAL CONSTANTS
21: ------------------------------------------------------------------------------
22: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
23: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
24: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
25: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
26: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
19: ------------------------------------------------------------------------------
20: -- GLOBAL CONSTANTS
21: ------------------------------------------------------------------------------
22: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
23: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
24: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
25: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
26: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
27:
20: -- GLOBAL CONSTANTS
21: ------------------------------------------------------------------------------
22: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
23: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
24: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
25: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
26: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
27:
28: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
21: ------------------------------------------------------------------------------
22: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
23: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
24: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
25: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
26: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
27:
28: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
29: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
22: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
23: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
24: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
25: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
26: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
27:
28: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
29: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
30: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
24: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
25: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
26: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
27:
28: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
29: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
30: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
31:
32: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
25: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
26: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
27:
28: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
29: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
30: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
31:
32: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
33: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
26: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
27:
28: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
29: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
30: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
31:
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';
226: if p_extracted_var_name is null
227: then
228: --dbms_output.put_line(' how did it get into the loop ?? '|| p_extracted_var_name);
229:
230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
231: end if;
232: if p_extracted_var_name is not null
233: then
234: --dbms_output.put_line(' l_extracted_var_name '|| p_extracted_var_name) ;
474: --dbms_output.put_line(' VAR NOT FOUND 2 ');
475: l_xml_tag := SUBSTR(l_temp_art_text,l_tag_start_postion,((l_tag_end_postion+ 1 )- l_tag_start_postion));
476: l_invalid_var_intent := G_VAR_NOT_FOUND_RET_STS;
477: ELSIF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
479: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
480: RAISE FND_API.G_EXC_ERROR ;
481: END IF;
482:
476: l_invalid_var_intent := G_VAR_NOT_FOUND_RET_STS;
477: ELSIF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
479: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
480: RAISE FND_API.G_EXC_ERROR ;
481: END IF;
482:
483: end if;
484: if (l_art_text_with_tags is null and dbms_lob.getlength(p_dest_clob)
653:
654: BEGIN
655:
656: -- Initialize API return status to success
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
658: --Bug 3832007: p_req_type_info_only is 'Y' only when it's called from UI
659: --for the rest of case (migration, import, create_article api), cached value will match
660: --with session context that API is called
661: --For performance, following steps are executed only when this is called from UI
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;
694: end if;
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
714: -- get seq id from EIT
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
725: --dbms_output.put_line('Org Id:'||p_org_id||'CAT: '||l_doc_category_code||'SOB: '||l_set_of_books_id);
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:
753: IF p_seq_type_info_only = 'Y' THEN
754: return;
766: seq_val => l_doc_sequence_value,
767: docseq_id => l_doc_sequence_id);
768: --dbms_output.put_line('Number result is: '|| to_char(l_result) ||'*'|| l_doc_sequence_value);
769: IF l_result <> 0 THEN
770: RAISE FND_API.G_EXC_ERROR;
771: ELSE
772: x_article_number := TO_CHAR(l_doc_sequence_value);
773: END IF;
774: OPEN l_ensure_unique_csr (x_article_number, l_org_id);
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;
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;
817: ---------------------------------------------------------------------------
818: PROCEDURE delete_article_version(
819: p_api_version IN NUMBER,
820: p_init_msg_list IN VARCHAR2 ,
821: p_commit IN VARCHAR2 := FND_API.G_FALSE,
822:
823: x_return_status OUT NOCOPY VARCHAR2,
824: x_msg_count OUT NOCOPY NUMBER,
825: x_msg_data OUT NOCOPY VARCHAR2,
851:
852: -- Standard Start of API savepoint
853: SAVEPOINT g_delete_article_version_GRP;
854: -- Standard call to check for call compatibility.
855: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
852: -- Standard Start of API savepoint
853: SAVEPOINT g_delete_article_version_GRP;
854: -- Standard call to check for call compatibility.
855: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
855: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
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:
865: --------------------------------------------
866: -- Calling Simple API for Deleting A Row
867: --------------------------------------------
871: p_object_version_number => p_object_version_number
872: );
873: --------------------------------------------
874: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
876: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
877: RAISE FND_API.G_EXC_ERROR ;
878: END IF;
879: --------------------------------------------
873: --------------------------------------------
874: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
876: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
877: RAISE FND_API.G_EXC_ERROR ;
878: END IF;
879: --------------------------------------------
880:
881: -- Do not support Simple API for variable deletion or update. This is the only
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
901: G_CURRENT_ORG_ID = -99 OR
915: );
916: END IF;
917: --------------------------------------------
918: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
920: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
921: RAISE FND_API.G_EXC_ERROR ;
922: END IF;
923: --------------------------------------------
917: --------------------------------------------
918: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
920: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
921: RAISE FND_API.G_EXC_ERROR ;
922: END IF;
923: --------------------------------------------
924:
925: -- Standard check of p_commit
922: END IF;
923: --------------------------------------------
924:
925: -- Standard check of p_commit
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 );
933: okc_debug.log('2300: Leaving delete_article_version', 2);
934: END IF;
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;
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);
948: END IF;
949: ROLLBACK TO g_delete_article_version_GRP;
966:
967: PROCEDURE validate_article(
968: p_api_version IN NUMBER,
969: p_init_msg_list IN VARCHAR2 ,
970: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
971: p_import_action IN VARCHAR2 := NULL,
972: x_return_status OUT NOCOPY VARCHAR2,
973: x_msg_count OUT NOCOPY NUMBER,
974: x_msg_data OUT NOCOPY VARCHAR2,
1034: p_variable_code IN VARCHAR2 DEFAULT NULL
1035: ) IS
1036: l_api_version CONSTANT NUMBER := 1;
1037: l_api_name CONSTANT VARCHAR2(30) := 'g_validate_article';
1038: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1039: l_article_status OKC_ARTICLE_VERSIONS.ARTICLE_STATUS%TYPE;
1040:
1041: BEGIN
1042:
1046:
1047: -- Standard Start of API savepoint
1048: SAVEPOINT g_validate_article_GRP;
1049: -- Standard call to check for call compatibility.
1050: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
1047: -- Standard Start of API savepoint
1048: SAVEPOINT g_validate_article_GRP;
1049: -- Standard call to check for call compatibility.
1050: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
1050: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
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:
1060: --------------------------------------------
1061: -- Calling Simple API for Article Validation
1062: --------------------------------------------
1078:
1079: );
1080: --dbms_output.put_line('API Art Msg data:' || x_msg_data);
1081: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1083: END IF;
1084:
1085: --------------------------------------------
1086: -- Calling Simple API for Article Version Validation
1148: p_variable_code => p_variable_code
1149: );
1150: --dbms_output.put_line('API Ver Msg data:' || x_msg_data);
1151: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1153: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1154: RAISE FND_API.G_EXC_ERROR ;
1155: END IF;
1156: --------------------------------------------
1150: --dbms_output.put_line('API Ver Msg data:' || x_msg_data);
1151: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1153: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1154: RAISE FND_API.G_EXC_ERROR ;
1155: END IF;
1156: --------------------------------------------
1157: x_return_status := l_return_status;
1158:
1163: okc_debug.log('200: Leaving validate_article', 2);
1164: END IF;
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;
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
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;
1203: -------------------------------------
1204: PROCEDURE create_article(
1205: p_api_version IN NUMBER,
1206: p_init_msg_list IN VARCHAR2 ,
1207: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1208: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1209: x_return_status OUT NOCOPY VARCHAR2,
1210: x_msg_count OUT NOCOPY NUMBER,
1211: x_msg_data OUT NOCOPY VARCHAR2,
1204: PROCEDURE create_article(
1205: p_api_version IN NUMBER,
1206: p_init_msg_list IN VARCHAR2 ,
1207: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1208: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1209: x_return_status OUT NOCOPY VARCHAR2,
1210: x_msg_count OUT NOCOPY NUMBER,
1211: x_msg_data OUT NOCOPY VARCHAR2,
1212: p_article_title IN VARCHAR2,
1289:
1290: -- Standard Start of API savepoint
1291: SAVEPOINT g_create_article_GRP;
1292: -- Standard call to check for call compatibility.
1293: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1294: --dbms_output.put_line('600: Entered create_article NOT Compatible');
1295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1296: END IF;
1297: -- MOAC
1291: SAVEPOINT g_create_article_GRP;
1292: -- Standard call to check for call compatibility.
1293: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1294: --dbms_output.put_line('600: Entered create_article NOT Compatible');
1295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1296: END IF;
1297: -- MOAC
1298: G_CURRENT_ORG_ID := mo_global.get_current_org_id();
1299: /*
1302: CLOSE cur_org_csr;
1303: */
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
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);
1313: -- MOAC
1314: IF G_CURRENT_ORG_ID IS NULL Then
1315: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
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
1320: l_article_number := p_article_number;
1330: x_doc_sequence_type => l_doc_sequence_type,
1331: x_return_status => x_return_status);
1332:
1333: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1335: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1336: RAISE FND_API.G_EXC_ERROR ;
1337: END IF;
1338: END IF;
1332:
1333: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1335: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1336: RAISE FND_API.G_EXC_ERROR ;
1337: END IF;
1338: END IF;
1339: --------------------------------------------
1340: -- Calling Simple API for Creating Article Row
1359: --dbms_output.put_line('In Create - x_article_id is '||x_article_id);
1360: --dbms_output.put_line('In Create - x_return_status is '||x_return_status);
1361: --------------------------------------------
1362: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1364: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1365: RAISE FND_API.G_EXC_ERROR ;
1366: END IF;
1367: --------------------------------------------
1361: --------------------------------------------
1362: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1364: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1365: RAISE FND_API.G_EXC_ERROR ;
1366: END IF;
1367: --------------------------------------------
1368: --------------------------------------------
1369: -- Calling Group API for Creating Article Version Row
1433: ) ;
1434: --dbms_output.put_line('In Create - x_article_version_id is '||x_article_version_id);
1435: --------------------------------------------
1436: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1438: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1439: RAISE FND_API.G_EXC_ERROR ;
1440: END IF;
1441: --------------------------------------------
1435: --------------------------------------------
1436: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1438: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1439: RAISE FND_API.G_EXC_ERROR ;
1440: END IF;
1441: --------------------------------------------
1442:
1443: -- Standard check of p_commit
1440: END IF;
1441: --------------------------------------------
1442:
1443: -- Standard check of p_commit
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 );
1451: okc_debug.log('700: Leaving create_article', 2);
1452: END IF;
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;
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);
1466: END IF;
1467: ROLLBACK TO g_create_article_GRP;
1506:
1507: -- Standard Start of API savepoint
1508: SAVEPOINT g_lock_article_GRP;
1509: -- Standard call to check for call compatibility.
1510: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
1507: -- Standard Start of API savepoint
1508: SAVEPOINT g_lock_article_GRP;
1509: -- Standard call to check for call compatibility.
1510: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
1510: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
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:
1520: --------------------------------------------
1521: -- Calling Simple API for Locking A Row
1522: --------------------------------------------
1526: p_object_version_number => p_object_version_number
1527: );
1528: --------------------------------------------
1529: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1531: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1532: RAISE FND_API.G_EXC_ERROR ;
1533: END IF;
1534: --------------------------------------------
1528: --------------------------------------------
1529: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1531: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1532: RAISE FND_API.G_EXC_ERROR ;
1533: END IF;
1534: --------------------------------------------
1535:
1536: Lock_Article_Version(
1546: );
1547:
1548: --------------------------------------------
1549: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1551: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1552: RAISE FND_API.G_EXC_ERROR ;
1553: END IF;
1554: --------------------------------------------
1548: --------------------------------------------
1549: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1551: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1552: RAISE FND_API.G_EXC_ERROR ;
1553: END IF;
1554: --------------------------------------------
1555:
1556: -- Standard call to get message count and if count is 1, get message info.
1560: okc_debug.log('1200: Leaving lock_article', 2);
1561: END IF;
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;
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);
1575: END IF;
1576: ROLLBACK TO g_lock_article_GRP;
1595: ---------------------------------------------------------------------------
1596: PROCEDURE update_article(
1597: p_api_version IN NUMBER,
1598: p_init_msg_list IN VARCHAR2 ,
1599: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1600: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1601:
1602: x_return_status OUT NOCOPY VARCHAR2,
1603: x_msg_count OUT NOCOPY NUMBER,
1596: PROCEDURE update_article(
1597: p_api_version IN NUMBER,
1598: p_init_msg_list IN VARCHAR2 ,
1599: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1600: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1601:
1602: x_return_status OUT NOCOPY VARCHAR2,
1603: x_msg_count OUT NOCOPY NUMBER,
1604: x_msg_data OUT NOCOPY VARCHAR2,
1677:
1678: -- Standard Start of API savepoint
1679: SAVEPOINT g_update_article_GRP;
1680: -- Standard call to check for call compatibility.
1681: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1683: END IF;
1684: -- Initialize message list if p_init_msg_list is set to TRUE.
1685: -- MOAC
1678: -- Standard Start of API savepoint
1679: SAVEPOINT g_update_article_GRP;
1680: -- Standard call to check for call compatibility.
1681: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1683: END IF;
1684: -- Initialize message list if p_init_msg_list is set to TRUE.
1685: -- MOAC
1686: G_CURRENT_ORG_ID := mo_global.get_current_org_id() ;
1688: OPEN cur_org_csr;
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;
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:
1698: -- MOAC
1699: IF G_CURRENT_ORG_ID IS NULL Then
1700: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
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: --------------------------------------------
1705: -- Calling Simple API for Updating A Row
1723: p_object_version_number => p_object_version_number
1724: );
1725: --------------------------------------------
1726: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1728: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1729: RAISE FND_API.G_EXC_ERROR ;
1730: END IF;
1731: --------------------------------------------
1725: --------------------------------------------
1726: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1728: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1729: RAISE FND_API.G_EXC_ERROR ;
1730: END IF;
1731: --------------------------------------------
1732: --dbms_output.put_line('After:'||p_article_language);
1733:
1793: );
1794:
1795: --------------------------------------------
1796: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1798: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1799: RAISE FND_API.G_EXC_ERROR ;
1800: END IF;
1801: --------------------------------------------
1795: --------------------------------------------
1796: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1798: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1799: RAISE FND_API.G_EXC_ERROR ;
1800: END IF;
1801: --------------------------------------------
1802: -- Standard check of p_commit
1803: IF FND_API.To_Boolean( p_commit ) THEN
1799: RAISE FND_API.G_EXC_ERROR ;
1800: END IF;
1801: --------------------------------------------
1802: -- Standard check of p_commit
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 );
1810: okc_debug.log('1800: Leaving update_article', 2);
1811: END IF;
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;
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);
1825: END IF;
1826: ROLLBACK TO g_update_article_GRP;
1846: ---------------------------------------------------------------------------
1847: PROCEDURE delete_article(
1848: p_api_version IN NUMBER,
1849: p_init_msg_list IN VARCHAR2 ,
1850: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1851:
1852: x_return_status OUT NOCOPY VARCHAR2,
1853: x_msg_count OUT NOCOPY NUMBER,
1854: x_msg_data OUT NOCOPY VARCHAR2,
1894:
1895: -- Standard Start of API savepoint
1896: SAVEPOINT g_delete_article_GRP;
1897: -- Standard call to check for call compatibility.
1898: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
1895: -- Standard Start of API savepoint
1896: SAVEPOINT g_delete_article_GRP;
1897: -- Standard call to check for call compatibility.
1898: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
1898: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
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:
1908:
1909: OPEN l_status_csr (p_article_id, p_article_version_id);
1910: FETCH l_status_csr INTO l_status,l_standard_yn, l_adoption_type;
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);
1923: FETCH l_only_version_csr INTO l_only_version;
1924: CLOSE l_only_version_csr;
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
1944: IF (l_debug = 'Y') THEN
1945: Okc_Debug.Log('2200: - Article Version is already Used in the Rules',2);
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(
1952: x_return_status => x_return_status,
1953: p_article_id => p_article_id,
1953: p_article_id => p_article_id,
1954: p_object_version_number => NULL
1955: );
1956: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1958: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1959: RAISE FND_API.G_EXC_ERROR ;
1960: END IF;
1961: DELETE FROM OKC_ARTICLE_RELATNS_ALL -- delete all relationships
1955: );
1956: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1958: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1959: RAISE FND_API.G_EXC_ERROR ;
1960: END IF;
1961: DELETE FROM OKC_ARTICLE_RELATNS_ALL -- delete all relationships
1962: WHERE source_article_id = p_article_id OR
1963: target_article_id = p_article_id;
1973: p_article_id => p_article_id,
1974: p_object_version_number => NULL
1975: );
1976: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1978: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1979: RAISE FND_API.G_EXC_ERROR ;
1980: END IF;
1981: END IF;
1975: );
1976: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1978: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1979: RAISE FND_API.G_EXC_ERROR ;
1980: END IF;
1981: END IF;
1982: Delete_Article_Version(
1983: p_api_version => p_api_version ,
1994: );
1995:
1996: --------------------------------------------
1997: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1999: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2000: RAISE FND_API.G_EXC_ERROR ;
2001: END IF;
2002: --------------------------------------------
1996: --------------------------------------------
1997: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1999: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2000: RAISE FND_API.G_EXC_ERROR ;
2001: END IF;
2002: --------------------------------------------
2003: -- Standard check of p_commit
2004: IF FND_API.To_Boolean( p_commit ) THEN
2000: RAISE FND_API.G_EXC_ERROR ;
2001: END IF;
2002: --------------------------------------------
2003: -- Standard check of p_commit
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 );
2011: okc_debug.log('2300: Leaving delete_article', 2);
2012: END IF;
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
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);
2035: END IF;
2036: IF l_status_csr%ISOPEN THEN
2073: ---------------------------------------
2074: PROCEDURE validate_article_version(
2075: p_api_version IN NUMBER,
2076: p_init_msg_list IN VARCHAR2 ,
2077: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2078: p_import_action IN VARCHAR2 := NULL,
2079: x_return_status OUT NOCOPY VARCHAR2,
2080: x_msg_count OUT NOCOPY NUMBER,
2081: x_msg_data OUT NOCOPY VARCHAR2,
2142:
2143: -- Standard Start of API savepoint
2144: SAVEPOINT g_validate_article_version_GRP;
2145: -- Standard call to check for call compatibility.
2146: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
2143: -- Standard Start of API savepoint
2144: SAVEPOINT g_validate_article_version_GRP;
2145: -- Standard call to check for call compatibility.
2146: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
2146: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
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:
2156: --------------------------------------------
2157: -- Calling Simple API for Article Version Validation
2158: --------------------------------------------
2214: p_variable_code => p_variable_code
2215: );
2216: --------------------------------------------
2217: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2219: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2220: RAISE FND_API.G_EXC_ERROR ;
2221: END IF;
2222: --------------------------------------------
2216: --------------------------------------------
2217: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2219: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2220: RAISE FND_API.G_EXC_ERROR ;
2221: END IF;
2222: --------------------------------------------
2223:
2224: -- Standard call to get message count and if count is 1, get message info.
2228: okc_debug.log('200: Leaving validate_article_version', 2);
2229: 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;
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);
2243: END IF;
2244: ROLLBACK TO g_validate_article_version_GRP;
2264: -------------------------------------
2265: PROCEDURE create_article_version(
2266: p_api_version IN NUMBER,
2267: p_init_msg_list IN VARCHAR2 ,
2268: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2269: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2270: p_article_intent IN VARCHAR2 := NULL,
2271: p_standard_yn IN VARCHAR2 := 'Y',
2272: p_global_article_version_id IN NUMBER := NULL,
2265: PROCEDURE create_article_version(
2266: p_api_version IN NUMBER,
2267: p_init_msg_list IN VARCHAR2 ,
2268: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2269: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2270: p_article_intent IN VARCHAR2 := NULL,
2271: p_standard_yn IN VARCHAR2 := 'Y',
2272: p_global_article_version_id IN NUMBER := NULL,
2273:
2361:
2362: -- Standard Start of API savepoint
2363: SAVEPOINT g_create_article_version_GRP;
2364: -- Standard call to check for call compatibility.
2365: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2367: END IF;
2368: -- MOAC
2369: G_CURRENT_ORG_ID := mo_global.get_current_org_id() ;
2362: -- Standard Start of API savepoint
2363: SAVEPOINT g_create_article_version_GRP;
2364: -- Standard call to check for call compatibility.
2365: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2367: END IF;
2368: -- MOAC
2369: G_CURRENT_ORG_ID := mo_global.get_current_org_id() ;
2370: /*
2372: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
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;
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:
2382: -- MOAC
2383: IF G_CURRENT_ORG_ID IS NULL Then
2384: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
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;
2389: DBMS_LOB.CREATETEMPORARY(l_clob,true);
2403: ) ;
2404: --dbms_lob.freetemporary(l_clob);
2405: --------------------------------------------
2406: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2408: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2409: RAISE FND_API.G_EXC_ERROR ;
2410: END IF;
2411: --------------------------------------------
2405: --------------------------------------------
2406: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2408: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2409: RAISE FND_API.G_EXC_ERROR ;
2410: END IF;
2411: --------------------------------------------
2412: -- UIs may be returning EXPIRED status (derived) from VOs.
2413: IF p_article_status = 'EXPIRED' THEN
2474: x_article_version_id => x_article_version_id
2475: );
2476: --------------------------------------------
2477: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2479: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2480: RAISE FND_API.G_EXC_ERROR ;
2481: END IF;
2482: --------------------------------------------
2476: --------------------------------------------
2477: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2479: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2480: RAISE FND_API.G_EXC_ERROR ;
2481: END IF;
2482: --------------------------------------------
2483:
2484: -- Parse through the Article text, replace and extract the variables
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
2532: G_CURRENT_ORG_ID = -99 OR
2550: p_local_org_id => G_CURRENT_ORG_ID
2551: );
2552: --------------------------------------------
2553: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2555: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2556: RAISE FND_API.G_EXC_ERROR ;
2557: END IF;
2558: --------------------------------------------
2552: --------------------------------------------
2553: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2555: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2556: RAISE FND_API.G_EXC_ERROR ;
2557: END IF;
2558: --------------------------------------------
2559:
2560: -- Update denormalized adoption type in article versions table
2598: FROM OKC_ART_VAR_SECTIONS
2599: WHERE ARTICLE_VERSION_ID = l_earlier_version_id;
2600: --------------------------------------------
2601: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2603: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2604: RAISE FND_API.G_EXC_ERROR ;
2605: END IF;
2606: ---------------------------------------------
2600: --------------------------------------------
2601: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2603: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2604: RAISE FND_API.G_EXC_ERROR ;
2605: END IF;
2606: ---------------------------------------------
2607:
2608: --end CLM Changes.
2607:
2608: --end CLM Changes.
2609:
2610: -- Standard check of p_commit
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 );
2618: okc_debug.log('700: Leaving create_article_version', 2);
2619: END IF;
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;
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);
2633: END IF;
2634: ROLLBACK TO g_create_article_version_GRP;
2672:
2673: -- Standard Start of API savepoint
2674: SAVEPOINT g_lock_article_version_GRP;
2675: -- Standard call to check for call compatibility.
2676: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
2673: -- Standard Start of API savepoint
2674: SAVEPOINT g_lock_article_version_GRP;
2675: -- Standard call to check for call compatibility.
2676: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
2676: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
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:
2686: --------------------------------------------
2687: -- Calling Simple API for Locking A Row
2688: --------------------------------------------
2692: p_object_version_number => p_object_version_number
2693: );
2694: --------------------------------------------
2695: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2697: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2698: RAISE FND_API.G_EXC_ERROR ;
2699: END IF;
2700: --------------------------------------------
2694: --------------------------------------------
2695: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2697: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2698: RAISE FND_API.G_EXC_ERROR ;
2699: END IF;
2700: --------------------------------------------
2701:
2702: -- Standard call to get message count and if count is 1, get message info.
2706: okc_debug.log('1200: Leaving lock_article_version', 2);
2707: END IF;
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;
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);
2721: END IF;
2722: ROLLBACK TO g_lock_article_version_GRP;
2866: ---------------------------------------------------------------------------
2867: PROCEDURE update_article_version(
2868: p_api_version IN NUMBER,
2869: p_init_msg_list IN VARCHAR2 ,
2870: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2871: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2872: x_return_status OUT NOCOPY VARCHAR2,
2873: x_msg_count OUT NOCOPY NUMBER,
2874: x_msg_data OUT NOCOPY VARCHAR2,
2867: PROCEDURE update_article_version(
2868: p_api_version IN NUMBER,
2869: p_init_msg_list IN VARCHAR2 ,
2870: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2871: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2872: x_return_status OUT NOCOPY VARCHAR2,
2873: x_msg_count OUT NOCOPY NUMBER,
2874: x_msg_data OUT NOCOPY VARCHAR2,
2875: p_article_intent IN VARCHAR2,
2952:
2953: -- Standard Start of API savepoint
2954: SAVEPOINT g_update_article_version_GRP;
2955: -- Standard call to check for call compatibility.
2956: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
2953: -- Standard Start of API savepoint
2954: SAVEPOINT g_update_article_version_GRP;
2955: -- Standard call to check for call compatibility.
2956: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
2956: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
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:
2966: -- Parse through the Article text, replace and extract the variables
2967: -- Parsing is an expensive process and should be done only if the text has changed and if the article is in Draft or
2968: -- Rejected Status
2993: x_variables_tbl => l_variable_code_tbl
2994: ) ;
2995: --dbms_lob.freetemporary(l_clob);
2996: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2998: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2999: RAISE FND_API.G_EXC_ERROR ;
3000: END IF;
3001: END IF;
2995: --dbms_lob.freetemporary(l_clob);
2996: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2998: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2999: RAISE FND_API.G_EXC_ERROR ;
3000: END IF;
3001: END IF;
3002: -- MOAC
3003: G_CURRENT_ORG_ID := mo_global.get_current_org_id() ;
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(
3026: p_validation_level => p_validation_level,
3080: x_earlier_version_id => l_earlier_version_id
3081: );
3082: --------------------------------------------
3083: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3085: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3086: RAISE FND_API.G_EXC_ERROR ;
3087: END IF;
3088: --------------------------------------------
3082: --------------------------------------------
3083: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3085: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3086: RAISE FND_API.G_EXC_ERROR ;
3087: END IF;
3088: --------------------------------------------
3089: IF p_article_text is NOT NULL AND
3090: nvl(l_article_status,'DRAFT') IN ('DRAFT','REJECTED') THEN
3094: x_variables_to_insert_tbl => l_variables_to_insert_tbl,
3095: x_variables_to_delete_tbl => l_variables_to_delete_tbl,
3096: x_return_status => x_return_status);
3097: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3099: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3100: RAISE FND_API.G_EXC_ERROR ;
3101: END IF;
3102: END IF;
3096: x_return_status => x_return_status);
3097: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3099: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3100: RAISE FND_API.G_EXC_ERROR ;
3101: END IF;
3102: END IF;
3103: IF l_article_status = 'APPROVED' THEN
3104: UPDATE OKC_ARTICLES_ALL
3106: WHERE ARTICLE_ID = l_article_id;
3107: END IF;
3108:
3109: -- Standard check of p_commit
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 );
3117: okc_debug.log('1800: Leaving update_article_version', 2);
3118: END IF;
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;
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);
3132: END IF;
3133: ROLLBACK TO g_update_article_version_GRP;
3154: ---------------------------------------------------------------------------
3155: PROCEDURE copy_article(
3156: p_api_version IN NUMBER,
3157: p_init_msg_list IN VARCHAR2 ,
3158: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3159: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3160:
3161: p_article_version_id IN NUMBER,
3162: p_new_article_title IN VARCHAR2 := NULL,
3155: PROCEDURE copy_article(
3156: p_api_version IN NUMBER,
3157: p_init_msg_list IN VARCHAR2 ,
3158: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3159: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3160:
3161: p_article_version_id IN NUMBER,
3162: p_new_article_title IN VARCHAR2 := NULL,
3163: p_new_article_number IN VARCHAR2 := NULL,
3316:
3317: -- Standard Start of API savepoint
3318: SAVEPOINT g_copy_article_GRP;
3319: -- Standard call to check for call compatibility.
3320: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3322: END IF;
3323: -- MOAC
3324: G_CURRENT_ORG_ID := mo_global.get_current_org_id() ;
3317: -- Standard Start of API savepoint
3318: SAVEPOINT g_copy_article_GRP;
3319: -- Standard call to check for call compatibility.
3320: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3322: END IF;
3323: -- MOAC
3324: G_CURRENT_ORG_ID := mo_global.get_current_org_id() ;
3325: /*
3327: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
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;
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 ');
3337:
3338: -- Insert into ... select would have been faster but we need to validate as well
3339:
3387: x_last_update_date => l_last_update_date
3388: );
3389: --------------------------------------------
3390: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3392: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
3393: RAISE FND_API.G_EXC_ERROR ;
3394: END IF;
3395: --------------------------------------------
3389: --------------------------------------------
3390: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3392: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
3393: RAISE FND_API.G_EXC_ERROR ;
3394: END IF;
3395: --------------------------------------------
3396: END IF;
3397:
3458: x_variable_code => lv_variable_code --clm
3459: );
3460: --------------------------------------------
3461: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3463: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
3464: RAISE FND_API.G_EXC_ERROR ;
3465: END IF;
3466: --------------------------------------------
3460: --------------------------------------------
3461: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3463: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
3464: RAISE FND_API.G_EXC_ERROR ;
3465: END IF;
3466: --------------------------------------------
3467: END IF;
3468: -- Copying Articles
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
3491: (p_article_number => p_new_article_number,
3495: x_doc_sequence_type => l_doc_sequence_type,
3496: x_return_status => x_return_status);
3497:
3498: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3500: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3501: RAISE FND_API.G_EXC_ERROR ;
3502: END IF;
3503: IF l_article_number IS NULL THEN
3497:
3498: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3500: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3501: RAISE FND_API.G_EXC_ERROR ;
3502: END IF;
3503: IF l_article_number IS NULL THEN
3504: l_article_number := nvl(p_new_article_number, l_old_article_number);
3505: END IF;
3559: --dbms_output.put_line('x_article_id is '||x_article_id);
3560: --dbms_output.put_line('x_article_version_id is '||x_article_version_id);
3561: --------------------------------------------
3562: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3563: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3564: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3565: RAISE FND_API.G_EXC_ERROR ;
3566: END IF;
3567: --------------------------------------------
3561: --------------------------------------------
3562: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3563: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3564: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3565: RAISE FND_API.G_EXC_ERROR ;
3566: END IF;
3567: --------------------------------------------
3568: OKC_ARTICLE_VERSIONS_PVT.Insert_Row(
3569: p_validation_level => p_validation_level,
3620: x_article_version_id => x_article_version_id
3621: );
3622: --------------------------------------------
3623: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3625: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3626: RAISE FND_API.G_EXC_ERROR ;
3627: END IF;
3628: --------------------------------------------
3622: --------------------------------------------
3623: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3625: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3626: RAISE FND_API.G_EXC_ERROR ;
3627: END IF;
3628: --------------------------------------------
3629: -- Create Article Variables
3630: -- Insert at one shot .. This is much efficient than calling the create article version and parse out the variables
3652: FROM OKC_ARTICLE_VARIABLES
3653: WHERE ARTICLE_VERSION_ID = p_article_version_id;
3654: --------------------------------------------
3655: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3657: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3658: RAISE FND_API.G_EXC_ERROR ;
3659: END IF;
3660: --------------------------------------------
3654: --------------------------------------------
3655: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3657: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3658: RAISE FND_API.G_EXC_ERROR ;
3659: END IF;
3660: --------------------------------------------
3661: if p_copy_relationship_yn = 'Y' THEN
3662: OPEN l_relationship_csr(l_p_article_id, G_CURRENT_ORG_ID);
3742: END LOOP; -- main cursor loop
3743: CLOSE l_relationship_csr;
3744: --------------------------------------------
3745: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3746: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3747: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3748: RAISE FND_API.G_EXC_ERROR ;
3749: END IF;
3750: --------------------------------------------
3744: --------------------------------------------
3745: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3746: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3747: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3748: RAISE FND_API.G_EXC_ERROR ;
3749: END IF;
3750: --------------------------------------------
3751: END IF;
3752: IF p_copy_folder_assoc_yn = 'Y' THEN
3813: FROM OKC_ART_VAR_SECTIONS
3814: WHERE ARTICLE_VERSION_ID = p_article_version_id;
3815: --------------------------------------------
3816: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3818: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3819: RAISE FND_API.G_EXC_ERROR ;
3820: END IF;
3821: ----------------------------------------------
3815: --------------------------------------------
3816: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3818: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3819: RAISE FND_API.G_EXC_ERROR ;
3820: END IF;
3821: ----------------------------------------------
3822:
3823: -- Standard check of p_commit
3820: END IF;
3821: ----------------------------------------------
3822:
3823: -- Standard check of p_commit
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 );
3831: okc_debug.log('2800: Leaving copy_article', 2);
3832: END IF;
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;
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);
3846: END IF;
3847: ROLLBACK TO g_copy_article_GRP;
4107: IF (l_debug = 'Y') THEN
4108: okc_debug.log('100: Entered auto adopt relationship', 2);
4109: END IF;
4110:
4111: x_return_status := FND_API.G_RET_STS_SUCCESS;
4112: --dbms_output.put_line('Global org is: '|| l_global_org_id);
4113: OPEN l_approved_csr (p_src_global_article_id, p_tar_global_article_id);
4114: FETCH l_approved_csr INTO l_dummy;
4115: l_rownotfound := l_approved_csr%NOTFOUND;
4239: END;
4240: END LOOP; -- main cursor loop
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 ;
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
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
4276: -------------------------------------
4277: PROCEDURE create_article_relationship(
4278: p_api_version IN NUMBER,
4279: p_init_msg_list IN VARCHAR2 ,
4280: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4281: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4282: x_return_status OUT NOCOPY VARCHAR2,
4283: x_msg_count OUT NOCOPY NUMBER,
4284: x_msg_data OUT NOCOPY VARCHAR2,
4277: PROCEDURE create_article_relationship(
4278: p_api_version IN NUMBER,
4279: p_init_msg_list IN VARCHAR2 ,
4280: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4281: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4282: x_return_status OUT NOCOPY VARCHAR2,
4283: x_msg_count OUT NOCOPY NUMBER,
4284: x_msg_data OUT NOCOPY VARCHAR2,
4285: p_source_article_id IN NUMBER,
4307:
4308: -- Standard Start of API savepoint
4309: SAVEPOINT g_insert_row_GRP;
4310: -- Standard call to check for call compatibility.
4311: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
4308: -- Standard Start of API savepoint
4309: SAVEPOINT g_insert_row_GRP;
4310: -- Standard call to check for call compatibility.
4311: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
4311: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
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:
4321: --------------------------------------------
4322: -- Calling Simple API for Creating A Row
4323: --------------------------------------------
4334: x_org_id => l_org_id
4335: );
4336: --------------------------------------------
4337: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4339: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4340: RAISE FND_API.G_EXC_ERROR ;
4341: END IF;
4342: --------------------------------------------
4336: --------------------------------------------
4337: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4339: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4340: RAISE FND_API.G_EXC_ERROR ;
4341: END IF;
4342: --------------------------------------------
4343: -- Create opposite row by flipping the source and target for the relationship
4344: --------------------------------------------
4355: x_org_id => l_org_id
4356: );
4357: --------------------------------------------
4358: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4360: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4361: RAISE FND_API.G_EXC_ERROR ;
4362: END IF;
4363: --------------------------------------------
4357: --------------------------------------------
4358: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4360: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4361: RAISE FND_API.G_EXC_ERROR ;
4362: END IF;
4363: --------------------------------------------
4364:
4365: -- Trigger autoadoption of relationships for all orgs if a global org has created a relationship between two
4377: p_tar_global_article_id => p_target_article_id,
4378: p_relationship_type => p_relationship_type);
4379: --------------------------------------------
4380: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4382: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4383: RAISE FND_API.G_EXC_ERROR ;
4384: END IF;
4385: --------------------------------------------
4379: --------------------------------------------
4380: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4382: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4383: RAISE FND_API.G_EXC_ERROR ;
4384: END IF;
4385: --------------------------------------------
4386: END IF;
4387:
4385: --------------------------------------------
4386: END IF;
4387:
4388: -- Standard check of p_commit
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 );
4396: okc_debug.log('700: Leaving insert_row', 2);
4397: 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;
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);
4411: END IF;
4412: ROLLBACK TO g_insert_row_GRP;
4475: END IF;
4476:
4477: -- Standard Start of API savepoint
4478: -- Initialize API return status to success
4479: x_return_status := FND_API.G_RET_STS_SUCCESS;
4480: --dbms_output.put_line('Global org is: '|| l_global_org_id);
4481: OPEN l_relationship_csr (p_source_global_article_id, p_target_global_article_id);
4482: LOOP
4483: FETCH l_relationship_csr BULK COLLECT INTO l_source_article_id_tbl,
4534:
4535: PROCEDURE delete_article_relationship(
4536: p_api_version IN NUMBER,
4537: p_init_msg_list IN VARCHAR2 ,
4538: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4539:
4540: x_return_status OUT NOCOPY VARCHAR2,
4541: x_msg_count OUT NOCOPY NUMBER,
4542: x_msg_data OUT NOCOPY VARCHAR2,
4556:
4557: -- Standard Start of API savepoint
4558: SAVEPOINT g_delete_row_GRP;
4559: -- Standard call to check for call compatibility.
4560: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
4557: -- Standard Start of API savepoint
4558: SAVEPOINT g_delete_row_GRP;
4559: -- Standard call to check for call compatibility.
4560: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
4560: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
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:
4570: --------------------------------------------
4571: -- Calling Simple API for Deleting A Row
4572: --------------------------------------------
4579: p_object_version_number => p_object_version_number
4580: );
4581: --------------------------------------------
4582: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4584: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4585: RAISE FND_API.G_EXC_ERROR ;
4586: END IF;
4587: --------------------------------------------
4581: --------------------------------------------
4582: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4584: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4585: RAISE FND_API.G_EXC_ERROR ;
4586: END IF;
4587: --------------------------------------------
4588: --------------------------------------------
4589: -- Delete the opposite row by flipping the source and target for the relationship
4619: ) ;
4620: */
4621: END IF;
4622: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4624: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4625: RAISE FND_API.G_EXC_ERROR ;
4626: END IF;
4627: -- Standard check of p_commit
4621: END IF;
4622: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4624: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4625: RAISE FND_API.G_EXC_ERROR ;
4626: END IF;
4627: -- Standard check of p_commit
4628: IF FND_API.To_Boolean( p_commit ) THEN
4629: COMMIT WORK;
4624: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4625: RAISE FND_API.G_EXC_ERROR ;
4626: END IF;
4627: -- Standard check of p_commit
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 );
4635: okc_debug.log('2300: Leaving delete_row', 2);
4636: END IF;
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;
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);
4650: END IF;
4651: ROLLBACK TO g_delete_row_GRP;
4696: av.article_status in ( 'APPROVED', 'HOLD') and
4697: rownum < 2;
4698: BEGIN
4699: x_yes_no := 'N';
4700: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
4697: rownum < 2;
4698: BEGIN
4699: x_yes_no := 'N';
4700: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
4700: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
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;
4710: OPEN l_highest_version_csr(p_article_id, p_start_date);
4711: FETCH l_highest_version_csr INTO l_yes_no ;
4712: IF l_highest_version_csr%NOTFOUND THEN
4713: l_yes_no := 'N';