[Home] [Help]
PACKAGE BODY: APPS.ARP_UPDATE_DIST_COVER
Source
1 PACKAGE BODY ARP_UPDATE_DIST_COVER AS
2 /* $Header: ARTLGDUB.pls 120.5.12000000.2 2007/10/23 20:09:12 mraymond ship $ */
3
4 pg_msg_level_debug binary_integer;
5
6 /*===========================================================================+
7 | PROCEDURE |
8 | update_dist_cover |
9 | |
10 | DESCRIPTION |
11 | Converts column parameters to a dist record and |
12 | updates a dist line. |
13 | |
14 | SCOPE - PUBLIC |
15 | |
16 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
17 | arp_util.debug |
18 | |
19 | ARGUMENTS : IN: |
20 | p_form_name |
21 | p_form_version |
22 | p_backout_flag |
23 | p_exchange_rate |
24 | p_base_currency_code |
25 | p_base_precision |
26 | p_base_mau |
27 | p_cust_trx_line_gl_dist_id |
28 | p_customer_trx_id |
29 | p_customer_trx_line_id |
30 | p_cust_trx_line_salesrep_id |
31 | p_account_class |
32 | p_percent |
33 | p_amount |
34 | p_acctd_amount |
35 | p_gl_date |
36 | p_original_gl_date |
37 | p_gl_posted_date |
38 | p_code_combination_id |
39 | p_concatenated_segments |
40 | p_collected_tax_ccid |
41 | p_collected_tax_concat_seg |
42 | p_comments |
43 | p_account_set_flag |
44 | p_latest_rec_flag |
45 | p_ussgl_transaction_code |
46 | p_ussgl_trx_code_context |
47 | p_attribute_category |
48 | p_attribute1 |
49 | p_attribute2 |
50 | p_attribute3 |
51 | p_attribute4 |
52 | p_attribute5 |
53 | p_attribute6 |
54 | p_attribute7 |
55 | p_attribute8 |
56 | p_attribute9 |
57 | p_attribute10 |
58 | p_attribute11 |
59 | p_attribute12 |
60 | p_attribute13 |
61 | p_attribute14 |
62 | p_attribute15 |
63 | p_posting_control_id |
64 | p_header_gl_date |
65 | p_trx_date |
66 | p_invoicing_rule_id |
67 | OUT: |
68 | p_backout_done_flag |
69 | IN/ OUT: |
70 | None |
71 | |
72 | RETURNS : NONE |
73 | |
74 | NOTES |
75 | |
76 | MODIFICATION HISTORY |
77 | 11-OCT-95 Martin Johnson Created |
78 | 07-NOV-95 Martin Johnson Added OUT NOCOPY parameter p_backout_done_flag|
79 | Added IN parameters p_header_gl_date, |
80 | p_trx_date, p_invoicing_rule_id |
81 | 05-JAN-99 Tasman Tang Added new parameters collected_tax_ccid|
82 | and collected_tax_concat_seg for |
83 | deferred tax |
84 | |
85 +===========================================================================*/
86
87 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
88
89 PROCEDURE update_dist_cover(
90 p_form_name IN varchar2,
91 p_form_version IN number,
92 p_backout_flag IN boolean,
93 p_exchange_rate IN
94 ra_customer_trx.exchange_rate%type,
95 p_base_currency_code IN
96 fnd_currencies.currency_code%type,
97 p_base_precision IN
98 fnd_currencies.precision%type,
99 p_base_mau IN
100 fnd_currencies.minimum_accountable_unit%type,
101 p_cust_trx_line_gl_dist_id IN
102 ra_cust_trx_line_gl_dist.cust_trx_line_gl_dist_id%type,
103 p_customer_trx_id IN
104 ra_cust_trx_line_gl_dist.customer_trx_id%type,
105 p_customer_trx_line_id IN
106 ra_cust_trx_line_gl_dist.customer_trx_line_id %type,
107 p_cust_trx_line_salesrep_id IN
108 ra_cust_trx_line_gl_dist.cust_trx_line_salesrep_id%type,
109 p_account_class IN
110 ra_cust_trx_line_gl_dist.account_class%type,
111 p_percent IN
112 ra_cust_trx_line_gl_dist.percent%type,
113 p_amount IN
114 ra_cust_trx_line_gl_dist.amount%type,
115 p_gl_date IN
116 ra_cust_trx_line_gl_dist.gl_date%type,
117 p_original_gl_date IN
118 ra_cust_trx_line_gl_dist.original_gl_date%type,
119 p_gl_posted_date IN
120 ra_cust_trx_line_gl_dist.gl_posted_date%type,
121 p_code_combination_id IN
122 ra_cust_trx_line_gl_dist.code_combination_id%type,
123 p_concatenated_segments IN
124 ra_cust_trx_line_gl_dist.concatenated_segments%type,
125 p_collected_tax_ccid IN
126 ra_cust_trx_line_gl_dist.collected_tax_ccid%type,
127 p_collected_tax_concat_seg IN
128 ra_cust_trx_line_gl_dist.collected_tax_concat_seg%type,
129 p_comments IN
130 ra_cust_trx_line_gl_dist.comments%type,
131 p_account_set_flag IN
132 ra_cust_trx_line_gl_dist.account_set_flag%type,
133 p_latest_rec_flag IN
134 ra_cust_trx_line_gl_dist.latest_rec_flag%type,
135 p_ussgl_transaction_code IN
136 ra_cust_trx_line_gl_dist.ussgl_transaction_code%type,
137 p_ussgl_trx_code_context IN
138 ra_cust_trx_line_gl_dist.ussgl_transaction_code_context%type,
139 p_attribute_category IN
140 ra_cust_trx_line_gl_dist.attribute_category%type,
141 p_attribute1 IN
142 ra_cust_trx_line_gl_dist.attribute1%type,
143 p_attribute2 IN
144 ra_cust_trx_line_gl_dist.attribute2%type,
145 p_attribute3 IN
146 ra_cust_trx_line_gl_dist.attribute3%type,
147 p_attribute4 IN
148 ra_cust_trx_line_gl_dist.attribute4%type,
149 p_attribute5 IN
150 ra_cust_trx_line_gl_dist.attribute5%type,
151 p_attribute6 IN
152 ra_cust_trx_line_gl_dist.attribute6%type,
153 p_attribute7 IN
154 ra_cust_trx_line_gl_dist.attribute7%type,
155 p_attribute8 IN
156 ra_cust_trx_line_gl_dist.attribute8%type,
157 p_attribute9 IN
158 ra_cust_trx_line_gl_dist.attribute9%type,
159 p_attribute10 IN
160 ra_cust_trx_line_gl_dist.attribute10%type,
161 p_attribute11 IN
162 ra_cust_trx_line_gl_dist.attribute11%type,
163 p_attribute12 IN
164 ra_cust_trx_line_gl_dist.attribute12%type,
165 p_attribute13 IN
166 ra_cust_trx_line_gl_dist.attribute13%type,
167 p_attribute14 IN
168 ra_cust_trx_line_gl_dist.attribute14%type,
169 p_attribute15 IN
170 ra_cust_trx_line_gl_dist.attribute15%type,
171 p_posting_control_id IN
172 ra_cust_trx_line_gl_dist.posting_control_id%type,
173 p_header_gl_date IN date,
174 p_trx_date IN date,
175 p_invoicing_rule_id IN
176 ra_customer_trx.invoicing_rule_id%type,
177 p_rec_offset_flag IN
178 ra_cust_trx_line_gl_dist.rec_offset_flag%type, /* Bug 3568021 */
179 p_backout_done_flag OUT NOCOPY boolean,
180 p_rounding_correction_flag IN varchar2 DEFAULT NULL)
181 IS
182
183 l_dist_rec ra_cust_trx_line_gl_dist%rowtype;
184
185 BEGIN
186
187 IF PG_DEBUG in ('Y', 'C') THEN
188 arp_util.debug('arp_process_dist.update_dist_cover()+',
189 pg_msg_level_debug);
190 END IF;
191
192 /*------------------------------------------------+
193 | Populate the dist record group with |
194 | the values passed in as parameters. |
195 +------------------------------------------------*/
196
197 arp_ctlgd_pkg.set_to_dummy(l_dist_rec);
198
199 l_dist_rec.customer_trx_id := p_customer_trx_id;
200 l_dist_rec.customer_trx_line_id := p_customer_trx_line_id;
201 l_dist_rec.cust_trx_line_salesrep_id := p_cust_trx_line_salesrep_id;
202 l_dist_rec.account_class := p_account_class;
203 l_dist_rec.percent := p_percent;
204 l_dist_rec.amount := p_amount;
205 l_dist_rec.gl_date := p_gl_date;
206 l_dist_rec.original_gl_date := p_original_gl_date;
207 l_dist_rec.gl_posted_date := p_gl_posted_date;
208 l_dist_rec.code_combination_id := p_code_combination_id;
209 l_dist_rec.concatenated_segments := p_concatenated_segments;
210 l_dist_rec.collected_tax_ccid := p_collected_tax_ccid;
211 l_dist_rec.collected_tax_concat_seg := p_collected_tax_concat_seg;
212 l_dist_rec.comments := p_comments;
213 l_dist_rec.account_set_flag := p_account_set_flag;
214 l_dist_rec.latest_rec_flag := p_latest_rec_flag;
215 l_dist_rec.ussgl_transaction_code := p_ussgl_transaction_code;
216 l_dist_rec.ussgl_transaction_code_context := p_ussgl_trx_code_context;
217 l_dist_rec.attribute_category := p_attribute_category;
218 l_dist_rec.attribute1 := p_attribute1;
219 l_dist_rec.attribute2 := p_attribute2;
220 l_dist_rec.attribute3 := p_attribute3;
221 l_dist_rec.attribute4 := p_attribute4;
222 l_dist_rec.attribute5 := p_attribute5;
223 l_dist_rec.attribute6 := p_attribute6;
224 l_dist_rec.attribute7 := p_attribute7;
225 l_dist_rec.attribute8 := p_attribute8;
226 l_dist_rec.attribute9 := p_attribute9;
227 l_dist_rec.attribute10 := p_attribute10;
228 l_dist_rec.attribute11 := p_attribute11;
229 l_dist_rec.attribute12 := p_attribute12;
230 l_dist_rec.attribute13 := p_attribute13;
231 l_dist_rec.attribute14 := p_attribute14;
232 l_dist_rec.attribute15 := p_attribute15;
233 l_dist_rec.posting_control_id := p_posting_control_id;
234 l_dist_rec.rec_offset_flag := p_rec_offset_flag; /* Bug 3568021 */
235 l_dist_rec.rounding_correction_flag := p_rounding_correction_flag;
236
237 /*-----------------------------------------------+
238 | Call the standard dist entity handler |
239 +-----------------------------------------------*/
240
241 arp_process_dist.update_dist(
242 p_form_name,
243 p_form_version,
244 p_backout_flag,
245 p_cust_trx_line_gl_dist_id,
246 p_customer_trx_id,
247 l_dist_rec,
248 p_header_gl_date,
249 p_trx_date,
250 p_invoicing_rule_id,
251 p_backout_done_flag,
252 p_exchange_rate,
253 p_base_currency_code,
254 p_base_precision,
255 p_base_mau );
256
257 IF PG_DEBUG in ('Y', 'C') THEN
258 arp_util.debug('arp_process_dist.update_dist_cover()-',
259 pg_msg_level_debug);
260 END IF;
261
262 EXCEPTION
263 WHEN OTHERS THEN
264
265 IF PG_DEBUG in ('Y', 'C') THEN
266 arp_util.debug('EXCEPTION: arp_process_dist.update_dist_cover()',
267 pg_msg_level_debug);
268 arp_util.debug('------- parameters for update_dist_cover() ' ||
269 '---------',
270 pg_msg_level_debug);
271 arp_util.debug('update_dist_cover: ' || 'p_form_name = ' || p_form_name,
272 pg_msg_level_debug);
273 arp_util.debug('update_dist_cover: ' || 'p_form_version = ' || p_form_version,
274 pg_msg_level_debug);
275 arp_util.debug('update_dist_cover: ' || 'p_backout_flag = ' ||
276 arp_trx_util.boolean_to_varchar2(p_backout_flag),
277 pg_msg_level_debug);
278 arp_util.debug('update_dist_cover: ' || 'p_exchange_rate = ' || p_exchange_rate,
279 pg_msg_level_debug);
280 arp_util.debug('update_dist_cover: ' || 'p_base_currency_code = ' || p_base_currency_code,
281 pg_msg_level_debug);
282 arp_util.debug('update_dist_cover: ' || 'p_base_precision = ' || p_base_precision,
283 pg_msg_level_debug);
284 arp_util.debug('update_dist_cover: ' || 'p_base_mau = ' || p_base_mau,
285 pg_msg_level_debug);
286 arp_util.debug('update_dist_cover: ' || 'p_cust_trx_line_gl_dist_id = ' ||
287 p_cust_trx_line_gl_dist_id,
288 pg_msg_level_debug);
289 arp_util.debug('update_dist_cover: ' || 'p_customer_trx_id = ' || p_customer_trx_id,
290 pg_msg_level_debug);
291 arp_util.debug('update_dist_cover: ' || 'p_customer_trx_line_id = ' || p_customer_trx_line_id,
292 pg_msg_level_debug);
293 arp_util.debug('update_dist_cover: ' || 'p_cust_trx_line_salesrep_id = ' ||
294 p_cust_trx_line_salesrep_id,
295 pg_msg_level_debug);
296 arp_util.debug('update_dist_cover: ' || 'p_account_class = ' || p_account_class,
297 pg_msg_level_debug);
298 arp_util.debug('update_dist_cover: ' || 'p_percent = ' || p_percent,
299 pg_msg_level_debug);
300 arp_util.debug('update_dist_cover: ' || 'p_amount = ' || p_amount,
301 pg_msg_level_debug);
302 arp_util.debug('update_dist_cover: ' || 'p_gl_date = ' || p_gl_date,
303 pg_msg_level_debug);
304 arp_util.debug('update_dist_cover: ' || 'p_gl_posted_date = ' || p_gl_posted_date,
305 pg_msg_level_debug);
306 arp_util.debug('update_dist_cover: ' || 'p_original_gl_date = ' || p_original_gl_date,
307 pg_msg_level_debug);
308 arp_util.debug('update_dist_cover: ' || 'p_code_combination_id = ' || p_code_combination_id,
309 pg_msg_level_debug);
310 arp_util.debug('update_dist_cover: ' || 'p_concatenated_segments = ' || p_concatenated_segments,
311 pg_msg_level_debug);
312 arp_util.debug('update_dist_cover: ' || 'p_collected_tax_ccid = ' || p_collected_tax_ccid,
313 pg_msg_level_debug);
314 arp_util.debug('update_dist_cover: ' || 'p_collected_tax_concat_seg = ' || p_collected_tax_concat_seg,
315 pg_msg_level_debug);
316 arp_util.debug('update_dist_cover: ' || 'p_comments = ' || p_comments,
317 pg_msg_level_debug);
318 arp_util.debug('update_dist_cover: ' || 'p_account_set_flag = ' || p_account_set_flag,
319 pg_msg_level_debug);
320 arp_util.debug('update_dist_cover: ' || 'p_latest_rec_flag = ' || p_latest_rec_flag,
321 pg_msg_level_debug);
322 arp_util.debug('update_dist_cover: ' || 'p_ussgl_transaction_code = ' ||
323 p_ussgl_transaction_code,
324 pg_msg_level_debug);
325 arp_util.debug('update_dist_cover: ' || 'p_ussgl_trx_code_context = ' ||
326 p_ussgl_trx_code_context,
327 pg_msg_level_debug);
328 arp_util.debug('update_dist_cover: ' || 'p_attribute_category = ' || p_attribute_category,
329 pg_msg_level_debug);
330 arp_util.debug('update_dist_cover: ' || 'p_attribute1 = ' || p_attribute1,
331 pg_msg_level_debug);
332 arp_util.debug('update_dist_cover: ' || 'p_attribute2 = ' || p_attribute2,
333 pg_msg_level_debug);
334 arp_util.debug('update_dist_cover: ' || 'p_attribute3 = ' || p_attribute3,
335 pg_msg_level_debug);
336 arp_util.debug('update_dist_cover: ' || 'p_attribute4 = ' || p_attribute4,
337 pg_msg_level_debug);
338 arp_util.debug('update_dist_cover: ' || 'p_attribute5 = ' || p_attribute5,
339 pg_msg_level_debug);
340 arp_util.debug('update_dist_cover: ' || 'p_attribute6 = ' || p_attribute6,
341 pg_msg_level_debug);
342 arp_util.debug('update_dist_cover: ' || 'p_attribute7 = ' || p_attribute7,
343 pg_msg_level_debug);
344 arp_util.debug('update_dist_cover: ' || 'p_attribute8 = ' || p_attribute8,
345 pg_msg_level_debug);
346 arp_util.debug('update_dist_cover: ' || 'p_attribute9 = ' || p_attribute9,
347 pg_msg_level_debug);
348 arp_util.debug('update_dist_cover: ' || 'p_attribute10 = ' || p_attribute10,
349 pg_msg_level_debug);
350 arp_util.debug('update_dist_cover: ' || 'p_attribute11 = ' || p_attribute11,
351 pg_msg_level_debug);
352 arp_util.debug('update_dist_cover: ' || 'p_attribute12 = ' || p_attribute12,
353 pg_msg_level_debug);
354 arp_util.debug('update_dist_cover: ' || 'p_attribute13 = ' || p_attribute13,
355 pg_msg_level_debug);
356 arp_util.debug('update_dist_cover: ' || 'p_attribute14 = ' || p_attribute14,
357 pg_msg_level_debug);
358 arp_util.debug('update_dist_cover: ' || 'p_attribute15 = ' || p_attribute15,
359 pg_msg_level_debug);
360 arp_util.debug('update_dist_cover: ' || 'p_posting_control_id = ' || p_posting_control_id,
361 pg_msg_level_debug);
362 arp_util.debug('update_dist_cover: ' || 'p_header_gl_date = ' || p_header_gl_date,
363 pg_msg_level_debug);
364 arp_util.debug('update_dist_cover: ' || 'p_trx_date = ' || p_trx_date,
365 pg_msg_level_debug);
366 arp_util.debug('update_dist_cover: ' || 'p_invoicing_rule_id = ' || p_invoicing_rule_id,
367 pg_msg_level_debug);
368 END IF;
369
370 RAISE;
371
372 END update_dist_cover;
373
374 /*---------------------------------------------+
375 | Package initialization section. |
376 +---------------------------------------------*/
377
378 BEGIN
379
380 pg_msg_level_debug := arp_global.MSG_LEVEL_DEBUG;
381
382 END ARP_UPDATE_DIST_COVER;