67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: END IF;
69: -- Initialize message list if p_init_msg_list is set to TRUE.
70: IF FND_API.to_Boolean( p_init_msg_list ) THEN
71: FND_MSG_PUB.initialize;
72: END IF;
73: -- Initialize API return status to success
74: x_return_status := G_RET_STS_SUCCESS;
75:
93: END IF;
94: --------------------------------------------
95:
96: -- Standard call to get message count and if count is 1, get message info.
97: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
98:
99: IF (l_debug = 'Y') THEN
100: okc_debug.log('200: Leaving Validate_Doc_Qa_List', 2);
101: END IF;
106: okc_debug.log('300: Leaving Validate_Doc_Qa_List: OKC_API.G_EXCEPTION_ERROR Exception', 2);
107: END IF;
108: ROLLBACK TO g_Validate_Doc_Qa_List_GRP;
109: x_return_status := G_RET_STS_ERROR ;
110: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
111:
112: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
113: IF (l_debug = 'Y') THEN
114: okc_debug.log('400: Leaving Validate_Doc_Qa_List: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
114: okc_debug.log('400: Leaving Validate_Doc_Qa_List: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
115: END IF;
116: ROLLBACK TO g_Validate_Doc_Qa_List_GRP;
117: x_return_status := G_RET_STS_UNEXP_ERROR ;
118: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
119:
120: WHEN OTHERS THEN
121: IF (l_debug = 'Y') THEN
122: okc_debug.log('500: Leaving Validate_Doc_Qa_List because of EXCEPTION: '||sqlerrm, 2);
123: END IF;
124:
125: ROLLBACK TO g_Validate_Doc_Qa_List_GRP;
126: x_return_status := G_RET_STS_UNEXP_ERROR ;
127: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
128: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
129: END IF;
130: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
131:
124:
125: ROLLBACK TO g_Validate_Doc_Qa_List_GRP;
126: x_return_status := G_RET_STS_UNEXP_ERROR ;
127: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
128: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
129: END IF;
130: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
131:
132: END Validate_Doc_Qa_List;
126: x_return_status := G_RET_STS_UNEXP_ERROR ;
127: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
128: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
129: END IF;
130: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
131:
132: END Validate_Doc_Qa_List;
133:
134: -------------------------------------
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178: END IF;
179: -- Initialize message list if p_init_msg_list is set to TRUE.
180: IF FND_API.to_Boolean( p_init_msg_list ) THEN
181: FND_MSG_PUB.initialize;
182: END IF;
183: -- Initialize API return status to success
184: x_return_status := G_RET_STS_SUCCESS;
185:
208: IF FND_API.To_Boolean( p_commit ) THEN
209: COMMIT WORK;
210: END IF;
211: -- Standard call to get message count and if count is 1, get message info.
212: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
213:
214: IF (l_debug = 'Y') THEN
215: okc_debug.log('700: Leaving Insert_Doc_Qa_List', 2);
216: END IF;
221: okc_debug.log('800: Leaving Insert_Doc_Qa_List: OKC_API.G_EXCEPTION_ERROR Exception', 2);
222: END IF;
223: ROLLBACK TO g_Insert_Doc_Qa_List_GRP;
224: x_return_status := G_RET_STS_ERROR ;
225: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
226:
227: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
228: IF (l_debug = 'Y') THEN
229: okc_debug.log('900: Leaving Insert_Doc_Qa_List: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
229: okc_debug.log('900: Leaving Insert_Doc_Qa_List: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
230: END IF;
231: ROLLBACK TO g_Insert_Doc_Qa_List_GRP;
232: x_return_status := G_RET_STS_UNEXP_ERROR ;
233: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
234:
235: WHEN OTHERS THEN
236: IF (l_debug = 'Y') THEN
237: okc_debug.log('1000: Leaving Insert_Doc_Qa_List because of EXCEPTION: '||sqlerrm, 2);
238: END IF;
239:
240: ROLLBACK TO g_Insert_Doc_Qa_List_GRP;
241: x_return_status := G_RET_STS_UNEXP_ERROR ;
242: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
243: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
244: END IF;
245: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
246:
239:
240: ROLLBACK TO g_Insert_Doc_Qa_List_GRP;
241: x_return_status := G_RET_STS_UNEXP_ERROR ;
242: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
243: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
244: END IF;
245: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
246:
247: END Insert_Doc_Qa_List;
241: x_return_status := G_RET_STS_UNEXP_ERROR ;
242: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
243: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
244: END IF;
245: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
246:
247: END Insert_Doc_Qa_List;
248: ---------------------------------------------------------------------------
249: -- PROCEDURE Lock_Doc_Qa_List
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276: END IF;
277: -- Initialize message list if p_init_msg_list is set to TRUE.
278: IF FND_API.to_Boolean( p_init_msg_list ) THEN
279: FND_MSG_PUB.initialize;
280: END IF;
281: -- Initialize API return status to success
282: x_return_status := G_RET_STS_SUCCESS;
283:
298: END IF;
299: --------------------------------------------
300:
301: -- Standard call to get message count and if count is 1, get message info.
302: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
303:
304: IF (l_debug = 'Y') THEN
305: okc_debug.log('1200: Leaving Lock_Doc_Qa_List', 2);
306: END IF;
311: okc_debug.log('1300: Leaving Lock_Doc_Qa_List: OKC_API.G_EXCEPTION_ERROR Exception', 2);
312: END IF;
313: ROLLBACK TO g_Lock_Doc_Qa_List_GRP;
314: x_return_status := G_RET_STS_ERROR ;
315: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
316:
317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
318: IF (l_debug = 'Y') THEN
319: okc_debug.log('1400: Leaving Lock_Doc_Qa_List: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
319: okc_debug.log('1400: Leaving Lock_Doc_Qa_List: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
320: END IF;
321: ROLLBACK TO g_Lock_Doc_Qa_List_GRP;
322: x_return_status := G_RET_STS_UNEXP_ERROR ;
323: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
324:
325: WHEN OTHERS THEN
326: IF (l_debug = 'Y') THEN
327: okc_debug.log('1500: Leaving Lock_Doc_Qa_List because of EXCEPTION: '||sqlerrm, 2);
328: END IF;
329:
330: ROLLBACK TO g_Lock_Doc_Qa_List_GRP;
331: x_return_status := G_RET_STS_UNEXP_ERROR ;
332: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
333: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
334: END IF;
335: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
336:
329:
330: ROLLBACK TO g_Lock_Doc_Qa_List_GRP;
331: x_return_status := G_RET_STS_UNEXP_ERROR ;
332: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
333: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
334: END IF;
335: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
336:
337: END Lock_Doc_Qa_List;
331: x_return_status := G_RET_STS_UNEXP_ERROR ;
332: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
333: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
334: END IF;
335: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
336:
337: END Lock_Doc_Qa_List;
338: ---------------------------------------------------------------------------
339: -- PROCEDURE Update_Doc_Qa_List
376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
377: END IF;
378: -- Initialize message list if p_init_msg_list is set to TRUE.
379: IF FND_API.to_Boolean( p_init_msg_list ) THEN
380: FND_MSG_PUB.initialize;
381: END IF;
382: -- Initialize API return status to success
383: x_return_status := G_RET_STS_SUCCESS;
384:
406: IF FND_API.To_Boolean( p_commit ) THEN
407: COMMIT WORK;
408: END IF;
409: -- Standard call to get message count and if count is 1, get message info.
410: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
411:
412: IF (l_debug = 'Y') THEN
413: okc_debug.log('1800: Leaving Update_Doc_Qa_List', 2);
414: END IF;
419: okc_debug.log('1900: Leaving Update_Doc_Qa_List: OKC_API.G_EXCEPTION_ERROR Exception', 2);
420: END IF;
421: ROLLBACK TO g_Update_Doc_Qa_List_GRP;
422: x_return_status := G_RET_STS_ERROR ;
423: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
424:
425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
426: IF (l_debug = 'Y') THEN
427: okc_debug.log('2000: Leaving Update_Doc_Qa_List: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
427: okc_debug.log('2000: Leaving Update_Doc_Qa_List: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
428: END IF;
429: ROLLBACK TO g_Update_Doc_Qa_List_GRP;
430: x_return_status := G_RET_STS_UNEXP_ERROR ;
431: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
432:
433: WHEN OTHERS THEN
434: IF (l_debug = 'Y') THEN
435: okc_debug.log('2100: Leaving Update_Doc_Qa_List because of EXCEPTION: '||sqlerrm, 2);
436: END IF;
437:
438: ROLLBACK TO g_Update_Doc_Qa_List_GRP;
439: x_return_status := G_RET_STS_UNEXP_ERROR ;
440: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
441: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
442: END IF;
443: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
444:
437:
438: ROLLBACK TO g_Update_Doc_Qa_List_GRP;
439: x_return_status := G_RET_STS_UNEXP_ERROR ;
440: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
441: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
442: END IF;
443: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
444:
445: END Update_Doc_Qa_List;
439: x_return_status := G_RET_STS_UNEXP_ERROR ;
440: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
441: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
442: END IF;
443: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
444:
445: END Update_Doc_Qa_List;
446:
447: ---------------------------------------------------------------------------
475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
476: END IF;
477: -- Initialize message list if p_init_msg_list is set to TRUE.
478: IF FND_API.to_Boolean( p_init_msg_list ) THEN
479: FND_MSG_PUB.initialize;
480: END IF;
481: -- Initialize API return status to success
482: x_return_status := G_RET_STS_SUCCESS;
483:
502: IF FND_API.To_Boolean( p_commit ) THEN
503: COMMIT WORK;
504: END IF;
505: -- Standard call to get message count and if count is 1, get message info.
506: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
507:
508: IF (l_debug = 'Y') THEN
509: okc_debug.log('2300: Leaving Delete_Doc_Qa_List', 2);
510: END IF;
515: okc_debug.log('2400: Leaving Delete_Doc_Qa_List: OKC_API.G_EXCEPTION_ERROR Exception', 2);
516: END IF;
517: ROLLBACK TO g_Delete_Doc_Qa_List_GRP;
518: x_return_status := G_RET_STS_ERROR ;
519: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
520:
521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522: IF (l_debug = 'Y') THEN
523: okc_debug.log('2500: Leaving Delete_Doc_Qa_List: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
523: okc_debug.log('2500: Leaving Delete_Doc_Qa_List: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
524: END IF;
525: ROLLBACK TO g_Delete_Doc_Qa_List_GRP;
526: x_return_status := G_RET_STS_UNEXP_ERROR ;
527: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
528:
529: WHEN OTHERS THEN
530: IF (l_debug = 'Y') THEN
531: okc_debug.log('2600: Leaving Delete_Doc_Qa_List because of EXCEPTION: '||sqlerrm, 2);
532: END IF;
533:
534: ROLLBACK TO g_Delete_Doc_Qa_List_GRP;
535: x_return_status := G_RET_STS_UNEXP_ERROR ;
536: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
537: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
538: END IF;
539: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
540:
533:
534: ROLLBACK TO g_Delete_Doc_Qa_List_GRP;
535: x_return_status := G_RET_STS_UNEXP_ERROR ;
536: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
537: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
538: END IF;
539: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
540:
541: END Delete_Doc_Qa_List;
535: x_return_status := G_RET_STS_UNEXP_ERROR ;
536: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
537: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
538: END IF;
539: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
540:
541: END Delete_Doc_Qa_List;
542:
543: END OKC_DOC_QA_LIST_GRP;