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