15:
16: ------------------------------------------------------------------------------
17: -- GLOBAL CONSTANTS
18: ------------------------------------------------------------------------------
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
23: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
16: ------------------------------------------------------------------------------
17: -- GLOBAL CONSTANTS
18: ------------------------------------------------------------------------------
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
23: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
24:
17: -- GLOBAL CONSTANTS
18: ------------------------------------------------------------------------------
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
23: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
24:
25: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
18: ------------------------------------------------------------------------------
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
23: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
24:
25: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
26: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
23: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
24:
25: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
26: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
27: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
21: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
22: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
23: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
24:
25: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
26: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
27: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
28:
29: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
22: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
23: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
24:
25: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
26: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
27: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
28:
29: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
30: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
23: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
24:
25: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
26: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
27: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
28:
29: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
30: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
31: G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
35: ---------------------------------------
36: PROCEDURE Validate_Doc_Qa_List(
37: p_api_version IN NUMBER,
38: p_init_msg_list IN VARCHAR2 ,
39: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
40:
41: x_return_status OUT NOCOPY VARCHAR2,
42: x_msg_count OUT NOCOPY NUMBER,
43: x_msg_data OUT NOCOPY VARCHAR2,
62:
63: -- Standard Start of API savepoint
64: SAVEPOINT g_Validate_Doc_Qa_List_GRP;
65: -- Standard call to check for call compatibility.
66: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
63: -- Standard Start of API savepoint
64: SAVEPOINT g_Validate_Doc_Qa_List_GRP;
65: -- Standard call to check for call compatibility.
66: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
66: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
86: p_object_version_number => p_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: --------------------------------------------
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: --------------------------------------------
95:
96: -- Standard call to get message count and if count is 1, get message info.
100: okc_debug.log('200: Leaving Validate_Doc_Qa_List', 2);
101: END IF;
102:
103: EXCEPTION
104: WHEN FND_API.G_EXC_ERROR THEN
105: IF (l_debug = 'Y') THEN
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;
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);
115: END IF;
116: ROLLBACK TO g_Validate_Doc_Qa_List_GRP;
136: -------------------------------------
137: PROCEDURE Insert_Doc_Qa_List(
138: p_api_version IN NUMBER,
139: p_init_msg_list IN VARCHAR2 ,
140: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
141: p_commit IN VARCHAR2 := FND_API.G_FALSE,
142:
143: x_return_status OUT NOCOPY VARCHAR2,
144: x_msg_count OUT NOCOPY NUMBER,
137: PROCEDURE Insert_Doc_Qa_List(
138: p_api_version IN NUMBER,
139: p_init_msg_list IN VARCHAR2 ,
140: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
141: p_commit IN VARCHAR2 := FND_API.G_FALSE,
142:
143: x_return_status OUT NOCOPY VARCHAR2,
144: x_msg_count OUT NOCOPY NUMBER,
145: x_msg_data OUT NOCOPY VARCHAR2,
172:
173: -- Standard Start of API savepoint
174: SAVEPOINT g_Insert_Doc_Qa_List_GRP;
175: -- Standard call to check for call compatibility.
176: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
173: -- Standard Start of API savepoint
174: SAVEPOINT g_Insert_Doc_Qa_List_GRP;
175: -- Standard call to check for call compatibility.
176: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
176: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
197: x_document_type => x_document_type
198: );
199: --------------------------------------------
200: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
202: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
203: RAISE FND_API.G_EXC_ERROR ;
204: END IF;
205: --------------------------------------------
199: --------------------------------------------
200: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
202: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
203: RAISE FND_API.G_EXC_ERROR ;
204: END IF;
205: --------------------------------------------
206:
207: -- Standard check of p_commit
204: END IF;
205: --------------------------------------------
206:
207: -- Standard check of p_commit
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 );
215: okc_debug.log('700: Leaving Insert_Doc_Qa_List', 2);
216: END IF;
217:
218: EXCEPTION
219: WHEN FND_API.G_EXC_ERROR THEN
220: IF (l_debug = 'Y') THEN
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;
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);
230: END IF;
231: ROLLBACK TO g_Insert_Doc_Qa_List_GRP;
270:
271: -- Standard Start of API savepoint
272: SAVEPOINT g_Lock_Doc_Qa_List_GRP;
273: -- Standard call to check for call compatibility.
274: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
271: -- Standard Start of API savepoint
272: SAVEPOINT g_Lock_Doc_Qa_List_GRP;
273: -- Standard call to check for call compatibility.
274: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
274: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
291: p_object_version_number => p_object_version_number
292: );
293: --------------------------------------------
294: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
296: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
297: RAISE FND_API.G_EXC_ERROR ;
298: END IF;
299: --------------------------------------------
293: --------------------------------------------
294: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
296: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
297: RAISE FND_API.G_EXC_ERROR ;
298: END IF;
299: --------------------------------------------
300:
301: -- Standard call to get message count and if count is 1, get message info.
305: okc_debug.log('1200: Leaving Lock_Doc_Qa_List', 2);
306: END IF;
307:
308: EXCEPTION
309: WHEN FND_API.G_EXC_ERROR THEN
310: IF (l_debug = 'Y') THEN
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;
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);
320: END IF;
321: ROLLBACK TO g_Lock_Doc_Qa_List_GRP;
340: ---------------------------------------------------------------------------
341: PROCEDURE Update_Doc_Qa_List(
342: p_api_version IN NUMBER,
343: p_init_msg_list IN VARCHAR2 ,
344: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
345: p_commit IN VARCHAR2 := FND_API.G_FALSE,
346:
347: x_return_status OUT NOCOPY VARCHAR2,
348: x_msg_count OUT NOCOPY NUMBER,
341: PROCEDURE Update_Doc_Qa_List(
342: p_api_version IN NUMBER,
343: p_init_msg_list IN VARCHAR2 ,
344: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
345: p_commit IN VARCHAR2 := FND_API.G_FALSE,
346:
347: x_return_status OUT NOCOPY VARCHAR2,
348: x_msg_count OUT NOCOPY NUMBER,
349: x_msg_data OUT NOCOPY VARCHAR2,
371:
372: -- Standard Start of API savepoint
373: SAVEPOINT g_Update_Doc_Qa_List_GRP;
374: -- Standard call to check for call compatibility.
375: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
372: -- Standard Start of API savepoint
373: SAVEPOINT g_Update_Doc_Qa_List_GRP;
374: -- Standard call to check for call compatibility.
375: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
375: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
395: p_object_version_number => p_object_version_number
396: );
397: --------------------------------------------
398: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
400: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
401: RAISE FND_API.G_EXC_ERROR ;
402: END IF;
403: --------------------------------------------
397: --------------------------------------------
398: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
400: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
401: RAISE FND_API.G_EXC_ERROR ;
402: END IF;
403: --------------------------------------------
404:
405: -- Standard check of p_commit
402: END IF;
403: --------------------------------------------
404:
405: -- Standard check of p_commit
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 );
413: okc_debug.log('1800: Leaving Update_Doc_Qa_List', 2);
414: END IF;
415:
416: EXCEPTION
417: WHEN FND_API.G_EXC_ERROR THEN
418: IF (l_debug = 'Y') THEN
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;
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);
428: END IF;
429: ROLLBACK TO g_Update_Doc_Qa_List_GRP;
449: ---------------------------------------------------------------------------
450: PROCEDURE Delete_Doc_Qa_List(
451: p_api_version IN NUMBER,
452: p_init_msg_list IN VARCHAR2 ,
453: p_commit IN VARCHAR2 := FND_API.G_FALSE,
454:
455: x_return_status OUT NOCOPY VARCHAR2,
456: x_msg_count OUT NOCOPY NUMBER,
457: x_msg_data OUT NOCOPY VARCHAR2,
470:
471: -- Standard Start of API savepoint
472: SAVEPOINT g_Delete_Doc_Qa_List_GRP;
473: -- Standard call to check for call compatibility.
474: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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
471: -- Standard Start of API savepoint
472: SAVEPOINT g_Delete_Doc_Qa_List_GRP;
473: -- Standard call to check for call compatibility.
474: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
474: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
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;
491: p_object_version_number => p_object_version_number
492: );
493: --------------------------------------------
494: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
496: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
497: RAISE FND_API.G_EXC_ERROR ;
498: END IF;
499: --------------------------------------------
493: --------------------------------------------
494: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
496: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
497: RAISE FND_API.G_EXC_ERROR ;
498: END IF;
499: --------------------------------------------
500:
501: -- Standard check of p_commit
498: END IF;
499: --------------------------------------------
500:
501: -- Standard check of p_commit
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 );
509: okc_debug.log('2300: Leaving Delete_Doc_Qa_List', 2);
510: END IF;
511:
512: EXCEPTION
513: WHEN FND_API.G_EXC_ERROR THEN
514: IF (l_debug = 'Y') THEN
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;
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);
524: END IF;
525: ROLLBACK TO g_Delete_Doc_Qa_List_GRP;