[Home] [Help]
PACKAGE BODY: APPS.IEX_CASE_DEFINITIONS_PVT
Source
1 PACKAGE BODY IEX_case_definitions_PVT as
2 /* $Header: iexvcdfb.pls 120.1 2006/05/30 17:54:09 scherkas noship $ */
3 -- Start of Comments
4 -- Package name : IEX_case_definitions_PVT
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_CASE_DEFINITIONS_PVT';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvcdfb.pls';
13
14
15 -- Hint: Primary key needs to be returned.
16 --PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
17 PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
18
19 PROCEDURE Create_case_definitions(
20 P_Api_Version_Number IN NUMBER,
21 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
22 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
23 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
24 P_case_definition_Rec IN case_definition_Rec_Type := G_MISS_case_definition_REC,
25 X_CASE_DEFINITION_ID OUT NOCOPY NUMBER,
26 X_Return_Status OUT NOCOPY VARCHAR2,
27 X_Msg_Count OUT NOCOPY NUMBER,
28 X_Msg_Data OUT NOCOPY VARCHAR2
29 )
30
31 IS
32 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CASE_DEFINITIONS';
33 l_api_version_number CONSTANT NUMBER := 2.0;
34
35 v_rowid VARCHAR2(24);
36 v_case_definition_id iex_case_definitions.case_definition_id%TYPE;
37 v_active_flag iex_case_definitions.active_flag%TYPE;
38 v_object_version_number iex_case_definitions.object_version_number%TYPE;
39 Cursor c2 is SELECT IEX_CASE_DEFINITIONS_S.nextval from dual;
40 BEGIN
41 -- IF PG_DEBUG < 10 THEN
42 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
43 IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASE_DEFINITIONS_PVT.Create_case_definitions ******** ');
44 END IF;
45 -- Standard Start of API savepoint
46 SAVEPOINT CREATE_case_definitions_PVT;
47
48 -- Standard call to check for call compatibility.
49 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
50 p_api_version_number,
51 l_api_name,
52 G_PKG_NAME)
53 THEN
54 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55 END IF;
56 -- IF PG_DEBUG < 10 THEN
57 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
58 IEX_DEBUG_PUB.LogMessage('Create_case_definitions: ' || 'After Compatibility Check');
59 END IF;
60
61
62 -- Initialize message list if p_init_msg_list is set to TRUE.
63 IF FND_API.to_Boolean( p_init_msg_list )
64 THEN
65 FND_MSG_PUB.initialize;
66 END IF;
67
68
69 -- Initialize API return status to SUCCESS
70 x_return_status := FND_API.G_RET_STS_SUCCESS;
71
72 --
73 -- API body
74 --
75 -- ******************************************************************
76 -- Validate Environment
77 -- ******************************************************************
78 IF FND_GLOBAL.User_Id IS NULL
79 THEN
80 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
81 THEN
82 FND_MESSAGE.Set_Name('IEX', 'IEX_CANNOT_GET_PROFILE_VALUE');
83 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
84 FND_MSG_PUB.ADD;
85 END IF;
86 RAISE FND_API.G_EXC_ERROR;
87 END IF;
88 -- IF PG_DEBUG < 10 THEN
89 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
90 IEX_DEBUG_PUB.LogMessage('Create_case_definitions: ' || 'After Global user Check');
91 END IF;
92
93 --object version Number
94 v_object_version_number :=1;
95 --ActiveFlag
96 v_active_flag :='Y';
97
98 -- get case_definition_id
99 OPEN C2;
100 FETCH C2 INTO v_CASE_DEFINITION_ID;
101 CLOSE C2;
102 -- IF PG_DEBUG < 10 THEN
103 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
104 IEX_DEBUG_PUB.LogMessage('Create_case_definitions: ' || 'After CAS Definition ID Check and cas_definition_id is => '||v_CASE_DEFINITION_ID);
105 END IF;
106
107 -- IF PG_DEBUG < 10 THEN
108 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
109 IEX_DEBUG_PUB.LogMessage('Create_case_definitions: ' || 'Before Calling IEX_CASE_DEFINITIONS_PKG.Insert_Row');
110 END IF;
111 -- Invoke table handler(IEX_CASE_DEFINITIONS_PKG.Insert_Row)
112 IEX_CASE_DEFINITIONS_PKG.Insert_Row(
113 x_rowid =>v_rowid,
114 x_CASE_DEFINITION_ID => v_CASE_DEFINITION_ID,
115 x_COLUMN_NAME => p_case_definition_rec.COLUMN_NAME,
116 x_COLUMN_VALUE => p_case_definition_rec.COLUMN_VALUE,
117 x_ACTIVE_FLAG => v_active_flag,
118 x_TABLE_NAME => p_case_definition_rec.TABLE_NAME,
119 x_OBJECT_VERSION_NUMBER => v_OBJECT_VERSION_NUMBER,
120 x_CAS_ID => p_case_definition_rec.CAS_ID,
121 x_REQUEST_ID => p_case_definition_rec.REQUEST_ID,
122 x_PROGRAM_APPLICATION_ID => p_case_definition_rec.PROGRAM_APPLICATION_ID,
123 x_PROGRAM_ID => p_case_definition_rec.PROGRAM_ID,
124 x_PROGRAM_UPDATE_DATE => p_case_definition_rec.PROGRAM_UPDATE_DATE,
125 x_ATTRIBUTE_CATEGORY => p_case_definition_rec.ATTRIBUTE_CATEGORY,
126 x_ATTRIBUTE1 => p_case_definition_rec.ATTRIBUTE1,
127 x_ATTRIBUTE2 => p_case_definition_rec.ATTRIBUTE2,
128 x_ATTRIBUTE3 => p_case_definition_rec.ATTRIBUTE3,
129 x_ATTRIBUTE4 => p_case_definition_rec.ATTRIBUTE4,
130 x_ATTRIBUTE5 => p_case_definition_rec.ATTRIBUTE5,
131 x_ATTRIBUTE6 => p_case_definition_rec.ATTRIBUTE6,
132 x_ATTRIBUTE7 => p_case_definition_rec.ATTRIBUTE7,
133 x_ATTRIBUTE8 => p_case_definition_rec.ATTRIBUTE8,
134 x_ATTRIBUTE9 => p_case_definition_rec.ATTRIBUTE9,
135 x_ATTRIBUTE10 => p_case_definition_rec.ATTRIBUTE10,
136 x_ATTRIBUTE11 => p_case_definition_rec.ATTRIBUTE11,
137 x_ATTRIBUTE12 => p_case_definition_rec.ATTRIBUTE12,
138 x_ATTRIBUTE13 => p_case_definition_rec.ATTRIBUTE13,
139 x_ATTRIBUTE14 => p_case_definition_rec.ATTRIBUTE14,
140 x_ATTRIBUTE15 => p_case_definition_rec.ATTRIBUTE15,
141 x_CREATED_BY => FND_GLOBAL.USER_ID,
142 x_CREATION_DATE => SYSDATE,
143 x_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
144 x_LAST_UPDATE_DATE => SYSDATE,
145 x_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID);
146
147 -- Hint: Primary key should be returned.
148 x_CASE_DEFINITION_ID := v_CASE_DEFINITION_ID;
149 -- IF PG_DEBUG < 10 THEN
150 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
151 IEX_DEBUG_PUB.LogMessage('Create_case_definitions: ' || 'After Calling IEX_CASE_DEFINITIONS_PKG.Insert_Row and case definition id => '||x_CASE_DEFINITION_ID);
152 END IF;
153
154 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
155 RAISE FND_API.G_EXC_ERROR;
156 END IF;
157
158 --
159 -- End of API body
160 --
161
162 -- Standard check for p_commit
163 IF FND_API.to_Boolean( p_commit )
164 THEN
165 COMMIT WORK;
166 END IF;
167
168
169 -- Standard call to get message count and if count is 1, get message info.
170 FND_MSG_PUB.Count_And_Get
171 ( p_count => x_msg_count,
172 p_data => x_msg_data
173 );
174 -- IF PG_DEBUG < 10 THEN
175 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
176 IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASE_DEFINITIONS_PVT.Create_case_definitions ******** ');
177 END IF;
178 EXCEPTION
179 WHEN FND_API.G_EXC_ERROR THEN
180 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
181 P_API_NAME => L_API_NAME
182 ,P_PKG_NAME => G_PKG_NAME
183 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
184 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
185 ,X_MSG_COUNT => X_MSG_COUNT
186 ,X_MSG_DATA => X_MSG_DATA
187 ,X_RETURN_STATUS => X_RETURN_STATUS);
188
189 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
190 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
191 P_API_NAME => L_API_NAME
192 ,P_PKG_NAME => G_PKG_NAME
193 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
194 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
195 ,X_MSG_COUNT => X_MSG_COUNT
196 ,X_MSG_DATA => X_MSG_DATA
197 ,X_RETURN_STATUS => X_RETURN_STATUS);
198
199 WHEN OTHERS THEN
200 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
201 P_API_NAME => L_API_NAME
202 ,P_PKG_NAME => G_PKG_NAME
203 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
204 ,P_SQLCODE => SQLCODE
205 ,P_SQLERRM => SQLERRM
206 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
207 ,X_MSG_COUNT => X_MSG_COUNT
208 ,X_MSG_DATA => X_MSG_DATA
209 ,X_RETURN_STATUS => X_RETURN_STATUS);
210 End Create_case_definitions;
211
212
213 -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
214 PROCEDURE Update_case_definitions(
215 P_Api_Version_Number IN NUMBER,
216 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
217 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
218 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
219 P_case_definition_Rec IN case_definition_Rec_Type,
220 X_Return_Status OUT NOCOPY VARCHAR2,
221 X_Msg_Count OUT NOCOPY NUMBER,
222 X_Msg_Data OUT NOCOPY VARCHAR2,
223 XO_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER
224 )
225
226 IS
227 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CASE_DEFINITIONS';
228 l_api_version_number CONSTANT NUMBER := 2.0;
229 l_object_version_number iex_case_definitions.object_version_number%TYPE:=p_case_definition_rec.object_version_number;
230 BEGIN
231 -- IF PG_DEBUG < 10 THEN
232 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
233 IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASE_DEFINITIONS_PVT.Update_case_definitions ******** ');
234 END IF;
235 -- Standard Start of API savepoint
236 SAVEPOINT UPDATE_case_definitions_PVT;
237
238 -- Standard call to check for call compatibility.
239 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
240 p_api_version_number,
241 l_api_name,
242 G_PKG_NAME)
243 THEN
244 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245 END IF;
246
247
248 -- Initialize message list if p_init_msg_list is set to TRUE.
249 IF FND_API.to_Boolean( p_init_msg_list )
250 THEN
251 FND_MSG_PUB.initialize;
252 END IF;
253
254
255 -- Initialize API return status to SUCCESS
256 x_return_status := FND_API.G_RET_STS_SUCCESS;
257
258 --
259 -- Api body
260 --
261
262 -- Invoke table handler(IEX_CASE_DEFINITIONS_PKG.Update_Row)
263 -- call locking table handler
264 -- IF PG_DEBUG < 10 THEN
265 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
266 IEX_DEBUG_PUB.LogMessage('Update_case_definitions: ' || 'Before Calling IEX_CASE_DEFINITIONS_PKG.lock_row');
267 END IF;
268 IEX_CASE_DEFINITIONS_PKG.lock_row (
269 p_case_definition_rec.CASE_DEFINITION_ID,
270 l_object_version_number
271 );
272 -- IF PG_DEBUG < 10 THEN
273 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
274 IEX_DEBUG_PUB.LogMessage('Update_case_definitions: ' || 'Before Calling IEX_CASE_DEFINITIONS_PKG.update_row');
275 END IF;
276 IEX_CASE_DEFINITIONS_PKG.Update_Row(
277 x_CASE_DEFINITION_ID => p_case_definition_rec.CASE_DEFINITION_ID,
278 x_COLUMN_NAME => p_case_definition_rec.COLUMN_NAME,
279 x_COLUMN_VALUE =>p_case_definition_rec.COLUMN_VALUE,
280 x_ACTIVE_FLAG =>p_case_definition_rec.ACTIVE_FLAG,
281 x_TABLE_NAME => p_case_definition_rec.TABLE_NAME,
282 x_OBJECT_VERSION_NUMBER => l_OBJECT_VERSION_NUMBER +1,
283 x_CAS_ID => p_case_definition_rec.CAS_ID,
284 x_REQUEST_ID => p_case_definition_rec.REQUEST_ID,
285 x_PROGRAM_APPLICATION_ID => p_case_definition_rec.PROGRAM_APPLICATION_ID,
286 x_PROGRAM_ID => p_case_definition_rec.PROGRAM_ID,
287 x_PROGRAM_UPDATE_DATE => p_case_definition_rec.PROGRAM_UPDATE_DATE,
288 x_ATTRIBUTE_CATEGORY => p_case_definition_rec.ATTRIBUTE_CATEGORY,
289 x_ATTRIBUTE1 => p_case_definition_rec.ATTRIBUTE1,
290 x_ATTRIBUTE2 => p_case_definition_rec.ATTRIBUTE2,
291 x_ATTRIBUTE3 => p_case_definition_rec.ATTRIBUTE3,
292 x_ATTRIBUTE4 => p_case_definition_rec.ATTRIBUTE4,
293 x_ATTRIBUTE5 => p_case_definition_rec.ATTRIBUTE5,
294 x_ATTRIBUTE6 => p_case_definition_rec.ATTRIBUTE6,
295 x_ATTRIBUTE7 => p_case_definition_rec.ATTRIBUTE7,
296 x_ATTRIBUTE8 => p_case_definition_rec.ATTRIBUTE8,
297 x_ATTRIBUTE9 => p_case_definition_rec.ATTRIBUTE9,
298 x_ATTRIBUTE10 => p_case_definition_rec.ATTRIBUTE10,
299 x_ATTRIBUTE11 => p_case_definition_rec.ATTRIBUTE11,
300 x_ATTRIBUTE12 => p_case_definition_rec.ATTRIBUTE12,
301 x_ATTRIBUTE13 => p_case_definition_rec.ATTRIBUTE13,
302 x_ATTRIBUTE14 => p_case_definition_rec.ATTRIBUTE14,
303 x_ATTRIBUTE15 => p_case_definition_rec.ATTRIBUTE15,
304 x_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
305 x_LAST_UPDATE_DATE => SYSDATE,
306 x_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID);
307
308 --Return Version number
309 xo_object_version_number := l_object_version_number + 1;
310 -- Check return status from the above procedure call
311 IF x_return_status = FND_API.G_RET_STS_ERROR then
312 raise FND_API.G_EXC_ERROR;
313 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
314 raise FND_API.G_EXC_UNEXPECTED_ERROR;
315 END IF;
316
317 --
318 -- End of API body.
319 --
320
321 -- Standard check for p_commit
322 IF FND_API.to_Boolean( p_commit )
323 THEN
324 COMMIT WORK;
325 END IF;
326
327
328
329 -- Standard call to get message count and if count is 1, get message info.
330 FND_MSG_PUB.Count_And_Get
331 ( p_count => x_msg_count,
332 p_data => x_msg_data
333 );
334 -- IF PG_DEBUG < 10 THEN
335 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
336 IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_CASE_DEFINITIONS_PVT.update_case_definitions ******** ');
337 END IF;
338 EXCEPTION
339 WHEN FND_API.G_EXC_ERROR THEN
340 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
341 P_API_NAME => L_API_NAME
342 ,P_PKG_NAME => G_PKG_NAME
343 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
344 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
345 ,X_MSG_COUNT => X_MSG_COUNT
346 ,X_MSG_DATA => X_MSG_DATA
347 ,X_RETURN_STATUS => X_RETURN_STATUS);
348
349 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
350 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
351 P_API_NAME => L_API_NAME
352 ,P_PKG_NAME => G_PKG_NAME
353 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
354 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
355 ,X_MSG_COUNT => X_MSG_COUNT
356 ,X_MSG_DATA => X_MSG_DATA
357 ,X_RETURN_STATUS => X_RETURN_STATUS);
358
359 WHEN OTHERS THEN
360 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
361 P_API_NAME => L_API_NAME
362 ,P_PKG_NAME => G_PKG_NAME
363 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
364 ,P_SQLCODE => SQLCODE
365 ,P_SQLERRM => SQLERRM
366 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
367 ,X_MSG_COUNT => X_MSG_COUNT
368 ,X_MSG_DATA => X_MSG_DATA
369 ,X_RETURN_STATUS => X_RETURN_STATUS);
370 End Update_case_definitions;
371
372
373 -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
374 -- The Master delete procedure may not be needed depends on different business requirements.
375 PROCEDURE Delete_case_definitions(
376 P_Api_Version_Number IN NUMBER,
377 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
378 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
379 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
380 P_case_definition_ID IN NUMBER,
381 X_Return_Status OUT NOCOPY VARCHAR2,
382 X_Msg_Count OUT NOCOPY NUMBER,
383 X_Msg_Data OUT NOCOPY VARCHAR2
384 )
385
386 IS
387 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CASE_DEFINITIONS';
388 l_api_version_number CONSTANT NUMBER := 2.0;
389
390 BEGIN
391 -- Standard Start of API savepoint
392 SAVEPOINT DELETE_case_definitions_PVT;
393
394 -- Standard call to check for call compatibility.
395 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
396 p_api_version_number,
397 l_api_name,
398 G_PKG_NAME)
399 THEN
400 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
401 END IF;
402
403
404 -- Initialize message list if p_init_msg_list is set to TRUE.
405 IF FND_API.to_Boolean( p_init_msg_list )
406 THEN
407 FND_MSG_PUB.initialize;
408 END IF;
409
410
411 -- Initialize API return status to SUCCESS
412 x_return_status := FND_API.G_RET_STS_SUCCESS;
413
414 --
415 -- Api body
416 --
417
418 -- Invoke table handler(IEX_CASE_DEFINITIONS_PKG.Delete_Row)
419 IEX_CASE_DEFINITIONS_PKG.Delete_Row(
420 X_CASE_DEFINITION_ID => p_CASE_DEFINITION_ID);
421 --
422 -- End of API body
423 --
424
425 -- Standard check for p_commit
426 IF FND_API.to_Boolean( p_commit )
427 THEN
428 COMMIT WORK;
429 END IF;
430
431
432 -- Standard call to get message count and if count is 1, get message info.
433 FND_MSG_PUB.Count_And_Get
434 ( p_count => x_msg_count,
435 p_data => x_msg_data
436 );
437
438 EXCEPTION
439 WHEN FND_API.G_EXC_ERROR THEN
440 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
441 P_API_NAME => L_API_NAME
442 ,P_PKG_NAME => G_PKG_NAME
443 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
444 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
445 ,X_MSG_COUNT => X_MSG_COUNT
446 ,X_MSG_DATA => X_MSG_DATA
447 ,X_RETURN_STATUS => X_RETURN_STATUS);
448
449 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
450 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
451 P_API_NAME => L_API_NAME
452 ,P_PKG_NAME => G_PKG_NAME
453 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
454 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
455 ,X_MSG_COUNT => X_MSG_COUNT
456 ,X_MSG_DATA => X_MSG_DATA
457 ,X_RETURN_STATUS => X_RETURN_STATUS);
458
459 WHEN OTHERS THEN
460 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
461 P_API_NAME => L_API_NAME
462 ,P_PKG_NAME => G_PKG_NAME
463 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
464 ,P_SQLCODE => SQLCODE
465 ,P_SQLERRM => SQLERRM
466 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
467 ,X_MSG_COUNT => X_MSG_COUNT
468 ,X_MSG_DATA => X_MSG_DATA
469 ,X_RETURN_STATUS => X_RETURN_STATUS);
470 End Delete_case_definitions;
471
472
473 End IEX_case_definitions_PVT;