[Home] [Help]
28: G_ATTACHED_CONTRACT_SOURCE CONSTANT VARCHAR2(30) := 'ATTACHED';
29: ------------------------------------------------------------------------------
30: -- GLOBAL CONSTANTS
31: ------------------------------------------------------------------------------
32: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
33: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
34:
35: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
36: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
29: ------------------------------------------------------------------------------
30: -- GLOBAL CONSTANTS
31: ------------------------------------------------------------------------------
32: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
33: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
34:
35: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
36: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
37: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
31: ------------------------------------------------------------------------------
32: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
33: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
34:
35: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
36: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
37: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
38:
39: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
32: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
33: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
34:
35: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
36: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
37: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
38:
39: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
40: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
33: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
34:
35: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
36: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
37: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
38:
39: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
40: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
41: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
74: FOR cr IN l_get_rec LOOP
75:
76: OKC_ALLOWED_TMPL_USAGES_GRP.Delete_Allowed_Tmpl_Usages(
77: p_api_version => 1,
78: p_init_msg_list => FND_API.G_FALSE,
79: p_commit => FND_API.G_FALSE,
80: x_return_status => x_return_status,
81: x_msg_count => x_msg_count,
82: x_msg_data => x_msg_data,
75:
76: OKC_ALLOWED_TMPL_USAGES_GRP.Delete_Allowed_Tmpl_Usages(
77: p_api_version => 1,
78: p_init_msg_list => FND_API.G_FALSE,
79: p_commit => FND_API.G_FALSE,
80: x_return_status => x_return_status,
81: x_msg_count => x_msg_count,
82: x_msg_data => x_msg_data,
83:
86: p_object_version_number => cr.object_version_number
87: );
88:
89: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
90: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
91: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
92: RAISE FND_API.G_EXC_ERROR ;
93: END IF;
94: END LOOP;
88:
89: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
90: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
91: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
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
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
102: CLOSE l_get_rec;
103: END IF;
104:
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
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:
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:
155: FOR cr in l_get_rec LOOP
156:
157: OKC_ALLOWED_TMPL_USAGES_GRP.update_Allowed_Tmpl_Usages(
158: p_api_version => 1,
159: p_init_msg_list => FND_API.G_FALSE,
160: p_commit => FND_API.G_FALSE,
161: x_return_status => x_return_status,
162: x_msg_count => x_msg_count,
163: x_msg_data => x_msg_data,
156:
157: OKC_ALLOWED_TMPL_USAGES_GRP.update_Allowed_Tmpl_Usages(
158: p_api_version => 1,
159: p_init_msg_list => FND_API.G_FALSE,
160: p_commit => FND_API.G_FALSE,
161: x_return_status => x_return_status,
162: x_msg_count => x_msg_count,
163: x_msg_data => x_msg_data,
164: p_template_id => p_new_template_id,
169: p_object_version_number => cr.object_version_number
170: );
171:
172: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
174: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
175: RAISE FND_API.G_EXC_ERROR ;
176: END IF;
177:
171:
172: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
174: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
175: RAISE FND_API.G_EXC_ERROR ;
176: END IF;
177:
178: END LOOP;
179:
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:
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
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:
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:
291: --?? Put some Message output
292: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
293: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3000: Template has not been found');
294: END IF;
295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
296: END IF;
297:
298: OPEN tmpl_prnt_crs;
299: FETCH tmpl_prnt_crs INTO l_status;
305: --?? Put some Message output
306: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
307: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3100: Template Status is not valid to delete it');
308: END IF;
309: RAISE FND_API.G_EXC_ERROR;
310: END IF;
311:
312: OPEN tmpl_usd_crs;
313: FETCH tmpl_usd_crs INTO l_flag;
318: --?? Put some Message output
319: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
320: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3200: Template is already used - so can not be deleted');
321: END IF;
322: RAISE FND_API.G_EXC_ERROR;
323: END IF;
324:
325: --------------------------------------------
326: -- Delete the record from OKC_ALLOWED_TMPL_USAGES_V
336: p_template_id => p_doc_id
337: );
338: --------------------------------------------
339: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
341: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
342: RAISE FND_API.G_EXC_ERROR ;
343: END IF;
344: --------------------------------------------
338: --------------------------------------------
339: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
341: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
342: RAISE FND_API.G_EXC_ERROR ;
343: END IF;
344: --------------------------------------------
345:
346: -- Delete record from okc_terms_templates
357: p_object_version_number => cr.object_version_number
358: );
359: --------------------------------------------
360: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
362: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
363: RAISE FND_API.G_EXC_ERROR ;
364: END IF;
365: --------------------------------------------
359: --------------------------------------------
360: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
362: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
363: RAISE FND_API.G_EXC_ERROR ;
364: END IF;
365: --------------------------------------------
366: /*
367: * Removed call to OKC_EXPRT_UTIL_GRP for 11.5.10+: Contract Expert Changes
379: x_msg_data => l_msg_data,
380: x_msg_count => l_msg_count);
381: --------------------------------------------
382: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
384: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
385: RAISE FND_API.G_EXC_ERROR ;
386: END IF;
387: --------------------------------------------
381: --------------------------------------------
382: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
384: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
385: RAISE FND_API.G_EXC_ERROR ;
386: END IF;
387: --------------------------------------------
388:
389: END LOOP;
403: ,p_retain_lock_terms_yn => p_retain_lock_terms_yn
404: );
405: --------------------------------------------
406: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
408: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
409: RAISE FND_API.G_EXC_ERROR ;
410: END IF;
411: --------------------------------------------
405: --------------------------------------------
406: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
408: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
409: RAISE FND_API.G_EXC_ERROR ;
410: END IF;
411: --------------------------------------------
412:
413: --------------------------------------------
423: ,p_retain_lock_terms_yn => p_retain_lock_terms_yn
424: );
425: --------------------------------------------
426: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
428: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
429: RAISE FND_API.G_EXC_ERROR ;
430: END IF;
431: --------------------------------------------
425: --------------------------------------------
426: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
428: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
429: RAISE FND_API.G_EXC_ERROR ;
430: END IF;
431: --------------------------------------------
432:
433: --------------------------------------------
443: ,p_retain_lock_terms_yn => p_retain_lock_terms_yn
444: );
445: --------------------------------------------
446: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
448: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
449: RAISE FND_API.G_EXC_ERROR ;
450: END IF;
451: --------------------------------------------
445: --------------------------------------------
446: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
448: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
449: RAISE FND_API.G_EXC_ERROR ;
450: END IF;
451: --------------------------------------------
452:
453: -------------------------------------------------
462: x_msg_data => l_msg_data,
463: x_msg_count => l_msg_count);
464: --------------------------------------------
465: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
467: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
468: RAISE FND_API.G_EXC_ERROR ;
469: END IF;
470: --------------------------------------------
464: --------------------------------------------
465: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
467: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
468: RAISE FND_API.G_EXC_ERROR ;
469: END IF;
470: --------------------------------------------
471:
472: ------------------------------------------------
491: , p_retain_lock_xprt_yn => p_retain_lock_xprt_yn
492: );
493: --------------------------------------------
494: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
496: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
497: RAISE FND_API.G_EXC_ERROR ;
498: END IF;
499: --------------------------------------------
493: --------------------------------------------
494: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
496: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
497: RAISE FND_API.G_EXC_ERROR ;
498: END IF;
499: --------------------------------------------
500: END IF;
501:
520: p_object_version_number => l_objnum
521: );
522: --------------------------------------------
523: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
525: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
526: RAISE FND_API.G_EXC_ERROR ;
527: END IF;
528: --------------------------------------------
522: --------------------------------------------
523: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
525: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
526: RAISE FND_API.G_EXC_ERROR ;
527: END IF;
528: --------------------------------------------
529: END IF;
530:
533: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
534: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4000: Leaving Delete_Doc');
535: END IF;
536: EXCEPTION
537: WHEN FND_API.G_EXC_ERROR THEN
538: IF tmpl_sts_crs%ISOPEN THEN
539: CLOSE tmpl_sts_crs;
540: END IF;
541:
551: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4100: Leaving Delete_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
552: END IF;
553: x_return_status := G_RET_STS_ERROR ;
554:
555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
556: IF tmpl_sts_crs%ISOPEN THEN
557: CLOSE tmpl_sts_crs;
558: END IF;
559:
632: p_major_version => p_version_number
633: );
634: --------------------------------------------
635: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
637: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
638: RAISE FND_API.G_EXC_ERROR ;
639: END IF;
640: --------------------------------------------
634: --------------------------------------------
635: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
637: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
638: RAISE FND_API.G_EXC_ERROR ;
639: END IF;
640: --------------------------------------------
641:
642: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
649: p_major_version => p_version_number
650: );
651: --------------------------------------------
652: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
654: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
655: RAISE FND_API.G_EXC_ERROR ;
656: END IF;
657: --------------------------------------------
651: --------------------------------------------
652: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
654: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
655: RAISE FND_API.G_EXC_ERROR ;
656: END IF;
657: --------------------------------------------
658:
659: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
665: p_major_version => p_version_number
666: );
667: --------------------------------------------
668: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
670: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
671: RAISE FND_API.G_EXC_ERROR ;
672: END IF;
673: --------------------------------------------
667: --------------------------------------------
668: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
670: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
671: RAISE FND_API.G_EXC_ERROR ;
672: END IF;
673: --------------------------------------------
674:
675: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
682: p_major_version => p_version_number
683: );
684: --------------------------------------------
685: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
687: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
688: RAISE FND_API.G_EXC_ERROR ;
689: END IF;
690: --------------------------------------------
684: --------------------------------------------
685: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
687: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
688: RAISE FND_API.G_EXC_ERROR ;
689: END IF;
690: --------------------------------------------
691:
692: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
693: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4000: Leaving delete_doc_version');
694: END IF;
695:
696: EXCEPTION
697: WHEN FND_API.G_EXC_ERROR THEN
698: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
699: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4100: Leaving delete_doc_version : OKC_API.G_EXCEPTION_ERROR Exception');
700: END IF;
701: x_return_status := G_RET_STS_ERROR ;
699: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4100: Leaving delete_doc_version : OKC_API.G_EXCEPTION_ERROR Exception');
700: END IF;
701: x_return_status := G_RET_STS_ERROR ;
702:
703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
704: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
705: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4200: Leaving delete_doc_version : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
706: END IF;
707: x_return_status := G_RET_STS_UNEXP_ERROR ;
723: -- This API will be used to mark any article as amended if any of variables have been changed.
724: */
725: PROCEDURE Mark_Amendment (
726: p_api_version IN NUMBER,
727: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
728:
729: x_return_status OUT NOCOPY VARCHAR2,
730: x_msg_data OUT NOCOPY VARCHAR2,
731: x_msg_count OUT NOCOPY NUMBER,
750: END IF;
751: -- Standard Start of API savepoint
752: SAVEPOINT g_Mark_Amendment;
753: -- Standard call to check for call compatibility.
754: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
756: END IF;
757: -- Initialize message list if p_init_msg_list is set to TRUE.
758: IF FND_API.to_Boolean( p_init_msg_list ) THEN
751: -- Standard Start of API savepoint
752: SAVEPOINT g_Mark_Amendment;
753: -- Standard call to check for call compatibility.
754: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
756: END IF;
757: -- Initialize message list if p_init_msg_list is set to TRUE.
758: IF FND_API.to_Boolean( p_init_msg_list ) THEN
759: FND_MSG_PUB.initialize;
754: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
756: END IF;
757: -- Initialize message list if p_init_msg_list is set to TRUE.
758: IF FND_API.to_Boolean( p_init_msg_list ) THEN
759: FND_MSG_PUB.initialize;
760: END IF;
761: -- Initialize API return status to success
762: x_return_status := G_RET_STS_SUCCESS;
770: -- Update each record from okc_terms_templates for
771: --------------------------------------------
772: OKC_K_ARTICLES_GRP.Update_article(
773: p_api_version => 1,
774: p_init_msg_list => FND_API.G_FALSE ,
775: x_return_status => x_return_status,
776: x_msg_data => x_msg_data,
777: x_msg_count => x_msg_count,
778: p_mode => 'AMEND',
780: p_object_version_number => cr.object_version_number
781: );
782: --------------------------------------------
783: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
784: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
785: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
786: RAISE FND_API.G_EXC_ERROR ;
787: END IF;
788: --------------------------------------------
782: --------------------------------------------
783: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
784: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
785: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
786: RAISE FND_API.G_EXC_ERROR ;
787: END IF;
788: --------------------------------------------
789: END LOOP;
790:
793: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
794: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4600: Leaving Mark_Amendment');
795: END IF;
796: EXCEPTION
797: WHEN FND_API.G_EXC_ERROR THEN
798: ROLLBACK TO g_Mark_Amendment;
799: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
800: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4700: Leaving Mark_Amendment : OKC_API.G_EXCEPTION_ERROR Exception');
801: END IF;
801: END IF;
802: x_return_status := G_RET_STS_ERROR ;
803: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
804:
805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
806: ROLLBACK TO g_Mark_Amendment;
807: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
808: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4800: Leaving Mark_Amendment : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
809: END IF;
833: 2. Update the table OKC_TMPL_DRAFT_CLAUSES with the merged/parent template id.
834: */
835: PROCEDURE Merge_Template_Working_Copy (
836: p_api_version IN NUMBER,
837: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
838: p_commit IN VARCHAR2 := FND_API.G_FALSE,
839:
840: x_return_status OUT NOCOPY VARCHAR2,
841: x_msg_data OUT NOCOPY VARCHAR2,
834: */
835: PROCEDURE Merge_Template_Working_Copy (
836: p_api_version IN NUMBER,
837: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
838: p_commit IN VARCHAR2 := FND_API.G_FALSE,
839:
840: x_return_status OUT NOCOPY VARCHAR2,
841: x_msg_data OUT NOCOPY VARCHAR2,
842: x_msg_count OUT NOCOPY NUMBER,
877: END IF;
878: -- Standard Start of API savepoint
879: SAVEPOINT g_Merge_Template_Working_Copy;
880: -- Standard call to check for call compatibility.
881: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
883: END IF;
884: -- Initialize message list if p_init_msg_list is set to TRUE.
885: IF FND_API.to_Boolean( p_init_msg_list ) THEN
878: -- Standard Start of API savepoint
879: SAVEPOINT g_Merge_Template_Working_Copy;
880: -- Standard call to check for call compatibility.
881: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
883: END IF;
884: -- Initialize message list if p_init_msg_list is set to TRUE.
885: IF FND_API.to_Boolean( p_init_msg_list ) THEN
886: FND_MSG_PUB.initialize;
881: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
883: END IF;
884: -- Initialize message list if p_init_msg_list is set to TRUE.
885: IF FND_API.to_Boolean( p_init_msg_list ) THEN
886: FND_MSG_PUB.initialize;
887: END IF;
888: -- Initialize API return status to success
889: x_return_status := G_RET_STS_SUCCESS;
902: l_found := get_par_id_csr%FOUND;
903: CLOSE get_par_id_csr;
904: IF not l_found THEN
905: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'p_template_id');
906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
907: END IF;
908:
909: --------------------------------------------
910: -- Delete Base Template
920: p_delete_parent_yn => 'Y'
921: );
922: --------------------------------------------
923: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
925: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
926: RAISE FND_API.G_EXC_ERROR ;
927: END IF;
928: --------------------------------------------
922: --------------------------------------------
923: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
925: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
926: RAISE FND_API.G_EXC_ERROR ;
927: END IF;
928: --------------------------------------------
929:
930: --------------------------------------------
937: p_template_id => l_base_template_id
938: );
939: --------------------------------------------
940: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
942: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
943: RAISE FND_API.G_EXC_ERROR ;
944: END IF;
945: --------------------------------------------
939: --------------------------------------------
940: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
942: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
943: RAISE FND_API.G_EXC_ERROR ;
944: END IF;
945: --------------------------------------------
946:
947: --------------------------------------------
957: p_doc_id => l_base_template_id
958: );
959: --------------------------------------------
960: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
961: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
962: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
963: RAISE FND_API.G_EXC_ERROR ;
964: END IF;
965: --------------------------------------------
959: --------------------------------------------
960: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
961: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
962: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
963: RAISE FND_API.G_EXC_ERROR ;
964: END IF;
965: --------------------------------------------
966:
967: --------------------------------------------
977: p_doc_id => l_base_template_id
978: );
979: --------------------------------------------
980: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
982: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
983: RAISE FND_API.G_EXC_ERROR ;
984: END IF;
985: --------------------------------------------
979: --------------------------------------------
980: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
982: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
983: RAISE FND_API.G_EXC_ERROR ;
984: END IF;
985: --------------------------------------------
986:
987: --------------------------------------------
996: p_doc_id => l_base_template_id
997: );
998: --------------------------------------------
999: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1001: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1002: RAISE FND_API.G_EXC_ERROR ;
1003: END IF;
1004: --------------------------------------------
998: --------------------------------------------
999: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1001: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1002: RAISE FND_API.G_EXC_ERROR ;
1003: END IF;
1004: --------------------------------------------
1005:
1006: --------------------------------------------
1020: x_return_status => x_return_status
1021: );
1022: --------------------------------------------
1023: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1025: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1026: RAISE FND_API.G_EXC_ERROR ;
1027: END IF;
1028: --------------------------------------------
1022: --------------------------------------------
1023: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1025: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1026: RAISE FND_API.G_EXC_ERROR ;
1027: END IF;
1028: --------------------------------------------
1029:
1030:
1041: p_new_template_id => l_base_template_id
1042: );
1043: --------------------------------------------
1044: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1046: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1047: RAISE FND_API.G_EXC_ERROR ;
1048: END IF;
1049: --------------------------------------------
1043: --------------------------------------------
1044: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1046: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1047: RAISE FND_API.G_EXC_ERROR ;
1048: END IF;
1049: --------------------------------------------
1050:
1051: --------------------------------------------
1062: p_new_template_id => l_base_template_id
1063: );
1064: --------------------------------------------
1065: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1067: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1068: RAISE FND_API.G_EXC_ERROR ;
1069: END IF;
1070: --------------------------------------------
1064: --------------------------------------------
1065: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1067: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1068: RAISE FND_API.G_EXC_ERROR ;
1069: END IF;
1070: --------------------------------------------
1071:
1072: --------------------------------------------
1086: p_object_version_number => cr.object_version_number
1087: );
1088: --------------------------------------------
1089: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1091: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1092: RAISE FND_API.G_EXC_ERROR ;
1093: END IF;
1094: --------------------------------------------
1088: --------------------------------------------
1089: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1091: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1092: RAISE FND_API.G_EXC_ERROR ;
1093: END IF;
1094: --------------------------------------------
1095: END LOOP;
1096:
1111: p_object_version_number => cr.object_version_number
1112: );
1113: --------------------------------------------
1114: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1116: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1117: RAISE FND_API.G_EXC_ERROR ;
1118: END IF;
1119: --------------------------------------------
1113: --------------------------------------------
1114: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1116: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1117: RAISE FND_API.G_EXC_ERROR ;
1118: END IF;
1119: --------------------------------------------
1120: END LOOP;
1121:
1133: p_working_template_id => p_template_id
1134: );
1135: --------------------------------------------
1136: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1138: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1139: RAISE FND_API.G_EXC_ERROR ;
1140: END IF;
1141: --------------------------------------------
1135: --------------------------------------------
1136: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1138: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1139: RAISE FND_API.G_EXC_ERROR ;
1140: END IF;
1141: --------------------------------------------
1142:
1143: --Added 11.5.10+ CE
1146: --------------------------------------------
1147: OKC_XPRT_TMPL_RULE_ASSNS_PVT.merge_template_rule_assns (
1148: p_api_version => p_api_version ,
1149: p_init_msg_list => p_init_msg_list,
1150: p_commit => FND_API.G_FALSE,
1151: x_msg_data => x_msg_data ,
1152: x_msg_count => x_msg_count ,
1153: x_return_status => x_return_status,
1154:
1156: p_parent_template_id => l_base_template_id
1157: );
1158: --------------------------------------------
1159: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1161: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1162: RAISE FND_API.G_EXC_ERROR ;
1163: END IF;
1164: --------------------------------------------
1158: --------------------------------------------
1159: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1161: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1162: RAISE FND_API.G_EXC_ERROR ;
1163: END IF;
1164: --------------------------------------------
1165:
1166: --------------------------------------------
1182: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6100: Leaving Merge_Template_Working_Copy');
1183: END IF;
1184:
1185: EXCEPTION
1186: WHEN FND_API.G_EXC_ERROR THEN
1187: ROLLBACK TO g_Merge_Template_Working_Copy;
1188: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1189: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6200: Leaving Merge_Template_Working_Copy : OKC_API.G_EXCEPTION_ERROR Exception');
1190: END IF;
1190: END IF;
1191: x_return_status := G_RET_STS_ERROR ;
1192: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1193:
1194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1195: ROLLBACK TO g_Merge_Template_Working_Copy;
1196: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1197: 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');
1198: END IF;
1219: */
1220:
1221: PROCEDURE Get_System_Variables (
1222: p_api_version IN NUMBER,
1223: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1224:
1225: x_return_status OUT NOCOPY VARCHAR2,
1226: x_msg_data OUT NOCOPY VARCHAR2,
1227: x_msg_count OUT NOCOPY NUMBER,
1227: x_msg_count OUT NOCOPY NUMBER,
1228:
1229: p_doc_type IN VARCHAR2,
1230: p_doc_id IN NUMBER,
1231: p_only_doc_variables IN VARCHAR2 := FND_API.G_TRUE,
1232:
1233: x_sys_var_value_tbl OUT NOCOPY OKC_TERMS_UTIL_GRP.sys_var_value_tbl_type
1234: ) IS
1235: l_api_version CONSTANT NUMBER := 1;
1257: END IF;
1258: -- Standard Start of API savepoint
1259: SAVEPOINT g_Get_System_Variables;
1260: -- Standard call to check for call compatibility.
1261: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1263: END IF;
1264: -- Initialize message list if p_init_msg_list is set to TRUE.
1265: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1258: -- Standard Start of API savepoint
1259: SAVEPOINT g_Get_System_Variables;
1260: -- Standard call to check for call compatibility.
1261: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1263: END IF;
1264: -- Initialize message list if p_init_msg_list is set to TRUE.
1265: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1266: FND_MSG_PUB.initialize;
1261: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1263: END IF;
1264: -- Initialize message list if p_init_msg_list is set to TRUE.
1265: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1266: FND_MSG_PUB.initialize;
1267: END IF;
1268: -- Initialize API return status to success
1269: x_return_status := G_RET_STS_SUCCESS;
1267: END IF;
1268: -- Initialize API return status to success
1269: x_return_status := G_RET_STS_SUCCESS;
1270:
1271: IF p_only_doc_variables = FND_API.G_TRUE THEN
1272: FOR cr IN var_doc_lst_crs LOOP
1273: x_sys_var_value_tbl(i).Variable_code := cr.variable_code;
1274: i := i+1;
1275: END LOOP;
1298: p_sys_var_value_tbl => x_sys_var_value_tbl);
1299:
1300: --------------------------------------------
1301: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1303: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1304: RAISE FND_API.G_EXC_ERROR ;
1305: END IF;
1306: --------------------------------------------
1300: --------------------------------------------
1301: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1303: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1304: RAISE FND_API.G_EXC_ERROR ;
1305: END IF;
1306: --------------------------------------------
1307: ELSIF l_doc_class = 'PO' THEN
1308: OKC_PO_INT_GRP.get_article_variable_values(
1316: p_doc_id => p_doc_id,
1317: p_sys_var_value_tbl => x_sys_var_value_tbl);
1318: --------------------------------------------
1319: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1321: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1322: RAISE FND_API.G_EXC_ERROR ;
1323: END IF;
1324: --------------------------------------------
1318: --------------------------------------------
1319: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1321: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1322: RAISE FND_API.G_EXC_ERROR ;
1323: END IF;
1324: --------------------------------------------
1325: ELSIF l_doc_class = 'SOURCING' THEN
1326:
1335: p_doc_id => p_doc_id,
1336: p_sys_var_value_tbl => x_sys_var_value_tbl);
1337: --------------------------------------------
1338: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1340: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1341: RAISE FND_API.G_EXC_ERROR ;
1342: END IF;
1343: --------------------------------------------
1337: --------------------------------------------
1338: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1340: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1341: RAISE FND_API.G_EXC_ERROR ;
1342: END IF;
1343: --------------------------------------------
1344: ELSIF l_doc_class = 'QUOTE' THEN
1345:
1354: p_sys_var_value_tbl => x_sys_var_value_tbl);
1355:
1356: --------------------------------------------
1357: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1359: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1360: RAISE FND_API.G_EXC_ERROR ;
1361: END IF;
1362: --------------------------------------------
1356: --------------------------------------------
1357: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1359: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1360: RAISE FND_API.G_EXC_ERROR ;
1361: END IF;
1362: --------------------------------------------
1363: --kkolukul:bug 6924032 Modified for Repository Enhancement
1364: ELSIF l_doc_class = 'REPOSITORY' THEN
1374: x_msg_count => x_msg_count );
1375:
1376: --------------------------------------------
1377: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1379: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1380: RAISE FND_API.G_EXC_ERROR ;
1381: END IF;
1382: --------------------------------------------
1376: --------------------------------------------
1377: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1379: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1380: RAISE FND_API.G_EXC_ERROR ;
1381: END IF;
1382: --------------------------------------------
1383:
1384: ELSE
1390: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1391: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6600: Leaving Get_System_Variables');
1392: END IF;
1393: EXCEPTION
1394: WHEN FND_API.G_EXC_ERROR THEN
1395: ROLLBACK TO g_Get_System_Variables;
1396: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1397: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6700: Leaving Get_System_Variables : OKC_API.G_EXCEPTION_ERROR Exception');
1398: END IF;
1398: END IF;
1399: x_return_status := G_RET_STS_ERROR ;
1400: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1401:
1402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1403: ROLLBACK TO g_Get_System_Variables;
1404: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1405: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6800: Leaving Get_System_Variables : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1406: END IF;
1426: -- for every occurance of variable on document
1427: */
1428: PROCEDURE Substitute_Var_Value_Globally (
1429: p_api_version IN NUMBER,
1430: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1431:
1432: x_return_status OUT NOCOPY VARCHAR2,
1433: x_msg_data OUT NOCOPY VARCHAR2,
1434: x_msg_count OUT NOCOPY NUMBER,
1438: p_variable_code IN VARCHAR2,
1439: p_variable_value IN VARCHAR2,
1440: p_variable_value_id IN VARCHAR2,
1441: p_mode IN VARCHAR2,
1442: p_validate_commit IN VARCHAR2 := FND_API.G_TRUE,
1443: p_validation_string IN VARCHAR2 := NULL
1444: ) IS
1445: l_api_version CONSTANT NUMBER := 1;
1446: l_api_name CONSTANT VARCHAR2(30) := 'Substitute_Var_Value_Globally';
1463: END IF;
1464: -- Standard Start of API savepoint
1465: SAVEPOINT g_Subst_Var_Value_Globally;
1466: -- Standard call to check for call compatibility.
1467: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1469: END IF;
1470: -- Initialize message list if p_init_msg_list is set to TRUE.
1471: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1464: -- Standard Start of API savepoint
1465: SAVEPOINT g_Subst_Var_Value_Globally;
1466: -- Standard call to check for call compatibility.
1467: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1469: END IF;
1470: -- Initialize message list if p_init_msg_list is set to TRUE.
1471: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1472: FND_MSG_PUB.initialize;
1467: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1469: END IF;
1470: -- Initialize message list if p_init_msg_list is set to TRUE.
1471: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1472: FND_MSG_PUB.initialize;
1473: END IF;
1474: -- Initialize API return status to success
1475: x_return_status := G_RET_STS_SUCCESS;
1489: p_doc_type => p_doc_type
1490: );
1491: --------------------------------------------
1492: IF (l_dummy = 'N' OR x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1494: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1495: RAISE FND_API.G_EXC_ERROR ;
1496: END IF;
1497: --------------------------------------------
1491: --------------------------------------------
1492: IF (l_dummy = 'N' OR x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1494: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1495: RAISE FND_API.G_EXC_ERROR ;
1496: END IF;
1497: --------------------------------------------
1498: END IF;
1499:
1510: p_object_version_number => cr.object_version_number
1511: );
1512: --------------------------------------------
1513: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1515: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1516: RAISE FND_API.G_EXC_ERROR ;
1517: END IF;
1518: --------------------------------------------
1512: --------------------------------------------
1513: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1515: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1516: RAISE FND_API.G_EXC_ERROR ;
1517: END IF;
1518: --------------------------------------------
1519: END LOOP;
1520:
1542: p_object_version_number => cr.object_version_number
1543: );
1544: --------------------------------------------
1545: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1547: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1548: RAISE FND_API.G_EXC_ERROR ;
1549: END IF;
1550: --------------------------------------------
1544: --------------------------------------------
1545: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1547: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1548: RAISE FND_API.G_EXC_ERROR ;
1549: END IF;
1550: --------------------------------------------
1551: END LOOP;
1552: END IF;
1556: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1557: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7100: Leaving Substitute_Var_Value_Globally');
1558: END IF;
1559: EXCEPTION
1560: WHEN FND_API.G_EXC_ERROR THEN
1561: ROLLBACK TO g_Subst_Var_Value_Globally;
1562: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1563: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7200: Leaving Substitute_Var_Value_Globally : OKC_API.G_EXCEPTION_ERROR Exception');
1564: END IF;
1564: END IF;
1565: x_return_status := G_RET_STS_ERROR ;
1566: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1567:
1568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1569: ROLLBACK TO g_Subst_Var_Value_Globally;
1570: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1571: 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');
1572: END IF;
1590: -- creating un-assigned sections in a document
1591: */
1592: PROCEDURE Create_Unassigned_Section (
1593: p_api_version IN NUMBER,
1594: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1595: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1596:
1597: x_return_status OUT NOCOPY VARCHAR2,
1598: x_msg_data OUT NOCOPY VARCHAR2,
1591: */
1592: PROCEDURE Create_Unassigned_Section (
1593: p_api_version IN NUMBER,
1594: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1595: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1596:
1597: x_return_status OUT NOCOPY VARCHAR2,
1598: x_msg_data OUT NOCOPY VARCHAR2,
1599: x_msg_count OUT NOCOPY NUMBER,
1621: END IF;
1622: -- Standard Start of API savepoint
1623: SAVEPOINT g_Create_Unassigned_Section;
1624: -- Standard call to check for call compatibility.
1625: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1627: END IF;
1628: -- Initialize message list if p_init_msg_list is set to TRUE.
1629: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1622: -- Standard Start of API savepoint
1623: SAVEPOINT g_Create_Unassigned_Section;
1624: -- Standard call to check for call compatibility.
1625: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1627: END IF;
1628: -- Initialize message list if p_init_msg_list is set to TRUE.
1629: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1630: FND_MSG_PUB.initialize;
1625: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1627: END IF;
1628: -- Initialize message list if p_init_msg_list is set to TRUE.
1629: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1630: FND_MSG_PUB.initialize;
1631: END IF;
1632: -- Initialize API return status to success
1633: x_return_status := G_RET_STS_SUCCESS;
1672: x_id => x_scn_id
1673: );
1674: --------------------------------------------
1675: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1677: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1678: RAISE FND_API.G_EXC_ERROR ;
1679: END IF;
1680: --------------------------------------------
1674: --------------------------------------------
1675: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1677: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1678: RAISE FND_API.G_EXC_ERROR ;
1679: END IF;
1680: --------------------------------------------
1681:
1682: IF FND_API.To_Boolean( p_commit ) THEN
1678: RAISE FND_API.G_EXC_ERROR ;
1679: END IF;
1680: --------------------------------------------
1681:
1682: IF FND_API.To_Boolean( p_commit ) THEN
1683: COMMIT WORK;
1684: END IF;
1685: -- Standard call to get message count and if count is 1, get message info.
1686: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1687: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1688: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7700: Leaving Create_Unassigned_Section');
1689: END IF;
1690: EXCEPTION
1691: WHEN FND_API.G_EXC_ERROR THEN
1692: ROLLBACK TO g_Create_Unassigned_Section;
1693: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1694: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7800: Leaving Create_Unassigned_Section : OKC_API.G_EXCEPTION_ERROR Exception');
1695: END IF;
1700:
1701: x_return_status := G_RET_STS_ERROR ;
1702: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1703:
1704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1705: ROLLBACK TO g_Create_Unassigned_Section;
1706: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1707: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving Create_Unassigned_Section : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1708: END IF;
1737: p_doc_type IN VARCHAR2,
1738: x_return_status OUT NOCOPY VARCHAR2
1739: ) RETURN VARCHAR2 IS
1740: l_dummy VARCHAR2(1) := '?';
1741: l_return VARCHAR2(1) := FND_API.G_TRUE;
1742: cursor l_check_doc_type_crs IS
1743: SELECT 'X' FROM OKC_BUS_DOC_TYPES_B
1744: WHERE document_type=p_doc_type;
1745: BEGIN
1746:
1747: OPEN l_check_doc_type_crs;
1748: FETCH l_check_doc_type_crs INTO l_dummy;
1749: IF l_check_doc_type_crs%NOTFOUND THEN
1750: return FND_API.G_FALSE;
1751: ELSE
1752: return FnD_API.G_TRUE;
1753: END IF;
1754:
1748: FETCH l_check_doc_type_crs INTO l_dummy;
1749: IF l_check_doc_type_crs%NOTFOUND THEN
1750: return FND_API.G_FALSE;
1751: ELSE
1752: return FnD_API.G_TRUE;
1753: END IF;
1754:
1755: CLOSE l_check_doc_type_crs;
1756:
1762:
1763: IF l_check_doc_type_crs%ISOPEN THEN
1764: CLOSE l_check_doc_type_crs;
1765: END IF;
1766: return FND_API.G_FALSE;
1767: x_return_status := G_RET_STS_UNEXP_ERROR ;
1768:
1769: END;
1770: /*
1969: Close editable_csr;
1970: IF l_editable_yn = 'Y' THEN
1971: l_deliverables_exist := okc_terms_util_grp.Is_Deliverable_Exist(
1972: p_api_version => 1,
1973: p_init_msg_list => FND_API.G_FALSE,
1974: x_return_status => x_return_status,
1975: x_msg_data => x_msg_data,
1976: x_msg_count => x_msg_count,
1977: p_doc_type => 'TEMPLATE',
2195:
2196: l_amendment :=
2197: OKC_DELIVERABLE_PROCESS_PVT.deliverables_amended(
2198: p_api_version => 1,
2199: p_init_msg_list => FND_API.G_FALSE,
2200:
2201: x_return_status => l_return_status,
2202: x_msg_data => l_msg_data,
2203: x_msg_count => l_msg_count,
2233:
2234: BEGIN
2235:
2236: IF p_existing_summary_code='ADDED' AND p_amend_operation_code ='DELETED' THEN
2237: l_new_summary_code:=FND_API.G_MISS_CHAR; -- Summary should be set to NULL
2238: ELSIF p_existing_summary_code='ADDED' AND p_amend_operation_code = 'UPDATED' THEN
2239: l_new_summary_code:=p_existing_summary_code;
2240: ELSIF p_existing_summary_code='DELETED' AND p_amend_operation_code = 'UPDATED' THEN
2241: l_new_summary_code:=p_existing_summary_code;
2239: l_new_summary_code:=p_existing_summary_code;
2240: ELSIF p_existing_summary_code='DELETED' AND p_amend_operation_code = 'UPDATED' THEN
2241: l_new_summary_code:=p_existing_summary_code;
2242: ELSIF p_existing_summary_code='DELETED' AND p_amend_operation_code = 'ADDED' THEN
2243: l_new_summary_code:=FND_API.G_MISS_CHAR;
2244: ELSE
2245: l_new_summary_code := p_amend_operation_code;
2246: END IF;
2247:
2264: l_new_summary_code:=get_summary_amend_code(p_existing_summary_code=>p_existing_summary_code,
2265: p_existing_operation_code=>p_existing_operation_code,
2266: p_amend_operation_code=>p_amend_operation_code);
2267:
2268: if l_new_summary_code = FND_API.G_MISS_CHAR then
2269: return NULL;
2270: end if;
2271:
2272: return l_new_summary_code;
3104: Where Used: In Authoring page: Structure page invokes this procedure
3105: *************************************************************************************/
3106: PROCEDURE get_template_details (
3107: p_api_version IN NUMBER,
3108: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3109: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3110:
3111: x_return_status OUT NOCOPY VARCHAR2,
3112: x_msg_data OUT NOCOPY VARCHAR2,
3105: *************************************************************************************/
3106: PROCEDURE get_template_details (
3107: p_api_version IN NUMBER,
3108: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3109: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3110:
3111: x_return_status OUT NOCOPY VARCHAR2,
3112: x_msg_data OUT NOCOPY VARCHAR2,
3113: x_msg_count OUT NOCOPY NUMBER,
3143: l_config_revision_number NUMBER;
3144: l_valid_config_yn VARCHAR2(2000);
3145: l_article_effective_date DATE;
3146: l_update_date BOOLEAN := false;
3147: l_update_date_with DATE := FND_API.G_MISS_DATE;
3148:
3149:
3150: Cursor l_get_template_details_csr IS
3151: select a.template_id, b.template_name, a.article_effective_date,
3172: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7500: Entered get_template_details');
3173: END IF;
3174:
3175: -- Standard call to check for call compatibility.
3176: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3178: END IF;
3179: -- Initialize message list if p_init_msg_list is set to TRUE.
3180: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3173: END IF;
3174:
3175: -- Standard call to check for call compatibility.
3176: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3178: END IF;
3179: -- Initialize message list if p_init_msg_list is set to TRUE.
3180: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3181: FND_MSG_PUB.initialize;
3176: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3178: END IF;
3179: -- Initialize message list if p_init_msg_list is set to TRUE.
3180: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3181: FND_MSG_PUB.initialize;
3182: END IF;
3183: -- Initialize API return status to success
3184: x_return_status := G_RET_STS_SUCCESS;
3246: l_update_date := true;
3247: l_update_date_with := p_eff_date;
3248: elsif(l_article_effective_date <> p_eff_date and p_eff_date is NULL) then
3249: l_update_date := true;
3250: l_update_date_with := FND_API.G_MISS_DATE;
3251: elsif(l_article_effective_date <> p_eff_date ) then
3252: l_update_date := true;
3253: l_update_date_with := p_eff_date;
3254: end if;
3268:
3269:
3270: --------------------------------------------
3271: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3273: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3274: RAISE FND_API.G_EXC_ERROR ;
3275: END IF;
3276: --------------------------------------------
3270: --------------------------------------------
3271: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3273: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3274: RAISE FND_API.G_EXC_ERROR ;
3275: END IF;
3276: --------------------------------------------
3277:
3278: IF FND_API.To_Boolean( p_commit ) THEN
3274: RAISE FND_API.G_EXC_ERROR ;
3275: END IF;
3276: --------------------------------------------
3277:
3278: IF FND_API.To_Boolean( p_commit ) THEN
3279: COMMIT WORK;
3280: END IF;
3281: -- Standard call to get message count and if count is 1, get message info.
3282: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3283: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3284: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7700: Leaving get_template_details');
3285: END IF;
3286: EXCEPTION
3287: WHEN FND_API.G_EXC_ERROR THEN
3288:
3289: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3290: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7800: Leaving get_template_details : OKC_API.G_EXCEPTION_ERROR Exception');
3291: END IF;
3301:
3302: x_return_status := G_RET_STS_ERROR ;
3303: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3304:
3305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3306: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3307: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving get_template_details : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
3308: END IF;
3309:
3468: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1040: Before calling OKC_DELIVERABLE_PROCESS_PVT.deliverable_amendment_exists');
3469: END IF;
3470: l_return := OKC_DELIVERABLE_PROCESS_PVT.deliverable_amendment_exists
3471: ( p_api_version => 1,
3472: p_init_msg_list => FND_API.G_FALSE,
3473: p_bus_doc_type => p_document_type,
3474: p_bus_doc_id => p_document_id,
3475: p_variable_code => rec.variable_code,
3476: x_msg_data => l_msg_data,
3512: IS
3513: l_api_name CONSTANT VARCHAR2(30) :='purge_qa_validation_results';
3514: l_api_version CONSTANT VARCHAR2(30) := 1.0;
3515: l_init_msg_list VARCHAR2(3) := 'T';
3516: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3517: l_msg_count NUMBER;
3518: l_msg_data VARCHAR2(1000);
3519: l_num_days NUMBER;
3520:
3547: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: leaving OKC_TERMS_UTIL_PVT.PURGE_QA_RESULTS');
3548: END IF;
3549: EXCEPTION
3550: WHEN E_Resource_Busy THEN
3551: l_return_status := fnd_api.g_ret_sts_error;
3552: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3553: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'200: Resource busy exception');
3554: END IF;
3555: IF FND_MSG_PUB.Count_Msg > 0 Then
3553: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'200: Resource busy exception');
3554: END IF;
3555: IF FND_MSG_PUB.Count_Msg > 0 Then
3556: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
3557: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
3558: END LOOP;
3559:
3560: END IF;
3561: FND_MSG_PUB.initialize;
3570: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3571: END IF;
3572: IF FND_MSG_PUB.Count_Msg > 0 Then
3573: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
3574: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
3575: END LOOP;
3576: END IF;
3577: FND_MSG_PUB.initialize;
3578:
3981: IF l_row_notfound THEN
3982: Okc_Api.Set_Message(
3983: p_app_name => G_APP_NAME,
3984: p_msg_name => 'OKC_TERM_INVALID_TEMPLATE_ID');
3985: RAISE FND_API.G_EXC_ERROR;
3986: END IF;
3987:
3988: ELSE
3989: l_start_date := p_template_start_date;
4130: --COMMIT;
4131: END IF;
4132:
4133: EXCEPTION
4134: WHEN FND_API.G_EXC_ERROR THEN
4135: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4136: 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');
4137: END IF;
4138: x_return_status := G_RET_STS_ERROR;
4163: -- new out parameter x_parent_template_id returns the template id of the merged template
4164: */
4165: PROCEDURE merge_template_working_copy (
4166: p_api_version IN NUMBER,
4167: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4168: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4169: x_return_status OUT NOCOPY VARCHAR2,
4170: x_msg_data OUT NOCOPY VARCHAR2,
4171: x_msg_count OUT NOCOPY NUMBER,
4164: */
4165: PROCEDURE merge_template_working_copy (
4166: p_api_version IN NUMBER,
4167: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4168: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4169: x_return_status OUT NOCOPY VARCHAR2,
4170: x_msg_data OUT NOCOPY VARCHAR2,
4171: x_msg_count OUT NOCOPY NUMBER,
4172:
4261: --Pre-reqs : None.
4262: --Parameters :
4263: --IN : p_api_version IN NUMBER Required
4264: -- : p_init_msg_list IN VARCHAR2 Optional
4265: -- Default = FND_API.G_FALSE
4266: -- : p_commit IN VARCHAR2 Optional
4267: -- Default = FND_API.G_FALSE
4268: -- : p_doc_ids_tbl IN doc_ids_tbl Required
4269: -- List of document ids whose Contract Administrator to be changed
4263: --IN : p_api_version IN NUMBER Required
4264: -- : p_init_msg_list IN VARCHAR2 Optional
4265: -- Default = FND_API.G_FALSE
4266: -- : p_commit IN VARCHAR2 Optional
4267: -- Default = FND_API.G_FALSE
4268: -- : p_doc_ids_tbl IN doc_ids_tbl Required
4269: -- List of document ids whose Contract Administrator to be changed
4270: -- : p_doc_types_tbl IN doc_types_tbl Required
4271: -- List of document types whose Contract Administrator to be changed
4305: -- Standard Start of API savepoint
4306: SAVEPOINT update_contract_admin;
4307:
4308: -- Standard call to check for call compatibility.
4309: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4311: END IF;
4312:
4313: -- Initialize message list if p_init_msg_list is set to TRUE.
4306: SAVEPOINT update_contract_admin;
4307:
4308: -- Standard call to check for call compatibility.
4309: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4311: END IF;
4312:
4313: -- Initialize message list if p_init_msg_list is set to TRUE.
4314: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4311: END IF;
4312:
4313: -- Initialize message list if p_init_msg_list is set to TRUE.
4314: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4315: FND_MSG_PUB.initialize;
4316: END IF;
4317:
4318: -- Initialize API return status to success
4315: FND_MSG_PUB.initialize;
4316: END IF;
4317:
4318: -- Initialize API return status to success
4319: x_return_status := FND_API.G_RET_STS_SUCCESS;
4320:
4321: FORALL i IN p_doc_ids_tbl.FIRST..p_doc_ids_tbl.LAST
4322: UPDATE okc_template_usages
4323: SET contract_admin_id = p_new_con_admin_user_ids_tbl(i)
4339: END IF;
4340:
4341: ROLLBACK TO update_contract_admin;
4342:
4343: x_return_status := FND_API.G_RET_STS_ERROR;
4344: FND_MSG_PUB.Count_And_Get(
4345: p_count => x_msg_count,
4346: p_data => x_msg_data);
4347:
4357: --Pre-reqs : None.
4358: --Parameters :
4359: --IN : p_api_version IN NUMBER Required
4360: -- : p_init_msg_list IN VARCHAR2 Optional
4361: -- Default = FND_API.G_FALSE
4362: -- : p_doc_id IN NUMBER Required
4363: -- Id of document whose Contract Administrator is required
4364: -- : p_doc_type IN VARCHAR2 Required
4365: -- Type of document whose Contract Administrator is required
4555: g_module || l_api_name,
4556: 'Leaving OKC_TERMS_UTIL_PVT.get_sales_group_con_admin because of EXCEPTION: ' || sqlerrm);
4557: END IF;
4558:
4559: x_return_status := FND_API.G_RET_STS_ERROR;
4560: FND_MSG_PUB.Count_And_Get(
4561: p_count => x_msg_count,
4562: p_data => x_msg_data);
4563:
4648: RETURN NULL;
4649: END IF;
4650: get_sales_group_con_admin(
4651: p_api_version => l_api_version,
4652: p_init_msg_list => FND_API.G_FALSE,
4653: p_doc_id => p_document_id,
4654: p_doc_type => p_document_type,
4655: x_new_con_admin_user_id => l_default_ctrt_admin_id,
4656: x_return_status => l_return_status,
4689: END get_contract_admin_name;
4690:
4691: PROCEDURE get_default_contract_admin(
4692: p_api_version IN NUMBER,
4693: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4694:
4695: p_document_type IN VARCHAR2,
4696: p_document_id IN NUMBER,
4697: x_has_default_contract_admin OUT NOCOPY VARCHAR2,
4711: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8000: Entered get_default_contract_admin');
4712: END IF;
4713:
4714: -- Standard call to check for call compatibility.
4715: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4717: END IF;
4718:
4719: -- Initialize message list if p_init_msg_list is set to TRUE.
4712: END IF;
4713:
4714: -- Standard call to check for call compatibility.
4715: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4717: END IF;
4718:
4719: -- Initialize message list if p_init_msg_list is set to TRUE.
4720: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4717: END IF;
4718:
4719: -- Initialize message list if p_init_msg_list is set to TRUE.
4720: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4721: FND_MSG_PUB.initialize;
4722: END IF;
4723:
4724: x_return_status := G_RET_STS_SUCCESS;
4871: --For R12 MSWord@WaySync
4872:
4873: PROCEDURE lock_contract(
4874: p_api_version IN NUMBER,
4875: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4876:
4877: p_commit IN Varchar2,
4878: p_document_type IN VARCHAR2,
4879: p_document_id IN NUMBER,
4890: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8000: Entered lock_contract');
4891: END IF;
4892:
4893: -- Standard call to check for call compatibility.
4894: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4896: END IF;
4897:
4898: -- Initialize message list if p_init_msg_list is set to TRUE.
4891: END IF;
4892:
4893: -- Standard call to check for call compatibility.
4894: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4896: END IF;
4897:
4898: -- Initialize message list if p_init_msg_list is set to TRUE.
4899: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4896: END IF;
4897:
4898: -- Initialize message list if p_init_msg_list is set to TRUE.
4899: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4900: FND_MSG_PUB.initialize;
4901: END IF;
4902:
4903: x_return_status := G_RET_STS_SUCCESS;
4903: x_return_status := G_RET_STS_SUCCESS;
4904: OKC_TEMPLATE_USAGES_GRP.update_template_usages(
4905: p_api_version => l_api_version,
4906: p_init_msg_list => p_init_msg_list ,
4907: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4908: p_commit => FND_API.G_FALSE,
4909: x_return_status => x_return_status,
4910: x_msg_count => x_msg_count,
4911: x_msg_data => x_msg_data,
4904: OKC_TEMPLATE_USAGES_GRP.update_template_usages(
4905: p_api_version => l_api_version,
4906: p_init_msg_list => p_init_msg_list ,
4907: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4908: p_commit => FND_API.G_FALSE,
4909: x_return_status => x_return_status,
4910: x_msg_count => x_msg_count,
4911: x_msg_data => x_msg_data,
4912: p_document_type => p_document_type,
4937:
4938: --For R12: MSWord2WaySync
4939: PROCEDURE unlock_contract(
4940: p_api_version IN NUMBER,
4941: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4942:
4943: p_commit IN Varchar2,
4944: p_document_type IN VARCHAR2,
4945: p_document_id IN NUMBER,
4955: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8000: Entered lock_contract');
4956: END IF;
4957:
4958: -- Standard call to check for call compatibility.
4959: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4961: END IF;
4962:
4963: -- Initialize message list if p_init_msg_list is set to TRUE.
4956: END IF;
4957:
4958: -- Standard call to check for call compatibility.
4959: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4961: END IF;
4962:
4963: -- Initialize message list if p_init_msg_list is set to TRUE.
4964: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4961: END IF;
4962:
4963: -- Initialize message list if p_init_msg_list is set to TRUE.
4964: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4965: FND_MSG_PUB.initialize;
4966: END IF;
4967:
4968: x_return_status := G_RET_STS_SUCCESS;
4968: x_return_status := G_RET_STS_SUCCESS;
4969: OKC_TEMPLATE_USAGES_GRP.update_template_usages(
4970: p_api_version => l_api_version,
4971: p_init_msg_list => p_init_msg_list ,
4972: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4973: p_commit => FND_API.G_FALSE,
4974: x_return_status => x_return_status,
4975: x_msg_count => x_msg_count,
4976: x_msg_data => x_msg_data,
4969: OKC_TEMPLATE_USAGES_GRP.update_template_usages(
4970: p_api_version => l_api_version,
4971: p_init_msg_list => p_init_msg_list ,
4972: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4973: p_commit => FND_API.G_FALSE,
4974: x_return_status => x_return_status,
4975: x_msg_count => x_msg_count,
4976: x_msg_data => x_msg_data,
4977: p_document_type => p_document_type,
5164: --Pre-reqs : None.
5165: --Parameters :
5166: --IN : p_api_version IN NUMBER Required
5167: -- : p_init_msg_list IN VARCHAR2 Optional
5168: -- Default = FND_API.G_FALSE
5169: -- : p_document_id IN NUMBER Required
5170: -- Id of document whose udv with procs are to be set
5171: -- : p_doc_type IN VARCHAR2 Required
5172: -- Type of document whose udv with procs are to be set
5179:
5180:
5181: PROCEDURE set_udv_with_procedures (
5182: p_api_version IN NUMBER,
5183: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5184:
5185: p_document_type IN VARCHAR2,
5186: p_document_id IN NUMBER,
5187: p_output_error IN VARCHAR2 := FND_API.G_TRUE,
5183: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5184:
5185: p_document_type IN VARCHAR2,
5186: p_document_id IN NUMBER,
5187: p_output_error IN VARCHAR2 := FND_API.G_TRUE,
5188:
5189: x_return_status OUT NOCOPY VARCHAR2,
5190: x_msg_data OUT NOCOPY VARCHAR2,
5191: x_msg_count OUT NOCOPY NUMBER
5219: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: p_document_id:'||p_document_id);
5220: END IF;
5221:
5222: /* Standard call to check for call compatibility */
5223: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5225: END IF;
5226:
5227: /* Initialize message list if p_init_msg_list is set to TRUE */
5220: END IF;
5221:
5222: /* Standard call to check for call compatibility */
5223: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5225: END IF;
5226:
5227: /* Initialize message list if p_init_msg_list is set to TRUE */
5228: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5225: END IF;
5226:
5227: /* Initialize message list if p_init_msg_list is set to TRUE */
5228: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5229: FND_MSG_PUB.initialize;
5230: END IF;
5231:
5232: /* Initialize API return status to success */
5280: l_previous_var_code := csr_udv_with_procs_rec.variable_code;
5281:
5282: END LOOP;
5283:
5284: IF p_output_error = FND_API.G_TRUE AND FND_MSG_PUB.Count_Msg > 0 THEN
5285:
5286: x_return_status := G_RET_STS_ERROR;
5287: RAISE FND_API.G_EXC_ERROR;
5288: END IF;
5283:
5284: IF p_output_error = FND_API.G_TRUE AND FND_MSG_PUB.Count_Msg > 0 THEN
5285:
5286: x_return_status := G_RET_STS_ERROR;
5287: RAISE FND_API.G_EXC_ERROR;
5288: END IF;
5289:
5290: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5291: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Leaving set_udv_with_procedures');
5291: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Leaving set_udv_with_procedures');
5292: END IF;
5293:
5294: EXCEPTION
5295: WHEN FND_API.G_EXC_ERROR THEN
5296:
5297: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5298: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving set_udv_with_procedures : OKC_API.G_EXCEPTION_ERROR Exception');
5299: END IF;
5304:
5305: x_return_status := G_RET_STS_ERROR ;
5306: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5307:
5308: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5309:
5310: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5311: 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');
5312: END IF;
5356: PROCEDURE get_udv_with_proc_value (
5357: p_document_type IN VARCHAR2,
5358: p_document_id IN NUMBER,
5359: p_variable_code IN VARCHAR2,
5360: p_output_error IN VARCHAR2 := FND_API.G_FALSE,
5361: x_variable_value OUT NOCOPY VARCHAR2,
5362: x_return_status OUT NOCOPY VARCHAR2,
5363: x_msg_data OUT NOCOPY VARCHAR2,
5364: x_msg_count OUT NOCOPY NUMBER
5495: IF (l_return_status = G_RET_STS_ERROR) THEN
5496:
5497: l_variable_value_id := NULL;
5498:
5499: IF p_output_error = FND_API.G_TRUE THEN
5500: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_EXEC');
5501: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5502: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5503: FND_MSG_PUB.ADD;
5505: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5506:
5507: l_variable_value_id := NULL;
5508:
5509: IF p_output_error = FND_API.G_TRUE THEN
5510: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_UNEXP');
5511: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5512: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5513: FND_MSG_PUB.ADD;
5522: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5523: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: Error in procedure execution:'||sqlerrm);
5524: END IF;
5525:
5526: IF p_output_error = FND_API.G_TRUE THEN
5527:
5528: l_dummy := '?';
5529: OPEN csr_check_proc_exists(p_procedure_name => l_procedure_name);
5530: FETCH csr_check_proc_exists INTO l_dummy;
5614: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5615: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'500: Error while fetching value from valueset:'||sqlerrm);
5616: END IF;
5617:
5618: IF p_output_error = FND_API.G_TRUE THEN
5619: FND_MESSAGE.set_name('OKC','OKC_UDV_VSET_INVALID');
5620: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5621: FND_MSG_PUB.ADD;
5622: END IF;
5631: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Leaving get_udv_with_proc_value');
5632: END IF;
5633:
5634: EXCEPTION
5635: WHEN FND_API.G_EXC_ERROR THEN
5636:
5637: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5638: 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');
5639: END IF;
5644:
5645: x_return_status := G_RET_STS_ERROR ;
5646: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5647:
5648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5649:
5650: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5651: 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');
5652: END IF;