[Home] [Help]
PACKAGE BODY: APPS.IEX_BALI_FILTERS_PVT
Source
1 PACKAGE BODY IEX_BALI_FILTERS_PVT as
2 /* $Header: iexvbflb.pls 120.3 2004/06/04 19:59:04 jsanju noship $ */
3
4 PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5 -- Start of Comments
6 -- Package name : IEX_BALI_FILTERS_PVT
7 -- Purpose :
8 -- History :
9 -- NOTE :
10 -- End of Comments
11
12
13
14 G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvbflb.pls';
15
16 --private procedure
17 /**Name AddMissingArgMsg
18 **Appends to a message the api name, parameter name and parameter Value
19 */
20
21 PROCEDURE AddMissingArgMsg
22 ( p_api_name IN VARCHAR2,
23 p_param_name IN VARCHAR2 )IS
24 BEGIN
25 fnd_message.set_name('IEX', 'IEX_API_ALL_MISSING_PARAM');
26 fnd_message.set_token('API_NAME', p_api_name);
27 fnd_message.set_token('MISSING_PARAM', p_param_name);
28 fnd_msg_pub.add;
29
30 END AddMissingArgMsg;
31
32
33 PROCEDURE create_BALI_FILTERS(
34 P_Api_Version_Number IN NUMBER,
35 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
36 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
37 P_bali_filter_rec IN bali_filter_rec_type,
38 X_bali_filter_id OUT NOCOPY NUMBER
39 ,x_return_status OUT NOCOPY VARCHAR2
40 ,x_msg_count OUT NOCOPY NUMBER
41 ,x_msg_data OUT NOCOPY VARCHAR2
42 )
43
44 IS
45 l_api_name CONSTANT VARCHAR2(50) := 'CREATE_BALI_FILTERS';
46 l_api_name_full CONSTANT VARCHAR2(150) := g_pkg_name || '.' || l_api_name;
47 l_api_version_number CONSTANT NUMBER := 2.0;
48 v_bali_filter_id IEX_BALI_FILTERS.bali_filter_id%TYPE;
49 v_object_version_number IEX_BALI_FILTERS.object_version_number%TYPE;
50 v_rowid VARCHAR2(24);
51
52 Cursor c2 is SELECT IEX_BALI_FILTERS_S.nextval from dual;
53
54 BEGIN
55 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
56 IEX_DEBUG_PUB.LogMessage ('** Start of Procedure =>'||
57 'IEX_BALI_FILTERS_PVT.create_BALI_FILTERS *** ');
58 END IF;
59 -- Standard Start of API savepoint
60 SAVEPOINT CREATE_BALI_FILTERS_PVT;
61
62 -- Standard call to check for call compatibility.
63 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
64 p_api_version_number,
65 l_api_name,
66 G_PKG_NAME)
67 THEN
68 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
69 END IF;
70 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
71 IEX_DEBUG_PUB.LogMessage('After Compatibility Check');
72 END IF;
73
74 -- Initialize message list if p_init_msg_list is set to TRUE.
75 IF FND_API.to_Boolean( p_init_msg_list )
76 THEN
77 FND_MSG_PUB.initialize;
78 END IF;
79
80
81 -- Initialize API return status to SUCCESS
82 x_return_status := FND_API.G_RET_STS_SUCCESS;
83 --
84 -- API body
85 --
86 -- ******************************************************************
87 -- Validate Environment
88 -- ******************************************************************
89 IF FND_GLOBAL.User_Id IS NULL
90 THEN
91 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
92 THEN
93 FND_MESSAGE.Set_Name('IEX', 'IEX_CANNOT_GET_PROFILE_VALUE');
94 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
95 FND_MSG_PUB.ADD;
96 END IF;
97 RAISE FND_API.G_EXC_ERROR;
98 END IF;
99 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
100 IEX_DEBUG_PUB.LogMessage('After Global user Check');
101 END IF;
102
103
104 --object version Number
105 v_object_version_number :=1;
106
107 -- get bali_filter_id
108 OPEN C2;
109 FETCH C2 INTO v_bali_filter_id;
110 CLOSE C2;
111 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
112 IEX_DEBUG_PUB.LogMessage('bali_filter_id is => '||v_bali_filter_id);
113 END IF;
114
115 --bali_filter_name check
116 IF (P_bali_filter_rec.bali_filter_name IS NULL) THEN
117 AddMissingArgMsg(
118 p_api_name => l_api_name_full,
119 p_param_name => 'bali_filter_name' );
120 RAISE FND_API.G_EXC_ERROR;
121 END IF;
122
123 --bali_col_alias
124 IF (P_bali_filter_rec.bali_col_alias IS NULL) THEN
125 AddMissingArgMsg(
126 p_api_name => l_api_name_full,
127 p_param_name => 'bali_col_alias' );
128 RAISE FND_API.G_EXC_ERROR;
129 END IF;
130
131 --bali_col_condition_value
132 IF (P_bali_filter_rec.bali_col_condition_value IS NULL) THEN
133 AddMissingArgMsg(
134 p_api_name => l_api_name_full,
135 p_param_name => 'bali_col_condition_value' );
136 RAISE FND_API.G_EXC_ERROR;
137 END IF;
138
139 --bali_col_value
140 IF (P_bali_filter_rec.bali_col_value IS NULL) THEN
141 AddMissingArgMsg(
142 p_api_name => l_api_name_full,
143 p_param_name => 'bali_col_value' );
144 RAISE FND_API.G_EXC_ERROR;
145 END IF;
146
147
148 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
149 IEX_DEBUG_PUB.LogMessage('Before Calling iex_BALI_FILTERS_pkg.insert_row');
150 END IF;
151 -- Invoke table handler(IEX_BALI_FILTERS_PKG.Insert_Row)
152 IEX_BALI_FILTERS_PKG.Insert_Row(
153 x_rowid => v_rowid,
154 x_bali_filter_id => v_bali_filter_id,
155 x_bali_filter_name => P_bali_filter_rec.bali_filter_name,
156 x_bali_datasource => P_bali_filter_rec.bali_datasource,
157 x_bali_user_id =>P_bali_filter_rec.bali_user_id,
158 x_bali_col_alias => P_bali_filter_rec.bali_col_alias,
159 x_bali_col_data_type => P_bali_filter_rec.bali_col_data_type
160 ,x_bali_col_label_text => P_bali_filter_rec.bali_col_label_text
161 ,x_bali_col_condition_code => P_bali_filter_rec.bali_col_condition_code
162 ,x_bali_col_condition_value => P_bali_filter_rec.bali_col_condition_value
163 ,x_bali_col_value => P_bali_filter_rec.bali_col_value
164 ,x_right_parenthesis_code => P_bali_filter_rec.right_parenthesis_code
165 ,x_left_parenthesis_code => P_bali_filter_rec.left_parenthesis_code
166 ,x_boolean_operator_code => P_bali_filter_rec.boolean_operator_code
167 ,x_OBJECT_VERSION_NUMBER => v_OBJECT_VERSION_NUMBER,
168 x_REQUEST_ID => P_bali_filter_rec.REQUEST_ID,
169 x_PROGRAM_APPLICATION_ID => P_bali_filter_rec.PROGRAM_APPLICATION_ID,
170 x_PROGRAM_ID => P_bali_filter_rec.PROGRAM_ID,
171 x_PROGRAM_UPDATE_DATE => P_bali_filter_rec.PROGRAM_UPDATE_DATE,
172 x_ATTRIBUTE_CATEGORY => P_bali_filter_rec.ATTRIBUTE_CATEGORY,
173 x_ATTRIBUTE1 => P_bali_filter_rec.ATTRIBUTE1,
174 x_ATTRIBUTE2 => P_bali_filter_rec.ATTRIBUTE2,
175 x_ATTRIBUTE3 => P_bali_filter_rec.ATTRIBUTE3,
176 x_ATTRIBUTE4 => P_bali_filter_rec.ATTRIBUTE4,
177 x_ATTRIBUTE5 => P_bali_filter_rec.ATTRIBUTE5,
178 x_ATTRIBUTE6 => P_bali_filter_rec.ATTRIBUTE6,
179 x_ATTRIBUTE7 => P_bali_filter_rec.ATTRIBUTE7,
180 x_ATTRIBUTE8 => P_bali_filter_rec.ATTRIBUTE8,
181 x_ATTRIBUTE9 => P_bali_filter_rec.ATTRIBUTE9,
182 x_ATTRIBUTE10 => P_bali_filter_rec.ATTRIBUTE10,
183 x_ATTRIBUTE11 => P_bali_filter_rec.ATTRIBUTE11,
184 x_ATTRIBUTE12 => P_bali_filter_rec.ATTRIBUTE12,
185 x_ATTRIBUTE13 => P_bali_filter_rec.ATTRIBUTE13,
186 x_ATTRIBUTE14 => P_bali_filter_rec.ATTRIBUTE14,
187 x_ATTRIBUTE15 => P_bali_filter_rec.ATTRIBUTE15,
188 x_CREATED_BY => FND_GLOBAL.USER_ID,
189 X_CREATION_DATE => SYSDATE,
190 x_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
191 X_LAST_UPDATE_DATE => SYSDATE,
192 x_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID);
193
194
195
196 -- Hint: Primary key should be returned.
197 x_bali_filter_id := v_bali_filter_id;
198 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
199 IEX_DEBUG_PUB.LogMessage('After Calling iex_BALI_FILTERS_pkg.insert_row'||
200 'and bali_filter_id => '||x_bali_filter_id);
201 END IF;
202
203
204
205 -- Check return status from the above procedure call
206 IF x_return_status = FND_API.G_RET_STS_ERROR then
207 raise FND_API.G_EXC_ERROR;
208 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
209 raise FND_API.G_EXC_UNEXPECTED_ERROR;
210 END IF;
211
212 --
213 -- End of API body.
214 --
215
216 -- Standard check for p_commit
217 IF FND_API.to_Boolean( p_commit )
218 THEN
219 COMMIT WORK;
220 END IF;
221
222 -- Standard call to get message count and if count is 1, get message info.
223 FND_MSG_PUB.Count_And_Get
224 ( p_count => x_msg_count,
225 p_data => x_msg_data
226 );
227
228 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
229 IEX_DEBUG_PUB.LogMessage ('****** End of Procedure =>IEX_BALI_FILTERS_PVT.create_BALI_FILTERS ****** ');
230 END IF;
231 EXCEPTION
232 WHEN FND_API.G_EXC_ERROR THEN
233 ROLLBACK TO CREATE_BALI_FILTERS_PVT;
234 x_return_status := FND_API.G_RET_STS_ERROR ;
235 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
236 p_data => x_msg_data);
237 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
238 ROLLBACK TO CREATE_BALI_FILTERS_PVT;
239 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
240 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
241 p_data => x_msg_data);
242
243 WHEN OTHERS THEN
244 ROLLBACK TO CREATE_BALI_FILTERS_PVT;
245 x_return_status := FND_API.G_RET_STS_ERROR ;
246 FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME,l_api_name);
247 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
248 p_data => x_msg_data);
249
250 End create_BALI_FILTERS;
251
252
253
254 PROCEDURE update_BALI_FILTERS(
255 P_Api_Version_Number IN NUMBER,
256 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
257 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
258 P_bali_filter_rec IN bali_filter_rec_type,
259 x_return_status OUT NOCOPY VARCHAR2
260 ,x_msg_count OUT NOCOPY NUMBER
261 ,x_msg_data OUT NOCOPY VARCHAR2
262 ,XO_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER
263 )
264 IS
265 l_api_name CONSTANT VARCHAR2(60) := 'UPDATE_BALI_FILTERS';
266 l_api_version_number CONSTANT NUMBER := 2.0;
267 v_object_version_number IEX_BALI_FILTERS.object_version_number%TYPE
268 :=P_bali_filter_rec.object_version_number;
269
270 BEGIN
271 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
272 IEX_DEBUG_PUB.LogMessage ('** Start of Procedure =>'||
273 'IEX_BALI_FILTERS_PVT.update_BALI_FILTERS *** ');
274 END IF;
275
276 -- Standard Start of API savepoint
277 SAVEPOINT UPDATE_BALI_FILTERS_PVT;
278
279 -- Standard call to check for call compatibility.
280 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
281 p_api_version_number,
282 l_api_name,
283 G_PKG_NAME)
284 THEN
285 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286 END IF;
287
288
289 -- Initialize message list if p_init_msg_list is set to TRUE.
290 IF FND_API.to_Boolean( p_init_msg_list )
291 THEN
292 FND_MSG_PUB.initialize;
293 END IF;
294
295 -- Initialize API return status to SUCCESS
296 x_return_status := FND_API.G_RET_STS_SUCCESS;
297
298 --
299 -- API body
300 --
301
302 -- Debug Message
303 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
304 IEX_DEBUG_PUB.LogMessage('Before Calling iex_BALI_FILTERS_pkg.lock_row');
305 END IF;
306 -- Invoke table handler(IEX_BALI_FILTERS_PKG.Update_Row)
307 -- call locking table handler
308 IEX_BALI_FILTERS_PKG.lock_row (
309 P_bali_filter_rec.bali_filter_id,
310 v_object_version_number
311 );
312
313 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
314 IEX_DEBUG_PUB.LogMessage('Before Calling iex_BALI_FILTERS_pkg.update_row');
315 END IF;
316
317 IEX_BALI_FILTERS_PKG.Update_Row(
318 x_bali_filter_id => P_bali_filter_rec.bali_filter_id,
319 x_bali_filter_name => P_bali_filter_rec.bali_filter_name,
320 x_bali_datasource => P_bali_filter_rec.bali_datasource,
321 x_bali_user_id =>P_bali_filter_rec.bali_user_id,
322 x_bali_col_alias => P_bali_filter_rec.bali_col_alias
323 ,x_bali_col_data_type => P_bali_filter_rec.bali_col_data_type
324 ,x_bali_col_label_text => P_bali_filter_rec.bali_col_label_text
325 ,x_bali_col_condition_code => P_bali_filter_rec.bali_col_condition_code
326 ,x_bali_col_condition_value => P_bali_filter_rec.bali_col_condition_value
327 ,x_bali_col_value => P_bali_filter_rec.bali_col_value
328 ,x_right_parenthesis_code => P_bali_filter_rec.right_parenthesis_code
329 ,x_left_parenthesis_code => P_bali_filter_rec.left_parenthesis_code
330 ,x_boolean_operator_code => P_bali_filter_rec.boolean_operator_code
331 ,x_OBJECT_VERSION_NUMBER => v_OBJECT_VERSION_NUMBER + 1,
332 x_REQUEST_ID => P_bali_filter_rec.REQUEST_ID,
333 x_PROGRAM_APPLICATION_ID => P_bali_filter_rec.PROGRAM_APPLICATION_ID,
334 x_PROGRAM_ID => P_bali_filter_rec.PROGRAM_ID,
335 x_PROGRAM_UPDATE_DATE => P_bali_filter_rec.PROGRAM_UPDATE_DATE,
336 x_ATTRIBUTE_CATEGORY => P_bali_filter_rec.ATTRIBUTE_CATEGORY,
337 x_ATTRIBUTE1 => P_bali_filter_rec.ATTRIBUTE1,
338 x_ATTRIBUTE2 => P_bali_filter_rec.ATTRIBUTE2,
339 x_ATTRIBUTE3 => P_bali_filter_rec.ATTRIBUTE3,
340 x_ATTRIBUTE4 => P_bali_filter_rec.ATTRIBUTE4,
341 x_ATTRIBUTE5 => P_bali_filter_rec.ATTRIBUTE5,
342 x_ATTRIBUTE6 => P_bali_filter_rec.ATTRIBUTE6,
343 x_ATTRIBUTE7 => P_bali_filter_rec.ATTRIBUTE7,
344 x_ATTRIBUTE8 => P_bali_filter_rec.ATTRIBUTE8,
345 x_ATTRIBUTE9 => P_bali_filter_rec.ATTRIBUTE9,
346 x_ATTRIBUTE10 => P_bali_filter_rec.ATTRIBUTE10,
347 x_ATTRIBUTE11 => P_bali_filter_rec.ATTRIBUTE11,
348 x_ATTRIBUTE12 => P_bali_filter_rec.ATTRIBUTE12,
349 x_ATTRIBUTE13 => P_bali_filter_rec.ATTRIBUTE13,
350 x_ATTRIBUTE14 => P_bali_filter_rec.ATTRIBUTE14,
351 x_ATTRIBUTE15 => P_bali_filter_rec.ATTRIBUTE15,
352 x_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
353 X_LAST_UPDATE_DATE => SYSDATE,
354 x_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID
355 );
356
357
358 --Return Version number
359 xo_object_version_number := v_object_version_number + 1;
360 -- Check return status from the above procedure call
361 IF x_return_status = FND_API.G_RET_STS_ERROR then
362 raise FND_API.G_EXC_ERROR;
363 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
364 raise FND_API.G_EXC_UNEXPECTED_ERROR;
365 END IF;
366
367 --
368 -- End of API body
369 --
370
371 -- Standard check for p_commit
372 IF FND_API.to_Boolean( p_commit )
373 THEN
374 COMMIT WORK;
375 END IF;
376
377
378 -- Standard call to get message count and if count is 1, get message info.
379 FND_MSG_PUB.Count_And_Get
380 ( p_count => x_msg_count,
381 p_data => x_msg_data
382 );
383 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
384 IEX_DEBUG_PUB.LogMessage ('**** End of Procedure =>'||
385 'IEX_BALI_FILTERS_PVT.update_BALI_FILTERS ** ');
386 END IF;
387 EXCEPTION
388 WHEN FND_API.G_EXC_ERROR THEN
389 ROLLBACK TO UPDATE_BALI_FILTERS_PVT;
390 x_return_status := FND_API.G_RET_STS_ERROR ;
391 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
392 p_data => x_msg_data);
393 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
394 ROLLBACK TO UPDATE_BALI_FILTERS_PVT;
395 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
396 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
397 p_data => x_msg_data);
398
399 WHEN OTHERS THEN
400 ROLLBACK TO UPDATE_BALI_FILTERS_PVT;
401 x_return_status := FND_API.G_RET_STS_ERROR ;
402 FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME,l_api_name);
403 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
404 p_data => x_msg_data);
405
406 End update_BALI_FILTERS;
407
408
409
410 PROCEDURE delete_BALI_FILTERS(
411 P_Api_Version_Number IN NUMBER,
412 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
413 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
414 p_bali_filter_id IN NUMBER ,
415 x_return_status OUT NOCOPY VARCHAR2
416 ,x_msg_count OUT NOCOPY NUMBER
417 ,x_msg_data OUT NOCOPY VARCHAR2
418
419 )
420
421 IS
422 l_api_name CONSTANT VARCHAR2(50) := 'DELETE_BALI_FILTERS';
423 l_api_version_number CONSTANT NUMBER := 2.0;
424
425 BEGIN
426 -- Standard Start of API savepoint
427 SAVEPOINT DELETE_BALI_FILTERS_PVT;
428
429 -- Standard call to check for call compatibility.
430 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
431 p_api_version_number,
432 l_api_name,
433 G_PKG_NAME)
434 THEN
435 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436 END IF;
437
438
439 -- Initialize message list if p_init_msg_list is set to TRUE.
440 IF FND_API.to_Boolean( p_init_msg_list )
441 THEN
442 FND_MSG_PUB.initialize;
443 END IF;
444
445
446 -- Initialize API return status to SUCCESS
447 x_return_status := FND_API.G_RET_STS_SUCCESS;
448 --
449 -- API body
450 --
451
452 -- call table handler to insert into jtf_tasks_temp_groups
453 iex_BALI_FILTERS_pkg.delete_row (p_bali_filter_id);
454
455 -- Check return status from the above procedure call
456 IF x_return_status = FND_API.G_RET_STS_ERROR then
457 raise FND_API.G_EXC_ERROR;
458 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
459 raise FND_API.G_EXC_UNEXPECTED_ERROR;
460 END IF;
461
462 --
463 -- End of API body
464 --
465
466 -- Standard check for p_commit
467 IF FND_API.to_Boolean( p_commit )
468 THEN
469 COMMIT WORK;
470 END IF;
471
472
473 -- Standard call to get message count and if count is 1, get message info.
474 FND_MSG_PUB.Count_And_Get
475 ( p_count => x_msg_count,
476 p_data => x_msg_data
477 );
478 EXCEPTION
479 WHEN FND_API.G_EXC_ERROR THEN
480 ROLLBACK TO DELETE_BALI_FILTERS_PVT;
481 x_return_status := FND_API.G_RET_STS_ERROR ;
482 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
483 p_data => x_msg_data);
484 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
485 ROLLBACK TO DELETE_BALI_FILTERS_PVT;
486 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
487 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
488 p_data => x_msg_data);
489
490 WHEN OTHERS THEN
491 ROLLBACK TO DELETE_BALI_FILTERS_PVT;
492 x_return_status := FND_API.G_RET_STS_ERROR ;
493 FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME,l_api_name);
494 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
495 p_data => x_msg_data);
496
497 End delete_BALI_FILTERS;
498
499 Procedure commit_work IS
500 BEGIN
501 COMMIT WORK;
502 end commit_work;
503 End IEX_BALI_FILTERS_PVT;