110:
111: BEGIN
112: l_contract_source := 'NONE';
113: l_now := SYSDATE;
114: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
115: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered QA_Doc');
116: END IF;
117:
118: -- Standard Start of API savepoint
111: BEGIN
112: l_contract_source := 'NONE';
113: l_now := SYSDATE;
114: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
115: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered QA_Doc');
116: END IF;
117:
118: -- Standard Start of API savepoint
119: SAVEPOINT g_QA_Doc;
175: IF p_qa_mode='AMEND' THEN
176: --------------------------------------------
177: -- Calling API to mark any article amended if system variable used in that API has been changed
178: --------------------------------------------
179: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
180: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call API OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment ');
181: END IF;
182:
183: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
176: --------------------------------------------
177: -- Calling API to mark any article amended if system variable used in that API has been changed
178: --------------------------------------------
179: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
180: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call API OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment ');
181: END IF;
182:
183: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
184: p_api_version =>1,
201:
202: --------------------------------------------
203: -- Call internal QA_Doc and put result into PLSQL table and save it in DB
204: --------------------------------------------
205: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
206: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private QA_Doc and put result into PLSQL table and save it in DB');
207: END IF;
208:
209: OKC_TERMS_QA_PVT.QA_Doc(
202: --------------------------------------------
203: -- Call internal QA_Doc and put result into PLSQL table and save it in DB
204: --------------------------------------------
205: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
206: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private QA_Doc and put result into PLSQL table and save it in DB');
207: END IF;
208:
209: OKC_TERMS_QA_PVT.QA_Doc(
210: x_return_status => x_return_status,
245: ----------------------------------------------------------------------
246: -- QA Check for Lock Contract - to be run for p_doc_type <> 'TEMPLATE'
247: ----------------------------------------------------------------------
248: IF p_doc_type<>G_TMPL_DOC_TYPE AND l_contract_source IS NOT NULL THEN
249: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
250: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_lock_contract');
251: END IF;
252: OKC_TERMS_QA_PVT.Check_lock_contract(
253: p_qa_mode => p_qa_mode,
246: -- QA Check for Lock Contract - to be run for p_doc_type <> 'TEMPLATE'
247: ----------------------------------------------------------------------
248: IF p_doc_type<>G_TMPL_DOC_TYPE AND l_contract_source IS NOT NULL THEN
249: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
250: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_lock_contract');
251: END IF;
252: OKC_TERMS_QA_PVT.Check_lock_contract(
253: p_qa_mode => p_qa_mode,
254: p_doc_type => p_doc_type,
267: ----------------------------------------------------------------------
268: -- QA Check for Contract Admin - to be run for p_doc_type <> 'TEMPLATE'
269: ----------------------------------------------------------------------
270: IF p_doc_type<>G_TMPL_DOC_TYPE AND l_contract_source IS NOT NULL THEN
271: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
272: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_contract_admin');
273: END IF;
274: OKC_TERMS_QA_PVT.check_contract_admin(
275: p_qa_mode => p_qa_mode,
268: -- QA Check for Contract Admin - to be run for p_doc_type <> 'TEMPLATE'
269: ----------------------------------------------------------------------
270: IF p_doc_type<>G_TMPL_DOC_TYPE AND l_contract_source IS NOT NULL THEN
271: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
272: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_contract_admin');
273: END IF;
274: OKC_TERMS_QA_PVT.check_contract_admin(
275: p_qa_mode => p_qa_mode,
276: p_doc_type => p_doc_type,
304: )
305: THEN
306:
307:
308: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
309: 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');
310: END IF;
311:
312: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
305: THEN
306:
307:
308: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
309: 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');
310: END IF;
311:
312: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
313: p_api_version => 1,
334: -- Now insert into Temp table.
335: --------------------------------------------
336: -- Save result from PLSQL table into DB table
337: --------------------------------------------
338: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
339: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: Save result from PLSQL table into DB table');
340: END IF;
341:
342: x_qa_return_status := G_QA_STS_SUCCESS;
335: --------------------------------------------
336: -- Save result from PLSQL table into DB table
337: --------------------------------------------
338: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
339: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: Save result from PLSQL table into DB table');
340: END IF;
341:
342: x_qa_return_status := G_QA_STS_SUCCESS;
343:
385: END IF;
386:
387: -- Standard call to get message count and if count is 1, get message info.
388: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
389: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
390: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving QA_Doc');
391: END IF;
392:
393: EXCEPTION
386:
387: -- Standard call to get message count and if count is 1, get message info.
388: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
389: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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
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;
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 );
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;
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:
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;
407: x_return_status := G_RET_STS_UNEXP_ERROR ;
408: 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;
407: x_return_status := G_RET_STS_UNEXP_ERROR ;
408: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
409:
408: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
409:
410: WHEN OTHERS THEN
411: ROLLBACK TO g_QA_Doc;
412: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
413: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
414: END IF;
415:
416: x_return_status := G_RET_STS_UNEXP_ERROR ;
409:
410: WHEN OTHERS THEN
411: ROLLBACK TO g_QA_Doc;
412: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
413: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
414: END IF;
415:
416: x_return_status := G_RET_STS_UNEXP_ERROR ;
417: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
472: l_del_exists VARCHAR2 (1) :='N';
473:
474:
475: BEGIN
476: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
477: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Entered QA_Doc');
478: END IF;
479:
480: -- Standard Start of API savepoint
473:
474:
475: BEGIN
476: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
477: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Entered QA_Doc');
478: END IF;
479:
480: -- Standard Start of API savepoint
481: SAVEPOINT g_QA_Doc;
543: IF p_qa_mode='AMEND' THEN
544: --------------------------------------------
545: -- Calling API to mark any article amended if system variable used in that API has been changed
546: --------------------------------------------
547: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
548: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call API OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment ');
549: END IF;
550:
551: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
544: --------------------------------------------
545: -- Calling API to mark any article amended if system variable used in that API has been changed
546: --------------------------------------------
547: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
548: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call API OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment ');
549: END IF;
550:
551: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
552: p_api_version =>1,
568: END IF;
569: --------------------------------------------
570: -- Call internal QA_Doc and put result into PLSQL table
571: --------------------------------------------
572: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
573: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Call Private QA_Doc and put result into PLSQL table');
574: END IF;
575: OKC_TERMS_QA_PVT.QA_Doc(
576: x_return_status => x_return_status,
569: --------------------------------------------
570: -- Call internal QA_Doc and put result into PLSQL table
571: --------------------------------------------
572: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
573: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Call Private QA_Doc and put result into PLSQL table');
574: END IF;
575: OKC_TERMS_QA_PVT.QA_Doc(
576: x_return_status => x_return_status,
577:
615: ----------------------------------------------------------------------
616: -- QA Check for Lock Contract - to be run for p_doc_type <> 'TEMPLATE'
617: ----------------------------------------------------------------------
618: IF p_doc_type<>G_TMPL_DOC_TYPE AND l_contract_source IS NOT NULL THEN
619: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
620: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_lock_contract');
621: END IF;
622: OKC_TERMS_QA_PVT.Check_lock_contract(
623: p_qa_mode => p_qa_mode,
616: -- QA Check for Lock Contract - to be run for p_doc_type <> 'TEMPLATE'
617: ----------------------------------------------------------------------
618: IF p_doc_type<>G_TMPL_DOC_TYPE AND l_contract_source IS NOT NULL THEN
619: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
620: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_lock_contract');
621: END IF;
622: OKC_TERMS_QA_PVT.Check_lock_contract(
623: p_qa_mode => p_qa_mode,
624: p_doc_type => p_doc_type,
637: ----------------------------------------------------------------------
638: -- QA Check for Contract Admin - to be run for p_doc_type <> 'TEMPLATE'
639: ----------------------------------------------------------------------
640: IF p_doc_type<>G_TMPL_DOC_TYPE AND l_contract_source IS NOT NULL THEN
641: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
642: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_contract_admin');
643: END IF;
644:
645: IF l_clm_doc_flag = 'N' THEN
638: -- QA Check for Contract Admin - to be run for p_doc_type <> 'TEMPLATE'
639: ----------------------------------------------------------------------
640: IF p_doc_type<>G_TMPL_DOC_TYPE AND l_contract_source IS NOT NULL THEN
641: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
642: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_contract_admin');
643: END IF;
644:
645: IF l_clm_doc_flag = 'N' THEN
646: OKC_TERMS_QA_PVT.check_contract_admin(
670: )
671: THEN
672:
673:
674: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
675: 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');
676: END IF;
677:
678: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
671: THEN
672:
673:
674: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
675: 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');
676: END IF;
677:
678: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
679: p_api_version => 1,
720: END IF;
721:
722: -- Standard call to get message count and if count is 1, get message info.
723: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
724: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
725: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'900: Leaving QA_Doc');
726: END IF;
727: END IF; -- Repository Enhancement (For Validate Action)
728:
721:
722: -- Standard call to get message count and if count is 1, get message info.
723: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
724: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
725: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'900: Leaving QA_Doc');
726: END IF;
727: END IF; -- Repository Enhancement (For Validate Action)
728:
729:
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;
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 );
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;
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:
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;
744: x_return_status := G_RET_STS_UNEXP_ERROR ;
745: 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;
744: x_return_status := G_RET_STS_UNEXP_ERROR ;
745: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
746:
745: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
746:
747: WHEN OTHERS THEN
748: ROLLBACK TO g_QA_Doc;
749: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
750: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1200: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
751: END IF;
752:
753: x_return_status := G_RET_STS_UNEXP_ERROR ;
746:
747: WHEN OTHERS THEN
748: ROLLBACK TO g_QA_Doc;
749: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
750: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1200: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
751: END IF;
752:
753: x_return_status := G_RET_STS_UNEXP_ERROR ;
754: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
775: l_qa_return_status VARCHAR2(50);
776:
777: BEGIN
778:
779: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
780: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Entered '||l_api_name);
781: END IF;
782: x_return_status := G_RET_STS_SUCCESS;
783:
776:
777: BEGIN
778:
779: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
780: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Entered '||l_api_name);
781: END IF;
782: x_return_status := G_RET_STS_SUCCESS;
783:
784: OKC_TERMS_UTIL_GRP.Get_Contract_Document_Type_ID(
827: END IF;
828: x_return_status := l_qa_return_status;
829:
830: -- Standard call to get message count and if count is 1, get message info.
831: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) 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
828: x_return_status := l_qa_return_status;
829:
830: -- Standard call to get message count and if count is 1, get message info.
831: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) 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
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;
841: x_return_status := G_QA_STS_ERROR ;
842:
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;
841: x_return_status := G_QA_STS_ERROR ;
842:
843: WHEN OTHERS THEN
841: x_return_status := G_QA_STS_ERROR ;
842:
843: WHEN OTHERS THEN
844: ROLLBACK TO g_QA_Doc;
845: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
846: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1200: Leaving '||l_api_name||' because of EXCEPTION: '||sqlerrm);
847: END IF;
848:
849: x_return_status := G_QA_STS_ERROR ;
842:
843: WHEN OTHERS THEN
844: ROLLBACK TO g_QA_Doc;
845: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
846: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1200: Leaving '||l_api_name||' because of EXCEPTION: '||sqlerrm);
847: END IF;
848:
849: x_return_status := G_QA_STS_ERROR ;
850: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
885: l_warning_found Boolean := FALSE;
886:
887: BEGIN
888:
889: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
890: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered QA_Doc - OVERLOADED ONE');
891: END IF;
892:
893: -- Standard Start of API savepoint
886:
887: BEGIN
888:
889: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
890: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered QA_Doc - OVERLOADED ONE');
891: END IF;
892:
893: -- Standard Start of API savepoint
894: SAVEPOINT g_QA_Doc;
909:
910: --------------------------------------------
911: -- Call internal QA_Doc and put result into PLSQL table
912: --------------------------------------------
913: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
914: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Call Private QA_Doc and put result into PLSQL table');
915: END IF;
916:
917: QA_Doc(
910: --------------------------------------------
911: -- Call internal QA_Doc and put result into PLSQL table
912: --------------------------------------------
913: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
914: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Call Private QA_Doc and put result into PLSQL table');
915: END IF;
916:
917: QA_Doc(
918: p_api_version => l_api_version,
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 (
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,
982: END IF;
983:
984: -- Standard call to get message count and if count is 1, get message info.
985: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
986: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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
983:
984: -- Standard call to get message count and if count is 1, get message info.
985: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
986: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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
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;
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 );
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;
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:
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;
1004: x_return_status := G_RET_STS_UNEXP_ERROR ;
1005: 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;
1004: x_return_status := G_RET_STS_UNEXP_ERROR ;
1005: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1006:
1005: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1006:
1007: WHEN OTHERS THEN
1008: ROLLBACK TO g_QA_Doc;
1009: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1010: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
1011: END IF;
1012:
1013: x_return_status := G_RET_STS_UNEXP_ERROR ;
1006:
1007: WHEN OTHERS THEN
1008: ROLLBACK TO g_QA_Doc;
1009: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1010: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
1011: END IF;
1012:
1013: x_return_status := G_RET_STS_UNEXP_ERROR ;
1014: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN