[Home] [Help]
66: FROM OKC_ALLOWED_TMPL_USAGES
67: WHERE TEMPLATE_ID = p_template_id;
68: BEGIN
69:
70: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
71: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered ALLOWED_TMPL_USAGES_Delete_Set');
72: END IF;
73:
74: FOR cr IN l_get_rec LOOP
67: WHERE TEMPLATE_ID = p_template_id;
68: BEGIN
69:
70: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
71: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered ALLOWED_TMPL_USAGES_Delete_Set');
72: END IF;
73:
74: FOR cr IN l_get_rec LOOP
75:
92: RAISE FND_API.G_EXC_ERROR ;
93: END IF;
94: END LOOP;
95:
96: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
97: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: Leaving ALLOWED_TMPL_USAGES_Delete_Set');
98: END IF;
99: EXCEPTION
100: WHEN FND_API.G_EXC_ERROR THEN
93: END IF;
94: END LOOP;
95:
96: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
97: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: Leaving ALLOWED_TMPL_USAGES_Delete_Set');
98: END IF;
99: EXCEPTION
100: WHEN FND_API.G_EXC_ERROR THEN
101: IF (l_get_rec%ISOPEN) THEN
101: IF (l_get_rec%ISOPEN) THEN
102: CLOSE l_get_rec;
103: END IF;
104:
105: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
106: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving ALLOWED_TMPL_USAGES_Delete_Set:FND_API.G_EXC_ERROR Exception');
107: END IF;
108: x_return_status := G_RET_STS_ERROR ;
109:
102: CLOSE l_get_rec;
103: END IF;
104:
105: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
106: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving ALLOWED_TMPL_USAGES_Delete_Set:FND_API.G_EXC_ERROR Exception');
107: END IF;
108: x_return_status := G_RET_STS_ERROR ;
109:
110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
111: IF (l_get_rec%ISOPEN) THEN
112: CLOSE l_get_rec;
113: END IF;
114:
115: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving ALLOWED_TMPL_USAGES_Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
117: END IF;
118: x_return_status := G_RET_STS_UNEXP_ERROR ;
119:
112: CLOSE l_get_rec;
113: END IF;
114:
115: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving ALLOWED_TMPL_USAGES_Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
117: END IF;
118: x_return_status := G_RET_STS_UNEXP_ERROR ;
119:
120:
118: x_return_status := G_RET_STS_UNEXP_ERROR ;
119:
120:
121: WHEN OTHERS THEN
122: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
123: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving ALLOWED_TMPL_USAGES_Delete_Set because of EXCEPTION: '||sqlerrm);
124: END IF;
125:
126: IF (l_get_rec%ISOPEN) THEN
119:
120:
121: WHEN OTHERS THEN
122: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
123: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving ALLOWED_TMPL_USAGES_Delete_Set because of EXCEPTION: '||sqlerrm);
124: END IF;
125:
126: IF (l_get_rec%ISOPEN) THEN
127: CLOSE l_get_rec;
146: SELECT allowed_tmpl_usages_id,object_version_number,document_type,default_yn
147: FROM OKC_ALLOWED_TMPL_USAGES
148: WHERE TEMPLATE_ID = p_old_template_id;
149: BEGIN
150: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
151: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Entered Update_Allowed_Tmpl_Usages_Id');
152:
153: END IF;
154:
147: FROM OKC_ALLOWED_TMPL_USAGES
148: WHERE TEMPLATE_ID = p_old_template_id;
149: BEGIN
150: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
151: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Entered Update_Allowed_Tmpl_Usages_Id');
152:
153: END IF;
154:
155: FOR cr in l_get_rec LOOP
176: END IF;
177:
178: END LOOP;
179:
180: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
181: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1400: Update_Allowed_Tmpl_Usages_Id');
182: END IF;
183:
184: EXCEPTION
177:
178: END LOOP;
179:
180: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
181: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1400: Update_Allowed_Tmpl_Usages_Id');
182: END IF;
183:
184: EXCEPTION
185: WHEN FND_API.G_EXC_ERROR THEN
186: IF (l_get_rec%ISOPEN) THEN
187: CLOSE l_get_rec;
188: END IF;
189:
190: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
191: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Update_Allowed_Tmpl_Usages_Id :FND_API.G_EXC_ERROR');
192: END IF;
193: x_return_status := G_RET_STS_ERROR ;
194:
187: CLOSE l_get_rec;
188: END IF;
189:
190: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
191: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Update_Allowed_Tmpl_Usages_Id :FND_API.G_EXC_ERROR');
192: END IF;
193: x_return_status := G_RET_STS_ERROR ;
194:
195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
196: IF (l_get_rec%ISOPEN) THEN
197: CLOSE l_get_rec;
198: END IF;
199:
200: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
201: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Update_Allowed_Tmpl_Usages_Id : FND_API.G_EXC_UNEXPECTED_ERROR');
202: END IF;
203: x_return_status := G_RET_STS_UNEXP_ERROR ;
204:
197: CLOSE l_get_rec;
198: END IF;
199:
200: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
201: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Update_Allowed_Tmpl_Usages_Id : FND_API.G_EXC_UNEXPECTED_ERROR');
202: END IF;
203: x_return_status := G_RET_STS_UNEXP_ERROR ;
204:
205:
203: x_return_status := G_RET_STS_UNEXP_ERROR ;
204:
205:
206: WHEN OTHERS THEN
207: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
208: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1600: Leaving Update_Allowed_Tmpl_Usages_Id because of EXCEPTION: '||sqlerrm);
209: END IF;
210:
211: IF (l_get_rec%ISOPEN) THEN
204:
205:
206: WHEN OTHERS THEN
207: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
208: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1600: Leaving Update_Allowed_Tmpl_Usages_Id because of EXCEPTION: '||sqlerrm);
209: END IF;
210:
211: IF (l_get_rec%ISOPEN) THEN
212: CLOSE l_get_rec;
265: FROM OKC_TEMPLATE_USAGES
266: WHERE DOCUMENT_TYPE = p_doc_type AND DOCUMENT_ID = p_doc_id;
267:
268: BEGIN
269: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
270: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2900: Entered Delete_Doc');
271: END IF;
272: -- Initialize API return status to success
273: x_return_status := G_RET_STS_SUCCESS;
266: WHERE DOCUMENT_TYPE = p_doc_type AND DOCUMENT_ID = p_doc_id;
267:
268: BEGIN
269: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
270: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2900: Entered Delete_Doc');
271: END IF;
272: -- Initialize API return status to success
273: x_return_status := G_RET_STS_SUCCESS;
274:
280: CLOSE tmpl_sts_crs;
281:
282: IF NOT l_found THEN
283: --?? Put some Message output
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,'3000: Template has not been found');
286: END IF;
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: END IF;
281:
282: IF NOT l_found THEN
283: --?? Put some Message output
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,'3000: Template has not been found');
286: END IF;
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: END IF;
289:
294:
295: IF l_status NOT IN ('DRAFT', 'REJECTED','REVISION')
296: OR l_found THEN -- true if there's a revision for the template
297: --?? Put some Message output
298: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
299: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3100: Template Status is not valid to delete it');
300: END IF;
301: RAISE FND_API.G_EXC_ERROR;
302: END IF;
295: IF l_status NOT IN ('DRAFT', 'REJECTED','REVISION')
296: OR l_found THEN -- true if there's a revision for the template
297: --?? Put some Message output
298: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
299: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3100: Template Status is not valid to delete it');
300: END IF;
301: RAISE FND_API.G_EXC_ERROR;
302: END IF;
303:
307: CLOSE tmpl_usd_crs;
308:
309: IF l_found THEN
310: --?? Put some Message output
311: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
312: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3200: Template is already used - so can not be deleted');
313: END IF;
314: RAISE FND_API.G_EXC_ERROR;
315: END IF;
308:
309: IF l_found THEN
310: --?? Put some Message output
311: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
312: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3200: Template is already used - so can not be deleted');
313: END IF;
314: RAISE FND_API.G_EXC_ERROR;
315: END IF;
316:
316:
317: --------------------------------------------
318: -- Delete the record from OKC_ALLOWED_TMPL_USAGES_V
319: --------------------------------------------
320: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
321: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3300: Delete each record from OKC_ALLOWED_TMPL_USAGES_V in a loop');
322: END IF;
323: --------------------------------------------
324: ALLOWED_TMPL_USAGES_Delete_Set(
317: --------------------------------------------
318: -- Delete the record from OKC_ALLOWED_TMPL_USAGES_V
319: --------------------------------------------
320: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
321: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3300: Delete each record from OKC_ALLOWED_TMPL_USAGES_V in a loop');
322: END IF;
323: --------------------------------------------
324: ALLOWED_TMPL_USAGES_Delete_Set(
325: x_return_status => x_return_status,
335: END IF;
336: --------------------------------------------
337:
338: -- Delete record from okc_terms_templates
339: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
340: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3400: Delete each record from okc_terms_templates in a loop');
341: END IF;
342: FOR cr IN tt_csr LOOP
343: --------------------------------------------
336: --------------------------------------------
337:
338: -- Delete record from okc_terms_templates
339: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
340: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3400: Delete each record from okc_terms_templates in a loop');
341: END IF;
342: FOR cr IN tt_csr LOOP
343: --------------------------------------------
344: -- Delete each record from okc_terms_templates for
384:
385: --------------------------------------------
386: -- Delete record from okc_k_art_varaibles
387: --------------------------------------------
388: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
389: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3500: Delete records from okc_k_art_varaibles for the doc');
390: END IF;
391: OKC_K_ART_VARIABLES_PVT.delete_set(
392: x_return_status => x_return_status,
385: --------------------------------------------
386: -- Delete record from okc_k_art_varaibles
387: --------------------------------------------
388: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
389: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3500: Delete records from okc_k_art_varaibles for the doc');
390: END IF;
391: OKC_K_ART_VARIABLES_PVT.delete_set(
392: x_return_status => x_return_status,
393: p_doc_type => p_doc_type,
403:
404: --------------------------------------------
405: -- Delete record from okc_k_articles_v
406: --------------------------------------------
407: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Delete records from okc_k_articles_v for the doc');
409: END IF;
410: OKC_K_ARTICLES_PVT.delete_set(
411: x_return_status => x_return_status,
404: --------------------------------------------
405: -- Delete record from okc_k_articles_v
406: --------------------------------------------
407: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Delete records from okc_k_articles_v for the doc');
409: END IF;
410: OKC_K_ARTICLES_PVT.delete_set(
411: x_return_status => x_return_status,
412: p_doc_type => p_doc_type,
422:
423: --------------------------------------------
424: -- Delete record from okc_sections_v
425: --------------------------------------------
426: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
427: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3700: Delete records from okc_sections_v for the doc');
428: END IF;
429: OKC_TERMS_SECTIONS_PVT.delete_set(
430: x_return_status => x_return_status,
423: --------------------------------------------
424: -- Delete record from okc_sections_v
425: --------------------------------------------
426: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
427: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3700: Delete records from okc_sections_v for the doc');
428: END IF;
429: OKC_TERMS_SECTIONS_PVT.delete_set(
430: x_return_status => x_return_status,
431: p_doc_type => p_doc_type,
462:
463: --------------------------------------------
464: -- Delete record form okc_template_usages
465: --------------------------------------------
466: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
467: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3800: Delete a record from okc_template_usages for the doc');
468: END IF;
469: l_objnum := -1;
470: OPEN objnum_tu_csr;
463: --------------------------------------------
464: -- Delete record form okc_template_usages
465: --------------------------------------------
466: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
467: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3800: Delete a record from okc_template_usages for the doc');
468: END IF;
469: l_objnum := -1;
470: OPEN objnum_tu_csr;
471: FETCH objnum_tu_csr INTO l_objnum;
488: END IF;
489:
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,'4000: Leaving Delete_Doc');
494: END IF;
495: EXCEPTION
496: WHEN FND_API.G_EXC_ERROR THEN
489:
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,'4000: Leaving Delete_Doc');
494: END IF;
495: EXCEPTION
496: WHEN FND_API.G_EXC_ERROR THEN
497: IF tmpl_sts_crs%ISOPEN THEN
505: IF tmpl_prnt_crs%ISOPEN THEN
506: CLOSE tmpl_prnt_crs;
507: END IF;
508:
509: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
510: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4100: Leaving Delete_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
511: END IF;
512: x_return_status := G_RET_STS_ERROR ;
513:
506: CLOSE tmpl_prnt_crs;
507: END IF;
508:
509: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
510: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4100: Leaving Delete_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
511: END IF;
512: x_return_status := G_RET_STS_ERROR ;
513:
514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
523: IF tmpl_prnt_crs%ISOPEN THEN
524: CLOSE tmpl_prnt_crs;
525: END IF;
526:
527: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
528: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4200: Leaving Delete_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
529: END IF;
530: x_return_status := G_RET_STS_UNEXP_ERROR ;
531:
524: CLOSE tmpl_prnt_crs;
525: END IF;
526:
527: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
528: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4200: Leaving Delete_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
529: END IF;
530: x_return_status := G_RET_STS_UNEXP_ERROR ;
531:
532: WHEN OTHERS THEN
541: IF tmpl_prnt_crs%ISOPEN THEN
542: CLOSE tmpl_prnt_crs;
543: END IF;
544:
545: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
546: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4300: Leaving Delete_Doc because of EXCEPTION: '||sqlerrm);
547: END IF;
548:
549: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
542: CLOSE tmpl_prnt_crs;
543: END IF;
544:
545: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
546: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4300: Leaving Delete_Doc because of EXCEPTION: '||sqlerrm);
547: END IF;
548:
549: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
550: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
573: l_msg_data VARCHAR2(2000);
574:
575: BEGIN
576:
577: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2900: Entered delete_doc_version');
579: END IF;
580: -- Initialize API return status to success
581: x_return_status := G_RET_STS_SUCCESS;
574:
575: BEGIN
576:
577: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2900: Entered delete_doc_version');
579: END IF;
580: -- Initialize API return status to success
581: x_return_status := G_RET_STS_SUCCESS;
582:
580: -- Initialize API return status to success
581: x_return_status := G_RET_STS_SUCCESS;
582:
583:
584: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
585: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3500: Delete records from okc_k_art_varaibles_h for the doc');
586: END IF;
587:
588: x_return_status:=OKC_K_ART_VARIABLES_PVT.delete_version(
581: x_return_status := G_RET_STS_SUCCESS;
582:
583:
584: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
585: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3500: Delete records from okc_k_art_varaibles_h for the doc');
586: END IF;
587:
588: x_return_status:=OKC_K_ART_VARIABLES_PVT.delete_version(
589: p_doc_type => p_doc_type,
597: RAISE FND_API.G_EXC_ERROR ;
598: END IF;
599: --------------------------------------------
600:
601: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
602: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Delete records from okc_k_articles_bh for the doc');
603: END IF;
604:
605: x_return_status:=OKC_K_ARTICLES_PVT.delete_version(
598: END IF;
599: --------------------------------------------
600:
601: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
602: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Delete records from okc_k_articles_bh for the doc');
603: END IF;
604:
605: x_return_status:=OKC_K_ARTICLES_PVT.delete_version(
606: p_doc_type => p_doc_type,
614: RAISE FND_API.G_EXC_ERROR ;
615: END IF;
616: --------------------------------------------
617:
618: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3700: Delete records from okc_sections_h for the doc');
620: END IF;
621: x_return_status:=OKC_TERMS_SECTIONS_PVT.delete_version(
622: p_doc_type => p_doc_type,
615: END IF;
616: --------------------------------------------
617:
618: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3700: Delete records from okc_sections_h for the doc');
620: END IF;
621: x_return_status:=OKC_TERMS_SECTIONS_PVT.delete_version(
622: p_doc_type => p_doc_type,
623: p_doc_id => p_doc_id,
630: RAISE FND_API.G_EXC_ERROR ;
631: END IF;
632: --------------------------------------------
633:
634: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
635: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3800: Delete a record from okc_template_usages_h for the doc');
636: END IF;
637:
638: x_return_status:=OKC_TEMPLATE_USAGES_PVT.delete_version(
631: END IF;
632: --------------------------------------------
633:
634: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
635: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3800: Delete a record from okc_template_usages_h for the doc');
636: END IF;
637:
638: x_return_status:=OKC_TEMPLATE_USAGES_PVT.delete_version(
639: p_doc_type => p_doc_type,
647: RAISE FND_API.G_EXC_ERROR ;
648: END IF;
649: --------------------------------------------
650:
651: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
652: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4000: Leaving delete_doc_version');
653: END IF;
654:
655: EXCEPTION
648: END IF;
649: --------------------------------------------
650:
651: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
652: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4000: Leaving delete_doc_version');
653: END IF;
654:
655: EXCEPTION
656: WHEN FND_API.G_EXC_ERROR THEN
653: END IF;
654:
655: EXCEPTION
656: WHEN FND_API.G_EXC_ERROR THEN
657: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
658: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4100: Leaving delete_doc_version : OKC_API.G_EXCEPTION_ERROR Exception');
659: END IF;
660: x_return_status := G_RET_STS_ERROR ;
661:
654:
655: EXCEPTION
656: WHEN FND_API.G_EXC_ERROR THEN
657: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
658: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4100: Leaving delete_doc_version : OKC_API.G_EXCEPTION_ERROR Exception');
659: END IF;
660: x_return_status := G_RET_STS_ERROR ;
661:
662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
659: END IF;
660: x_return_status := G_RET_STS_ERROR ;
661:
662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
663: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
664: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4200: Leaving delete_doc_version : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
665: END IF;
666: x_return_status := G_RET_STS_UNEXP_ERROR ;
667:
660: x_return_status := G_RET_STS_ERROR ;
661:
662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
663: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
664: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4200: Leaving delete_doc_version : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
665: END IF;
666: x_return_status := G_RET_STS_UNEXP_ERROR ;
667:
668: WHEN OTHERS THEN
666: x_return_status := G_RET_STS_UNEXP_ERROR ;
667:
668: WHEN OTHERS THEN
669:
670: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
671: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4300: Leaving delete_doc_version because of EXCEPTION: '||sqlerrm);
672: END IF;
673:
674: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
667:
668: WHEN OTHERS THEN
669:
670: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
671: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4300: Leaving delete_doc_version because of EXCEPTION: '||sqlerrm);
672: END IF;
673:
674: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
675: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
703: AND var.cat_id = kart.id
704: AND kart.amendment_operation_code IS NULL
705: and var.variable_code = p_variable_code;
706: BEGIN
707: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
708: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4400: Entered Mark_Amendment');
709: END IF;
710: -- Standard Start of API savepoint
711: SAVEPOINT g_Mark_Amendment;
704: AND kart.amendment_operation_code IS NULL
705: and var.variable_code = p_variable_code;
706: BEGIN
707: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
708: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4400: Entered Mark_Amendment');
709: END IF;
710: -- Standard Start of API savepoint
711: SAVEPOINT g_Mark_Amendment;
712: -- Standard call to check for call compatibility.
720: -- Initialize API return status to success
721: x_return_status := G_RET_STS_SUCCESS;
722:
723: -- Delete record from okc_K_ARTICLES
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,'4500: Update each record from okc_K_ARTICLES in a loop');
726: END IF;
727: FOR cr IN idlist_crs LOOP
728: --------------------------------------------
721: x_return_status := G_RET_STS_SUCCESS;
722:
723: -- Delete record from okc_K_ARTICLES
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,'4500: Update each record from okc_K_ARTICLES in a loop');
726: END IF;
727: FOR cr IN idlist_crs LOOP
728: --------------------------------------------
729: -- Update each record from okc_terms_templates for
748: END LOOP;
749:
750: -- Standard call to get message count and if count is 1, get message info.
751: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
752: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
753: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4600: Leaving Mark_Amendment');
754: END IF;
755: EXCEPTION
756: WHEN FND_API.G_EXC_ERROR THEN
749:
750: -- Standard call to get message count and if count is 1, get message info.
751: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
752: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
753: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4600: Leaving Mark_Amendment');
754: END IF;
755: EXCEPTION
756: WHEN FND_API.G_EXC_ERROR THEN
757: ROLLBACK TO g_Mark_Amendment;
754: END IF;
755: EXCEPTION
756: WHEN FND_API.G_EXC_ERROR THEN
757: ROLLBACK TO g_Mark_Amendment;
758: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
759: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4700: Leaving Mark_Amendment : OKC_API.G_EXCEPTION_ERROR Exception');
760: END IF;
761: x_return_status := G_RET_STS_ERROR ;
762: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
755: EXCEPTION
756: WHEN FND_API.G_EXC_ERROR THEN
757: ROLLBACK TO g_Mark_Amendment;
758: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
759: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4700: Leaving Mark_Amendment : OKC_API.G_EXCEPTION_ERROR Exception');
760: END IF;
761: x_return_status := G_RET_STS_ERROR ;
762: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
763:
762: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
763:
764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
765: ROLLBACK TO g_Mark_Amendment;
766: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
767: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4800: Leaving Mark_Amendment : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
768: END IF;
769: x_return_status := G_RET_STS_UNEXP_ERROR ;
770: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
763:
764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
765: ROLLBACK TO g_Mark_Amendment;
766: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
767: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4800: Leaving Mark_Amendment : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
768: END IF;
769: x_return_status := G_RET_STS_UNEXP_ERROR ;
770: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
771:
770: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
771:
772: WHEN OTHERS THEN
773: ROLLBACK TO g_Mark_Amendment;
774: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
775: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4900: Leaving Mark_Amendment because of EXCEPTION: '||sqlerrm);
776: END IF;
777:
778: x_return_status := G_RET_STS_UNEXP_ERROR ;
771:
772: WHEN OTHERS THEN
773: ROLLBACK TO g_Mark_Amendment;
774: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
775: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4900: Leaving Mark_Amendment because of EXCEPTION: '||sqlerrm);
776: END IF;
777:
778: x_return_status := G_RET_STS_UNEXP_ERROR ;
779: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
830: WHERE document_type=G_TMPL_DOC_TYPE
831: AND document_id = p_template_id;
832:
833: BEGIN
834: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
835: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5000: Entered Merge_Template_Working_Copy');
836: END IF;
837: -- Standard Start of API savepoint
838: SAVEPOINT g_Merge_Template_Working_Copy;
831: AND document_id = p_template_id;
832:
833: BEGIN
834: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
835: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5000: Entered Merge_Template_Working_Copy');
836: END IF;
837: -- Standard Start of API savepoint
838: SAVEPOINT g_Merge_Template_Working_Copy;
839: -- Standard call to check for call compatibility.
851:
852: --------------------------------------------
853: -- Get template id of original template
854: --------------------------------------------
855: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
856: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5100: - get template id of original template');
857: END IF;
858: --------------------------------------------
859: OPEN get_par_id_csr;
852: --------------------------------------------
853: -- Get template id of original template
854: --------------------------------------------
855: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
856: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5100: - get template id of original template');
857: END IF;
858: --------------------------------------------
859: OPEN get_par_id_csr;
860: FETCH get_par_id_csr INTO l_base_template_id;
867:
868: --------------------------------------------
869: -- Delete Base Template
870: --------------------------------------------
871: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
872: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5200: - Delete Base Template');
873: END IF;
874: --------------------------------------------
875: OKC_TERMS_TEMPLATES_PVT.Delete_Row(
868: --------------------------------------------
869: -- Delete Base Template
870: --------------------------------------------
871: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
872: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5200: - Delete Base Template');
873: END IF;
874: --------------------------------------------
875: OKC_TERMS_TEMPLATES_PVT.Delete_Row(
876: x_return_status => x_return_status,
905:
906: --------------------------------------------
907: -- Delete record from okc_k_art_varaibles
908: --------------------------------------------
909: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
910: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5300: Delete records from okc_k_art_varaibles for the doc');
911: END IF;
912: --------------------------------------------
913: OKC_K_ART_VARIABLES_PVT.delete_set(
906: --------------------------------------------
907: -- Delete record from okc_k_art_varaibles
908: --------------------------------------------
909: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
910: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5300: Delete records from okc_k_art_varaibles for the doc');
911: END IF;
912: --------------------------------------------
913: OKC_K_ART_VARIABLES_PVT.delete_set(
914: x_return_status => x_return_status,
925:
926: --------------------------------------------
927: -- Delete record from okc_k_articles_v
928: --------------------------------------------
929: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
930: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5400: Delete records from okc_k_articles_v for the doc');
931: END IF;
932: --------------------------------------------
933: OKC_K_ARTICLES_PVT.delete_set(
926: --------------------------------------------
927: -- Delete record from okc_k_articles_v
928: --------------------------------------------
929: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
930: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5400: Delete records from okc_k_articles_v for the doc');
931: END IF;
932: --------------------------------------------
933: OKC_K_ARTICLES_PVT.delete_set(
934: x_return_status => x_return_status,
945:
946: --------------------------------------------
947: -- Delete record from okc_sections_v
948: --------------------------------------------
949: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5500: Delete records from okc_sections_v for the doc');
951: END IF;
952: OKC_TERMS_SECTIONS_PVT.delete_set(
953: x_return_status => x_return_status,
946: --------------------------------------------
947: -- Delete record from okc_sections_v
948: --------------------------------------------
949: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5500: Delete records from okc_sections_v for the doc');
951: END IF;
952: OKC_TERMS_SECTIONS_PVT.delete_set(
953: x_return_status => x_return_status,
954: p_doc_type => G_TMPL_DOC_TYPE,
964:
965: --------------------------------------------
966: -- Delete base template's Deliverables: Call Deliverable API to delete delevirable from the base template.
967: --------------------------------------------
968: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
969: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5600: Delete delevirable from the base template');
970: END IF;
971: Okc_Deliverable_Process_Pvt.Delete_Deliverables(
972: p_api_version => p_api_version,
965: --------------------------------------------
966: -- Delete base template's Deliverables: Call Deliverable API to delete delevirable from the base template.
967: --------------------------------------------
968: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
969: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5600: Delete delevirable from the base template');
970: END IF;
971: Okc_Deliverable_Process_Pvt.Delete_Deliverables(
972: p_api_version => p_api_version,
973: p_init_msg_list => p_init_msg_list,
989:
990: --------------------------------------------
991: -- Update Template Id of working template:
992: --------------------------------------------
993: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
994: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5700: Update Template Id of working template to old template');
995: END IF;
996:
997: OKC_TERMS_TEMPLATES_PVT.Update_Template_Id(
990: --------------------------------------------
991: -- Update Template Id of working template:
992: --------------------------------------------
993: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
994: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5700: Update Template Id of working template to old template');
995: END IF;
996:
997: OKC_TERMS_TEMPLATES_PVT.Update_Template_Id(
998: x_return_status => x_return_status,
1009:
1010: --------------------------------------------
1011: -- Update Allowed template Usages Record:
1012: --------------------------------------------
1013: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1014: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5800: Update Template Id of working template to old template for the template Usages ');
1015: END IF;
1016: Update_Allowed_Tmpl_Usages_Id(
1017: x_return_status => x_return_status,
1010: --------------------------------------------
1011: -- Update Allowed template Usages Record:
1012: --------------------------------------------
1013: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1014: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5800: Update Template Id of working template to old template for the template Usages ');
1015: END IF;
1016: Update_Allowed_Tmpl_Usages_Id(
1017: x_return_status => x_return_status,
1018: x_msg_data => x_msg_data,
1030:
1031: --------------------------------------------
1032: -- Update sections of working template:
1033: --------------------------------------------
1034: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1035: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5900: Update Template Id of working template to old template for the sections');
1036: END IF;
1037: FOR cr IN sect_csr LOOP
1038: --------------------------------------------
1031: --------------------------------------------
1032: -- Update sections of working template:
1033: --------------------------------------------
1034: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1035: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5900: Update Template Id of working template to old template for the sections');
1036: END IF;
1037: FOR cr IN sect_csr LOOP
1038: --------------------------------------------
1039: -- Update each record from okc_K_ARTICLES for
1055:
1056: --------------------------------------------
1057: -- Update articles of working template:
1058: --------------------------------------------
1059: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1060: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6000: Update Template Id of working template to old template for the articles');
1061: END IF;
1062: FOR cr IN kart_csr LOOP
1063: --------------------------------------------
1056: --------------------------------------------
1057: -- Update articles of working template:
1058: --------------------------------------------
1059: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1060: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6000: Update Template Id of working template to old template for the articles');
1061: END IF;
1062: FOR cr IN kart_csr LOOP
1063: --------------------------------------------
1064: -- Update each record from okc_K_ARTICLES for
1136: -- ================ Actual Procedure Code end =======================
1137:
1138: -- Standard call to get message count and if count is 1, get message info.
1139: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1140: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1141: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6100: Leaving Merge_Template_Working_Copy');
1142: END IF;
1143:
1144: EXCEPTION
1137:
1138: -- Standard call to get message count and if count is 1, get message info.
1139: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1140: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1141: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6100: Leaving Merge_Template_Working_Copy');
1142: END IF;
1143:
1144: EXCEPTION
1145: WHEN FND_API.G_EXC_ERROR THEN
1143:
1144: EXCEPTION
1145: WHEN FND_API.G_EXC_ERROR THEN
1146: ROLLBACK TO g_Merge_Template_Working_Copy;
1147: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1148: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6200: Leaving Merge_Template_Working_Copy : OKC_API.G_EXCEPTION_ERROR Exception');
1149: END IF;
1150: x_return_status := G_RET_STS_ERROR ;
1151: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1144: EXCEPTION
1145: WHEN FND_API.G_EXC_ERROR THEN
1146: ROLLBACK TO g_Merge_Template_Working_Copy;
1147: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1148: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6200: Leaving Merge_Template_Working_Copy : OKC_API.G_EXCEPTION_ERROR Exception');
1149: END IF;
1150: x_return_status := G_RET_STS_ERROR ;
1151: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1152:
1151: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1152:
1153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1154: ROLLBACK TO g_Merge_Template_Working_Copy;
1155: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1156: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6300: Leaving Merge_Template_Working_Copy : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1157: END IF;
1158: x_return_status := G_RET_STS_UNEXP_ERROR ;
1159: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1152:
1153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1154: ROLLBACK TO g_Merge_Template_Working_Copy;
1155: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1156: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6300: Leaving Merge_Template_Working_Copy : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1157: END IF;
1158: x_return_status := G_RET_STS_UNEXP_ERROR ;
1159: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1160:
1159: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1160:
1161: WHEN OTHERS THEN
1162: ROLLBACK TO g_Merge_Template_Working_Copy;
1163: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1164: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6400: Leaving Merge_Template_Working_Copy because of EXCEPTION: '||sqlerrm);
1165: END IF;
1166:
1167: x_return_status := G_RET_STS_UNEXP_ERROR ;
1160:
1161: WHEN OTHERS THEN
1162: ROLLBACK TO g_Merge_Template_Working_Copy;
1163: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1164: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6400: Leaving Merge_Template_Working_Copy because of EXCEPTION: '||sqlerrm);
1165: END IF;
1166:
1167: x_return_status := G_RET_STS_UNEXP_ERROR ;
1168: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1210: SELECT document_type_class
1211: FROM okc_bus_doc_types_v
1212: WHERE document_type=p_doc_type;
1213: BEGIN
1214: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1215: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6500: Entered Get_System_Variables');
1216: END IF;
1217: -- Standard Start of API savepoint
1218: SAVEPOINT g_Get_System_Variables;
1211: FROM okc_bus_doc_types_v
1212: WHERE document_type=p_doc_type;
1213: BEGIN
1214: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1215: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6500: Entered Get_System_Variables');
1216: END IF;
1217: -- Standard Start of API savepoint
1218: SAVEPOINT g_Get_System_Variables;
1219: -- Standard call to check for call compatibility.
1344: END IF;
1345:
1346: -- Standard call to get message count and if count is 1, get message info.
1347: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1348: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1349: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6600: Leaving Get_System_Variables');
1350: END IF;
1351: EXCEPTION
1352: WHEN FND_API.G_EXC_ERROR THEN
1345:
1346: -- Standard call to get message count and if count is 1, get message info.
1347: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1348: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1349: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6600: Leaving Get_System_Variables');
1350: END IF;
1351: EXCEPTION
1352: WHEN FND_API.G_EXC_ERROR THEN
1353: ROLLBACK TO g_Get_System_Variables;
1350: END IF;
1351: EXCEPTION
1352: WHEN FND_API.G_EXC_ERROR THEN
1353: ROLLBACK TO g_Get_System_Variables;
1354: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1355: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6700: Leaving Get_System_Variables : OKC_API.G_EXCEPTION_ERROR Exception');
1356: END IF;
1357: x_return_status := G_RET_STS_ERROR ;
1358: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1351: EXCEPTION
1352: WHEN FND_API.G_EXC_ERROR THEN
1353: ROLLBACK TO g_Get_System_Variables;
1354: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1355: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6700: Leaving Get_System_Variables : OKC_API.G_EXCEPTION_ERROR Exception');
1356: END IF;
1357: x_return_status := G_RET_STS_ERROR ;
1358: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1359:
1358: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1359:
1360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361: ROLLBACK TO g_Get_System_Variables;
1362: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1363: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6800: Leaving Get_System_Variables : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1364: END IF;
1365: x_return_status := G_RET_STS_UNEXP_ERROR ;
1366: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1359:
1360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361: ROLLBACK TO g_Get_System_Variables;
1362: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1363: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6800: Leaving Get_System_Variables : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1364: END IF;
1365: x_return_status := G_RET_STS_UNEXP_ERROR ;
1366: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1367:
1366: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1367:
1368: WHEN OTHERS THEN
1369: ROLLBACK TO g_Get_System_Variables;
1370: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1371: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6900: Leaving Get_System_Variables because of EXCEPTION: '||sqlerrm);
1372: END IF;
1373:
1374: x_return_status := G_RET_STS_UNEXP_ERROR ;
1367:
1368: WHEN OTHERS THEN
1369: ROLLBACK TO g_Get_System_Variables;
1370: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1371: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6900: Leaving Get_System_Variables because of EXCEPTION: '||sqlerrm);
1372: END IF;
1373:
1374: x_return_status := G_RET_STS_UNEXP_ERROR ;
1375: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1415: WHERE document_type=p_doc_type AND document_id=p_doc_id
1416: and EXISTS (SELECT '!' FROM okc_k_art_variables v
1417: WHERE v.variable_code=p_variable_code AND v.cat_id = a.cat_id );
1418: BEGIN
1419: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1420: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7000: Entered Substitute_Var_Value_Globally');
1421: END IF;
1422: -- Standard Start of API savepoint
1423: SAVEPOINT g_Subst_Var_Value_Globally;
1416: and EXISTS (SELECT '!' FROM okc_k_art_variables v
1417: WHERE v.variable_code=p_variable_code AND v.cat_id = a.cat_id );
1418: BEGIN
1419: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1420: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7000: Entered Substitute_Var_Value_Globally');
1421: END IF;
1422: -- Standard Start of API savepoint
1423: SAVEPOINT g_Subst_Var_Value_Globally;
1424: -- Standard call to check for call compatibility.
1510: END IF;
1511:
1512: -- Standard call to get message count and if count is 1, get message info.
1513: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1514: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1515: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7100: Leaving Substitute_Var_Value_Globally');
1516: END IF;
1517: EXCEPTION
1518: WHEN FND_API.G_EXC_ERROR THEN
1511:
1512: -- Standard call to get message count and if count is 1, get message info.
1513: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1514: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1515: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7100: Leaving Substitute_Var_Value_Globally');
1516: END IF;
1517: EXCEPTION
1518: WHEN FND_API.G_EXC_ERROR THEN
1519: ROLLBACK TO g_Subst_Var_Value_Globally;
1516: END IF;
1517: EXCEPTION
1518: WHEN FND_API.G_EXC_ERROR THEN
1519: ROLLBACK TO g_Subst_Var_Value_Globally;
1520: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1521: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7200: Leaving Substitute_Var_Value_Globally : OKC_API.G_EXCEPTION_ERROR Exception');
1522: END IF;
1523: x_return_status := G_RET_STS_ERROR ;
1524: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1517: EXCEPTION
1518: WHEN FND_API.G_EXC_ERROR THEN
1519: ROLLBACK TO g_Subst_Var_Value_Globally;
1520: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1521: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7200: Leaving Substitute_Var_Value_Globally : OKC_API.G_EXCEPTION_ERROR Exception');
1522: END IF;
1523: x_return_status := G_RET_STS_ERROR ;
1524: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1525:
1524: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1525:
1526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1527: ROLLBACK TO g_Subst_Var_Value_Globally;
1528: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1529: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7300: Leaving Substitute_Var_Value_Globally : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1530: END IF;
1531: x_return_status := G_RET_STS_UNEXP_ERROR ;
1532: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1525:
1526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1527: ROLLBACK TO g_Subst_Var_Value_Globally;
1528: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1529: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7300: Leaving Substitute_Var_Value_Globally : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1530: END IF;
1531: x_return_status := G_RET_STS_UNEXP_ERROR ;
1532: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1533:
1532: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1533:
1534: WHEN OTHERS THEN
1535: ROLLBACK TO g_Subst_Var_Value_Globally;
1536: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1537: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7400: Leaving Substitute_Var_Value_Globally because of EXCEPTION: '||sqlerrm);
1538: END IF;
1539:
1540: x_return_status := G_RET_STS_UNEXP_ERROR ;
1533:
1534: WHEN OTHERS THEN
1535: ROLLBACK TO g_Subst_Var_Value_Globally;
1536: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1537: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7400: Leaving Substitute_Var_Value_Globally because of EXCEPTION: '||sqlerrm);
1538: END IF;
1539:
1540: x_return_status := G_RET_STS_UNEXP_ERROR ;
1541: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1573: AND DOCUMENT_ID = p_doc_id
1574: AND SCN_ID IS NULL;
1575:
1576: BEGIN
1577: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1578: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7500: Entered Create_Unassigned_Section');
1579: END IF;
1580: -- Standard Start of API savepoint
1581: SAVEPOINT g_Create_Unassigned_Section;
1574: AND SCN_ID IS NULL;
1575:
1576: BEGIN
1577: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1578: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7500: Entered Create_Unassigned_Section');
1579: END IF;
1580: -- Standard Start of API savepoint
1581: SAVEPOINT g_Create_Unassigned_Section;
1582: -- Standard call to check for call compatibility.
1595: -- doc_type=p_doc_type, doc_id=p_doc_id, scn_code=G_UNASSIGNED_SECTION_CODE,
1596: -- heading = < get meaning of G_UNASSIGNED_SECTION_CODE by quering fnd_lookups>.
1597: -- Set x_scn_id to id returned by simpel API.
1598: --------------------------------------------
1599: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1600: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7600: Calling Simple API to Create a Section');
1601: END IF;
1602: --------------------------------------------
1603: l_meaning := Okc_Util.Decode_Lookup('OKC_ARTICLE_SECTION',G_UNASSIGNED_SECTION_CODE);
1596: -- heading = < get meaning of G_UNASSIGNED_SECTION_CODE by quering fnd_lookups>.
1597: -- Set x_scn_id to id returned by simpel API.
1598: --------------------------------------------
1599: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1600: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7600: Calling Simple API to Create a Section');
1601: END IF;
1602: --------------------------------------------
1603: l_meaning := Okc_Util.Decode_Lookup('OKC_ARTICLE_SECTION',G_UNASSIGNED_SECTION_CODE);
1604:
1641: COMMIT WORK;
1642: END IF;
1643: -- Standard call to get message count and if count is 1, get message info.
1644: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1645: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1646: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7700: Leaving Create_Unassigned_Section');
1647: END IF;
1648: EXCEPTION
1649: WHEN FND_API.G_EXC_ERROR THEN
1642: END IF;
1643: -- Standard call to get message count and if count is 1, get message info.
1644: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1645: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1646: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7700: Leaving Create_Unassigned_Section');
1647: END IF;
1648: EXCEPTION
1649: WHEN FND_API.G_EXC_ERROR THEN
1650: ROLLBACK TO g_Create_Unassigned_Section;
1647: END IF;
1648: EXCEPTION
1649: WHEN FND_API.G_EXC_ERROR THEN
1650: ROLLBACK TO g_Create_Unassigned_Section;
1651: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1652: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7800: Leaving Create_Unassigned_Section : OKC_API.G_EXCEPTION_ERROR Exception');
1653: END IF;
1654:
1655: IF l_get_max_seq_csr%ISOPEN THEN
1648: EXCEPTION
1649: WHEN FND_API.G_EXC_ERROR THEN
1650: ROLLBACK TO g_Create_Unassigned_Section;
1651: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1652: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7800: Leaving Create_Unassigned_Section : OKC_API.G_EXCEPTION_ERROR Exception');
1653: END IF;
1654:
1655: IF l_get_max_seq_csr%ISOPEN THEN
1656: CLOSE l_get_max_seq_csr;
1660: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1661:
1662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1663: ROLLBACK TO g_Create_Unassigned_Section;
1664: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1665: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving Create_Unassigned_Section : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1666: END IF;
1667:
1668: IF l_get_max_seq_csr%ISOPEN THEN
1661:
1662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1663: ROLLBACK TO g_Create_Unassigned_Section;
1664: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1665: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving Create_Unassigned_Section : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1666: END IF;
1667:
1668: IF l_get_max_seq_csr%ISOPEN THEN
1669: CLOSE l_get_max_seq_csr;
1673: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1674:
1675: WHEN OTHERS THEN
1676: ROLLBACK TO g_Create_Unassigned_Section;
1677: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1678: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8000: Leaving Create_Unassigned_Section because of EXCEPTION: '||sqlerrm);
1679: END IF;
1680:
1681: IF l_get_max_seq_csr%ISOPEN THEN
1674:
1675: WHEN OTHERS THEN
1676: ROLLBACK TO g_Create_Unassigned_Section;
1677: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1678: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8000: Leaving Create_Unassigned_Section because of EXCEPTION: '||sqlerrm);
1679: END IF;
1680:
1681: IF l_get_max_seq_csr%ISOPEN THEN
1682: CLOSE l_get_max_seq_csr;
2725: -- current Org Id
2726: -- fnd_profile.get('ORG_ID',l_current_org_id);
2727: l_current_org_id := OKC_TERMS_UTIL_PVT.get_current_org_id(p_document_type, p_document_id);
2728:
2729: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2730: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: l_article_org_id : '||l_article_org_id);
2731: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: l_current_org_id : '||l_current_org_id);
2732: END IF;
2733:
2726: -- fnd_profile.get('ORG_ID',l_current_org_id);
2727: l_current_org_id := OKC_TERMS_UTIL_PVT.get_current_org_id(p_document_type, p_document_id);
2728:
2729: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2730: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: l_article_org_id : '||l_article_org_id);
2731: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: l_current_org_id : '||l_current_org_id);
2732: END IF;
2733:
2734: IF nvl(l_current_org_id,'?') <> l_article_org_id THEN
2727: l_current_org_id := OKC_TERMS_UTIL_PVT.get_current_org_id(p_document_type, p_document_id);
2728:
2729: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2730: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: l_article_org_id : '||l_article_org_id);
2731: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: l_current_org_id : '||l_current_org_id);
2732: END IF;
2733:
2734: IF nvl(l_current_org_id,'?') <> l_article_org_id THEN
2735: -- this is a ADOPTED OR LOCALIZED ARTICLE
3028: RETURN 'N' ;
3029: END IF;
3030: EXCEPTION
3031: WHEN OTHERS THEN
3032: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3033: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving is_Function_Accessible because of EXCEPTION: '||sqlerrm);
3034: END IF;
3035: RETURN NULL;
3036: END is_Function_Accessible;
3029: END IF;
3030: EXCEPTION
3031: WHEN OTHERS THEN
3032: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3033: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving is_Function_Accessible because of EXCEPTION: '||sqlerrm);
3034: END IF;
3035: RETURN NULL;
3036: END is_Function_Accessible;
3037:
3125: and b.org_id = p_org_id
3126: and nvl(p_eff_date,trunc(sysdate)) between start_date and nvl(end_date, trunc(sysdate));
3127:
3128: BEGIN
3129: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3130: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7500: Entered get_template_details');
3131: END IF;
3132:
3133: -- Standard call to check for call compatibility.
3126: and nvl(p_eff_date,trunc(sysdate)) between start_date and nvl(end_date, trunc(sysdate));
3127:
3128: BEGIN
3129: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3130: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7500: Entered get_template_details');
3131: END IF;
3132:
3133: -- Standard call to check for call compatibility.
3134: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3147: x_template_org_id := 0;
3148:
3149:
3150: --------------------------------------------
3151: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3152: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7600: get_template_details');
3153: END IF;
3154: --------------------------------------------
3155:
3148:
3149:
3150: --------------------------------------------
3151: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3152: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7600: get_template_details');
3153: END IF;
3154: --------------------------------------------
3155:
3156:
3237: COMMIT WORK;
3238: END IF;
3239: -- Standard call to get message count and if count is 1, get message info.
3240: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3241: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3242: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7700: Leaving get_template_details');
3243: END IF;
3244: EXCEPTION
3245: WHEN FND_API.G_EXC_ERROR THEN
3238: END IF;
3239: -- Standard call to get message count and if count is 1, get message info.
3240: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3241: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3242: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7700: Leaving get_template_details');
3243: END IF;
3244: EXCEPTION
3245: WHEN FND_API.G_EXC_ERROR THEN
3246:
3243: END IF;
3244: EXCEPTION
3245: WHEN FND_API.G_EXC_ERROR THEN
3246:
3247: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3248: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7800: Leaving get_template_details : OKC_API.G_EXCEPTION_ERROR Exception');
3249: END IF;
3250:
3251: IF l_get_template_details_csr%ISOPEN THEN
3244: EXCEPTION
3245: WHEN FND_API.G_EXC_ERROR THEN
3246:
3247: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3248: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7800: Leaving get_template_details : OKC_API.G_EXCEPTION_ERROR Exception');
3249: END IF;
3250:
3251: IF l_get_template_details_csr%ISOPEN THEN
3252: CLOSE l_get_template_details_csr;
3260: x_return_status := G_RET_STS_ERROR ;
3261: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3262:
3263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3264: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3265: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving get_template_details : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
3266: END IF;
3267:
3268: IF l_get_template_details_csr%ISOPEN THEN
3261: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3262:
3263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3264: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3265: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving get_template_details : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
3266: END IF;
3267:
3268: IF l_get_template_details_csr%ISOPEN THEN
3269: CLOSE l_get_template_details_csr;
3275: x_return_status := G_RET_STS_UNEXP_ERROR ;
3276: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3277:
3278: WHEN OTHERS THEN
3279: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3280: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8000: Leaving get_template_details because of EXCEPTION: '||sqlerrm);
3281: END IF;
3282:
3283: IF l_get_template_details_csr%ISOPEN THEN
3276: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3277:
3278: WHEN OTHERS THEN
3279: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3280: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8000: Leaving get_template_details because of EXCEPTION: '||sqlerrm);
3281: END IF;
3282:
3283: IF l_get_template_details_csr%ISOPEN THEN
3284: CLOSE l_get_template_details_csr;
3333: RETURN l_return;
3334:
3335: EXCEPTION
3336: WHEN OTHERS THEN
3337: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3338: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving is_section_deleted because of EXCEPTION: '||sqlerrm);
3339: END IF;
3340: RETURN NULL;
3341:
3334:
3335: EXCEPTION
3336: WHEN OTHERS THEN
3337: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3338: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving is_section_deleted because of EXCEPTION: '||sqlerrm);
3339: END IF;
3340: RETURN NULL;
3341:
3342: END is_section_deleted;
3378: END IF;
3379:
3380: EXCEPTION
3381: WHEN OTHERS THEN
3382: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3383: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving is_article_deleted because of EXCEPTION: '||sqlerrm);
3384: END IF;
3385: RETURN NULL;
3386:
3379:
3380: EXCEPTION
3381: WHEN OTHERS THEN
3382: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3383: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving is_article_deleted because of EXCEPTION: '||sqlerrm);
3384: END IF;
3385: RETURN NULL;
3386:
3387: END is_article_deleted;
3414: l_msg_count NUMBER;
3415: l_return_status VARCHAR2(30);
3416:
3417: BEGIN
3418: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1000: Entered OKC_TERMS_UTIL_PVT.deliverable_amendment_exists');
3420: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1010: p_cat_id='||p_cat_id);
3421: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1020: p_document_id='||p_document_id);
3422: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1030: p_document_type='||p_document_type);
3415: l_return_status VARCHAR2(30);
3416:
3417: BEGIN
3418: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1000: Entered OKC_TERMS_UTIL_PVT.deliverable_amendment_exists');
3420: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1010: p_cat_id='||p_cat_id);
3421: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1020: p_document_id='||p_document_id);
3422: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1030: p_document_type='||p_document_type);
3423: END IF;
3416:
3417: BEGIN
3418: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1000: Entered OKC_TERMS_UTIL_PVT.deliverable_amendment_exists');
3420: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1010: p_cat_id='||p_cat_id);
3421: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1020: p_document_id='||p_document_id);
3422: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1030: p_document_type='||p_document_type);
3423: END IF;
3424: FOR rec IN l_doc_variable_csr LOOP
3417: BEGIN
3418: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1000: Entered OKC_TERMS_UTIL_PVT.deliverable_amendment_exists');
3420: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1010: p_cat_id='||p_cat_id);
3421: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1020: p_document_id='||p_document_id);
3422: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1030: p_document_type='||p_document_type);
3423: END IF;
3424: FOR rec IN l_doc_variable_csr LOOP
3425: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3418: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1000: Entered OKC_TERMS_UTIL_PVT.deliverable_amendment_exists');
3420: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1010: p_cat_id='||p_cat_id);
3421: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1020: p_document_id='||p_document_id);
3422: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1030: p_document_type='||p_document_type);
3423: END IF;
3424: FOR rec IN l_doc_variable_csr LOOP
3425: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3426: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1040: Before calling OKC_DELIVERABLE_PROCESS_PVT.deliverable_amendment_exists');
3421: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1020: p_document_id='||p_document_id);
3422: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1030: p_document_type='||p_document_type);
3423: END IF;
3424: FOR rec IN l_doc_variable_csr LOOP
3425: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3426: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1040: Before calling OKC_DELIVERABLE_PROCESS_PVT.deliverable_amendment_exists');
3427: END IF;
3428: l_return := OKC_DELIVERABLE_PROCESS_PVT.deliverable_amendment_exists
3429: ( p_api_version => 1,
3422: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1030: p_document_type='||p_document_type);
3423: END IF;
3424: FOR rec IN l_doc_variable_csr LOOP
3425: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3426: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1040: Before calling OKC_DELIVERABLE_PROCESS_PVT.deliverable_amendment_exists');
3427: END IF;
3428: l_return := OKC_DELIVERABLE_PROCESS_PVT.deliverable_amendment_exists
3429: ( p_api_version => 1,
3430: p_init_msg_list => FND_API.G_FALSE,
3433: p_variable_code => rec.variable_code,
3434: x_msg_data => l_msg_data,
3435: x_msg_count => l_msg_count,
3436: x_return_status => l_return_status);
3437: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3438: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1050: After calling OKC_DELIVERABLE_PROCESS_PVT.deliverable_amendment_exists');
3439: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1060: x_return_status='||l_return_status);
3440: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1070: l_return='||l_return);
3441: END IF;
3434: x_msg_data => l_msg_data,
3435: x_msg_count => l_msg_count,
3436: x_return_status => l_return_status);
3437: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3438: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1050: After calling OKC_DELIVERABLE_PROCESS_PVT.deliverable_amendment_exists');
3439: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1060: x_return_status='||l_return_status);
3440: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1070: l_return='||l_return);
3441: END IF;
3442: IF l_return = 'Y' THEN
3435: x_msg_count => l_msg_count,
3436: x_return_status => l_return_status);
3437: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3438: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1050: After calling OKC_DELIVERABLE_PROCESS_PVT.deliverable_amendment_exists');
3439: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1060: x_return_status='||l_return_status);
3440: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1070: l_return='||l_return);
3441: END IF;
3442: IF l_return = 'Y' THEN
3443: RETURN l_return;
3436: x_return_status => l_return_status);
3437: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3438: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1050: After calling OKC_DELIVERABLE_PROCESS_PVT.deliverable_amendment_exists');
3439: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1060: x_return_status='||l_return_status);
3440: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1070: l_return='||l_return);
3441: END IF;
3442: IF l_return = 'Y' THEN
3443: RETURN l_return;
3444: END IF;
3442: IF l_return = 'Y' THEN
3443: RETURN l_return;
3444: END IF;
3445: END LOOP;
3446: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3447: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1090: l_return='||l_return);
3448: END IF;
3449:
3450: RETURN l_return;
3443: RETURN l_return;
3444: END IF;
3445: END LOOP;
3446: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3447: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1090: l_return='||l_return);
3448: END IF;
3449:
3450: RETURN l_return;
3451:
3450: RETURN l_return;
3451:
3452: EXCEPTION
3453: WHEN OTHERS THEN
3454: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3455: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1090: Leaving OKC_TERMS_UTIL_PVT.deliverable_amendment_exists because of EXCEPTION: '||sqlerrm);
3456: END IF;
3457: RETURN 'N';
3458:
3451:
3452: EXCEPTION
3453: WHEN OTHERS THEN
3454: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3455: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1090: Leaving OKC_TERMS_UTIL_PVT.deliverable_amendment_exists because of EXCEPTION: '||sqlerrm);
3456: END IF;
3457: RETURN 'N';
3458:
3459: END deliverable_amendment_exists;
3479: E_Resource_Busy EXCEPTION;
3480: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
3481:
3482: BEGIN
3483: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3484: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: Inside OKC_TERMS_UTIL_PVT.PURGE_QA_RESULTS');
3485: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'Parameters: p_num_days='||p_num_days);
3486: END IF;
3487:
3480: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
3481:
3482: BEGIN
3483: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3484: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: Inside OKC_TERMS_UTIL_PVT.PURGE_QA_RESULTS');
3485: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'Parameters: p_num_days='||p_num_days);
3486: END IF;
3487:
3488: FND_FILE.PUT_LINE(FND_FILE.LOG,'Parameters: p_num_days='||p_num_days);
3481:
3482: BEGIN
3483: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3484: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: Inside OKC_TERMS_UTIL_PVT.PURGE_QA_RESULTS');
3485: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'Parameters: p_num_days='||p_num_days);
3486: END IF;
3487:
3488: FND_FILE.PUT_LINE(FND_FILE.LOG,'Parameters: p_num_days='||p_num_days);
3489: if p_num_days < 1 then
3500: where creation_date <= sysdate - l_num_days;
3501:
3502: commit;
3503:
3504: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: leaving OKC_TERMS_UTIL_PVT.PURGE_QA_RESULTS');
3506: END IF;
3507: EXCEPTION
3508: WHEN E_Resource_Busy THEN
3501:
3502: commit;
3503:
3504: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: leaving OKC_TERMS_UTIL_PVT.PURGE_QA_RESULTS');
3506: END IF;
3507: EXCEPTION
3508: WHEN E_Resource_Busy THEN
3509: l_return_status := fnd_api.g_ret_sts_error;
3506: END IF;
3507: EXCEPTION
3508: WHEN E_Resource_Busy THEN
3509: l_return_status := fnd_api.g_ret_sts_error;
3510: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3511: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'200: Resource busy exception');
3512: END IF;
3513: IF FND_MSG_PUB.Count_Msg > 0 Then
3514: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
3507: EXCEPTION
3508: WHEN E_Resource_Busy THEN
3509: l_return_status := fnd_api.g_ret_sts_error;
3510: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3511: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'200: Resource busy exception');
3512: END IF;
3513: IF FND_MSG_PUB.Count_Msg > 0 Then
3514: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
3515: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
3520: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3521: WHEN OTHERS THEN
3522: retcode := 2;
3523: errbuf := substr(sqlerrm,1,200);
3524: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3525: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'200: Other exception');
3526: END IF;
3527: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3528: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3521: WHEN OTHERS THEN
3522: retcode := 2;
3523: errbuf := substr(sqlerrm,1,200);
3524: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3525: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'200: Other exception');
3526: END IF;
3527: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3528: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3529: END IF;
3916: x_return_status := G_RET_STS_SUCCESS;
3917: x_drafts_present := 'N';
3918: l_row_notfound := false;
3919:
3920: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3921: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entering create_tmpl_clauses_to_submit');
3922: END IF;
3923:
3924:
3917: x_drafts_present := 'N';
3918: l_row_notfound := false;
3919:
3920: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3921: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entering create_tmpl_clauses_to_submit');
3922: END IF;
3923:
3924:
3925: IF p_template_start_date is NULL THEN
3950: ELSE
3951: l_effective_date := l_end_date;
3952: END IF;
3953:
3954: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3955: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Effective date is '||l_effective_date);
3956: END IF;
3957:
3958:
3951: l_effective_date := l_end_date;
3952: END IF;
3953:
3954: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3955: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Effective date is '||l_effective_date);
3956: END IF;
3957:
3958:
3959: OPEN draft_articles_csr(p_org_id, l_effective_date, p_template_id);
3963: IF article_id_tbl.COUNT = 0 THEN
3964: x_drafts_present := 'N';
3965: ELSIF article_id_tbl.COUNT > 0 THEN
3966: x_drafts_present := 'Y';
3967: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3968: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Draft clauses exist. Number of Draft clauses: '||draft_articles_tbl.COUNT);
3969: END IF;
3970:
3971:
3964: x_drafts_present := 'N';
3965: ELSIF article_id_tbl.COUNT > 0 THEN
3966: x_drafts_present := 'Y';
3967: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3968: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Draft clauses exist. Number of Draft clauses: '||draft_articles_tbl.COUNT);
3969: END IF;
3970:
3971:
3972: FOR i IN article_id_tbl.FIRST..article_id_tbl.LAST LOOP
4082: END IF;
4083:
4084: EXCEPTION
4085: WHEN FND_API.G_EXC_ERROR THEN
4086: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4087: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'300: Leaving create_tmpl_clauses_to_submit: OKC_API.G_EXCEPTION_ERROR Exception');
4088: END IF;
4089: x_return_status := G_RET_STS_ERROR;
4090:
4083:
4084: EXCEPTION
4085: WHEN FND_API.G_EXC_ERROR THEN
4086: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4087: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'300: Leaving create_tmpl_clauses_to_submit: OKC_API.G_EXCEPTION_ERROR Exception');
4088: END IF;
4089: x_return_status := G_RET_STS_ERROR;
4090:
4091: WHEN OTHERS THEN
4088: END IF;
4089: x_return_status := G_RET_STS_ERROR;
4090:
4091: WHEN OTHERS THEN
4092: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4093: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving create_tmpl_clauses_to_submit because of EXCEPTION: '||sqlerrm);
4094: END IF;
4095: Okc_Api.Set_Message(
4096: p_app_name => G_APP_NAME,
4089: x_return_status := G_RET_STS_ERROR;
4090:
4091: WHEN OTHERS THEN
4092: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4093: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving create_tmpl_clauses_to_submit because of EXCEPTION: '||sqlerrm);
4094: END IF;
4095: Okc_Api.Set_Message(
4096: p_app_name => G_APP_NAME,
4097: p_msg_name => G_UNEXPECTED_ERROR,
4174: AND adp.adoption_type = 'ADOPTED');
4175: -- End of Fix for the bug# 5011432
4176: BEGIN
4177:
4178: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4179: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered unadopted_art_exist_on_tmpl');
4180: END IF;
4181:
4182: OPEN unadopted_art_chk_csr(p_template_id,p_org_id);
4175: -- End of Fix for the bug# 5011432
4176: BEGIN
4177:
4178: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4179: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered unadopted_art_exist_on_tmpl');
4180: END IF;
4181:
4182: OPEN unadopted_art_chk_csr(p_template_id,p_org_id);
4183: FETCH unadopted_art_chk_csr INTO l_dummy;
4182: OPEN unadopted_art_chk_csr(p_template_id,p_org_id);
4183: FETCH unadopted_art_chk_csr INTO l_dummy;
4184: CLOSE unadopted_art_chk_csr;
4185:
4186: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4187: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Fetched unadopted_art_chk_csr');
4188: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: l_dummy='||l_dummy);
4189: END IF;
4190:
4183: FETCH unadopted_art_chk_csr INTO l_dummy;
4184: CLOSE unadopted_art_chk_csr;
4185:
4186: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4187: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Fetched unadopted_art_chk_csr');
4188: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: l_dummy='||l_dummy);
4189: END IF;
4190:
4191: RETURN l_dummy;
4184: CLOSE unadopted_art_chk_csr;
4185:
4186: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4187: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Fetched unadopted_art_chk_csr');
4188: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: l_dummy='||l_dummy);
4189: END IF;
4190:
4191: RETURN l_dummy;
4192:
4191: RETURN l_dummy;
4192:
4193: EXCEPTION
4194: WHEN OTHERS THEN
4195: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4196: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving unadopted_art_exist_on_tmpl because of EXCEPTION: '||sqlerrm);
4197: END IF;
4198:
4199: IF (unadopted_art_chk_csr%ISOPEN) THEN
4192:
4193: EXCEPTION
4194: WHEN OTHERS THEN
4195: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4196: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving unadopted_art_exist_on_tmpl because of EXCEPTION: '||sqlerrm);
4197: END IF;
4198:
4199: IF (unadopted_art_chk_csr%ISOPEN) THEN
4200: CLOSE unadopted_art_chk_csr;
4247:
4248: l_api_name := 'update_contract_admin';
4249: l_api_version := 1.0;
4250:
4251: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4252: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4253: 'Entered OKC_TERMS_UTIL_PVT.update_contract_admin');
4254: END IF;
4255:
4248: l_api_name := 'update_contract_admin';
4249: l_api_version := 1.0;
4250:
4251: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4252: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4253: 'Entered OKC_TERMS_UTIL_PVT.update_contract_admin');
4254: END IF;
4255:
4256: -- Standard Start of API savepoint
4274: SET contract_admin_id = p_new_con_admin_user_ids_tbl(i)
4275: WHERE document_id = p_doc_ids_tbl(i)
4276: AND document_type = p_doc_types_tbl(i);
4277:
4278: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4279: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4280: 'Leaving OKC_TERMS_UTIL_PVT.update_contract_admin');
4281: END IF;
4282:
4275: WHERE document_id = p_doc_ids_tbl(i)
4276: AND document_type = p_doc_types_tbl(i);
4277:
4278: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4279: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4280: 'Leaving OKC_TERMS_UTIL_PVT.update_contract_admin');
4281: END IF;
4282:
4283: EXCEPTION
4282:
4283: EXCEPTION
4284:
4285: WHEN OTHERS THEN
4286: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4287: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
4288: g_module || l_api_name,
4289: 'Leaving OKC_TERMS_UTIL_PVT.update_contract_admin because of EXCEPTION: ' || sqlerrm);
4290: END IF;
4283: EXCEPTION
4284:
4285: WHEN OTHERS THEN
4286: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4287: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
4288: g_module || l_api_name,
4289: 'Leaving OKC_TERMS_UTIL_PVT.update_contract_admin because of EXCEPTION: ' || sqlerrm);
4290: END IF;
4291:
4398:
4399: l_api_name := 'get_sales_group_con_admin';
4400: l_api_version := 1.0;
4401:
4402: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4403: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4404: 'Entered OKC_TERMS_UTIL_PVT.get_sales_group_con_admin');
4405: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4406: 'p_doc_id: ' || p_doc_id);
4399: l_api_name := 'get_sales_group_con_admin';
4400: l_api_version := 1.0;
4401:
4402: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4403: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4404: 'Entered OKC_TERMS_UTIL_PVT.get_sales_group_con_admin');
4405: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4406: 'p_doc_id: ' || p_doc_id);
4407: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4401:
4402: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4403: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4404: 'Entered OKC_TERMS_UTIL_PVT.get_sales_group_con_admin');
4405: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4406: 'p_doc_id: ' || p_doc_id);
4407: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4408: 'p_doc_type: ' || p_doc_type);
4409: END IF;
4403: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4404: 'Entered OKC_TERMS_UTIL_PVT.get_sales_group_con_admin');
4405: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4406: 'p_doc_id: ' || p_doc_id);
4407: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4408: 'p_doc_type: ' || p_doc_type);
4409: END IF;
4410:
4411: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4407: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4408: 'p_doc_type: ' || p_doc_type);
4409: END IF;
4410:
4411: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4412: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4413: 'Getting current Sales Quote details');
4414: END IF;
4415:
4408: 'p_doc_type: ' || p_doc_type);
4409: END IF;
4410:
4411: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4412: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4413: 'Getting current Sales Quote details');
4414: END IF;
4415:
4416: -- Get details of the current Sales Quote
4417: OPEN quote_details_csr;
4418: FETCH quote_details_csr INTO l_primary_salesperson_id, l_sales_group_id, l_quote_number;
4419: CLOSE quote_details_csr;
4420:
4421: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4422: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4423: 'Getting Contract Administrator from Sales Quote''s Sales Team');
4424: END IF;
4425:
4418: FETCH quote_details_csr INTO l_primary_salesperson_id, l_sales_group_id, l_quote_number;
4419: CLOSE quote_details_csr;
4420:
4421: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4422: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4423: 'Getting Contract Administrator from Sales Quote''s Sales Team');
4424: END IF;
4425:
4426: -- From Sales Team of the Quote, pick the user with a role type of Contracts and
4437:
4438: -- If no Contract Administrator defined on the sales team,
4439: IF(x_new_con_admin_user_id IS NULL) THEN
4440:
4441: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4442: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4443: 'No Contract Administrator found in Sales Quote''s Sales Team');
4444: END IF;
4445:
4438: -- If no Contract Administrator defined on the sales team,
4439: IF(x_new_con_admin_user_id IS NULL) THEN
4440:
4441: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4442: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4443: 'No Contract Administrator found in Sales Quote''s Sales Team');
4444: END IF;
4445:
4446: -- If current Quote has a Primary Sales Group selected
4445:
4446: -- If current Quote has a Primary Sales Group selected
4447: IF(l_sales_group_id IS NOT NULL) THEN
4448:
4449: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4450: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4451: 'Getting Contract Administrator from current Quote''s Primary Salesperson''s Primary Sales Group');
4452: END IF;
4453:
4446: -- If current Quote has a Primary Sales Group selected
4447: IF(l_sales_group_id IS NOT NULL) THEN
4448:
4449: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4450: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4451: 'Getting Contract Administrator from current Quote''s Primary Salesperson''s Primary Sales Group');
4452: END IF;
4453:
4454: -- Look at the primary sales group in the Quote for a Contract Administrator
4458:
4459: -- In the case where neither the sales team nor the primary sales group have a contract administrator defined,
4460: IF(x_new_con_admin_user_id IS NULL) THEN
4461:
4462: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4463: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4464: 'No Contract Administrator found in the current Quote''s Primary Salesperson''s Primary Sales Group');
4465: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4466: 'Getting parent group of the current Quote''s Primary Salesperson''s Primary Sales Group');
4459: -- In the case where neither the sales team nor the primary sales group have a contract administrator defined,
4460: IF(x_new_con_admin_user_id IS NULL) THEN
4461:
4462: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4463: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4464: 'No Contract Administrator found in the current Quote''s Primary Salesperson''s Primary Sales Group');
4465: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4466: 'Getting parent group of the current Quote''s Primary Salesperson''s Primary Sales Group');
4467: END IF;
4461:
4462: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4463: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4464: 'No Contract Administrator found in the current Quote''s Primary Salesperson''s Primary Sales Group');
4465: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4466: 'Getting parent group of the current Quote''s Primary Salesperson''s Primary Sales Group');
4467: END IF;
4468:
4469: -- Get parent of the primary Salesperson's primary sales group in the Quote
4470: OPEN parent_group_csr(l_sales_group_id);
4471: FETCH parent_group_csr INTO l_sales_group_id;
4472: CLOSE parent_group_csr;
4473:
4474: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4475: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4476: 'Getting Contract Administrator from parent of current Quote''s Primary Salesperson''s Primary Sales Group');
4477: END IF;
4478:
4471: FETCH parent_group_csr INTO l_sales_group_id;
4472: CLOSE parent_group_csr;
4473:
4474: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4475: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4476: 'Getting Contract Administrator from parent of current Quote''s Primary Salesperson''s Primary Sales Group');
4477: END IF;
4478:
4479: -- Check the parent sales group for a Contract Administrator
4486: END IF; -- End of (l_sales_group_id IS NOT NULL)
4487:
4488: END IF; -- End of (x_new_con_admin_user_id IS NULL)
4489:
4490: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4491: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4492: 'New Contract Administrator Id ' || x_new_con_admin_user_id);
4493: END IF;
4494:
4487:
4488: END IF; -- End of (x_new_con_admin_user_id IS NULL)
4489:
4490: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4491: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4492: 'New Contract Administrator Id ' || x_new_con_admin_user_id);
4493: END IF;
4494:
4495:
4492: 'New Contract Administrator Id ' || x_new_con_admin_user_id);
4493: END IF;
4494:
4495:
4496: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4497: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4498: 'Leaving OKC_TERMS_UTIL_PVT.get_sales_group_con_admin');
4499: END IF;
4500:
4493: END IF;
4494:
4495:
4496: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4497: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4498: 'Leaving OKC_TERMS_UTIL_PVT.get_sales_group_con_admin');
4499: END IF;
4500:
4501: EXCEPTION
4500:
4501: EXCEPTION
4502:
4503: WHEN OTHERS THEN
4504: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4505: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
4506: g_module || l_api_name,
4507: 'Leaving OKC_TERMS_UTIL_PVT.get_sales_group_con_admin because of EXCEPTION: ' || sqlerrm);
4508: END IF;
4501: EXCEPTION
4502:
4503: WHEN OTHERS THEN
4504: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4505: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
4506: g_module || l_api_name,
4507: 'Leaving OKC_TERMS_UTIL_PVT.get_sales_group_con_admin because of EXCEPTION: ' || sqlerrm);
4508: END IF;
4509:
4657: l_api_version CONSTANT NUMBER := 1;
4658: l_api_name CONSTANT VARCHAR2(30) := 'get_default_contract_admin';
4659: BEGIN
4660:
4661: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4662: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8000: Entered get_default_contract_admin');
4663: END IF;
4664:
4665: -- Standard call to check for call compatibility.
4658: l_api_name CONSTANT VARCHAR2(30) := 'get_default_contract_admin';
4659: BEGIN
4660:
4661: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4662: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8000: Entered get_default_contract_admin');
4663: END IF;
4664:
4665: -- Standard call to check for call compatibility.
4666: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4685:
4686: -- Standard call to get message count and if count is 1, get message info.
4687: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4688:
4689: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4690: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8100: get_default_contract_admin');
4691: END IF;
4692:
4693: EXCEPTION
4686: -- Standard call to get message count and if count is 1, get message info.
4687: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4688:
4689: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4690: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8100: get_default_contract_admin');
4691: END IF;
4692:
4693: EXCEPTION
4694: WHEN OTHERS THEN
4692:
4693: EXCEPTION
4694: WHEN OTHERS THEN
4695:
4696: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4697: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8200: Leaving get_default_contract_admin because of EXCEPTION:'||sqlerrm);
4698: END IF;
4699: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4700: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4693: EXCEPTION
4694: WHEN OTHERS THEN
4695:
4696: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4697: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8200: Leaving get_default_contract_admin because of EXCEPTION:'||sqlerrm);
4698: END IF;
4699: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4700: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4701: END IF;
4836: l_api_name CONSTANT VARCHAR2(30) := 'lock_contract';
4837:
4838: BEGIN
4839:
4840: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4841: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8000: Entered lock_contract');
4842: END IF;
4843:
4844: -- Standard call to check for call compatibility.
4837:
4838: BEGIN
4839:
4840: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4841: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8000: Entered lock_contract');
4842: END IF;
4843:
4844: -- Standard call to check for call compatibility.
4845: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4868:
4869: -- Standard call to get message count and if count is 1, get message info.
4870: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4871:
4872: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4873: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8100: Leaving lock_contract');
4874: END IF;
4875:
4876: EXCEPTION
4869: -- Standard call to get message count and if count is 1, get message info.
4870: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4871:
4872: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4873: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8100: Leaving lock_contract');
4874: END IF;
4875:
4876: EXCEPTION
4877: WHEN OTHERS THEN
4875:
4876: EXCEPTION
4877: WHEN OTHERS THEN
4878:
4879: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4880: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8200: Leaving lock_contract because of EXCEPTION:'||sqlerrm);
4881: END IF;
4882: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4883: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4876: EXCEPTION
4877: WHEN OTHERS THEN
4878:
4879: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4880: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8200: Leaving lock_contract because of EXCEPTION:'||sqlerrm);
4881: END IF;
4882: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4883: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4884: END IF;
4901: l_api_version CONSTANT NUMBER := 1;
4902: l_api_name CONSTANT VARCHAR2(30) := 'unlock_contract';
4903: BEGIN
4904:
4905: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4906: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8000: Entered lock_contract');
4907: END IF;
4908:
4909: -- Standard call to check for call compatibility.
4902: l_api_name CONSTANT VARCHAR2(30) := 'unlock_contract';
4903: BEGIN
4904:
4905: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4906: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8000: Entered lock_contract');
4907: END IF;
4908:
4909: -- Standard call to check for call compatibility.
4910: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4932:
4933: -- Standard call to get message count and if count is 1, get message info.
4934: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4935:
4936: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4937: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8100: Leaving lock_contract');
4938: END IF;
4939:
4940: EXCEPTION
4933: -- Standard call to get message count and if count is 1, get message info.
4934: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4935:
4936: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4937: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8100: Leaving lock_contract');
4938: END IF;
4939:
4940: EXCEPTION
4941: WHEN OTHERS THEN
4939:
4940: EXCEPTION
4941: WHEN OTHERS THEN
4942:
4943: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4944: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8200: Leaving lock_contract because of EXCEPTION:'||sqlerrm);
4945: END IF;
4946: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4947: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4940: EXCEPTION
4941: WHEN OTHERS THEN
4942:
4943: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4944: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8200: Leaving lock_contract because of EXCEPTION:'||sqlerrm);
4945: END IF;
4946: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4947: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4948: END IF;
4992: WHERE document_type = p_document_type
4993: AND document_id = p_document_id;
4994:
4995: BEGIN
4996: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4997: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9200: get_sys_last_upd_date p_doc_type : '||p_document_type);
4998: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9300: get_sys_last_upd_date p_doc_id : '||p_document_id);
4999: END IF;
5000:
4993: AND document_id = p_document_id;
4994:
4995: BEGIN
4996: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4997: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9200: get_sys_last_upd_date p_doc_type : '||p_document_type);
4998: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9300: get_sys_last_upd_date p_doc_id : '||p_document_id);
4999: END IF;
5000:
5001:
4994:
4995: BEGIN
4996: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4997: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9200: get_sys_last_upd_date p_doc_type : '||p_document_type);
4998: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9300: get_sys_last_upd_date p_doc_id : '||p_document_id);
4999: END IF;
5000:
5001:
5002: OPEN l_get_contract_source_csr;
5003: FETCH l_get_contract_source_csr INTO l_contract_source_code;
5004: CLOSE l_get_contract_source_csr;
5005:
5006:
5007: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5008: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9310: After fetching l_get_contract_source_csr');
5009: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9320: Contract Source Code :'||l_contract_source_code);
5010: END IF;
5011:
5004: CLOSE l_get_contract_source_csr;
5005:
5006:
5007: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5008: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9310: After fetching l_get_contract_source_csr');
5009: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9320: Contract Source Code :'||l_contract_source_code);
5010: END IF;
5011:
5012: IF l_contract_source_code = G_ATTACHED_CONTRACT_SOURCE THEN
5005:
5006:
5007: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5008: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9310: After fetching l_get_contract_source_csr');
5009: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9320: Contract Source Code :'||l_contract_source_code);
5010: END IF;
5011:
5012: IF l_contract_source_code = G_ATTACHED_CONTRACT_SOURCE THEN
5013: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5009: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9320: Contract Source Code :'||l_contract_source_code);
5010: END IF;
5011:
5012: IF l_contract_source_code = G_ATTACHED_CONTRACT_SOURCE THEN
5013: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5014: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9330: Before opening l_get_max_usg_upd_date_csr');
5015: END IF;
5016:
5017: OPEN l_get_max_usg_upd_date_csr;
5010: END IF;
5011:
5012: IF l_contract_source_code = G_ATTACHED_CONTRACT_SOURCE THEN
5013: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5014: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9330: Before opening l_get_max_usg_upd_date_csr');
5015: END IF;
5016:
5017: OPEN l_get_max_usg_upd_date_csr;
5018: FETCH l_get_max_usg_upd_date_csr INTO l_sys_last_update_date;
5017: OPEN l_get_max_usg_upd_date_csr;
5018: FETCH l_get_max_usg_upd_date_csr INTO l_sys_last_update_date;
5019: CLOSE l_get_max_usg_upd_date_csr;
5020:
5021: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5022: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9340: After fetching l_get_max_usg_upd_date_csr');
5023: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9350: l_terms_changed_date :'||l_sys_last_update_date);
5024: END IF;
5025:
5018: FETCH l_get_max_usg_upd_date_csr INTO l_sys_last_update_date;
5019: CLOSE l_get_max_usg_upd_date_csr;
5020:
5021: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5022: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9340: After fetching l_get_max_usg_upd_date_csr');
5023: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9350: l_terms_changed_date :'||l_sys_last_update_date);
5024: END IF;
5025:
5026: ELSE
5019: CLOSE l_get_max_usg_upd_date_csr;
5020:
5021: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5022: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9340: After fetching l_get_max_usg_upd_date_csr');
5023: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9350: l_terms_changed_date :'||l_sys_last_update_date);
5024: END IF;
5025:
5026: ELSE
5027: OPEN l_get_max_art_date_csr;
5052: l_sys_last_update_date := sysdate;
5053: end if;
5054: END IF;
5055:
5056: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5057: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9700: l_sys_last_update_date : '||l_sys_last_update_date);
5058: END IF;
5059: return l_sys_last_update_date;
5060: EXCEPTION
5053: end if;
5054: END IF;
5055:
5056: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5057: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE,'9700: l_sys_last_update_date : '||l_sys_last_update_date);
5058: END IF;
5059: return l_sys_last_update_date;
5060: EXCEPTION
5061: WHEN OTHERS THEN
5163: AND KA.document_id = p_document_id
5164: ORDER BY VB.variable_code;
5165:
5166: BEGIN
5167: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered set_udv_with_procedures');
5169: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: p_document_type:'||p_document_type);
5170: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: p_document_id:'||p_document_id);
5171: END IF;
5164: ORDER BY VB.variable_code;
5165:
5166: BEGIN
5167: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered set_udv_with_procedures');
5169: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: p_document_type:'||p_document_type);
5170: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: p_document_id:'||p_document_id);
5171: END IF;
5172:
5165:
5166: BEGIN
5167: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered set_udv_with_procedures');
5169: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: p_document_type:'||p_document_type);
5170: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: p_document_id:'||p_document_id);
5171: END IF;
5172:
5173: /* Standard call to check for call compatibility */
5166: BEGIN
5167: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered set_udv_with_procedures');
5169: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: p_document_type:'||p_document_type);
5170: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: p_document_id:'||p_document_id);
5171: END IF;
5172:
5173: /* Standard call to check for call compatibility */
5174: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5237: x_return_status := G_RET_STS_ERROR;
5238: RAISE FND_API.G_EXC_ERROR;
5239: END IF;
5240:
5241: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5242: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Leaving set_udv_with_procedures');
5243: END IF;
5244:
5245: EXCEPTION
5238: RAISE FND_API.G_EXC_ERROR;
5239: END IF;
5240:
5241: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5242: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Leaving set_udv_with_procedures');
5243: END IF;
5244:
5245: EXCEPTION
5246: WHEN FND_API.G_EXC_ERROR THEN
5244:
5245: EXCEPTION
5246: WHEN FND_API.G_EXC_ERROR THEN
5247:
5248: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5249: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving set_udv_with_procedures : OKC_API.G_EXCEPTION_ERROR Exception');
5250: END IF;
5251:
5252: IF csr_get_udv_with_procs%ISOPEN THEN
5245: EXCEPTION
5246: WHEN FND_API.G_EXC_ERROR THEN
5247:
5248: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5249: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving set_udv_with_procedures : OKC_API.G_EXCEPTION_ERROR Exception');
5250: END IF;
5251:
5252: IF csr_get_udv_with_procs%ISOPEN THEN
5253: CLOSE csr_get_udv_with_procs;
5257: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5258:
5259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5260:
5261: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5262: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving set_udv_with_procedures : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
5263: END IF;
5264:
5265: IF csr_get_udv_with_procs%ISOPEN THEN
5258:
5259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5260:
5261: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5262: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving set_udv_with_procedures : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
5263: END IF;
5264:
5265: IF csr_get_udv_with_procs%ISOPEN THEN
5266: CLOSE csr_get_udv_with_procs;
5270: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5271:
5272: WHEN OTHERS THEN
5273:
5274: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5275: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3000: Leaving set_udv_with_procedures because of EXCEPTION: '||sqlerrm);
5276: END IF;
5277:
5278: IF csr_get_udv_with_procs%ISOPEN THEN
5271:
5272: WHEN OTHERS THEN
5273:
5274: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5275: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3000: Leaving set_udv_with_procedures because of EXCEPTION: '||sqlerrm);
5276: END IF;
5277:
5278: IF csr_get_udv_with_procs%ISOPEN THEN
5279: CLOSE csr_get_udv_with_procs;
5402: AND text LIKE '%' || SUBSTR(p_procedure_name,INSTR(p_procedure_name,'.',1,2)+1) || '%';
5403:
5404:
5405: BEGIN
5406: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5407: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered get_udv_with_proc_value');
5408: END IF;
5409:
5410: /* Initialize API return status to success */
5403:
5404:
5405: BEGIN
5406: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5407: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered get_udv_with_proc_value');
5408: END IF;
5409:
5410: /* Initialize API return status to success */
5411: x_return_status := G_RET_STS_SUCCESS;
5425: 'p_doc_id => '|| ':5' || ',' ||
5426: 'p_variable_code => '|| ':6' || ',' ||
5427: 'x_variable_value_id => '|| ':7' || '); END;';
5428:
5429: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5430: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,'200: l_dynamic_sql_stmt '|| l_dynamic_sql_stmt);
5431: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: variable_code:'||p_variable_code);
5432: END IF;
5433:
5426: 'p_variable_code => '|| ':6' || ',' ||
5427: 'x_variable_value_id => '|| ':7' || '); END;';
5428:
5429: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5430: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,'200: l_dynamic_sql_stmt '|| l_dynamic_sql_stmt);
5431: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: variable_code:'||p_variable_code);
5432: END IF;
5433:
5434: l_variable_value_id := NULL;
5427: 'x_variable_value_id => '|| ':7' || '); END;';
5428:
5429: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5430: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,'200: l_dynamic_sql_stmt '|| l_dynamic_sql_stmt);
5431: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: variable_code:'||p_variable_code);
5432: END IF;
5433:
5434: l_variable_value_id := NULL;
5435:
5437: USING OUT l_return_status, OUT l_msg_data, OUT l_msg_count,
5438: p_document_type, p_document_id, p_variable_code,
5439: IN OUT l_variable_value_id;
5440:
5441: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5442: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Procedure return status:'||l_return_status);
5443: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Variable value id:'||l_variable_value_id);
5444: END IF;
5445:
5438: p_document_type, p_document_id, p_variable_code,
5439: IN OUT l_variable_value_id;
5440:
5441: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5442: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Procedure return status:'||l_return_status);
5443: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Variable value id:'||l_variable_value_id);
5444: END IF;
5445:
5446: IF (l_return_status = G_RET_STS_ERROR) THEN
5439: IN OUT l_variable_value_id;
5440:
5441: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5442: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Procedure return status:'||l_return_status);
5443: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Variable value id:'||l_variable_value_id);
5444: END IF;
5445:
5446: IF (l_return_status = G_RET_STS_ERROR) THEN
5447:
5469: WHEN OTHERS THEN
5470:
5471: l_variable_value_id := NULL;
5472:
5473: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5474: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: Error in procedure execution:'||sqlerrm);
5475: END IF;
5476:
5477: IF p_output_error = FND_API.G_TRUE THEN
5470:
5471: l_variable_value_id := NULL;
5472:
5473: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5474: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: Error in procedure execution:'||sqlerrm);
5475: END IF;
5476:
5477: IF p_output_error = FND_API.G_TRUE THEN
5478:
5561: WHEN OTHERS THEN
5562:
5563: l_variable_value := NULL;
5564:
5565: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5566: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'500: Error while fetching value from valueset:'||sqlerrm);
5567: END IF;
5568:
5569: IF p_output_error = FND_API.G_TRUE THEN
5562:
5563: l_variable_value := NULL;
5564:
5565: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5566: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'500: Error while fetching value from valueset:'||sqlerrm);
5567: END IF;
5568:
5569: IF p_output_error = FND_API.G_TRUE THEN
5570: FND_MESSAGE.set_name('OKC','OKC_UDV_VSET_INVALID');
5576: END IF; /* IF l_variable_value_id IS NOT NULL*/
5577:
5578: x_variable_value := l_variable_value;
5579:
5580: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5581: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'600: Variable value:'||l_variable_value);
5582: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Leaving get_udv_with_proc_value');
5583: END IF;
5584:
5577:
5578: x_variable_value := l_variable_value;
5579:
5580: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5581: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'600: Variable value:'||l_variable_value);
5582: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Leaving get_udv_with_proc_value');
5583: END IF;
5584:
5585: EXCEPTION
5578: x_variable_value := l_variable_value;
5579:
5580: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5581: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'600: Variable value:'||l_variable_value);
5582: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Leaving get_udv_with_proc_value');
5583: END IF;
5584:
5585: EXCEPTION
5586: WHEN FND_API.G_EXC_ERROR THEN
5584:
5585: EXCEPTION
5586: WHEN FND_API.G_EXC_ERROR THEN
5587:
5588: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5589: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving get_udv_with_proc_value : OKC_API.G_EXCEPTION_ERROR Exception');
5590: END IF;
5591:
5592: IF csr_get_udv_with_proc_dtls%ISOPEN THEN
5585: EXCEPTION
5586: WHEN FND_API.G_EXC_ERROR THEN
5587:
5588: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5589: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving get_udv_with_proc_value : OKC_API.G_EXCEPTION_ERROR Exception');
5590: END IF;
5591:
5592: IF csr_get_udv_with_proc_dtls%ISOPEN THEN
5593: CLOSE csr_get_udv_with_proc_dtls;
5597: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5598:
5599: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5600:
5601: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5602: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving get_udv_with_proc_value : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
5603: END IF;
5604:
5605: IF csr_get_udv_with_proc_dtls%ISOPEN THEN
5598:
5599: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5600:
5601: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5602: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving get_udv_with_proc_value : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
5603: END IF;
5604:
5605: IF csr_get_udv_with_proc_dtls%ISOPEN THEN
5606: CLOSE csr_get_udv_with_proc_dtls;
5610: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5611:
5612: WHEN OTHERS THEN
5613:
5614: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5615: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3000: Leaving get_udv_with_proc_value because of EXCEPTION: '||sqlerrm);
5616: END IF;
5617:
5618: IF csr_get_udv_with_proc_dtls%ISOPEN THEN
5611:
5612: WHEN OTHERS THEN
5613:
5614: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5615: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3000: Leaving get_udv_with_proc_value because of EXCEPTION: '||sqlerrm);
5616: END IF;
5617:
5618: IF csr_get_udv_with_proc_dtls%ISOPEN THEN
5619: CLOSE csr_get_udv_with_proc_dtls;