[Home] [Help]
PACKAGE BODY: APPS.XLA_EXCEPTIONS_PKG
Source
1 PACKAGE BODY xla_exceptions_pkg AS
2 /* $Header: xlacmexc.pkb 120.6 2003/05/24 00:13:25 svjoshi ship $ */
3 /*======================================================================+
4 | Copyright (c) 2000-2002 Oracle Corporation |
5 | Redwood Shores, CA, USA |
6 | All rights reserved. |
7 +=======================================================================+
8 | PACKAGE NAME |
9 | xla_exceptions_pkg |
10 | |
11 | DESCRIPTION |
12 | XLA Exceptions Package |
13 | |
14 | HISTORY |
15 | 02-Jan-95 P. Juvara Created |
16 | 07-Feb-01 P. Labrevois Adapted for XLA |
17 | 23-May-2003 Shishir Joshi Removed message number from the message|
18 | name |
19 | |
20 +======================================================================*/
21
22
23 /*======================================================================+
24 | |
25 | |
26 | |
27 | |
28 | |
29 | |
30 | |
31 | |
32 | |
33 | |
34 | Misc Private |
35 | |
36 | |
37 | |
38 | |
39 | |
40 | |
41 | |
42 | |
43 | |
44 | |
45 +======================================================================*/
46
47
48 /*======================================================================+
49 | |
50 | Private procedure |
51 | |
52 | failure |
53 | |
54 | Print the failure in the std trace. |
55 | |
56 +======================================================================*/
57 PROCEDURE failure
58
59 IS
60
61 BEGIN
62 xla_utility_pkg.trace('Failure = '
63 || xla_environment_pkg.g_chr_newline
64 || xla_exceptions_pkg.exception_text ,100);
65 NULL;
66 END;
67
68
69 /*======================================================================+
70 | |
71 | |
72 | |
73 | |
74 | |
75 | |
76 | |
77 | |
78 | |
79 | |
80 | Raise exception |
81 | |
82 | Rasise the standard exception. |
83 | |
84 | |
85 | |
86 | |
87 | |
88 | |
89 | |
90 | |
91 | |
92 | |
93 +======================================================================*/
94
95
96 /*======================================================================+
97 | |
98 | Public Procedure |
99 | |
100 | raise_exceptions |
101 | |
102 | Raise the standard exception |
103 | |
104 +======================================================================*/
105 PROCEDURE raise_exception
106
107 IS
108
109 BEGIN
110 app_exception.raise_exception
111 (exception_text =>
112 'XLA-'
113 || xla_messages_pkg.g_message_number
114 || ': '
115 || SUBSTR(xla_exceptions_pkg.exception_text
116 ,1,LEAST(512,LENGTH(xla_exceptions_pkg.exception_text))));
117 END raise_exception;
118
119
120 /*======================================================================+
121 | |
122 | |
123 | |
124 | |
125 | |
126 | |
127 | |
128 | |
129 | |
130 | |
131 | Raise message |
132 | |
133 | Build a message with do or up to 6 tokens, then raise the standard |
134 | exception. |
135 | |
136 | |
137 | |
138 | |
139 | |
140 | |
141 | |
142 | |
143 | |
144 | |
145 +======================================================================*/
146
147 /*======================================================================+
148 | |
149 | Public Procedure |
150 | |
151 | raise_message |
152 | |
153 | Raise the standard exception with a generic text associated. This |
154 | procedure is usually called from the all the exceptions blocks. |
155 | |
156 +======================================================================*/
157 PROCEDURE raise_message
158 (p_location IN VARCHAR2
159 ,p_msg_mode IN VARCHAR2 DEFAULT C_STANDARD_MESSAGE)
160 IS
161 BEGIN
162 raise_message
163 ('XLA' , 'XLA_COMMON_ERROR'
164 ,'LOCATION' , p_location
165 ,'ERROR' , sqlerrm
166 ,p_msg_mode);
167 END raise_message;
168
169
170 /*======================================================================+
171 | |
172 | Public Procedure |
173 | |
174 | raise_message |
175 | |
176 | Set the message completed with the value for no token, then raise. |
177 | |
178 +======================================================================*/
179 PROCEDURE raise_message
180 (p_appli_s_name IN VARCHAR2
181 ,p_msg_name IN VARCHAR2
182 ,p_msg_mode IN VARCHAR2 DEFAULT C_STANDARD_MESSAGE)
183
184 IS
185
186 BEGIN
187 xla_exceptions_pkg.exception_text :=
188 xla_messages_pkg.get_message
189 (p_appli_s_name => p_appli_s_name
190 ,p_msg_name => p_msg_name);
191
192 xla_messages_pkg.build_message
193 (p_appli_s_name => p_appli_s_name
194 ,p_msg_name => p_msg_name);
195
196 failure;
197
198 if (p_msg_mode = C_STANDARD_MESSAGE) then
199 xla_exceptions_pkg.raise_exception;
200 else
201 fnd_msg_pub.add;
202 end if;
203 END raise_message;
204
205
206 /*======================================================================+
207 | |
208 | Public Procedure |
209 | |
210 | raise_message |
211 | |
212 | Set the message completed with the value for 2 token, then raise. |
213 | |
214 +======================================================================*/
215 PROCEDURE raise_message
216 (p_appli_s_name IN VARCHAR2
217 ,p_msg_name IN VARCHAR2
218 ,p_token_1 IN VARCHAR2
219 ,p_value_1 IN VARCHAR2
220 ,p_msg_mode IN VARCHAR2 DEFAULT C_STANDARD_MESSAGE)
221
222 IS
223
224 BEGIN
225 xla_exceptions_pkg.exception_text :=
226 xla_messages_pkg.get_message
227 (p_appli_s_name => p_appli_s_name
228 ,p_msg_name => p_msg_name
229 ,p_token_1 => p_token_1
230 ,p_value_1 => p_value_1);
231
232 xla_messages_pkg.build_message
233 (p_appli_s_name => p_appli_s_name
234 ,p_msg_name => p_msg_name
235 ,p_token_1 => p_token_1
236 ,p_value_1 => p_value_1);
237
238 failure;
239
240 if (p_msg_mode = C_STANDARD_MESSAGE) then
241 xla_exceptions_pkg.raise_exception;
242 else
243 fnd_msg_pub.add;
244 end if;
245 END raise_message;
246
247
248 /*======================================================================+
249 | |
250 | Public Procedure |
251 | |
252 | raise_message |
253 | |
254 | Set the message completed with the value for 2 token, then raise. |
255 | |
256 +======================================================================*/
257 PROCEDURE raise_message
258 (p_appli_s_name IN VARCHAR2
259 ,p_msg_name IN VARCHAR2
260 ,p_token_1 IN VARCHAR2
261 ,p_value_1 IN VARCHAR2
262 ,p_token_2 IN VARCHAR2
263 ,p_value_2 IN VARCHAR2
264 ,p_msg_mode IN VARCHAR2 DEFAULT C_STANDARD_MESSAGE)
265
266 IS
267
268 BEGIN
269 xla_exceptions_pkg.exception_text :=
270 xla_messages_pkg.get_message
271 (p_appli_s_name => p_appli_s_name
272 ,p_msg_name => p_msg_name
273 ,p_token_1 => p_token_1
274 ,p_value_1 => p_value_1
275 ,p_token_2 => p_token_2
276 ,p_value_2 => p_value_2);
277
278 xla_messages_pkg.build_message
279 (p_appli_s_name => p_appli_s_name
280 ,p_msg_name => p_msg_name
281 ,p_token_1 => p_token_1
282 ,p_value_1 => p_value_1
283 ,p_token_2 => p_token_2
284 ,p_value_2 => p_value_2);
285
286 failure;
287
288 if (p_msg_mode = C_STANDARD_MESSAGE) then
289 xla_exceptions_pkg.raise_exception;
290 else
291 fnd_msg_pub.add;
292 end if;
293 END raise_message;
294
295
296 /*======================================================================+
297 | |
298 | Public Procedure |
299 | |
300 | raise_message |
301 | |
302 | Set the message completed with the value for 3 token, then raise. |
303 | |
304 +======================================================================*/
305 PROCEDURE raise_message
306 (p_appli_s_name IN VARCHAR2
307 ,p_msg_name IN VARCHAR2
308 ,p_token_1 IN VARCHAR2
309 ,p_value_1 IN VARCHAR2
310 ,p_token_2 IN VARCHAR2
311 ,p_value_2 IN VARCHAR2
312 ,p_token_3 IN VARCHAR2
313 ,p_value_3 IN VARCHAR2
314 ,p_msg_mode IN VARCHAR2 DEFAULT C_STANDARD_MESSAGE)
315
316 IS
317
318 BEGIN
319 xla_exceptions_pkg.exception_text :=
320 xla_messages_pkg.get_message
321 (p_appli_s_name => p_appli_s_name
322 ,p_msg_name => p_msg_name
323 ,p_token_1 => p_token_1
324 ,p_value_1 => p_value_1
325 ,p_token_2 => p_token_2
326 ,p_value_2 => p_value_2
327 ,p_token_3 => p_token_3
328 ,p_value_3 => p_value_3);
329
330 xla_messages_pkg.build_message
331 (p_appli_s_name => p_appli_s_name
332 ,p_msg_name => p_msg_name
333 ,p_token_1 => p_token_1
334 ,p_value_1 => p_value_1
335 ,p_token_2 => p_token_2
336 ,p_value_2 => p_value_2
337 ,p_token_3 => p_token_3
338 ,p_value_3 => p_value_3);
339
340 failure;
341
342 if (p_msg_mode = C_STANDARD_MESSAGE) then
343 xla_exceptions_pkg.raise_exception;
344 else
345 fnd_msg_pub.add;
346 end if;
347 END raise_message;
348
349
350 /*======================================================================+
351 | |
352 | Public Procedure |
353 | |
354 | raise_message |
355 | |
356 | Set the message completed with the value for 4 token, then raise. |
357 | |
358 +======================================================================*/
359 PROCEDURE raise_message
360 (p_appli_s_name IN VARCHAR2
361 ,p_msg_name IN VARCHAR2
362 ,p_token_1 IN VARCHAR2
363 ,p_value_1 IN VARCHAR2
364 ,p_token_2 IN VARCHAR2
365 ,p_value_2 IN VARCHAR2
366 ,p_token_3 IN VARCHAR2
367 ,p_value_3 IN VARCHAR2
368 ,p_token_4 IN VARCHAR2
369 ,p_value_4 IN VARCHAR2
370 ,p_msg_mode IN VARCHAR2 DEFAULT C_STANDARD_MESSAGE)
371
372 IS
373
374 BEGIN
375 xla_exceptions_pkg.exception_text :=
376 xla_messages_pkg.get_message
377 (p_appli_s_name => p_appli_s_name
378 ,p_msg_name => p_msg_name
379 ,p_token_1 => p_token_1
380 ,p_value_1 => p_value_1
381 ,p_token_2 => p_token_2
382 ,p_value_2 => p_value_2
383 ,p_token_3 => p_token_3
384 ,p_value_3 => p_value_3
385 ,p_token_4 => p_token_4
386 ,p_value_4 => p_value_4);
387
388 xla_messages_pkg.build_message
389 (p_appli_s_name => p_appli_s_name
390 ,p_msg_name => p_msg_name
391 ,p_token_1 => p_token_1
392 ,p_value_1 => p_value_1
393 ,p_token_2 => p_token_2
394 ,p_value_2 => p_value_2
395 ,p_token_3 => p_token_3
396 ,p_value_3 => p_value_3
397 ,p_token_4 => p_token_4
398 ,p_value_4 => p_value_4);
399
400 failure;
401
402 if (p_msg_mode = C_STANDARD_MESSAGE) then
403 xla_exceptions_pkg.raise_exception;
404 else
405 fnd_msg_pub.add;
406 end if;
407 END raise_message;
408
409
410 /*======================================================================+
411 | |
412 | Public Procedure |
413 | |
414 | raise_message |
415 | |
416 | Set the message completed with the value for 6 token, then raise. |
417 | |
418 +======================================================================*/
419 PROCEDURE raise_message
420 (p_appli_s_name IN VARCHAR2
421 ,p_msg_name IN VARCHAR2
422 ,p_token_1 IN VARCHAR2
423 ,p_value_1 IN VARCHAR2
424 ,p_token_2 IN VARCHAR2
425 ,p_value_2 IN VARCHAR2
426 ,p_token_3 IN VARCHAR2
427 ,p_value_3 IN VARCHAR2
428 ,p_token_4 IN VARCHAR2
429 ,p_value_4 IN VARCHAR2
430 ,p_token_5 IN VARCHAR2
431 ,p_value_5 IN VARCHAR2
432 ,p_msg_mode IN VARCHAR2 DEFAULT C_STANDARD_MESSAGE)
433
434 IS
435
436 BEGIN
437 xla_exceptions_pkg.exception_text :=
438 xla_messages_pkg.get_message
439 (p_appli_s_name => p_appli_s_name
440 ,p_msg_name => p_msg_name
441 ,p_token_1 => p_token_1
442 ,p_value_1 => p_value_1
443 ,p_token_2 => p_token_2
444 ,p_value_2 => p_value_2
445 ,p_token_3 => p_token_3
446 ,p_value_3 => p_value_3
447 ,p_token_4 => p_token_4
448 ,p_value_4 => p_value_4
449 ,p_token_5 => p_token_5
450 ,p_value_5 => p_value_5);
451
452 xla_messages_pkg.build_message
453 (p_appli_s_name => p_appli_s_name
454 ,p_msg_name => p_msg_name
455 ,p_token_1 => p_token_1
456 ,p_value_1 => p_value_1
457 ,p_token_2 => p_token_2
458 ,p_value_2 => p_value_2
459 ,p_token_3 => p_token_3
460 ,p_value_3 => p_value_3
461 ,p_token_4 => p_token_4
462 ,p_value_4 => p_value_4
463 ,p_token_5 => p_token_5
464 ,p_value_5 => p_value_5);
465
466 failure;
467
468 if (p_msg_mode = C_STANDARD_MESSAGE) then
469 xla_exceptions_pkg.raise_exception;
470 else
471 fnd_msg_pub.add;
472 end if;
473 END raise_message;
474
475
476 /*======================================================================+
477 | |
478 | Public Procedure |
479 | |
480 | raise_message |
481 | |
482 | Set the message completed with the value for 6 token, then raise. |
483 | |
484 +======================================================================*/
485 PROCEDURE raise_message
486 (p_appli_s_name IN VARCHAR2
487 ,p_msg_name IN VARCHAR2
488 ,p_token_1 IN VARCHAR2
489 ,p_value_1 IN VARCHAR2
490 ,p_token_2 IN VARCHAR2
491 ,p_value_2 IN VARCHAR2
492 ,p_token_3 IN VARCHAR2
493 ,p_value_3 IN VARCHAR2
494 ,p_token_4 IN VARCHAR2
495 ,p_value_4 IN VARCHAR2
496 ,p_token_5 IN VARCHAR2
497 ,p_value_5 IN VARCHAR2
498 ,p_token_6 IN VARCHAR2
499 ,p_value_6 IN VARCHAR2
500 ,p_msg_mode IN VARCHAR2 DEFAULT C_STANDARD_MESSAGE)
501
502 IS
503
504 BEGIN
505 xla_exceptions_pkg.exception_text :=
506 xla_messages_pkg.get_message
507 (p_appli_s_name => p_appli_s_name
508 ,p_msg_name => p_msg_name
509 ,p_token_1 => p_token_1
510 ,p_value_1 => p_value_1
511 ,p_token_2 => p_token_2
512 ,p_value_2 => p_value_2
513 ,p_token_3 => p_token_3
514 ,p_value_3 => p_value_3
515 ,p_token_4 => p_token_4
516 ,p_value_4 => p_value_4
517 ,p_token_5 => p_token_5
518 ,p_value_5 => p_value_5
519 ,p_token_6 => p_token_6
520 ,p_value_6 => p_value_6);
521
522 xla_messages_pkg.build_message
523 (p_appli_s_name => p_appli_s_name
524 ,p_msg_name => p_msg_name
525 ,p_token_1 => p_token_1
526 ,p_value_1 => p_value_1
527 ,p_token_2 => p_token_2
528 ,p_value_2 => p_value_2
529 ,p_token_3 => p_token_3
530 ,p_value_3 => p_value_3
531 ,p_token_4 => p_token_4
532 ,p_value_4 => p_value_4
533 ,p_token_5 => p_token_5
534 ,p_value_5 => p_value_5
535 ,p_token_6 => p_token_6
536 ,p_value_6 => p_value_6);
537
538 failure;
539
540 if (p_msg_mode = C_STANDARD_MESSAGE) then
541 xla_exceptions_pkg.raise_exception;
542 else
543 fnd_msg_pub.add;
544 end if;
545 END raise_message;
546
547
548 END xla_exceptions_pkg;