[Home] [Help]
PACKAGE BODY: APPS.AP_XLA_EVENTS_PKG
Source
1 PACKAGE BODY AP_XLA_EVENTS_PKG AS
2 /* $Header: apxlaevb.pls 120.6 2005/07/25 06:31:45 sfeng noship $ */
3
4
5
6 FUNCTION create_event
7 (
8 p_event_source_info IN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO,
9 p_event_type_code IN VARCHAR2,
10 p_event_date IN DATE,
11 p_event_status_code IN VARCHAR2,
12 p_event_number IN INTEGER, -- DEFAULT NULL
13 p_transaction_date IN DATE,
14 p_reference_info IN XLA_EVENTS_PUB_PKG.T_EVENT_REFERENCE_INFO, -- DEFAULT NULL
15 p_valuation_method IN VARCHAR2,
16 p_security_context IN XLA_EVENTS_PUB_PKG.T_SECURITY,
17 p_calling_sequence IN VARCHAR2
18 )
19 RETURN INTEGER
20 IS
21
22 l_curr_calling_sequence VARCHAR2(2000);
23
24 BEGIN
25
26 l_curr_calling_sequence :=
27 p_calling_sequence || ' -> AP_XLA_EVENTS_PKG.CREATE_EVENT';
28
29 RETURN
30 XLA_EVENTS_PUB_PKG.CREATE_EVENT
31 (
32 p_event_source_info => p_event_source_info,
33 p_event_type_code => p_event_type_code,
34 p_event_date => p_event_date,
35 p_event_status_code => p_event_status_code,
36 p_event_number => p_event_number,
37 p_transaction_date => p_transaction_date,
38 p_reference_info => p_reference_info,
39 p_valuation_method => p_valuation_method,
40 p_security_context => p_security_context
41 );
42
43 EXCEPTION
44 WHEN OTHERS THEN
45 IF (SQLCODE <> -20001) THEN
46 AP_DEBUG_PKG.PRINT
47 (
48 p_debug => 'Y',
49 p_app_short_name => 'SQLAP',
50 p_message_name => 'AP_DEBUG',
51 p_token1 => 'CALLING_SEQUENCE',
52 p_value1 => l_curr_calling_sequence,
53 p_token2 => 'ERROR',
54 p_value2 => SQLERRM
55 );
56 END IF;
57 APP_EXCEPTION.RAISE_EXCEPTION();
58 END create_event;
59
60 PROCEDURE update_event_status
61 (
62 p_event_source_info IN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO,
63 p_event_class_code IN VARCHAR2, -- DEFAULT NULL
64 p_event_type_code IN VARCHAR2, -- DEFAULT NULL
65 p_event_date IN DATE, -- DEFAULT NULL
66 p_event_status_code IN VARCHAR2,
67 p_valuation_method IN VARCHAR2,
68 p_security_context IN XLA_EVENTS_PUB_PKG.T_SECURITY,
69 p_calling_sequence IN VARCHAR2
70 )
71 IS
72
73 l_curr_calling_sequence VARCHAR2(2000);
74
75 BEGIN
76
77 l_curr_calling_sequence :=
78 p_calling_sequence || ' -> AP_XLA_EVENTS_PKG.UPDATE_EVENT_STATUS';
79
80 XLA_EVENTS_PUB_PKG.UPDATE_EVENT_STATUS
81 (
82 p_event_source_info => p_event_source_info,
83 p_event_class_code => p_event_class_code,
84 p_event_type_code => p_event_type_code,
85 p_event_date => p_event_date,
86 p_event_status_code => p_event_status_code,
87 p_valuation_method => p_valuation_method,
88 p_security_context => p_security_context
89 );
90
91 EXCEPTION
92 WHEN OTHERS THEN
93 IF (SQLCODE <> -20001) THEN
94 AP_DEBUG_PKG.PRINT
95 (
96 p_debug => 'Y',
97 p_app_short_name => 'SQLAP',
98 p_message_name => 'AP_DEBUG',
99 p_token1 => 'CALLING_SEQUENCE',
100 p_value1 => l_curr_calling_sequence,
101 p_token2 => 'ERROR',
102 p_value2 => SQLERRM
103 );
104 END IF;
105 APP_EXCEPTION.RAISE_EXCEPTION();
106 END update_event_status;
107
108
109
110 PROCEDURE update_event
111 (
112 p_event_source_info IN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO,
113 p_event_id IN INTEGER,
114 p_event_type_code IN VARCHAR2, -- DEFAULT NULL
115 p_event_date IN DATE, -- DEFAULT NULL
116 p_event_status_code IN VARCHAR2, -- DEFAULT NULL
117 p_valuation_method IN VARCHAR2,
118 p_security_context IN XLA_EVENTS_PUB_PKG.T_SECURITY,
119 p_calling_sequence IN VARCHAR2
120 )
121 IS
122
123 l_curr_calling_sequence VARCHAR2(2000);
124
125 BEGIN
126
127 l_curr_calling_sequence :=
128 p_calling_sequence || ' -> AP_XLA_EVENTS_PKG.UPDATE_EVENT[1]';
129
130 XLA_EVENTS_PUB_PKG.UPDATE_EVENT
131 (
132 p_event_source_info => p_event_source_info,
133 p_event_id => p_event_id,
134 p_event_type_code => p_event_type_code,
135 p_event_date => p_event_date,
136 p_event_status_code => p_event_status_code,
137 p_valuation_method => p_valuation_method,
138 p_security_context => p_security_context
139 );
140
141 EXCEPTION
142 WHEN OTHERS THEN
143 IF (SQLCODE <> -20001) THEN
144 AP_DEBUG_PKG.PRINT
145 (
146 p_debug => 'Y',
147 p_app_short_name => 'SQLAP',
148 p_message_name => 'AP_DEBUG',
149 p_token1 => 'CALLING_SEQUENCE',
150 p_value1 => l_curr_calling_sequence,
151 p_token2 => 'ERROR',
152 p_value2 => SQLERRM
153 );
154 END IF;
155 APP_EXCEPTION.RAISE_EXCEPTION();
156 END update_event;
157
158
159
160 PROCEDURE update_event
161 (
162 p_event_source_info IN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO,
163 p_event_id IN INTEGER,
164 p_event_type_code IN VARCHAR2, -- DEFAULT NULL
165 p_event_date IN DATE, -- DEFAULT NULL
166 p_event_status_code IN VARCHAR2, -- DEFAULT NULL
167 p_event_number IN INTEGER,
168 p_valuation_method IN VARCHAR2,
169 p_security_context IN XLA_EVENTS_PUB_PKG.T_SECURITY,
170 p_calling_sequence IN VARCHAR2
171 )
172 IS
173
174 l_curr_calling_sequence VARCHAR2(2000);
175
176 BEGIN
177
178 l_curr_calling_sequence :=
179 p_calling_sequence || ' -> AP_XLA_EVENTS_PKG.UPDATE_EVENT[2]';
180
181 XLA_EVENTS_PUB_PKG.UPDATE_EVENT
182 (
183 p_event_source_info => p_event_source_info,
184 p_event_id => p_event_id,
185 p_event_type_code => p_event_type_code,
186 p_event_date => p_event_date,
187 p_event_status_code => p_event_status_code,
188 p_event_number => p_event_number,
189 p_valuation_method => p_valuation_method,
190 p_security_context => p_security_context
191 );
192
193 EXCEPTION
194 WHEN OTHERS THEN
195 IF (SQLCODE <> -20001) THEN
196 AP_DEBUG_PKG.PRINT
197 (
198 p_debug => 'Y',
199 p_app_short_name => 'SQLAP',
200 p_message_name => 'AP_DEBUG',
201 p_token1 => 'CALLING_SEQUENCE',
202 p_value1 => l_curr_calling_sequence,
203 p_token2 => 'ERROR',
204 p_value2 => SQLERRM
205 );
206 END IF;
207 APP_EXCEPTION.RAISE_EXCEPTION();
208 END update_event;
209
210
211
212 PROCEDURE update_event
213 (
214 p_event_source_info IN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO,
215 p_event_id IN INTEGER,
216 p_event_type_code IN VARCHAR2, -- DEFAULT NULL
217 p_event_date IN DATE, -- DEFAULT NULL
218 p_event_status_code IN VARCHAR2, -- DEFAULT NULL
219 p_reference_info IN XLA_EVENTS_PUB_PKG.T_EVENT_REFERENCE_INFO,
220 p_valuation_method IN VARCHAR2,
221 p_security_context IN XLA_EVENTS_PUB_PKG.T_SECURITY,
222 p_calling_sequence IN VARCHAR2
223 )
224 IS
225
226 l_curr_calling_sequence VARCHAR2(2000);
227
228 BEGIN
229
230 l_curr_calling_sequence :=
231 p_calling_sequence || ' -> AP_XLA_EVENTS_PKG.UPDATE_EVENT[3]';
232
233 XLA_EVENTS_PUB_PKG.UPDATE_EVENT
234 (
235 p_event_source_info => p_event_source_info,
236 p_event_id => p_event_id,
237 p_event_type_code => p_event_type_code,
238 p_event_date => p_event_date,
239 p_event_status_code => p_event_status_code,
240 p_reference_info => p_reference_info,
241 p_valuation_method => p_valuation_method,
242 p_security_context => p_security_context
243 );
244
245 EXCEPTION
246 WHEN OTHERS THEN
247 IF (SQLCODE <> -20001) THEN
248 AP_DEBUG_PKG.PRINT
249 (
250 p_debug => 'Y',
251 p_app_short_name => 'SQLAP',
252 p_message_name => 'AP_DEBUG',
253 p_token1 => 'CALLING_SEQUENCE',
254 p_value1 => l_curr_calling_sequence,
255 p_token2 => 'ERROR',
256 p_value2 => SQLERRM
257 );
258 END IF;
259 APP_EXCEPTION.RAISE_EXCEPTION();
260 END update_event;
261
262
263
264 PROCEDURE update_event
265 (
266 p_event_source_info IN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO,
267 p_event_id IN INTEGER,
268 p_event_type_code IN VARCHAR2, -- DEFAULT NULL
269 p_event_date IN DATE, -- DEFAULT NULL
270 p_event_status_code IN VARCHAR2, -- DEFAULT NULL
271 p_event_number IN INTEGER,
272 p_reference_info IN XLA_EVENTS_PUB_PKG.T_EVENT_REFERENCE_INFO,
273 p_valuation_method IN VARCHAR2,
274 p_security_context IN XLA_EVENTS_PUB_PKG.T_SECURITY,
275 p_calling_sequence IN VARCHAR2
276 )
277 IS
278
279 l_curr_calling_sequence VARCHAR2(2000);
280
281 BEGIN
282
283 l_curr_calling_sequence :=
284 p_calling_sequence || ' -> AP_XLA_EVENTS_PKG.UPDATE_EVENT[4]';
285
286 XLA_EVENTS_PUB_PKG.UPDATE_EVENT
287 (
288 p_event_source_info => p_event_source_info,
289 p_event_id => p_event_id,
290 p_event_type_code => p_event_type_code,
291 p_event_date => p_event_date,
292 p_event_status_code => p_event_status_code,
293 p_event_number => p_event_number,
294 p_reference_info => p_reference_info,
295 p_valuation_method => p_valuation_method,
296 p_security_context => p_security_context
297 );
298
299 EXCEPTION
300 WHEN OTHERS THEN
301 IF (SQLCODE <> -20001) THEN
302 AP_DEBUG_PKG.PRINT
303 (
304 p_debug => 'Y',
305 p_app_short_name => 'SQLAP',
306 p_message_name => 'AP_DEBUG',
307 p_token1 => 'CALLING_SEQUENCE',
308 p_value1 => l_curr_calling_sequence,
309 p_token2 => 'ERROR',
310 p_value2 => SQLERRM
311 );
312 END IF;
313 APP_EXCEPTION.RAISE_EXCEPTION();
314 END update_event;
315
316
317
318 PROCEDURE delete_event
319 (
320 p_event_source_info IN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO,
321 p_event_id IN INTEGER,
322 p_valuation_method IN VARCHAR2,
323 p_security_context IN XLA_EVENTS_PUB_PKG.T_SECURITY,
324 p_calling_sequence IN VARCHAR2
325 )
326 IS
327
328 l_curr_calling_sequence VARCHAR2(2000);
329
330 BEGIN
331
332 l_curr_calling_sequence :=
333 p_calling_sequence || ' -> AP_XLA_EVENTS_PKG.DELETE_EVENT';
334
335 XLA_EVENTS_PUB_PKG.DELETE_EVENT
336 (
337 p_event_source_info => p_event_source_info,
338 p_event_id => p_event_id,
339 p_valuation_method => p_valuation_method,
340 p_security_context => p_security_context
341 );
342
343 EXCEPTION
344 WHEN OTHERS THEN
345 IF (SQLCODE <> -20001) THEN
346 AP_DEBUG_PKG.PRINT
347 (
348 p_debug => 'Y',
349 p_app_short_name => 'SQLAP',
350 p_message_name => 'AP_DEBUG',
351 p_token1 => 'CALLING_SEQUENCE',
352 p_value1 => l_curr_calling_sequence,
353 p_token2 => 'ERROR',
354 p_value2 => SQLERRM
355 );
356 END IF;
357 APP_EXCEPTION.RAISE_EXCEPTION();
358 END delete_event;
359
360
361
362 FUNCTION delete_events
363 (
364 p_event_source_info IN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO,
365 p_event_class_code IN VARCHAR2, -- DEFAULT NULL
366 p_event_type_code IN VARCHAR2, -- DEFAULT NULL
367 p_event_date IN DATE, -- DEFAULT NULL
368 p_valuation_method IN VARCHAR2,
369 p_security_context IN XLA_EVENTS_PUB_PKG.T_SECURITY,
370 p_calling_sequence IN VARCHAR2
371 )
372 RETURN INTEGER
373 IS
374
375 l_curr_calling_sequence VARCHAR2(2000);
376
377 BEGIN
378
379 l_curr_calling_sequence :=
380 p_calling_sequence || ' -> AP_XLA_EVENTS_PKG.DELETE_EVENTS';
381
382 RETURN
383 XLA_EVENTS_PUB_PKG.DELETE_EVENTS
384 (
385 p_event_source_info => p_event_source_info,
386 p_event_class_code => p_event_class_code,
387 p_event_type_code => p_event_type_code,
388 p_event_date => p_event_date,
389 p_valuation_method => p_valuation_method,
390 p_security_context => p_security_context
391 );
392
393 EXCEPTION
394 WHEN OTHERS THEN
395 IF (SQLCODE <> -20001) THEN
396 AP_DEBUG_PKG.PRINT
397 (
398 p_debug => 'Y',
399 p_app_short_name => 'SQLAP',
400 p_message_name => 'AP_DEBUG',
401 p_token1 => 'CALLING_SEQUENCE',
402 p_value1 => l_curr_calling_sequence,
403 p_token2 => 'ERROR',
404 p_value2 => SQLERRM
405 );
406 END IF;
407 APP_EXCEPTION.RAISE_EXCEPTION();
408 END delete_events;
409
410
411
412 FUNCTION get_event_info
413 (
414 p_event_source_info IN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO,
415 p_event_id IN INTEGER,
416 p_valuation_method IN VARCHAR2,
417 p_security_context IN XLA_EVENTS_PUB_PKG.T_SECURITY,
418 p_calling_sequence IN VARCHAR2
419 )
420 RETURN XLA_EVENTS_PUB_PKG.T_EVENT_INFO
421 IS
422
423 l_curr_calling_sequence VARCHAR2(2000);
424
425 BEGIN
426
427 l_curr_calling_sequence :=
428 p_calling_sequence || ' -> AP_XLA_EVENTS_PKG.GET_EVENT_INFO';
429
430 RETURN
431 XLA_EVENTS_PUB_PKG.GET_EVENT_INFO
432 (
433 p_event_source_info => p_event_source_info,
434 p_event_id => p_event_id,
435 p_valuation_method => p_valuation_method,
436 p_security_context => p_security_context
437 );
438
439 EXCEPTION
440 WHEN OTHERS THEN
441 IF (SQLCODE <> -20001) THEN
442 AP_DEBUG_PKG.PRINT
443 (
444 p_debug => 'Y',
445 p_app_short_name => 'SQLAP',
446 p_message_name => 'AP_DEBUG',
447 p_token1 => 'CALLING_SEQUENCE',
448 p_value1 => l_curr_calling_sequence,
449 p_token2 => 'ERROR',
450 p_value2 => SQLERRM
451 );
452 END IF;
453 APP_EXCEPTION.RAISE_EXCEPTION();
454 END get_event_info;
455
456
457
458 FUNCTION get_event_status
459 (
460 p_event_source_info IN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO,
461 p_event_id IN INTEGER,
462 p_valuation_method IN VARCHAR2,
463 p_security_context IN XLA_EVENTS_PUB_PKG.T_SECURITY,
464 p_calling_sequence IN VARCHAR2
465 )
466 RETURN VARCHAR2
467 IS
468
469 l_curr_calling_sequence VARCHAR2(2000);
470
471 BEGIN
472
473 l_curr_calling_sequence :=
474 p_calling_sequence || ' -> AP_XLA_EVENTS_PKG.GET_EVENT_STATUS';
475
476 RETURN
477 XLA_EVENTS_PUB_PKG.GET_EVENT_STATUS
478 (
479 p_event_source_info => p_event_source_info,
480 p_event_id => p_event_id,
481 p_valuation_method => p_valuation_method,
482 p_security_context => p_security_context
483 );
484
485 EXCEPTION
486 WHEN OTHERS THEN
487 IF (SQLCODE <> -20001) THEN
488 AP_DEBUG_PKG.PRINT
489 (
490 p_debug => 'Y',
491 p_app_short_name => 'SQLAP',
492 p_message_name => 'AP_DEBUG',
493 p_token1 => 'CALLING_SEQUENCE',
497 );
494 p_value1 => l_curr_calling_sequence,
495 p_token2 => 'ERROR',
496 p_value2 => SQLERRM
498 END IF;
499 APP_EXCEPTION.RAISE_EXCEPTION();
500 END get_event_status;
501
502
503
504 FUNCTION event_exists
505 (
506 p_event_source_info IN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO,
507 p_event_class_code IN VARCHAR2, -- DEFAULT NULL
508 p_event_type_code IN VARCHAR2, -- DEFAULT NULL
509 p_event_date IN DATE, -- DEFAULT NULL
510 p_event_status_code IN VARCHAR2, -- DEFAULT NULL
511 p_event_number IN INTEGER, -- DEFAULT NULL
512 p_valuation_method IN VARCHAR2,
513 p_security_context IN XLA_EVENTS_PUB_PKG.T_SECURITY,
514 p_calling_sequence IN VARCHAR2
515 )
516 RETURN BOOLEAN
517 IS
518
519 l_curr_calling_sequence VARCHAR2(2000);
520
521 BEGIN
522
523 l_curr_calling_sequence :=
524 p_calling_sequence || ' -> AP_XLA_EVENTS_PKG.EVENT_EXISTS';
525
526 RETURN
527 XLA_EVENTS_PUB_PKG.EVENT_EXISTS
528 (
529 p_event_source_info => p_event_source_info,
530 p_event_class_code => p_event_class_code,
531 p_event_type_code => p_event_type_code,
532 p_event_date => p_event_date,
533 p_event_status_code => p_event_status_code,
534 p_event_number => p_event_number,
535 p_valuation_method => p_valuation_method,
536 p_security_context => p_security_context
537 );
538
539 EXCEPTION
540 WHEN OTHERS THEN
541 IF (SQLCODE <> -20001) THEN
542 AP_DEBUG_PKG.PRINT
543 (
544 p_debug => 'Y',
545 p_app_short_name => 'SQLAP',
546 p_message_name => 'AP_DEBUG',
547 p_token1 => 'CALLING_SEQUENCE',
548 p_value1 => l_curr_calling_sequence,
549 p_token2 => 'ERROR',
550 p_value2 => SQLERRM
551 );
552 END IF;
553 APP_EXCEPTION.RAISE_EXCEPTION();
554 END event_exists;
555
556
557
558 FUNCTION get_array_event_info
559 (
560 p_event_source_info IN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO,
561 p_event_class_code IN VARCHAR2, -- DEFAULT NULL
562 p_event_type_code IN VARCHAR2, -- DEFAULT NULL
563 p_event_date IN DATE, -- DEFAULT NULL
564 p_event_status_code IN VARCHAR2, -- DEFAULT NULL
565 p_valuation_method IN VARCHAR2,
566 p_security_context IN XLA_EVENTS_PUB_PKG.T_SECURITY,
567 p_calling_sequence IN VARCHAR2
568 )
569 RETURN XLA_EVENTS_PUB_PKG.T_ARRAY_EVENT_INFO
570 IS
571
572 l_curr_calling_sequence VARCHAR2(2000);
573
574 BEGIN
575
576 l_curr_calling_sequence :=
577 p_calling_sequence || ' -> AP_XLA_EVENTS_PKG.GET_ARRAY_EVENT_INFO';
578
579 RETURN
580 XLA_EVENTS_PUB_PKG.GET_ARRAY_EVENT_INFO
581 (
582 p_event_source_info => p_event_source_info,
583 p_event_class_code => p_event_class_code,
584 p_event_type_code => p_event_type_code,
585 p_event_date => p_event_date,
586 p_event_status_code => p_event_status_code,
587 p_valuation_method => p_valuation_method,
588 p_security_context => p_security_context
589 );
590
591 EXCEPTION
592 WHEN OTHERS THEN
593 IF (SQLCODE <> -20001) THEN
594 AP_DEBUG_PKG.PRINT
595 (
596 p_debug => 'Y',
597 p_app_short_name => 'SQLAP',
598 p_message_name => 'AP_DEBUG',
599 p_token1 => 'CALLING_SEQUENCE',
600 p_value1 => l_curr_calling_sequence,
601 p_token2 => 'ERROR',
602 p_value2 => SQLERRM
603 );
604 END IF;
605 APP_EXCEPTION.RAISE_EXCEPTION();
606 END get_array_event_info;
607
608
609
610 END AP_XLA_EVENTS_PKG;