15:
16: ------------------------------------------------------------------------------
17: -- GLOBAL CONSTANTS
18: ------------------------------------------------------------------------------
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
23: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
16: ------------------------------------------------------------------------------
17: -- GLOBAL CONSTANTS
18: ------------------------------------------------------------------------------
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
23: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
24: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
17: -- GLOBAL CONSTANTS
18: ------------------------------------------------------------------------------
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
23: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
24: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
25: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
18: ------------------------------------------------------------------------------
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
23: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
24: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
25: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
26: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
23: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
24: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
25: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
26: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
27: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
23: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
24: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
25: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
26: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
27: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
28: G_AMEND_CODE_ADDED CONSTANT VARCHAR2(30) := 'ADDED';
141:
142: -- Standard Start of API savepoint
143: SAVEPOINT g_create_article_GRP;
144: -- Standard call to check for call compatibility.
145: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147: END IF;
148: -- Initialize message list if p_init_msg_list is set to TRUE.
149: IF FND_API.to_Boolean( p_init_msg_list ) THEN
142: -- Standard Start of API savepoint
143: SAVEPOINT g_create_article_GRP;
144: -- Standard call to check for call compatibility.
145: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147: END IF;
148: -- Initialize message list if p_init_msg_list is set to TRUE.
149: IF FND_API.to_Boolean( p_init_msg_list ) THEN
150: FND_MSG_PUB.initialize;
145: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147: END IF;
148: -- Initialize message list if p_init_msg_list is set to TRUE.
149: IF FND_API.to_Boolean( p_init_msg_list ) THEN
150: FND_MSG_PUB.initialize;
151: END IF;
152:
153: IF p_kart_tbl.COUNT >0
150: FND_MSG_PUB.initialize;
151: END IF;
152:
153: IF p_kart_tbl.COUNT >0
154: AND FND_API.To_Boolean( p_validate_commit ) THEN
155:
156: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
157: p_api_version => l_api_version,
158: p_init_msg_list => FND_API.G_FALSE,
152:
153: IF p_kart_tbl.COUNT >0
154: AND FND_API.To_Boolean( p_validate_commit ) THEN
155:
156: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
157: p_api_version => l_api_version,
158: p_init_msg_list => FND_API.G_FALSE,
159: p_doc_type => p_doc_type,
160: p_doc_id => p_doc_id,
154: AND FND_API.To_Boolean( p_validate_commit ) THEN
155:
156: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
157: p_api_version => l_api_version,
158: p_init_msg_list => FND_API.G_FALSE,
159: p_doc_type => p_doc_type,
160: p_doc_id => p_doc_id,
161: p_validation_string => p_validation_string,
162: x_return_status => x_return_status,
170: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
171: FND_LOG.STRING(G_PROC_LEVEL,
172: G_PKG_NAME, '110: Issue with document header Record.Cannot commit' );
173: END IF;
174: RAISE FND_API.G_EXC_ERROR ;
175: END IF;
176: END IF;
177:
178: -- Initialize API return status to success
175: END IF;
176: END IF;
177:
178: -- Initialize API return status to success
179: x_return_status := FND_API.G_RET_STS_SUCCESS;
180:
181: IF p_kart_tbl.COUNT > 0 THEN
182:
183: IF p_ref_type='ARTICLE' THEN
188:
189: ELSIF p_ref_type='SECTION' THEN
190: l_scn_id := p_ref_id;
191: ELSE
192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
193:
194: END IF;
195:
196: OPEN l_get_scn_child_csr(l_scn_id);
242: END IF;
243:
244: OKC_K_ARTICLES_GRP.create_article(
245: p_api_version => 1,
246: p_init_msg_list => FND_API.G_FALSE,
247: p_validation_level => 0,
248: p_mode => p_mode,
249: x_return_status => x_return_status,
250: x_msg_count => x_msg_count,
264: );
265:
266: --------------------------------------------
267: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
269: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
270: RAISE FND_API.G_EXC_ERROR ;
271: END IF;
272: --------------------------------------------
266: --------------------------------------------
267: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
269: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
270: RAISE FND_API.G_EXC_ERROR ;
271: END IF;
272: --------------------------------------------
273: x_kart_tbl(i).id := l_id;
274: END LOOP;
301: p_object_version_number => Null
302: );
303: --------------------------------------------
304: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
306: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
307: RAISE FND_API.G_EXC_ERROR ;
308: END IF;
309: --------------------------------------------
303: --------------------------------------------
304: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
306: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
307: RAISE FND_API.G_EXC_ERROR ;
308: END IF;
309: --------------------------------------------
310: ELSIF scn_child_tbl(k).object_type='SECTION' THEN
311:
329: p_object_version_number =>Null
330: );
331: --------------------------------------------
332: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
334: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
335: RAISE FND_API.G_EXC_ERROR ;
336: END IF;
337:
331: --------------------------------------------
332: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
334: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
335: RAISE FND_API.G_EXC_ERROR ;
336: END IF;
337:
338: END IF; -- IF scn_child_tbl(k).object_type='ARTICLE' THEN
339: END IF;
340: END LOOP;
341: END IF;
342:
343: -- Standard check of p_commit
344: IF FND_API.To_Boolean( p_commit ) THEN
345: COMMIT WORK;
346: END IF;
347:
348: -- Standard call to get message count and if count is 1, get message info.
357: G_PKG_NAME, '200: Leaving create_article' );
358: END IF;
359:
360: EXCEPTION
361: WHEN FND_API.G_EXC_ERROR THEN
362: /*IF (l_debug = 'Y') THEN
363: okc_debug.log('300: Leaving create_article: OKC_API.G_EXCEPTION_ERROR Exception', 2);
364: END IF;*/
365:
379: ROLLBACK TO g_create_article_GRP;
380: x_return_status := G_RET_STS_ERROR ;
381: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
382:
383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
384: /*IF (l_debug = 'Y') THEN
385: okc_debug.log('400: Leaving create_article: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
386: END IF;*/
387:
447: l_api_version CONSTANT NUMBER := 1;
448: l_api_name CONSTANT VARCHAR2(30) := 'update_article_variable';
449: l_doc_type VARCHAR2(30);
450: l_doc_id NUMBER;
451: l_dummy NUMBER := FND_API.G_MISS_NUM;
452:
453: CURSOR l_doc_csr(b_cat_id NUMBER) IS
454: SELECT DOCUMENT_TYPE,DOCUMENT_ID
455: FROM OKC_K_ARTICLES_B
498:
499: -- Standard Start of API savepoint
500: SAVEPOINT g_update_article_variable_GRP;
501: -- Standard call to check for call compatibility.
502: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
504: END IF;
505: -- Initialize message list if p_init_msg_list is set to TRUE.
506: IF FND_API.to_Boolean( p_init_msg_list ) THEN
499: -- Standard Start of API savepoint
500: SAVEPOINT g_update_article_variable_GRP;
501: -- Standard call to check for call compatibility.
502: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
504: END IF;
505: -- Initialize message list if p_init_msg_list is set to TRUE.
506: IF FND_API.to_Boolean( p_init_msg_list ) THEN
507: FND_MSG_PUB.initialize;
502: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
504: END IF;
505: -- Initialize message list if p_init_msg_list is set to TRUE.
506: IF FND_API.to_Boolean( p_init_msg_list ) THEN
507: FND_MSG_PUB.initialize;
508: END IF;
509:
510: IF p_art_var_tbl.FIRST IS NOT NULL
507: FND_MSG_PUB.initialize;
508: END IF;
509:
510: IF p_art_var_tbl.FIRST IS NOT NULL
511: AND FND_API.To_Boolean( p_validate_commit ) THEN
512:
513: OPEN l_doc_csr(p_art_var_tbl(1).cat_id);
514: FETCH l_doc_csr INTO l_doc_type,l_doc_id;
515: CLOSE l_doc_csr;
512:
513: OPEN l_doc_csr(p_art_var_tbl(1).cat_id);
514: FETCH l_doc_csr INTO l_doc_type,l_doc_id;
515: CLOSE l_doc_csr;
516: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
517: p_api_version => l_api_version,
518: p_init_msg_list => FND_API.G_FALSE,
519: p_doc_type => l_doc_type,
520: p_doc_id => l_doc_id,
514: FETCH l_doc_csr INTO l_doc_type,l_doc_id;
515: CLOSE l_doc_csr;
516: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
517: p_api_version => l_api_version,
518: p_init_msg_list => FND_API.G_FALSE,
519: p_doc_type => l_doc_type,
520: p_doc_id => l_doc_id,
521: p_validation_string => p_validation_string,
522: x_return_status => x_return_status,
530: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
531: FND_LOG.STRING(G_PROC_LEVEL,
532: G_PKG_NAME, '110: Issue with document header Record.Cannot commit' );
533: END IF;
534: RAISE FND_API.G_EXC_ERROR ;
535: END IF;
536: END IF;
537:
538: -- Initialize API return status to success
535: END IF;
536: END IF;
537:
538: -- Initialize API return status to success
539: x_return_status := FND_API.G_RET_STS_SUCCESS;
540:
541: IF p_art_var_tbl.FIRST IS NOT NULL THEN
542: FOR i IN p_art_var_tbl.FIRST..p_art_var_tbl.LAST LOOP
543: /*IF (l_debug = 'Y') THEN
563: );
564:
565: --------------------------------------------
566: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
568: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
569: RAISE FND_API.G_EXC_ERROR ;
570: END IF;
571: --------------------------------------------
565: --------------------------------------------
566: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
568: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
569: RAISE FND_API.G_EXC_ERROR ;
570: END IF;
571: --------------------------------------------
572: IF p_mode ='AMEND' THEN
573: l_dummy := FND_API.G_MISS_NUM;
569: RAISE FND_API.G_EXC_ERROR ;
570: END IF;
571: --------------------------------------------
572: IF p_mode ='AMEND' THEN
573: l_dummy := FND_API.G_MISS_NUM;
574: OPEN l_amend_art_csr(p_art_var_tbl(i).cat_id);
575: FETCH l_amend_art_csr into l_dummy;
576: CLOSE l_amend_art_csr;
577: IF l_dummy <> FND_API.G_MISS_NUM THEN
573: l_dummy := FND_API.G_MISS_NUM;
574: OPEN l_amend_art_csr(p_art_var_tbl(i).cat_id);
575: FETCH l_amend_art_csr into l_dummy;
576: CLOSE l_amend_art_csr;
577: IF l_dummy <> FND_API.G_MISS_NUM THEN
578:
579: /*IF (l_debug = 'Y') THEN
580: okc_debug.log('125: Updating Amend Operation Code for cat_id '||p_art_var_tbl(i).cat_id, 2);
581: END IF;*/
585: G_PKG_NAME, '125: Updating Amend Operation Code for cat_id '||p_art_var_tbl(i).cat_id );
586: END IF;
587: OKC_K_ARTICLES_GRP.Update_article(
588: p_api_version => 1,
589: p_init_msg_list => FND_API.G_FALSE,
590: p_validation_level => 0,
591: p_mode => p_mode,
592: x_msg_count => x_msg_count,
593: x_msg_data => x_msg_data,
598: );
599:
600: --------------------------------------------
601: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
603: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
604: RAISE FND_API.G_EXC_ERROR ;
605: END IF;
606: --------------------------------------------
600: --------------------------------------------
601: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
603: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
604: RAISE FND_API.G_EXC_ERROR ;
605: END IF;
606: --------------------------------------------
607: END IF;
608: END IF;
609: END LOOP;
610: END IF;
611:
612: -- Standard check of p_commit
613: IF FND_API.To_Boolean( p_commit ) THEN
614: COMMIT WORK;
615: END IF;
616:
617: -- Standard call to get message count and if count is 1, get message info.
626: G_PKG_NAME, '200: Leaving update_article_variable' );
627: END IF;
628:
629: EXCEPTION
630: WHEN FND_API.G_EXC_ERROR THEN
631: /*IF (l_debug = 'Y') THEN
632: okc_debug.log('300: Leaving update_article_variable: OKC_API.G_EXCEPTION_ERROR Exception', 2);
633: END IF;*/
634:
644: ROLLBACK TO g_update_article_variable_GRP;
645: x_return_status := G_RET_STS_ERROR ;
646: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
647:
648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
649: /*IF (l_debug = 'Y') THEN
650: okc_debug.log('400: Leaving update_article_variable: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
651: END IF;*/
652:
748:
749: -- Standard Start of API savepoint
750: SAVEPOINT g_update_structure_GRP;
751: -- Standard call to check for call compatibility.
752: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
754: END IF;
755:
756: -- Initialize message list if p_init_msg_list is set to TRUE.
749: -- Standard Start of API savepoint
750: SAVEPOINT g_update_structure_GRP;
751: -- Standard call to check for call compatibility.
752: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
754: END IF;
755:
756: -- Initialize message list if p_init_msg_list is set to TRUE.
757: IF FND_API.to_Boolean( p_init_msg_list ) THEN
753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
754: END IF;
755:
756: -- Initialize message list if p_init_msg_list is set to TRUE.
757: IF FND_API.to_Boolean( p_init_msg_list ) THEN
758: FND_MSG_PUB.initialize;
759: END IF;
760:
761: -- Initialize API return status to success
758: FND_MSG_PUB.initialize;
759: END IF;
760:
761: -- Initialize API return status to success
762: x_return_status := FND_API.G_RET_STS_SUCCESS;
763:
764: IF p_structure_tbl.FIRST IS NOT NULL
765: AND FND_API.To_Boolean( p_validate_commit ) THEN
766:
761: -- Initialize API return status to success
762: x_return_status := FND_API.G_RET_STS_SUCCESS;
763:
764: IF p_structure_tbl.FIRST IS NOT NULL
765: AND FND_API.To_Boolean( p_validate_commit ) THEN
766:
767: IF p_structure_tbl(1).type ='ARTICLE' THEN
768: OPEN l_doc_art_csr(p_structure_tbl(1).id);
769: FETCH l_doc_art_csr INTO l_doc_type,l_doc_id;
775: FETCH l_doc_scn_csr INTO l_doc_type,l_doc_id;
776: CLOSE l_doc_scn_csr;
777: END IF;
778:
779: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
780: p_api_version => l_api_version,
781: p_init_msg_list => FND_API.G_FALSE,
782: p_doc_type => l_doc_type,
783: p_doc_id => l_doc_id,
777: END IF;
778:
779: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
780: p_api_version => l_api_version,
781: p_init_msg_list => FND_API.G_FALSE,
782: p_doc_type => l_doc_type,
783: p_doc_id => l_doc_id,
784: x_return_status => x_return_status,
785: x_msg_data => x_msg_data,
792: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
793: FND_LOG.STRING(G_PROC_LEVEL,
794: G_PKG_NAME, '110: Issue with document header Record.Cannot commit' );
795: END IF;
796: RAISE FND_API.G_EXC_ERROR ;
797: END IF;
798: END IF;
799:
800:
805: IF p_structure_tbl(i).type = 'SECTION' THEN
806:
807: OKC_TERMS_SECTIONS_GRP.update_section(
808: p_api_version => 1,
809: p_init_msg_list => FND_API.G_FALSE,
810: x_msg_count => x_msg_count,
811: x_msg_data => x_msg_data,
812: p_validation_level => 0,
813: x_return_status => x_return_status,
819: );
820:
821: --------------------------------------------
822: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
824: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
825: RAISE FND_API.G_EXC_ERROR ;
826: END IF;
827: --------------------------------------------
821: --------------------------------------------
822: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
824: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
825: RAISE FND_API.G_EXC_ERROR ;
826: END IF;
827: --------------------------------------------
828:
829: END IF;
831: IF p_structure_tbl(i).type = 'ARTICLE' THEN
832:
833: OKC_K_ARTICLES_GRP.Update_article(
834: p_api_version => 1,
835: p_init_msg_list => FND_API.G_FALSE,
836: p_validation_level => 0,
837: x_msg_count => x_msg_count,
838: x_msg_data => x_msg_data,
839: x_return_status => x_return_status,
846: );
847:
848: --------------------------------------------
849: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
851: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
852: RAISE FND_API.G_EXC_ERROR ;
853: END IF;
854: --------------------------------------------
848: --------------------------------------------
849: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
851: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
852: RAISE FND_API.G_EXC_ERROR ;
853: END IF;
854: --------------------------------------------
855: END IF;
856: END LOOP;
856: END LOOP;
857:
858: END IF;
859: -- Standard check of p_commit
860: IF FND_API.To_Boolean( p_commit ) THEN
861: COMMIT WORK;
862: END IF;
863:
864: -- Standard call to get message count and if count is 1, get message info.
873: G_PKG_NAME, '200: Leaving update_structure' );
874: END IF;
875:
876: EXCEPTION
877: WHEN FND_API.G_EXC_ERROR THEN
878: /*IF (l_debug = 'Y') THEN
879: okc_debug.log('300: Leaving update_structure: OKC_API.G_EXCEPTION_ERROR Exception', 2);
880: END IF;*/
881:
895: ROLLBACK TO g_update_structure_GRP;
896: x_return_status := G_RET_STS_ERROR ;
897: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
898:
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: /*IF (l_debug = 'Y') THEN
901: okc_debug.log('400: Leaving update_structure: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
902: END IF;*/
903:
1188:
1189: -- Standard Start of API savepoint
1190: SAVEPOINT g_sync_doc_with_expert_GRP;
1191: -- Standard call to check for call compatibility.
1192: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: END IF;
1195: -- Initialize message list if p_init_msg_list is set to TRUE.
1196: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1189: -- Standard Start of API savepoint
1190: SAVEPOINT g_sync_doc_with_expert_GRP;
1191: -- Standard call to check for call compatibility.
1192: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: END IF;
1195: -- Initialize message list if p_init_msg_list is set to TRUE.
1196: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1197: FND_MSG_PUB.initialize;
1192: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: END IF;
1195: -- Initialize message list if p_init_msg_list is set to TRUE.
1196: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1197: FND_MSG_PUB.initialize;
1198: END IF;
1199:
1200: -- Initialize API return status to success
1197: FND_MSG_PUB.initialize;
1198: END IF;
1199:
1200: -- Initialize API return status to success
1201: x_return_status := FND_API.G_RET_STS_SUCCESS;
1202:
1203: -- Begin: Added code for bug 5406515
1204: l_current_org_id := OKC_TERMS_UTIL_PVT.get_current_org_id(p_doc_type, p_doc_id);
1205: MO_GLOBAL.set_policy_context('S',l_current_org_id);
1204: l_current_org_id := OKC_TERMS_UTIL_PVT.get_current_org_id(p_doc_type, p_doc_id);
1205: MO_GLOBAL.set_policy_context('S',l_current_org_id);
1206: -- End: Added code for bug 5406515
1207:
1208: IF FND_API.To_Boolean( p_validate_commit )
1209: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
1210: p_api_version => l_api_version,
1211: p_init_msg_list => FND_API.G_FALSE,
1212: p_doc_type => p_doc_type,
1205: MO_GLOBAL.set_policy_context('S',l_current_org_id);
1206: -- End: Added code for bug 5406515
1207:
1208: IF FND_API.To_Boolean( p_validate_commit )
1209: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
1210: p_api_version => l_api_version,
1211: p_init_msg_list => FND_API.G_FALSE,
1212: p_doc_type => p_doc_type,
1213: p_doc_id => p_doc_id,
1207:
1208: IF FND_API.To_Boolean( p_validate_commit )
1209: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
1210: p_api_version => l_api_version,
1211: p_init_msg_list => FND_API.G_FALSE,
1212: p_doc_type => p_doc_type,
1213: p_doc_id => p_doc_id,
1214: p_validation_string => p_validation_string,
1215: x_return_status => x_return_status,
1223: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1224: FND_LOG.STRING(G_PROC_LEVEL,
1225: G_PKG_NAME, '200: Issue with document header Record.Cannot commit' );
1226: END IF;
1227: RAISE FND_API.G_EXC_ERROR ;
1228: END IF;
1229:
1230: OPEN l_get_prov_csr;
1231: FETCH l_get_prov_csr into l_bus_doc_name, l_prov_allowed;
1318: l_renumber_flag :='Y';
1319:
1320: OKC_K_ARTICLES_GRP.delete_article(
1321: p_api_version => l_api_version,
1322: p_init_msg_list => FND_API.G_FALSE,
1323: p_validate_commit => FND_API.G_FALSE,
1324: p_validation_string => Null,
1325: p_commit => FND_API.G_FALSE,
1326: p_mode => p_mode,
1319:
1320: OKC_K_ARTICLES_GRP.delete_article(
1321: p_api_version => l_api_version,
1322: p_init_msg_list => FND_API.G_FALSE,
1323: p_validate_commit => FND_API.G_FALSE,
1324: p_validation_string => Null,
1325: p_commit => FND_API.G_FALSE,
1326: p_mode => p_mode,
1327: p_id => l_article_id,
1321: p_api_version => l_api_version,
1322: p_init_msg_list => FND_API.G_FALSE,
1323: p_validate_commit => FND_API.G_FALSE,
1324: p_validation_string => Null,
1325: p_commit => FND_API.G_FALSE,
1326: p_mode => p_mode,
1327: p_id => l_article_id,
1328: p_object_version_number => l_ovn,
1329: p_mandatory_clause_delete => 'Y',
1333: p_lock_terms_yn => p_lock_terms_yn
1334: );
1335: --------------------------------------------
1336: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1338: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1339: RAISE FND_API.G_EXC_ERROR ;
1340: END IF;
1341: --------------------------------------------
1335: --------------------------------------------
1336: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1338: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1339: RAISE FND_API.G_EXC_ERROR ;
1340: END IF;
1341: --------------------------------------------
1342:
1343: END LOOP;
1364: OPEN l_get_effective_date_csr;
1365: FETCH l_get_effective_date_csr INTO l_article_effective_date;
1366:
1367: IF l_get_effective_date_csr%NOTFOUND THEN
1368: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1369: END IF;
1370: CLOSE l_get_effective_date_csr;
1371:
1372: FOR i IN l_insert_tbl.FIRST..l_insert_tbl.LAST LOOP
1394: OPEN l_get_max_article_csr(l_insert_tbl(i));
1395: FETCH l_get_max_article_csr INTO l_max_article_rec;
1396:
1397: IF l_get_max_article_csr%NOTFOUND THEN
1398: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1399: END IF;
1400:
1401: l_article_rec.article_id := l_max_article_rec.article_id;
1402: l_article_rec.article_version_id := l_max_article_rec.article_version_id;
1424:
1425: IF l_get_max_local_article_csr%NOTFOUND THEN
1426: CLOSE l_get_max_local_article_csr;
1427: CLOSE l_get_local_article_csr;
1428: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1429: END IF;
1430:
1431: l_article_rec.article_id := l_max_local_article_rec.article_id;
1432: l_article_rec.article_version_id := l_max_local_article_rec.article_version_id;
1527: END IF;
1528:
1529: OKC_TERMS_SECTIONS_GRP.create_section(
1530: p_api_version => l_api_version,
1531: p_init_msg_list => FND_API.G_FALSE,
1532: p_commit => FND_API.G_FALSE,
1533: x_return_status => x_return_status,
1534: x_msg_count => x_msg_count,
1535: x_msg_data => x_msg_data,
1528:
1529: OKC_TERMS_SECTIONS_GRP.create_section(
1530: p_api_version => l_api_version,
1531: p_init_msg_list => FND_API.G_FALSE,
1532: p_commit => FND_API.G_FALSE,
1533: x_return_status => x_return_status,
1534: x_msg_count => x_msg_count,
1535: x_msg_data => x_msg_data,
1536: p_id => NULL,
1545: x_id => l_scn_id
1546: );
1547: --------------------------------------------
1548: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1550: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1551: RAISE FND_API.G_EXC_ERROR ;
1552: END IF;
1553: --------------------------------------------
1547: --------------------------------------------
1548: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1550: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1551: RAISE FND_API.G_EXC_ERROR ;
1552: END IF;
1553: --------------------------------------------
1554: /*IF (l_debug = 'Y') THEN
1555: okc_debug.log('800: section created');
1586: --END:Bug#5160892
1587:
1588: OKC_K_ARTICLES_GRP.create_article(
1589: p_api_version => l_api_version,
1590: p_init_msg_list => FND_API.G_FALSE,
1591: p_commit => FND_API.G_FALSE,
1592: x_return_status => x_return_status,
1593: x_msg_count => x_msg_count,
1594: x_msg_data => x_msg_data,
1587:
1588: OKC_K_ARTICLES_GRP.create_article(
1589: p_api_version => l_api_version,
1590: p_init_msg_list => FND_API.G_FALSE,
1591: p_commit => FND_API.G_FALSE,
1592: x_return_status => x_return_status,
1593: x_msg_count => x_msg_count,
1594: x_msg_data => x_msg_data,
1595: p_id => NULL,
1605: x_id => l_art_id
1606: );
1607: --------------------------------------------
1608: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1609: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1610: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1611: RAISE FND_API.G_EXC_ERROR ;
1612: END IF;
1613: --------------------------------------------
1607: --------------------------------------------
1608: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1609: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1610: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1611: RAISE FND_API.G_EXC_ERROR ;
1612: END IF;
1613: --------------------------------------------
1614:
1615: END IF; -- l_article_rec.provision_yn='Y' and l_prov_allowed='N'
1668: );
1669: END LOOP;
1670: --------------------------------------------
1671: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1673: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1674: RAISE FND_API.G_EXC_ERROR ;
1675: END IF;
1676: -------------------------------------------
1670: --------------------------------------------
1671: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1673: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1674: RAISE FND_API.G_EXC_ERROR ;
1675: END IF;
1676: -------------------------------------------
1677:
1678: END IF; -- l_hook_used = 1
1684:
1685: IF p_article_id_tbl.Count > 0 THEN
1686: OKC_CODE_HOOK.sync_rwa_with_document
1687: (p_api_version => 1,
1688: p_init_msg_list => FND_API.G_FALSE,
1689: p_doc_type => p_doc_type,
1690: p_doc_id => p_doc_id,
1691: p_article_id_tbl => p_article_id_tbl,
1692: x_return_status => x_return_status,
1723: END IF;
1724:
1725: OKC_NUMBER_SCHEME_GRP.apply_numbering_scheme(
1726: p_api_version => p_api_version,
1727: p_init_msg_list => FND_API.G_FALSE,
1728: x_return_status => x_return_status,
1729: x_msg_count => l_msg_count,
1730: x_msg_data => l_msg_data,
1731: p_validate_commit => p_validate_commit,
1729: x_msg_count => l_msg_count,
1730: x_msg_data => l_msg_data,
1731: p_validate_commit => p_validate_commit,
1732: p_validation_string => p_validation_string,
1733: p_commit => FND_API.G_FALSE,
1734: p_doc_type => p_doc_type,
1735: p_doc_id => p_doc_id,
1736: p_num_scheme_id => l_num_scheme_id
1737: );
1761: -- set the OUT parameter to indicate the number of provisional articles dropped
1762: x_articles_dropped := l_articles_dropped;
1763:
1764: -- Standard check of p_commit
1765: IF FND_API.To_Boolean( p_commit ) THEN
1766: COMMIT WORK;
1767: END IF;
1768:
1769: -- Standard call to get message count and if count is 1, get message info.
1778: G_PKG_NAME, '200: Leaving sync_doc_with_expert' );
1779: END IF;
1780:
1781: EXCEPTION
1782: WHEN FND_API.G_EXC_ERROR THEN
1783: /*IF (l_debug = 'Y') THEN
1784: okc_debug.log('300: Leaving sync_doc_with_expert: OKC_API.G_EXCEPTION_ERROR Exception', 2);
1785: END IF;*/
1786:
1836: ROLLBACK TO g_sync_doc_with_expert_GRP;
1837: x_return_status := G_RET_STS_ERROR ;
1838: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1839:
1840: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1841: /*IF (l_debug = 'Y') THEN
1842: okc_debug.log('400: Leaving sync_doc_with_expert: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1843: END IF;*/
1844:
2035: -- Standard Start of API savepoint
2036: SAVEPOINT g_refresh_articles_GRP;
2037: -- Standard call to check for call compatibility.
2038:
2039: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2041: END IF;
2042: -- Initialize message list if p_init_msg_list is set to TRUE.
2043: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2036: SAVEPOINT g_refresh_articles_GRP;
2037: -- Standard call to check for call compatibility.
2038:
2039: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2041: END IF;
2042: -- Initialize message list if p_init_msg_list is set to TRUE.
2043: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2044: FND_MSG_PUB.initialize;
2039: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2041: END IF;
2042: -- Initialize message list if p_init_msg_list is set to TRUE.
2043: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2044: FND_MSG_PUB.initialize;
2045: END IF;
2046:
2047: -- Initialize API return status to success
2044: FND_MSG_PUB.initialize;
2045: END IF;
2046:
2047: -- Initialize API return status to success
2048: x_return_status := FND_API.G_RET_STS_SUCCESS;
2049:
2050: IF FND_API.To_Boolean( p_validate_commit )
2051: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
2052: p_api_version => l_api_version,
2046:
2047: -- Initialize API return status to success
2048: x_return_status := FND_API.G_RET_STS_SUCCESS;
2049:
2050: IF FND_API.To_Boolean( p_validate_commit )
2051: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
2052: p_api_version => l_api_version,
2053: p_init_msg_list => FND_API.G_FALSE,
2054: p_doc_type => p_doc_type,
2047: -- Initialize API return status to success
2048: x_return_status := FND_API.G_RET_STS_SUCCESS;
2049:
2050: IF FND_API.To_Boolean( p_validate_commit )
2051: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
2052: p_api_version => l_api_version,
2053: p_init_msg_list => FND_API.G_FALSE,
2054: p_doc_type => p_doc_type,
2055: p_doc_id => p_doc_id,
2049:
2050: IF FND_API.To_Boolean( p_validate_commit )
2051: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
2052: p_api_version => l_api_version,
2053: p_init_msg_list => FND_API.G_FALSE,
2054: p_doc_type => p_doc_type,
2055: p_doc_id => p_doc_id,
2056: p_validation_string => p_validation_string,
2057: x_return_status => x_return_status,
2065: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2066: FND_LOG.STRING(G_PROC_LEVEL,
2067: G_PKG_NAME, '200: Issue with document header Record.Cannot commit' );
2068: END IF;
2069: RAISE FND_API.G_EXC_ERROR ;
2070: END IF;
2071:
2072: FOR i IN p_article_tbl.FIRST..p_article_tbl.LAST LOOP
2073:
2091: p_lock_terms_yn => p_lock_terms_yn
2092: );
2093: --------------------------------------------
2094: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2096: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2097: RAISE FND_API.G_EXC_ERROR ;
2098: END IF;
2099: --------------------------------------------
2093: --------------------------------------------
2094: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2096: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2097: RAISE FND_API.G_EXC_ERROR ;
2098: END IF;
2099: --------------------------------------------
2100: END IF;
2101:
2101:
2102: END LOOP;
2103:
2104: -- Standard check of p_commit
2105: IF FND_API.To_Boolean( p_commit ) THEN
2106: COMMIT WORK;
2107: END IF;
2108:
2109: -- Standard call to get message count and if count is 1, get message info.
2118: G_PKG_NAME, '200: Leaving refresh_articles' );
2119: END IF;
2120:
2121: EXCEPTION
2122: WHEN FND_API.G_EXC_ERROR THEN
2123: /*IF (l_debug = 'Y') THEN
2124: okc_debug.log('300: Leaving refresh_articles: OKC_API.G_EXCEPTION_ERROR Exception', 2);
2125: END IF;*/
2126:
2136: ROLLBACK TO g_refresh_articles_GRP;
2137: x_return_status := G_RET_STS_ERROR ;
2138: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2139:
2140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2141: /*IF (l_debug = 'Y') THEN
2142: okc_debug.log('400: Leaving refresh_articles: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2143: END IF;*/
2144:
2190:
2191: PROCEDURE organize_layout(
2192: p_api_version IN NUMBER,
2193: p_init_msg_list IN VARCHAR2 ,
2194: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2195: p_validate_commit IN VARCHAR2 := FND_API.G_FALSE,
2196: p_validation_string IN VARCHAR2,
2197: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2198: p_organize_tbl IN ORGANIZE_TBL_TYPE,
2191: PROCEDURE organize_layout(
2192: p_api_version IN NUMBER,
2193: p_init_msg_list IN VARCHAR2 ,
2194: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2195: p_validate_commit IN VARCHAR2 := FND_API.G_FALSE,
2196: p_validation_string IN VARCHAR2,
2197: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2198: p_organize_tbl IN ORGANIZE_TBL_TYPE,
2199: p_ref_point IN VARCHAR2 := 'A', -- Possible values
2193: p_init_msg_list IN VARCHAR2 ,
2194: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2195: p_validate_commit IN VARCHAR2 := FND_API.G_FALSE,
2196: p_validation_string IN VARCHAR2,
2197: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2198: p_organize_tbl IN ORGANIZE_TBL_TYPE,
2199: p_ref_point IN VARCHAR2 := 'A', -- Possible values
2200: -- 'A'=After,'B'=Before,'S' = Subsection
2201: p_doc_type IN VARCHAR2,
2321: -- Standard Start of API savepoint
2322: SAVEPOINT g_organize_layout_GRP;
2323: -- Standard call to check for call compatibility.
2324:
2325: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2327: END IF;
2328: -- Initialize message list if p_init_msg_list is set to TRUE.
2329: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2322: SAVEPOINT g_organize_layout_GRP;
2323: -- Standard call to check for call compatibility.
2324:
2325: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2327: END IF;
2328: -- Initialize message list if p_init_msg_list is set to TRUE.
2329: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2330: FND_MSG_PUB.initialize;
2325: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2327: END IF;
2328: -- Initialize message list if p_init_msg_list is set to TRUE.
2329: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2330: FND_MSG_PUB.initialize;
2331: END IF;
2332:
2333: -- Initialize API return status to success
2330: FND_MSG_PUB.initialize;
2331: END IF;
2332:
2333: -- Initialize API return status to success
2334: x_return_status := FND_API.G_RET_STS_SUCCESS;
2335:
2336: IF FND_API.To_Boolean( p_validate_commit )
2337: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
2338: p_api_version => l_api_version,
2332:
2333: -- Initialize API return status to success
2334: x_return_status := FND_API.G_RET_STS_SUCCESS;
2335:
2336: IF FND_API.To_Boolean( p_validate_commit )
2337: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
2338: p_api_version => l_api_version,
2339: p_init_msg_list => FND_API.G_FALSE,
2340: p_doc_type => p_doc_type,
2333: -- Initialize API return status to success
2334: x_return_status := FND_API.G_RET_STS_SUCCESS;
2335:
2336: IF FND_API.To_Boolean( p_validate_commit )
2337: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
2338: p_api_version => l_api_version,
2339: p_init_msg_list => FND_API.G_FALSE,
2340: p_doc_type => p_doc_type,
2341: p_doc_id => p_doc_id,
2335:
2336: IF FND_API.To_Boolean( p_validate_commit )
2337: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
2338: p_api_version => l_api_version,
2339: p_init_msg_list => FND_API.G_FALSE,
2340: p_doc_type => p_doc_type,
2341: p_doc_id => p_doc_id,
2342: p_validation_string => p_validation_string,
2343: x_return_status => x_return_status,
2351: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2352: FND_LOG.STRING(G_PROC_LEVEL,
2353: G_PKG_NAME, '200: Issue with document header Record.Cannot commit' );
2354: END IF;
2355: RAISE FND_API.G_EXC_ERROR ;
2356: END IF;
2357:
2358: IF p_ref_point NOT IN ('A','B','S') THEN
2359: /*IF (l_debug = 'Y') THEN
2365: G_PKG_NAME, '800: Error: Ref point should be either A,B or S' );
2366: END IF;
2367:
2368: Okc_Api.Set_Message( G_FND_APP, 'OKC_WRONG_REF_POINT');
2369: RAISE FND_API.G_EXC_ERROR ;
2370:
2371: END IF;
2372:
2373: IF p_to_object_type = p_doc_type AND p_ref_point <>'S' THEN
2383: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2384: p_msg_name => 'OKC_WRONG_ITEM_LOCATION'
2385: );
2386:
2387: RAISE FND_API.G_EXC_ERROR ;
2388: END IF;
2389:
2390: IF p_to_object_type = 'ARTICLE' AND p_ref_point ='S' THEN
2391: /*IF (l_debug = 'Y') THEN
2400: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2401: p_msg_name => 'OKC_WRONG_ITEM_LOCATION1'
2402: );
2403:
2404: RAISE FND_API.G_EXC_ERROR ;
2405: END IF;
2406:
2407: l_organize_tbl := p_organize_tbl;
2408:
2420:
2421: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2422: p_msg_name => 'OKC_WRONG_SELECTION'
2423: );
2424: RAISE FND_API.G_EXC_ERROR ;
2425: END IF;
2426: -- Finding out those records whose parents are already in Table.
2427: -- These records will be deleted.If parents are moved there is no need to move children.
2428: IF p_organize_tbl(i).object_type='ARTICLE' THEN
2474: l_ref_is_set := TRUE;
2475: l_parent_scn_id := NULL;
2476:
2477: ELSE
2478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2479: END IF;
2480:
2481:
2482: IF NOT l_ref_is_set THEN
2502: l_ref_sequence := 0;
2503: ELSIF l_ref_count > 0 THEN
2504: l_ref_sequence := scn_child_tbl(l_ref_count).display_sequence;
2505: ELSE
2506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2507: END IF;
2508: ELSIF p_ref_point ='A' THEN
2509: IF l_ref_count > 0 THEN
2510: l_ref_sequence := scn_child_tbl(l_ref_count).display_sequence;
2508: ELSIF p_ref_point ='A' THEN
2509: IF l_ref_count > 0 THEN
2510: l_ref_sequence := scn_child_tbl(l_ref_count).display_sequence;
2511: ELSE
2512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2513: END IF;
2514: ELSE
2515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2516: END IF;
2511: ELSE
2512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2513: END IF;
2514: ELSE
2515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2516: END IF;
2517: l_ref_is_set := TRUE;
2518:
2519: ELSIF p_ref_point='S' THEN
2533: END IF;
2534: l_ref_is_set := TRUE;
2535:
2536: ELSE
2537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2538: END IF;
2539: ELSE
2540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2541: END IF;
2536: ELSE
2537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2538: END IF;
2539: ELSE
2540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2541: END IF;
2542:
2543: END IF;
2544:
2568: IF l_parent_scn_id IS NULL THEN
2569: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2570: p_msg_name => 'OKC_ART_MOVE_TO_DOC'
2571: );
2572: RAISE FND_API.G_EXC_ERROR ;
2573: END IF;
2574: l_ref_sequence := l_ref_sequence+10;
2575:
2576: OKC_K_ARTICLES_GRP.update_article(
2585: p_object_version_number => Null
2586: );
2587: --------------------------------------------
2588: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2590: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2591: RAISE FND_API.G_EXC_ERROR ;
2592: END IF;
2593: --------------------------------------------
2587: --------------------------------------------
2588: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2590: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2591: RAISE FND_API.G_EXC_ERROR ;
2592: END IF;
2593: --------------------------------------------
2594: ELSIF p_organize_tbl(i).object_type='SECTION' THEN
2595:
2615: p_object_version_number =>Null
2616: );
2617: --------------------------------------------
2618: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2620: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2621: RAISE FND_API.G_EXC_ERROR ;
2622: END IF;
2623:
2617: --------------------------------------------
2618: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2620: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2621: RAISE FND_API.G_EXC_ERROR ;
2622: END IF;
2623:
2624: END IF; -- IF p_organize_tbl(i).object_type='ARTICLE' THEN
2625:
2665: p_object_version_number => Null
2666: );
2667: --------------------------------------------
2668: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2670: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2671: RAISE FND_API.G_EXC_ERROR ;
2672: END IF;
2673: --------------------------------------------
2667: --------------------------------------------
2668: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2670: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2671: RAISE FND_API.G_EXC_ERROR ;
2672: END IF;
2673: --------------------------------------------
2674: ELSIF scn_child_tbl(k).object_type='SECTION' THEN
2675:
2693: p_object_version_number =>Null
2694: );
2695: --------------------------------------------
2696: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2698: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2699: RAISE FND_API.G_EXC_ERROR ;
2700: END IF;
2701:
2695: --------------------------------------------
2696: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2698: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2699: RAISE FND_API.G_EXC_ERROR ;
2700: END IF;
2701:
2702: END IF; -- IF scn_child_tbl(k).object_type='ARTICLE' THEN
2703: END IF;
2705: END LOOP;
2706: END IF;
2707:
2708: -- Standard check of p_commit
2709: IF FND_API.To_Boolean( p_commit ) THEN
2710: COMMIT WORK;
2711: END IF;
2712:
2713: -- Standard call to get message count and if count is 1, get message info.
2722: G_PKG_NAME, '1000: Leaving organize_layout' );
2723: END IF;
2724:
2725: EXCEPTION
2726: WHEN FND_API.G_EXC_ERROR THEN
2727: /*IF (l_debug = 'Y') THEN
2728: okc_debug.log('1100: Leaving organize_layout: OKC_API.G_EXCEPTION_ERROR Exception', 2);
2729: END IF;*/
2730:
2756: ROLLBACK TO g_organize_layout_GRP;
2757: x_return_status := G_RET_STS_ERROR ;
2758: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2759:
2760: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2761: /*IF (l_debug = 'Y') THEN
2762: okc_debug.log('1200: Leaving organize_layout: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2763: END IF;*/
2764:
2843:
2844: PROCEDURE merge_review_clauses(
2845: p_api_version IN NUMBER,
2846: p_init_msg_list IN VARCHAR2 ,
2847: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2848: p_validate_commit IN VARCHAR2 := FND_API.G_FALSE,
2849: p_validation_string IN VARCHAR2,
2850: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2851: p_merge_review_tbl IN MERGE_REVIEW_TBL_TYPE,
2844: PROCEDURE merge_review_clauses(
2845: p_api_version IN NUMBER,
2846: p_init_msg_list IN VARCHAR2 ,
2847: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2848: p_validate_commit IN VARCHAR2 := FND_API.G_FALSE,
2849: p_validation_string IN VARCHAR2,
2850: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2851: p_merge_review_tbl IN MERGE_REVIEW_TBL_TYPE,
2852: p_doc_type IN VARCHAR2,
2846: p_init_msg_list IN VARCHAR2 ,
2847: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2848: p_validate_commit IN VARCHAR2 := FND_API.G_FALSE,
2849: p_validation_string IN VARCHAR2,
2850: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2851: p_merge_review_tbl IN MERGE_REVIEW_TBL_TYPE,
2852: p_doc_type IN VARCHAR2,
2853: p_doc_id IN NUMBER,
2854: x_return_status OUT NOCOPY VARCHAR2,
2932: -- Standard Start of API savepoint
2933: SAVEPOINT g_merge_review_clauses_GRP;
2934: -- Standard call to check for call compatibility.
2935:
2936: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2938: END IF;
2939: -- Initialize message list if p_init_msg_list is set to TRUE.
2940: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2933: SAVEPOINT g_merge_review_clauses_GRP;
2934: -- Standard call to check for call compatibility.
2935:
2936: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2938: END IF;
2939: -- Initialize message list if p_init_msg_list is set to TRUE.
2940: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2941: FND_MSG_PUB.initialize;
2936: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2938: END IF;
2939: -- Initialize message list if p_init_msg_list is set to TRUE.
2940: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2941: FND_MSG_PUB.initialize;
2942: END IF;
2943:
2944: -- Initialize API return status to success
2941: FND_MSG_PUB.initialize;
2942: END IF;
2943:
2944: -- Initialize API return status to success
2945: x_return_status := FND_API.G_RET_STS_SUCCESS;
2946:
2947: IF FND_FUNCTION.TEST('OKC_TERMS_AUTHOR_STD','N') THEN
2948: l_user_access := 'STD_AUTHOR';
2949: IF FND_FUNCTION.TEST('OKC_TERMS_AUTHOR_NON_STD','N') THEN
2955: ELSE
2956: l_user_access := 'NO_ACCESS';
2957: END IF;
2958:
2959: IF FND_API.To_Boolean( p_validate_commit )
2960: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
2961: p_api_version => l_api_version,
2962: p_init_msg_list => FND_API.G_FALSE,
2963: p_doc_type => p_doc_type,
2956: l_user_access := 'NO_ACCESS';
2957: END IF;
2958:
2959: IF FND_API.To_Boolean( p_validate_commit )
2960: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
2961: p_api_version => l_api_version,
2962: p_init_msg_list => FND_API.G_FALSE,
2963: p_doc_type => p_doc_type,
2964: p_doc_id => p_doc_id,
2958:
2959: IF FND_API.To_Boolean( p_validate_commit )
2960: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
2961: p_api_version => l_api_version,
2962: p_init_msg_list => FND_API.G_FALSE,
2963: p_doc_type => p_doc_type,
2964: p_doc_id => p_doc_id,
2965: p_validation_string => p_validation_string,
2966: x_return_status => x_return_status,
2971: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
2972: FND_LOG.STRING(G_PROC_LEVEL,
2973: G_PKG_NAME, '200: Issue with document header Record.Cannot commit' );
2974: END IF;
2975: RAISE FND_API.G_EXC_ERROR ;
2976: END IF;
2977:
2978: /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2979: Process the records to update the first clause text with the clause text
3002: END IF;
3003: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3004: p_msg_name => 'OKC_WRONG_SELECTION'
3005: );
3006: RAISE FND_API.G_EXC_ERROR ;
3007: END IF;
3008:
3009: OPEN article_properties(p_merge_review_tbl(1).review_upld_terms_id);
3010: FETCH article_properties INTO
3021: END IF;
3022: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3023: p_msg_name => 'OKC_ARTICLE_IS_IBR'
3024: );
3025: RAISE FND_API.G_EXC_ERROR ;
3026: END IF;
3027:
3028: IF l_article_text_locked = 'Y' AND (l_user_access <> 'SUPER_USER') THEN
3029:
3032: G_PKG_NAME, '500: Article is Text Locked ' );
3033: END IF;
3034: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3035: p_msg_name => 'OKC_ARTICLE_IS_LOCK_TEXT');
3036: RAISE FND_API.G_EXC_ERROR ;
3037: END IF;
3038:
3039: FOR i IN 2 ..p_merge_review_tbl.LAST LOOP
3040: l_article_ibr := 'N';
3047: G_PKG_NAME, '500: Wrong Selection ' );
3048: END IF;
3049: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3050: p_msg_name => 'OKC_WRONG_SELECTION');
3051: RAISE FND_API.G_EXC_ERROR ;
3052: END IF;
3053: OPEN article_properties(p_merge_review_tbl(i).review_upld_terms_id);
3054: FETCH article_properties into l_article_ibr, l_article_mandatory, l_article_text_locked;
3055: CLOSE article_properties;
3063: END IF;
3064: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3065: p_msg_name => 'OKC_REVIEW_MERGE_MANDATORY'
3066: );
3067: RAISE FND_API.G_EXC_ERROR ;
3068: END IF;
3069:
3070: IF p_merge_review_tbl(i).object_type='ARTICLE' THEN
3071: OPEN l_get_article_text_csr(p_merge_review_tbl(i).review_upld_terms_id);
3106: p_new_parent_id => G_MISS_NUM
3107: );
3108: ----------------------------------------------------------------------
3109: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3111: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3112: RAISE FND_API.G_EXC_ERROR ;
3113: END IF;
3114: ----------------------------------------------------------------------
3108: ----------------------------------------------------------------------
3109: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3111: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3112: RAISE FND_API.G_EXC_ERROR ;
3113: END IF;
3114: ----------------------------------------------------------------------
3115:
3116: -- Added for Bug 5339759
3158: p_error_message_count => l_final_err_msg_count,
3159: p_warning_message_count => l_final_wrn_msg_count );
3160: ----------------------------------------------------------------------
3161: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3163: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3164: RAISE FND_API.G_EXC_ERROR ;
3165: END IF;
3166: ----------------------------------------------------------------------
3160: ----------------------------------------------------------------------
3161: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3163: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3164: RAISE FND_API.G_EXC_ERROR ;
3165: END IF;
3166: ----------------------------------------------------------------------
3167:
3168:
3186:
3187: END IF; -- IF p_merge_review_tbl.COUNT>0
3188:
3189: -- Standard check of p_commit
3190: IF FND_API.To_Boolean( p_commit ) THEN
3191: COMMIT WORK;
3192: END IF;
3193:
3194: -- Standard call to get message count and if count is 1, get message info.
3200: G_PKG_NAME, '1000: Leaving merge_review_clauses' );
3201: END IF;
3202:
3203: EXCEPTION
3204: WHEN FND_API.G_EXC_ERROR THEN
3205:
3206: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
3207: FND_LOG.STRING(G_EXCP_LEVEL,
3208: G_PKG_NAME, '1100: Leaving merge_review_clauses: OKC_API.G_EXCEPTION_ERROR Exception' );
3217: ROLLBACK TO g_merge_review_clauses_GRP;
3218: x_return_status := G_RET_STS_ERROR ;
3219: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3220:
3221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3222:
3223: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
3224: FND_LOG.STRING(G_EXCP_LEVEL,
3225: G_PKG_NAME, '1200: Leaving organize_layout: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception' );
3265:
3266: PROCEDURE sort_clauses(
3267: p_api_version IN NUMBER,
3268: p_init_msg_list IN VARCHAR2 ,
3269: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3270: p_validate_commit IN VARCHAR2 := FND_API.G_FALSE,
3271: p_validation_string IN VARCHAR2,
3272: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3273: p_doc_type IN VARCHAR2,
3266: PROCEDURE sort_clauses(
3267: p_api_version IN NUMBER,
3268: p_init_msg_list IN VARCHAR2 ,
3269: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3270: p_validate_commit IN VARCHAR2 := FND_API.G_FALSE,
3271: p_validation_string IN VARCHAR2,
3272: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3273: p_doc_type IN VARCHAR2,
3274: p_doc_id IN NUMBER,
3268: p_init_msg_list IN VARCHAR2 ,
3269: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3270: p_validate_commit IN VARCHAR2 := FND_API.G_FALSE,
3271: p_validation_string IN VARCHAR2,
3272: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3273: p_doc_type IN VARCHAR2,
3274: p_doc_id IN NUMBER,
3275: x_return_status OUT NOCOPY VARCHAR2,
3276: x_msg_count OUT NOCOPY NUMBER,
3321: -- Standard Start of API savepoint
3322: SAVEPOINT g_sort_clauses_GRP;
3323: -- Standard call to check for call compatibility.
3324:
3325: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3327: END IF;
3328: -- Initialize message list if p_init_msg_list is set to TRUE.
3329: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3322: SAVEPOINT g_sort_clauses_GRP;
3323: -- Standard call to check for call compatibility.
3324:
3325: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3327: END IF;
3328: -- Initialize message list if p_init_msg_list is set to TRUE.
3329: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3330: FND_MSG_PUB.initialize;
3325: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3327: END IF;
3328: -- Initialize message list if p_init_msg_list is set to TRUE.
3329: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3330: FND_MSG_PUB.initialize;
3331: END IF;
3332:
3333: -- Initialize API return status to success
3330: FND_MSG_PUB.initialize;
3331: END IF;
3332:
3333: -- Initialize API return status to success
3334: x_return_status := FND_API.G_RET_STS_SUCCESS;
3335:
3336: IF FND_API.To_Boolean( p_validate_commit )
3337: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
3338: p_api_version => l_api_version,
3332:
3333: -- Initialize API return status to success
3334: x_return_status := FND_API.G_RET_STS_SUCCESS;
3335:
3336: IF FND_API.To_Boolean( p_validate_commit )
3337: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
3338: p_api_version => l_api_version,
3339: p_init_msg_list => FND_API.G_FALSE,
3340: p_doc_type => p_doc_type,
3333: -- Initialize API return status to success
3334: x_return_status := FND_API.G_RET_STS_SUCCESS;
3335:
3336: IF FND_API.To_Boolean( p_validate_commit )
3337: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
3338: p_api_version => l_api_version,
3339: p_init_msg_list => FND_API.G_FALSE,
3340: p_doc_type => p_doc_type,
3341: p_doc_id => p_doc_id,
3335:
3336: IF FND_API.To_Boolean( p_validate_commit )
3337: AND NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
3338: p_api_version => l_api_version,
3339: p_init_msg_list => FND_API.G_FALSE,
3340: p_doc_type => p_doc_type,
3341: p_doc_id => p_doc_id,
3342: p_validation_string => p_validation_string,
3343: x_return_status => x_return_status,
3351: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
3352: FND_LOG.STRING(G_PROC_LEVEL,
3353: G_PKG_NAME, '200: Issue with document header Record.Cannot commit' );
3354: END IF;
3355: RAISE FND_API.G_EXC_ERROR ;
3356: END IF;
3357:
3358: OKC_CODE_HOOK.sort_clauses(p_doc_type => p_doc_type,
3359: p_doc_id => p_doc_id,
3384: );
3385: END LOOP;
3386: --------------------------------------------
3387: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3389: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3390: RAISE FND_API.G_EXC_ERROR ;
3391: END IF;
3392: -------------------------------------------
3386: --------------------------------------------
3387: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3389: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3390: RAISE FND_API.G_EXC_ERROR ;
3391: END IF;
3392: -------------------------------------------
3393:
3394:
3412: END IF;
3413:
3414: OKC_NUMBER_SCHEME_GRP.apply_numbering_scheme(
3415: p_api_version => p_api_version,
3416: p_init_msg_list => FND_API.G_FALSE,
3417: x_return_status => x_return_status,
3418: x_msg_count => x_msg_count,
3419: x_msg_data => x_msg_data,
3420: p_validate_commit => p_validate_commit,
3418: x_msg_count => x_msg_count,
3419: x_msg_data => x_msg_data,
3420: p_validate_commit => p_validate_commit,
3421: p_validation_string => p_validation_string,
3422: p_commit => FND_API.G_FALSE,
3423: p_doc_type => p_doc_type,
3424: p_doc_id => p_doc_id,
3425: p_num_scheme_id => l_num_scheme_id
3426: );
3440: END IF; --l_num_scheme_id is not 0
3441: END IF; -- call renumber automatically
3442:
3443:
3444: IF FND_API.To_Boolean( p_commit ) THEN
3445: COMMIT WORK;
3446: END IF;
3447:
3448: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN