[Home] [Help]
PACKAGE BODY: APPS.BIS_MEASURE_SECURITY_PUB
Source
1 PACKAGE BODY BIS_MEASURE_SECURITY_PUB AS
2 /* $Header: BISPMSEB.pls 115.25 2003/12/01 08:36:41 gramasam noship $ */
3 --
4 /*
5 REM +=======================================================================+
6 REM | Copyright (c) 1998 Oracle Corporation, Redwood Shores, CA, USA |
7 REM | All rights reserved. |
8 REM +=======================================================================+
9 REM | FILENAME |
10 REM | BISPMSES.pls |
11 REM | |
12 REM | DESCRIPTION |
13 REM | Public API for creating and managing Performance Measurements
14 REM |
15 REM | NOTES |
16 REM | |
17 REM | HISTORY |
18 REM | 28-NOV-98 irchen Creation
19 REM | 23-JAN-03 mahrao For having different local variables for IN and OUT |
20 REM | parameters. |
21 REM | 25-NOV-03 gramasam Included a new procedure for deleting |
22 REM | responsibilities at target level |
23 REM +=======================================================================+
24 */
25 --
26 G_PKG_NAME CONSTANT VARCHAR2(30):= 'BIS_MEASURE_SECURITY_PUB';
27 -- creates one Measure, with the dimensions sequenced in the order
28 -- they are passed in
29 PROCEDURE Create_Measure_Security
30 ( p_api_version IN NUMBER
31 , p_commit IN VARCHAR2 := FND_API.G_FALSE
32 ,p_Measure_Security_Rec IN BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type
33 , x_return_status OUT NOCOPY VARCHAR2
34 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
35 )
36 is
37 l_Measure_Security_Rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
38 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
39 begin
40
41 x_return_status := FND_API.G_RET_STS_SUCCESS;
42 BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
43 , p_Measure_Security_Rec
44 , l_Measure_Security_Rec
45 , x_return_status
46 , x_error_Tbl
47 );
48 --added this
49 IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
50 l_error_tbl := x_error_Tbl;
51 BIS_UTILITIES_PVT.Add_Error_Message
52 ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
53 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
54 , p_error_proc_name => G_PKG_NAME||'.Create_Measure_Security'
55 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
56 , p_error_table => l_error_tbl
57 , x_error_table => x_error_tbl
58 );
59 RAISE FND_API.G_EXC_ERROR;
60 END IF;
61
62 BIS_MEASURE_SECURITY_PVT.Create_Measure_Security
63 ( p_api_version => p_api_version
64 , p_commit => p_commit
65 , p_Measure_Security_Rec => p_Measure_Security_Rec
66 , x_return_status => x_return_status
67 , x_error_Tbl => x_error_Tbl
68 );
69
70 EXCEPTION
71 WHEN NO_DATA_FOUND THEN
72 x_return_status := FND_API.G_RET_STS_ERROR ;
73 when FND_API.G_EXC_ERROR then
74 x_return_status := FND_API.G_RET_STS_ERROR ;
75 when FND_API.G_EXC_UNEXPECTED_ERROR then
76 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
77 when others then
78 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
79 l_error_tbl := x_error_Tbl;
80 BIS_UTILITIES_PVT.Add_Error_Message
81 ( p_error_msg_id => SQLCODE
82 , p_error_description => SQLERRM
83 , p_error_proc_name => G_PKG_NAME||'.Create_Measure_Security'
84 , p_error_table => l_error_tbl
85 , x_error_table => x_error_tbl
86 );
87
88 end Create_Measure_Security;
89 --
90 --
91 PROCEDURE Retrieve_Measure_Securities
92 ( p_api_version IN NUMBER
93 , p_Target_Level_Rec IN BIS_Target_Level_PUB.Target_Level_Rec_Type
94 , x_Measure_Security_tbl OUT NOCOPY BIS_MEASURE_SECURITY_PUB.Measure_Security_Tbl_Type
95 , x_return_status OUT NOCOPY VARCHAR2
96 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
97 )
98 is
99 --added this
100 l_meas_rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
101 l_Target_Level_Rec BIS_Target_Level_PUB.Target_Level_Rec_Type;
102 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
103 l_meas_rec_p BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
104 begin
105 x_return_status := FND_API.G_RET_STS_SUCCESS;
106 /*
107 BIS_Target_Level_PVT.Value_ID_Conversion( p_api_version
108 , p_Target_Level_Rec
109 , l_Target_Level_Rec
110 , x_return_status
111 , x_error_Tbl
112 );
113 */
114 --added call to this instead
115 l_meas_rec.target_level_id := p_Target_Level_Rec.Target_Level_Id;
116 l_meas_rec.target_level_short_name := p_Target_Level_Rec.Target_Level_Short_Name;
117 l_meas_rec_p := l_meas_rec;
118 BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
119 ,l_meas_rec_p
120 , l_meas_rec
121 , x_return_status
122 , x_error_Tbl
123 );
124
125 --added this
126 IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
127 l_error_tbl := x_error_Tbl;
128 BIS_UTILITIES_PVT.Add_Error_Message
129 ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
130 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
131 , p_error_proc_name => G_PKG_NAME||'.Retrieve_Measure_Securities'
132 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
133 , p_error_table => l_error_tbl
134 , x_error_table => x_error_tbl
135 );
136 RAISE FND_API.G_EXC_ERROR;
137 END IF;
138
139 --added the assignment
140 --passing in l_Target_Level_Rec
141 l_Target_Level_Rec := p_Target_Level_Rec;
142 l_Target_Level_Rec.Target_Level_Id:=l_meas_rec.target_level_id;
143
144 BIS_MEASURE_SECURITY_PVT.Retrieve_Measure_Securities
145 ( p_api_version => p_api_version
146 , p_Target_Level_Rec => l_Target_Level_Rec
147 , x_Measure_Security_tbl => x_Measure_Security_tbl
148 , x_return_status => x_return_status
149 , x_error_Tbl => x_error_Tbl
150 );
151
152
153 EXCEPTION
154 WHEN NO_DATA_FOUND THEN
155 x_return_status := FND_API.G_RET_STS_ERROR ;
156 when FND_API.G_EXC_ERROR then
157 x_return_status := FND_API.G_RET_STS_ERROR ;
158 when FND_API.G_EXC_UNEXPECTED_ERROR then
159 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
160 when others then
161 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
162 l_error_tbl := x_error_Tbl;
163 BIS_UTILITIES_PVT.Add_Error_Message
164 ( p_error_msg_id => SQLCODE
165 , p_error_description => SQLERRM
166 , p_error_proc_name => G_PKG_NAME||'.Retrieve_Measure_Securities'
167 , p_error_table => l_error_tbl
168 , x_error_table => x_error_tbl
169 );
170
171 end Retrieve_Measure_Securities;
172 --
173 --
174 --
175 --
176 PROCEDURE Retrieve_Measure_Security
177 ( p_api_version IN NUMBER
178 , p_Measure_Security_Rec IN BIS_Measure_SECURITY_PUB.Measure_Security_Rec_Type
179 , x_Measure_Security_Rec OUT NOCOPY BIS_Measure_SECURITY_PUB.Measure_Security_Rec_Type
180 , x_return_status OUT NOCOPY VARCHAR2
181 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
182 )
183 is
184 l_Measure_Security_Rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
185 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
186 begin
187 x_return_status := FND_API.G_RET_STS_SUCCESS;
188 BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
189 , p_Measure_Security_Rec
190 , l_Measure_Security_Rec
191 , x_return_status
192 , x_error_Tbl
193 );
194 --added this
195 IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
196 l_error_tbl := x_error_Tbl;
197 BIS_UTILITIES_PVT.Add_Error_Message
198 ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
199 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
200 , p_error_proc_name => G_PKG_NAME||'.Retrieve_Measure_Security'
201 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
202 , p_error_table => l_error_tbl
203 , x_error_table => x_error_tbl
204 );
205 RAISE FND_API.G_EXC_ERROR;
206 END IF;
207
208
209 BIS_MEASURE_SECURITY_PVT.Retrieve_Measure_Security
210 ( p_api_version => p_api_version
211 , p_Measure_Security_Rec => p_Measure_Security_Rec
212 , x_Measure_Security_Rec => x_Measure_Security_Rec
213 , x_return_status => x_return_status
214 , x_error_Tbl => x_error_Tbl
215 );
216
217
218 EXCEPTION
219 WHEN NO_DATA_FOUND THEN
220 x_return_status := FND_API.G_RET_STS_ERROR ;
221 when FND_API.G_EXC_ERROR then
222 x_return_status := FND_API.G_RET_STS_ERROR ;
223 when FND_API.G_EXC_UNEXPECTED_ERROR then
224 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
225 when others then
226 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
227 l_error_tbl := x_error_Tbl;
228 BIS_UTILITIES_PVT.Add_Error_Message
229 ( p_error_msg_id => SQLCODE
230 , p_error_description => SQLERRM
231 , p_error_proc_name => G_PKG_NAME||'.Retrieve_Measure_Security'
232 , p_error_table => l_error_tbl
233 , x_error_table => x_error_tbl
234 );
235
236 end Retrieve_Measure_Security;
237 --
238 --
239 -- PLEASE VERIFY COMMENT BELOW
240 -- Update_Measure_Securitys one Measure if
241 -- 1) no Measure levels or targets exist
242 -- 2) no users have selected to see actuals for the Measure
243 PROCEDURE Update_Measure_Security
244 ( p_api_version IN NUMBER
245 , p_commit IN VARCHAR2 := FND_API.G_FALSE
246 ,p_Measure_Security_Rec IN BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type
247 , x_return_status OUT NOCOPY VARCHAR2
248 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
249 )
250 is
251 l_Measure_Security_Rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
252 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
253 begin
254 x_return_status := FND_API.G_RET_STS_SUCCESS;
255 BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
256 , p_Measure_Security_Rec
257 , l_Measure_Security_Rec
258 , x_return_status
259 , x_error_Tbl
260 );
261 --added this
262 IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
263 l_error_tbl := x_error_Tbl;
264 BIS_UTILITIES_PVT.Add_Error_Message
265 ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
266 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
267 , p_error_proc_name => G_PKG_NAME||'.Update_Measure_Security'
268 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
269 , p_error_table => l_error_tbl
270 , x_error_table => x_error_tbl
271 );
272 RAISE FND_API.G_EXC_ERROR;
273 END IF;
274
275 BIS_MEASURE_SECURITY_PVT.Update_Measure_Security
276 ( p_api_version => p_api_version
277 , p_commit => p_commit
278 , p_Measure_Security_Rec => p_Measure_Security_Rec
279 , x_return_status => x_return_status
280 , x_error_Tbl => x_error_Tbl
281 );
282
283
284 EXCEPTION
285 WHEN NO_DATA_FOUND THEN
286 x_return_status := FND_API.G_RET_STS_ERROR ;
287 when FND_API.G_EXC_ERROR then
288 x_return_status := FND_API.G_RET_STS_ERROR ;
289 when FND_API.G_EXC_UNEXPECTED_ERROR then
290 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291 when others then
292 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
293 l_error_tbl := x_error_Tbl;
294 BIS_UTILITIES_PVT.Add_Error_Message
295 ( p_error_msg_id => SQLCODE
296 , p_error_description => SQLERRM
297 , p_error_proc_name => G_PKG_NAME||'.Update_Measure_Security'
298 , p_error_table => l_error_tbl
299 , x_error_table => x_error_tbl
300 );
301
302 end Update_Measure_Security;
303 --
304 --
305 -- PLEASE VERIFY COMMENT BELOW
306 -- deletes one Measure if
307 -- 1) no Measure levels, targets exist and
308 -- 2) the Measure access has not been granted to a resonsibility
309 -- 3) no users have selected to see actuals for the Measure
310 PROCEDURE Delete_Measure_Security
311 ( p_api_version IN NUMBER
312 , p_commit IN VARCHAR2 := FND_API.G_FALSE
313 ,p_Measure_Security_Rec IN BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type
314 , x_return_status OUT NOCOPY VARCHAR2
315 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
316 )
317 is
318 l_Measure_Security_Rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
319 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
320 begin
321 x_return_status := FND_API.G_RET_STS_SUCCESS;
322 BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
323 , p_Measure_Security_Rec
324 , l_Measure_Security_Rec
328 --added this
325 , x_return_status
326 , x_error_Tbl
327 );
329 IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
330 l_error_tbl := x_error_Tbl;
331 BIS_UTILITIES_PVT.Add_Error_Message
332 ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
333 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
334 , p_error_proc_name => G_PKG_NAME||'.Delete_Measure_Security'
335 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
336 , p_error_table => l_error_tbl
337 , x_error_table => x_error_tbl
338 );
339 RAISE FND_API.G_EXC_ERROR;
340 END IF;
341
342 BIS_MEASURE_SECURITY_PVT.Delete_Measure_Security
343 ( p_api_version => p_api_version
344 , p_commit => p_commit
345 , p_Measure_Security_Rec => p_Measure_Security_Rec
346 , x_return_status => x_return_status
347 , x_error_Tbl => x_error_Tbl
348 );
349
350
351 EXCEPTION
352 WHEN NO_DATA_FOUND THEN
353 x_return_status := FND_API.G_RET_STS_ERROR ;
354 when FND_API.G_EXC_ERROR then
355 x_return_status := FND_API.G_RET_STS_ERROR ;
356 when FND_API.G_EXC_UNEXPECTED_ERROR then
357 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
358 when others then
359 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
360 l_error_tbl := x_error_Tbl;
361 BIS_UTILITIES_PVT.Add_Error_Message
362 ( p_error_msg_id => SQLCODE
363 , p_error_description => SQLERRM
364 , p_error_proc_name => G_PKG_NAME||'.Delete_Measure_Security'
365 , p_error_table => l_error_tbl
366 , x_error_table => x_error_tbl
367 );
368
369 end Delete_Measure_Security;
370 --
371 -- Validates measure
372 PROCEDURE Validate_Measure_Security
373 ( p_api_version IN NUMBER
374 ,p_Measure_Security_Rec IN BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type
375 , x_return_status OUT NOCOPY VARCHAR2
376 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
377 )
378 is
379 l_Measure_Security_Rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
380 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
381 begin
382 x_return_status := FND_API.G_RET_STS_SUCCESS;
383 BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
384 , p_Measure_Security_Rec
385 , l_Measure_Security_Rec
386 , x_return_status
387 , x_error_Tbl
388 );
389 --added this
390 IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
391 l_error_tbl := x_error_Tbl;
392 BIS_UTILITIES_PVT.Add_Error_Message
393 ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
394 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
395 , p_error_proc_name => G_PKG_NAME||'.Validate_Measure_Security'
396 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
397 , p_error_table => l_error_tbl
398 , x_error_table => x_error_tbl
399 );
400 RAISE FND_API.G_EXC_ERROR;
401 END IF;
402
403 BIS_MEASURE_SECURITY_PVT.Validate_Measure_Security
404 ( p_api_version => p_api_version
405 , p_Measure_Security_Rec => p_Measure_Security_Rec
406 , x_return_status => x_return_status
407 , x_error_Tbl => x_error_Tbl
408 );
409
410 --
411
412 EXCEPTION
413 WHEN NO_DATA_FOUND THEN
414 x_return_status := FND_API.G_RET_STS_ERROR ;
415 when FND_API.G_EXC_ERROR then
416 x_return_status := FND_API.G_RET_STS_ERROR ;
417 when FND_API.G_EXC_UNEXPECTED_ERROR then
418 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
419 when others then
420 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
421 l_error_tbl := x_error_Tbl;
422 BIS_UTILITIES_PVT.Add_Error_Message
423 ( p_error_msg_id => SQLCODE
424 , p_error_description => SQLERRM
425 , p_error_proc_name => G_PKG_NAME||'.Validate_Measure_Security'
426 , p_error_table => l_error_tbl
427 , x_error_table => x_error_tbl
428 );
429
430 end Validate_Measure_Security;
431 --
432 -- new API to validate Measure Security for bug 1716213
433 -- Validates measure
434 PROCEDURE Validate_Measure_Security
435 ( p_api_version IN NUMBER
436 , p_user_id IN NUMBER
437 , p_Measure_Security_Rec IN BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type
438 , x_return_status OUT NOCOPY VARCHAR2
439 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
440 )
441 is
442 l_Measure_Security_Rec BIS_MEASURE_SECURITY_PUB.Measure_Security_Rec_Type;
443 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
444 begin
445 x_return_status := FND_API.G_RET_STS_SUCCESS;
446 BIS_MEASURE_SECURITY_PVT.Value_ID_Conversion( p_api_version
447 , p_Measure_Security_Rec
448 , l_Measure_Security_Rec
449 , x_return_status
450 , x_error_Tbl
451 );
452 --added this
453 IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
454 l_error_tbl := x_error_Tbl;
455 BIS_UTILITIES_PVT.Add_Error_Message
459 , p_error_type => BIS_UTILITIES_PUB.G_ERROR
456 ( p_error_msg_name => 'BIS_INVALID_MSR_SECURITY_VALUE'
457 , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
458 , p_error_proc_name => G_PKG_NAME||'.Validate_Measure_Security'
460 , p_error_table => l_error_tbl
461 , x_error_table => x_error_tbl
462 );
463 RAISE FND_API.G_EXC_ERROR;
464 END IF;
465
466 BIS_MEASURE_SECURITY_PVT.Validate_Measure_Security
467 ( p_api_version => p_api_version
468 , p_user_id => p_user_id
469 , p_Measure_Security_Rec => l_Measure_Security_Rec
470 , x_return_status => x_return_status
471 , x_error_Tbl => x_error_Tbl
472 );
473
474 --
475
476 EXCEPTION
477 WHEN NO_DATA_FOUND THEN
478 x_return_status := FND_API.G_RET_STS_ERROR ;
479 when FND_API.G_EXC_ERROR then
480 x_return_status := FND_API.G_RET_STS_ERROR ;
481 when FND_API.G_EXC_UNEXPECTED_ERROR then
482 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
483 when others then
484 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
485 l_error_tbl := x_error_Tbl;
486 BIS_UTILITIES_PVT.Add_Error_Message
487 ( p_error_msg_id => SQLCODE
488 , p_error_description => SQLERRM
489 , p_error_proc_name => G_PKG_NAME||'.Validate_Measure_Security'
490 , p_error_table => l_error_tbl
491 , x_error_table => x_error_tbl
492 );
493
494 end Validate_Measure_Security;
495 --
496 --
497 -- new API to delete the responsibilities attached to the target levels
498 -- pertaining to the measure specified by the measure short name
499 PROCEDURE Delete_TargetLevel_Resp
500 ( p_commit IN VARCHAR2 := FND_API.G_FALSE
501 , p_measure_short_name IN VARCHAR2
502 , x_return_status OUT NOCOPY VARCHAR2
503 , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
504 )
505 IS
506 l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
507 BEGIN
508 x_return_status := FND_API.G_RET_STS_SUCCESS;
509 BIS_MEASURE_SECURITY_PVT.Delete_TargetLevel_Resp
510 ( p_commit => p_commit
511 , p_measure_short_name => p_measure_short_name
512 , x_return_status => x_return_status
513 , x_error_Tbl => x_error_Tbl
514 );
515
516 EXCEPTION
517 WHEN NO_DATA_FOUND THEN
518 x_return_status := FND_API.G_RET_STS_ERROR ;
519 WHEN FND_API.G_EXC_ERROR THEN
520 x_return_status := FND_API.G_RET_STS_ERROR ;
521 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
522 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
523 WHEN OTHERS THEN
524 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
525 l_error_tbl := x_error_Tbl;
526 BIS_UTILITIES_PVT.Add_Error_Message
527 ( p_error_msg_id => SQLCODE
528 , p_error_description => SQLERRM
529 , p_error_proc_name => G_PKG_NAME||'.Delete_TargetLevel_Resp'
530 , p_error_table => l_error_tbl
531 , x_error_table => x_error_tbl
532 );
533 END Delete_TargetLevel_Resp;
534
535
536 END BIS_MEASURE_SECURITY_PUB;