100:
101: BEGIN
102: l_contract_source := 'NONE';
103: l_now := SYSDATE;
104: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
105: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered QA_Doc');
106: END IF;
107:
108: -- Standard Start of API savepoint
101: BEGIN
102: l_contract_source := 'NONE';
103: l_now := SYSDATE;
104: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
105: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered QA_Doc');
106: END IF;
107:
108: -- Standard Start of API savepoint
109: SAVEPOINT g_QA_Doc;
165: IF p_qa_mode='AMEND' THEN
166: --------------------------------------------
167: -- Calling API to mark any article amended if system variable used in that API has been changed
168: --------------------------------------------
169: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
170: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call API OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment ');
171: END IF;
172:
173: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
166: --------------------------------------------
167: -- Calling API to mark any article amended if system variable used in that API has been changed
168: --------------------------------------------
169: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
170: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call API OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment ');
171: END IF;
172:
173: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
174: p_api_version =>1,
191:
192: --------------------------------------------
193: -- Call internal QA_Doc and put result into PLSQL table and save it in DB
194: --------------------------------------------
195: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
196: 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');
197: END IF;
198:
199: OKC_TERMS_QA_PVT.QA_Doc(
192: --------------------------------------------
193: -- Call internal QA_Doc and put result into PLSQL table and save it in DB
194: --------------------------------------------
195: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
196: 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');
197: END IF;
198:
199: OKC_TERMS_QA_PVT.QA_Doc(
200: x_return_status => x_return_status,
229: ----------------------------------------------------------------------
230: -- QA Check for Lock Contract - to be run for p_doc_type <> 'TEMPLATE'
231: ----------------------------------------------------------------------
232: IF p_doc_type<>G_TMPL_DOC_TYPE THEN
233: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
234: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_lock_contract');
235: END IF;
236: OKC_TERMS_QA_PVT.Check_lock_contract(
237: p_qa_mode => p_qa_mode,
230: -- QA Check for Lock Contract - to be run for p_doc_type <> 'TEMPLATE'
231: ----------------------------------------------------------------------
232: IF p_doc_type<>G_TMPL_DOC_TYPE THEN
233: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
234: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_lock_contract');
235: END IF;
236: OKC_TERMS_QA_PVT.Check_lock_contract(
237: p_qa_mode => p_qa_mode,
238: p_doc_type => p_doc_type,
251: ----------------------------------------------------------------------
252: -- QA Check for Contract Admin - to be run for p_doc_type <> 'TEMPLATE'
253: ----------------------------------------------------------------------
254: IF p_doc_type<>G_TMPL_DOC_TYPE THEN
255: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
256: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_contract_admin');
257: END IF;
258: OKC_TERMS_QA_PVT.check_contract_admin(
259: p_qa_mode => p_qa_mode,
252: -- QA Check for Contract Admin - to be run for p_doc_type <> 'TEMPLATE'
253: ----------------------------------------------------------------------
254: IF p_doc_type<>G_TMPL_DOC_TYPE THEN
255: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
256: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_contract_admin');
257: END IF;
258: OKC_TERMS_QA_PVT.check_contract_admin(
259: p_qa_mode => p_qa_mode,
260: p_doc_type => p_doc_type,
280:
281: IF p_qa_terms_only = 'N' AND l_template_id IS NOT NULL THEN
282:
283:
284: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
285: 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');
286: END IF;
287:
288: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
281: IF p_qa_terms_only = 'N' AND l_template_id IS NOT NULL THEN
282:
283:
284: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
285: 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');
286: END IF;
287:
288: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
289: p_api_version => 1,
310: -- Now insert into Temp table.
311: --------------------------------------------
312: -- Save result from PLSQL table into DB table
313: --------------------------------------------
314: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
315: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: Save result from PLSQL table into DB table');
316: END IF;
317:
318: x_qa_return_status := G_QA_STS_SUCCESS;
311: --------------------------------------------
312: -- Save result from PLSQL table into DB table
313: --------------------------------------------
314: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
315: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: Save result from PLSQL table into DB table');
316: END IF;
317:
318: x_qa_return_status := G_QA_STS_SUCCESS;
319:
361: END IF;
362:
363: -- Standard call to get message count and if count is 1, get message info.
364: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
365: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
366: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving QA_Doc');
367: END IF;
368:
369: EXCEPTION
362:
363: -- Standard call to get message count and if count is 1, get message info.
364: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
365: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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
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;
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 );
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;
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:
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;
383: x_return_status := G_RET_STS_UNEXP_ERROR ;
384: 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;
383: x_return_status := G_RET_STS_UNEXP_ERROR ;
384: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
385:
384: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
385:
386: WHEN OTHERS THEN
387: ROLLBACK TO g_QA_Doc;
388: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
389: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
390: END IF;
391:
392: x_return_status := G_RET_STS_UNEXP_ERROR ;
385:
386: WHEN OTHERS THEN
387: ROLLBACK TO g_QA_Doc;
388: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
389: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
390: END IF;
391:
392: x_return_status := G_RET_STS_UNEXP_ERROR ;
393: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
436: WHERE document_type = p_doc_type
437: AND document_id = p_doc_id;
438:
439: BEGIN
440: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
441: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Entered QA_Doc');
442: END IF;
443:
444: -- Standard Start of API savepoint
437: AND document_id = p_doc_id;
438:
439: BEGIN
440: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
441: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Entered QA_Doc');
442: END IF;
443:
444: -- Standard Start of API savepoint
445: SAVEPOINT g_QA_Doc;
503: IF p_qa_mode='AMEND' THEN
504: --------------------------------------------
505: -- Calling API to mark any article amended if system variable used in that API has been changed
506: --------------------------------------------
507: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call API OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment ');
509: END IF;
510:
511: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
504: --------------------------------------------
505: -- Calling API to mark any article amended if system variable used in that API has been changed
506: --------------------------------------------
507: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call API OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment ');
509: END IF;
510:
511: OKC_TERMS_UTIL_GRP.Mark_Variable_Based_Amendment(
512: p_api_version =>1,
528: END IF;
529: --------------------------------------------
530: -- Call internal QA_Doc and put result into PLSQL table
531: --------------------------------------------
532: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
533: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Call Private QA_Doc and put result into PLSQL table');
534: END IF;
535: OKC_TERMS_QA_PVT.QA_Doc(
536: x_return_status => x_return_status,
529: --------------------------------------------
530: -- Call internal QA_Doc and put result into PLSQL table
531: --------------------------------------------
532: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
533: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Call Private QA_Doc and put result into PLSQL table');
534: END IF;
535: OKC_TERMS_QA_PVT.QA_Doc(
536: x_return_status => x_return_status,
537:
569: ----------------------------------------------------------------------
570: -- QA Check for Lock Contract - to be run for p_doc_type <> 'TEMPLATE'
571: ----------------------------------------------------------------------
572: IF p_doc_type<>G_TMPL_DOC_TYPE THEN
573: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
574: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_lock_contract');
575: END IF;
576: OKC_TERMS_QA_PVT.Check_lock_contract(
577: p_qa_mode => p_qa_mode,
570: -- QA Check for Lock Contract - to be run for p_doc_type <> 'TEMPLATE'
571: ----------------------------------------------------------------------
572: IF p_doc_type<>G_TMPL_DOC_TYPE THEN
573: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
574: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_lock_contract');
575: END IF;
576: OKC_TERMS_QA_PVT.Check_lock_contract(
577: p_qa_mode => p_qa_mode,
578: p_doc_type => p_doc_type,
591: ----------------------------------------------------------------------
592: -- QA Check for Contract Admin - to be run for p_doc_type <> 'TEMPLATE'
593: ----------------------------------------------------------------------
594: IF p_doc_type<>G_TMPL_DOC_TYPE THEN
595: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
596: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_contract_admin');
597: END IF;
598: OKC_TERMS_QA_PVT.check_contract_admin(
599: p_qa_mode => p_qa_mode,
592: -- QA Check for Contract Admin - to be run for p_doc_type <> 'TEMPLATE'
593: ----------------------------------------------------------------------
594: IF p_doc_type<>G_TMPL_DOC_TYPE THEN
595: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
596: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2210: calling check_contract_admin');
597: END IF;
598: OKC_TERMS_QA_PVT.check_contract_admin(
599: p_qa_mode => p_qa_mode,
600: p_doc_type => p_doc_type,
618:
619: IF p_qa_terms_only = 'N' AND l_template_id IS NOT NULL THEN
620:
621:
622: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
623: 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');
624: END IF;
625:
626: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
619: IF p_qa_terms_only = 'N' AND l_template_id IS NOT NULL THEN
620:
621:
622: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
623: 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');
624: END IF;
625:
626: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
627: p_api_version => 1,
668: END IF;
669:
670: -- Standard call to get message count and if count is 1, get message info.
671: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
672: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
673: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'900: Leaving QA_Doc');
674: END IF;
675: END IF; -- Repository Enhancement (For Validate Action)
676:
669:
670: -- Standard call to get message count and if count is 1, get message info.
671: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
672: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
673: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'900: Leaving QA_Doc');
674: END IF;
675: END IF; -- Repository Enhancement (For Validate Action)
676:
677:
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;
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 );
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;
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:
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;
692: x_return_status := G_RET_STS_UNEXP_ERROR ;
693: 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;
692: x_return_status := G_RET_STS_UNEXP_ERROR ;
693: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
694:
693: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
694:
695: WHEN OTHERS THEN
696: ROLLBACK TO g_QA_Doc;
697: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
698: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1200: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
699: END IF;
700:
701: x_return_status := G_RET_STS_UNEXP_ERROR ;
694:
695: WHEN OTHERS THEN
696: ROLLBACK TO g_QA_Doc;
697: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
698: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1200: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
699: END IF;
700:
701: x_return_status := G_RET_STS_UNEXP_ERROR ;
702: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
723: l_qa_return_status VARCHAR2(50);
724:
725: BEGIN
726:
727: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
728: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Entered '||l_api_name);
729: END IF;
730: x_return_status := G_RET_STS_SUCCESS;
731:
724:
725: BEGIN
726:
727: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
728: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Entered '||l_api_name);
729: END IF;
730: x_return_status := G_RET_STS_SUCCESS;
731:
732: OKC_TERMS_UTIL_GRP.Get_Contract_Document_Type_ID(
775: END IF;
776: x_return_status := l_qa_return_status;
777:
778: -- Standard call to get message count and if count is 1, get message info.
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,'500: Leaving '||l_api_name);
781: END IF;
782:
783: EXCEPTION
776: x_return_status := l_qa_return_status;
777:
778: -- Standard call to get message count and if count is 1, get message info.
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,'500: Leaving '||l_api_name);
781: END IF;
782:
783: EXCEPTION
784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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;
789: x_return_status := G_QA_STS_ERROR ;
790:
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;
789: x_return_status := G_QA_STS_ERROR ;
790:
791: WHEN OTHERS THEN
789: x_return_status := G_QA_STS_ERROR ;
790:
791: WHEN OTHERS THEN
792: ROLLBACK TO g_QA_Doc;
793: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
794: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1200: Leaving '||l_api_name||' because of EXCEPTION: '||sqlerrm);
795: END IF;
796:
797: x_return_status := G_QA_STS_ERROR ;
790:
791: WHEN OTHERS THEN
792: ROLLBACK TO g_QA_Doc;
793: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
794: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1200: Leaving '||l_api_name||' because of EXCEPTION: '||sqlerrm);
795: END IF;
796:
797: x_return_status := G_QA_STS_ERROR ;
798: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
833: l_warning_found Boolean := FALSE;
834:
835: BEGIN
836:
837: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
838: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered QA_Doc - OVERLOADED ONE');
839: END IF;
840:
841: -- Standard Start of API savepoint
834:
835: BEGIN
836:
837: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
838: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered QA_Doc - OVERLOADED ONE');
839: END IF;
840:
841: -- Standard Start of API savepoint
842: SAVEPOINT g_QA_Doc;
857:
858: --------------------------------------------
859: -- Call internal QA_Doc and put result into PLSQL table
860: --------------------------------------------
861: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
862: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Call Private QA_Doc and put result into PLSQL table');
863: END IF;
864:
865: QA_Doc(
858: --------------------------------------------
859: -- Call internal QA_Doc and put result into PLSQL table
860: --------------------------------------------
861: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
862: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Call Private QA_Doc and put result into PLSQL table');
863: END IF;
864:
865: QA_Doc(
866: p_api_version => l_api_version,
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 (
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,
930: END IF;
931:
932: -- Standard call to get message count and if count is 1, get message info.
933: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
934: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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
931:
932: -- Standard call to get message count and if count is 1, get message info.
933: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
934: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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
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;
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 );
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;
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:
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;
952: x_return_status := G_RET_STS_UNEXP_ERROR ;
953: 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;
952: x_return_status := G_RET_STS_UNEXP_ERROR ;
953: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
954:
953: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
954:
955: WHEN OTHERS THEN
956: ROLLBACK TO g_QA_Doc;
957: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
958: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
959: END IF;
960:
961: x_return_status := G_RET_STS_UNEXP_ERROR ;
954:
955: WHEN OTHERS THEN
956: ROLLBACK TO g_QA_Doc;
957: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
958: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
959: END IF;
960:
961: x_return_status := G_RET_STS_UNEXP_ERROR ;
962: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN