[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:
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:
290: OPEN tmpl_prnt_crs;
291: FETCH tmpl_prnt_crs INTO l_status;
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:
304: OPEN tmpl_usd_crs;
305: FETCH tmpl_usd_crs INTO l_flag;
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:
317: --------------------------------------------
318: -- Delete the record from OKC_ALLOWED_TMPL_USAGES_V
328: p_template_id => p_doc_id
329: );
330: --------------------------------------------
331: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
333: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
334: RAISE FND_API.G_EXC_ERROR ;
335: END IF;
336: --------------------------------------------
330: --------------------------------------------
331: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
333: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
334: RAISE FND_API.G_EXC_ERROR ;
335: END IF;
336: --------------------------------------------
337:
338: -- Delete record from okc_terms_templates
349: p_object_version_number => cr.object_version_number
350: );
351: --------------------------------------------
352: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
354: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
355: RAISE FND_API.G_EXC_ERROR ;
356: END IF;
357: --------------------------------------------
351: --------------------------------------------
352: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
354: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
355: RAISE FND_API.G_EXC_ERROR ;
356: END IF;
357: --------------------------------------------
358: /*
359: * Removed call to OKC_EXPRT_UTIL_GRP for 11.5.10+: Contract Expert Changes
371: x_msg_data => l_msg_data,
372: x_msg_count => l_msg_count);
373: --------------------------------------------
374: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
376: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
377: RAISE FND_API.G_EXC_ERROR ;
378: END IF;
379: --------------------------------------------
373: --------------------------------------------
374: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
376: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
377: RAISE FND_API.G_EXC_ERROR ;
378: END IF;
379: --------------------------------------------
380:
381: END LOOP;
394: p_doc_id => p_doc_id
395: );
396: --------------------------------------------
397: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
399: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
400: RAISE FND_API.G_EXC_ERROR ;
401: END IF;
402: --------------------------------------------
396: --------------------------------------------
397: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
399: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
400: RAISE FND_API.G_EXC_ERROR ;
401: END IF;
402: --------------------------------------------
403:
404: --------------------------------------------
413: p_doc_id => p_doc_id
414: );
415: --------------------------------------------
416: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
418: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
419: RAISE FND_API.G_EXC_ERROR ;
420: END IF;
421: --------------------------------------------
415: --------------------------------------------
416: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
418: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
419: RAISE FND_API.G_EXC_ERROR ;
420: END IF;
421: --------------------------------------------
422:
423: --------------------------------------------
432: p_doc_id => p_doc_id
433: );
434: --------------------------------------------
435: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
437: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
438: RAISE FND_API.G_EXC_ERROR ;
439: END IF;
440: --------------------------------------------
434: --------------------------------------------
435: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
437: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
438: RAISE FND_API.G_EXC_ERROR ;
439: END IF;
440: --------------------------------------------
441:
442: -------------------------------------------------
451: x_msg_data => l_msg_data,
452: x_msg_count => l_msg_count);
453: --------------------------------------------
454: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
456: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
457: RAISE FND_API.G_EXC_ERROR ;
458: END IF;
459: --------------------------------------------
453: --------------------------------------------
454: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
456: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
457: RAISE FND_API.G_EXC_ERROR ;
458: END IF;
459: --------------------------------------------
460:
461: ------------------------------------------------
479: p_object_version_number => l_objnum
480: );
481: --------------------------------------------
482: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
484: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
485: RAISE FND_API.G_EXC_ERROR ;
486: END IF;
487: --------------------------------------------
481: --------------------------------------------
482: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
484: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
485: RAISE FND_API.G_EXC_ERROR ;
486: END IF;
487: --------------------------------------------
488: END IF;
489:
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
498: CLOSE tmpl_sts_crs;
499: END IF;
500:
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
515: IF tmpl_sts_crs%ISOPEN THEN
516: CLOSE tmpl_sts_crs;
517: END IF;
518:
591: p_major_version => p_version_number
592: );
593: --------------------------------------------
594: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
596: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
597: RAISE FND_API.G_EXC_ERROR ;
598: END IF;
599: --------------------------------------------
593: --------------------------------------------
594: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
596: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
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
608: p_major_version => p_version_number
609: );
610: --------------------------------------------
611: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
613: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
614: RAISE FND_API.G_EXC_ERROR ;
615: END IF;
616: --------------------------------------------
610: --------------------------------------------
611: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
613: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
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
624: p_major_version => p_version_number
625: );
626: --------------------------------------------
627: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
629: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
630: RAISE FND_API.G_EXC_ERROR ;
631: END IF;
632: --------------------------------------------
626: --------------------------------------------
627: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
629: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
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
641: p_major_version => p_version_number
642: );
643: --------------------------------------------
644: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
646: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
647: RAISE FND_API.G_EXC_ERROR ;
648: END IF;
649: --------------------------------------------
643: --------------------------------------------
644: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
646: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
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
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 ;
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
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 ;
682: -- This API will be used to mark any article as amended if any of variables have been changed.
683: */
684: PROCEDURE Mark_Amendment (
685: p_api_version IN NUMBER,
686: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
687:
688: x_return_status OUT NOCOPY VARCHAR2,
689: x_msg_data OUT NOCOPY VARCHAR2,
690: x_msg_count OUT NOCOPY NUMBER,
709: END IF;
710: -- Standard Start of API savepoint
711: SAVEPOINT g_Mark_Amendment;
712: -- Standard call to check for call compatibility.
713: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
715: END IF;
716: -- Initialize message list if p_init_msg_list is set to TRUE.
717: IF FND_API.to_Boolean( p_init_msg_list ) THEN
710: -- Standard Start of API savepoint
711: SAVEPOINT g_Mark_Amendment;
712: -- Standard call to check for call compatibility.
713: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
715: END IF;
716: -- Initialize message list if p_init_msg_list is set to TRUE.
717: IF FND_API.to_Boolean( p_init_msg_list ) THEN
718: FND_MSG_PUB.initialize;
713: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
715: END IF;
716: -- Initialize message list if p_init_msg_list is set to TRUE.
717: IF FND_API.to_Boolean( p_init_msg_list ) THEN
718: FND_MSG_PUB.initialize;
719: END IF;
720: -- Initialize API return status to success
721: x_return_status := G_RET_STS_SUCCESS;
729: -- Update each record from okc_terms_templates for
730: --------------------------------------------
731: OKC_K_ARTICLES_GRP.Update_article(
732: p_api_version => 1,
733: p_init_msg_list => FND_API.G_FALSE ,
734: x_return_status => x_return_status,
735: x_msg_data => x_msg_data,
736: x_msg_count => x_msg_count,
737: p_mode => 'AMEND',
739: p_object_version_number => cr.object_version_number
740: );
741: --------------------------------------------
742: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
744: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
745: RAISE FND_API.G_EXC_ERROR ;
746: END IF;
747: --------------------------------------------
741: --------------------------------------------
742: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
744: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
745: RAISE FND_API.G_EXC_ERROR ;
746: END IF;
747: --------------------------------------------
748: END LOOP;
749:
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;
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;
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:
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;
792: 2. Update the table OKC_TMPL_DRAFT_CLAUSES with the merged/parent template id.
793: */
794: PROCEDURE Merge_Template_Working_Copy (
795: p_api_version IN NUMBER,
796: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
797: p_commit IN VARCHAR2 := FND_API.G_FALSE,
798:
799: x_return_status OUT NOCOPY VARCHAR2,
800: x_msg_data OUT NOCOPY VARCHAR2,
793: */
794: PROCEDURE Merge_Template_Working_Copy (
795: p_api_version IN NUMBER,
796: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
797: p_commit IN VARCHAR2 := FND_API.G_FALSE,
798:
799: x_return_status OUT NOCOPY VARCHAR2,
800: x_msg_data OUT NOCOPY VARCHAR2,
801: x_msg_count OUT NOCOPY NUMBER,
836: END IF;
837: -- Standard Start of API savepoint
838: SAVEPOINT g_Merge_Template_Working_Copy;
839: -- Standard call to check for call compatibility.
840: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
842: END IF;
843: -- Initialize message list if p_init_msg_list is set to TRUE.
844: IF FND_API.to_Boolean( p_init_msg_list ) THEN
837: -- Standard Start of API savepoint
838: SAVEPOINT g_Merge_Template_Working_Copy;
839: -- Standard call to check for call compatibility.
840: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
842: END IF;
843: -- Initialize message list if p_init_msg_list is set to TRUE.
844: IF FND_API.to_Boolean( p_init_msg_list ) THEN
845: FND_MSG_PUB.initialize;
840: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
842: END IF;
843: -- Initialize message list if p_init_msg_list is set to TRUE.
844: IF FND_API.to_Boolean( p_init_msg_list ) THEN
845: FND_MSG_PUB.initialize;
846: END IF;
847: -- Initialize API return status to success
848: x_return_status := G_RET_STS_SUCCESS;
861: l_found := get_par_id_csr%FOUND;
862: CLOSE get_par_id_csr;
863: IF not l_found THEN
864: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'p_template_id');
865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
866: END IF;
867:
868: --------------------------------------------
869: -- Delete Base Template
879: p_delete_parent_yn => 'Y'
880: );
881: --------------------------------------------
882: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
884: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
885: RAISE FND_API.G_EXC_ERROR ;
886: END IF;
887: --------------------------------------------
881: --------------------------------------------
882: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
884: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
885: RAISE FND_API.G_EXC_ERROR ;
886: END IF;
887: --------------------------------------------
888:
889: --------------------------------------------
896: p_template_id => l_base_template_id
897: );
898: --------------------------------------------
899: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
901: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
902: RAISE FND_API.G_EXC_ERROR ;
903: END IF;
904: --------------------------------------------
898: --------------------------------------------
899: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
901: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
902: RAISE FND_API.G_EXC_ERROR ;
903: END IF;
904: --------------------------------------------
905:
906: --------------------------------------------
916: p_doc_id => l_base_template_id
917: );
918: --------------------------------------------
919: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
921: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
922: RAISE FND_API.G_EXC_ERROR ;
923: END IF;
924: --------------------------------------------
918: --------------------------------------------
919: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
921: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
922: RAISE FND_API.G_EXC_ERROR ;
923: END IF;
924: --------------------------------------------
925:
926: --------------------------------------------
936: p_doc_id => l_base_template_id
937: );
938: --------------------------------------------
939: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
941: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
942: RAISE FND_API.G_EXC_ERROR ;
943: END IF;
944: --------------------------------------------
938: --------------------------------------------
939: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
941: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
942: RAISE FND_API.G_EXC_ERROR ;
943: END IF;
944: --------------------------------------------
945:
946: --------------------------------------------
955: p_doc_id => l_base_template_id
956: );
957: --------------------------------------------
958: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
960: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
961: RAISE FND_API.G_EXC_ERROR ;
962: END IF;
963: --------------------------------------------
957: --------------------------------------------
958: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
960: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
961: RAISE FND_API.G_EXC_ERROR ;
962: END IF;
963: --------------------------------------------
964:
965: --------------------------------------------
979: x_return_status => x_return_status
980: );
981: --------------------------------------------
982: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
984: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
985: RAISE FND_API.G_EXC_ERROR ;
986: END IF;
987: --------------------------------------------
981: --------------------------------------------
982: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
984: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
985: RAISE FND_API.G_EXC_ERROR ;
986: END IF;
987: --------------------------------------------
988:
989:
1000: p_new_template_id => l_base_template_id
1001: );
1002: --------------------------------------------
1003: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1005: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1006: RAISE FND_API.G_EXC_ERROR ;
1007: END IF;
1008: --------------------------------------------
1002: --------------------------------------------
1003: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1005: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1006: RAISE FND_API.G_EXC_ERROR ;
1007: END IF;
1008: --------------------------------------------
1009:
1010: --------------------------------------------
1021: p_new_template_id => l_base_template_id
1022: );
1023: --------------------------------------------
1024: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1026: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1027: RAISE FND_API.G_EXC_ERROR ;
1028: END IF;
1029: --------------------------------------------
1023: --------------------------------------------
1024: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1026: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1027: RAISE FND_API.G_EXC_ERROR ;
1028: END IF;
1029: --------------------------------------------
1030:
1031: --------------------------------------------
1045: p_object_version_number => cr.object_version_number
1046: );
1047: --------------------------------------------
1048: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1050: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1051: RAISE FND_API.G_EXC_ERROR ;
1052: END IF;
1053: --------------------------------------------
1047: --------------------------------------------
1048: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1050: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1051: RAISE FND_API.G_EXC_ERROR ;
1052: END IF;
1053: --------------------------------------------
1054: END LOOP;
1055:
1070: p_object_version_number => cr.object_version_number
1071: );
1072: --------------------------------------------
1073: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1075: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1076: RAISE FND_API.G_EXC_ERROR ;
1077: END IF;
1078: --------------------------------------------
1072: --------------------------------------------
1073: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1075: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1076: RAISE FND_API.G_EXC_ERROR ;
1077: END IF;
1078: --------------------------------------------
1079: END LOOP;
1080:
1092: p_working_template_id => p_template_id
1093: );
1094: --------------------------------------------
1095: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1097: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1098: RAISE FND_API.G_EXC_ERROR ;
1099: END IF;
1100: --------------------------------------------
1094: --------------------------------------------
1095: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1097: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1098: RAISE FND_API.G_EXC_ERROR ;
1099: END IF;
1100: --------------------------------------------
1101:
1102: --Added 11.5.10+ CE
1105: --------------------------------------------
1106: OKC_XPRT_TMPL_RULE_ASSNS_PVT.merge_template_rule_assns (
1107: p_api_version => p_api_version ,
1108: p_init_msg_list => p_init_msg_list,
1109: p_commit => FND_API.G_FALSE,
1110: x_msg_data => x_msg_data ,
1111: x_msg_count => x_msg_count ,
1112: x_return_status => x_return_status,
1113:
1115: p_parent_template_id => l_base_template_id
1116: );
1117: --------------------------------------------
1118: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1120: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1121: RAISE FND_API.G_EXC_ERROR ;
1122: END IF;
1123: --------------------------------------------
1117: --------------------------------------------
1118: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1120: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1121: RAISE FND_API.G_EXC_ERROR ;
1122: END IF;
1123: --------------------------------------------
1124:
1125: --------------------------------------------
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
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;
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:
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;
1178: */
1179:
1180: PROCEDURE Get_System_Variables (
1181: p_api_version IN NUMBER,
1182: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1183:
1184: x_return_status OUT NOCOPY VARCHAR2,
1185: x_msg_data OUT NOCOPY VARCHAR2,
1186: x_msg_count OUT NOCOPY NUMBER,
1186: x_msg_count OUT NOCOPY NUMBER,
1187:
1188: p_doc_type IN VARCHAR2,
1189: p_doc_id IN NUMBER,
1190: p_only_doc_variables IN VARCHAR2 := FND_API.G_TRUE,
1191:
1192: x_sys_var_value_tbl OUT NOCOPY OKC_TERMS_UTIL_GRP.sys_var_value_tbl_type
1193: ) IS
1194: l_api_version CONSTANT NUMBER := 1;
1216: END IF;
1217: -- Standard Start of API savepoint
1218: SAVEPOINT g_Get_System_Variables;
1219: -- Standard call to check for call compatibility.
1220: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1222: END IF;
1223: -- Initialize message list if p_init_msg_list is set to TRUE.
1224: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1217: -- Standard Start of API savepoint
1218: SAVEPOINT g_Get_System_Variables;
1219: -- Standard call to check for call compatibility.
1220: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1222: END IF;
1223: -- Initialize message list if p_init_msg_list is set to TRUE.
1224: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1225: FND_MSG_PUB.initialize;
1220: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1222: END IF;
1223: -- Initialize message list if p_init_msg_list is set to TRUE.
1224: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1225: FND_MSG_PUB.initialize;
1226: END IF;
1227: -- Initialize API return status to success
1228: x_return_status := G_RET_STS_SUCCESS;
1226: END IF;
1227: -- Initialize API return status to success
1228: x_return_status := G_RET_STS_SUCCESS;
1229:
1230: IF p_only_doc_variables = FND_API.G_TRUE THEN
1231: FOR cr IN var_doc_lst_crs LOOP
1232: x_sys_var_value_tbl(i).Variable_code := cr.variable_code;
1233: i := i+1;
1234: END LOOP;
1257: p_sys_var_value_tbl => x_sys_var_value_tbl);
1258:
1259: --------------------------------------------
1260: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1262: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1263: RAISE FND_API.G_EXC_ERROR ;
1264: END IF;
1265: --------------------------------------------
1259: --------------------------------------------
1260: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1262: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1263: RAISE FND_API.G_EXC_ERROR ;
1264: END IF;
1265: --------------------------------------------
1266: ELSIF l_doc_class = 'PO' THEN
1267: OKC_PO_INT_GRP.get_article_variable_values(
1274: p_doc_id => p_doc_id,
1275: p_sys_var_value_tbl => x_sys_var_value_tbl);
1276: --------------------------------------------
1277: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1279: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1280: RAISE FND_API.G_EXC_ERROR ;
1281: END IF;
1282: --------------------------------------------
1276: --------------------------------------------
1277: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1279: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1280: RAISE FND_API.G_EXC_ERROR ;
1281: END IF;
1282: --------------------------------------------
1283: ELSIF l_doc_class = 'SOURCING' THEN
1284:
1293: p_doc_id => p_doc_id,
1294: p_sys_var_value_tbl => x_sys_var_value_tbl);
1295: --------------------------------------------
1296: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1298: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1299: RAISE FND_API.G_EXC_ERROR ;
1300: END IF;
1301: --------------------------------------------
1295: --------------------------------------------
1296: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1298: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1299: RAISE FND_API.G_EXC_ERROR ;
1300: END IF;
1301: --------------------------------------------
1302: ELSIF l_doc_class = 'QUOTE' THEN
1303:
1312: p_sys_var_value_tbl => x_sys_var_value_tbl);
1313:
1314: --------------------------------------------
1315: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1317: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1318: RAISE FND_API.G_EXC_ERROR ;
1319: END IF;
1320: --------------------------------------------
1314: --------------------------------------------
1315: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1317: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1318: RAISE FND_API.G_EXC_ERROR ;
1319: END IF;
1320: --------------------------------------------
1321: --kkolukul:bug 6924032 Modified for Repository Enhancement
1322: ELSIF l_doc_class = 'REPOSITORY' THEN
1332: x_msg_count => x_msg_count );
1333:
1334: --------------------------------------------
1335: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1337: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1338: RAISE FND_API.G_EXC_ERROR ;
1339: END IF;
1340: --------------------------------------------
1334: --------------------------------------------
1335: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1337: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1338: RAISE FND_API.G_EXC_ERROR ;
1339: END IF;
1340: --------------------------------------------
1341:
1342: ELSE
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;
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;
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:
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;
1384: -- for every occurance of variable on document
1385: */
1386: PROCEDURE Substitute_Var_Value_Globally (
1387: p_api_version IN NUMBER,
1388: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1389:
1390: x_return_status OUT NOCOPY VARCHAR2,
1391: x_msg_data OUT NOCOPY VARCHAR2,
1392: x_msg_count OUT NOCOPY NUMBER,
1396: p_variable_code IN VARCHAR2,
1397: p_variable_value IN VARCHAR2,
1398: p_variable_value_id IN VARCHAR2,
1399: p_mode IN VARCHAR2,
1400: p_validate_commit IN VARCHAR2 := FND_API.G_TRUE,
1401: p_validation_string IN VARCHAR2 := NULL
1402: ) IS
1403: l_api_version CONSTANT NUMBER := 1;
1404: l_api_name CONSTANT VARCHAR2(30) := '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.
1425: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1427: END IF;
1428: -- Initialize message list if p_init_msg_list is set to TRUE.
1429: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1422: -- Standard Start of API savepoint
1423: SAVEPOINT g_Subst_Var_Value_Globally;
1424: -- Standard call to check for call compatibility.
1425: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1427: END IF;
1428: -- Initialize message list if p_init_msg_list is set to TRUE.
1429: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1430: FND_MSG_PUB.initialize;
1425: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1427: END IF;
1428: -- Initialize message list if p_init_msg_list is set to TRUE.
1429: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1430: FND_MSG_PUB.initialize;
1431: END IF;
1432: -- Initialize API return status to success
1433: x_return_status := G_RET_STS_SUCCESS;
1447: p_doc_type => p_doc_type
1448: );
1449: --------------------------------------------
1450: IF (l_dummy = 'N' OR x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1452: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1453: RAISE FND_API.G_EXC_ERROR ;
1454: END IF;
1455: --------------------------------------------
1449: --------------------------------------------
1450: IF (l_dummy = 'N' OR x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1452: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1453: RAISE FND_API.G_EXC_ERROR ;
1454: END IF;
1455: --------------------------------------------
1456: END IF;
1457:
1468: p_object_version_number => cr.object_version_number
1469: );
1470: --------------------------------------------
1471: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1473: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1474: RAISE FND_API.G_EXC_ERROR ;
1475: END IF;
1476: --------------------------------------------
1470: --------------------------------------------
1471: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1473: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1474: RAISE FND_API.G_EXC_ERROR ;
1475: END IF;
1476: --------------------------------------------
1477: END LOOP;
1478:
1500: p_object_version_number => cr.object_version_number
1501: );
1502: --------------------------------------------
1503: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1505: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1506: RAISE FND_API.G_EXC_ERROR ;
1507: END IF;
1508: --------------------------------------------
1502: --------------------------------------------
1503: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1505: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1506: RAISE FND_API.G_EXC_ERROR ;
1507: END IF;
1508: --------------------------------------------
1509: END LOOP;
1510: END IF;
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;
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;
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:
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;
1548: -- creating un-assigned sections in a document
1549: */
1550: PROCEDURE Create_Unassigned_Section (
1551: p_api_version IN NUMBER,
1552: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1553: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1554:
1555: x_return_status OUT NOCOPY VARCHAR2,
1556: x_msg_data OUT NOCOPY VARCHAR2,
1549: */
1550: PROCEDURE Create_Unassigned_Section (
1551: p_api_version IN NUMBER,
1552: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1553: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1554:
1555: x_return_status OUT NOCOPY VARCHAR2,
1556: x_msg_data OUT NOCOPY VARCHAR2,
1557: x_msg_count OUT NOCOPY NUMBER,
1579: END IF;
1580: -- Standard Start of API savepoint
1581: SAVEPOINT g_Create_Unassigned_Section;
1582: -- Standard call to check for call compatibility.
1583: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1585: END IF;
1586: -- Initialize message list if p_init_msg_list is set to TRUE.
1587: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1580: -- Standard Start of API savepoint
1581: SAVEPOINT g_Create_Unassigned_Section;
1582: -- Standard call to check for call compatibility.
1583: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1585: END IF;
1586: -- Initialize message list if p_init_msg_list is set to TRUE.
1587: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1588: FND_MSG_PUB.initialize;
1583: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1585: END IF;
1586: -- Initialize message list if p_init_msg_list is set to TRUE.
1587: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1588: FND_MSG_PUB.initialize;
1589: END IF;
1590: -- Initialize API return status to success
1591: x_return_status := G_RET_STS_SUCCESS;
1630: x_id => x_scn_id
1631: );
1632: --------------------------------------------
1633: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1635: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1636: RAISE FND_API.G_EXC_ERROR ;
1637: END IF;
1638: --------------------------------------------
1632: --------------------------------------------
1633: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1635: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1636: RAISE FND_API.G_EXC_ERROR ;
1637: END IF;
1638: --------------------------------------------
1639:
1640: IF FND_API.To_Boolean( p_commit ) THEN
1636: RAISE FND_API.G_EXC_ERROR ;
1637: END IF;
1638: --------------------------------------------
1639:
1640: IF FND_API.To_Boolean( p_commit ) THEN
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
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;
1658:
1659: x_return_status := G_RET_STS_ERROR ;
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;
1695: p_doc_type IN VARCHAR2,
1696: x_return_status OUT NOCOPY VARCHAR2
1697: ) RETURN VARCHAR2 IS
1698: l_dummy VARCHAR2(1) := '?';
1699: l_return VARCHAR2(1) := FND_API.G_TRUE;
1700: cursor l_check_doc_type_crs IS
1701: SELECT 'X' FROM OKC_BUS_DOC_TYPES_B
1702: WHERE document_type=p_doc_type;
1703: BEGIN
1704:
1705: OPEN l_check_doc_type_crs;
1706: FETCH l_check_doc_type_crs INTO l_dummy;
1707: IF l_check_doc_type_crs%NOTFOUND THEN
1708: return FND_API.G_FALSE;
1709: ELSE
1710: return FnD_API.G_TRUE;
1711: END IF;
1712:
1706: FETCH l_check_doc_type_crs INTO l_dummy;
1707: IF l_check_doc_type_crs%NOTFOUND THEN
1708: return FND_API.G_FALSE;
1709: ELSE
1710: return FnD_API.G_TRUE;
1711: END IF;
1712:
1713: CLOSE l_check_doc_type_crs;
1714:
1720:
1721: IF l_check_doc_type_crs%ISOPEN THEN
1722: CLOSE l_check_doc_type_crs;
1723: END IF;
1724: return FND_API.G_FALSE;
1725: x_return_status := G_RET_STS_UNEXP_ERROR ;
1726:
1727: END;
1728: /*
1927: Close editable_csr;
1928: IF l_editable_yn = 'Y' THEN
1929: l_deliverables_exist := okc_terms_util_grp.Is_Deliverable_Exist(
1930: p_api_version => 1,
1931: p_init_msg_list => FND_API.G_FALSE,
1932: x_return_status => x_return_status,
1933: x_msg_data => x_msg_data,
1934: x_msg_count => x_msg_count,
1935: p_doc_type => 'TEMPLATE',
2153:
2154: l_amendment :=
2155: OKC_DELIVERABLE_PROCESS_PVT.deliverables_amended(
2156: p_api_version => 1,
2157: p_init_msg_list => FND_API.G_FALSE,
2158:
2159: x_return_status => l_return_status,
2160: x_msg_data => l_msg_data,
2161: x_msg_count => l_msg_count,
2191:
2192: BEGIN
2193:
2194: IF p_existing_summary_code='ADDED' AND p_amend_operation_code ='DELETED' THEN
2195: l_new_summary_code:=FND_API.G_MISS_CHAR; -- Summary should be set to NULL
2196: ELSIF p_existing_summary_code='ADDED' AND p_amend_operation_code = 'UPDATED' THEN
2197: l_new_summary_code:=p_existing_summary_code;
2198: ELSIF p_existing_summary_code='DELETED' AND p_amend_operation_code = 'UPDATED' THEN
2199: l_new_summary_code:=p_existing_summary_code;
2197: l_new_summary_code:=p_existing_summary_code;
2198: ELSIF p_existing_summary_code='DELETED' AND p_amend_operation_code = 'UPDATED' THEN
2199: l_new_summary_code:=p_existing_summary_code;
2200: ELSIF p_existing_summary_code='DELETED' AND p_amend_operation_code = 'ADDED' THEN
2201: l_new_summary_code:=FND_API.G_MISS_CHAR;
2202: ELSE
2203: l_new_summary_code := p_amend_operation_code;
2204: END IF;
2205:
2222: l_new_summary_code:=get_summary_amend_code(p_existing_summary_code=>p_existing_summary_code,
2223: p_existing_operation_code=>p_existing_operation_code,
2224: p_amend_operation_code=>p_amend_operation_code);
2225:
2226: if l_new_summary_code = FND_API.G_MISS_CHAR then
2227: return NULL;
2228: end if;
2229:
2230: return l_new_summary_code;
3062: Where Used: In Authoring page: Structure page invokes this procedure
3063: *************************************************************************************/
3064: PROCEDURE get_template_details (
3065: p_api_version IN NUMBER,
3066: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3067: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3068:
3069: x_return_status OUT NOCOPY VARCHAR2,
3070: x_msg_data OUT NOCOPY VARCHAR2,
3063: *************************************************************************************/
3064: PROCEDURE get_template_details (
3065: p_api_version IN NUMBER,
3066: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3067: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3068:
3069: x_return_status OUT NOCOPY VARCHAR2,
3070: x_msg_data OUT NOCOPY VARCHAR2,
3071: x_msg_count OUT NOCOPY NUMBER,
3101: l_config_revision_number NUMBER;
3102: l_valid_config_yn VARCHAR2(2000);
3103: l_article_effective_date DATE;
3104: l_update_date BOOLEAN := false;
3105: l_update_date_with DATE := FND_API.G_MISS_DATE;
3106:
3107:
3108: Cursor l_get_template_details_csr IS
3109: select a.template_id, b.template_name, a.article_effective_date,
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
3135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3136: END IF;
3137: -- Initialize message list if p_init_msg_list is set to TRUE.
3138: IF FND_API.to_Boolean( p_init_msg_list ) THEN
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
3135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3136: END IF;
3137: -- Initialize message list if p_init_msg_list is set to TRUE.
3138: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3139: FND_MSG_PUB.initialize;
3134: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3136: END IF;
3137: -- Initialize message list if p_init_msg_list is set to TRUE.
3138: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3139: FND_MSG_PUB.initialize;
3140: END IF;
3141: -- Initialize API return status to success
3142: x_return_status := G_RET_STS_SUCCESS;
3204: l_update_date := true;
3205: l_update_date_with := p_eff_date;
3206: elsif(l_article_effective_date <> p_eff_date and p_eff_date is NULL) then
3207: l_update_date := true;
3208: l_update_date_with := FND_API.G_MISS_DATE;
3209: elsif(l_article_effective_date <> p_eff_date ) then
3210: l_update_date := true;
3211: l_update_date_with := p_eff_date;
3212: end if;
3226:
3227:
3228: --------------------------------------------
3229: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3231: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3232: RAISE FND_API.G_EXC_ERROR ;
3233: END IF;
3234: --------------------------------------------
3228: --------------------------------------------
3229: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3231: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3232: RAISE FND_API.G_EXC_ERROR ;
3233: END IF;
3234: --------------------------------------------
3235:
3236: IF FND_API.To_Boolean( p_commit ) THEN
3232: RAISE FND_API.G_EXC_ERROR ;
3233: END IF;
3234: --------------------------------------------
3235:
3236: IF FND_API.To_Boolean( p_commit ) THEN
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
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;
3259:
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:
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,
3431: p_bus_doc_type => p_document_type,
3432: p_bus_doc_id => p_document_id,
3433: p_variable_code => rec.variable_code,
3434: x_msg_data => l_msg_data,
3470: IS
3471: l_api_name CONSTANT VARCHAR2(30) :='purge_qa_validation_results';
3472: l_api_version CONSTANT VARCHAR2(30) := 1.0;
3473: l_init_msg_list VARCHAR2(3) := 'T';
3474: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3475: l_msg_count NUMBER;
3476: l_msg_data VARCHAR2(1000);
3477: l_num_days NUMBER;
3478:
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;
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
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 ));
3516: END LOOP;
3517:
3518: END IF;
3519: FND_MSG_PUB.initialize;
3528: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3529: END IF;
3530: IF FND_MSG_PUB.Count_Msg > 0 Then
3531: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
3532: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
3533: END LOOP;
3534: END IF;
3535: FND_MSG_PUB.initialize;
3536:
3932: IF l_row_notfound THEN
3933: Okc_Api.Set_Message(
3934: p_app_name => G_APP_NAME,
3935: p_msg_name => 'OKC_TERM_INVALID_TEMPLATE_ID');
3936: RAISE FND_API.G_EXC_ERROR;
3937: END IF;
3938:
3939: ELSE
3940: l_start_date := p_template_start_date;
4081: --COMMIT;
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;
4114: -- new out parameter x_parent_template_id returns the template id of the merged template
4115: */
4116: PROCEDURE merge_template_working_copy (
4117: p_api_version IN NUMBER,
4118: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4119: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4120: x_return_status OUT NOCOPY VARCHAR2,
4121: x_msg_data OUT NOCOPY VARCHAR2,
4122: x_msg_count OUT NOCOPY NUMBER,
4115: */
4116: PROCEDURE merge_template_working_copy (
4117: p_api_version IN NUMBER,
4118: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4119: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4120: x_return_status OUT NOCOPY VARCHAR2,
4121: x_msg_data OUT NOCOPY VARCHAR2,
4122: x_msg_count OUT NOCOPY NUMBER,
4123:
4212: --Pre-reqs : None.
4213: --Parameters :
4214: --IN : p_api_version IN NUMBER Required
4215: -- : p_init_msg_list IN VARCHAR2 Optional
4216: -- Default = FND_API.G_FALSE
4217: -- : p_commit IN VARCHAR2 Optional
4218: -- Default = FND_API.G_FALSE
4219: -- : p_doc_ids_tbl IN doc_ids_tbl Required
4220: -- List of document ids whose Contract Administrator to be changed
4214: --IN : p_api_version IN NUMBER Required
4215: -- : p_init_msg_list IN VARCHAR2 Optional
4216: -- Default = FND_API.G_FALSE
4217: -- : p_commit IN VARCHAR2 Optional
4218: -- Default = FND_API.G_FALSE
4219: -- : p_doc_ids_tbl IN doc_ids_tbl Required
4220: -- List of document ids whose Contract Administrator to be changed
4221: -- : p_doc_types_tbl IN doc_types_tbl Required
4222: -- List of document types whose Contract Administrator to be changed
4256: -- Standard Start of API savepoint
4257: SAVEPOINT update_contract_admin;
4258:
4259: -- Standard call to check for call compatibility.
4260: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4262: END IF;
4263:
4264: -- Initialize message list if p_init_msg_list is set to TRUE.
4257: SAVEPOINT update_contract_admin;
4258:
4259: -- Standard call to check for call compatibility.
4260: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4262: END IF;
4263:
4264: -- Initialize message list if p_init_msg_list is set to TRUE.
4265: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4262: END IF;
4263:
4264: -- Initialize message list if p_init_msg_list is set to TRUE.
4265: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4266: FND_MSG_PUB.initialize;
4267: END IF;
4268:
4269: -- Initialize API return status to success
4266: FND_MSG_PUB.initialize;
4267: END IF;
4268:
4269: -- Initialize API return status to success
4270: x_return_status := FND_API.G_RET_STS_SUCCESS;
4271:
4272: FORALL i IN p_doc_ids_tbl.FIRST..p_doc_ids_tbl.LAST
4273: UPDATE okc_template_usages
4274: SET contract_admin_id = p_new_con_admin_user_ids_tbl(i)
4290: END IF;
4291:
4292: ROLLBACK TO update_contract_admin;
4293:
4294: x_return_status := FND_API.G_RET_STS_ERROR;
4295: FND_MSG_PUB.Count_And_Get(
4296: p_count => x_msg_count,
4297: p_data => x_msg_data);
4298:
4308: --Pre-reqs : None.
4309: --Parameters :
4310: --IN : p_api_version IN NUMBER Required
4311: -- : p_init_msg_list IN VARCHAR2 Optional
4312: -- Default = FND_API.G_FALSE
4313: -- : p_doc_id IN NUMBER Required
4314: -- Id of document whose Contract Administrator is required
4315: -- : p_doc_type IN VARCHAR2 Required
4316: -- Type of document whose Contract Administrator is required
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:
4510: x_return_status := FND_API.G_RET_STS_ERROR;
4511: FND_MSG_PUB.Count_And_Get(
4512: p_count => x_msg_count,
4513: p_data => x_msg_data);
4514:
4599: RETURN NULL;
4600: END IF;
4601: get_sales_group_con_admin(
4602: p_api_version => l_api_version,
4603: p_init_msg_list => FND_API.G_FALSE,
4604: p_doc_id => p_document_id,
4605: p_doc_type => p_document_type,
4606: x_new_con_admin_user_id => l_default_ctrt_admin_id,
4607: x_return_status => l_return_status,
4640: END get_contract_admin_name;
4641:
4642: PROCEDURE get_default_contract_admin(
4643: p_api_version IN NUMBER,
4644: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4645:
4646: p_document_type IN VARCHAR2,
4647: p_document_id IN NUMBER,
4648: x_has_default_contract_admin OUT NOCOPY VARCHAR2,
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
4667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4668: END IF;
4669:
4670: -- Initialize message list if p_init_msg_list is set to TRUE.
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
4667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4668: END IF;
4669:
4670: -- Initialize message list if p_init_msg_list is set to TRUE.
4671: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4668: END IF;
4669:
4670: -- Initialize message list if p_init_msg_list is set to TRUE.
4671: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4672: FND_MSG_PUB.initialize;
4673: END IF;
4674:
4675: x_return_status := G_RET_STS_SUCCESS;
4822: --For R12 MSWord@WaySync
4823:
4824: PROCEDURE lock_contract(
4825: p_api_version IN NUMBER,
4826: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4827:
4828: p_commit IN Varchar2,
4829: p_document_type IN VARCHAR2,
4830: p_document_id IN NUMBER,
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
4846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4847: END IF;
4848:
4849: -- Initialize message list if p_init_msg_list is set to TRUE.
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
4846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4847: END IF;
4848:
4849: -- Initialize message list if p_init_msg_list is set to TRUE.
4850: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4847: END IF;
4848:
4849: -- Initialize message list if p_init_msg_list is set to TRUE.
4850: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4851: FND_MSG_PUB.initialize;
4852: END IF;
4853:
4854: x_return_status := G_RET_STS_SUCCESS;
4854: x_return_status := G_RET_STS_SUCCESS;
4855: OKC_TEMPLATE_USAGES_GRP.update_template_usages(
4856: p_api_version => l_api_version,
4857: p_init_msg_list => p_init_msg_list ,
4858: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4859: p_commit => FND_API.G_FALSE,
4860: x_return_status => x_return_status,
4861: x_msg_count => x_msg_count,
4862: x_msg_data => x_msg_data,
4855: OKC_TEMPLATE_USAGES_GRP.update_template_usages(
4856: p_api_version => l_api_version,
4857: p_init_msg_list => p_init_msg_list ,
4858: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4859: p_commit => FND_API.G_FALSE,
4860: x_return_status => x_return_status,
4861: x_msg_count => x_msg_count,
4862: x_msg_data => x_msg_data,
4863: p_document_type => p_document_type,
4888:
4889: --For R12: MSWord2WaySync
4890: PROCEDURE unlock_contract(
4891: p_api_version IN NUMBER,
4892: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4893:
4894: p_commit IN Varchar2,
4895: p_document_type IN VARCHAR2,
4896: p_document_id IN NUMBER,
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
4911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4912: END IF;
4913:
4914: -- Initialize message list if p_init_msg_list is set to TRUE.
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
4911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4912: END IF;
4913:
4914: -- Initialize message list if p_init_msg_list is set to TRUE.
4915: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4912: END IF;
4913:
4914: -- Initialize message list if p_init_msg_list is set to TRUE.
4915: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4916: FND_MSG_PUB.initialize;
4917: END IF;
4918:
4919: x_return_status := G_RET_STS_SUCCESS;
4919: x_return_status := G_RET_STS_SUCCESS;
4920: OKC_TEMPLATE_USAGES_GRP.update_template_usages(
4921: p_api_version => l_api_version,
4922: p_init_msg_list => p_init_msg_list ,
4923: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4924: p_commit => FND_API.G_FALSE,
4925: x_return_status => x_return_status,
4926: x_msg_count => x_msg_count,
4927: x_msg_data => x_msg_data,
4920: OKC_TEMPLATE_USAGES_GRP.update_template_usages(
4921: p_api_version => l_api_version,
4922: p_init_msg_list => p_init_msg_list ,
4923: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4924: p_commit => FND_API.G_FALSE,
4925: x_return_status => x_return_status,
4926: x_msg_count => x_msg_count,
4927: x_msg_data => x_msg_data,
4928: p_document_type => p_document_type,
5115: --Pre-reqs : None.
5116: --Parameters :
5117: --IN : p_api_version IN NUMBER Required
5118: -- : p_init_msg_list IN VARCHAR2 Optional
5119: -- Default = FND_API.G_FALSE
5120: -- : p_document_id IN NUMBER Required
5121: -- Id of document whose udv with procs are to be set
5122: -- : p_doc_type IN VARCHAR2 Required
5123: -- Type of document whose udv with procs are to be set
5130:
5131:
5132: PROCEDURE set_udv_with_procedures (
5133: p_api_version IN NUMBER,
5134: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5135:
5136: p_document_type IN VARCHAR2,
5137: p_document_id IN NUMBER,
5138: p_output_error IN VARCHAR2 := FND_API.G_TRUE,
5134: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5135:
5136: p_document_type IN VARCHAR2,
5137: p_document_id IN NUMBER,
5138: p_output_error IN VARCHAR2 := FND_API.G_TRUE,
5139:
5140: x_return_status OUT NOCOPY VARCHAR2,
5141: x_msg_data OUT NOCOPY VARCHAR2,
5142: x_msg_count OUT NOCOPY NUMBER
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
5175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5176: END IF;
5177:
5178: /* Initialize message list if p_init_msg_list is set to TRUE */
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
5175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5176: END IF;
5177:
5178: /* Initialize message list if p_init_msg_list is set to TRUE */
5179: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5176: END IF;
5177:
5178: /* Initialize message list if p_init_msg_list is set to TRUE */
5179: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5180: FND_MSG_PUB.initialize;
5181: END IF;
5182:
5183: /* Initialize API return status to success */
5231: l_previous_var_code := csr_udv_with_procs_rec.variable_code;
5232:
5233: END LOOP;
5234:
5235: IF p_output_error = FND_API.G_TRUE AND FND_MSG_PUB.Count_Msg > 0 THEN
5236:
5237: x_return_status := G_RET_STS_ERROR;
5238: RAISE FND_API.G_EXC_ERROR;
5239: END IF;
5234:
5235: IF p_output_error = FND_API.G_TRUE AND FND_MSG_PUB.Count_Msg > 0 THEN
5236:
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');
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
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;
5255:
5256: x_return_status := G_RET_STS_ERROR ;
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;
5307: PROCEDURE get_udv_with_proc_value (
5308: p_document_type IN VARCHAR2,
5309: p_document_id IN NUMBER,
5310: p_variable_code IN VARCHAR2,
5311: p_output_error IN VARCHAR2 := FND_API.G_FALSE,
5312: x_variable_value OUT NOCOPY VARCHAR2,
5313: x_return_status OUT NOCOPY VARCHAR2,
5314: x_msg_data OUT NOCOPY VARCHAR2,
5315: x_msg_count OUT NOCOPY NUMBER
5446: IF (l_return_status = G_RET_STS_ERROR) THEN
5447:
5448: l_variable_value_id := NULL;
5449:
5450: IF p_output_error = FND_API.G_TRUE THEN
5451: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_EXEC');
5452: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5453: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5454: FND_MSG_PUB.ADD;
5456: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5457:
5458: l_variable_value_id := NULL;
5459:
5460: IF p_output_error = FND_API.G_TRUE THEN
5461: FND_MESSAGE.set_name('OKC','OKC_UDV_PROC_UNEXP');
5462: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5463: FND_MESSAGE.set_token('PROC_NAME', l_procedure_name);
5464: FND_MSG_PUB.ADD;
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:
5479: l_dummy := '?';
5480: OPEN csr_check_proc_exists(p_procedure_name => l_procedure_name);
5481: FETCH csr_check_proc_exists INTO l_dummy;
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');
5571: FND_MESSAGE.set_token('VAR_NAME', l_variable_name);
5572: FND_MSG_PUB.ADD;
5573: END IF;
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
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;
5595:
5596: x_return_status := G_RET_STS_ERROR ;
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;