[Home] [Help]
PACKAGE BODY: APPS.ARP_RATE_ADJUSTMENTS_PKG
Source
1 PACKAGE BODY ARP_RATE_ADJUSTMENTS_PKG AS
2 /*$Header: ARRIRADB.pls 120.4 2004/03/01 19:15:09 mraymond ship $*/
3 --
4
5 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
6
7 PROCEDURE insert_p(
8 p_radj_rec IN ar_rate_adjustments%ROWTYPE,
9 p_radj_id OUT NOCOPY ar_rate_adjustments.rate_adjustment_id%TYPE ) IS
10 l_radj_id ar_rate_adjustments.rate_adjustment_id%TYPE;
11 BEGIN
12 IF PG_DEBUG in ('Y', 'C') THEN
13 arp_standard.debug( 'arp_rate_adjustments_pkg.insert_p()+' );
14 END IF;
15 --
16 SELECT AR_RATE_ADJUSTMENTS_s.nextval
17 INTO l_radj_id
18 FROM dual;
19 --
20 INSERT INTO AR_RATE_ADJUSTMENTS (
21 rate_adjustment_id,
22 cash_receipt_id,
23 gain_loss,
24 gl_date,
25 new_exchange_date,
26 new_exchange_rate,
27 new_exchange_rate_type,
28 old_exchange_date,
29 old_exchange_rate,
30 old_exchange_rate_type,
31 gl_posted_date,
32 posting_control_id,
33 created_from,
34 attribute_category,
35 attribute1,
36 attribute2,
37 attribute3,
38 attribute4,
39 attribute5,
40 attribute6,
41 attribute7,
42 attribute8,
43 attribute9,
44 attribute10,
45 attribute11,
46 attribute12,
47 attribute13,
48 attribute14,
49 attribute15,
50 request_id,
51 program_application_id,
52 program_id,
53 program_update_date,
54 created_by,
55 creation_date,
56 last_updated_by,
57 last_update_date,
58 last_update_login
59 ,org_id
60 )
61 VALUES ( l_radj_id,
62 p_radj_rec.cash_receipt_id,
63 p_radj_rec.gain_loss,
64 p_radj_rec.gl_date,
65 p_radj_rec.new_exchange_date,
66 p_radj_rec.new_exchange_rate,
67 p_radj_rec.new_exchange_rate_type,
68 p_radj_rec.old_exchange_date,
69 p_radj_rec.old_exchange_rate,
70 p_radj_rec.old_exchange_rate_type,
71 p_radj_rec.gl_posted_date,
72 p_radj_rec.posting_control_id,
73 p_radj_rec.created_from,
74 p_radj_rec.attribute_category,
75 p_radj_rec.attribute1,
76 p_radj_rec.attribute2,
77 p_radj_rec.attribute3,
78 p_radj_rec.attribute4,
79 p_radj_rec.attribute5,
80 p_radj_rec.attribute6,
81 p_radj_rec.attribute7,
82 p_radj_rec.attribute8,
83 p_radj_rec.attribute9,
84 p_radj_rec.attribute10,
85 p_radj_rec.attribute11,
86 p_radj_rec.attribute12,
87 p_radj_rec.attribute13,
88 p_radj_rec.attribute14,
89 p_radj_rec.attribute15,
90 NVL( arp_standard.profile.request_id,
91 p_radj_rec.request_id ),
92 NVL( arp_standard.profile.program_application_id,
93 p_radj_rec.program_application_id ),
94 NVL( arp_standard.profile.program_id,
95 p_radj_rec.program_id ),
96 DECODE( arp_standard.profile.program_id,
97 NULL, NULL,
98 SYSDATE
99 ),
100 arp_standard.profile.user_id,
101 SYSDATE,
102 arp_standard.profile.user_id,
103 SYSDATE,
104 NVL( arp_standard.profile.last_update_login,
105 p_radj_rec.last_update_login )
106 ,arp_standard.sysparm.org_id /* SSA changes anuj */
107 );
108 --
109 /*---------------------------------+
110 | Calling central MRC library |
111 | for MRC Integration |
112 +---------------------------------*/
113
114 ar_mrc_engine.maintain_mrc_data(
115 p_event_mode => 'INSERT',
116 p_table_name => 'AR_RATE_ADJUSTMENTS',
117 p_mode => 'SINGLE',
118 p_key_value => l_radj_id
119 );
120
121 p_radj_id := l_radj_id;
122 --
123 IF PG_DEBUG in ('Y', 'C') THEN
124 arp_standard.debug( 'arp_rate_adjustments_pkg.insert_p()+' );
125 END IF;
126 EXCEPTION
127 WHEN OTHERS THEN
128 IF PG_DEBUG in ('Y', 'C') THEN
129 arp_standard.debug( 'EXCEPTION: arp_rate_adjustments_pkg.insert_p' );
130 END IF;
131 RAISE;
132 END insert_p;
133 --
134 --
135 END ARP_RATE_ADJUSTMENTS_PKG;