76: l_authoring_party_code OKC_TEMPLATE_USAGES.authoring_party_code%type;
77:
78: BEGIN
79:
80: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
81: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered validate_row');
82: END IF;
83:
84: -- Standard Start of API savepoint
77:
78: BEGIN
79:
80: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
81: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered validate_row');
82: END IF;
83:
84: -- Standard Start of API savepoint
85: SAVEPOINT g_validate_row_GRP;
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;
152:
153: EXCEPTION
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;
152:
153: EXCEPTION
154: WHEN FND_API.G_EXC_ERROR THEN
151: END IF;
152:
153: EXCEPTION
154: WHEN FND_API.G_EXC_ERROR THEN
155: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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 ;
152:
153: EXCEPTION
154: WHEN FND_API.G_EXC_ERROR THEN
155: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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 );
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');
165: END IF;
166: ROLLBACK TO g_validate_row_GRP;
167: x_return_status := G_RET_STS_UNEXP_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');
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 );
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;
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 ;
234: l_authoring_party_code OKC_TEMPLATE_USAGES.authoring_party_code%type;
235:
236: BEGIN
237:
238: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
239: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'600: Entered create_template_usages');
240: END IF;
241:
242: -- Standard Start of API savepoint
235:
236: BEGIN
237:
238: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
239: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'600: Entered create_template_usages');
240: END IF;
241:
242: -- Standard Start of API savepoint
243: SAVEPOINT g_insert_row_GRP;
310: END IF;
311: -- Standard call to get message count and if count is 1, get message info.
312: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
313:
314: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
315: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Leaving create_template_usages');
316: END IF;
317:
318: EXCEPTION
311: -- Standard call to get message count and if count is 1, get message info.
312: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
313:
314: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
315: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Leaving create_template_usages');
316: END IF;
317:
318: EXCEPTION
319: WHEN FND_API.G_EXC_ERROR THEN
316: END IF;
317:
318: EXCEPTION
319: WHEN FND_API.G_EXC_ERROR THEN
320: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
321: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'800: Leaving create_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
322: END IF;
323: ROLLBACK TO g_insert_row_GRP;
324: x_return_status := G_RET_STS_ERROR ;
317:
318: EXCEPTION
319: WHEN FND_API.G_EXC_ERROR THEN
320: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
321: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'800: Leaving create_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
322: END IF;
323: ROLLBACK TO g_insert_row_GRP;
324: x_return_status := G_RET_STS_ERROR ;
325: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
324: x_return_status := G_RET_STS_ERROR ;
325: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
326:
327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
328: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
329: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving insert_row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
330: END IF;
331: ROLLBACK TO g_insert_row_GRP;
332: x_return_status := G_RET_STS_UNEXP_ERROR ;
325: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
326:
327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
328: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
329: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving insert_row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
330: END IF;
331: ROLLBACK TO g_insert_row_GRP;
332: x_return_status := G_RET_STS_UNEXP_ERROR ;
333: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
332: x_return_status := G_RET_STS_UNEXP_ERROR ;
333: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
334:
335: WHEN OTHERS THEN
336: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
337: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving insert_row because of EXCEPTION: '||sqlerrm);
338: END IF;
339:
340: ROLLBACK TO g_insert_row_GRP;
333: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
334:
335: WHEN OTHERS THEN
336: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
337: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving insert_row because of EXCEPTION: '||sqlerrm);
338: END IF;
339:
340: ROLLBACK TO g_insert_row_GRP;
341: x_return_status := G_RET_STS_UNEXP_ERROR ;
363: l_api_version CONSTANT NUMBER := 1;
364: l_api_name CONSTANT VARCHAR2(30) := 'g_lock_row';
365: BEGIN
366:
367: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
368: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Entered lock_row');
369: END IF;
370:
371: -- Standard Start of API savepoint
364: l_api_name CONSTANT VARCHAR2(30) := 'g_lock_row';
365: BEGIN
366:
367: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
368: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Entered lock_row');
369: END IF;
370:
371: -- Standard Start of API savepoint
372: SAVEPOINT g_lock_row_GRP;
400:
401: -- Standard call to get message count and if count is 1, get message info.
402: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
403:
404: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
405: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Leaving lock_row');
406: END IF;
407:
408: EXCEPTION
401: -- Standard call to get message count and if count is 1, get message info.
402: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
403:
404: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
405: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Leaving lock_row');
406: END IF;
407:
408: EXCEPTION
409: WHEN FND_API.G_EXC_ERROR THEN
406: END IF;
407:
408: EXCEPTION
409: WHEN FND_API.G_EXC_ERROR THEN
410: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
411: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1300: Leaving lock_Row: OKC_API.G_EXCEPTION_ERROR Exception');
412: END IF;
413: ROLLBACK TO g_lock_row_GRP;
414: x_return_status := G_RET_STS_ERROR ;
407:
408: EXCEPTION
409: WHEN FND_API.G_EXC_ERROR THEN
410: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
411: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1300: Leaving lock_Row: OKC_API.G_EXCEPTION_ERROR Exception');
412: END IF;
413: ROLLBACK TO g_lock_row_GRP;
414: x_return_status := G_RET_STS_ERROR ;
415: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
414: x_return_status := G_RET_STS_ERROR ;
415: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
416:
417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
418: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
419: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1400: Leaving lock_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
420: END IF;
421: ROLLBACK TO g_lock_row_GRP;
422: x_return_status := G_RET_STS_UNEXP_ERROR ;
415: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
416:
417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
418: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
419: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1400: Leaving lock_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
420: END IF;
421: ROLLBACK TO g_lock_row_GRP;
422: x_return_status := G_RET_STS_UNEXP_ERROR ;
423: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
422: x_return_status := G_RET_STS_UNEXP_ERROR ;
423: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
424:
425: WHEN OTHERS THEN
426: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
427: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1500: Leaving lock_Row because of EXCEPTION: '||sqlerrm);
428: END IF;
429:
430: ROLLBACK TO g_lock_row_GRP;
423: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
424:
425: WHEN OTHERS THEN
426: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
427: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1500: Leaving lock_Row because of EXCEPTION: '||sqlerrm);
428: END IF;
429:
430: ROLLBACK TO g_lock_row_GRP;
431: x_return_status := G_RET_STS_UNEXP_ERROR ;
481: l_api_name CONSTANT VARCHAR2(30) := 'g_update_template_usages';
482:
483: BEGIN
484:
485: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
486: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1600: Entered update_template_usages');
487: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1700: Locking row');
488: END IF;
489:
482:
483: BEGIN
484:
485: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
486: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1600: Entered update_template_usages');
487: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1700: Locking row');
488: END IF;
489:
490: -- Standard Start of API savepoint
483: BEGIN
484:
485: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
486: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1600: Entered update_template_usages');
487: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1700: Locking row');
488: END IF;
489:
490: -- Standard Start of API savepoint
491: SAVEPOINT g_update_row_GRP;
544: END IF;
545: -- Standard call to get message count and if count is 1, get message info.
546: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
547:
548: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
549: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Leaving update_template_usages');
550: END IF;
551:
552: EXCEPTION
545: -- Standard call to get message count and if count is 1, get message info.
546: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
547:
548: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
549: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Leaving update_template_usages');
550: END IF;
551:
552: EXCEPTION
553: WHEN FND_API.G_EXC_ERROR THEN
550: END IF;
551:
552: EXCEPTION
553: WHEN FND_API.G_EXC_ERROR THEN
554: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
555: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1900: Leaving update_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
556: END IF;
557: ROLLBACK TO g_update_row_GRP;
558: x_return_status := G_RET_STS_ERROR ;
551:
552: EXCEPTION
553: WHEN FND_API.G_EXC_ERROR THEN
554: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
555: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1900: Leaving update_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
556: END IF;
557: ROLLBACK TO g_update_row_GRP;
558: x_return_status := G_RET_STS_ERROR ;
559: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
558: x_return_status := G_RET_STS_ERROR ;
559: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
560:
561: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
562: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving update_template_usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
564: END IF;
565: ROLLBACK TO g_update_row_GRP;
566: x_return_status := G_RET_STS_UNEXP_ERROR ;
559: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
560:
561: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
562: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving update_template_usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
564: END IF;
565: ROLLBACK TO g_update_row_GRP;
566: x_return_status := G_RET_STS_UNEXP_ERROR ;
567: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
566: x_return_status := G_RET_STS_UNEXP_ERROR ;
567: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
568:
569: WHEN OTHERS THEN
570: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
571: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2100: Leaving update_template_usages because of EXCEPTION: '||sqlerrm);
572: END IF;
573:
574: ROLLBACK TO g_update_row_GRP;
567: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
568:
569: WHEN OTHERS THEN
570: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
571: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2100: Leaving update_template_usages because of EXCEPTION: '||sqlerrm);
572: END IF;
573:
574: ROLLBACK TO g_update_row_GRP;
575: x_return_status := G_RET_STS_UNEXP_ERROR ;
599: l_api_version CONSTANT NUMBER := 1;
600: l_api_name CONSTANT VARCHAR2(30) := 'g_delete_template_usages';
601: BEGIN
602:
603: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
604: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: Entered delete_template_usages');
605: END IF;
606:
607: -- Standard Start of API savepoint
600: l_api_name CONSTANT VARCHAR2(30) := 'g_delete_template_usages';
601: BEGIN
602:
603: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
604: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: Entered delete_template_usages');
605: END IF;
606:
607: -- Standard Start of API savepoint
608: SAVEPOINT g_delete_row_GRP;
640: END IF;
641: -- Standard call to get message count and if count is 1, get message info.
642: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
643:
644: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
645: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving delete_template_usages');
646: END IF;
647:
648: EXCEPTION
641: -- Standard call to get message count and if count is 1, get message info.
642: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
643:
644: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
645: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving delete_template_usages');
646: END IF;
647:
648: EXCEPTION
649: WHEN FND_API.G_EXC_ERROR THEN
646: END IF;
647:
648: EXCEPTION
649: WHEN FND_API.G_EXC_ERROR THEN
650: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
651: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2400: Leaving delete_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
652: END IF;
653: ROLLBACK TO g_delete_row_GRP;
654: x_return_status := G_RET_STS_ERROR ;
647:
648: EXCEPTION
649: WHEN FND_API.G_EXC_ERROR THEN
650: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
651: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2400: Leaving delete_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
652: END IF;
653: ROLLBACK TO g_delete_row_GRP;
654: x_return_status := G_RET_STS_ERROR ;
655: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
654: x_return_status := G_RET_STS_ERROR ;
655: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
656:
657: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
658: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
659: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving delete_template_usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
660: END IF;
661: ROLLBACK TO g_delete_row_GRP;
662: x_return_status := G_RET_STS_UNEXP_ERROR ;
655: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
656:
657: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
658: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
659: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving delete_template_usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
660: END IF;
661: ROLLBACK TO g_delete_row_GRP;
662: x_return_status := G_RET_STS_UNEXP_ERROR ;
663: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
662: x_return_status := G_RET_STS_UNEXP_ERROR ;
663: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
664:
665: WHEN OTHERS THEN
666: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
667: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2600: Leaving delete_template_usages because of EXCEPTION: '||sqlerrm);
668: END IF;
669:
670: ROLLBACK TO g_delete_row_GRP;
663: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
664:
665: WHEN OTHERS THEN
666: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
667: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2600: Leaving delete_template_usages because of EXCEPTION: '||sqlerrm);
668: END IF;
669:
670: ROLLBACK TO g_delete_row_GRP;
671: x_return_status := G_RET_STS_UNEXP_ERROR ;
715: AND document_id = p_document_id;
716:
717: BEGIN
718:
719: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
720: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: Entered Set_Contract_Source');
721: END IF;
722:
723: -- Standard Start of API savepoint
716:
717: BEGIN
718:
719: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
720: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: Entered Set_Contract_Source');
721: END IF;
722:
723: -- Standard Start of API savepoint
724: SAVEPOINT g_set_contract_source_GRP;
760: x_return_status => x_return_status,
761: x_msg_data => x_msg_data,
762: x_msg_count => x_msg_count )
763: ) THEN
764: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
765: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'700: Issue with document header Record.Cannot commit');
766: END IF;
767: RAISE FND_API.G_EXC_ERROR;
768: END IF;
761: x_msg_data => x_msg_data,
762: x_msg_count => x_msg_count )
763: ) THEN
764: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
765: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'700: Issue with document header Record.Cannot commit');
766: END IF;
767: RAISE FND_API.G_EXC_ERROR;
768: END IF;
769:
828: END IF;
829: -- Standard call to get message count and if count is 1, get message info.
830: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
831:
832: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
833: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving Set_Contract_Source');
834: END IF;
835:
836: EXCEPTION
829: -- Standard call to get message count and if count is 1, get message info.
830: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
831:
832: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
833: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving Set_Contract_Source');
834: END IF;
835:
836: EXCEPTION
837: WHEN FND_API.G_EXC_ERROR THEN
834: END IF;
835:
836: EXCEPTION
837: WHEN FND_API.G_EXC_ERROR THEN
838: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
839: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2400: Leaving Set_Contract_Source: OKC_API.G_EXCEPTION_ERROR Exception');
840: END IF;
841: ROLLBACK TO g_set_contract_source_GRP;
842: x_return_status := G_RET_STS_ERROR ;
835:
836: EXCEPTION
837: WHEN FND_API.G_EXC_ERROR THEN
838: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
839: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2400: Leaving Set_Contract_Source: OKC_API.G_EXCEPTION_ERROR Exception');
840: END IF;
841: ROLLBACK TO g_set_contract_source_GRP;
842: x_return_status := G_RET_STS_ERROR ;
843: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
842: x_return_status := G_RET_STS_ERROR ;
843: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
844:
845: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
846: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
847: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving Set_Contract_Source: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
848: END IF;
849: ROLLBACK TO g_set_contract_source_GRP;
850: x_return_status := G_RET_STS_UNEXP_ERROR ;
843: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
844:
845: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
846: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
847: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving Set_Contract_Source: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
848: END IF;
849: ROLLBACK TO g_set_contract_source_GRP;
850: x_return_status := G_RET_STS_UNEXP_ERROR ;
851: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
850: x_return_status := G_RET_STS_UNEXP_ERROR ;
851: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
852:
853: WHEN OTHERS THEN
854: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
855: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2600: Leaving Set_Contract_Source because of EXCEPTION: '||sqlerrm);
856: END IF;
857:
858: ROLLBACK TO g_set_contract_source_GRP;
851: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
852:
853: WHEN OTHERS THEN
854: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
855: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2600: Leaving Set_Contract_Source because of EXCEPTION: '||sqlerrm);
856: END IF;
857:
858: ROLLBACK TO g_set_contract_source_GRP;
859: x_return_status := G_RET_STS_UNEXP_ERROR ;
909: AND document_id = p_document_id;
910:
911: BEGIN
912:
913: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
914: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: Entered Set_Contract_Source');
915: END IF;
916:
917: -- Standard Start of API savepoint
910:
911: BEGIN
912:
913: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
914: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: Entered Set_Contract_Source');
915: END IF;
916:
917: -- Standard Start of API savepoint
918: SAVEPOINT g_set_contract_src_dtls_GRP;
945: x_return_status => x_return_status,
946: x_msg_data => x_msg_data,
947: x_msg_count => x_msg_count )
948: ) THEN
949: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'700: Issue with document header Record.Cannot commit');
951: END IF;
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
946: x_msg_data => x_msg_data,
947: x_msg_count => x_msg_count )
948: ) THEN
949: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'700: Issue with document header Record.Cannot commit');
951: END IF;
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954:
1033: END IF;
1034: -- Standard call to get message count and if count is 1, get message info.
1035: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1036:
1037: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1038: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving Set_Contract_Source_details');
1039: END IF;
1040:
1041: EXCEPTION
1034: -- Standard call to get message count and if count is 1, get message info.
1035: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1036:
1037: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1038: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving Set_Contract_Source_details');
1039: END IF;
1040:
1041: EXCEPTION
1042: WHEN FND_API.G_EXC_ERROR THEN
1039: END IF;
1040:
1041: EXCEPTION
1042: WHEN FND_API.G_EXC_ERROR THEN
1043: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2400: Leaving Set_Contract_Source_details: OKC_API.G_EXCEPTION_ERROR Exception');
1045: END IF;
1046: ROLLBACK TO g_set_contract_src_dtls_GRP;
1047: x_return_status := G_RET_STS_ERROR ;
1040:
1041: EXCEPTION
1042: WHEN FND_API.G_EXC_ERROR THEN
1043: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2400: Leaving Set_Contract_Source_details: OKC_API.G_EXCEPTION_ERROR Exception');
1045: END IF;
1046: ROLLBACK TO g_set_contract_src_dtls_GRP;
1047: x_return_status := G_RET_STS_ERROR ;
1048: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1047: x_return_status := G_RET_STS_ERROR ;
1048: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1049:
1050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1051: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1052: 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');
1053: END IF;
1054: ROLLBACK TO g_set_contract_src_dtls_GRP;
1055: x_return_status := G_RET_STS_UNEXP_ERROR ;
1048: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1049:
1050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1051: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1052: 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');
1053: END IF;
1054: ROLLBACK TO g_set_contract_src_dtls_GRP;
1055: x_return_status := G_RET_STS_UNEXP_ERROR ;
1056: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1055: x_return_status := G_RET_STS_UNEXP_ERROR ;
1056: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1057:
1058: WHEN OTHERS THEN
1059: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1060: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2600: Leaving Set_Contract_Source_details because of EXCEPTION: '||sqlerrm);
1061: END IF;
1062:
1063: ROLLBACK TO g_set_contract_src_dtls_GRP;
1056: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1057:
1058: WHEN OTHERS THEN
1059: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1060: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2600: Leaving Set_Contract_Source_details because of EXCEPTION: '||sqlerrm);
1061: END IF;
1062:
1063: ROLLBACK TO g_set_contract_src_dtls_GRP;
1064: x_return_status := G_RET_STS_UNEXP_ERROR ;