88: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89: END IF;
90: -- Initialize message list if p_init_msg_list is set to TRUE.
91: IF FND_API.to_Boolean( p_init_msg_list ) THEN
92: FND_MSG_PUB.initialize;
93: END IF;
94: -- Initialize API return status to success
95: x_return_status := FND_API.G_RET_STS_SUCCESS;
96:
143: END IF;
144: --------------------------------------------
145:
146: -- Standard call to get message count and if count is 1, get message info.
147: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
148:
149: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
150: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Leaving validate_row');
151: END IF;
156: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'300: Leaving Validate_Row: OKC_API.G_EXCEPTION_ERROR Exception');
157: END IF;
158: ROLLBACK TO g_validate_row_GRP;
159: x_return_status := G_RET_STS_ERROR ;
160: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
161:
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
164: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving Validate_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
164: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving Validate_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
165: END IF;
166: ROLLBACK TO g_validate_row_GRP;
167: x_return_status := G_RET_STS_UNEXP_ERROR ;
168: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
169:
170: WHEN OTHERS THEN
171: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
172: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Validate_Row because of EXCEPTION: '||sqlerrm);
173: END IF;
174:
175: ROLLBACK TO g_validate_row_GRP;
176: x_return_status := G_RET_STS_UNEXP_ERROR ;
177: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
178: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
179: END IF;
180: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
181:
174:
175: ROLLBACK TO g_validate_row_GRP;
176: x_return_status := G_RET_STS_UNEXP_ERROR ;
177: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
178: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
179: END IF;
180: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
181:
182: END validate_row;
176: x_return_status := G_RET_STS_UNEXP_ERROR ;
177: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
178: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
179: END IF;
180: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
181:
182: END validate_row;
183:
184: -------------------------------------
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: END IF;
249: -- Initialize message list if p_init_msg_list is set to TRUE.
250: IF FND_API.to_Boolean( p_init_msg_list ) THEN
251: FND_MSG_PUB.initialize;
252: END IF;
253: -- Initialize API return status to success
254: x_return_status := FND_API.G_RET_STS_SUCCESS;
255: --added for 10+ word integration and deviations report
310: IF FND_API.To_Boolean( p_commit ) THEN
311: COMMIT WORK;
312: END IF;
313: -- Standard call to get message count and if count is 1, get message info.
314: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
315:
316: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
317: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Leaving create_template_usages');
318: END IF;
323: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'800: Leaving create_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
324: END IF;
325: ROLLBACK TO g_insert_row_GRP;
326: x_return_status := G_RET_STS_ERROR ;
327: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
328:
329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
330: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
331: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving insert_row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
331: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving insert_row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
332: END IF;
333: ROLLBACK TO g_insert_row_GRP;
334: x_return_status := G_RET_STS_UNEXP_ERROR ;
335: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
336:
337: WHEN OTHERS THEN
338: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
339: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving insert_row because of EXCEPTION: '||sqlerrm);
340: END IF;
341:
342: ROLLBACK TO g_insert_row_GRP;
343: x_return_status := G_RET_STS_UNEXP_ERROR ;
344: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
345: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
346: END IF;
347: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
348:
341:
342: ROLLBACK TO g_insert_row_GRP;
343: x_return_status := G_RET_STS_UNEXP_ERROR ;
344: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
345: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
346: END IF;
347: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
348:
349: END create_template_usages;
343: x_return_status := G_RET_STS_UNEXP_ERROR ;
344: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
345: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
346: END IF;
347: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
348:
349: END create_template_usages;
350: ---------------------------------------------------------------------------
351: -- PROCEDURE lock_row
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378: END IF;
379: -- Initialize message list if p_init_msg_list is set to TRUE.
380: IF FND_API.to_Boolean( p_init_msg_list ) THEN
381: FND_MSG_PUB.initialize;
382: END IF;
383: -- Initialize API return status to success
384: x_return_status := FND_API.G_RET_STS_SUCCESS;
385:
400: END IF;
401: --------------------------------------------
402:
403: -- Standard call to get message count and if count is 1, get message info.
404: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
405:
406: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
407: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Leaving lock_row');
408: END IF;
413: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1300: Leaving lock_Row: OKC_API.G_EXCEPTION_ERROR Exception');
414: END IF;
415: ROLLBACK TO g_lock_row_GRP;
416: x_return_status := G_RET_STS_ERROR ;
417: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
418:
419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
420: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
421: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1400: Leaving lock_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
421: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1400: Leaving lock_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
422: END IF;
423: ROLLBACK TO g_lock_row_GRP;
424: x_return_status := G_RET_STS_UNEXP_ERROR ;
425: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
426:
427: WHEN OTHERS THEN
428: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
429: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1500: Leaving lock_Row because of EXCEPTION: '||sqlerrm);
430: END IF;
431:
432: ROLLBACK TO g_lock_row_GRP;
433: x_return_status := G_RET_STS_UNEXP_ERROR ;
434: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
435: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
436: END IF;
437: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
438:
431:
432: ROLLBACK TO g_lock_row_GRP;
433: x_return_status := G_RET_STS_UNEXP_ERROR ;
434: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
435: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
436: END IF;
437: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
438:
439: END lock_row;
433: x_return_status := G_RET_STS_UNEXP_ERROR ;
434: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
435: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
436: END IF;
437: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
438:
439: END lock_row;
440: ---------------------------------------------------------------------------
441: -- PROCEDURE update_template_usages
496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
497: END IF;
498: -- Initialize message list if p_init_msg_list is set to TRUE.
499: IF FND_API.to_Boolean( p_init_msg_list ) THEN
500: FND_MSG_PUB.initialize;
501: END IF;
502: -- Initialize API return status to success
503: x_return_status := FND_API.G_RET_STS_SUCCESS;
504:
544: IF FND_API.To_Boolean( p_commit ) THEN
545: COMMIT WORK;
546: END IF;
547: -- Standard call to get message count and if count is 1, get message info.
548: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
549:
550: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
551: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Leaving update_template_usages');
552: END IF;
557: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1900: Leaving update_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
558: END IF;
559: ROLLBACK TO g_update_row_GRP;
560: x_return_status := G_RET_STS_ERROR ;
561: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
562:
563: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
564: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
565: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving update_template_usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
565: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving update_template_usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
566: END IF;
567: ROLLBACK TO g_update_row_GRP;
568: x_return_status := G_RET_STS_UNEXP_ERROR ;
569: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
570:
571: WHEN OTHERS THEN
572: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
573: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2100: Leaving update_template_usages because of EXCEPTION: '||sqlerrm);
574: END IF;
575:
576: ROLLBACK TO g_update_row_GRP;
577: x_return_status := G_RET_STS_UNEXP_ERROR ;
578: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
579: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
580: END IF;
581: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
582:
575:
576: ROLLBACK TO g_update_row_GRP;
577: x_return_status := G_RET_STS_UNEXP_ERROR ;
578: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
579: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
580: END IF;
581: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
582:
583: END update_template_usages;
577: x_return_status := G_RET_STS_UNEXP_ERROR ;
578: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
579: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
580: END IF;
581: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
582:
583: END update_template_usages;
584:
585: ---------------------------------------------------------------------------
613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
614: END IF;
615: -- Initialize message list if p_init_msg_list is set to TRUE.
616: IF FND_API.to_Boolean( p_init_msg_list ) THEN
617: FND_MSG_PUB.initialize;
618: END IF;
619: -- Initialize API return status to success
620: x_return_status := FND_API.G_RET_STS_SUCCESS;
621:
640: IF FND_API.To_Boolean( p_commit ) THEN
641: COMMIT WORK;
642: END IF;
643: -- Standard call to get message count and if count is 1, get message info.
644: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
645:
646: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
647: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving delete_template_usages');
648: END IF;
653: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2400: Leaving delete_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
654: END IF;
655: ROLLBACK TO g_delete_row_GRP;
656: x_return_status := G_RET_STS_ERROR ;
657: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
658:
659: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
660: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
661: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving delete_template_usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
661: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving delete_template_usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
662: END IF;
663: ROLLBACK TO g_delete_row_GRP;
664: x_return_status := G_RET_STS_UNEXP_ERROR ;
665: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
666:
667: WHEN OTHERS THEN
668: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
669: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2600: Leaving delete_template_usages because of EXCEPTION: '||sqlerrm);
670: END IF;
671:
672: ROLLBACK TO g_delete_row_GRP;
673: x_return_status := G_RET_STS_UNEXP_ERROR ;
674: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
675: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
676: END IF;
677: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
678:
671:
672: ROLLBACK TO g_delete_row_GRP;
673: x_return_status := G_RET_STS_UNEXP_ERROR ;
674: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
675: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
676: END IF;
677: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
678:
679: END delete_template_usages;
673: x_return_status := G_RET_STS_UNEXP_ERROR ;
674: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
675: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
676: END IF;
677: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
678:
679: END delete_template_usages;
680:
681: PROCEDURE Set_Contract_Source(
731: END IF;
732:
733: -- Initialize message list if p_init_msg_list is set to TRUE.
734: IF FND_API.to_Boolean( p_init_msg_list ) THEN
735: FND_MSG_PUB.initialize;
736: END IF;
737:
738: -- Check if anything changed. If no change, then nothing to update, return.
739: OPEN l_template_usages_csr;
828: IF FND_API.To_Boolean( p_commit ) THEN
829: COMMIT WORK;
830: END IF;
831: -- Standard call to get message count and if count is 1, get message info.
832: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
833:
834: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
835: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving Set_Contract_Source');
836: END IF;
841: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2400: Leaving Set_Contract_Source: OKC_API.G_EXCEPTION_ERROR Exception');
842: END IF;
843: ROLLBACK TO g_set_contract_source_GRP;
844: x_return_status := G_RET_STS_ERROR ;
845: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
846:
847: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
848: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
849: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving Set_Contract_Source: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
849: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving Set_Contract_Source: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
850: END IF;
851: ROLLBACK TO g_set_contract_source_GRP;
852: x_return_status := G_RET_STS_UNEXP_ERROR ;
853: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
854:
855: WHEN OTHERS THEN
856: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
857: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2600: Leaving Set_Contract_Source because of EXCEPTION: '||sqlerrm);
858: END IF;
859:
860: ROLLBACK TO g_set_contract_source_GRP;
861: x_return_status := G_RET_STS_UNEXP_ERROR ;
862: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
863: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
864: END IF;
865: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
866:
859:
860: ROLLBACK TO g_set_contract_source_GRP;
861: x_return_status := G_RET_STS_UNEXP_ERROR ;
862: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
863: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
864: END IF;
865: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
866:
867: END Set_Contract_Source;
861: x_return_status := G_RET_STS_UNEXP_ERROR ;
862: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
863: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
864: END IF;
865: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
866:
867: END Set_Contract_Source;
868:
869: PROCEDURE Set_Contract_Source_details(
925: END IF;
926:
927: -- Initialize message list if p_init_msg_list is set to TRUE.
928: IF FND_API.to_Boolean( p_init_msg_list ) THEN
929: FND_MSG_PUB.initialize;
930: END IF;
931:
932: -- Check if anything changed. If no change, then nothing to update, return.
933: OPEN l_template_usages_csr;
1033: IF FND_API.To_Boolean( p_commit ) THEN
1034: COMMIT WORK;
1035: END IF;
1036: -- Standard call to get message count and if count is 1, get message info.
1037: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1038:
1039: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1040: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving Set_Contract_Source_details');
1041: END IF;
1046: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2400: Leaving Set_Contract_Source_details: OKC_API.G_EXCEPTION_ERROR Exception');
1047: END IF;
1048: ROLLBACK TO g_set_contract_src_dtls_GRP;
1049: x_return_status := G_RET_STS_ERROR ;
1050: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1051:
1052: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1053: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1054: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving Set_Contract_Source_details: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1054: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving Set_Contract_Source_details: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1055: END IF;
1056: ROLLBACK TO g_set_contract_src_dtls_GRP;
1057: x_return_status := G_RET_STS_UNEXP_ERROR ;
1058: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1059:
1060: WHEN OTHERS THEN
1061: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1062: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2600: Leaving Set_Contract_Source_details because of EXCEPTION: '||sqlerrm);
1063: END IF;
1064:
1065: ROLLBACK TO g_set_contract_src_dtls_GRP;
1066: x_return_status := G_RET_STS_UNEXP_ERROR ;
1067: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1068: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1069: END IF;
1070: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1071:
1064:
1065: ROLLBACK TO g_set_contract_src_dtls_GRP;
1066: x_return_status := G_RET_STS_UNEXP_ERROR ;
1067: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1068: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1069: END IF;
1070: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1071:
1072: END Set_Contract_Source_details;
1066: x_return_status := G_RET_STS_UNEXP_ERROR ;
1067: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1068: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1069: END IF;
1070: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1071:
1072: END Set_Contract_Source_details;
1073:
1074: END OKC_TEMPLATE_USAGES_GRP;