[Home] [Help]
PACKAGE BODY: APPS.ARP_AAH_PKG
Source
1 PACKAGE BODY ARP_AAH_PKG AS
2 /* $Header: ARTIAAHB.pls 120.5 2005/10/30 04:27:15 appldev ship $ */
3
4 /*--------------------------------------------------------+
5 | Dummy constants for use in update and lock operations |
6 +--------------------------------------------------------*/
7
8 AR_TEXT_DUMMY CONSTANT VARCHAR2(10) := '~~!@#$*&^';
9 AR_NUMBER_DUMMY CONSTANT NUMBER(15) := -999999999999999;
10 AR_DATE_DUMMY CONSTANT DATE := to_date(1, 'J');
11
12 /*---------------------------------------------------------------+
13 | Package global variables to hold the parsed update cursors. |
14 | This allows the cursors to be reused without being reparsed. |
15 +---------------------------------------------------------------*/
16
17 pg_cursor1 integer := '';
18 pg_cursor2 integer := '';
19
20
21 /*-------------------------------------+
22 | WHO column values from FND_GLOBAL |
23 +-------------------------------------*/
24
25 pg_user_id number;
26 pg_conc_login_id number;
27 pg_login_id number;
28 pg_prog_appl_id number;
29 pg_conc_program_id number;
30
31
32 /*===========================================================================+
33 | PROCEDURE |
34 | bind_aah_variables |
35 | |
36 | DESCRIPTION |
37 | Binds variables from the record variable to the bind variables |
38 | in the dynamic SQL update statement. |
39 | |
40 | SCOPE - PRIVATE |
41 | |
42 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
43 | dbms_sql.bind_variable |
44 | arp_util.debug |
45 | |
46 | ARGUMENTS : IN: |
47 | p_update_cursor - ID of the update cursor |
48 | p_aah_rec - ar_approval_action_history record |
49 | OUT: |
50 | None |
51 | |
52 | RETURNS : NONE |
53 | |
54 | NOTES |
55 | |
56 | MODIFICATION HISTORY |
57 | 28-JUN-95 Charlie Tomberg Created |
58 | |
59 +===========================================================================*/
60
61
62 PROCEDURE bind_aah_variables(p_update_cursor IN integer,
63 p_aah_rec IN ar_approval_action_history%rowtype)
64 IS
65
66 BEGIN
67
68 arp_util.debug('arp_aah_pkg.bind_aah_variables()+');
69
70 /*------------------+
71 | Dummy constants |
72 +------------------*/
73
74 dbms_sql.bind_variable(p_update_cursor, ':ar_text_dummy',
75 AR_TEXT_DUMMY);
76
77 dbms_sql.bind_variable(p_update_cursor, ':ar_number_dummy',
78 AR_NUMBER_DUMMY);
79
80 dbms_sql.bind_variable(p_update_cursor, ':ar_date_dummy',
81 AR_DATE_DUMMY);
82
83 /*------------------+
84 | WHO variables |
85 +------------------*/
86
87 dbms_sql.bind_variable(p_update_cursor, ':pg_user_id',
88 pg_user_id);
89
90 dbms_sql.bind_variable(p_update_cursor, ':pg_login_id',
91 pg_login_id);
92
93 dbms_sql.bind_variable(p_update_cursor, ':pg_conc_login_id',
94 pg_conc_login_id);
95
96
97 /*----------------------------------------------+
98 | Bind variables for all columns in the table |
99 +----------------------------------------------*/
100
101
102 dbms_sql.bind_variable(p_update_cursor, ':approval_action_history_id',
103 p_aah_rec.approval_action_history_id);
104
105 dbms_sql.bind_variable(p_update_cursor, ':approval_action_history_id',
106 p_aah_rec.approval_action_history_id);
107
108 dbms_sql.bind_variable(p_update_cursor, ':action_name',
109 p_aah_rec.action_name);
110
111 dbms_sql.bind_variable(p_update_cursor, ':adjustment_id',
112 p_aah_rec.adjustment_id);
113
114 dbms_sql.bind_variable(p_update_cursor, ':action_date',
115 p_aah_rec.action_date);
116
117 dbms_sql.bind_variable(p_update_cursor, ':comments',
118 p_aah_rec.comments);
119
120 dbms_sql.bind_variable(p_update_cursor, ':attribute_category',
121 p_aah_rec.attribute_category);
122
123 dbms_sql.bind_variable(p_update_cursor, ':attribute1',
124 p_aah_rec.attribute1);
125
126 dbms_sql.bind_variable(p_update_cursor, ':attribute2',
127 p_aah_rec.attribute2);
128
129 dbms_sql.bind_variable(p_update_cursor, ':attribute3',
130 p_aah_rec.attribute3);
131
132 dbms_sql.bind_variable(p_update_cursor, ':attribute4',
133 p_aah_rec.attribute4);
134
135 dbms_sql.bind_variable(p_update_cursor, ':attribute5',
136 p_aah_rec.attribute5);
137
138 dbms_sql.bind_variable(p_update_cursor, ':attribute6',
139 p_aah_rec.attribute6);
140
141 dbms_sql.bind_variable(p_update_cursor, ':attribute7',
142 p_aah_rec.attribute7);
143
144 dbms_sql.bind_variable(p_update_cursor, ':attribute8',
145 p_aah_rec.attribute8);
146
147 dbms_sql.bind_variable(p_update_cursor, ':attribute9',
148 p_aah_rec.attribute9);
149
150 dbms_sql.bind_variable(p_update_cursor, ':attribute10',
151 p_aah_rec.attribute10);
152
153 dbms_sql.bind_variable(p_update_cursor, ':attribute11',
154 p_aah_rec.attribute11);
155
156 dbms_sql.bind_variable(p_update_cursor, ':attribute12',
157 p_aah_rec.attribute12);
158
159 dbms_sql.bind_variable(p_update_cursor, ':attribute13',
160 p_aah_rec.attribute13);
161
162 dbms_sql.bind_variable(p_update_cursor, ':attribute14',
163 p_aah_rec.attribute14);
164
165 dbms_sql.bind_variable(p_update_cursor, ':attribute15',
166 p_aah_rec.attribute15);
167
168 dbms_sql.bind_variable(p_update_cursor, ':created_by',
169 p_aah_rec.created_by);
170
171 dbms_sql.bind_variable(p_update_cursor, ':creation_date',
172 p_aah_rec.creation_date);
173
174 dbms_sql.bind_variable(p_update_cursor, ':last_updated_by',
175 p_aah_rec.last_updated_by);
176
177 dbms_sql.bind_variable(p_update_cursor, ':last_update_date',
178 p_aah_rec.last_update_date);
179
180 dbms_sql.bind_variable(p_update_cursor, ':last_update_login',
181 p_aah_rec.last_update_login);
182
183
184
185 arp_util.debug('arp_aah_pkg.bind_aah_variables()-');
186
187 EXCEPTION
188 WHEN OTHERS THEN
189 arp_util.debug('EXCEPTION: arp_aah_pkg.bind_aah_variables()');
190 RAISE;
191
192 END;
193
194
195 /*===========================================================================+
196 | PROCEDURE |
197 | construct_aah_update_stmt |
198 | |
199 | DESCRIPTION |
200 | Copies the text of the dynamic SQL update statement into the |
201 | out NOCOPY paramater. The update statement does not contain a where clause |
202 | since this is the dynamic part that is added later. |
203 | |
204 | SCOPE - PRIVATE |
205 | |
206 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
207 | arp_util.debug |
208 | |
209 | ARGUMENTS : IN: |
210 | None. |
211 | OUT: |
212 | update_text - text of the update statement |
213 | |
214 | RETURNS : NONE |
215 | |
216 | NOTES |
217 | This statement only updates columns in the aah record that do not |
218 | contain the dummy values that indicate that they should not be changed.|
219 | |
220 | MODIFICATION HISTORY |
221 | 28-JUN-95 Charlie Tomberg Created |
222 | |
223 +===========================================================================*/
224
225 PROCEDURE construct_aah_update_stmt( update_text OUT NOCOPY varchar2) IS
226
227 BEGIN
228 arp_util.debug('arp_aah_pkg.construct_aah_update_stmt()+');
229
230 update_text :=
231 'UPDATE ar_approval_action_history
232 SET approval_action_history_id =
233 DECODE(:approval_action_history_id,
234 :ar_number_dummy, approval_action_history_id,
235 :approval_action_history_id),
236 action_name =
237 DECODE(:action_name,
238 :ar_text_dummy, action_name,
239 :action_name),
240 adjustment_id =
241 DECODE(:adjustment_id,
242 :ar_number_dummy, adjustment_id,
243 :adjustment_id),
244 action_date =
245 DECODE(:action_date,
246 :ar_date_dummy, action_date,
247 :action_date),
248 comments =
249 DECODE(:comments,
250 :ar_text_dummy, comments,
251 :comments),
252 attribute_category =
253 DECODE(:attribute_category,
254 :ar_text_dummy, attribute_category,
255 :attribute_category),
256 attribute1 =
257 DECODE(:attribute1,
258 :ar_text_dummy, attribute1,
259 :attribute1),
260 attribute2 =
261 DECODE(:attribute2,
262 :ar_text_dummy, attribute2,
263 :attribute2),
264 attribute3 =
265 DECODE(:attribute3,
266 :ar_text_dummy, attribute3,
267 :attribute3),
268 attribute4 =
269 DECODE(:attribute4,
270 :ar_text_dummy, attribute4,
271 :attribute4),
272 attribute5 =
273 DECODE(:attribute5,
274 :ar_text_dummy, attribute5,
275 :attribute5),
276 attribute6 =
277 DECODE(:attribute6,
278 :ar_text_dummy, attribute6,
279 :attribute6),
280 attribute7 =
281 DECODE(:attribute7,
282 :ar_text_dummy, attribute7,
283 :attribute7),
284 attribute8 =
285 DECODE(:attribute8,
286 :ar_text_dummy, attribute8,
287 :attribute8),
288 attribute9 =
289 DECODE(:attribute9,
290 :ar_text_dummy, attribute9,
291 :attribute9),
292 attribute10 =
293 DECODE(:attribute10,
294 :ar_text_dummy, attribute10,
295 :attribute10),
296 attribute11 =
297 DECODE(:attribute11,
298 :ar_text_dummy, attribute11,
299 :attribute11),
300 attribute12 =
301 DECODE(:attribute12,
302 :ar_text_dummy, attribute12,
303 :attribute12),
304 attribute13 =
305 DECODE(:attribute13,
306 :ar_text_dummy, attribute13,
307 :attribute13),
308 attribute14 =
309 DECODE(:attribute14,
310 :ar_text_dummy, attribute14,
311 :attribute14),
312 attribute15 =
313 DECODE(:attribute15,
314 :ar_text_dummy, attribute15,
315 :attribute15),
316 created_by =
317 DECODE(:created_by,
318 :ar_number_dummy, created_by,
319 :created_by),
320 creation_date =
321 DECODE(:creation_date,
322 :ar_date_dummy, creation_date,
323 :creation_date),
324 last_updated_by =
325 DECODE(:last_updated_by,
326 :ar_number_dummy, :pg_user_id,
327 :last_updated_by),
328 last_update_date =
329 DECODE(:last_update_date,
330 :ar_date_dummy, sysdate,
331 :last_update_date),
332 last_update_login =
333 DECODE(:last_update_login,
334 :ar_number_dummy, nvl(:pg_conc_login_id,
335 :pg_login_id),
336 :last_update_login)';
337
338 arp_util.debug('arp_aah_pkg.construct_aah_update_stmt()-');
339
340 EXCEPTION
341 WHEN OTHERS THEN
342 arp_util.debug('EXCEPTION: arp_aah_pkg.construct_aah_update_stmt()');
343 RAISE;
344
345 END;
346
347 /*===========================================================================+
348 | PROCEDURE |
349 | generic_update |
350 | |
351 | DESCRIPTION |
352 | This procedure Updates records in ar_approval_action_history |
353 | identified by the where clause that is passed in as a parameter. Only |
354 | those columns in the aah record parameter that do not contain the |
355 | special dummy values are updated. |
356 | |
357 | SCOPE - PRIVATE |
358 | |
359 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
360 | arp_util.debug |
361 | dbms_sql.open_cursor |
362 | dbms_sql.parse |
363 | dbms_sql.execute |
364 | dbms_sql.close_cursor |
368 | p_where_clause - identifies which rows to update |
365 | |
366 | ARGUMENTS : IN: |
367 | p_update_cursor - identifies the cursor to use |
369 | p_where1 - value to bind into where clause |
370 | p_aah_rec - contains the new aah values |
371 | OUT: |
372 | None |
373 | |
374 | RETURNS : NONE |
375 | |
376 | NOTES |
377 | |
378 | MODIFICATION HISTORY |
379 | 28-JUN-95 Charlie Tomberg Created |
380 | |
381 +===========================================================================*/
382
383 PROCEDURE generic_update(p_update_cursor IN OUT NOCOPY integer,
384 p_where_clause IN varchar2,
385 p_where1 IN number,
386 p_aah_rec IN ar_approval_action_history%rowtype) IS
387
388 l_count number;
389 l_update_statement varchar2(25000);
390
391 BEGIN
392 arp_util.debug('arp_aah_pkg.generic_update()+');
393
394 /*--------------------------------------------------------------+
395 | If this update statement has not already been parsed, |
396 | construct the statement and parse it. |
397 | Otherwise, use the already parsed statement and rebind its |
398 | variables. |
399 +--------------------------------------------------------------*/
400
401 if (p_update_cursor is null)
402 then
403
404 p_update_cursor := dbms_sql.open_cursor;
405
406 /*---------------------------------+
407 | Construct the update statement |
408 +---------------------------------*/
409
410 arp_aah_pkg.construct_aah_update_stmt(l_update_statement);
411
412 l_update_statement := l_update_statement || p_where_clause;
413
414 /*-----------------------------------------------+
415 | Parse, bind, execute and close the statement |
416 +-----------------------------------------------*/
417
418 dbms_sql.parse(p_update_cursor,
419 l_update_statement,
420 dbms_sql.v7);
421
422 end if;
423
424 arp_aah_pkg.bind_aah_variables(p_update_cursor, p_aah_rec);
425
426 /*-----------------------------------------+
427 | Bind the variables in the where clause |
428 +-----------------------------------------*/
429
430 dbms_sql.bind_variable(p_update_cursor, ':where_1',
431 p_where1);
432
433 l_count := dbms_sql.execute(p_update_cursor);
434
435 arp_util.debug( to_char(l_count) || ' rows updated');
436
437
438 /*------------------------------------------------------------+
439 | Raise the NO_DATA_FOUND exception if no rows were updated |
440 +------------------------------------------------------------*/
441
442 IF (l_count = 0)
443 THEN raise NO_DATA_FOUND;
444 END IF;
445
446
447 arp_util.debug('arp_aah_pkg.generic_update()-');
448
449 EXCEPTION
450 WHEN OTHERS THEN
451 arp_util.debug('EXCEPTION: arp_aah_pkg.generic_update()');
452 arp_util.debug(l_update_statement);
453 arp_util.debug('Error at character: ' ||
454 to_char(dbms_sql.last_error_position));
455 RAISE;
456 END;
457
458 /*===========================================================================+
459 | PROCEDURE |
460 | set_to_dummy |
461 | |
462 | DESCRIPTION |
463 | This procedure initializes all columns in the parameter aah record |
464 | to the appropriate dummy value for its datatype. |
465 | |
466 | The dummy values are defined in the following package level constants: |
467 | AR_TEXT_DUMMY |
468 | AR_NUMBER_DUMMY |
469 | AR_DATE_DUMMY |
470 | |
471 | SCOPE - PUBLIC |
472 | |
473 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
474 | arp_util.debug |
475 | |
476 | ARGUMENTS : IN: |
477 | None |
478 | OUT: |
479 | p_aah_rec - The record to initialize |
483 | NOTES |
480 | |
481 | RETURNS : NONE |
482 | |
484 | |
485 | MODIFICATION HISTORY |
486 | 28-JUN-95 Charlie Tomberg Created |
487 | |
488 +===========================================================================*/
489
490 PROCEDURE set_to_dummy( p_aah_rec OUT NOCOPY ar_approval_action_history%rowtype) IS
491
492 BEGIN
493
494 arp_util.debug('arp_aah_pkg.set_to_dummy()+');
495
496 p_aah_rec.approval_action_history_id := AR_NUMBER_DUMMY;
497 p_aah_rec.action_name := AR_TEXT_DUMMY;
498 p_aah_rec.adjustment_id := AR_NUMBER_DUMMY;
499 p_aah_rec.action_date := AR_DATE_DUMMY;
500 p_aah_rec.comments := AR_TEXT_DUMMY;
501 p_aah_rec.attribute_category := AR_TEXT_DUMMY;
502 p_aah_rec.attribute1 := AR_TEXT_DUMMY;
503 p_aah_rec.attribute2 := AR_TEXT_DUMMY;
504 p_aah_rec.attribute3 := AR_TEXT_DUMMY;
505 p_aah_rec.attribute4 := AR_TEXT_DUMMY;
506 p_aah_rec.attribute5 := AR_TEXT_DUMMY;
507 p_aah_rec.attribute6 := AR_TEXT_DUMMY;
508 p_aah_rec.attribute7 := AR_TEXT_DUMMY;
509 p_aah_rec.attribute8 := AR_TEXT_DUMMY;
510 p_aah_rec.attribute9 := AR_TEXT_DUMMY;
511 p_aah_rec.attribute10 := AR_TEXT_DUMMY;
512 p_aah_rec.attribute11 := AR_TEXT_DUMMY;
513 p_aah_rec.attribute12 := AR_TEXT_DUMMY;
514 p_aah_rec.attribute13 := AR_TEXT_DUMMY;
515 p_aah_rec.attribute14 := AR_TEXT_DUMMY;
516 p_aah_rec.attribute15 := AR_TEXT_DUMMY;
517 p_aah_rec.created_by := AR_NUMBER_DUMMY;
518 p_aah_rec.creation_date := AR_DATE_DUMMY;
519 p_aah_rec.last_updated_by := AR_NUMBER_DUMMY;
520 p_aah_rec.last_update_date := AR_DATE_DUMMY;
521 p_aah_rec.last_update_login := AR_NUMBER_DUMMY;
522
523 arp_util.debug('arp_aah_pkg.set_to_dummy()-');
524
525 EXCEPTION
526 WHEN OTHERS THEN
527 arp_util.debug('EXCEPTION: arp_aah_pkg.set_to_dummy()');
528 RAISE;
529
530 END;
531
532
533 /*===========================================================================+
534 | PROCEDURE |
535 | lock_p |
536 | |
537 | DESCRIPTION |
538 | This procedure locks the ar_approval_action_history row identified by |
539 | p_approval_action_history_id parameter. |
540 | |
541 | SCOPE - PUBLIC |
542 | |
543 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
544 | arp_util.debug |
545 | |
546 | ARGUMENTS : IN: |
547 | p_approval_action_history_id - identifies the row to lock |
548 | OUT: |
549 | None |
550 | |
551 | RETURNS : NONE |
552 | |
553 | NOTES |
554 | |
555 | MODIFICATION HISTORY |
556 | 28-JUN-95 Charlie Tomberg Created |
557 | |
558 +===========================================================================*/
559
560 PROCEDURE lock_p( p_approval_action_history_id
561 IN ar_approval_action_history.approval_action_history_id%type
562 )
563 IS
564
565 l_approval_action_history_id
566 ar_approval_action_history.approval_action_history_id%type;
567
568 BEGIN
569 arp_util.debug('arp_aah_pkg.lock_p()+');
570
571
572 SELECT approval_action_history_id
573 INTO l_approval_action_history_id
574 FROM ar_approval_action_history
575 WHERE approval_action_history_id = p_approval_action_history_id
576 FOR UPDATE OF approval_action_history_id NOWAIT;
577
578 arp_util.debug('arp_aah_pkg.lock_p()-');
579
580 EXCEPTION
581 WHEN OTHERS THEN
582 arp_util.debug( 'EXCEPTION: arp_aah_pkg.lock_p' );
583 RAISE;
584 END;
585
586 /*===========================================================================+
587 | PROCEDURE |
588 | lock_f_adj_id |
592 | p_adjustment_id parameter. |
589 | |
590 | DESCRIPTION |
591 | This procedure locks the ar_approval_action_history rows identified by |
593 | |
594 | SCOPE - PUBLIC |
595 | |
596 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
597 | arp_util.debug |
598 | |
599 | ARGUMENTS : IN: |
600 | p_adjustment_id - identifies the rows to lock |
601 | OUT: |
602 | None |
603 | |
604 | RETURNS : NONE |
605 | |
606 | NOTES |
607 | |
608 | MODIFICATION HISTORY |
609 | 28-JUN-95 Charlie Tomberg Created |
610 | |
611 +===========================================================================*/
612
613 PROCEDURE lock_f_adj_id( p_adjustment_id
614 IN ar_adjustments.adjustment_id%type )
615 IS
616
617 CURSOR LOCK_C IS
618 SELECT approval_action_history_id
619 FROM ar_approval_action_history
620 WHERE adjustment_id = p_adjustment_id
621 FOR UPDATE OF approval_action_history_id NOWAIT;
622
623
624 BEGIN
625 arp_util.debug('arp_aah_pkg.lock_f_adj_id()+');
626
627 OPEN lock_c;
628 CLOSE lock_c;
629
630 arp_util.debug('arp_aah_pkg.lock_f_adj_id()-');
631
632 EXCEPTION
633 WHEN OTHERS THEN
634 arp_util.debug( 'EXCEPTION: arp_aah_pkg.lock_f_adj_id' );
635 RAISE;
636 END;
637
638
639 /*===========================================================================+
640 | PROCEDURE |
641 | lock_fetch_p |
642 | |
643 | DESCRIPTION |
644 | This procedure locks the ar_approval_action_history row identified |
645 | by the p_approval_action_history_id parameter and populates the |
646 | p_aah_rec parameter with the row that was locked. |
647 | |
648 | SCOPE - PUBLIC |
649 | |
650 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
651 | arp_util.debug |
652 | |
653 | ARGUMENTS : IN: |
654 | p_approval_action_history_id - identifies the row to lock |
655 | OUT: |
656 | p_aah_rec - contains the locked row |
657 | |
658 | RETURNS : NONE |
659 | |
660 | NOTES |
661 | |
662 | MODIFICATION HISTORY |
663 | 28-JUN-95 Charlie Tomberg Created |
664 | |
665 +===========================================================================*/
666
667 PROCEDURE lock_fetch_p( p_aah_rec IN OUT NOCOPY ar_approval_action_history%rowtype,
668 p_approval_action_history_id IN
669 ar_approval_action_history.approval_action_history_id%type) IS
670
671 BEGIN
672 arp_util.debug('arp_aah_pkg.lock_fetch_p()+');
673
674 SELECT *
675 INTO p_aah_rec
676 FROM ar_approval_action_history
677 WHERE approval_action_history_id = p_approval_action_history_id
678 FOR UPDATE OF approval_action_history_id NOWAIT;
679
680 arp_util.debug('arp_aah_pkg.lock_fetch_p()-');
681
682 EXCEPTION
683 WHEN OTHERS THEN
684 arp_util.debug( 'EXCEPTION: arp_aah_pkg.lock_fetch_p' );
685 RAISE;
686 END;
687
688 /*===========================================================================+
689 | PROCEDURE |
690 | lock_compare_p |
694 | by the p_approval_action_history_id parameter only if no columns in |
691 | |
692 | DESCRIPTION |
693 | This procedure locks the ar_approval_action_history row identified |
695 | that row have changed from when they were first selected in the form. |
696 | |
697 | SCOPE - PUBLIC |
698 | |
699 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
700 | arp_util.debug |
701 | |
702 | ARGUMENTS : IN: |
703 | p_approval_action_history_id - identifies the row to lock |
704 | p_aah_rec - aah record for comparison |
705 | OUT: |
706 | None |
707 | |
708 | RETURNS : NONE |
709 | |
710 | NOTES |
711 | |
712 | MODIFICATION HISTORY |
713 | 28-JUN-95 Charlie Tomberg Created |
714 | |
715 +===========================================================================*/
716
717 PROCEDURE lock_compare_p(
718 p_approval_action_history_id IN
719 ar_approval_action_history.approval_action_history_id%type,
720 p_aah_rec IN ar_approval_action_history%rowtype) IS
721
722 l_dummy_aah_rec ar_approval_action_history%rowtype;
723
724 BEGIN
725 arp_util.debug('arp_aah_pkg.lock_compare_p()+');
726
727 SELECT *
728 INTO l_dummy_aah_rec
729 FROM ar_approval_action_history aah
730 WHERE approval_action_history_id = p_approval_action_history_id
731 AND NOT
732 (
733 NVL(aah.approval_action_history_id, AR_NUMBER_DUMMY) <>
734 NVL(
735 DECODE(p_aah_rec.approval_action_history_id,
736 AR_NUMBER_DUMMY, aah.approval_action_history_id,
737 p_aah_rec.approval_action_history_id),
738 AR_NUMBER_DUMMY
739 )
740 OR
741 NVL(aah.action_name, AR_TEXT_DUMMY) <>
742 NVL(
743 DECODE(p_aah_rec.action_name,
744 AR_TEXT_DUMMY, aah.action_name,
745 p_aah_rec.action_name),
746 AR_TEXT_DUMMY
747 )
748 OR
749 NVL(aah.adjustment_id, AR_NUMBER_DUMMY) <>
750 NVL(
751 DECODE(p_aah_rec.adjustment_id,
752 AR_NUMBER_DUMMY, aah.adjustment_id,
753 p_aah_rec.adjustment_id),
754 AR_NUMBER_DUMMY
755 )
756 OR
757 NVL(aah.action_date, AR_DATE_DUMMY) <>
758 NVL(
759 DECODE(p_aah_rec.action_date,
760 AR_DATE_DUMMY, aah.action_date,
761 p_aah_rec.action_date),
762 AR_DATE_DUMMY
763 )
764 OR
765 NVL(aah.comments, AR_TEXT_DUMMY) <>
766 NVL(
767 DECODE(p_aah_rec.comments,
768 AR_TEXT_DUMMY, aah.comments,
769 p_aah_rec.comments),
770 AR_TEXT_DUMMY
771 )
772 OR
773 NVL(aah.attribute_category, AR_TEXT_DUMMY) <>
774 NVL(
775 DECODE(p_aah_rec.attribute_category,
776 AR_TEXT_DUMMY, aah.attribute_category,
777 p_aah_rec.attribute_category),
778 AR_TEXT_DUMMY
779 )
780 OR
781 NVL(aah.attribute1, AR_TEXT_DUMMY) <>
782 NVL(
783 DECODE(p_aah_rec.attribute1,
784 AR_TEXT_DUMMY, aah.attribute1,
785 p_aah_rec.attribute1),
786 AR_TEXT_DUMMY
787 )
788 OR
789 NVL(aah.attribute2, AR_TEXT_DUMMY) <>
790 NVL(
791 DECODE(p_aah_rec.attribute2,
792 AR_TEXT_DUMMY, aah.attribute2,
793 p_aah_rec.attribute2),
794 AR_TEXT_DUMMY
795 )
796 OR
797 NVL(aah.attribute3, AR_TEXT_DUMMY) <>
798 NVL(
799 DECODE(p_aah_rec.attribute3,
800 AR_TEXT_DUMMY, aah.attribute3,
804 OR
801 p_aah_rec.attribute3),
802 AR_TEXT_DUMMY
803 )
805 NVL(aah.attribute4, AR_TEXT_DUMMY) <>
806 NVL(
807 DECODE(p_aah_rec.attribute4,
808 AR_TEXT_DUMMY, aah.attribute4,
809 p_aah_rec.attribute4),
810 AR_TEXT_DUMMY
811 )
812 OR
813 NVL(aah.attribute5, AR_TEXT_DUMMY) <>
814 NVL(
815 DECODE(p_aah_rec.attribute5,
816 AR_TEXT_DUMMY, aah.attribute5,
817 p_aah_rec.attribute5),
818 AR_TEXT_DUMMY
819 )
820 OR
821 NVL(aah.attribute6, AR_TEXT_DUMMY) <>
822 NVL(
823 DECODE(p_aah_rec.attribute6,
824 AR_TEXT_DUMMY, aah.attribute6,
825 p_aah_rec.attribute6),
826 AR_TEXT_DUMMY
827 )
828 OR
829 NVL(aah.attribute7, AR_TEXT_DUMMY) <>
830 NVL(
831 DECODE(p_aah_rec.attribute7,
832 AR_TEXT_DUMMY, aah.attribute7,
833 p_aah_rec.attribute7),
834 AR_TEXT_DUMMY
835 )
836 OR
837 NVL(aah.attribute8, AR_TEXT_DUMMY) <>
838 NVL(
839 DECODE(p_aah_rec.attribute8,
840 AR_TEXT_DUMMY, aah.attribute8,
841 p_aah_rec.attribute8),
842 AR_TEXT_DUMMY
843 )
844 OR
845 NVL(aah.attribute9, AR_TEXT_DUMMY) <>
846 NVL(
847 DECODE(p_aah_rec.attribute9,
848 AR_TEXT_DUMMY, aah.attribute9,
849 p_aah_rec.attribute9),
850 AR_TEXT_DUMMY
851 )
852 OR
853 NVL(aah.attribute10, AR_TEXT_DUMMY) <>
854 NVL(
855 DECODE(p_aah_rec.attribute10,
856 AR_TEXT_DUMMY, aah.attribute10,
857 p_aah_rec.attribute10),
858 AR_TEXT_DUMMY
859 )
860 OR
861 NVL(aah.attribute11, AR_TEXT_DUMMY) <>
862 NVL(
863 DECODE(p_aah_rec.attribute11,
864 AR_TEXT_DUMMY, aah.attribute11,
865 p_aah_rec.attribute11),
866 AR_TEXT_DUMMY
867 )
868 OR
869 NVL(aah.attribute12, AR_TEXT_DUMMY) <>
870 NVL(
871 DECODE(p_aah_rec.attribute12,
872 AR_TEXT_DUMMY, aah.attribute12,
873 p_aah_rec.attribute12),
874 AR_TEXT_DUMMY
875 )
876 OR
877 NVL(aah.attribute13, AR_TEXT_DUMMY) <>
878 NVL(
879 DECODE(p_aah_rec.attribute13,
880 AR_TEXT_DUMMY, aah.attribute13,
881 p_aah_rec.attribute13),
882 AR_TEXT_DUMMY
883 )
884 OR
885 NVL(aah.attribute14, AR_TEXT_DUMMY) <>
886 NVL(
887 DECODE(p_aah_rec.attribute14,
888 AR_TEXT_DUMMY, aah.attribute14,
889 p_aah_rec.attribute14),
890 AR_TEXT_DUMMY
891 )
892 OR
893 NVL(aah.attribute15, AR_TEXT_DUMMY) <>
894 NVL(
895 DECODE(p_aah_rec.attribute15,
896 AR_TEXT_DUMMY, aah.attribute15,
897 p_aah_rec.attribute15),
898 AR_TEXT_DUMMY
899 )
900 OR
901 NVL(aah.created_by, AR_NUMBER_DUMMY) <>
902 NVL(
903 DECODE(p_aah_rec.created_by,
904 AR_NUMBER_DUMMY, aah.created_by,
905 p_aah_rec.created_by),
906 AR_NUMBER_DUMMY
907 )
908 OR
909 NVL(aah.creation_date, AR_DATE_DUMMY) <>
910 NVL(
911 DECODE(p_aah_rec.creation_date,
912 AR_DATE_DUMMY, aah.creation_date,
913 p_aah_rec.creation_date),
914 AR_DATE_DUMMY
915 )
916 OR
917 NVL(aah.last_updated_by, AR_NUMBER_DUMMY) <>
918 NVL(
919 DECODE(p_aah_rec.last_updated_by,
920 AR_NUMBER_DUMMY, aah.last_updated_by,
921 p_aah_rec.last_updated_by),
922 AR_NUMBER_DUMMY
923 )
924 OR
925 NVL(aah.last_update_date, AR_DATE_DUMMY) <>
926 NVL(
927 DECODE(p_aah_rec.last_update_date,
928 AR_DATE_DUMMY, aah.last_update_date,
929 p_aah_rec.last_update_date),
930 AR_DATE_DUMMY
931 )
932 OR
936 AR_NUMBER_DUMMY, aah.last_update_login,
933 NVL(aah.last_update_login, AR_NUMBER_DUMMY) <>
934 NVL(
935 DECODE(p_aah_rec.last_update_login,
937 p_aah_rec.last_update_login),
938 AR_NUMBER_DUMMY
939 )
940 )
941 FOR UPDATE OF approval_action_history_id NOWAIT;
942
943 arp_util.debug('arp_aah_pkg.lock_compare_p()-');
944
945 EXCEPTION
946 WHEN OTHERS THEN
947 arp_util.debug( 'EXCEPTION: arp_aah_pkg.lock_compare_p' );
948 RAISE;
949 END;
950
951
952 /*===========================================================================+
953 | PROCEDURE |
954 | fetch_p |
955 | |
956 | DESCRIPTION |
957 | This procedure fetches a single row from ar_approval_action_history |
958 | into a variable specified as a parameter based on the table's primary |
959 | key, approval_action_history_id |
960 | |
961 | SCOPE - PUBLIC |
962 | |
963 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
964 | arp_util.debug |
965 | |
966 | ARGUMENTS : IN: |
967 | p_approval_action_history_id - identifies the record to fetch |
968 | OUT: |
969 | p_aah_rec - contains the fetched record |
970 | |
971 | RETURNS : NONE |
972 | |
973 | NOTES |
974 | |
975 | MODIFICATION HISTORY |
976 | 28-JUN-95 Charlie Tomberg Created |
977 | |
978 +===========================================================================*/
979
980 PROCEDURE fetch_p( p_aah_rec OUT NOCOPY ar_approval_action_history%rowtype,
981 p_approval_action_history_id IN
982 ar_approval_action_history.approval_action_history_id%type)
983 IS
984
985 BEGIN
986 arp_util.debug('arp_aah_pkg.fetch_p()+');
987
988 SELECT *
989 INTO p_aah_rec
990 FROM ar_approval_action_history
991 WHERE approval_action_history_id = p_approval_action_history_id;
992
993 arp_util.debug('arp_aah_pkg.fetch_p()-');
994
995 EXCEPTION
996 WHEN OTHERS THEN
997 arp_util.debug( 'EXCEPTION: arp_aah_pkg.fetch_p' );
998 RAISE;
999 END;
1000
1001 /*===========================================================================+
1002 | PROCEDURE |
1003 | delete_p |
1004 | |
1005 | DESCRIPTION |
1006 | This procedure deletes the ar_approval_action_history row identified |
1007 | by the p_approval_action_history_id parameter. |
1008 | |
1009 | SCOPE - PUBLIC |
1010 | |
1011 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1012 | arp_util.debug |
1013 | |
1014 | ARGUMENTS : IN: |
1015 | p_approval_action_history_id - identifies the rows to delete |
1016 | OUT: |
1017 | None |
1018 | |
1019 | RETURNS : NONE |
1020 | |
1021 | NOTES |
1022 | |
1023 | MODIFICATION HISTORY |
1024 | 28-JUN-95 Charlie Tomberg Created |
1025 | |
1026 +===========================================================================*/
1027
1028 procedure delete_p( p_approval_action_history_id
1029 IN ar_approval_action_history.approval_action_history_id%type)
1030 IS
1031
1032
1033 BEGIN
1034
1038 DELETE FROM ar_approval_action_history
1035
1036 arp_util.debug('arp_aah_pkg.delete_p()+');
1037
1039 WHERE approval_action_history_id = p_approval_action_history_id;
1040
1041 arp_util.debug('arp_aah_pkg.delete_p()-');
1042
1043 EXCEPTION
1044 WHEN OTHERS THEN
1045 arp_util.debug('EXCEPTION: arp_aah_pkg.delete_p()');
1046
1047 RAISE;
1048
1049 END;
1050
1051 /*===========================================================================+
1052 | PROCEDURE |
1053 | delete_f_adj_id |
1054 | |
1055 | DESCRIPTION |
1056 | This procedure deletes the ar_approval_action_history rows identified |
1057 | by the p_adjustment_id parameter . |
1058 | |
1059 | SCOPE - PUBLIC |
1060 | |
1061 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1062 | arp_util.debug |
1063 | |
1064 | ARGUMENTS : IN: |
1065 | p_adjustment_id - identifies the rows to delete |
1066 | OUT: |
1067 | None |
1068 | |
1069 | RETURNS : NONE |
1070 | |
1071 | NOTES |
1072 | |
1073 | MODIFICATION HISTORY |
1074 | 28-JUN-95 Charlie Tomberg Created |
1075 | |
1076 +===========================================================================*/
1077
1078 procedure delete_f_adj_id( p_adjustment_id
1079 IN ar_adjustments.adjustment_id%type)
1080 IS
1081
1082
1083 BEGIN
1084
1085
1086 arp_util.debug('arp_aah_pkg.delete_f_adj_id()+');
1087
1088 DELETE FROM ar_approval_action_history
1089 WHERE adjustment_id = p_adjustment_id;
1090
1091 arp_util.debug('arp_aah_pkg.delete_f_adj_id()-');
1092
1093 EXCEPTION
1094 WHEN OTHERS THEN
1095 arp_util.debug('EXCEPTION: arp_aah_pkg.delete_f_adj_id()');
1096
1097 RAISE;
1098
1099 END;
1100
1101
1102 /*===========================================================================+
1103 | PROCEDURE |
1104 | update_p |
1105 | |
1106 | DESCRIPTION |
1107 | This procedure updates the ar_approval_action_history row identified |
1108 | by the p_approval_action_history_id parameter. |
1109 | |
1110 | SCOPE - PUBLIC |
1111 | |
1112 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1113 | arp_util.debug |
1114 | |
1115 | ARGUMENTS : IN: |
1116 | p_approval_action_history_id - identifies the row to update |
1117 | p_aah_rec - contains the new column values |
1118 | OUT: |
1119 | None |
1120 | |
1121 | RETURNS : NONE |
1122 | |
1123 | NOTES |
1124 | set_to_dummy must be called before the values in p_aah_rec are |
1125 | changed and this function is called. |
1126 | |
1127 | MODIFICATION HISTORY |
1128 | 28-JUN-95 Charlie Tomberg Created |
1129 | |
1130 +===========================================================================*/
1131
1132 PROCEDURE update_p( p_aah_rec IN ar_approval_action_history%rowtype,
1133 p_approval_action_history_id IN
1134 ar_approval_action_history.approval_action_history_id%type)
1135 IS
1136
1137
1138 BEGIN
1139
1140 arp_util.debug('arp_aah_pkg.update_p()+ ' ||
1144 ' WHERE approval_action_history_id = :where_1',
1141 to_char(sysdate, 'HH:MI:SS'));
1142
1143 arp_aah_pkg.generic_update( pg_cursor1,
1145 p_approval_action_history_id,
1146 p_aah_rec);
1147
1148 arp_util.debug('arp_aah_pkg.update_p()- ' ||
1149 to_char(sysdate, 'HH:MI:SS'));
1150
1151
1152 EXCEPTION
1153 WHEN OTHERS THEN
1154 arp_util.debug('EXCEPTION: arp_aah_pkg.update_p()');
1155 RAISE;
1156 END;
1157
1158
1159 /*===========================================================================+
1160 | PROCEDURE |
1161 | update_f_adj_id |
1162 | |
1163 | DESCRIPTION |
1164 | This procedure updates the ar_approval_action_history rows identified |
1165 | by the p_adjustment_id parameter. |
1166 | |
1167 | SCOPE - PUBLIC |
1168 | |
1169 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1170 | arp_util.debug |
1171 | |
1172 | ARGUMENTS : IN: |
1173 | p_adjustment_id - identifies the rows to update |
1174 | p_aah_rec - contains the new column values |
1175 | OUT: |
1176 | None |
1177 | |
1178 | RETURNS : NONE |
1179 | |
1180 | NOTES |
1181 | set_to_dummy must be called before the values in p_aah_rec are |
1182 | changed and this function is called. |
1183 | |
1184 | MODIFICATION HISTORY |
1185 | 28-JUN-95 Charlie Tomberg Created |
1186 | |
1187 +===========================================================================*/
1188
1189 PROCEDURE update_f_adj_id( p_aah_rec IN ar_approval_action_history%rowtype,
1190 p_adjustment_id IN ar_adjustments.adjustment_id%type)
1191 IS
1192
1193
1194 BEGIN
1195
1196 arp_util.debug('arp_aah_pkg.update_f_adj_id()+ ' ||
1197 to_char(sysdate, 'HH:MI:SS'));
1198
1199 arp_aah_pkg.generic_update( pg_cursor2,
1200 ' WHERE adjustment_id = :where_1',
1201 p_adjustment_id,
1202 p_aah_rec);
1203
1204 arp_util.debug('arp_aah_pkg.update_f_adj_id()- ' ||
1205 to_char(sysdate, 'HH:MI:SS'));
1206
1207
1208 EXCEPTION
1209 WHEN OTHERS THEN
1210 arp_util.debug('EXCEPTION: arp_aah_pkg.update_f_adj_id()');
1211 RAISE;
1212 END;
1213
1214
1215 /*===========================================================================+
1216 | PROCEDURE |
1217 | insert_p |
1218 | |
1219 | DESCRIPTION |
1220 | This procedure inserts a row into ar_approval_action_history that |
1221 | contains the column values specified in the p_aah_rec parameter. |
1222 | |
1223 | SCOPE - PUBLIC |
1224 | |
1225 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1226 | arp_util.debug |
1227 | |
1228 | ARGUMENTS : IN: |
1229 | p_aah_rec - contains the new column values |
1230 | OUT: |
1231 | p_approval_action_history_id - unique ID of the new row |
1232 | |
1233 | RETURNS : NONE |
1234 | |
1235 | NOTES |
1236 | |
1237 | MODIFICATION HISTORY |
1238 | 28-JUN-95 Charlie Tomberg Created |
1239 | |
1243 p_aah_rec IN ar_approval_action_history%rowtype,
1240 +===========================================================================*/
1241
1242 PROCEDURE insert_p(
1244 p_approval_action_history_id
1245 OUT NOCOPY ar_approval_action_history.approval_action_history_id%type
1246 ) IS
1247
1248
1249 l_approval_action_history_id
1250 ar_approval_action_history.approval_action_history_id%type;
1251
1252
1253 BEGIN
1254
1255 arp_util.debug('arp_aah_pkg.insert_p()+');
1256
1257 p_approval_action_history_id := '';
1258
1259 /*---------------------------*
1260 | Get the unique identifier |
1261 *---------------------------*/
1262
1263 SELECT AR_APPROVAL_ACTION_HISTORY_S.NEXTVAL
1264 INTO l_approval_action_history_id
1265 FROM DUAL;
1266
1267
1268 /*-------------------*
1269 | Insert the record |
1270 *-------------------*/
1271
1272 INSERT INTO ar_approval_action_history
1273 (
1274 approval_action_history_id,
1275 action_name,
1276 adjustment_id,
1277 action_date,
1278 comments,
1279 attribute_category,
1280 attribute1,
1281 attribute2,
1282 attribute3,
1283 attribute4,
1284 attribute5,
1285 attribute6,
1286 attribute7,
1287 attribute8,
1288 attribute9,
1289 attribute10,
1290 attribute11,
1291 attribute12,
1292 attribute13,
1293 attribute14,
1294 attribute15,
1295 created_by,
1296 creation_date,
1297 last_updated_by,
1298 last_update_date,
1299 last_update_login
1300 )
1301 VALUES
1302 (
1303 l_approval_action_history_id,
1304 p_aah_rec.action_name,
1305 p_aah_rec.adjustment_id,
1306 p_aah_rec.action_date,
1307 p_aah_rec.comments,
1308 p_aah_rec.attribute_category,
1309 p_aah_rec.attribute1,
1310 p_aah_rec.attribute2,
1311 p_aah_rec.attribute3,
1312 p_aah_rec.attribute4,
1313 p_aah_rec.attribute5,
1314 p_aah_rec.attribute6,
1315 p_aah_rec.attribute7,
1316 p_aah_rec.attribute8,
1317 p_aah_rec.attribute9,
1318 p_aah_rec.attribute10,
1319 p_aah_rec.attribute11,
1320 p_aah_rec.attribute12,
1321 p_aah_rec.attribute13,
1322 p_aah_rec.attribute14,
1323 p_aah_rec.attribute15,
1324 pg_user_id, /* created_by */
1325 sysdate, /* creation_date */
1326 pg_user_id, /* last_updated_by */
1327 sysdate, /* last_update_date */
1328 nvl(pg_conc_login_id,
1329 pg_login_id) /* last_update_login */
1330 );
1331
1332
1333
1334 p_approval_action_history_id := l_approval_action_history_id;
1335
1336 arp_util.debug('arp_aah_pkg.insert_p()-');
1337
1338 EXCEPTION
1339 WHEN OTHERS THEN
1340 arp_util.debug('EXCEPTION: arp_aah_pkg.insert_p()');
1341 RAISE;
1342 END;
1343
1344 /*===========================================================================+
1345 | PROCEDURE |
1346 | display_aah_rec |
1347 | |
1348 | DESCRIPTION |
1349 | Displays the values of all columns except creation_date, |
1350 | last_update_date, and action_date |
1351 | |
1352 | SCOPE - PRIVATE |
1353 | |
1354 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1355 | arp_util.debug |
1356 | |
1357 | ARGUMENTS : IN: |
1358 | p_aah_rec |
1359 | OUT: |
1360 | IN/ OUT: |
1361 | |
1362 | RETURNS : NONE |
1363 | |
1364 | NOTES |
1365 | |
1366 | MODIFICATION HISTORY |
1367 | 30-AUG-95 Martin Johnson Created |
1368 | |
1369 +===========================================================================*/
1370
1371 PROCEDURE display_aah_rec(
1375 arp_util.debug('arp_aah_pkg.display_aah_rec()+');
1372 p_aah_rec IN ar_approval_action_history%rowtype) IS
1373
1374 BEGIN
1376
1377 arp_util.debug('******** Dump of ar_approval_action_history record ' ||
1378 '*********');
1379
1380 arp_util.debug('approval_action_history_id : '||
1381 p_aah_rec.approval_action_history_id);
1382 arp_util.debug('created_by : '||
1383 p_aah_rec.created_by);
1384 arp_util.debug('last_updated_by : '||
1385 p_aah_rec.last_updated_by);
1386 arp_util.debug('last_update_login : '||
1387 p_aah_rec.last_update_login);
1388 arp_util.debug('action_name : '||
1389 p_aah_rec.action_name);
1390 arp_util.debug('adjustment_id : '||
1391 p_aah_rec.adjustment_id);
1392 arp_util.debug('comments : '||
1393 p_aah_rec.comments);
1394 arp_util.debug('attribute_category : '||
1395 p_aah_rec.attribute_category);
1396 arp_util.debug('attribute1 : '||
1397 p_aah_rec.attribute1);
1398 arp_util.debug('attribute2 : '||
1399 p_aah_rec.attribute2);
1400 arp_util.debug('attribute3 : '||
1401 p_aah_rec.attribute3);
1402 arp_util.debug('attribute4 : '||
1403 p_aah_rec.attribute4);
1404 arp_util.debug('attribute5 : '||
1405 p_aah_rec.attribute5);
1406 arp_util.debug('attribute6 : '||
1407 p_aah_rec.attribute6);
1408 arp_util.debug('attribute7 : '||
1409 p_aah_rec.attribute7);
1410 arp_util.debug('attribute8 : '||
1411 p_aah_rec.attribute8);
1412 arp_util.debug('attribute9 : '||
1413 p_aah_rec.attribute9);
1414 arp_util.debug('attribute10 : '||
1415 p_aah_rec.attribute10);
1416 arp_util.debug('attribute11 : '||
1417 p_aah_rec.attribute11);
1418 arp_util.debug('attribute12 : '||
1419 p_aah_rec.attribute12);
1420 arp_util.debug('attribute13 : '||
1421 p_aah_rec.attribute13);
1422 arp_util.debug('attribute14 : '||
1423 p_aah_rec.attribute14);
1424 arp_util.debug('attribute15 : '||
1425 p_aah_rec.attribute15);
1426
1427 arp_util.debug('arp_aah_pkg.display_aah_rec()-');
1428
1429 EXCEPTION
1430 WHEN OTHERS THEN
1431 arp_util.debug('EXCEPTION: arp_aah_pkg.display_aah_rec()');
1432 RAISE;
1433 END;
1434
1435 /*===========================================================================+
1436 | PROCEDURE |
1437 | display_aah_p |
1438 | |
1439 | DESCRIPTION |
1440 | Displays the values of all columns except creation_date, |
1441 | last_update_date, and action_date |
1442 | |
1443 | SCOPE - PUBLIC |
1444 | |
1445 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1446 | arp_util.debug |
1447 | |
1448 | ARGUMENTS : IN: |
1449 | p_approval_action_history_id |
1450 | OUT: |
1451 | IN/ OUT: |
1452 | |
1453 | RETURNS : NONE |
1454 | |
1455 | NOTES |
1456 | |
1457 | MODIFICATION HISTORY |
1458 | 30-AUG-95 Martin Johnson Created |
1459 | |
1460 +===========================================================================*/
1461 PROCEDURE display_aah_p(
1462 p_approval_action_history_id IN
1463 ar_approval_action_history.approval_action_history_id%type) IS
1464
1465 l_aah_rec ar_approval_action_history%rowtype;
1466 BEGIN
1470
1467 arp_util.debug('arp_aah_pkg.display_aah_p()+');
1468
1469 arp_aah_pkg.fetch_p(l_aah_rec, p_approval_action_history_id);
1471 arp_aah_pkg.display_aah_rec(l_aah_rec);
1472
1473 arp_util.debug('arp_aah_pkg.display_aah_p()-');
1474
1475 EXCEPTION
1476 WHEN OTHERS THEN
1477 arp_util.debug('EXCEPTION: arp_aah_pkg.display_aah_p()');
1478
1479 arp_util.debug('');
1480 arp_util.debug('-------- parameters for display_aah_p() ------');
1481 arp_util.debug('p_approval_action_history_id = ' ||
1482 p_approval_action_history_id);
1483
1484 RAISE;
1485 END;
1486
1487 /*===========================================================================+
1488 | PROCEDURE |
1489 | display_aah_f_adj_id |
1490 | |
1491 | DESCRIPTION |
1492 | Displays the values of all columns except creation_date, |
1493 | last_update_date, and action_date |
1494 | |
1495 | SCOPE - PUBLIC |
1496 | |
1497 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1498 | arp_util.debug |
1499 | |
1500 | ARGUMENTS : IN: |
1501 | p_adjustment_id |
1502 | OUT: |
1503 | None |
1504 | IN/ OUT: |
1505 | None |
1506 | |
1507 | RETURNS : NONE |
1508 | |
1509 | NOTES |
1510 | |
1511 | MODIFICATION HISTORY |
1512 | 30-AUG-95 Martin Johnson Created |
1513 | |
1514 +===========================================================================*/
1515
1516
1517 PROCEDURE display_aah_f_adj_id( p_adjustment_id IN
1518 ar_adjustments.adjustment_id%type )
1519 IS
1520
1521 CURSOR aah_cursor IS
1522 SELECT approval_action_history_id
1523 FROM ar_approval_action_history
1524 WHERE adjustment_id = p_adjustment_id
1525 ORDER BY approval_action_history_id;
1526
1527 BEGIN
1528
1529 arp_util.debug('arp_aah_pkg.display_aah_f_adj_id()+');
1530
1531 arp_util.debug('=====================================================' ||
1532 '==========================');
1533 arp_util.debug('======= ' ||
1534 ' Dump of ar_approval_action_history records for adj_id: '||
1535 to_char( p_adjustment_id ) || ' ' ||
1536 '======');
1537
1538 FOR l_aah_rec IN aah_cursor LOOP
1539 display_aah_p(l_aah_rec.approval_action_history_id);
1540 END LOOP;
1541
1542 arp_util.debug('==== End ' ||
1543 ' Dump of ar_approval_action_history records for adj_id: '||
1544 to_char( p_adjustment_id ) || ' ' ||
1545 '=====');
1546 arp_util.debug('=====================================================' ||
1547 '==========================');
1548
1549 arp_util.debug('arp_aah_pkg.display_aah_f_adj_id()-');
1550
1551 EXCEPTION
1552 WHEN OTHERS THEN
1553 arp_util.debug('EXCEPTION: arp_aah_pkg.display_aah_f_adj_id()');
1554
1555 arp_util.debug('');
1556 arp_util.debug('-------- parameters for display_aah_f_adj_id() ------');
1557 arp_util.debug('p_adjustment_id = ' ||
1558 p_adjustment_id);
1559
1560 RAISE;
1561
1562 END;
1563
1564 /*---------------------------------------------+
1565 | Package initialization section. |
1566 | Sets WHO column variables for later use. |
1567 +---------------------------------------------*/
1568
1569 BEGIN
1570
1571 pg_user_id := fnd_global.user_id;
1572 pg_conc_login_id := fnd_global.conc_login_id;
1573 pg_login_id := fnd_global.login_id;
1574 pg_prog_appl_id := fnd_global.prog_appl_id;
1575 pg_conc_program_id := fnd_global.conc_program_id;
1576
1577
1578 END ARP_AAH_PKG;