[Home] [Help]
PACKAGE BODY: APPS.ARP_UPDATE_DIST_COVER
Source
1 PACKAGE BODY ARP_UPDATE_DIST_COVER AS
2 /* $Header: ARTLGDUB.pls 120.6.12010000.2 2009/09/14 11:42:52 rasarasw 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 p_ccid_change_flag IN
182 ra_cust_trx_line_gl_dist.ccid_change_flag%type) /* Bug 8788491 */
183 IS
184
185 l_dist_rec ra_cust_trx_line_gl_dist%rowtype;
186
187 BEGIN
188
189 IF PG_DEBUG in ('Y', 'C') THEN
190 arp_util.debug('arp_process_dist.update_dist_cover()+',
191 pg_msg_level_debug);
192 END IF;
193
194 /*------------------------------------------------+
195 | Populate the dist record group with |
196 | the values passed in as parameters. |
197 +------------------------------------------------*/
198
199 arp_ctlgd_pkg.set_to_dummy(l_dist_rec);
200
201 l_dist_rec.customer_trx_id := p_customer_trx_id;
202 l_dist_rec.customer_trx_line_id := p_customer_trx_line_id;
203 l_dist_rec.cust_trx_line_salesrep_id := p_cust_trx_line_salesrep_id;
204 l_dist_rec.account_class := p_account_class;
205 l_dist_rec.percent := p_percent;
206 l_dist_rec.amount := p_amount;
207 l_dist_rec.gl_date := p_gl_date;
208 l_dist_rec.original_gl_date := p_original_gl_date;
209 l_dist_rec.gl_posted_date := p_gl_posted_date;
210 l_dist_rec.code_combination_id := p_code_combination_id;
211 l_dist_rec.concatenated_segments := p_concatenated_segments;
212 l_dist_rec.collected_tax_ccid := p_collected_tax_ccid;
213 l_dist_rec.collected_tax_concat_seg := p_collected_tax_concat_seg;
214 l_dist_rec.comments := p_comments;
215 l_dist_rec.account_set_flag := p_account_set_flag;
216 l_dist_rec.latest_rec_flag := p_latest_rec_flag;
217 l_dist_rec.ussgl_transaction_code := p_ussgl_transaction_code;
218 l_dist_rec.ussgl_transaction_code_context := p_ussgl_trx_code_context;
219 l_dist_rec.attribute_category := p_attribute_category;
220 l_dist_rec.attribute1 := p_attribute1;
221 l_dist_rec.attribute2 := p_attribute2;
222 l_dist_rec.attribute3 := p_attribute3;
223 l_dist_rec.attribute4 := p_attribute4;
224 l_dist_rec.attribute5 := p_attribute5;
225 l_dist_rec.attribute6 := p_attribute6;
226 l_dist_rec.attribute7 := p_attribute7;
227 l_dist_rec.attribute8 := p_attribute8;
228 l_dist_rec.attribute9 := p_attribute9;
229 l_dist_rec.attribute10 := p_attribute10;
230 l_dist_rec.attribute11 := p_attribute11;
231 l_dist_rec.attribute12 := p_attribute12;
232 l_dist_rec.attribute13 := p_attribute13;
233 l_dist_rec.attribute14 := p_attribute14;
234 l_dist_rec.attribute15 := p_attribute15;
235 l_dist_rec.posting_control_id := p_posting_control_id;
236 l_dist_rec.rec_offset_flag := p_rec_offset_flag; /* Bug 3568021 */
237 l_dist_rec.rounding_correction_flag := p_rounding_correction_flag;
238 l_dist_rec.ccid_change_flag := p_ccid_change_flag; /* Bug 8788491 */
239
240 /*-----------------------------------------------+
241 | Call the standard dist entity handler |
242 +-----------------------------------------------*/
243
244 arp_process_dist.update_dist(
245 p_form_name,
246 p_form_version,
247 p_backout_flag,
248 p_cust_trx_line_gl_dist_id,
249 p_customer_trx_id,
250 l_dist_rec,
251 p_header_gl_date,
252 p_trx_date,
253 p_invoicing_rule_id,
254 p_backout_done_flag,
255 p_exchange_rate,
256 p_base_currency_code,
257 p_base_precision,
258 p_base_mau );
259
260 IF PG_DEBUG in ('Y', 'C') THEN
261 arp_util.debug('arp_process_dist.update_dist_cover()-',
262 pg_msg_level_debug);
263 END IF;
264
265 EXCEPTION
266 WHEN OTHERS THEN
267
268 IF PG_DEBUG in ('Y', 'C') THEN
269 arp_util.debug('EXCEPTION: arp_process_dist.update_dist_cover()',
270 pg_msg_level_debug);
271 arp_util.debug('------- parameters for update_dist_cover() ' ||
272 '---------',
273 pg_msg_level_debug);
274 arp_util.debug('update_dist_cover: ' || 'p_form_name = ' || p_form_name,
275 pg_msg_level_debug);
276 arp_util.debug('update_dist_cover: ' || 'p_form_version = ' || p_form_version,
277 pg_msg_level_debug);
278 arp_util.debug('update_dist_cover: ' || 'p_backout_flag = ' ||
279 arp_trx_util.boolean_to_varchar2(p_backout_flag),
280 pg_msg_level_debug);
281 arp_util.debug('update_dist_cover: ' || 'p_exchange_rate = ' || p_exchange_rate,
282 pg_msg_level_debug);
283 arp_util.debug('update_dist_cover: ' || 'p_base_currency_code = ' || p_base_currency_code,
284 pg_msg_level_debug);
285 arp_util.debug('update_dist_cover: ' || 'p_base_precision = ' || p_base_precision,
286 pg_msg_level_debug);
287 arp_util.debug('update_dist_cover: ' || 'p_base_mau = ' || p_base_mau,
288 pg_msg_level_debug);
289 arp_util.debug('update_dist_cover: ' || 'p_cust_trx_line_gl_dist_id = ' ||
290 p_cust_trx_line_gl_dist_id,
291 pg_msg_level_debug);
292 arp_util.debug('update_dist_cover: ' || 'p_customer_trx_id = ' || p_customer_trx_id,
293 pg_msg_level_debug);
294 arp_util.debug('update_dist_cover: ' || 'p_customer_trx_line_id = ' || p_customer_trx_line_id,
295 pg_msg_level_debug);
296 arp_util.debug('update_dist_cover: ' || 'p_cust_trx_line_salesrep_id = ' ||
297 p_cust_trx_line_salesrep_id,
298 pg_msg_level_debug);
299 arp_util.debug('update_dist_cover: ' || 'p_account_class = ' || p_account_class,
300 pg_msg_level_debug);
301 arp_util.debug('update_dist_cover: ' || 'p_percent = ' || p_percent,
302 pg_msg_level_debug);
303 arp_util.debug('update_dist_cover: ' || 'p_amount = ' || p_amount,
304 pg_msg_level_debug);
305 arp_util.debug('update_dist_cover: ' || 'p_gl_date = ' || p_gl_date,
306 pg_msg_level_debug);
307 arp_util.debug('update_dist_cover: ' || 'p_gl_posted_date = ' || p_gl_posted_date,
308 pg_msg_level_debug);
309 arp_util.debug('update_dist_cover: ' || 'p_original_gl_date = ' || p_original_gl_date,
310 pg_msg_level_debug);
311 arp_util.debug('update_dist_cover: ' || 'p_code_combination_id = ' || p_code_combination_id,
312 pg_msg_level_debug);
313 arp_util.debug('update_dist_cover: ' || 'p_concatenated_segments = ' || p_concatenated_segments,
314 pg_msg_level_debug);
315 arp_util.debug('update_dist_cover: ' || 'p_collected_tax_ccid = ' || p_collected_tax_ccid,
316 pg_msg_level_debug);
317 arp_util.debug('update_dist_cover: ' || 'p_collected_tax_concat_seg = ' || p_collected_tax_concat_seg,
318 pg_msg_level_debug);
319 arp_util.debug('update_dist_cover: ' || 'p_comments = ' || p_comments,
320 pg_msg_level_debug);
321 arp_util.debug('update_dist_cover: ' || 'p_account_set_flag = ' || p_account_set_flag,
322 pg_msg_level_debug);
323 arp_util.debug('update_dist_cover: ' || 'p_latest_rec_flag = ' || p_latest_rec_flag,
324 pg_msg_level_debug);
325 arp_util.debug('update_dist_cover: ' || 'p_ussgl_transaction_code = ' ||
326 p_ussgl_transaction_code,
327 pg_msg_level_debug);
328 arp_util.debug('update_dist_cover: ' || 'p_ussgl_trx_code_context = ' ||
329 p_ussgl_trx_code_context,
330 pg_msg_level_debug);
331 arp_util.debug('update_dist_cover: ' || 'p_attribute_category = ' || p_attribute_category,
332 pg_msg_level_debug);
333 arp_util.debug('update_dist_cover: ' || 'p_attribute1 = ' || p_attribute1,
334 pg_msg_level_debug);
335 arp_util.debug('update_dist_cover: ' || 'p_attribute2 = ' || p_attribute2,
336 pg_msg_level_debug);
337 arp_util.debug('update_dist_cover: ' || 'p_attribute3 = ' || p_attribute3,
338 pg_msg_level_debug);
339 arp_util.debug('update_dist_cover: ' || 'p_attribute4 = ' || p_attribute4,
340 pg_msg_level_debug);
341 arp_util.debug('update_dist_cover: ' || 'p_attribute5 = ' || p_attribute5,
342 pg_msg_level_debug);
343 arp_util.debug('update_dist_cover: ' || 'p_attribute6 = ' || p_attribute6,
344 pg_msg_level_debug);
345 arp_util.debug('update_dist_cover: ' || 'p_attribute7 = ' || p_attribute7,
346 pg_msg_level_debug);
347 arp_util.debug('update_dist_cover: ' || 'p_attribute8 = ' || p_attribute8,
348 pg_msg_level_debug);
349 arp_util.debug('update_dist_cover: ' || 'p_attribute9 = ' || p_attribute9,
350 pg_msg_level_debug);
351 arp_util.debug('update_dist_cover: ' || 'p_attribute10 = ' || p_attribute10,
352 pg_msg_level_debug);
353 arp_util.debug('update_dist_cover: ' || 'p_attribute11 = ' || p_attribute11,
354 pg_msg_level_debug);
355 arp_util.debug('update_dist_cover: ' || 'p_attribute12 = ' || p_attribute12,
356 pg_msg_level_debug);
357 arp_util.debug('update_dist_cover: ' || 'p_attribute13 = ' || p_attribute13,
358 pg_msg_level_debug);
359 arp_util.debug('update_dist_cover: ' || 'p_attribute14 = ' || p_attribute14,
360 pg_msg_level_debug);
361 arp_util.debug('update_dist_cover: ' || 'p_attribute15 = ' || p_attribute15,
362 pg_msg_level_debug);
363 arp_util.debug('update_dist_cover: ' || 'p_posting_control_id = ' || p_posting_control_id,
364 pg_msg_level_debug);
365 arp_util.debug('update_dist_cover: ' || 'p_header_gl_date = ' || p_header_gl_date,
366 pg_msg_level_debug);
367 arp_util.debug('update_dist_cover: ' || 'p_trx_date = ' || p_trx_date,
368 pg_msg_level_debug);
369 arp_util.debug('update_dist_cover: ' || 'p_invoicing_rule_id = ' || p_invoicing_rule_id,
370 pg_msg_level_debug);
371 END IF;
372
373 RAISE;
374
375 END update_dist_cover;
376
377 /*---------------------------------------------+
378 | Package initialization section. |
379 +---------------------------------------------*/
380
381 BEGIN
382
383 pg_msg_level_debug := arp_global.MSG_LEVEL_DEBUG;
384
385 END ARP_UPDATE_DIST_COVER;