56:
57: -- check if the document allows provisions, if not then the
58: -- provisions should not be copied into the table
59: --
60: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
61: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
62: '100: Entered POPULATE_TEMPLATE_ARTICLES');
63: END IF;
64:
57: -- check if the document allows provisions, if not then the
58: -- provisions should not be copied into the table
59: --
60: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
61: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
62: '100: Entered POPULATE_TEMPLATE_ARTICLES');
63: END IF;
64:
65: Select nvl(provision_allowed_YN,'N')
67: From okc_bus_doc_types_b
68: Where document_type = p_doc_type;
69:
70:
71: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
72: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
73: '110: Provision Allowed : '||l_provision_allowed);
74: END IF;
75:
68: Where document_type = p_doc_type;
69:
70:
71: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
72: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
73: '110: Provision Allowed : '||l_provision_allowed);
74: END IF;
75:
76:
128: And oav.provision_yn = 'N');
129:
130: end if; -- l_provision_allowed
131:
132: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
133: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
134: '120: After DEVIATION CATEGORY Bulk Collect');
135: END IF;
136:
129:
130: end if; -- l_provision_allowed
131:
132: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
133: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
134: '120: After DEVIATION CATEGORY Bulk Collect');
135: END IF;
136:
137: If (l_article_id.count > 0) then
154: l_article_version_id(i),
155: 'T',
156: l_orig_article_id(i));
157:
158: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
159: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
160: '130: Inserted TEMPLATE data in Global Temp Table');
161: END IF;
162: end if;
155: 'T',
156: l_orig_article_id(i));
157:
158: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
159: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
160: '130: Inserted TEMPLATE data in Global Temp Table');
161: END IF;
162: end if;
163:
166: Exception
167:
168: When OTHERS then
169:
170: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
171: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, l_api_name,
172: '140: Leaving Populate_Teamplate_articles because of EXCEPTION: '||sqlerrm);
173: END IF;
174:
167:
168: When OTHERS then
169:
170: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
171: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, l_api_name,
172: '140: Leaving Populate_Teamplate_articles because of EXCEPTION: '||sqlerrm);
173: END IF;
174:
175: x_return_status := G_RET_STS_UNEXP_ERROR;
210:
211: l_init_msg_list := OKC_API.G_FALSE;
212: l_bv_mode := 'DEV';
213: l_api_version := 1;
214: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
215: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
216: '200: Entered POPULATE_EXPERT_ARTICLES');
217: END IF;
218:
211: l_init_msg_list := OKC_API.G_FALSE;
212: l_bv_mode := 'DEV';
213: l_api_version := 1;
214: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
215: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
216: '200: Entered POPULATE_EXPERT_ARTICLES');
217: END IF;
218:
219:
234: p_include_exp := 'N';
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
236: end if;
237:
238: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
239: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
240: '210: Return value of CONTRACT EXPRT BV is : '|| l_return_status);
241: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
242: '220: Value of p_include_exp is : '|| p_include_exp);
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
236: end if;
237:
238: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
239: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
240: '210: Return value of CONTRACT EXPRT BV is : '|| l_return_status);
241: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
242: '220: Value of p_include_exp is : '|| p_include_exp);
243: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
237:
238: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
239: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
240: '210: Return value of CONTRACT EXPRT BV is : '|| l_return_status);
241: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
242: '220: Value of p_include_exp is : '|| p_include_exp);
243: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
244: '230: The L_qa_results_tbl count is : '|| l_qa_result_tbl.count);
245: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
239: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
240: '210: Return value of CONTRACT EXPRT BV is : '|| l_return_status);
241: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
242: '220: Value of p_include_exp is : '|| p_include_exp);
243: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
244: '230: The L_qa_results_tbl count is : '|| l_qa_result_tbl.count);
245: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
246: '230: The L_expert_articles_tbl count is : '|| l_expert_articles_tbl.count);
247:
241: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
242: '220: Value of p_include_exp is : '|| p_include_exp);
243: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
244: '230: The L_qa_results_tbl count is : '|| l_qa_result_tbl.count);
245: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
246: '230: The L_expert_articles_tbl count is : '|| l_expert_articles_tbl.count);
247:
248: END IF;
249:
252: p_include_exp := 'Y';
253:
254: if (l_expert_articles_tbl.count > 0) then
255:
256: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
257: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
258: '240: Inserting the data in temp table as count > 0');
259: END IF;
260:
253:
254: if (l_expert_articles_tbl.count > 0) then
255:
256: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
257: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
258: '240: Inserting the data in temp table as count > 0');
259: END IF;
260:
261: FORALL i IN l_expert_articles_tbl.FIRST..l_expert_articles_tbl.LAST
279: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
280: x_return_status := G_RET_STS_UNEXP_ERROR;
281: When OTHERS then
282:
283: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
284: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, l_api_name,
285: '230: Leaving Populate_Expert_articles because of EXCEPTION: '||sqlerrm);
286: END IF;
287:
280: x_return_status := G_RET_STS_UNEXP_ERROR;
281: When OTHERS then
282:
283: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
284: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, l_api_name,
285: '230: Leaving Populate_Expert_articles because of EXCEPTION: '||sqlerrm);
286: END IF;
287:
288: x_return_status := G_RET_STS_UNEXP_ERROR;
364: l_max_scn_seq Number;
365:
366: begin
367:
368: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
369: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
370: '700: Entered UPDATE_DEVIATION_DETAILS');
371: END IF;
372: /*
365:
366: begin
367:
368: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
369: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
370: '700: Entered UPDATE_DEVIATION_DETAILS');
371: END IF;
372: /*
373: Update okc_terms_deviations_t odt set
457: and osb1.id = odt.scn_id)
458: where sequence_id = p_sequence_id
459: and scn_sequence is null;
460:
461: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
462: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
463: '710: Updated Section Label');
464: END IF;
465:
458: where sequence_id = p_sequence_id
459: and scn_sequence is null;
460:
461: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
462: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
463: '710: Updated Section Label');
464: END IF;
465:
466: Update okc_terms_deviations_t odt set
469: where article_version_id = odt.ref_article_version_id)
470: where sequence_id = p_sequence_id
471: and deviation_code = 'MODIFIED_STD';
472:
473: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
474: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
475: '720: Updated lock_text flag');
476: END IF;
477:
470: where sequence_id = p_sequence_id
471: and deviation_code = 'MODIFIED_STD';
472:
473: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
474: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
475: '720: Updated lock_text flag');
476: END IF;
477:
478:
488: and deviation_code = 'ARTICLE_EXPIRED'
489: and sequence_id = p_sequence_id;
490:
491:
492: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
493: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
494: '710: Updated compare text flag for Expired Clauses');
495: END IF;
496:
489: and sequence_id = p_sequence_id;
490:
491:
492: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
493: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
494: '710: Updated compare text flag for Expired Clauses');
495: END IF;
496:
497: x_return_status := G_RET_STS_SUCCESS;
498:
499: EXCEPTION
500: When OTHERS then
501:
502: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
503: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'730: Leaving Update_Deviation_details : FND_API.G_EXC_UNEXPECTED_ERROR');
504: END IF;
505: x_return_status := G_RET_STS_UNEXP_ERROR;
506: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
499: EXCEPTION
500: When OTHERS then
501:
502: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
503: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'730: Leaving Update_Deviation_details : FND_API.G_EXC_UNEXPECTED_ERROR');
504: END IF;
505: x_return_status := G_RET_STS_UNEXP_ERROR;
506: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
507: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
523: l_api_name CONSTANT Varchar2(60):='REMOVE_DUPLICATE_DEVIATIONS';
524:
525: begin
526:
527: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
528: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
529: '800: Entered REMOVE_DUPLICATE_DEVIATIONS');
530: END IF;
531:
524:
525: begin
526:
527: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
528: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
529: '800: Entered REMOVE_DUPLICATE_DEVIATIONS');
530: END IF;
531:
532: delete from okc_terms_deviations_t odt
542:
543: EXCEPTION
544: When OTHERS then
545:
546: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'810: Leaving remove_duplicate_deviations : FND_API.G_EXC_UNEXPECTED_ERROR');
548: END IF;
549: x_return_status := G_RET_STS_UNEXP_ERROR;
550: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
543: EXCEPTION
544: When OTHERS then
545:
546: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'810: Leaving remove_duplicate_deviations : FND_API.G_EXC_UNEXPECTED_ERROR');
548: END IF;
549: x_return_status := G_RET_STS_UNEXP_ERROR;
550: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
551: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
563: l_init_msg_list := FND_API.G_FALSE;
564: l_api_version := 1;
565:
566: FND_MSG_PUB.initialize;
567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
568: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
569: '300: Entered GENERATE_DEVIATIONS');
570: END IF;
571: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
564: l_api_version := 1;
565:
566: FND_MSG_PUB.initialize;
567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
568: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
569: '300: Entered GENERATE_DEVIATIONS');
570: END IF;
571: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
572: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
568: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
569: '300: Entered GENERATE_DEVIATIONS');
570: END IF;
571: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
572: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
573: '305: Calling populate template articles');
574: END IF;
575:
568: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
569: '300: Entered GENERATE_DEVIATIONS');
570: END IF;
571: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
572: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
573: '305: Calling populate template articles');
574: END IF;
575:
576: populate_template_articles(x_return_status, p_template_id, p_doc_type);
574: END IF;
575:
576: populate_template_articles(x_return_status, p_template_id, p_doc_type);
577:
578: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
579: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
580: '310: return status for populate_template_articles is : '|| x_return_status);
581: END IF;
582:
575:
576: populate_template_articles(x_return_status, p_template_id, p_doc_type);
577:
578: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
579: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
580: '310: return status for populate_template_articles is : '|| x_return_status);
581: END IF;
582:
583: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
585: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
586: RAISE FND_API.G_EXC_ERROR ;
587: END IF;
588:
589: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
591: '312: Checking If expert is enabled on document');
592: END IF;
593:
586: RAISE FND_API.G_EXC_ERROR ;
587: END IF;
588:
589: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
591: '312: Checking If expert is enabled on document');
592: END IF;
593:
594: /*
610: x_msg_count,
611: x_msg_data
612: );
613:
614: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
615: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
616: '314: XPRT Enabled on Template: '||l_xprt_enabled);
617: END IF;
618:
611: x_msg_data
612: );
613:
614: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
615: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
616: '314: XPRT Enabled on Template: '||l_xprt_enabled);
617: END IF;
618:
619: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
624:
625: SELECT OKC_TERMS_DEVIATIONS_S1.nextval INTO l_seq_id from DUAL;
626:
627:
628: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
629: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
630: '316: Generated Sequence Number is l_seq_id: '|| l_seq_id);
631: END IF;
632:
625: SELECT OKC_TERMS_DEVIATIONS_S1.nextval INTO l_seq_id from DUAL;
626:
627:
628: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
629: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
630: '316: Generated Sequence Number is l_seq_id: '|| l_seq_id);
631: END IF;
632:
633: -- Bug #4115488
633: -- Bug #4115488
634:
635: if (l_xprt_enabled = FND_API.G_TRUE) then
636:
637: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
638: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
639: '318: Calling populate_expert_articles');
640: END IF;
641:
634:
635: if (l_xprt_enabled = FND_API.G_TRUE) then
636:
637: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
638: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
639: '318: Calling populate_expert_articles');
640: END IF;
641:
642: Populate_Expert_Articles( x_return_status,
644: p_doc_id,
645: x_include_exp,
646: l_seq_id); --Policy Deviations Change:Passing sequence Id
647:
648: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
649: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
650: '320: return status for populate_expert_articles is : '|| x_return_status);
651: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
652: '320: value of x_include_exp is: '|| x_include_exp);
645: x_include_exp,
646: l_seq_id); --Policy Deviations Change:Passing sequence Id
647:
648: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
649: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
650: '320: return status for populate_expert_articles is : '|| x_return_status);
651: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
652: '320: value of x_include_exp is: '|| x_include_exp);
653: END IF;
647:
648: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
649: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
650: '320: return status for populate_expert_articles is : '|| x_return_status);
651: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
652: '320: value of x_include_exp is: '|| x_include_exp);
653: END IF;
654:
655: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
671: ** existing on the document but no originated
672: ** from either Template or Expert
673: ** Bug 4044354 Replaced ref_article_id with orig_article_id
674: */
675: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
676: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
677: '330: Generating deviations for Added Non Std Clause');
678: END IF;
679:
672: ** from either Template or Expert
673: ** Bug 4044354 Replaced ref_article_id with orig_article_id
674: */
675: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
676: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
677: '330: Generating deviations for Added Non Std Clause');
678: END IF;
679:
680: SELECT
723: ** and originated from Tempalte or Expert (i.e,
724: ** source_flag is NOT NULL
725: ** Bug 4044354 Replaced ref_article_id with orig_article_id
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,
729: '340: Generating Deviations deviations for Modified Std Clause ');
730: END IF;
731:
724: ** source_flag is NOT NULL
725: ** Bug 4044354 Replaced ref_article_id with orig_article_id
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,
729: '340: Generating Deviations deviations for Modified Std Clause ');
730: END IF;
731:
732: SELECT
771: ** missing on the document. Also, considers the clauses
772: ** suggested by new rules, if any.
773: ** Bug #4044354 Replaced ref_article_id with orig_article_id
774: */
775: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
776: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
777: '350: Generating Deviations for Missing Exp Clause ');
778: END IF;
779:
772: ** suggested by new rules, if any.
773: ** Bug #4044354 Replaced ref_article_id with orig_article_id
774: */
775: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
776: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
777: '350: Generating Deviations for Missing Exp Clause ');
778: END IF;
779:
780: SELECT
822: ** the document(which are NOTmodfied)
823: ** Also, considers any new mandatory clause added to the
824: ** template in the latest version
825: */
826: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
827: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
828: '360: Generating Deviations for Missing Mandatory Clause ');
829: END IF;
830:
823: ** Also, considers any new mandatory clause added to the
824: ** template in the latest version
825: */
826: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
827: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
828: '360: Generating Deviations for Missing Mandatory Clause ');
829: END IF;
830:
831:
876: ** Also, considers any new clauses added to the template
877: ** after it has been instantiated on the document (i.e,
878: ** in the latest version of the template
879: */
880: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
881: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
882: '370: Generating Deviations for Missing Optional Clause ');
883: END IF;
884:
877: ** after it has been instantiated on the document (i.e,
878: ** in the latest version of the template
879: */
880: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
881: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
882: '370: Generating Deviations for Missing Optional Clause ');
883: END IF;
884:
885: SELECT
932: ** Get_latest_version)id will return either a latest version or
933: ** null
934: */
935:
936: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
937: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
938: '380: Generating Deviations for Clause Expired ');
939: END IF;
940: SELECT
933: ** null
934: */
935:
936: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
937: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
938: '380: Generating Deviations for Clause Expired ');
939: END IF;
940: SELECT
941: oab.id,
980: ** directly added to the document), if the article is present
981: ** on the document and is on-hold, it will be reported.
982: ** This check is made against all the clauses on the document
983: */
984: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
985: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
986: '390: Generating Deviations for Clause on hold ');
987: END IF;
988:
981: ** on the document and is on-hold, it will be reported.
982: ** This check is made against all the clauses on the document
983: */
984: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
985: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
986: '390: Generating Deviations for Clause on hold ');
987: END IF;
988:
989: SELECT
1031: ** will consider the clauses that were previously suggested
1032: ** by Expert but are not in the current run
1033: ** Bug #4044354 Replaced ref_article_id with orig_article_id
1034: */
1035: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1036: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1037: '400: Generating Deviations for Exp recommending to remove ');
1038: END IF;
1039:
1032: ** by Expert but are not in the current run
1033: ** Bug #4044354 Replaced ref_article_id with orig_article_id
1034: */
1035: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1036: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1037: '400: Generating Deviations for Exp recommending to remove ');
1038: END IF;
1039:
1040: SELECT
1084: ** is std. OR the clause is missing on the template.
1085: ** will not consider Expert related clauses
1086: */
1087:
1088: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1089: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1090: '410: Generating Deviation for Added Std Clause ');
1091: END IF;
1092:
1085: ** will not consider Expert related clauses
1086: */
1087:
1088: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1089: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1090: '410: Generating Deviation for Added Std Clause ');
1091: END IF;
1092:
1093: SELECT
1141: /*
1142: ** considers the clauses suggested by template or expert
1143: ** and have replaced with available alternate clauses.
1144: */
1145: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1146: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'420: Generating Deviations for Replace Clause with Alternate ');
1147: END IF;
1148:
1149: SELECT
1142: ** considers the clauses suggested by template or expert
1143: ** and have replaced with available alternate clauses.
1144: */
1145: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1146: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'420: Generating Deviations for Replace Clause with Alternate ');
1147: END IF;
1148:
1149: SELECT
1150: oab.id,
1195: -- The deviations data has been collected into respective PL/SQL
1196: -- tables and then inserted into okc_terms_deviations_t table.
1197: -- Insert_deviatiosn procedure is called for this.
1198:
1199: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1200: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'430: Inserting Deviations in okc_terms_deviations_t ');
1201: END IF;
1202:
1203: Insert_deviations(
1196: -- tables and then inserted into okc_terms_deviations_t table.
1197: -- Insert_deviatiosn procedure is called for this.
1198:
1199: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1200: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'430: Inserting Deviations in okc_terms_deviations_t ');
1201: END IF;
1202:
1203: Insert_deviations(
1204: x_return_status,
1237:
1238: close dev_cat;
1239:
1240: /* Update the Section Details and Protected flag */
1241: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1242: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'440: Calling Update Deviation Details ');
1243: END IF;
1244:
1245: Update_deviation_details(x_return_status, l_seq_id);
1238: close dev_cat;
1239:
1240: /* Update the Section Details and Protected flag */
1241: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1242: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'440: Calling Update Deviation Details ');
1243: END IF;
1244:
1245: Update_deviation_details(x_return_status, l_seq_id);
1246: If (x_return_status = G_RET_STS_UNEXP_ERROR) then
1262: IF (dev_cat%ISOPEN) THEN
1263: CLOSE dev_cat;
1264: END IF;
1265:
1266: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1267: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'100: Leaving Generate_deviations :FND_API.G_EXC_ERROR');
1268: END IF;
1269: x_return_status := G_RET_STS_ERROR ;
1270:
1263: CLOSE dev_cat;
1264: END IF;
1265:
1266: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1267: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'100: Leaving Generate_deviations :FND_API.G_EXC_ERROR');
1268: END IF;
1269: x_return_status := G_RET_STS_ERROR ;
1270:
1271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1272: IF (dev_cat%ISOPEN) THEN
1273: CLOSE dev_cat;
1274: END IF;
1275:
1276: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1277: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'200: Leaving Generate_Deviations : FND_API.G_EXC_UNEXPECTED_ERROR');
1278: END IF;
1279: x_return_status := G_RET_STS_UNEXP_ERROR ;
1280: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1273: CLOSE dev_cat;
1274: END IF;
1275:
1276: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1277: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'200: Leaving Generate_Deviations : FND_API.G_EXC_UNEXPECTED_ERROR');
1278: END IF;
1279: x_return_status := G_RET_STS_UNEXP_ERROR ;
1280: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1281:
1279: x_return_status := G_RET_STS_UNEXP_ERROR ;
1280: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1281:
1282: WHEN OTHERS THEN
1283: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1284: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'300: Leaving Generate_Deviations because of EXCEPTION: '||sqlerrm);
1285: END IF;
1286:
1287: IF (dev_cat%ISOPEN) THEN
1280: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1281:
1282: WHEN OTHERS THEN
1283: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1284: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'300: Leaving Generate_Deviations because of EXCEPTION: '||sqlerrm);
1285: END IF;
1286:
1287: IF (dev_cat%ISOPEN) THEN
1288: CLOSE dev_cat;
1327: is
1328: l_api_name CONSTANT VARCHAR2(30) := 'INSERT_DEVIATIONS' ;
1329: begin
1330:
1331: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1333: '500: Inserting Deviations in okc_terms_deviations_t ');
1334: END IF;
1335:
1328: l_api_name CONSTANT VARCHAR2(30) := 'INSERT_DEVIATIONS' ;
1329: begin
1330:
1331: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1333: '500: Inserting Deviations in okc_terms_deviations_t ');
1334: END IF;
1335:
1336: if p_doc_article_id.count > 0 then
1334: END IF;
1335:
1336: if p_doc_article_id.count > 0 then
1337:
1338: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1339: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1340: '510: Inserting Deviations in okc_terms_deviations_t ');
1341: END IF;
1342:
1335:
1336: if p_doc_article_id.count > 0 then
1337:
1338: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1339: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1340: '510: Inserting Deviations in okc_terms_deviations_t ');
1341: END IF;
1342:
1343: FORALL i in p_doc_article_id.FIRST.. p_doc_article_id.LAST
1391: 'C'
1392: );
1393: end if;
1394:
1395: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1396: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1397: '520: Inserted Deviations in okc_terms_deviations_t ');
1398: END IF;
1399:
1392: );
1393: end if;
1394:
1395: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1396: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1397: '520: Inserted Deviations in okc_terms_deviations_t ');
1398: END IF;
1399:
1400: x_return_status := G_RET_STS_SUCCESS;
1401:
1402: EXCEPTION
1403: WHEN OTHERS Then
1404:
1405: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1406: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
1407: '530: Leaving Insert_Deviations because of EXCEPTION: '||sqlerrm);
1408: END IF;
1409: x_return_status := G_RET_STS_UNEXP_ERROR;
1402: EXCEPTION
1403: WHEN OTHERS Then
1404:
1405: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1406: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
1407: '530: Leaving Insert_Deviations because of EXCEPTION: '||sqlerrm);
1408: END IF;
1409: x_return_status := G_RET_STS_UNEXP_ERROR;
1410: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1462: retcode := 2;
1463: FND_FILE.PUT_LINE( FND_FILE.LOG,'Return Code of the Program: '|| retcode);
1464: ROLLBACK TO purge_deviations_data;
1465:
1466: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1467: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'660: Other exception');
1468: END IF;
1469: FND_FILE.PUT_LINE(FND_FILE.LOG,'Exception Others: '|| sqlerrm);
1470: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1463: FND_FILE.PUT_LINE( FND_FILE.LOG,'Return Code of the Program: '|| retcode);
1464: ROLLBACK TO purge_deviations_data;
1465:
1466: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1467: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'660: Other exception');
1468: END IF;
1469: FND_FILE.PUT_LINE(FND_FILE.LOG,'Exception Others: '|| sqlerrm);
1470: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1471: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1493:
1494: BEGIN
1495: l_result := '?';
1496:
1497: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1498: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Entering has_deviation_report ');
1499: END IF;
1500:
1501: OPEN doc_details_csr ;
1494: BEGIN
1495: l_result := '?';
1496:
1497: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1498: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Entering has_deviation_report ');
1499: END IF;
1500:
1501: OPEN doc_details_csr ;
1502: FETCH doc_details_csr into l_result;
1501: OPEN doc_details_csr ;
1502: FETCH doc_details_csr into l_result;
1503: CLOSE doc_details_csr ;
1504:
1505: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Result has_deviation_report : ['||l_result||']');
1507: END IF;
1508:
1509: IF l_result = 'Y' THEN
1502: FETCH doc_details_csr into l_result;
1503: CLOSE doc_details_csr ;
1504:
1505: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Result has_deviation_report : ['||l_result||']');
1507: END IF;
1508:
1509: IF l_result = 'Y' THEN
1510: RETURN 'Y';
1513: END IF;
1514:
1515: EXCEPTION
1516: WHEN OTHERS THEN
1517: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1518: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving has_deviation_report of EXCEPTION: '||sqlerrm);
1519: END IF;
1520: RETURN 'E';
1521: END has_deviation_report;
1514:
1515: EXCEPTION
1516: WHEN OTHERS THEN
1517: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1518: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving has_deviation_report of EXCEPTION: '||sqlerrm);
1519: END IF;
1520: RETURN 'E';
1521: END has_deviation_report;
1522: