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';
118: -- Standard Start of API savepoint
119: SAVEPOINT g_QA_Doc;
120:
121: -- Standard call to check for call compatibility.
122: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124: END IF;
125:
126: -- Initialize message list if p_init_msg_list is set to TRUE.
119: SAVEPOINT g_QA_Doc;
120:
121: -- Standard call to check for call compatibility.
122: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124: END IF;
125:
126: -- Initialize message list if p_init_msg_list is set to TRUE.
127: IF FND_API.to_Boolean( p_init_msg_list ) THEN
123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124: END IF;
125:
126: -- Initialize message list if p_init_msg_list is set to TRUE.
127: IF FND_API.to_Boolean( p_init_msg_list ) THEN
128: FND_MSG_PUB.initialize;
129: END IF;
130: -- Initialize API return status to success
131: x_return_status := G_RET_STS_SUCCESS;
136: p_document_type => p_doc_type,
137: p_document_id => p_doc_id
138: );
139: IF (l_contract_source = 'E') THEN
140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
141: END IF;
142: END IF;
143:
144: --Added for 10+ word integration
161: );
162:
163: --------------------------------------------
164: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
166: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
167: RAISE FND_API.G_EXC_ERROR ;
168: END IF;
169: --------------------------------------------
163: --------------------------------------------
164: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
166: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
167: RAISE FND_API.G_EXC_ERROR ;
168: END IF;
169: --------------------------------------------
170:
171: ELSIF (l_contract_source = 'STRUCTURED' OR p_doc_type = G_TMPL_QA_TYPE) THEN
181: END IF;
182:
183: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
184: p_api_version =>1,
185: p_init_msg_list => FND_API.G_FALSE,
186: p_commit => FND_API.G_TRUE,
187: p_doc_type => p_doc_type,
188: p_doc_id => p_doc_id,
189: x_return_status => x_return_status,
182:
183: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
184: p_api_version =>1,
185: p_init_msg_list => FND_API.G_FALSE,
186: p_commit => FND_API.G_TRUE,
187: p_doc_type => p_doc_type,
188: p_doc_id => p_doc_id,
189: x_return_status => x_return_status,
190: x_msg_count => x_msg_count,
191: x_msg_data => x_msg_data
192: );
193: --------------------------------------------
194: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
196: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
197: RAISE FND_API.G_EXC_ERROR ;
198: END IF;
199: --------------------------------------------
193: --------------------------------------------
194: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
196: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
197: RAISE FND_API.G_EXC_ERROR ;
198: END IF;
199: --------------------------------------------
200: END IF;
201:
222: p_run_expert_flag => p_run_expert_flag
223: );
224: --------------------------------------------
225: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
227: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
228: RAISE FND_API.G_EXC_ERROR ;
229: END IF;
230: --------------------------------------------
224: --------------------------------------------
225: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
227: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
228: RAISE FND_API.G_EXC_ERROR ;
229: END IF;
230: --------------------------------------------
231:
232: ELSE --l_contract_source = NULL
257: x_qa_return_status => x_qa_return_status,
258: x_return_status => x_return_status);
259:
260: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
262: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
263: RAISE FND_API.G_EXC_ERROR ;
264: END IF;
265: END IF;
259:
260: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
262: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
263: RAISE FND_API.G_EXC_ERROR ;
264: END IF;
265: END IF;
266:
267: ----------------------------------------------------------------------
279: x_qa_return_status => x_qa_return_status,
280: x_return_status => x_return_status
281: );
282: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
284: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
285: RAISE FND_API.G_EXC_ERROR ;
286: END IF;
287: END IF;
281: );
282: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
284: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
285: RAISE FND_API.G_EXC_ERROR ;
286: END IF;
287: END IF;
288:
289:
310: END IF;
311:
312: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
313: p_api_version => 1,
314: p_init_msg_list => FND_API.G_FALSE,
315: p_doc_type => p_doc_type,
316: p_doc_id => p_doc_id,
317: p_mode => p_qa_mode,
318: p_bus_doc_date_events_tbl => l_bus_doc_date_events_tbl,
321: x_msg_count => x_msg_count,
322: x_return_status => x_return_status,
323: x_qa_return_status => x_qa_return_status);
324: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
326: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
327: RAISE FND_API.G_EXC_ERROR ;
328: END IF;
329:
323: x_qa_return_status => x_qa_return_status);
324: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
326: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
327: RAISE FND_API.G_EXC_ERROR ;
328: END IF;
329:
330: END IF;
331:
373: p_qa_result_tbl => l_qa_result_tbl,
374: x_sequence_id => x_sequence_id
375: );
376: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
378: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
379: RAISE FND_API.G_EXC_ERROR ;
380: END IF;
381:
375: );
376: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
378: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
379: RAISE FND_API.G_EXC_ERROR ;
380: END IF;
381:
382: -- do a commit only if p_commit = 'T' (default value)
383: IF FND_API.To_Boolean( p_commit ) THEN
379: RAISE FND_API.G_EXC_ERROR ;
380: END IF;
381:
382: -- do a commit only if p_commit = 'T' (default value)
383: IF FND_API.To_Boolean( p_commit ) THEN
384: COMMIT WORK;
385: END IF;
386:
387: -- Standard call to get message count and if count is 1, get message info.
390: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving QA_Doc');
391: END IF;
392:
393: EXCEPTION
394: WHEN FND_API.G_EXC_ERROR THEN
395: ROLLBACK TO g_QA_Doc;
396: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
397: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving QA_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
398: END IF;
398: END IF;
399: x_return_status := G_RET_STS_ERROR ;
400: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
401:
402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
403: ROLLBACK TO g_QA_Doc;
404: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
405: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving QA_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
406: END IF;
480: -- Standard Start of API savepoint
481: SAVEPOINT g_QA_Doc;
482:
483: -- Standard call to check for call compatibility.
484: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
486: END IF;
487:
488: -- Initialize message list if p_init_msg_list is set to TRUE.
481: SAVEPOINT g_QA_Doc;
482:
483: -- Standard call to check for call compatibility.
484: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
486: END IF;
487:
488: -- Initialize message list if p_init_msg_list is set to TRUE.
489: IF FND_API.to_Boolean( p_init_msg_list ) THEN
485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
486: END IF;
487:
488: -- Initialize message list if p_init_msg_list is set to TRUE.
489: IF FND_API.to_Boolean( p_init_msg_list ) THEN
490: FND_MSG_PUB.initialize;
491: END IF;
492: -- Initialize API return status to success
493: x_return_status := G_RET_STS_SUCCESS;
503: p_document_type => p_doc_type,
504: p_document_id => p_doc_id
505: );
506: IF (l_contract_source = 'E') THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
508: END IF;
509: END IF;
510:
511: IF l_contract_source = 'ATTACHED' THEN
528:
529:
530: --------------------------------------------
531: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
533: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
534: RAISE FND_API.G_EXC_ERROR ;
535: END IF;
536: --------------------------------------------
530: --------------------------------------------
531: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
533: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
534: RAISE FND_API.G_EXC_ERROR ;
535: END IF;
536: --------------------------------------------
537:
538: ELSIF (l_contract_source = 'STRUCTURED' OR p_doc_type = G_TMPL_QA_TYPE) THEN
549: END IF;
550:
551: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
552: p_api_version =>1,
553: p_init_msg_list => FND_API.G_FALSE,
554: p_commit => FND_API.G_TRUE,
555: p_doc_type => p_doc_type,
556: p_doc_id => p_doc_id,
557: x_return_status => x_return_status,
550:
551: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
552: p_api_version =>1,
553: p_init_msg_list => FND_API.G_FALSE,
554: p_commit => FND_API.G_TRUE,
555: p_doc_type => p_doc_type,
556: p_doc_id => p_doc_id,
557: x_return_status => x_return_status,
558: x_msg_count => x_msg_count,
559: x_msg_data => x_msg_data
560: );
561: --------------------------------------------
562: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
563: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
564: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
565: RAISE FND_API.G_EXC_ERROR ;
566: END IF;
567: --------------------------------------------
561: --------------------------------------------
562: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
563: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
564: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
565: RAISE FND_API.G_EXC_ERROR ;
566: END IF;
567: --------------------------------------------
568: END IF;
569: --------------------------------------------
588: p_run_expert_flag => p_run_expert_flag
589: );
590: --------------------------------------------
591: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
593: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
594: RAISE FND_API.G_EXC_ERROR ;
595: END IF;
596: --------------------------------------------
590: --------------------------------------------
591: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
593: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
594: RAISE FND_API.G_EXC_ERROR ;
595: END IF;
596: --------------------------------------------
597:
598: ELSE --l_contract_source = NULL
627: x_qa_return_status => x_qa_return_status,
628: x_return_status => x_return_status);
629:
630: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
632: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
633: RAISE FND_API.G_EXC_ERROR ;
634: END IF;
635: END IF;
629:
630: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
632: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
633: RAISE FND_API.G_EXC_ERROR ;
634: END IF;
635: END IF;
636:
637: ----------------------------------------------------------------------
652: x_return_status => x_return_status
653: );
654: END IF;
655: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
657: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
658: RAISE FND_API.G_EXC_ERROR ;
659: END IF;
660: END IF;
654: END IF;
655: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
657: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
658: RAISE FND_API.G_EXC_ERROR ;
659: END IF;
660: END IF;
661: OPEN l_get_template_id;
662: FETCH l_get_template_id INTO l_template_id;
676: END IF;
677:
678: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
679: p_api_version => 1,
680: p_init_msg_list => FND_API.G_FALSE,
681: p_doc_type => p_doc_type,
682: p_doc_id => p_doc_id,
683: p_mode => p_qa_mode,
684: p_bus_doc_date_events_tbl => l_bus_doc_date_events_tbl,
687: x_msg_count => x_msg_count,
688: x_return_status => x_return_status,
689: x_qa_return_status => x_qa_return_status);
690: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
692: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
693: RAISE FND_API.G_EXC_ERROR ;
694: END IF;
695:
689: x_qa_return_status => x_qa_return_status);
690: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
692: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
693: RAISE FND_API.G_EXC_ERROR ;
694: END IF;
695:
696: END IF;
697:
727: END IF; -- Repository Enhancement (For Validate Action)
728:
729:
730: EXCEPTION
731: WHEN FND_API.G_EXC_ERROR THEN
732: ROLLBACK TO g_QA_Doc;
733: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
734: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving QA_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
735: END IF;
735: END IF;
736: x_return_status := G_RET_STS_ERROR ;
737: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
738:
739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
740: ROLLBACK TO g_QA_Doc;
741: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
742: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1100: Leaving QA_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
743: END IF;
790: x_doc_type => l_doc_type,
791: x_doc_id => l_doc_id
792: );
793: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
794: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
795: END IF;
796:
797: QA_Doc(
798: p_api_version => l_api_version,
807: x_qa_result_tbl => l_qa_result_tbl,
808: x_qa_return_status => l_qa_return_status
809: );
810: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
812: END IF;
813:
814:
815: IF l_qa_return_status = G_QA_STS_SUCCESS THEN
832: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'500: Leaving '||l_api_name);
833: END IF;
834:
835: EXCEPTION
836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
837: ROLLBACK TO g_QA_Doc;
838: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
839: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1100: Leaving '||l_api_name||' : G_EXCEPTION_UNEXPECTED_ERROR Exception');
840: END IF;
893: -- Standard Start of API savepoint
894: SAVEPOINT g_QA_Doc;
895:
896: -- Standard call to check for call compatibility.
897: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
899: END IF;
900:
901: -- Initialize message list if p_init_msg_list is set to TRUE.
894: SAVEPOINT g_QA_Doc;
895:
896: -- Standard call to check for call compatibility.
897: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
899: END IF;
900:
901: -- Initialize message list if p_init_msg_list is set to TRUE.
902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
899: END IF;
900:
901: -- Initialize message list if p_init_msg_list is set to TRUE.
902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
903: FND_MSG_PUB.initialize;
904: END IF;
905:
906: -- Initialize API return status to success
930: p_qa_terms_only => 'Y',
931: p_run_expert_flag => p_run_expert_flag
932: );
933: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
935: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
936: RAISE FND_API.G_EXC_ERROR ;
937: END IF;
938:
932: );
933: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
935: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
936: RAISE FND_API.G_EXC_ERROR ;
937: END IF;
938:
939: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
940: 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');
941: END IF;
942:
943: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
944: p_api_version => 1,
945: p_init_msg_list => FND_API.G_FALSE,
946: p_doc_type => p_doc_type,
947: p_doc_id => p_doc_id,
948: p_mode => p_qa_mode,
949: p_bus_doc_date_events_tbl => p_bus_doc_date_events_tbl,
952: x_msg_count => x_msg_count,
953: x_return_status => x_return_status,
954: x_qa_return_status => x_qa_return_status);
955: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
957: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
958: RAISE FND_API.G_EXC_ERROR ;
959: END IF;
960:
954: x_qa_return_status => x_qa_return_status);
955: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
957: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
958: RAISE FND_API.G_EXC_ERROR ;
959: END IF;
960:
961: IF x_qa_result_tbl.COUNT > 0 THEN
962: FOR i in x_qa_result_tbl.FIRST..x_qa_result_tbl.LAST LOOP
987: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving QA_Doc - OVERLOADED ONE ');
988: END IF;
989:
990: EXCEPTION
991: WHEN FND_API.G_EXC_ERROR THEN
992: ROLLBACK TO g_QA_Doc;
993: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
994: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving QA_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
995: END IF;
995: END IF;
996: x_return_status := G_RET_STS_ERROR ;
997: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
998:
999: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1000: ROLLBACK TO g_QA_Doc;
1001: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1002: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving QA_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1003: END IF;