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