[Home] [Help]
PACKAGE BODY: APPS.ARP_APP_PKG
Source
1 PACKAGE BODY ARP_APP_PKG AS
2 /* $Header: ARCIAPPB.pls 120.12 2006/12/14 03:16:21 mraymond ship $*/
3
4 /*===========================================================================+
5 | FUNCTION |
6 | revision |
7 | |
8 | DESCRIPTION |
9 | This function returns the revision number of this package. |
10 | |
11 | SCOPE - PUBLIC |
12 | |
13 | RETURNS : Revision number of this package |
14 | |
15 | MODIFICATION HISTORY |
16 | 6/25/1996 Harri Kaukovuo Created |
17 +===========================================================================*/
18
19 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
20 FUNCTION revision RETURN VARCHAR2 IS
21 BEGIN
22 RETURN '$Revision: 120.12 $';
23 END revision;
24
25 /*===========================================================================+
26 | PROCEDURE |
27 | insert_p |
28 | |
29 | DESCRIPTION |
30 | This function inserts a row into AR_RECEIVABLE_APPLICATIONS table |
31 | |
32 | SCOPE - PUBLIC |
33 | |
34 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
35 | |
36 | ARGUMENTS : IN: |
37 | p_ra_rec - receivable applications record structure |
38 | IN/OUT: |
39 | p_ra_id - receivable application id of inserted row |
40 | |
41 | RETURNS : NONE |
42 | |
43 | NOTES |
44 | |
45 | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
46 | 07/11/1997 K.Lawrance Release 11. |
47 | Removed obsolete columns from insert |
48 | statement: on_account_customer, |
49 | receivables_trx_id, reversal_gl_date_context.|
50 | Added new cross currency columns to insert |
51 | statement: amount_applied_from, |
52 | trans_to_receipt_rate. |
53 | 08/21/1997 Tasman Tang Added global_attribute_category and |
54 | global_attribute[1-20] to insert statement |
55 | for global descriptive flexfield |
56 | |
57 | 20-MAR-2000 J Rautiainen Added BR project related column |
58 | LINK_TO_TRX_HIST_ID and |
59 | LINK_TO_CUSTOMER_TRX_ID into table handlers. |
60 | also re-introduced receivables_trx_id |
61 | |
62 | 31-OCT-2000 Y Rakotonirainy Bug 1243304 : Added columns tax_code and |
63 | unedisc_tax_acct_rule |
64 | into the table handlers. |
65 | |
66 | 10-NOV-2000 Y Rakotonirainy Bug 1243304 : Added column |
67 | edisc_tax_acct_rule |
68 | into the table handlers. |
69 | 15-Sep-2001 S.Nambiar Aded a new column payment_set_id for prepayment|
70 | 13-MAR-2002 J.Beckett Added new columns application_ref_reason and |
71 | customer_reference (bug 2254777) |
72 | 06-FEB-2003 J.Beckett Bug 2751910 - Added customer_reason and |
73 | applied_rec_app_id |
74 | 07-DEC-2006 MRAYMOND 5677984 - changed p_ra_id from IN to IN/OUT
75 +===========================================================================*/
76 PROCEDURE insert_p(
77 p_ra_rec IN ar_receivable_applications%ROWTYPE
78 , p_ra_id IN OUT NOCOPY ar_receivable_applications.receivable_application_id%TYPE ) IS
79 l_ra_id ar_receivable_applications.receivable_application_id%TYPE;
80 BEGIN
81 arp_standard.debug( 'arp_app_pkg.insert_p()+' );
82 arp_standard.debug(' p_ra_id = ' || p_ra_id);
83 IF p_ra_id IS NULL
84 THEN
85 SELECT ar_receivable_applications_s.nextval
86 INTO l_ra_id
87 FROM dual;
88 arp_standard.debug(' assigned l_ra_id = ' || l_ra_id);
89 ELSE
90 l_ra_id := p_ra_id;
91 END IF;
92
93 INSERT INTO ar_receivable_applications (
94 receivable_application_id,
95 acctd_amount_applied_from,
96 amount_applied,
97 amount_applied_from,
98 trans_to_receipt_rate,
99 application_rule,
100 application_type,
101 apply_date,
102 code_combination_id,
103 created_by,
104 creation_date,
105 display,
106 gl_date,
107 last_updated_by,
108 last_update_date,
109 payment_schedule_id,
110 set_of_books_id,
111 status,
112 acctd_amount_applied_to,
113 acctd_earned_discount_taken,
114 acctd_unearned_discount_taken,
115 applied_customer_trx_id,
116 applied_customer_trx_line_id,
117 applied_payment_schedule_id,
118 cash_receipt_id,
119 comments,
120 confirmed_flag,
121 customer_trx_id,
122 days_late,
123 earned_discount_taken,
124 freight_applied,
125 gl_posted_date,
126 last_update_login,
127 line_applied,
128 postable,
129 posting_control_id,
130 program_application_id,
131 program_id,
132 program_update_date,
133 receivables_charges_applied,
134 request_id,
135 tax_applied,
136 unearned_discount_taken,
137 unearned_discount_ccid,
138 earned_discount_ccid,
139 ussgl_transaction_code,
140 attribute_category,
141 attribute1,
142 attribute2,
143 attribute3,
144 attribute4,
145 attribute5,
146 attribute6,
147 attribute7,
148 attribute8,
149 attribute9,
150 attribute10,
151 attribute11,
152 attribute12,
153 attribute13,
154 attribute14,
155 attribute15,
156 global_attribute_category,
157 global_attribute1,
158 global_attribute2,
159 global_attribute3,
160 global_attribute4,
161 global_attribute5,
162 global_attribute6,
163 global_attribute7,
164 global_attribute8,
165 global_attribute9,
166 global_attribute10,
167 global_attribute11,
168 global_attribute12,
169 global_attribute13,
170 global_attribute14,
171 global_attribute15,
172 global_attribute16,
173 global_attribute17,
174 global_attribute18,
175 global_attribute19,
176 global_attribute20,
177 ussgl_transaction_code_context,
178 reversal_gl_date,
179 cash_receipt_history_id,
180 line_ediscounted,
181 line_uediscounted,
182 tax_ediscounted,
183 tax_uediscounted,
184 freight_ediscounted,
185 freight_uediscounted,
186 charges_ediscounted,
187 charges_uediscounted,
188 rule_set_id,
189 link_to_trx_hist_id,
190 link_to_customer_trx_id,
191 receivables_trx_id,
192 tax_code,
193 unedisc_tax_acct_rule,
194 edisc_tax_acct_rule,
195 secondary_application_ref_id,
196 secondary_application_ref_type,
197 secondary_application_ref_num,
198 application_ref_type,
199 application_ref_id,
200 application_ref_num,
201 payment_set_id,
202 application_ref_reason,
203 customer_reference,
204 customer_reason,
205 applied_rec_app_id
206 ,org_id
207 ,upgrade_method
208 )
209 VALUES ( l_ra_id,
210 p_ra_rec.acctd_amount_applied_from,
211 p_ra_rec.amount_applied,
212 p_ra_rec.amount_applied_from,
213 p_ra_rec.trans_to_receipt_rate,
214 p_ra_rec.application_rule,
215 p_ra_rec.application_type,
216 p_ra_rec.apply_date,
217 p_ra_rec.code_combination_id,
218 arp_standard.profile.user_id,
219 SYSDATE,
220 p_ra_rec.display,
221 TRUNC(p_ra_rec.gl_date),
222 arp_standard.profile.user_id,
223 SYSDATE,
224 p_ra_rec.payment_schedule_id,
225 arp_global.set_of_books_id,
226 p_ra_rec.status,
227 p_ra_rec.acctd_amount_applied_to,
228 p_ra_rec.acctd_earned_discount_taken,
229 p_ra_rec.acctd_unearned_discount_taken,
230 p_ra_rec.applied_customer_trx_id,
231 p_ra_rec.applied_customer_trx_line_id,
232 p_ra_rec.applied_payment_schedule_id,
233 p_ra_rec.cash_receipt_id,
234 p_ra_rec.comments,
235 p_ra_rec.confirmed_flag,
236 p_ra_rec.customer_trx_id,
237 p_ra_rec.days_late,
238 p_ra_rec.earned_discount_taken,
239 p_ra_rec.freight_applied,
240 p_ra_rec.gl_posted_date,
241 NVL( arp_standard.profile.last_update_login,
242 p_ra_rec.last_update_login ),
243 p_ra_rec.line_applied,
244 p_ra_rec.postable,
245 p_ra_rec.posting_control_id,
246 NVL( arp_standard.profile.program_application_id,
247 p_ra_rec.program_application_id ),
248 NVL(
249 decode(arp_standard.profile.program_id
250 ,-1,p_ra_rec.program_id)
251 ,p_ra_rec.program_id),
252 DECODE( arp_standard.profile.program_id,
253 NULL, NULL, SYSDATE ),
254 p_ra_rec.receivables_charges_applied,
255 NVL( arp_standard.profile.request_id, p_ra_rec.request_id ),
256 p_ra_rec.tax_applied,
257 p_ra_rec.unearned_discount_taken,
258 p_ra_rec.unearned_discount_ccid,
259 p_ra_rec.earned_discount_ccid,
260 p_ra_rec.ussgl_transaction_code,
261 p_ra_rec.attribute_category,
262 p_ra_rec.attribute1,
263 p_ra_rec.attribute2,
264 p_ra_rec.attribute3,
265 p_ra_rec.attribute4,
266 p_ra_rec.attribute5,
267 p_ra_rec.attribute6,
268 p_ra_rec.attribute7,
269 p_ra_rec.attribute8,
270 p_ra_rec.attribute9,
271 p_ra_rec.attribute10,
272 p_ra_rec.attribute11,
273 p_ra_rec.attribute12,
274 p_ra_rec.attribute13,
275 p_ra_rec.attribute14,
276 p_ra_rec.attribute15,
277 p_ra_rec.global_attribute_category,
278 p_ra_rec.global_attribute1,
279 p_ra_rec.global_attribute2,
280 p_ra_rec.global_attribute3,
281 p_ra_rec.global_attribute4,
282 p_ra_rec.global_attribute5,
283 p_ra_rec.global_attribute6,
284 p_ra_rec.global_attribute7,
285 p_ra_rec.global_attribute8,
286 p_ra_rec.global_attribute9,
287 p_ra_rec.global_attribute10,
288 p_ra_rec.global_attribute11,
289 p_ra_rec.global_attribute12,
290 p_ra_rec.global_attribute13,
291 p_ra_rec.global_attribute14,
292 p_ra_rec.global_attribute15,
293 p_ra_rec.global_attribute16,
294 p_ra_rec.global_attribute17,
295 p_ra_rec.global_attribute18,
296 p_ra_rec.global_attribute19,
297 p_ra_rec.global_attribute20,
298 p_ra_rec.ussgl_transaction_code_context,
299 p_ra_rec.reversal_gl_date,
300 p_ra_rec.cash_receipt_history_id,
301 p_ra_rec.line_ediscounted,
302 p_ra_rec.line_uediscounted,
303 p_ra_rec.tax_ediscounted,
304 p_ra_rec.tax_uediscounted,
305 p_ra_rec.freight_ediscounted,
306 p_ra_rec.freight_uediscounted,
307 p_ra_rec.charges_ediscounted,
308 p_ra_rec.charges_uediscounted,
309 p_ra_rec.rule_set_id,
310 p_ra_rec.link_to_trx_hist_id,
311 p_ra_rec.link_to_customer_trx_id,
312 p_ra_rec.receivables_trx_id,
313 p_ra_rec.tax_code,
314 p_ra_rec.unedisc_tax_acct_rule,
315 p_ra_rec.edisc_tax_acct_rule,
316 p_ra_rec.secondary_application_ref_id,
317 p_ra_rec.secondary_application_ref_type,
318 p_ra_rec.secondary_application_ref_num,
319 p_ra_rec.application_ref_type,
320 p_ra_rec.application_ref_id,
321 p_ra_rec.application_ref_num,
322 p_ra_rec.payment_set_id,
323 p_ra_rec.application_ref_reason,
324 p_ra_rec.customer_reference,
325 p_ra_rec.customer_reason,
326 p_ra_rec.applied_rec_app_id
327 ,arp_standard.sysparm.org_id /* SSA changes anuj */
328 ,'R12'
329 );
330 p_ra_id := l_ra_id;
331
332 arp_standard.debug( 'arp_app_pkg.insert_p()-' );
333 EXCEPTION
334 WHEN OTHERS THEN
335 arp_standard.debug(
336 'EXCEPTION: arp_app_pkg.insert_p' );
337 arp_standard.debug('SYSDATE = ' || SYSDATE);
338 arp_standard.debug('arp_standard.profile.user_id = ' || TO_CHAR(arp_standard.profile.user_id));
339 arp_standard.debug('last_update_login = ' || NVL(TO_CHAR(NVL( arp_standard.profile.last_update_login,
340 p_ra_rec.last_update_login) ), '<NULL>'));
341 arp_standard.debug('---------------------------');
342 arp_standard.debug('ra_id = ' || l_ra_id);
343 arp_standard.debug('last_updated_by ' || to_char(arp_standard.profile.user_id));
344 arp_standard.debug('last_update_date ' || SYSDATE);
345 arp_standard.debug('created_by ' || to_char(arp_standard.profile.user_id));
346 arp_standard.debug('amount_applied ' || to_char(p_ra_rec.amount_applied));
347 arp_standard.debug('amount_applied_from ' || to_char(p_ra_rec.amount_applied_from));
348 arp_standard.debug('trans_to_receipt_rate ' || to_char(p_ra_rec.trans_to_receipt_rate));
349 arp_standard.debug('gl_date ' || p_ra_rec.gl_date);
350 arp_standard.debug('ccid ' || to_char(arp_global.set_of_books_id));
351 arp_standard.debug('display ' || p_ra_rec.display);
352 arp_standard.debug('apply_Date ' || p_ra_rec.apply_date);
353 arp_standard.debug('application_type ' || p_ra_rec.application_type);
354 arp_standard.debug('status ' || p_ra_rec.status);
355 arp_standard.debug('payment_schedule_id ' || to_char(p_ra_rec.payment_schedule_id));
356 arp_standard.debug('application_rule ' || p_ra_rec.application_rule);
357 arp_standard.debug('posting_control_id ' || to_char(p_ra_rec.posting_control_id));
358 arp_standard.debug('acctd_amount_applied_from ' || to_char(p_ra_rec.acctd_amount_applied_from));
359 arp_standard.debug('p_ra_rec.line_ediscounted='||to_char(p_ra_rec.line_ediscounted));
360 arp_standard.debug('p_ra_rec.line_uediscounted='||to_char(p_ra_rec.line_uediscounted));
361 arp_standard.debug('p_ra_rec.tax_ediscounted='||to_char(p_ra_rec.tax_ediscounted));
362 arp_standard.debug('p_ra_rec.tax_uediscounted='||to_char(p_ra_rec.tax_uediscounted));
363 arp_standard.debug('p_ra_rec.freight_ediscounted='||to_char(p_ra_rec.freight_ediscounted));
364 arp_standard.debug('p_ra_rec.freight_uediscounted='||to_char(p_ra_rec.freight_uediscounted));
365 arp_standard.debug('p_ra_rec.charges_ediscounted='||to_char(p_ra_rec.charges_ediscounted));
366 arp_standard.debug('p_ra_rec.charges_uediscounted='||to_char(p_ra_rec.charges_uediscounted));
367 arp_standard.debug('p_ra_rec.rule_set_id='||to_char(p_ra_rec.rule_set_id));
368 arp_standard.debug('tax_code=' || p_ra_rec.tax_code);
369 arp_standard.debug('unedisc_tax_acct_rule=' || p_ra_rec.unedisc_tax_acct_rule);
370 arp_standard.debug('edisc_tax_acct_rule=' || p_ra_rec.edisc_tax_acct_rule);
371 arp_standard.debug('application_ref_type='||p_ra_rec.application_ref_type);
372 arp_standard.debug('application_ref_id='||p_ra_rec.application_ref_id);
373 arp_standard.debug('application_ref_num='||p_ra_rec.application_ref_num);
374 arp_standard.debug('secondary_application_ref_id='||to_char(p_ra_rec.secondary_application_ref_id));
375 arp_standard.debug('secondary_application_ref_num='||p_ra_rec.secondary_application_ref_num);
376 arp_standard.debug('secondary_application_ref_type='||p_ra_rec.secondary_application_ref_type);
377 arp_standard.debug('payment_set_id='||to_char(p_ra_rec.payment_set_id));
378 arp_standard.debug('application_ref_reason='||p_ra_rec.application_ref_reason);
379 arp_standard.debug('customer_reference='||p_ra_rec.customer_reference);
380 arp_standard.debug('customer_reason='||p_ra_rec.customer_reason);
381 arp_standard.debug('applied_rec_app_id='||to_char(p_ra_rec.applied_rec_app_id));
382
383
384
385 RAISE;
386 END;
387 --
388 /*===========================================================================+
389 | PROCEDURE |
390 | update_p |
391 | |
392 | DESCRIPTION |
393 | This function updates a row into AR_RECEIVABLE_APPLICATIONS table |
394 | |
395 | SCOPE - PUBLIC |
396 | |
397 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
398 | |
399 | ARGUMENTS : IN: |
400 | p_ra_rec - Receivable applications strcuture |
401 | |
402 | RETURNS : NONE |
403 | |
404 | NOTES |
405 | |
406 | MODIFICATION HISTORY |
407 | 4/25/1995 Ganesh Vaidee Created |
408 | 6/25/1996 Harri Kaukovuo Added the values of columns to be returned |
409 | in case of exception. |
410 | 07/11/1997 K.Lawrance Release 11. |
411 | Removed obsolete columns from update |
412 | statement: on_account_customer, |
413 | receivables_trx_id, reversal_gl_date_context.|
414 | Added new cross currency columns to update |
415 | statement: amount_applied_from, |
416 | trans_to_receipt_rate. |
417 | 08/21/1997 Tasman Tang Added global_attribute_category and |
418 | global_attribute[1-20] to update statement |
419 | for global descriptive flexfield |
420 | |
421 | 20-MAR-2000 J Rautiainen Added BR project related column |
422 | LINK_TO_TRX_HIST_ID and |
423 | LINK_TO_CUSTOMER_TRX_ID into table handlers. |
424 | also re-introduced receivables_trx_id |
425 | |
426 | 31-OCT-2000 Y Rakotonirainy Bug 1243304 : Added columns tax_code and |
427 | unedisc_tax_acct_rule |
428 | into the table handlers. |
429 | |
430 | 10-NOV-2000 Y Rakotonirainy Bug 1243304 : Added column |
431 | edisc_tax_acct_rule |
432 | into the table handlers. |
433 | 07-Jun-2001 S.Nambiar Bug 1815528 Aded a new claim related columns |
434 | for update routine
435 | 15-Sep-2001 S.Nambiar Aded a new column payment_set_id for prepayment|
436 | 13-MAR-2002 J.Beckett Added new columns application_ref_reason and |
437 | customer_reference (bug 2254777) |
438 | 06-FEB-2003 J.Beckett Bug 2751910 - Added customer_reason and |
439 | applied_rec_app_id |
440 +===========================================================================*/
441 PROCEDURE update_p( p_ra_rec IN ar_receivable_applications%ROWTYPE ) IS
442 lc_dump VARCHAR2(30000);
443
444 BEGIN
445 arp_standard.debug( 'arp_app_pkg.update_p()+' );
446
447 UPDATE ar_receivable_applications ra SET
448 acctd_amount_applied_from =
449 p_ra_rec.acctd_amount_applied_from,
450 amount_applied = p_ra_rec.amount_applied,
451 amount_applied_from = p_ra_rec.amount_applied_from,
452 trans_to_receipt_rate = p_ra_rec.trans_to_receipt_rate,
453 application_rule = p_ra_rec.application_rule,
454 application_type = p_ra_rec.application_type,
455 apply_date = p_ra_rec.apply_date,
456 code_combination_id = p_ra_rec.code_combination_id,
457 display = p_ra_rec.display,
458 gl_date = p_ra_rec.gl_date,
459 last_updated_by = arp_standard.profile.user_id,
460 last_update_date = SYSDATE,
461 payment_schedule_id = p_ra_rec.payment_schedule_id,
462 set_of_books_id = p_ra_rec.set_of_books_id,
463 status = p_ra_rec.status,
464 acctd_amount_applied_to = p_ra_rec.acctd_amount_applied_to,
465 acctd_earned_discount_taken =
466 p_ra_rec.acctd_earned_discount_taken,
467 acctd_unearned_discount_taken =
468 p_ra_rec.acctd_unearned_discount_taken,
469 applied_customer_trx_id = p_ra_rec.applied_customer_trx_id,
470 applied_customer_trx_line_id =
471 p_ra_rec.applied_customer_trx_line_id,
472 applied_payment_schedule_id =
473 p_ra_rec.applied_payment_schedule_id,
474 cash_receipt_id = p_ra_rec.cash_receipt_id,
475 comments = p_ra_rec.comments,
476 confirmed_flag = p_ra_rec.confirmed_flag,
477 customer_trx_id = p_ra_rec.customer_trx_id,
478 days_late = p_ra_rec.days_late,
479 earned_discount_taken = p_ra_rec.earned_discount_taken,
480 freight_applied = p_ra_rec.freight_applied,
481 gl_posted_date = p_ra_rec.gl_posted_date,
482 last_update_login =
483 NVL( arp_standard.profile.last_update_login,
484 p_ra_rec.last_update_login ),
485 line_applied = p_ra_rec.line_applied,
486 postable = p_ra_rec.postable,
487 posting_control_id = p_ra_rec.posting_control_id,
488 program_application_id =
489 NVL( arp_standard.profile.program_application_id,
490 p_ra_rec.program_application_id ),
491 program_id = NVL( arp_standard.profile.program_id,
492 p_ra_rec.program_id ),
493 program_update_date = DECODE( arp_standard.profile.program_id,
494 NULL, NULL,
495 SYSDATE
496 ),
497 receivables_charges_applied =
498 p_ra_rec.receivables_charges_applied,
499 request_id = NVL( arp_standard.profile.request_id,
500 p_ra_rec.request_id ),
501 tax_applied = p_ra_rec.tax_applied,
502 unearned_discount_taken = p_ra_rec.unearned_discount_taken,
503 unearned_discount_ccid = p_ra_rec.unearned_discount_ccid,
504 earned_discount_ccid = p_ra_rec.earned_discount_ccid,
505 ussgl_transaction_code = p_ra_rec.ussgl_transaction_code,
506 attribute_category = p_ra_rec.attribute_category,
507 attribute1 = p_ra_rec.attribute1,
508 attribute2 = p_ra_rec.attribute2,
509 attribute3 = p_ra_rec.attribute3,
510 attribute4 = p_ra_rec.attribute4,
511 attribute5 = p_ra_rec.attribute5,
512 attribute6 = p_ra_rec.attribute6,
513 attribute7 = p_ra_rec.attribute7,
514 attribute8 = p_ra_rec.attribute8,
515 attribute9 = p_ra_rec.attribute9,
516 attribute10 = p_ra_rec.attribute10,
517 attribute11 = p_ra_rec.attribute11,
518 attribute12 = p_ra_rec.attribute12,
519 attribute13 = p_ra_rec.attribute13,
520 attribute14 = p_ra_rec.attribute14,
521 attribute15 = p_ra_rec.attribute15,
522 global_attribute_category = p_ra_rec.global_attribute_category,
523 global_attribute1 = p_ra_rec.global_attribute1,
524 global_attribute2 = p_ra_rec.global_attribute2,
525 global_attribute3 = p_ra_rec.global_attribute3,
526 global_attribute4 = p_ra_rec.global_attribute4,
527 global_attribute5 = p_ra_rec.global_attribute5,
528 global_attribute6 = p_ra_rec.global_attribute6,
529 global_attribute7 = p_ra_rec.global_attribute7,
530 global_attribute8 = p_ra_rec.global_attribute8,
531 global_attribute9 = p_ra_rec.global_attribute9,
532 global_attribute10 = p_ra_rec.global_attribute10,
533 global_attribute11 = p_ra_rec.global_attribute11,
534 global_attribute12 = p_ra_rec.global_attribute12,
535 global_attribute13 = p_ra_rec.global_attribute13,
536 global_attribute14 = p_ra_rec.global_attribute14,
537 global_attribute15 = p_ra_rec.global_attribute15,
538 global_attribute16 = p_ra_rec.global_attribute16,
539 global_attribute17 = p_ra_rec.global_attribute17,
540 global_attribute18 = p_ra_rec.global_attribute18,
541 global_attribute19 = p_ra_rec.global_attribute19,
542 global_attribute20 = p_ra_rec.global_attribute20,
543 ussgl_transaction_code_context =
544 p_ra_rec.ussgl_transaction_code_context,
545 reversal_gl_date = p_ra_rec.reversal_gl_date,
546 cash_receipt_history_id = p_ra_rec.cash_receipt_history_id,
547 line_ediscounted = p_ra_rec.line_ediscounted,
548 line_uediscounted = p_ra_rec.line_uediscounted,
549 tax_ediscounted = p_ra_rec.tax_ediscounted,
550 tax_uediscounted = p_ra_rec.tax_uediscounted,
551 freight_ediscounted = p_ra_rec.freight_ediscounted,
552 freight_uediscounted = p_ra_rec.freight_uediscounted,
553 charges_ediscounted = p_ra_rec.charges_ediscounted,
554 charges_uediscounted = p_ra_rec.charges_uediscounted,
555 rule_set_id = p_ra_rec.rule_set_id,
556 link_to_trx_hist_id = p_ra_rec.link_to_trx_hist_id,
557 link_to_customer_trx_id = p_ra_rec.link_to_customer_trx_id,
558 receivables_trx_id = p_ra_rec.receivables_trx_id,
559 tax_code = p_ra_rec.tax_code,
560 unedisc_tax_acct_rule = p_ra_rec.unedisc_tax_acct_rule,
561 edisc_tax_acct_rule = p_ra_rec.edisc_tax_acct_rule,
562 --Bug 1815528 Claim related columns added
563 application_ref_type = p_ra_rec.application_ref_type,
564 application_ref_id = p_ra_rec.application_ref_id,
565 application_ref_num = p_ra_rec.application_ref_num,
566 secondary_application_ref_id = p_ra_rec.secondary_application_ref_id,
567 secondary_application_ref_type = p_ra_rec.secondary_application_ref_type,
568 secondary_application_ref_num = p_ra_rec.secondary_application_ref_num,
569 --Added for prepayment
570 payment_set_id = p_ra_rec.payment_set_id,
571 application_ref_reason = p_ra_rec.application_ref_reason,
572 customer_reference = p_ra_rec.customer_reference,
573 customer_reason = p_ra_rec.customer_reason,
574 applied_rec_app_id = p_ra_rec.applied_rec_app_id
575 WHERE ra.receivable_application_id = p_ra_rec.receivable_application_id;
576
577 arp_standard.debug('arp_app_pkg.update_p()-' );
578
579 EXCEPTION
580 WHEN OTHERS THEN
581 arp_standard.debug( 'EXCEPTION: arp_app_pkg.update_p' );
582
583 -- Dump all parameter values and return them to error stack
584 -- for debugging purposes.
585 lc_dump := 'DUMP of procedure parameter values:'
586 || 'p_ra_rec.acctd_amount_applied_from='||
587 to_char(p_ra_rec.acctd_amount_applied_from)||
588 ','||'p_ra_rec.amount_applied'||to_char(p_ra_rec.amount_applied)||
589 ','||'p_ra_rec.amount_applied_from'||to_char(p_ra_rec.amount_applied_from)||
590 ','||'p_ra_rec.trans_to_receipt_rate'||to_char(p_ra_rec.trans_to_receipt_rate)||
591 ','||' p_ra_rec.application_rule'||p_ra_rec.application_rule||
592 ','||' p_ra_rec.application_type'||p_ra_rec.application_type||
593 ','||' p_ra_rec.apply_date'||TO_CHAR( p_ra_rec.apply_date)||
594 ','||' p_ra_rec.code_combination_id'||TO_CHAR( p_ra_rec.code_combination_id)||
595 ','||' p_ra_rec.display'||p_ra_rec.display||
596 ','||' p_ra_rec.gl_date'||TO_CHAR( p_ra_rec.gl_date)||
597 ','||' arp_standard.profile.user_id'||TO_CHAR( arp_standard.profile.user_id)||
598 ','||' SYSDATE='||TO_CHAR( SYSDATE)||
599 ','||' p_ra_rec.payment_schedule_id='||TO_CHAR( p_ra_rec.payment_schedule_id)||
600 ','||' p_ra_rec.set_of_books_id='||TO_CHAR( p_ra_rec.set_of_books_id)||
601 ','||' p_ra_rec.status='||p_ra_rec.status||
602 ','||' p_ra_rec.acctd_amount_applied_to='||TO_CHAR( p_ra_rec.acctd_amount_applied_to)||
603 ','||' p_ra_rec.acctd_earned_discount_taken='||TO_CHAR( p_ra_rec.acctd_earned_discount_taken)||
604 ','||' p_ra_rec.acctd_unearned_discount_taken='||TO_CHAR( p_ra_rec.acctd_unearned_discount_taken)||
605 ','||' p_ra_rec.applied_customer_trx_id='||TO_CHAR( p_ra_rec.applied_customer_trx_id)||
606 ','||' p_ra_rec.applied_customer_trx_line_id='||TO_CHAR( p_ra_rec.applied_customer_trx_line_id)||
607 ','||'p_ra_rec.applied_payment_schedule_id='||TO_CHAR(p_ra_rec.applied_payment_schedule_id)||
608 ','||' p_ra_rec.cash_receipt_id='||TO_CHAR( p_ra_rec.cash_receipt_id)||
609 ','||' p_ra_rec.comments='||p_ra_rec.comments||
610 ','||' p_ra_rec.confirmed_flag='||p_ra_rec.confirmed_flag||
611 ','||' p_ra_rec.customer_trx_id='||TO_CHAR( p_ra_rec.customer_trx_id)||
612 ','||' p_ra_rec.days_late='||TO_CHAR( p_ra_rec.days_late)||
613 ','||' p_ra_rec.earned_discount_taken='||TO_CHAR( p_ra_rec.earned_discount_taken)||
614 ','||' p_ra_rec.freight_applied='||TO_CHAR( p_ra_rec.freight_applied)||
615 ','||' p_ra_rec.gl_posted_date='||TO_CHAR( p_ra_rec.gl_posted_date)||
616 ','||' p_ra_rec.line_applied='||TO_CHAR( p_ra_rec.line_applied)||
617 ','||' p_ra_rec.postable='||p_ra_rec.postable||
618 ','||' p_ra_rec.posting_control_id='||TO_CHAR( p_ra_rec.posting_control_id)||
619 ','||' p_ra_rec.receivables_charges_applied='||TO_CHAR( p_ra_rec.receivables_charges_applied)||
620 ','||' p_ra_rec.tax_applied='||TO_CHAR( p_ra_rec.tax_applied)||
621 ','||' p_ra_rec.unearned_discount_taken='||TO_CHAR( p_ra_rec.unearned_discount_taken)||
622 ','||' p_ra_rec.unearned_discount_ccid='||TO_CHAR( p_ra_rec.unearned_discount_ccid)||
623 ','||' p_ra_rec.earned_discount_ccid='||TO_CHAR( p_ra_rec.earned_discount_ccid)||
624 ','||' p_ra_rec.ussgl_transaction_code='||p_ra_rec.ussgl_transaction_code||
625 ','||' p_ra_rec.attribute_category='||p_ra_rec.attribute_category||
626 ','||' p_ra_rec.attribute1='||p_ra_rec.attribute1||
627 ','||' p_ra_rec.attribute2='||p_ra_rec.attribute2||
628 ','||' p_ra_rec.attribute3='||p_ra_rec.attribute3||
629 ','||' p_ra_rec.attribute4='||p_ra_rec.attribute4||
630 ','||' p_ra_rec.attribute5='||p_ra_rec.attribute5||
631 ','||' p_ra_rec.attribute6='||p_ra_rec.attribute6||
632 ','||' p_ra_rec.attribute7='||p_ra_rec.attribute7||
633 ','||' p_ra_rec.attribute8='||p_ra_rec.attribute8||
634 ','||' p_ra_rec.attribute9='||p_ra_rec.attribute9||
635 ','||' p_ra_rec.attribute10='||p_ra_rec.attribute10||
636 ','||' p_ra_rec.attribute11='||p_ra_rec.attribute11||
637 ','||' p_ra_rec.attribute12='||p_ra_rec.attribute12||
638 ','||' p_ra_rec.attribute13='||p_ra_rec.attribute13||
639 ','||' p_ra_rec.attribute14='||p_ra_rec.attribute14||
640 ','||' p_ra_rec.attribute15='||p_ra_rec.attribute15||
641 ','||' p_ra_rec.global_attribute_category='||p_ra_rec.global_attribute_category||
642 ','||' p_ra_rec.global_attribute1='||p_ra_rec.global_attribute1||
643 ','||' p_ra_rec.global_attribute2='||p_ra_rec.global_attribute2||
644 ','||' p_ra_rec.global_attribute3='||p_ra_rec.global_attribute3||
645 ','||' p_ra_rec.global_attribute4='||p_ra_rec.global_attribute4||
646 ','||' p_ra_rec.global_attribute5='||p_ra_rec.global_attribute5||
647 ','||' p_ra_rec.global_attribute6='||p_ra_rec.global_attribute6||
648 ','||' p_ra_rec.global_attribute7='||p_ra_rec.global_attribute7||
649 ','||' p_ra_rec.global_attribute8='||p_ra_rec.global_attribute8||
650 ','||' p_ra_rec.global_attribute9='||p_ra_rec.global_attribute9||
651 ','||' p_ra_rec.global_attribute10='||p_ra_rec.global_attribute10||
652 ','||' p_ra_rec.global_attribute11='||p_ra_rec.global_attribute11||
653 ','||' p_ra_rec.global_attribute12='||p_ra_rec.global_attribute12||
654 ','||' p_ra_rec.global_attribute13='||p_ra_rec.global_attribute13||
655 ','||' p_ra_rec.global_attribute14='||p_ra_rec.global_attribute14||
656 ','||' p_ra_rec.global_attribute15='||p_ra_rec.global_attribute15||
657 ','||' p_ra_rec.global_attribute16='||p_ra_rec.global_attribute16||
658 ','||' p_ra_rec.global_attribute17='||p_ra_rec.global_attribute17||
659 ','||' p_ra_rec.global_attribute18='||p_ra_rec.global_attribute18||
660 ','||' p_ra_rec.global_attribute19='||p_ra_rec.global_attribute19||
661 ','||' p_ra_rec.global_attribute20='||p_ra_rec.global_attribute20||
662 ','||' p_ra_rec.ussgl_transaction_code_context='||p_ra_rec.ussgl_transaction_code_context||
663 ','||' p_ra_rec.reversal_gl_date='||TO_CHAR( p_ra_rec.reversal_gl_date)||
664 ','||' p_ra_rec.line_ediscounted='||to_char(p_ra_rec.line_ediscounted)||
665 ','||' p_ra_rec.line_uediscounted='||to_char(p_ra_rec.line_uediscounted)||
666 ','||' p_ra_rec.tax_ediscounted='||to_char(p_ra_rec.tax_ediscounted)||
667 ','||' p_ra_rec.tax_uediscounted='||to_char(p_ra_rec.tax_uediscounted)||
668 ','||' p_ra_rec.freight_ediscounted='||to_char(p_ra_rec.freight_ediscounted)||
669 ','||' p_ra_rec.freight_uediscounted='||to_char(p_ra_rec.freight_uediscounted)||
670 ','||' p_ra_rec.charges_ediscounted='||to_char(p_ra_rec.charges_ediscounted)||
671 ','||' p_ra_rec.charges_uediscounted='||to_char(p_ra_rec.charges_uediscounted)||
672 ','||' p_ra_rec.rule_set_id='||to_char(p_ra_rec.rule_set_id)||
673 ','||' p_ra_rec.cash_receipt_history_id='||TO_CHAR( p_ra_rec.cash_receipt_history_id)||
674 ','||' p_ra_rec.tax_code='||p_ra_rec.tax_code||
675 ','||' p_ra_rec.unedisc_tax_acct_rule='||p_ra_rec.unedisc_tax_acct_rule||
676 ','||' p_ra_rec.edisc_tax_acct_rule='||p_ra_rec.edisc_tax_acct_rule||
677 ','||' application_ref_type='||p_ra_rec.application_ref_type||
678 ','||' application_ref_id='||p_ra_rec.application_ref_id||
679 ','||' application_ref_num='||p_ra_rec.application_ref_num||
680 ','||' secondary_application_ref_id='||to_char(p_ra_rec.secondary_application_ref_id)||
681 ','||' secondary_application_ref_type='||p_ra_rec.secondary_application_ref_type||
682 ','||' secondary_application_ref_num='||p_ra_rec.secondary_application_ref_num||
683 ','||' payment_set_id='||to_char(p_ra_rec.payment_set_id)||
684 ','||' application_ref_reason ='||p_ra_rec.application_ref_reason||
685 ','||' customer_reference='||p_ra_rec.customer_reference||
686 ','||' customer_reason='||p_ra_rec.customer_reason||
687 ','||' applied_rec_app_id='||to_char(p_ra_rec.applied_rec_app_id);
688
689 FND_MESSAGE.set_name ('AR','GENERIC_MESSAGE');
690 fnd_message.set_token('GENERIC_TEXT',lc_dump);
691 APP_EXCEPTION.raise_exception;
692
693 END;
694
695 /*===========================================================================+
696 | PROCEDURE |
697 | delete_p |
698 | |
699 | DESCRIPTION |
700 | This function deletes a row from AR_RECEIVABLE_APPLICATIONS table |
701 | |
702 | SCOPE - PUBLIC |
703 | |
704 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
705 | |
706 | ARGUMENTS : IN: |
707 | p_ra_id - receivable applications id of row to be deleted|
708 | |
709 | RETURNS : NONE |
710 | |
711 | NOTES |
712 | |
713 | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
714 | |
715 | 09/09/02 M Ryzhikova Modified for MRC trigger elimination proj |
716 | added call to ar_mrc_engine for processing |
717 | delete from ar_receivable_applications |
718 | |
719 +===========================================================================*/
720 PROCEDURE delete_p(
721 p_ra_id IN ar_receivable_applications.receivable_application_id%TYPE ) IS
722 BEGIN
723 arp_standard.debug( 'arp_app_pkg.delete_p()+' );
724
725 DELETE FROM ar_receivable_applications ra
726 WHERE ra.receivable_application_id = p_ra_id;
727
728 /*----------------------------------------------------+
729 | Calling central MRC library for MRC Integration. |
730 | Do not need a call for insert or delete |
731 +-----------------------------------------------------*/
732 --{BUG4301323
733 -- ar_mrc_engine.maintain_mrc_data(
734 -- p_event_mode => 'DELETE',
735 -- p_table_name => 'AR_RECEIVABLE_APPLICATIONS',
736 -- p_mode => 'SINGLE',
737 -- p_key_value => p_ra_id);
738 --}
739
740 arp_standard.debug( 'arp_app_pkg.delete_p()-' );
741 EXCEPTION
742 WHEN OTHERS THEN
743 arp_standard.debug(
744 'EXCEPTION: arp_app_pkg.delete_p' );
745 RAISE;
746 END;
747
748 /*===========================================================================+
749 | PROCEDURE |
750 | delete_f_ct_id |
751 | DESCRIPTION |
752 | This function deletes a row from AR_RECEIVABLE_APPLICATIONS table |
753 | for a Credit Memo taking custoemr_trx_id as parameter |
754 | SCOPE - PUBLIC |
755 | |
756 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
757 | |
758 | ARGUMENTS : IN: |
759 | p_customer_trx_id - customertrx_id of row to be |
760 | deleted |
761 | |
762 | RETURNS : NONE |
763 | |
764 | NOTES |
765 | |
766 | MODIFICATION HISTORY - Created by Veena Rao - 07/24/02 |
767 | |
768 | 16-Sep-02 Debbie Jancis Modified for MRC trigger replacement |
769 | added calls to mrc engine for |
770 | processing deletes from ar rec apps |
771 +===========================================================================*/
772 -- bugfix 2217253
773 PROCEDURE delete_f_ct_id(
774 p_customer_trx_id IN ar_receivable_applications.customer_trx_id%TYPE ) IS
775 CURSOR c_ra_rec IS select receivable_application_id
776 from ar_receivable_applications
777 where customer_trx_id = p_customer_trx_id;
778
779 l_ar_dist_key_value_list gl_ca_utility_pkg.r_key_value_arr;
780
781 BEGIN
782 arp_standard.debug( 'arp_app_pkg.delete_f_ct_id()+' );
783 FOR i IN c_ra_rec LOOP
784
785 DELETE FROM ar_receivable_applications ra
786 WHERE ra.receivable_application_id = i.receivable_application_id;
787
788 /*---------------------------------+
789 | Calling central MRC library |
790 | for MRC Integration |
791 +---------------------------------*/
792 --{BUG#4301323
793 -- ar_mrc_engine.maintain_mrc_data(
794 -- p_event_mode => 'DELETE',
795 -- p_table_name => 'AR_RECEIVABLE_APPLICATIONS',
796 -- p_mode => 'SINGLE',
797 -- p_key_value => i.receivable_application_id);
798 --}
799 DELETE FROM ar_distributions
800 WHERE source_table = 'RA'
801 AND source_type = 'REC'
802 AND source_id = i.receivable_application_id
803 RETURNING line_id
804 BULK COLLECT INTO l_ar_dist_key_value_list;
805
806 /*---------------------------------+
807 | Calling central MRC library |
808 | for MRC Integration |
809 +---------------------------------*/
810 --{BUG4301323
811 -- ar_mrc_engine.maintain_mrc_data(
812 -- p_event_mode => 'DELETE',
813 -- p_table_name => 'AR_DISTRIBUTIONS',
814 -- p_mode => 'BATCH',
815 -- p_key_value_list => l_ar_dist_key_value_list);
816 --}
817 END LOOP;
818 arp_standard.debug( 'arp_app_pkg.delete_f_ct_id()-' );
819 EXCEPTION
820 WHEN OTHERS THEN
821 NULL;
822 END;
823
824 /*===========================================================================+
825 | PROCEDURE |
826 | lock_p |
827 | |
828 | DESCRIPTION |
829 | This function locks a row in AR_RECEIVABLE_APPLICATIONS table |
830 | |
831 | SCOPE - PUBLIC |
832 | |
833 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
834 | |
835 | ARGUMENTS : IN: |
836 | p_ra_id - Receivable applications id of row to be locked |
837 | |
838 | RETURNS : NONE |
839 | |
840 | NOTES |
841 | |
842 | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
843 | |
844 +===========================================================================*/
845 PROCEDURE lock_p(
846 p_ra_id IN ar_receivable_applications.receivable_application_id%TYPE ) IS
847 l_ra_id ar_receivable_applications.receivable_application_id%TYPE;
848 BEGIN
849 IF PG_DEBUG in ('Y', 'C') THEN
850 arp_standard.debug( 'arp_app_pkg.lock_p()+');
851 END IF;
852
853 SELECT ra.receivable_application_id
854 INTO l_ra_id
855 FROM ar_receivable_applications ra
856 WHERE ra.receivable_application_id = p_ra_id
857 FOR UPDATE OF STATUS NOWAIT;
858
859 IF PG_DEBUG in ('Y', 'C') THEN
860 arp_standard.debug( 'arp_app_pkg.lock_p()-');
861 END IF;
862 EXCEPTION
863 WHEN OTHERS THEN
864 IF PG_DEBUG in ('Y', 'C') THEN
865 arp_standard.debug( 'EXCEPTION: arp_app_pkg.lock_p' );
866 END IF;
867 RAISE;
868 END lock_p;
869
870 /*===========================================================================+
871 | PROCEDURE |
872 | NOWAITLOCK_P |
873 | |
874 | DESCRIPTION |
875 | This function locks a row in AR_RECEIVABLE_APPLICATIONS table. |
876 | If row is already locked procedure will return error code ORA-0054 |
877 | (normal NOWAIT error code if already locked). |
878 | |
879 | SCOPE - PUBLIC |
880 | |
881 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
882 | |
883 | ARGUMENTS : IN: |
884 | p_ra_id - Receivable applications id of row to be locked |
885 | |
886 | RETURNS : NONE |
887 | |
888 | NOTES |
889 | |
890 | MODIFICATION HISTORY |
891 | 1/26/1996 Harri Kaukovuo Created |
892 +===========================================================================*/
893 PROCEDURE nowaitlock_p(
894 p_ra_id IN ar_receivable_applications.receivable_application_id%TYPE ) IS
895 l_ra_id ar_receivable_applications.receivable_application_id%TYPE;
896 BEGIN
897 IF PG_DEBUG in ('Y', 'C') THEN
898 arp_standard.debug( 'arp_app_pkg.nowaitlock_p()+');
899 END IF;
900
901 SELECT ra.receivable_application_id
902 INTO l_ra_id
903 FROM ar_receivable_applications ra
904 WHERE ra.receivable_application_id = p_ra_id
905 FOR UPDATE OF STATUS NOWAIT;
906
907 IF PG_DEBUG in ('Y', 'C') THEN
908 arp_standard.debug( 'arp_app_pkg.nowaitlock_p()-');
909 END IF;
910 EXCEPTION
911 WHEN OTHERS THEN
912 IF PG_DEBUG in ('Y', 'C') THEN
913 arp_standard.debug( 'EXCEPTION: arp_app_pkg.nowaitlock_p' );
914 END IF;
915 RAISE;
916 END nowaitlock_p;
917
918 /*===========================================================================+
919 | PROCEDURE |
920 | fetch_p |
921 | |
922 | DESCRIPTION |
923 | This function fetches a row from AR_RECEIVABLE_APPLICATIONS table |
924 | |
925 | SCOPE - PUBLIC |
926 | |
927 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
928 | |
929 | ARGUMENTS : IN: |
930 | p_ra_id - Receivable applications id of row to be fetched|
931 | OUT: |
932 | p_ra_rec - Receivable applications record structure |
933 | |
934 | RETURNS : NONE |
935 | |
936 | NOTES |
937 | |
938 | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
939 | |
940 +===========================================================================*/
941 PROCEDURE fetch_p(
942 p_ra_id IN ar_receivable_applications.receivable_application_id%TYPE,
943 p_ra_rec OUT NOCOPY ar_receivable_applications%ROWTYPE ) IS
944 BEGIN
945 IF PG_DEBUG in ('Y', 'C') THEN
946 arp_standard.debug( 'arp_app_pkg.fetch_p()+' );
947 END IF;
948
949 SELECT *
950 INTO p_ra_rec
951 FROM ar_receivable_applications
952 WHERE receivable_application_id = p_ra_id;
953
954 IF PG_DEBUG in ('Y', 'C') THEN
955 arp_standard.debug( 'arp_app_pkg.fetch_p()-' );
956 END IF;
957 EXCEPTION
958 WHEN OTHERS THEN
959 IF PG_DEBUG in ('Y', 'C') THEN
960 arp_standard.debug('fetch_p: ' || 'EXCEPTION: arp_app_pkg error' );
961 END IF;
962 RAISE;
963
964 END fetch_p;
965
966 END ARP_APP_PKG;
967