[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) ;
463: --dbms_output.put_line(' VAR NOT FOUND 2 ');
464: l_xml_tag := SUBSTR(l_temp_art_text,l_tag_start_postion,((l_tag_end_postion+ 1 )- l_tag_start_postion));
465: l_invalid_var_intent := G_VAR_NOT_FOUND_RET_STS;
466: ELSIF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
468: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
469: RAISE FND_API.G_EXC_ERROR ;
470: END IF;
471:
465: l_invalid_var_intent := G_VAR_NOT_FOUND_RET_STS;
466: ELSIF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
468: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
469: RAISE FND_API.G_EXC_ERROR ;
470: END IF;
471:
472: end if;
473: if (l_art_text_with_tags is null and dbms_lob.getlength(p_dest_clob)
642:
643: BEGIN
644:
645: -- Initialize API return status to success
646: x_return_status := FND_API.G_RET_STS_SUCCESS;
647: --Bug 3832007: p_req_type_info_only is 'Y' only when it's called from UI
648: --for the rest of case (migration, import, create_article api), cached value will match
649: --with session context that API is called
650: --For performance, following steps are executed only when this is called from UI
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;
683: end if;
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
703: -- get seq id from EIT
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
714: --dbms_output.put_line('Org Id:'||p_org_id||'CAT: '||l_doc_category_code||'SOB: '||l_set_of_books_id);
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:
742: IF p_seq_type_info_only = 'Y' THEN
743: return;
755: seq_val => l_doc_sequence_value,
756: docseq_id => l_doc_sequence_id);
757: --dbms_output.put_line('Number result is: '|| to_char(l_result) ||'*'|| l_doc_sequence_value);
758: IF l_result <> 0 THEN
759: RAISE FND_API.G_EXC_ERROR;
760: ELSE
761: x_article_number := TO_CHAR(l_doc_sequence_value);
762: END IF;
763: OPEN l_ensure_unique_csr (x_article_number, l_org_id);
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;
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;
806: ---------------------------------------------------------------------------
807: PROCEDURE delete_article_version(
808: p_api_version IN NUMBER,
809: p_init_msg_list IN VARCHAR2 ,
810: p_commit IN VARCHAR2 := FND_API.G_FALSE,
811:
812: x_return_status OUT NOCOPY VARCHAR2,
813: x_msg_count OUT NOCOPY NUMBER,
814: x_msg_data OUT NOCOPY VARCHAR2,
840:
841: -- Standard Start of API savepoint
842: SAVEPOINT g_delete_article_version_GRP;
843: -- Standard call to check for call compatibility.
844: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
846: END IF;
847: -- Initialize message list if p_init_msg_list is set to TRUE.
848: IF FND_API.to_Boolean( p_init_msg_list ) THEN
841: -- Standard Start of API savepoint
842: SAVEPOINT g_delete_article_version_GRP;
843: -- Standard call to check for call compatibility.
844: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
846: END IF;
847: -- Initialize message list if p_init_msg_list is set to TRUE.
848: IF FND_API.to_Boolean( p_init_msg_list ) THEN
849: FND_MSG_PUB.initialize;
844: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
846: END IF;
847: -- Initialize message list if p_init_msg_list is set to TRUE.
848: IF FND_API.to_Boolean( p_init_msg_list ) THEN
849: FND_MSG_PUB.initialize;
850: END IF;
851: -- Initialize API return status to success
852: x_return_status := FND_API.G_RET_STS_SUCCESS;
848: IF FND_API.to_Boolean( p_init_msg_list ) THEN
849: FND_MSG_PUB.initialize;
850: END IF;
851: -- Initialize API return status to success
852: x_return_status := FND_API.G_RET_STS_SUCCESS;
853:
854: --------------------------------------------
855: -- Calling Simple API for Deleting A Row
856: --------------------------------------------
860: p_object_version_number => p_object_version_number
861: );
862: --------------------------------------------
863: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
865: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
866: RAISE FND_API.G_EXC_ERROR ;
867: END IF;
868: --------------------------------------------
862: --------------------------------------------
863: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
865: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
866: RAISE FND_API.G_EXC_ERROR ;
867: END IF;
868: --------------------------------------------
869:
870: -- Do not support Simple API for variable deletion or update. This is the only
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
890: G_CURRENT_ORG_ID = -99 OR
904: );
905: END IF;
906: --------------------------------------------
907: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
909: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
910: RAISE FND_API.G_EXC_ERROR ;
911: END IF;
912: --------------------------------------------
906: --------------------------------------------
907: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
909: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
910: RAISE FND_API.G_EXC_ERROR ;
911: END IF;
912: --------------------------------------------
913:
914: -- Standard check of p_commit
911: END IF;
912: --------------------------------------------
913:
914: -- Standard check of p_commit
915: IF FND_API.To_Boolean( p_commit ) THEN
916: COMMIT WORK;
917: END IF;
918: -- Standard call to get message count and if count is 1, get message info.
919: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
922: okc_debug.log('2300: Leaving delete_article_version', 2);
923: END IF;
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;
930: ROLLBACK TO g_delete_article_version_GRP;
931: x_return_status := G_RET_STS_ERROR ;
932: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
933:
934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
935: IF (l_debug = 'Y') THEN
936: okc_debug.log('2500: Leaving delete_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
937: END IF;
938: ROLLBACK TO g_delete_article_version_GRP;
955:
956: PROCEDURE validate_article(
957: p_api_version IN NUMBER,
958: p_init_msg_list IN VARCHAR2 ,
959: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
960: p_import_action IN VARCHAR2 := NULL,
961: x_return_status OUT NOCOPY VARCHAR2,
962: x_msg_count OUT NOCOPY NUMBER,
963: x_msg_data OUT NOCOPY VARCHAR2,
1018: p_attribute15 IN VARCHAR2 := NULL
1019: ) IS
1020: l_api_version CONSTANT NUMBER := 1;
1021: l_api_name CONSTANT VARCHAR2(30) := 'g_validate_article';
1022: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1023: l_article_status OKC_ARTICLE_VERSIONS.ARTICLE_STATUS%TYPE;
1024:
1025: BEGIN
1026:
1030:
1031: -- Standard Start of API savepoint
1032: SAVEPOINT g_validate_article_GRP;
1033: -- Standard call to check for call compatibility.
1034: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1036: END IF;
1037: -- Initialize message list if p_init_msg_list is set to TRUE.
1038: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1031: -- Standard Start of API savepoint
1032: SAVEPOINT g_validate_article_GRP;
1033: -- Standard call to check for call compatibility.
1034: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1036: END IF;
1037: -- Initialize message list if p_init_msg_list is set to TRUE.
1038: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1039: FND_MSG_PUB.initialize;
1034: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1036: END IF;
1037: -- Initialize message list if p_init_msg_list is set to TRUE.
1038: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1039: FND_MSG_PUB.initialize;
1040: END IF;
1041: -- Initialize API return status to success
1042: x_return_status := FND_API.G_RET_STS_SUCCESS;
1038: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1039: FND_MSG_PUB.initialize;
1040: END IF;
1041: -- Initialize API return status to success
1042: x_return_status := FND_API.G_RET_STS_SUCCESS;
1043:
1044: --------------------------------------------
1045: -- Calling Simple API for Article Validation
1046: --------------------------------------------
1061: p_orig_system_reference_id2 => p_orig_system_reference_id2
1062: );
1063: --dbms_output.put_line('API Art Msg data:' || x_msg_data);
1064: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1066: END IF;
1067:
1068: --------------------------------------------
1069: -- Calling Simple API for Article Version Validation
1126: p_attribute15 => p_attribute15
1127: );
1128: --dbms_output.put_line('API Ver Msg data:' || x_msg_data);
1129: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1131: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1132: RAISE FND_API.G_EXC_ERROR ;
1133: END IF;
1134: --------------------------------------------
1128: --dbms_output.put_line('API Ver Msg data:' || x_msg_data);
1129: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1131: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1132: RAISE FND_API.G_EXC_ERROR ;
1133: END IF;
1134: --------------------------------------------
1135: x_return_status := l_return_status;
1136:
1141: okc_debug.log('200: Leaving validate_article', 2);
1142: END IF;
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;
1151: x_return_status := G_RET_STS_ERROR ;
1152: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1153: --dbms_output.put_line('Msg data2:' || x_msg_data);
1154:
1155: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1156: IF (l_debug = 'Y') THEN
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;
1181: -------------------------------------
1182: PROCEDURE create_article(
1183: p_api_version IN NUMBER,
1184: p_init_msg_list IN VARCHAR2 ,
1185: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1186: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1187: x_return_status OUT NOCOPY VARCHAR2,
1188: x_msg_count OUT NOCOPY NUMBER,
1189: x_msg_data OUT NOCOPY VARCHAR2,
1182: PROCEDURE create_article(
1183: p_api_version IN NUMBER,
1184: p_init_msg_list IN VARCHAR2 ,
1185: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1186: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1187: x_return_status OUT NOCOPY VARCHAR2,
1188: x_msg_count OUT NOCOPY NUMBER,
1189: x_msg_data OUT NOCOPY VARCHAR2,
1190: p_article_title IN VARCHAR2,
1262:
1263: -- Standard Start of API savepoint
1264: SAVEPOINT g_create_article_GRP;
1265: -- Standard call to check for call compatibility.
1266: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1267: --dbms_output.put_line('600: Entered create_article NOT Compatible');
1268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1269: END IF;
1270: -- MOAC
1264: SAVEPOINT g_create_article_GRP;
1265: -- Standard call to check for call compatibility.
1266: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1267: --dbms_output.put_line('600: Entered create_article NOT Compatible');
1268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1269: END IF;
1270: -- MOAC
1271: G_CURRENT_ORG_ID := mo_global.get_current_org_id();
1272: /*
1275: CLOSE cur_org_csr;
1276: */
1277:
1278: -- Initialize message list if p_init_msg_list is set to TRUE.
1279: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1280: --dbms_output.put_line('600: Entered create_article message init');
1281: FND_MSG_PUB.initialize;
1282: END IF;
1283: -- Initialize API return status to success
1280: --dbms_output.put_line('600: Entered create_article message init');
1281: FND_MSG_PUB.initialize;
1282: END IF;
1283: -- Initialize API return status to success
1284: x_return_status := FND_API.G_RET_STS_SUCCESS;
1285: --dbms_output.put_line('600: Entered create_article from copy status is'||x_return_status);
1286: -- MOAC
1287: IF G_CURRENT_ORG_ID IS NULL Then
1288: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
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
1293: l_article_number := p_article_number;
1303: x_doc_sequence_type => l_doc_sequence_type,
1304: x_return_status => x_return_status);
1305:
1306: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1308: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1309: RAISE FND_API.G_EXC_ERROR ;
1310: END IF;
1311: END IF;
1305:
1306: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1308: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1309: RAISE FND_API.G_EXC_ERROR ;
1310: END IF;
1311: END IF;
1312: --------------------------------------------
1313: -- Calling Simple API for Creating Article Row
1332: --dbms_output.put_line('In Create - x_article_id is '||x_article_id);
1333: --dbms_output.put_line('In Create - x_return_status is '||x_return_status);
1334: --------------------------------------------
1335: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1337: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1338: RAISE FND_API.G_EXC_ERROR ;
1339: END IF;
1340: --------------------------------------------
1334: --------------------------------------------
1335: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1337: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1338: RAISE FND_API.G_EXC_ERROR ;
1339: END IF;
1340: --------------------------------------------
1341: --------------------------------------------
1342: -- Calling Group API for Creating Article Version Row
1401: ) ;
1402: --dbms_output.put_line('In Create - x_article_version_id is '||x_article_version_id);
1403: --------------------------------------------
1404: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1406: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1407: RAISE FND_API.G_EXC_ERROR ;
1408: END IF;
1409: --------------------------------------------
1403: --------------------------------------------
1404: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1406: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1407: RAISE FND_API.G_EXC_ERROR ;
1408: END IF;
1409: --------------------------------------------
1410:
1411: -- Standard check of p_commit
1408: END IF;
1409: --------------------------------------------
1410:
1411: -- Standard check of p_commit
1412: IF FND_API.To_Boolean( p_commit ) THEN
1413: COMMIT WORK;
1414: END IF;
1415: -- Standard call to get message count and if count is 1, get message info.
1416: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1419: okc_debug.log('700: Leaving create_article', 2);
1420: END IF;
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;
1427: ROLLBACK TO g_create_article_GRP;
1428: x_return_status := G_RET_STS_ERROR ;
1429: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1430:
1431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1432: IF (l_debug = 'Y') THEN
1433: okc_debug.log('900: Leaving create_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1434: END IF;
1435: ROLLBACK TO g_create_article_GRP;
1474:
1475: -- Standard Start of API savepoint
1476: SAVEPOINT g_lock_article_GRP;
1477: -- Standard call to check for call compatibility.
1478: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1480: END IF;
1481: -- Initialize message list if p_init_msg_list is set to TRUE.
1482: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1475: -- Standard Start of API savepoint
1476: SAVEPOINT g_lock_article_GRP;
1477: -- Standard call to check for call compatibility.
1478: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1480: END IF;
1481: -- Initialize message list if p_init_msg_list is set to TRUE.
1482: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1483: FND_MSG_PUB.initialize;
1478: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1480: END IF;
1481: -- Initialize message list if p_init_msg_list is set to TRUE.
1482: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1483: FND_MSG_PUB.initialize;
1484: END IF;
1485: -- Initialize API return status to success
1486: x_return_status := FND_API.G_RET_STS_SUCCESS;
1482: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1483: FND_MSG_PUB.initialize;
1484: END IF;
1485: -- Initialize API return status to success
1486: x_return_status := FND_API.G_RET_STS_SUCCESS;
1487:
1488: --------------------------------------------
1489: -- Calling Simple API for Locking A Row
1490: --------------------------------------------
1494: p_object_version_number => p_object_version_number
1495: );
1496: --------------------------------------------
1497: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1499: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1500: RAISE FND_API.G_EXC_ERROR ;
1501: END IF;
1502: --------------------------------------------
1496: --------------------------------------------
1497: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1499: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1500: RAISE FND_API.G_EXC_ERROR ;
1501: END IF;
1502: --------------------------------------------
1503:
1504: Lock_Article_Version(
1514: );
1515:
1516: --------------------------------------------
1517: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1519: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1520: RAISE FND_API.G_EXC_ERROR ;
1521: END IF;
1522: --------------------------------------------
1516: --------------------------------------------
1517: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1519: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1520: RAISE FND_API.G_EXC_ERROR ;
1521: END IF;
1522: --------------------------------------------
1523:
1524: -- Standard call to get message count and if count is 1, get message info.
1528: okc_debug.log('1200: Leaving lock_article', 2);
1529: END IF;
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;
1536: ROLLBACK TO g_lock_article_GRP;
1537: x_return_status := G_RET_STS_ERROR ;
1538: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1539:
1540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1541: IF (l_debug = 'Y') THEN
1542: okc_debug.log('1400: Leaving lock_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1543: END IF;
1544: ROLLBACK TO g_lock_article_GRP;
1563: ---------------------------------------------------------------------------
1564: PROCEDURE update_article(
1565: p_api_version IN NUMBER,
1566: p_init_msg_list IN VARCHAR2 ,
1567: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1568: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1569:
1570: x_return_status OUT NOCOPY VARCHAR2,
1571: x_msg_count OUT NOCOPY NUMBER,
1564: PROCEDURE update_article(
1565: p_api_version IN NUMBER,
1566: p_init_msg_list IN VARCHAR2 ,
1567: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1568: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1569:
1570: x_return_status OUT NOCOPY VARCHAR2,
1571: x_msg_count OUT NOCOPY NUMBER,
1572: x_msg_data OUT NOCOPY VARCHAR2,
1640:
1641: -- Standard Start of API savepoint
1642: SAVEPOINT g_update_article_GRP;
1643: -- Standard call to check for call compatibility.
1644: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1646: END IF;
1647: -- Initialize message list if p_init_msg_list is set to TRUE.
1648: -- MOAC
1641: -- Standard Start of API savepoint
1642: SAVEPOINT g_update_article_GRP;
1643: -- Standard call to check for call compatibility.
1644: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1646: END IF;
1647: -- Initialize message list if p_init_msg_list is set to TRUE.
1648: -- MOAC
1649: G_CURRENT_ORG_ID := mo_global.get_current_org_id() ;
1651: OPEN cur_org_csr;
1652: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
1653: CLOSE cur_org_csr;
1654: */
1655: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1656: FND_MSG_PUB.initialize;
1657: END IF;
1658: -- Initialize API return status to success
1659: x_return_status := FND_API.G_RET_STS_SUCCESS;
1655: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1656: FND_MSG_PUB.initialize;
1657: END IF;
1658: -- Initialize API return status to success
1659: x_return_status := FND_API.G_RET_STS_SUCCESS;
1660:
1661: -- MOAC
1662: IF G_CURRENT_ORG_ID IS NULL Then
1663: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
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: --------------------------------------------
1668: -- Calling Simple API for Updating A Row
1686: p_object_version_number => p_object_version_number
1687: );
1688: --------------------------------------------
1689: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1691: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1692: RAISE FND_API.G_EXC_ERROR ;
1693: END IF;
1694: --------------------------------------------
1688: --------------------------------------------
1689: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1691: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1692: RAISE FND_API.G_EXC_ERROR ;
1693: END IF;
1694: --------------------------------------------
1695: --dbms_output.put_line('After:'||p_article_language);
1696:
1751: );
1752:
1753: --------------------------------------------
1754: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1756: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1757: RAISE FND_API.G_EXC_ERROR ;
1758: END IF;
1759: --------------------------------------------
1753: --------------------------------------------
1754: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1756: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1757: RAISE FND_API.G_EXC_ERROR ;
1758: END IF;
1759: --------------------------------------------
1760: -- Standard check of p_commit
1761: IF FND_API.To_Boolean( p_commit ) THEN
1757: RAISE FND_API.G_EXC_ERROR ;
1758: END IF;
1759: --------------------------------------------
1760: -- Standard check of p_commit
1761: IF FND_API.To_Boolean( p_commit ) THEN
1762: COMMIT WORK;
1763: END IF;
1764: -- Standard call to get message count and if count is 1, get message info.
1765: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1768: okc_debug.log('1800: Leaving update_article', 2);
1769: END IF;
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;
1776: ROLLBACK TO g_update_article_GRP;
1777: x_return_status := G_RET_STS_ERROR ;
1778: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1779:
1780: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1781: IF (l_debug = 'Y') THEN
1782: okc_debug.log('2000: Leaving update_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1783: END IF;
1784: ROLLBACK TO g_update_article_GRP;
1804: ---------------------------------------------------------------------------
1805: PROCEDURE delete_article(
1806: p_api_version IN NUMBER,
1807: p_init_msg_list IN VARCHAR2 ,
1808: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1809:
1810: x_return_status OUT NOCOPY VARCHAR2,
1811: x_msg_count OUT NOCOPY NUMBER,
1812: x_msg_data OUT NOCOPY VARCHAR2,
1852:
1853: -- Standard Start of API savepoint
1854: SAVEPOINT g_delete_article_GRP;
1855: -- Standard call to check for call compatibility.
1856: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1858: END IF;
1859: -- Initialize message list if p_init_msg_list is set to TRUE.
1860: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1853: -- Standard Start of API savepoint
1854: SAVEPOINT g_delete_article_GRP;
1855: -- Standard call to check for call compatibility.
1856: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1858: END IF;
1859: -- Initialize message list if p_init_msg_list is set to TRUE.
1860: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1861: FND_MSG_PUB.initialize;
1856: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1858: END IF;
1859: -- Initialize message list if p_init_msg_list is set to TRUE.
1860: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1861: FND_MSG_PUB.initialize;
1862: END IF;
1863: -- Initialize API return status to success
1864: x_return_status := FND_API.G_RET_STS_SUCCESS;
1860: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1861: FND_MSG_PUB.initialize;
1862: END IF;
1863: -- Initialize API return status to success
1864: x_return_status := FND_API.G_RET_STS_SUCCESS;
1865:
1866:
1867: OPEN l_status_csr (p_article_id, p_article_version_id);
1868: FETCH l_status_csr INTO l_status,l_standard_yn, l_adoption_type;
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);
1881: FETCH l_only_version_csr INTO l_only_version;
1882: CLOSE l_only_version_csr;
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
1902: IF (l_debug = 'Y') THEN
1903: Okc_Debug.Log('2200: - Article Version is already Used in the Rules',2);
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(
1910: x_return_status => x_return_status,
1911: p_article_id => p_article_id,
1911: p_article_id => p_article_id,
1912: p_object_version_number => NULL
1913: );
1914: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1916: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1917: RAISE FND_API.G_EXC_ERROR ;
1918: END IF;
1919: DELETE FROM OKC_ARTICLE_RELATNS_ALL -- delete all relationships
1913: );
1914: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1916: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1917: RAISE FND_API.G_EXC_ERROR ;
1918: END IF;
1919: DELETE FROM OKC_ARTICLE_RELATNS_ALL -- delete all relationships
1920: WHERE source_article_id = p_article_id OR
1921: target_article_id = p_article_id;
1931: p_article_id => p_article_id,
1932: p_object_version_number => NULL
1933: );
1934: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1936: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1937: RAISE FND_API.G_EXC_ERROR ;
1938: END IF;
1939: END IF;
1933: );
1934: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1936: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1937: RAISE FND_API.G_EXC_ERROR ;
1938: END IF;
1939: END IF;
1940: Delete_Article_Version(
1941: p_api_version => p_api_version ,
1952: );
1953:
1954: --------------------------------------------
1955: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1957: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1958: RAISE FND_API.G_EXC_ERROR ;
1959: END IF;
1960: --------------------------------------------
1954: --------------------------------------------
1955: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1957: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1958: RAISE FND_API.G_EXC_ERROR ;
1959: END IF;
1960: --------------------------------------------
1961: -- Standard check of p_commit
1962: IF FND_API.To_Boolean( p_commit ) THEN
1958: RAISE FND_API.G_EXC_ERROR ;
1959: END IF;
1960: --------------------------------------------
1961: -- Standard check of p_commit
1962: IF FND_API.To_Boolean( p_commit ) THEN
1963: COMMIT WORK;
1964: END IF;
1965: -- Standard call to get message count and if count is 1, get message info.
1966: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1969: okc_debug.log('2300: Leaving delete_article', 2);
1970: END IF;
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
1986: ROLLBACK TO g_delete_article_GRP;
1987: x_return_status := G_RET_STS_ERROR ;
1988: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
1989:
1990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1991: IF (l_debug = 'Y') THEN
1992: okc_debug.log('2500: Leaving delete_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1993: END IF;
1994: IF l_status_csr%ISOPEN THEN
2031: ---------------------------------------
2032: PROCEDURE validate_article_version(
2033: p_api_version IN NUMBER,
2034: p_init_msg_list IN VARCHAR2 ,
2035: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2036: p_import_action IN VARCHAR2 := NULL,
2037: x_return_status OUT NOCOPY VARCHAR2,
2038: x_msg_count OUT NOCOPY NUMBER,
2039: x_msg_data OUT NOCOPY VARCHAR2,
2096:
2097: -- Standard Start of API savepoint
2098: SAVEPOINT g_validate_article_version_GRP;
2099: -- Standard call to check for call compatibility.
2100: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: END IF;
2103: -- Initialize message list if p_init_msg_list is set to TRUE.
2104: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2097: -- Standard Start of API savepoint
2098: SAVEPOINT g_validate_article_version_GRP;
2099: -- Standard call to check for call compatibility.
2100: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: END IF;
2103: -- Initialize message list if p_init_msg_list is set to TRUE.
2104: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2105: FND_MSG_PUB.initialize;
2100: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: END IF;
2103: -- Initialize message list if p_init_msg_list is set to TRUE.
2104: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2105: FND_MSG_PUB.initialize;
2106: END IF;
2107: -- Initialize API return status to success
2108: x_return_status := FND_API.G_RET_STS_SUCCESS;
2104: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2105: FND_MSG_PUB.initialize;
2106: END IF;
2107: -- Initialize API return status to success
2108: x_return_status := FND_API.G_RET_STS_SUCCESS;
2109:
2110: --------------------------------------------
2111: -- Calling Simple API for Article Version Validation
2112: --------------------------------------------
2163: p_object_version_number => NULL
2164: );
2165: --------------------------------------------
2166: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2168: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2169: RAISE FND_API.G_EXC_ERROR ;
2170: END IF;
2171: --------------------------------------------
2165: --------------------------------------------
2166: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2168: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2169: RAISE FND_API.G_EXC_ERROR ;
2170: END IF;
2171: --------------------------------------------
2172:
2173: -- Standard call to get message count and if count is 1, get message info.
2177: okc_debug.log('200: Leaving validate_article_version', 2);
2178: 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;
2185: ROLLBACK TO g_validate_article_version_GRP;
2186: x_return_status := G_RET_STS_ERROR ;
2187: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2188:
2189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2190: IF (l_debug = 'Y') THEN
2191: okc_debug.log('400: Leaving Validate_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2192: END IF;
2193: ROLLBACK TO g_validate_article_version_GRP;
2213: -------------------------------------
2214: PROCEDURE create_article_version(
2215: p_api_version IN NUMBER,
2216: p_init_msg_list IN VARCHAR2 ,
2217: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2218: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2219: p_article_intent IN VARCHAR2 := NULL,
2220: p_standard_yn IN VARCHAR2 := 'Y',
2221: p_global_article_version_id IN NUMBER := NULL,
2214: PROCEDURE create_article_version(
2215: p_api_version IN NUMBER,
2216: p_init_msg_list IN VARCHAR2 ,
2217: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2218: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2219: p_article_intent IN VARCHAR2 := NULL,
2220: p_standard_yn IN VARCHAR2 := 'Y',
2221: p_global_article_version_id IN NUMBER := NULL,
2222:
2305:
2306: -- Standard Start of API savepoint
2307: SAVEPOINT g_create_article_version_GRP;
2308: -- Standard call to check for call compatibility.
2309: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2311: END IF;
2312: -- MOAC
2313: G_CURRENT_ORG_ID := mo_global.get_current_org_id() ;
2306: -- Standard Start of API savepoint
2307: SAVEPOINT g_create_article_version_GRP;
2308: -- Standard call to check for call compatibility.
2309: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2311: END IF;
2312: -- MOAC
2313: G_CURRENT_ORG_ID := mo_global.get_current_org_id() ;
2314: /*
2316: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
2317: CLOSE cur_org_csr;
2318: */
2319: -- Initialize message list if p_init_msg_list is set to TRUE.
2320: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2321: FND_MSG_PUB.initialize;
2322: END IF;
2323: -- Initialize API return status to success
2324: x_return_status := FND_API.G_RET_STS_SUCCESS;
2320: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2321: FND_MSG_PUB.initialize;
2322: END IF;
2323: -- Initialize API return status to success
2324: x_return_status := FND_API.G_RET_STS_SUCCESS;
2325:
2326: -- MOAC
2327: IF G_CURRENT_ORG_ID IS NULL Then
2328: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
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;
2333: DBMS_LOB.CREATETEMPORARY(l_clob,true);
2347: ) ;
2348: --dbms_lob.freetemporary(l_clob);
2349: --------------------------------------------
2350: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2352: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2353: RAISE FND_API.G_EXC_ERROR ;
2354: END IF;
2355: --------------------------------------------
2349: --------------------------------------------
2350: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2352: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2353: RAISE FND_API.G_EXC_ERROR ;
2354: END IF;
2355: --------------------------------------------
2356: -- UIs may be returning EXPIRED status (derived) from VOs.
2357: IF p_article_status = 'EXPIRED' THEN
2413: x_article_version_id => x_article_version_id
2414: );
2415: --------------------------------------------
2416: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2418: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2419: RAISE FND_API.G_EXC_ERROR ;
2420: END IF;
2421: --------------------------------------------
2415: --------------------------------------------
2416: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2418: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2419: RAISE FND_API.G_EXC_ERROR ;
2420: END IF;
2421: --------------------------------------------
2422:
2423: -- Parse through the Article text, replace and extract the variables
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
2471: G_CURRENT_ORG_ID = -99 OR
2489: p_local_org_id => G_CURRENT_ORG_ID
2490: );
2491: --------------------------------------------
2492: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2494: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2495: RAISE FND_API.G_EXC_ERROR ;
2496: END IF;
2497: --------------------------------------------
2491: --------------------------------------------
2492: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2494: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2495: RAISE FND_API.G_EXC_ERROR ;
2496: END IF;
2497: --------------------------------------------
2498:
2499: -- Update denormalized adoption type in article versions table
2505: END IF;
2506:
2507:
2508: -- Standard check of p_commit
2509: IF FND_API.To_Boolean( p_commit ) THEN
2510: COMMIT WORK;
2511: END IF;
2512: -- Standard call to get message count and if count is 1, get message info.
2513: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2516: okc_debug.log('700: Leaving create_article_version', 2);
2517: END IF;
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;
2524: ROLLBACK TO g_create_article_version_GRP;
2525: x_return_status := G_RET_STS_ERROR ;
2526: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2527:
2528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2529: IF (l_debug = 'Y') THEN
2530: okc_debug.log('900: Leaving create_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2531: END IF;
2532: ROLLBACK TO g_create_article_version_GRP;
2570:
2571: -- Standard Start of API savepoint
2572: SAVEPOINT g_lock_article_version_GRP;
2573: -- Standard call to check for call compatibility.
2574: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2576: END IF;
2577: -- Initialize message list if p_init_msg_list is set to TRUE.
2578: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2571: -- Standard Start of API savepoint
2572: SAVEPOINT g_lock_article_version_GRP;
2573: -- Standard call to check for call compatibility.
2574: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2576: END IF;
2577: -- Initialize message list if p_init_msg_list is set to TRUE.
2578: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2579: FND_MSG_PUB.initialize;
2574: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2576: END IF;
2577: -- Initialize message list if p_init_msg_list is set to TRUE.
2578: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2579: FND_MSG_PUB.initialize;
2580: END IF;
2581: -- Initialize API return status to success
2582: x_return_status := FND_API.G_RET_STS_SUCCESS;
2578: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2579: FND_MSG_PUB.initialize;
2580: END IF;
2581: -- Initialize API return status to success
2582: x_return_status := FND_API.G_RET_STS_SUCCESS;
2583:
2584: --------------------------------------------
2585: -- Calling Simple API for Locking A Row
2586: --------------------------------------------
2590: p_object_version_number => p_object_version_number
2591: );
2592: --------------------------------------------
2593: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2595: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2596: RAISE FND_API.G_EXC_ERROR ;
2597: END IF;
2598: --------------------------------------------
2592: --------------------------------------------
2593: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2595: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2596: RAISE FND_API.G_EXC_ERROR ;
2597: END IF;
2598: --------------------------------------------
2599:
2600: -- Standard call to get message count and if count is 1, get message info.
2604: okc_debug.log('1200: Leaving lock_article_version', 2);
2605: END IF;
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;
2612: ROLLBACK TO g_lock_article_version_GRP;
2613: x_return_status := G_RET_STS_ERROR ;
2614: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
2615:
2616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2617: IF (l_debug = 'Y') THEN
2618: okc_debug.log('1400: Leaving lock_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2619: END IF;
2620: ROLLBACK TO g_lock_article_version_GRP;
2764: ---------------------------------------------------------------------------
2765: PROCEDURE update_article_version(
2766: p_api_version IN NUMBER,
2767: p_init_msg_list IN VARCHAR2 ,
2768: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2769: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2770: x_return_status OUT NOCOPY VARCHAR2,
2771: x_msg_count OUT NOCOPY NUMBER,
2772: x_msg_data OUT NOCOPY VARCHAR2,
2765: PROCEDURE update_article_version(
2766: p_api_version IN NUMBER,
2767: p_init_msg_list IN VARCHAR2 ,
2768: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2769: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2770: x_return_status OUT NOCOPY VARCHAR2,
2771: x_msg_count OUT NOCOPY NUMBER,
2772: x_msg_data OUT NOCOPY VARCHAR2,
2773: p_article_intent IN VARCHAR2,
2845:
2846: -- Standard Start of API savepoint
2847: SAVEPOINT g_update_article_version_GRP;
2848: -- Standard call to check for call compatibility.
2849: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2851: END IF;
2852: -- Initialize message list if p_init_msg_list is set to TRUE.
2853: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2846: -- Standard Start of API savepoint
2847: SAVEPOINT g_update_article_version_GRP;
2848: -- Standard call to check for call compatibility.
2849: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2851: END IF;
2852: -- Initialize message list if p_init_msg_list is set to TRUE.
2853: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2854: FND_MSG_PUB.initialize;
2849: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2851: END IF;
2852: -- Initialize message list if p_init_msg_list is set to TRUE.
2853: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2854: FND_MSG_PUB.initialize;
2855: END IF;
2856: -- Initialize API return status to success
2857: x_return_status := FND_API.G_RET_STS_SUCCESS;
2853: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2854: FND_MSG_PUB.initialize;
2855: END IF;
2856: -- Initialize API return status to success
2857: x_return_status := FND_API.G_RET_STS_SUCCESS;
2858:
2859: -- Parse through the Article text, replace and extract the variables
2860: -- Parsing is an expensive process and should be done only if the text has changed and if the article is in Draft or
2861: -- Rejected Status
2886: x_variables_tbl => l_variable_code_tbl
2887: ) ;
2888: --dbms_lob.freetemporary(l_clob);
2889: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2891: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2892: RAISE FND_API.G_EXC_ERROR ;
2893: END IF;
2894: END IF;
2888: --dbms_lob.freetemporary(l_clob);
2889: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2891: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2892: RAISE FND_API.G_EXC_ERROR ;
2893: END IF;
2894: END IF;
2895: -- MOAC
2896: G_CURRENT_ORG_ID := mo_global.get_current_org_id() ;
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(
2919: p_validation_level => p_validation_level,
2968: x_earlier_version_id => l_earlier_version_id
2969: );
2970: --------------------------------------------
2971: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2973: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2974: RAISE FND_API.G_EXC_ERROR ;
2975: END IF;
2976: --------------------------------------------
2970: --------------------------------------------
2971: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2973: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2974: RAISE FND_API.G_EXC_ERROR ;
2975: END IF;
2976: --------------------------------------------
2977: IF p_article_text is NOT NULL AND
2978: nvl(l_article_status,'DRAFT') IN ('DRAFT','REJECTED') THEN
2982: x_variables_to_insert_tbl => l_variables_to_insert_tbl,
2983: x_variables_to_delete_tbl => l_variables_to_delete_tbl,
2984: x_return_status => x_return_status);
2985: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2987: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2988: RAISE FND_API.G_EXC_ERROR ;
2989: END IF;
2990: END IF;
2984: x_return_status => x_return_status);
2985: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2987: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2988: RAISE FND_API.G_EXC_ERROR ;
2989: END IF;
2990: END IF;
2991: IF l_article_status = 'APPROVED' THEN
2992: UPDATE OKC_ARTICLES_ALL
2994: WHERE ARTICLE_ID = l_article_id;
2995: END IF;
2996:
2997: -- Standard check of p_commit
2998: IF FND_API.To_Boolean( p_commit ) THEN
2999: COMMIT WORK;
3000: END IF;
3001: -- Standard call to get message count and if count is 1, get message info.
3002: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3005: okc_debug.log('1800: Leaving update_article_version', 2);
3006: END IF;
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;
3013: ROLLBACK TO g_update_article_version_GRP;
3014: x_return_status := G_RET_STS_ERROR ;
3015: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3016:
3017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3018: IF (l_debug = 'Y') THEN
3019: okc_debug.log('2000: Leaving update_article_version: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3020: END IF;
3021: ROLLBACK TO g_update_article_version_GRP;
3042: ---------------------------------------------------------------------------
3043: PROCEDURE copy_article(
3044: p_api_version IN NUMBER,
3045: p_init_msg_list IN VARCHAR2 ,
3046: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3047: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3048:
3049: p_article_version_id IN NUMBER,
3050: p_new_article_title IN VARCHAR2 := NULL,
3043: PROCEDURE copy_article(
3044: p_api_version IN NUMBER,
3045: p_init_msg_list IN VARCHAR2 ,
3046: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3047: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3048:
3049: p_article_version_id IN NUMBER,
3050: p_new_article_title IN VARCHAR2 := NULL,
3051: p_new_article_number IN VARCHAR2 := NULL,
3199:
3200: -- Standard Start of API savepoint
3201: SAVEPOINT g_copy_article_GRP;
3202: -- Standard call to check for call compatibility.
3203: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3205: END IF;
3206: -- MOAC
3207: G_CURRENT_ORG_ID := mo_global.get_current_org_id() ;
3200: -- Standard Start of API savepoint
3201: SAVEPOINT g_copy_article_GRP;
3202: -- Standard call to check for call compatibility.
3203: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3205: END IF;
3206: -- MOAC
3207: G_CURRENT_ORG_ID := mo_global.get_current_org_id() ;
3208: /*
3210: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
3211: CLOSE cur_org_csr;
3212: */
3213: -- Initialize message list if p_init_msg_list is set to TRUE.
3214: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3215: FND_MSG_PUB.initialize;
3216: END IF;
3217: -- Initialize API return status to success
3218: x_return_status := FND_API.G_RET_STS_SUCCESS;
3214: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3215: FND_MSG_PUB.initialize;
3216: END IF;
3217: -- Initialize API return status to success
3218: x_return_status := FND_API.G_RET_STS_SUCCESS;
3219: --dbms_output.put_line('2700: Before Cursor Entered Copy_Articles ');
3220:
3221: -- Insert into ... select would have been faster but we need to validate as well
3222:
3270: x_last_update_date => l_last_update_date
3271: );
3272: --------------------------------------------
3273: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3275: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
3276: RAISE FND_API.G_EXC_ERROR ;
3277: END IF;
3278: --------------------------------------------
3272: --------------------------------------------
3273: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3275: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
3276: RAISE FND_API.G_EXC_ERROR ;
3277: END IF;
3278: --------------------------------------------
3279: END IF;
3280:
3337: x_last_update_date => lv_last_update_date
3338: );
3339: --------------------------------------------
3340: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3342: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
3343: RAISE FND_API.G_EXC_ERROR ;
3344: END IF;
3345: --------------------------------------------
3339: --------------------------------------------
3340: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3342: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
3343: RAISE FND_API.G_EXC_ERROR ;
3344: END IF;
3345: --------------------------------------------
3346: END IF;
3347: -- Copying Articles
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
3370: (p_article_number => p_new_article_number,
3374: x_doc_sequence_type => l_doc_sequence_type,
3375: x_return_status => x_return_status);
3376:
3377: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3379: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3380: RAISE FND_API.G_EXC_ERROR ;
3381: END IF;
3382: IF l_article_number IS NULL THEN
3376:
3377: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3379: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3380: RAISE FND_API.G_EXC_ERROR ;
3381: END IF;
3382: IF l_article_number IS NULL THEN
3383: l_article_number := nvl(p_new_article_number, l_old_article_number);
3384: END IF;
3438: --dbms_output.put_line('x_article_id is '||x_article_id);
3439: --dbms_output.put_line('x_article_version_id is '||x_article_version_id);
3440: --------------------------------------------
3441: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3443: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3444: RAISE FND_API.G_EXC_ERROR ;
3445: END IF;
3446: --------------------------------------------
3440: --------------------------------------------
3441: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3443: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3444: RAISE FND_API.G_EXC_ERROR ;
3445: END IF;
3446: --------------------------------------------
3447: OKC_ARTICLE_VERSIONS_PVT.Insert_Row(
3448: p_validation_level => p_validation_level,
3494: x_article_version_id => x_article_version_id
3495: );
3496: --------------------------------------------
3497: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3499: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3500: RAISE FND_API.G_EXC_ERROR ;
3501: END IF;
3502: --------------------------------------------
3496: --------------------------------------------
3497: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3499: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3500: RAISE FND_API.G_EXC_ERROR ;
3501: END IF;
3502: --------------------------------------------
3503: -- Create Article Variables
3504: -- Insert at one shot .. This is much efficient than calling the create article version and parse out the variables
3526: FROM OKC_ARTICLE_VARIABLES
3527: WHERE ARTICLE_VERSION_ID = p_article_version_id;
3528: --------------------------------------------
3529: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3531: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3532: RAISE FND_API.G_EXC_ERROR ;
3533: END IF;
3534: --------------------------------------------
3528: --------------------------------------------
3529: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3531: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3532: RAISE FND_API.G_EXC_ERROR ;
3533: END IF;
3534: --------------------------------------------
3535: if p_copy_relationship_yn = 'Y' THEN
3536: OPEN l_relationship_csr(l_p_article_id, G_CURRENT_ORG_ID);
3616: END LOOP; -- main cursor loop
3617: CLOSE l_relationship_csr;
3618: --------------------------------------------
3619: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3621: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3622: RAISE FND_API.G_EXC_ERROR ;
3623: END IF;
3624: --------------------------------------------
3618: --------------------------------------------
3619: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3621: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3622: RAISE FND_API.G_EXC_ERROR ;
3623: END IF;
3624: --------------------------------------------
3625: END IF;
3626: IF p_copy_folder_assoc_yn = 'Y' THEN
3653:
3654: END IF;
3655:
3656: -- Standard check of p_commit
3657: IF FND_API.To_Boolean( p_commit ) THEN
3658: COMMIT WORK;
3659: END IF;
3660: -- Standard call to get message count and if count is 1, get message info.
3661: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3664: okc_debug.log('2800: Leaving copy_article', 2);
3665: END IF;
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;
3672: ROLLBACK TO g_copy_article_GRP;
3673: x_return_status := G_RET_STS_ERROR ;
3674: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
3675:
3676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3677: IF (l_debug = 'Y') THEN
3678: okc_debug.log('3000: Leaving copy_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3679: END IF;
3680: ROLLBACK TO g_copy_article_GRP;
3940: IF (l_debug = 'Y') THEN
3941: okc_debug.log('100: Entered auto adopt relationship', 2);
3942: END IF;
3943:
3944: x_return_status := FND_API.G_RET_STS_SUCCESS;
3945: --dbms_output.put_line('Global org is: '|| l_global_org_id);
3946: OPEN l_approved_csr (p_src_global_article_id, p_tar_global_article_id);
3947: FETCH l_approved_csr INTO l_dummy;
3948: l_rownotfound := l_approved_csr%NOTFOUND;
4072: END;
4073: END LOOP; -- main cursor loop
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 ;
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
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
4109: -------------------------------------
4110: PROCEDURE create_article_relationship(
4111: p_api_version IN NUMBER,
4112: p_init_msg_list IN VARCHAR2 ,
4113: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4114: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4115: x_return_status OUT NOCOPY VARCHAR2,
4116: x_msg_count OUT NOCOPY NUMBER,
4117: x_msg_data OUT NOCOPY VARCHAR2,
4110: PROCEDURE create_article_relationship(
4111: p_api_version IN NUMBER,
4112: p_init_msg_list IN VARCHAR2 ,
4113: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4114: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4115: x_return_status OUT NOCOPY VARCHAR2,
4116: x_msg_count OUT NOCOPY NUMBER,
4117: x_msg_data OUT NOCOPY VARCHAR2,
4118: p_source_article_id IN NUMBER,
4140:
4141: -- Standard Start of API savepoint
4142: SAVEPOINT g_insert_row_GRP;
4143: -- Standard call to check for call compatibility.
4144: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4146: END IF;
4147: -- Initialize message list if p_init_msg_list is set to TRUE.
4148: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4141: -- Standard Start of API savepoint
4142: SAVEPOINT g_insert_row_GRP;
4143: -- Standard call to check for call compatibility.
4144: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4146: END IF;
4147: -- Initialize message list if p_init_msg_list is set to TRUE.
4148: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4149: FND_MSG_PUB.initialize;
4144: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4146: END IF;
4147: -- Initialize message list if p_init_msg_list is set to TRUE.
4148: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4149: FND_MSG_PUB.initialize;
4150: END IF;
4151: -- Initialize API return status to success
4152: x_return_status := FND_API.G_RET_STS_SUCCESS;
4148: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4149: FND_MSG_PUB.initialize;
4150: END IF;
4151: -- Initialize API return status to success
4152: x_return_status := FND_API.G_RET_STS_SUCCESS;
4153:
4154: --------------------------------------------
4155: -- Calling Simple API for Creating A Row
4156: --------------------------------------------
4167: x_org_id => l_org_id
4168: );
4169: --------------------------------------------
4170: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4172: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4173: RAISE FND_API.G_EXC_ERROR ;
4174: END IF;
4175: --------------------------------------------
4169: --------------------------------------------
4170: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4172: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4173: RAISE FND_API.G_EXC_ERROR ;
4174: END IF;
4175: --------------------------------------------
4176: -- Create opposite row by flipping the source and target for the relationship
4177: --------------------------------------------
4188: x_org_id => l_org_id
4189: );
4190: --------------------------------------------
4191: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4193: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4194: RAISE FND_API.G_EXC_ERROR ;
4195: END IF;
4196: --------------------------------------------
4190: --------------------------------------------
4191: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4193: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4194: RAISE FND_API.G_EXC_ERROR ;
4195: END IF;
4196: --------------------------------------------
4197:
4198: -- Trigger autoadoption of relationships for all orgs if a global org has created a relationship between two
4210: p_tar_global_article_id => p_target_article_id,
4211: p_relationship_type => p_relationship_type);
4212: --------------------------------------------
4213: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4215: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4216: RAISE FND_API.G_EXC_ERROR ;
4217: END IF;
4218: --------------------------------------------
4212: --------------------------------------------
4213: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4215: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4216: RAISE FND_API.G_EXC_ERROR ;
4217: END IF;
4218: --------------------------------------------
4219: END IF;
4220:
4218: --------------------------------------------
4219: END IF;
4220:
4221: -- Standard check of p_commit
4222: IF FND_API.To_Boolean( p_commit ) THEN
4223: COMMIT WORK;
4224: END IF;
4225: -- Standard call to get message count and if count is 1, get message info.
4226: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4229: okc_debug.log('700: Leaving insert_row', 2);
4230: 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;
4237: ROLLBACK TO g_insert_row_GRP;
4238: x_return_status := G_RET_STS_ERROR ;
4239: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4240:
4241: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4242: IF (l_debug = 'Y') THEN
4243: okc_debug.log('900: Leaving insert_row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4244: END IF;
4245: ROLLBACK TO g_insert_row_GRP;
4308: END IF;
4309:
4310: -- Standard Start of API savepoint
4311: -- Initialize API return status to success
4312: x_return_status := FND_API.G_RET_STS_SUCCESS;
4313: --dbms_output.put_line('Global org is: '|| l_global_org_id);
4314: OPEN l_relationship_csr (p_source_global_article_id, p_target_global_article_id);
4315: LOOP
4316: FETCH l_relationship_csr BULK COLLECT INTO l_source_article_id_tbl,
4367:
4368: PROCEDURE delete_article_relationship(
4369: p_api_version IN NUMBER,
4370: p_init_msg_list IN VARCHAR2 ,
4371: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4372:
4373: x_return_status OUT NOCOPY VARCHAR2,
4374: x_msg_count OUT NOCOPY NUMBER,
4375: x_msg_data OUT NOCOPY VARCHAR2,
4389:
4390: -- Standard Start of API savepoint
4391: SAVEPOINT g_delete_row_GRP;
4392: -- Standard call to check for call compatibility.
4393: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4395: END IF;
4396: -- Initialize message list if p_init_msg_list is set to TRUE.
4397: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4390: -- Standard Start of API savepoint
4391: SAVEPOINT g_delete_row_GRP;
4392: -- Standard call to check for call compatibility.
4393: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4395: END IF;
4396: -- Initialize message list if p_init_msg_list is set to TRUE.
4397: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4398: FND_MSG_PUB.initialize;
4393: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4395: END IF;
4396: -- Initialize message list if p_init_msg_list is set to TRUE.
4397: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4398: FND_MSG_PUB.initialize;
4399: END IF;
4400: -- Initialize API return status to success
4401: x_return_status := FND_API.G_RET_STS_SUCCESS;
4397: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4398: FND_MSG_PUB.initialize;
4399: END IF;
4400: -- Initialize API return status to success
4401: x_return_status := FND_API.G_RET_STS_SUCCESS;
4402:
4403: --------------------------------------------
4404: -- Calling Simple API for Deleting A Row
4405: --------------------------------------------
4412: p_object_version_number => p_object_version_number
4413: );
4414: --------------------------------------------
4415: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4417: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4418: RAISE FND_API.G_EXC_ERROR ;
4419: END IF;
4420: --------------------------------------------
4414: --------------------------------------------
4415: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4417: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4418: RAISE FND_API.G_EXC_ERROR ;
4419: END IF;
4420: --------------------------------------------
4421: --------------------------------------------
4422: -- Delete the opposite row by flipping the source and target for the relationship
4452: ) ;
4453: */
4454: END IF;
4455: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4457: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4458: RAISE FND_API.G_EXC_ERROR ;
4459: END IF;
4460: -- Standard check of p_commit
4454: END IF;
4455: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4457: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4458: RAISE FND_API.G_EXC_ERROR ;
4459: END IF;
4460: -- Standard check of p_commit
4461: IF FND_API.To_Boolean( p_commit ) THEN
4462: COMMIT WORK;
4457: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4458: RAISE FND_API.G_EXC_ERROR ;
4459: END IF;
4460: -- Standard check of p_commit
4461: IF FND_API.To_Boolean( p_commit ) THEN
4462: COMMIT WORK;
4463: END IF;
4464: -- Standard call to get message count and if count is 1, get message info.
4465: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4468: okc_debug.log('2300: Leaving delete_row', 2);
4469: END IF;
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;
4476: ROLLBACK TO g_delete_row_GRP;
4477: x_return_status := G_RET_STS_ERROR ;
4478: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_encoded=> 'F', p_data => x_msg_data );
4479:
4480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4481: IF (l_debug = 'Y') THEN
4482: okc_debug.log('2500: Leaving delete_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4483: END IF;
4484: ROLLBACK TO g_delete_row_GRP;
4529: av.article_status in ( 'APPROVED', 'HOLD') and
4530: rownum < 2;
4531: BEGIN
4532: x_yes_no := 'N';
4533: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4535: END IF;
4536: -- Initialize message list if p_init_msg_list is set to TRUE.
4537: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4530: rownum < 2;
4531: BEGIN
4532: x_yes_no := 'N';
4533: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4535: END IF;
4536: -- Initialize message list if p_init_msg_list is set to TRUE.
4537: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4538: FND_MSG_PUB.initialize;
4533: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4535: END IF;
4536: -- Initialize message list if p_init_msg_list is set to TRUE.
4537: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4538: FND_MSG_PUB.initialize;
4539: END IF;
4540:
4541: -- Initialize API return status to success
4538: FND_MSG_PUB.initialize;
4539: END IF;
4540:
4541: -- Initialize API return status to success
4542: x_return_status := FND_API.G_RET_STS_SUCCESS;
4543: OPEN l_highest_version_csr(p_article_id, p_start_date);
4544: FETCH l_highest_version_csr INTO l_yes_no ;
4545: IF l_highest_version_csr%NOTFOUND THEN
4546: l_yes_no := 'N';