23: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
24: ------------------------------------------------------------------------------
25: -- GLOBAL CONSTANTS
26: ------------------------------------------------------------------------------
27: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
28: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
29:
30: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
31: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
24: ------------------------------------------------------------------------------
25: -- GLOBAL CONSTANTS
26: ------------------------------------------------------------------------------
27: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
28: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
29:
30: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
31: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
32: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
26: ------------------------------------------------------------------------------
27: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
28: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
29:
30: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
31: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
32: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
33:
34: G_QA_SUCCESS CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_QA_SUCCESS';
27: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
28: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
29:
30: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
31: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
32: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
33:
34: G_QA_SUCCESS CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_QA_SUCCESS';
35: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
28: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
29:
30: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
31: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
32: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
33:
34: G_QA_SUCCESS CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_QA_SUCCESS';
35: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
36: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
108: -- Standard Start of API savepoint
109: SAVEPOINT g_QA_Doc;
110:
111: -- Standard call to check for call compatibility.
112: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114: END IF;
115:
116: -- Initialize message list if p_init_msg_list is set to TRUE.
109: SAVEPOINT g_QA_Doc;
110:
111: -- Standard call to check for call compatibility.
112: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114: END IF;
115:
116: -- Initialize message list if p_init_msg_list is set to TRUE.
117: IF FND_API.to_Boolean( p_init_msg_list ) THEN
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114: END IF;
115:
116: -- Initialize message list if p_init_msg_list is set to TRUE.
117: IF FND_API.to_Boolean( p_init_msg_list ) THEN
118: FND_MSG_PUB.initialize;
119: END IF;
120: -- Initialize API return status to success
121: x_return_status := G_RET_STS_SUCCESS;
126: p_document_type => p_doc_type,
127: p_document_id => p_doc_id
128: );
129: IF (l_contract_source = 'E') THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
131: END IF;
132: END IF;
133:
134: --Added for 10+ word integration
151: );
152:
153: --------------------------------------------
154: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
156: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
157: RAISE FND_API.G_EXC_ERROR ;
158: END IF;
159: --------------------------------------------
153: --------------------------------------------
154: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
156: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
157: RAISE FND_API.G_EXC_ERROR ;
158: END IF;
159: --------------------------------------------
160:
161: ELSIF (l_contract_source = 'STRUCTURED' OR p_doc_type = G_TMPL_QA_TYPE) THEN
171: END IF;
172:
173: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
174: p_api_version =>1,
175: p_init_msg_list => FND_API.G_FALSE,
176: p_commit => FND_API.G_TRUE,
177: p_doc_type => p_doc_type,
178: p_doc_id => p_doc_id,
179: x_return_status => x_return_status,
172:
173: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
174: p_api_version =>1,
175: p_init_msg_list => FND_API.G_FALSE,
176: p_commit => FND_API.G_TRUE,
177: p_doc_type => p_doc_type,
178: p_doc_id => p_doc_id,
179: x_return_status => x_return_status,
180: x_msg_count => x_msg_count,
181: x_msg_data => x_msg_data
182: );
183: --------------------------------------------
184: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
186: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
187: RAISE FND_API.G_EXC_ERROR ;
188: END IF;
189: --------------------------------------------
183: --------------------------------------------
184: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
186: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
187: RAISE FND_API.G_EXC_ERROR ;
188: END IF;
189: --------------------------------------------
190: END IF;
191:
212: p_run_expert_flag => p_run_expert_flag
213: );
214: --------------------------------------------
215: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
217: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
218: RAISE FND_API.G_EXC_ERROR ;
219: END IF;
220: --------------------------------------------
214: --------------------------------------------
215: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
217: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
218: RAISE FND_API.G_EXC_ERROR ;
219: END IF;
220: --------------------------------------------
221:
222: ELSE --l_contract_source = NULL
241: x_qa_return_status => x_qa_return_status,
242: x_return_status => x_return_status);
243:
244: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
246: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
247: RAISE FND_API.G_EXC_ERROR ;
248: END IF;
249: END IF;
243:
244: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
246: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
247: RAISE FND_API.G_EXC_ERROR ;
248: END IF;
249: END IF;
250:
251: ----------------------------------------------------------------------
263: x_qa_return_status => x_qa_return_status,
264: x_return_status => x_return_status
265: );
266: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
268: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
269: RAISE FND_API.G_EXC_ERROR ;
270: END IF;
271: END IF;
265: );
266: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
268: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
269: RAISE FND_API.G_EXC_ERROR ;
270: END IF;
271: END IF;
272:
273:
286: END IF;
287:
288: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
289: p_api_version => 1,
290: p_init_msg_list => FND_API.G_FALSE,
291: p_doc_type => p_doc_type,
292: p_doc_id => p_doc_id,
293: p_mode => p_qa_mode,
294: p_bus_doc_date_events_tbl => l_bus_doc_date_events_tbl,
297: x_msg_count => x_msg_count,
298: x_return_status => x_return_status,
299: x_qa_return_status => x_qa_return_status);
300: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
302: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
303: RAISE FND_API.G_EXC_ERROR ;
304: END IF;
305:
299: x_qa_return_status => x_qa_return_status);
300: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
302: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
303: RAISE FND_API.G_EXC_ERROR ;
304: END IF;
305:
306: END IF;
307:
349: p_qa_result_tbl => l_qa_result_tbl,
350: x_sequence_id => x_sequence_id
351: );
352: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
354: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
355: RAISE FND_API.G_EXC_ERROR ;
356: END IF;
357:
351: );
352: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
354: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
355: RAISE FND_API.G_EXC_ERROR ;
356: END IF;
357:
358: -- do a commit only if p_commit = 'T' (default value)
359: IF FND_API.To_Boolean( p_commit ) THEN
355: RAISE FND_API.G_EXC_ERROR ;
356: END IF;
357:
358: -- do a commit only if p_commit = 'T' (default value)
359: IF FND_API.To_Boolean( p_commit ) THEN
360: COMMIT WORK;
361: END IF;
362:
363: -- Standard call to get message count and if count is 1, get message info.
366: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving QA_Doc');
367: END IF;
368:
369: EXCEPTION
370: WHEN FND_API.G_EXC_ERROR THEN
371: ROLLBACK TO g_QA_Doc;
372: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
373: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving QA_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
374: END IF;
374: END IF;
375: x_return_status := G_RET_STS_ERROR ;
376: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
377:
378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
379: ROLLBACK TO g_QA_Doc;
380: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
381: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving QA_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
382: END IF;
444: -- Standard Start of API savepoint
445: SAVEPOINT g_QA_Doc;
446:
447: -- Standard call to check for call compatibility.
448: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
450: END IF;
451:
452: -- Initialize message list if p_init_msg_list is set to TRUE.
445: SAVEPOINT g_QA_Doc;
446:
447: -- Standard call to check for call compatibility.
448: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
450: END IF;
451:
452: -- Initialize message list if p_init_msg_list is set to TRUE.
453: IF FND_API.to_Boolean( p_init_msg_list ) THEN
449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
450: END IF;
451:
452: -- Initialize message list if p_init_msg_list is set to TRUE.
453: IF FND_API.to_Boolean( p_init_msg_list ) THEN
454: FND_MSG_PUB.initialize;
455: END IF;
456: -- Initialize API return status to success
457: x_return_status := G_RET_STS_SUCCESS;
463: p_document_type => p_doc_type,
464: p_document_id => p_doc_id
465: );
466: IF (l_contract_source = 'E') THEN
467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
468: END IF;
469: END IF;
470:
471: IF l_contract_source = 'ATTACHED' THEN
488:
489:
490: --------------------------------------------
491: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
493: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
494: RAISE FND_API.G_EXC_ERROR ;
495: END IF;
496: --------------------------------------------
490: --------------------------------------------
491: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
493: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
494: RAISE FND_API.G_EXC_ERROR ;
495: END IF;
496: --------------------------------------------
497:
498: ELSIF (l_contract_source = 'STRUCTURED' OR p_doc_type = G_TMPL_QA_TYPE) THEN
509: END IF;
510:
511: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
512: p_api_version =>1,
513: p_init_msg_list => FND_API.G_FALSE,
514: p_commit => FND_API.G_TRUE,
515: p_doc_type => p_doc_type,
516: p_doc_id => p_doc_id,
517: x_return_status => x_return_status,
510:
511: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
512: p_api_version =>1,
513: p_init_msg_list => FND_API.G_FALSE,
514: p_commit => FND_API.G_TRUE,
515: p_doc_type => p_doc_type,
516: p_doc_id => p_doc_id,
517: x_return_status => x_return_status,
518: x_msg_count => x_msg_count,
519: x_msg_data => x_msg_data
520: );
521: --------------------------------------------
522: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
524: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
525: RAISE FND_API.G_EXC_ERROR ;
526: END IF;
527: --------------------------------------------
521: --------------------------------------------
522: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
524: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
525: RAISE FND_API.G_EXC_ERROR ;
526: END IF;
527: --------------------------------------------
528: END IF;
529: --------------------------------------------
548: p_run_expert_flag => p_run_expert_flag
549: );
550: --------------------------------------------
551: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
553: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
554: RAISE FND_API.G_EXC_ERROR ;
555: END IF;
556: --------------------------------------------
550: --------------------------------------------
551: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
553: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
554: RAISE FND_API.G_EXC_ERROR ;
555: END IF;
556: --------------------------------------------
557:
558: ELSE --l_contract_source = NULL
581: x_qa_return_status => x_qa_return_status,
582: x_return_status => x_return_status);
583:
584: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
586: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
587: RAISE FND_API.G_EXC_ERROR ;
588: END IF;
589: END IF;
583:
584: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
586: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
587: RAISE FND_API.G_EXC_ERROR ;
588: END IF;
589: END IF;
590:
591: ----------------------------------------------------------------------
603: x_qa_return_status => x_qa_return_status,
604: x_return_status => x_return_status
605: );
606: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
608: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
609: RAISE FND_API.G_EXC_ERROR ;
610: END IF;
611: END IF;
605: );
606: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
608: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
609: RAISE FND_API.G_EXC_ERROR ;
610: END IF;
611: END IF;
612: OPEN l_get_template_id;
613: FETCH l_get_template_id INTO l_template_id;
624: END IF;
625:
626: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
627: p_api_version => 1,
628: p_init_msg_list => FND_API.G_FALSE,
629: p_doc_type => p_doc_type,
630: p_doc_id => p_doc_id,
631: p_mode => p_qa_mode,
632: p_bus_doc_date_events_tbl => l_bus_doc_date_events_tbl,
635: x_msg_count => x_msg_count,
636: x_return_status => x_return_status,
637: x_qa_return_status => x_qa_return_status);
638: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
640: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
641: RAISE FND_API.G_EXC_ERROR ;
642: END IF;
643:
637: x_qa_return_status => x_qa_return_status);
638: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
640: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
641: RAISE FND_API.G_EXC_ERROR ;
642: END IF;
643:
644: END IF;
645:
675: END IF; -- Repository Enhancement (For Validate Action)
676:
677:
678: EXCEPTION
679: WHEN FND_API.G_EXC_ERROR THEN
680: ROLLBACK TO g_QA_Doc;
681: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
682: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving QA_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
683: END IF;
683: END IF;
684: x_return_status := G_RET_STS_ERROR ;
685: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
686:
687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
688: ROLLBACK TO g_QA_Doc;
689: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1100: Leaving QA_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
691: END IF;
738: x_doc_type => l_doc_type,
739: x_doc_id => l_doc_id
740: );
741: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
743: END IF;
744:
745: QA_Doc(
746: p_api_version => l_api_version,
755: x_qa_result_tbl => l_qa_result_tbl,
756: x_qa_return_status => l_qa_return_status
757: );
758: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
760: END IF;
761:
762:
763: IF l_qa_return_status = G_QA_STS_SUCCESS THEN
780: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'500: Leaving '||l_api_name);
781: END IF;
782:
783: EXCEPTION
784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
785: ROLLBACK TO g_QA_Doc;
786: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
787: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1100: Leaving '||l_api_name||' : G_EXCEPTION_UNEXPECTED_ERROR Exception');
788: END IF;
841: -- Standard Start of API savepoint
842: SAVEPOINT g_QA_Doc;
843:
844: -- Standard call to check for call compatibility.
845: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848:
849: -- Initialize message list if p_init_msg_list is set to TRUE.
842: SAVEPOINT g_QA_Doc;
843:
844: -- Standard call to check for call compatibility.
845: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848:
849: -- Initialize message list if p_init_msg_list is set to TRUE.
850: IF FND_API.to_Boolean( p_init_msg_list ) THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848:
849: -- Initialize message list if p_init_msg_list is set to TRUE.
850: IF FND_API.to_Boolean( p_init_msg_list ) THEN
851: FND_MSG_PUB.initialize;
852: END IF;
853:
854: -- Initialize API return status to success
878: p_qa_terms_only => 'Y',
879: p_run_expert_flag => p_run_expert_flag
880: );
881: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
883: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
884: RAISE FND_API.G_EXC_ERROR ;
885: END IF;
886:
880: );
881: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
883: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
884: RAISE FND_API.G_EXC_ERROR ;
885: END IF;
886:
887: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
888: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'201: Call Private QA_Doc for deilverables and add result into PLSQL table and save it in DB');
889: END IF;
890:
891: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
892: p_api_version => 1,
893: p_init_msg_list => FND_API.G_FALSE,
894: p_doc_type => p_doc_type,
895: p_doc_id => p_doc_id,
896: p_mode => p_qa_mode,
897: p_bus_doc_date_events_tbl => p_bus_doc_date_events_tbl,
900: x_msg_count => x_msg_count,
901: x_return_status => x_return_status,
902: x_qa_return_status => x_qa_return_status);
903: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
905: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
906: RAISE FND_API.G_EXC_ERROR ;
907: END IF;
908:
902: x_qa_return_status => x_qa_return_status);
903: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
905: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
906: RAISE FND_API.G_EXC_ERROR ;
907: END IF;
908:
909: IF x_qa_result_tbl.COUNT > 0 THEN
910: FOR i in x_qa_result_tbl.FIRST..x_qa_result_tbl.LAST LOOP
935: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving QA_Doc - OVERLOADED ONE ');
936: END IF;
937:
938: EXCEPTION
939: WHEN FND_API.G_EXC_ERROR THEN
940: ROLLBACK TO g_QA_Doc;
941: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
942: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving QA_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
943: END IF;
943: END IF;
944: x_return_status := G_RET_STS_ERROR ;
945: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
946:
947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
948: ROLLBACK TO g_QA_Doc;
949: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
950: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving QA_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
951: END IF;