[Home] [Help]
PACKAGE BODY: APPS.ARP_CR_ICR_LINES_PKG
Source
1 PACKAGE BODY ARP_CR_ICR_LINES_PKG AS
2 /* $Header: ARRIICLB.pls 120.9 2006/05/24 12:55:42 shveeram ship $*/
3
4 --
5 --
6 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
7 /*--------------------------------------------------------+
8 | Dummy constants for use in update and lock operations |
9 +--------------------------------------------------------*/
10 --
11 AR_TEXT_DUMMY CONSTANT VARCHAR2(10) := '~~!@#$*&^';
12 AR_FLAG_DUMMY CONSTANT VARCHAR2(10) := '~';
13 AR_NUMBER_DUMMY CONSTANT NUMBER(15) := -999999999999999;
14 AR_DATE_DUMMY CONSTANT DATE := to_date(1, 'J');
15 --
16 /*---------------------------------------------------------------+
17 | Package global variable to hold the parsed update cursor. |
18 | This allows the cursors to be reused without being reparsed. |
19 +---------------------------------------------------------------*/
20 --
21 pg_cursor1 integer := '';
22 --
23 /*-------------------------------------+
24 | WHO column values from ARP_GLOBAL |
25 +-------------------------------------*/
26 --
27 pg_request_id number;
28 pg_program_application_id number;
29 pg_program_id number;
30 pg_program_update_date date;
31 pg_last_updated_by number;
32 pg_last_update_date date;
33 pg_last_update_login number;
34 pg_set_of_books_id number;
35 --
36 --
37 /*===========================================================================+
38 | PROCEDURE |
39 | insert_p |
40 | |
41 | DESCRIPTION |
42 | This function inserts a row into AR_ICR_LINES |
43 | |
44 | SCOPE - PUBLIC |
45 | |
46 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
47 | |
48 | ARGUMENTS : IN: |
49 | p_icr_lines_rec - ICR Record structure |
50 | OUT: |
51 | p_icr_line_id - ICR Id of inserted ICR row |
52 | p_row_id - Row Id of inserted ICR row |
53 | |
54 | RETURNS : NONE |
55 | |
56 | NOTES - This is an overloaded procedure |
57 | |
58 | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
59 | |
60 +===========================================================================*/
61 PROCEDURE insert_p( p_row_id OUT NOCOPY VARCHAR2,
62 p_cr_line_id OUT NOCOPY
63 ar_interim_cash_receipt_lines.cash_receipt_line_id%TYPE,
64 p_icr_lines_rec IN
65 ar_interim_cash_receipt_lines%ROWTYPE ) IS
66 l_cr_line_id ar_interim_cash_receipt_lines.cash_receipt_line_id%TYPE;
67 l_row_id VARCHAR2( 20 );
68 BEGIN
69 arp_standard.debug( 'arp_cr_icr_lines_pkg.insert_p()+' );
70 --
71 arp_cr_icr_lines_pkg.insert_p( p_icr_lines_rec,
72 p_icr_lines_rec.cash_receipt_id,
73 l_cr_line_id );
74 --
75 SELECT ROWID
76 INTO l_row_id
77 FROM ar_interim_cash_receipt_lines
78 WHERE cash_receipt_line_id = l_cr_line_id
79 AND cash_receipt_id = p_icr_lines_rec.cash_receipt_id;
80 --
81 p_cr_line_id := l_cr_line_id;
82 p_row_id := l_row_id;
83 --
84 arp_standard.debug( 'arp_cr_icr_lines_pkg.insert_p()-' );
85 --
86 EXCEPTION
87 WHEN OTHERS THEN
88 arp_standard.debug( 'EXCEPTION: arp_cr_icr_lines_pkg.insert_p' );
89 RAISE;
90 END;
91
92 /*===========================================================================+
93 | PROCEDURE |
94 | insert_p |
95 | |
96 | DESCRIPTION |
97 | This function inserts a row into AR_ICR_LINES |
98 | |
99 | SCOPE - PUBLIC |
100 | |
101 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
102 | |
103 | ARGUMENTS : IN: |
104 | p_icr_lines_rec - ICR Record structure |
105 | OUT: |
106 | p_.at_id - ICR Id of inserted ICR row |
107 | |
108 | RETURNS : NONE |
109 | |
110 | NOTES - This is an overloaded procedure |
111 | |
112 | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
113 | 08/12/97 KTANG Add global attribute columns for global |
114 | descriptive flexfield |
115 | 10/06/98 K.Murphy Cross Currency Lockbox. |
116 | Added amount_applied_from and trans_to_receipt_rate|
117 | as created columns. |
118 | |
119 | 12-24-02 K.Dhaliwal Bug 2707190 Added |
120 | application_ref_type,customer_reference and|
121 | customer_reason. |
122 | 01-20-03 K.Dhaliwal Bug 2707190 Added applied_rec_app_id to |
123 | set_to_dummy |
124 +===========================================================================*/
125 PROCEDURE insert_p(
126 p_icr_lines_rec IN ar_interim_cash_receipt_lines%ROWTYPE,
127 p_cr_id IN ar_interim_cash_receipts.cash_receipt_id%TYPE,
128 p_icr_line_id OUT NOCOPY
129 ar_interim_cash_receipt_lines.cash_receipt_line_id%TYPE ) IS
130 l_cr_line_id ar_interim_cash_receipt_lines.cash_receipt_line_id%TYPE;
131 l_org_id ar_interim_cash_receipt_lines.org_id%TYPE;
132 BEGIN
133 arp_standard.debug( ' arp_cr_icr_lines_pkg.insert_p()+' );
134 /* Adding the following line to populate the org_id as per the bug:5244971*/
135 l_org_id := arp_standard.sysparm.org_id;
136 --
137 /* Changing the following query to remove the org id as per the bug:5244971*/
138 SELECT NVL(MAX(cash_receipt_line_id),0) + 1
139 INTO l_cr_line_id
140 FROM ar_interim_cash_receipt_lines
141 WHERE cash_receipt_id = p_cr_id;
142 --
143 INSERT INTO ar_interim_cash_receipt_lines (
144 cash_receipt_line_id,
145 cash_receipt_id,
146 last_updated_by,
147 last_update_date,
148 last_update_login,
149 created_by,
150 creation_date,
151 payment_amount,
152 amount_applied_from,
153 trans_to_receipt_rate,
154 payment_schedule_id,
155 customer_trx_id,
156 customer_trx_line_id,
157 batch_id,
158 sold_to_customer,
159 discount_taken,
160 due_date,
161 attribute_category,
162 attribute1,
163 attribute2,
164 attribute3,
165 attribute4,
166 attribute5,
167 attribute6,
168 attribute7,
169 attribute8,
170 attribute9,
171 attribute10,
172 attribute11,
173 attribute12,
174 attribute13,
175 attribute14,
176 attribute15,
177 global_attribute_category,
178 global_attribute1,
179 global_attribute2,
180 global_attribute3,
181 global_attribute4,
182 global_attribute5,
183 global_attribute6,
184 global_attribute7,
185 global_attribute8,
186 global_attribute9,
187 global_attribute10,
188 global_attribute11,
189 global_attribute12,
190 global_attribute13,
191 global_attribute14,
192 global_attribute15,
193 global_attribute16,
194 global_attribute17,
195 global_attribute18,
196 global_attribute19,
197 global_attribute20,
198 request_id,
199 program_application_id,
200 program_update_date,
201 ussgl_transaction_code,
202 ussgl_transaction_code_context,
203 application_ref_type,
204 customer_reference,
205 customer_reason,
206 applied_rec_app_id,
207 org_id
208 )
209 VALUES (
210 l_cr_line_id,
211 p_icr_lines_rec.cash_receipt_id,
212 arp_global.last_updated_by,
213 arp_global.last_update_date,
214 arp_global.last_update_login,
215 arp_global.created_by,
216 arp_global.creation_date,
217 p_icr_lines_rec.payment_amount,
218 p_icr_lines_rec.amount_applied_from,
219 p_icr_lines_rec.trans_to_receipt_rate,
220 p_icr_lines_rec.payment_schedule_id,
221 p_icr_lines_rec.customer_trx_id,
222 p_icr_lines_rec.customer_trx_line_id,
223 p_icr_lines_rec.batch_id,
224 p_icr_lines_rec.sold_to_customer,
225 p_icr_lines_rec.discount_taken,
226 p_icr_lines_rec.due_date,
227 p_icr_lines_rec.attribute_category,
228 p_icr_lines_rec.attribute1,
229 p_icr_lines_rec.attribute2,
230 p_icr_lines_rec.attribute3,
231 p_icr_lines_rec.attribute4,
232 p_icr_lines_rec.attribute5,
233 p_icr_lines_rec.attribute6,
234 p_icr_lines_rec.attribute7,
235 p_icr_lines_rec.attribute8,
236 p_icr_lines_rec.attribute9,
237 p_icr_lines_rec.attribute10,
238 p_icr_lines_rec.attribute11,
239 p_icr_lines_rec.attribute12,
240 p_icr_lines_rec.attribute13,
241 p_icr_lines_rec.attribute14,
242 p_icr_lines_rec.attribute15,
243 p_icr_lines_rec.global_attribute_category,
244 p_icr_lines_rec.global_attribute1,
245 p_icr_lines_rec.global_attribute2,
246 p_icr_lines_rec.global_attribute3,
247 p_icr_lines_rec.global_attribute4,
248 p_icr_lines_rec.global_attribute5,
249 p_icr_lines_rec.global_attribute6,
250 p_icr_lines_rec.global_attribute7,
251 p_icr_lines_rec.global_attribute8,
252 p_icr_lines_rec.global_attribute9,
253 p_icr_lines_rec.global_attribute10,
254 p_icr_lines_rec.global_attribute11,
255 p_icr_lines_rec.global_attribute12,
256 p_icr_lines_rec.global_attribute13,
257 p_icr_lines_rec.global_attribute14,
258 p_icr_lines_rec.global_attribute15,
259 p_icr_lines_rec.global_attribute16,
260 p_icr_lines_rec.global_attribute17,
261 p_icr_lines_rec.global_attribute18,
262 p_icr_lines_rec.global_attribute19,
263 p_icr_lines_rec.global_attribute20,
264 arp_global.request_id,
265 arp_global.program_application_id,
266 arp_global.program_update_date,
267 p_icr_lines_rec.ussgl_transaction_code,
268 p_icr_lines_rec.ussgl_transaction_code_context,
269 p_icr_lines_rec.application_ref_type,
270 p_icr_lines_rec.customer_reference,
271 p_icr_lines_rec.customer_reason,
272 p_icr_lines_rec.applied_rec_app_id,
273 l_org_id
274 );
275 p_icr_line_id := l_cr_line_id;
276 --
277 arp_standard.debug( 'arp_cr_icr_lines_pkg.insert_p()-' );
278 EXCEPTION
279 WHEN OTHERS THEN
280 arp_standard.debug( 'EXCEPTION: arp_cr_icr_lines_pkg.insert_p' );
281 RAISE;
282 END;
283 --
284 /*===========================================================================+
285 | PROCEDURE |
286 | const_icr_lines_update_stmt |
287 | |
288 | DESCRIPTION |
289 | |
290 | SCOPE - PUBLIC |
291 | |
292 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
293 | |
294 | ARGUMENTS : IN: |
295 | OUT: |
296 | |
297 | RETURNS : NONE |
298 | |
299 | |
300 | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
301 | 10/06/98 K.Murphy Cross Currency Lockbox. |
302 | Added amount_applied_from and trans_to_receipt_rate|
303 | as updated columns. |
304 | |
305 | 12-24-02 K.Dhaliwal Bug 2707190 Added |
306 | application_ref_type,customer_reference and|
307 | customer_reason. |
308 | 01-20-03 K.Dhaliwal Bug 2707190 Added applied_rec_app_id to |
309 | set_to_dummy |
310 +===========================================================================*/
311
312 PROCEDURE const_icr_lines_update_stmt( update_text OUT NOCOPY varchar2) IS
313 --
314 BEGIN
315 arp_standard.debug('arp_cr_icr_lines_pkg.const_icr_lines_update_stmt()+');
316 --
317 update_text :=
318 'update ar_interim_cash_receipt_lines
319 SET payment_amount =
320 decode(:payment_amount,
321 :ar_number_dummy, payment_amount,
322 :payment_amount),
323 amount_applied_from =
324 decode(:amount_applied_from,
325 :ar_number_dummy, amount_applied_from,
326 :amount_applied_from),
327 trans_to_receipt_rate =
328 decode(:trans_to_receipt_rate,
329 :ar_number_dummy, trans_to_receipt_rate,
330 :trans_to_receipt_rate),
331 last_updated_by = :pg_last_updated_by,
332 last_update_date = :pg_last_update_date,
333 last_update_login = :pg_last_update_login,
334 payment_schedule_id =
335 decode(:payment_schedule_id,
336 :ar_number_dummy, payment_schedule_id,
337 :payment_schedule_id),
338 customer_trx_id =
339 decode(:customer_trx_id,
340 :ar_number_dummy, customer_trx_id,
341 :customer_trx_id),
342 customer_trx_line_id =
343 decode(:customer_trx_line_id,
344 :ar_number_dummy, customer_trx_line_id,
345 :customer_trx_line_id),
346 batch_id =
347 decode(:batch_id,
348 :ar_number_dummy, batch_id,
349 :batch_id),
350 sold_to_customer =
351 decode(:sold_to_customer,
352 :ar_number_dummy, sold_to_customer,
353 :sold_to_customer),
354 discount_taken =
355 decode(:discount_taken,
356 :ar_number_dummy, discount_taken,
357 :discount_taken),
358 due_date =
359 decode(:due_date,
360 :ar_date_dummy, due_date,
361 :due_date),
362 attribute_category =
363 decode(:attribute_category,
364 :ar_text_dummy, attribute_category,
365 :attribute_category),
366 attribute1 =
367 decode(:attribute1,
368 :ar_text_dummy, attribute1,
369 :attribute1),
370 attribute2 =
371 decode(:attribute2,
372 :ar_text_dummy, attribute2,
373 :attribute2),
374 attribute3 =
375 decode(:attribute3,
376 :ar_text_dummy, attribute3,
377 :attribute3),
378 attribute4 =
379 decode(:attribute4,
380 :ar_text_dummy, attribute4,
381 :attribute4),
382 attribute5 =
383 decode(:attribute5,
384 :ar_text_dummy, attribute5,
385 :attribute5),
386 attribute6 =
387 decode(:attribute6,
388 :ar_text_dummy, attribute6,
389 :attribute6),
390 attribute7 =
391 decode(:attribute7,
392 :ar_text_dummy, attribute7,
393 :attribute7),
394 attribute8 =
395 decode(:attribute8,
396 :ar_text_dummy, attribute8,
397 :attribute8),
398 attribute9 =
399 decode(:attribute9,
400 :ar_text_dummy, attribute9,
401 :attribute9),
402 attribute10 =
403 decode(:attribute10,
404 :ar_text_dummy, attribute10,
405 :attribute10),
406 attribute11 =
407 decode(:attribute11,
408 :ar_text_dummy, attribute11,
409 :attribute11),
410 attribute12 =
411 decode(:attribute12,
412 :ar_text_dummy, attribute12,
413 :attribute12),
414 attribute13 =
415 decode(:attribute13,
416 :ar_text_dummy, attribute13,
417 :attribute13),
418 attribute14 =
419 decode(:attribute14,
420 :ar_text_dummy, attribute14,
421 :attribute14),
422 attribute15 =
423 decode(:attribute15,
424 :ar_text_dummy, attribute15,
425 :attribute15),
426 global_attribute_category =
427 decode(:global_attribute_category,
428 :ar_text_dummy, global_attribute_category,
429 :global_attribute_category),
430 global_attribute1 =
431 decode(:global_attribute1,
432 :ar_text_dummy, global_attribute1,
433 :global_attribute1),
434
435 global_attribute2 =
436 decode(:global_attribute2,
437 :ar_text_dummy, global_attribute2,
438 :global_attribute2),
439 global_attribute3 =
440 decode(:global_attribute3,
441 :ar_text_dummy, global_attribute3,
442 :global_attribute3),
443
444 global_attribute4 =
445 decode(:global_attribute4,
446 :ar_text_dummy, global_attribute4,
447 :global_attribute4),
448 global_attribute5 =
449 decode(:global_attribute5,
450 :ar_text_dummy, global_attribute5,
451 :global_attribute5),
452
453 global_attribute6 =
454 decode(:global_attribute6,
455 :ar_text_dummy, global_attribute6,
456 :global_attribute6),
457 global_attribute7 =
458 decode(:global_attribute7,
459 :ar_text_dummy, global_attribute7,
460 :global_attribute7),
461
462 global_attribute8 =
463 decode(:global_attribute8,
464 :ar_text_dummy, global_attribute8,
465 :global_attribute8),
466 global_attribute9 =
467 decode(:global_attribute9,
468 :ar_text_dummy, global_attribute9,
469 :global_attribute9),
470
471 global_attribute10 =
472 decode(:global_attribute10,
473 :ar_text_dummy, global_attribute10,
474 :global_attribute10),
475 global_attribute11 =
476 decode(:global_attribute11,
477 :ar_text_dummy, global_attribute11,
478 :global_attribute11),
479
480 global_attribute12 =
481 decode(:global_attribute12,
482 :ar_text_dummy, global_attribute12,
483 :global_attribute12),
484 global_attribute13 =
485 decode(:global_attribute13,
486 :ar_text_dummy, global_attribute13,
487 :global_attribute13),
488
489 global_attribute14 =
490 decode(:global_attribute14,
491 :ar_text_dummy, global_attribute14,
492 :global_attribute14),
493 global_attribute15 =
494 decode(:global_attribute15,
495 :ar_text_dummy, global_attribute15,
496 :global_attribute15),
497
498 global_attribute16 =
499 decode(:global_attribute16,
500 :ar_text_dummy, global_attribute16,
501 :global_attribute16),
502 global_attribute17 =
503 decode(:global_attribute17,
504 :ar_text_dummy, global_attribute17,
505 :global_attribute17),
506
507 global_attribute18 =
508 decode(:global_attribute18,
509 :ar_text_dummy, global_attribute18,
510 :global_attribute18),
511 global_attribute19 =
512 decode(:global_attribute19,
513 :ar_text_dummy, global_attribute19,
514 :global_attribute19),
515
516 global_attribute20 =
517 decode(:global_attribute20,
518 :ar_text_dummy, global_attribute20,
519 :global_attribute20),
520
521 request_id =
522 NVL( :pg_request_id,
523 request_id),
524 program_application_id =
525 NVL( :pg_program_application_id,
526 program_application_id),
527 program_id =
528 NVL( :pg_program_id,
529 program_id),
530 program_update_date =
531 NVL( :pg_program_update_date,
532 program_update_date),
533 ussgl_transaction_code_context =
534 decode(:ussgl_transaction_code_context,
535 :ar_text_dummy, ussgl_transaction_code_context,
536 :ussgl_transaction_code_context),
537 ussgl_transaction_code=
538 decode(:ussgl_transaction_code,
539 :ar_text_dummy, ussgl_transaction_code,
540 :ussgl_transaction_code),
541 application_ref_type=
542 decode(:application_ref_type,
543 :ar_text_dummy, application_ref_type,
544 :application_ref_type),
545 customer_reference=
546 decode(:customer_reference,
547 :ar_text_dummy, customer_reference,
548 :customer_reference),
549 customer_reason=
550 decode(:customer_reason,
551 :ar_text_dummy, customer_reason,
552 :customer_reason),
553 applied_rec_app_id=
554 decode(:applied_rec_app_id,
555 :ar_number_dummy, applied_rec_app_id,
556 :applied_rec_app_id)';
557 --
558 arp_standard.debug('arp_cr_icr_lines_pkg.const_icr_lines_update_stmt()-');
559 --
560 EXCEPTION
561 WHEN OTHERS THEN
562 arp_standard.debug('EXCEPTION: arp_cr_icr_lines_pkg .const_icr_lines_update_stmt()');
563 RAISE;
564 --
565 END;
566 --
567 --
568 /*===========================================================================+
569 | PROCEDURE |
570 | bind_icr_lines_variables |
571 | |
572 | DESCRIPTION |
573 | |
574 | SCOPE - PUBLIC |
575 | |
576 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
577 | |
578 | ARGUMENTS : IN: |
579 | OUT: |
580 | |
581 | RETURNS : NONE |
582 | |
583 | |
584 | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
585 | 10/06/98 K.Murphy Cross Currency Lockbox. |
586 | Added amount_applied_from and trans_to_receipt_rate|
587 | as updated columns. |
588 | |
589 | 12-24-02 K.Dhaliwal Bug 2707190 Added |
590 | application_ref_type,customer_reference and|
591 | customer_reason. |
592 | 01-20-03 K.Dhaliwal Bug 2707190 Added applied_rec_app_id to |
593 | set_to_dummy |
594 +===========================================================================*/
595 --
596 --
597 PROCEDURE bind_icr_lines_variables(
598 p_update_cursor IN integer,
599 p_icr_lines_rec IN ar_interim_cash_receipt_lines%rowtype ) IS
600 --
601 BEGIN
602 --
603 arp_standard.debug('arp_cr_icr_lines_pkg.bind_icr_lines_variables()+');
604 --
605 --
606 /*------------------+
607 | Dummy constants |
608 +------------------*/
609 --
610 dbms_sql.bind_variable(p_update_cursor, ':ar_text_dummy',
611 AR_TEXT_DUMMY);
612 --
613 -- dbms_sql.bind_variable(p_update_cursor, ':ar_flag_dummy',
614 -- AR_FLAG_DUMMY);
615 --
616 dbms_sql.bind_variable(p_update_cursor, ':ar_number_dummy',
617 AR_NUMBER_DUMMY);
618 --
619 dbms_sql.bind_variable(p_update_cursor, ':ar_date_dummy',
620 AR_DATE_DUMMY);
621 arp_standard.debug('after duummy');
622 --
623 /*------------------+
624 | WHO variables |
625 +------------------*/
626 --
627 dbms_sql.bind_variable(p_update_cursor, ':pg_request_id',
628 pg_request_id);
629 --
630 dbms_sql.bind_variable(p_update_cursor, ':pg_program_application_id',
631 pg_program_application_id);
632 --
633 dbms_sql.bind_variable(p_update_cursor, ':pg_program_id',
634 pg_program_id);
635 --
636 dbms_sql.bind_variable(p_update_cursor, ':pg_program_update_date',
637 pg_program_update_date);
638 --
639 dbms_sql.bind_variable(p_update_cursor, ':pg_last_updated_by',
640 pg_last_updated_by);
641 --
642 dbms_sql.bind_variable(p_update_cursor, ':pg_last_update_date',
643 pg_last_update_date);
644 --
645 dbms_sql.bind_variable(p_update_cursor, ':pg_last_update_login',
646 pg_last_update_login);
647 arp_standard.debug('after who');
648 /*----------------------------------------------+
649 | Bind variables for all columns in the table |
650 +----------------------------------------------*/
651 --
652 --
653 dbms_sql.bind_variable(p_update_cursor, ':payment_amount',
654 p_icr_lines_rec.payment_amount);
655 --
656 dbms_sql.bind_variable(p_update_cursor, ':amount_applied_from',
657 p_icr_lines_rec.amount_applied_from);
658 --
659 dbms_sql.bind_variable(p_update_cursor, ':trans_to_receipt_rate',
660 p_icr_lines_rec.trans_to_receipt_rate);
661 --
662 dbms_sql.bind_variable(p_update_cursor, ':payment_schedule_id',
663 p_icr_lines_rec.payment_schedule_id);
664 --
665 dbms_sql.bind_variable(p_update_cursor, ':customer_trx_id',
666 p_icr_lines_rec.customer_trx_id);
667 --
668 dbms_sql.bind_variable(p_update_cursor, ':customer_trx_line_id',
669 p_icr_lines_rec.customer_trx_line_id);
670 --
671 dbms_sql.bind_variable(p_update_cursor, ':batch_id',
672 p_icr_lines_rec.batch_id);
673 --
674 dbms_sql.bind_variable(p_update_cursor, ':sold_to_customer',
675 p_icr_lines_rec.sold_to_customer);
676 --
677 dbms_sql.bind_variable(p_update_cursor, ':discount_taken',
678 p_icr_lines_rec.discount_taken);
679 --
680 dbms_sql.bind_variable(p_update_cursor, ':due_date',
681 p_icr_lines_rec.due_date);
682 --
683 dbms_sql.bind_variable(p_update_cursor, ':attribute_category',
684 p_icr_lines_rec.attribute_category);
685 --
686 dbms_sql.bind_variable(p_update_cursor, ':attribute1',
687 p_icr_lines_rec.attribute1);
688 --
689 dbms_sql.bind_variable(p_update_cursor, ':attribute2',
690 p_icr_lines_rec.attribute2);
691 --
692 dbms_sql.bind_variable(p_update_cursor, ':attribute3',
693 p_icr_lines_rec.attribute3);
694 --
695 dbms_sql.bind_variable(p_update_cursor, ':attribute4',
696 p_icr_lines_rec.attribute4);
697 --
698 --
699 dbms_sql.bind_variable(p_update_cursor, ':attribute5',
700 p_icr_lines_rec.attribute5);
701 --
702 dbms_sql.bind_variable(p_update_cursor, ':attribute6',
703 p_icr_lines_rec.attribute6);
704 --
705 dbms_sql.bind_variable(p_update_cursor, ':attribute7',
706 p_icr_lines_rec.attribute7);
707 --
708 dbms_sql.bind_variable(p_update_cursor, ':attribute8',
709 p_icr_lines_rec.attribute8);
710 --
711 dbms_sql.bind_variable(p_update_cursor, ':attribute9',
712 p_icr_lines_rec.attribute9);
713 --
714 dbms_sql.bind_variable(p_update_cursor, ':attribute10',
715 p_icr_lines_rec.attribute10);
716 --
717 dbms_sql.bind_variable(p_update_cursor, ':attribute11',
718 p_icr_lines_rec.attribute11);
719 --
720 dbms_sql.bind_variable(p_update_cursor, ':attribute12',
721 p_icr_lines_rec.attribute12);
722 --
723 dbms_sql.bind_variable(p_update_cursor, ':attribute13',
724 p_icr_lines_rec.attribute13);
725 --
726 dbms_sql.bind_variable(p_update_cursor, ':attribute14',
727 p_icr_lines_rec.attribute14);
728 --
729 dbms_sql.bind_variable(p_update_cursor, ':attribute15',
730 p_icr_lines_rec.attribute15);
731 --
732 dbms_sql.bind_variable(p_update_cursor, ':global_attribute_category',
733 p_icr_lines_rec.global_attribute_category);
734 --
735 dbms_sql.bind_variable(p_update_cursor, ':global_attribute1',
736 p_icr_lines_rec.global_attribute1);
737 --
738 dbms_sql.bind_variable(p_update_cursor, ':global_attribute2',
739 p_icr_lines_rec.global_attribute2);
740 --
741 dbms_sql.bind_variable(p_update_cursor, ':global_attribute3',
742 p_icr_lines_rec.global_attribute3);
743 --
744 dbms_sql.bind_variable(p_update_cursor, ':global_attribute4',
745 p_icr_lines_rec.global_attribute4);
746 --
747 dbms_sql.bind_variable(p_update_cursor, ':global_attribute5',
748 p_icr_lines_rec.global_attribute5);
749 --
750 dbms_sql.bind_variable(p_update_cursor, ':global_attribute6',
751 p_icr_lines_rec.global_attribute6);
752 --
753 dbms_sql.bind_variable(p_update_cursor, ':global_attribute7',
754 p_icr_lines_rec.global_attribute7);
755 --
756 dbms_sql.bind_variable(p_update_cursor, ':global_attribute8',
757 p_icr_lines_rec.global_attribute8);
758 --
759 dbms_sql.bind_variable(p_update_cursor, ':global_attribute9',
760 p_icr_lines_rec.global_attribute9);
761 --
762 dbms_sql.bind_variable(p_update_cursor, ':global_attribute10',
763 p_icr_lines_rec.global_attribute10);
764 --
765 dbms_sql.bind_variable(p_update_cursor, ':global_attribute11',
766 p_icr_lines_rec.global_attribute11);
767 --
768 dbms_sql.bind_variable(p_update_cursor, ':global_attribute12',
769 p_icr_lines_rec.global_attribute12);
770 --
771 dbms_sql.bind_variable(p_update_cursor, ':global_attribute13',
772 p_icr_lines_rec.global_attribute13);
773 --
774 dbms_sql.bind_variable(p_update_cursor, ':global_attribute14',
775 p_icr_lines_rec.global_attribute14);
776 --
777 dbms_sql.bind_variable(p_update_cursor, ':global_attribute15',
778 p_icr_lines_rec.global_attribute15);
779 --
780 dbms_sql.bind_variable(p_update_cursor, ':global_attribute16',
781 p_icr_lines_rec.global_attribute16);
782 --
783 dbms_sql.bind_variable(p_update_cursor, ':global_attribute17',
784 p_icr_lines_rec.global_attribute17);
785 --
786 dbms_sql.bind_variable(p_update_cursor, ':global_attribute18',
787 p_icr_lines_rec.global_attribute18);
788 --
789 dbms_sql.bind_variable(p_update_cursor, ':global_attribute19',
790 p_icr_lines_rec.global_attribute19);
791 --
792 dbms_sql.bind_variable(p_update_cursor, ':global_attribute20',
793 p_icr_lines_rec.global_attribute20);
794 --
795 dbms_sql.bind_variable(p_update_cursor, ':ussgl_transaction_code',
796 p_icr_lines_rec.ussgl_transaction_code);
797 --
798 dbms_sql.bind_variable(p_update_cursor, ':ussgl_transaction_code_context',
799 p_icr_lines_rec.ussgl_transaction_code_context);
800 --
801 dbms_sql.bind_variable(p_update_cursor, ':application_ref_type',
802 p_icr_lines_rec.application_ref_type);
803 --
804 dbms_sql.bind_variable(p_update_cursor, ':customer_reference',
805 p_icr_lines_rec.customer_reference);
806 --
807 dbms_sql.bind_variable(p_update_cursor, ':customer_reason',
808 p_icr_lines_rec.customer_reason);
809 --
810 dbms_sql.bind_variable(p_update_cursor, ':applied_rec_app_id',
811 p_icr_lines_rec.applied_rec_app_id);
812 --
813 EXCEPTION
814 WHEN OTHERS THEN
815 arp_standard.debug('EXCEPTION: arp_cr_icr_lines_pkg.bind_icr_lines_variables()');
816 arp_standard.debug('Error at character: ' ||
817 to_char(dbms_sql.last_error_position));
818
819 RAISE;
820 --
821 END;
822 --
823 --
824 --
825 -- Bug 744228: added additonal where clause and p_where2 parameter.
826 -- 746872: added additonal where3 clause
827 PROCEDURE generic_update(
828 p_update_cursor IN OUT NOCOPY integer,
829 p_where_clause IN varchar2,
830 p_where1 IN number,
831 p_where2 IN number,
832 p_where3 IN number,
833 p_icr_lines_rec IN ar_interim_cash_receipt_lines%ROWTYPE)
834 IS
835 --
836 l_count number;
837 l_update_statement varchar2(20000);
838 --
839 BEGIN
840 arp_standard.debug('arp_cr_icr_lines_pkg.generic_update()+');
841 --
842 /*--------------------------------------------------------------+
843 | If this update statement has not already been parsed, |
844 | construct the statement and parse it. |
845 | Otherwise, use the already parsed statement and rebind its |
846 | variables. |
847 +--------------------------------------------------------------*/
848 --
849 if (p_update_cursor is null)
850 then
851 --
852 p_update_cursor := dbms_sql.open_cursor;
853 --
854 /*---------------------------------+
855 | Construct the update statement |
856 +---------------------------------*/
857 --
858 arp_cr_icr_lines_pkg.const_icr_lines_update_stmt(l_update_statement);
859 --
860 l_update_statement := l_update_statement || p_where_clause;
861 --
862 arp_standard.debug('after l_update_statement');
863 /*-----------------------------------------------+
864 | Parse, bind, execute and close the statement |
865 +-----------------------------------------------*/
866 --
867 dbms_sql.parse(p_update_cursor,
868 l_update_statement,
869 dbms_sql.v7);
870 --
871 arp_standard.debug('after dbms_sql');
872
873 end if;
874 --
875 arp_cr_icr_lines_pkg.bind_icr_lines_variables(p_update_cursor, p_icr_lines_rec);
876 --
877 --
878 arp_standard.debug('after .bind_app');
879 /*-----------------------------------------+
880 | Bind the variables in the where clause |
881 +-----------------------------------------*/
882 --
883 if ( p_where1 is not null )
884 then
885 dbms_sql.bind_variable(p_update_cursor, ':where_1',
886 p_where1);
887 end if;
888
889 -- Bug 744228: bind additional where variable.
890 if ( p_where2 is not null )
891 then
892 dbms_sql.bind_variable(p_update_cursor, ':where_2',
893 p_where2);
894 end if;
895
896 -- Bug 746872: bind additional where variable.
897 if ( p_where3 is not null )
898 then
899 dbms_sql.bind_variable(p_update_cursor, ':where_3',
900 p_where3);
901 end if;
902
903 arp_standard.debug('after bind_variable ');
904 --
905 l_count := dbms_sql.execute(p_update_cursor);
906 --
907 arp_standard.debug( to_char(l_count) || ' rows updated');
908 --
909 --
910 /*------------------------------------------------------------+
911 | Raise the NO_DATA_FOUND exception if no rows were updated |
912 +------------------------------------------------------------*/
913 --
914 if (l_count = 0)
915 then raise NO_DATA_FOUND;
916 arp_standard.debug('after l_count = 0');
917 end if;
918 --
919 --
920 arp_standard.debug('arp_cr_icr_lines_pkg.generic_update()-');
921 --
922 EXCEPTION
923 WHEN OTHERS THEN
924 arp_standard.debug('EXCEPTION: arp_cr_icr_lines_pkg.generic_update()
925 ');
926 arp_standard.debug(l_update_statement);
927 arp_standard.debug('Error at character: ' ||
928 to_char(dbms_sql.last_error_position));
929 --arp_standard.debug('ERROR MESSAGE: ' ||
930 -- sqlerrm);
931 RAISE;
932 END;
933 --
934 --
935 --
936 PROCEDURE set_to_dummy( p_icr_lines_rec OUT NOCOPY
937 ar_interim_cash_receipt_lines%rowtype) IS
938 --
939 BEGIN
940 --
941 arp_standard.debug('arp_cr_icr_lines_pkg.set_to_dummy()+');
942 --
943 p_icr_lines_rec.cash_receipt_line_id := AR_NUMBER_DUMMY;
944 p_icr_lines_rec.cash_receipt_id := AR_NUMBER_DUMMY;
945 p_icr_lines_rec.payment_amount := AR_NUMBER_DUMMY;
946 p_icr_lines_rec.payment_schedule_id := AR_NUMBER_DUMMY;
947 p_icr_lines_rec.customer_trx_id := AR_NUMBER_DUMMY;
948 p_icr_lines_rec.customer_trx_line_id := AR_NUMBER_DUMMY;
949 p_icr_lines_rec.batch_id := AR_NUMBER_DUMMY;
950 p_icr_lines_rec.sold_to_customer := AR_NUMBER_DUMMY;
951 p_icr_lines_rec.discount_taken := AR_NUMBER_DUMMY;
952 p_icr_lines_rec.due_date := AR_DATE_DUMMY;
953 p_icr_lines_rec.attribute_category := AR_TEXT_DUMMY;
954 p_icr_lines_rec.attribute1 := AR_TEXT_DUMMY;
955 p_icr_lines_rec.attribute2 := AR_TEXT_DUMMY;
956 p_icr_lines_rec.attribute3 := AR_TEXT_DUMMY;
957 p_icr_lines_rec.attribute4 := AR_TEXT_DUMMY;
958 p_icr_lines_rec.attribute5 := AR_TEXT_DUMMY;
959 p_icr_lines_rec.attribute6 := AR_TEXT_DUMMY;
960 p_icr_lines_rec.attribute7 := AR_TEXT_DUMMY;
961 p_icr_lines_rec.attribute8 := AR_TEXT_DUMMY;
962 p_icr_lines_rec.attribute9 := AR_TEXT_DUMMY;
963 p_icr_lines_rec.attribute10 := AR_TEXT_DUMMY;
964 p_icr_lines_rec.attribute11 := AR_TEXT_DUMMY;
965 p_icr_lines_rec.attribute12 := AR_TEXT_DUMMY;
966 p_icr_lines_rec.attribute13 := AR_TEXT_DUMMY;
967 p_icr_lines_rec.attribute14 := AR_TEXT_DUMMY;
968 p_icr_lines_rec.attribute15 := AR_TEXT_DUMMY;
969 p_icr_lines_rec.global_attribute_category := AR_TEXT_DUMMY;
970 p_icr_lines_rec.global_attribute1 := AR_TEXT_DUMMY;
971 p_icr_lines_rec.global_attribute2 := AR_TEXT_DUMMY;
972 p_icr_lines_rec.global_attribute3 := AR_TEXT_DUMMY;
973 p_icr_lines_rec.global_attribute4 := AR_TEXT_DUMMY;
974 p_icr_lines_rec.global_attribute5 := AR_TEXT_DUMMY;
975 p_icr_lines_rec.global_attribute6 := AR_TEXT_DUMMY;
976 p_icr_lines_rec.global_attribute7 := AR_TEXT_DUMMY;
977 p_icr_lines_rec.global_attribute8 := AR_TEXT_DUMMY;
978 p_icr_lines_rec.global_attribute9 := AR_TEXT_DUMMY;
979 p_icr_lines_rec.global_attribute10 := AR_TEXT_DUMMY;
980 p_icr_lines_rec.global_attribute11 := AR_TEXT_DUMMY;
981 p_icr_lines_rec.global_attribute12 := AR_TEXT_DUMMY;
982 p_icr_lines_rec.global_attribute13 := AR_TEXT_DUMMY;
983 p_icr_lines_rec.global_attribute14 := AR_TEXT_DUMMY;
984 p_icr_lines_rec.global_attribute15 := AR_TEXT_DUMMY;
985 p_icr_lines_rec.global_attribute16 := AR_TEXT_DUMMY;
986 p_icr_lines_rec.global_attribute17 := AR_TEXT_DUMMY;
987 p_icr_lines_rec.global_attribute18 := AR_TEXT_DUMMY;
988 p_icr_lines_rec.global_attribute19 := AR_TEXT_DUMMY;
989 p_icr_lines_rec.global_attribute20 := AR_TEXT_DUMMY;
990 p_icr_lines_rec.ussgl_transaction_code := AR_TEXT_DUMMY;
991 p_icr_lines_rec.ussgl_transaction_code_context := AR_TEXT_DUMMY;
992 p_icr_lines_rec.application_ref_type := AR_TEXT_DUMMY;
993 p_icr_lines_rec.customer_reference := AR_TEXT_DUMMY;
994 p_icr_lines_rec.customer_reason := AR_TEXT_DUMMY;
995 p_icr_lines_rec.applied_rec_app_id := AR_NUMBER_DUMMY;
996
997 --
998 arp_standard.debug('arp_cr_icr_lines_pkg.set_to_dummy()-');
999 --
1000 EXCEPTION
1001 WHEN OTHERS THEN
1002 arp_standard.debug('EXCEPTION: arp_cr_icr_lines_pkg.set_to_dummy()');
1003 RAISE;
1004 --
1005 END;
1006 --
1007 --
1008 --
1009 --
1010 --
1011 PROCEDURE update_p(
1012 p_icr_lines_rec IN ar_interim_cash_receipt_lines%ROWTYPE,
1013 p_cash_receipt_line_id IN
1014 ar_interim_cash_receipt_lines.cash_receipt_line_id%TYPE,
1015 p_batch_id IN
1016 ar_interim_cash_receipt_lines.batch_id%TYPE,
1017 p_cash_receipt_id IN
1018 ar_interim_cash_receipt_lines.cash_receipt_id%TYPE) IS
1019 --
1020 BEGIN
1021 --
1022 arp_standard.debug('arp_cr_icr_lines_pkg.update_p()+ ');
1023 --
1024 --
1025 -- Bug 744228: added 2nd where clause and additional parameter of p_batch_id
1026 -- 746872: added 3nd where clause and additional parameter of cash_receipt
1027 -- id.
1028 arp_cr_icr_lines_pkg.generic_update( pg_cursor1,
1029 ' WHERE cash_receipt_line_id = :where_1 and
1030 batch_id = :where_2 and
1031 cash_receipt_id = :where_3',
1032 p_cash_receipt_line_id,
1033 p_batch_id,
1034 p_cash_receipt_id,
1035 p_icr_lines_rec);
1036 --
1037 arp_standard.debug('arp_cr_icr_lines_pkg.update_p()- ' ||
1038 to_char(sysdate, 'HH:MI:SS'));
1039 --
1040 --
1041 EXCEPTION
1042 WHEN OTHERS THEN
1043 arp_standard.debug('EXCEPTION: arp_cr_icr_lines_pkg.update_p()');
1044 RAISE;
1045 END;
1046 --
1047 /*===========================================================================+
1048 | PROCEDURE |
1049 | delete_p |
1050 | |
1051 | DESCRIPTION |
1052 | This function deletes a row into AR_ICR_LINES |
1053 | |
1054 | SCOPE - PUBLIC |
1055 | |
1056 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
1057 | |
1058 | ARGUMENTS : IN: |
1059 | p_icr_line_id - ICR Id to delete a row from ICR table |
1060 | |
1061 | RETURNS : NONE |
1062 | |
1063 | NOTES |
1064 | |
1065 | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
1066 | |
1067 +===========================================================================*/
1068 PROCEDURE delete_p(
1069 p_icr_id IN ar_interim_cash_receipts.cash_receipt_id%TYPE,
1070 p_icr_line_id IN
1071 ar_interim_cash_receipt_lines.cash_receipt_line_id%TYPE ) IS
1072 BEGIN
1073 arp_standard.debug( 'arp_cr_icr_lines_pkg.delete_p()+' );
1074 --
1075 DELETE FROM ar_interim_cash_receipt_lines
1076 WHERE cash_receipt_id = p_icr_id
1077 AND cash_receipt_line_id = p_icr_line_id;
1078 --
1079 arp_standard.debug( 'arp_cr_icr_lines_pkg.delete_p()-' );
1080 EXCEPTION
1081 WHEN OTHERS THEN
1082 arp_standard.debug( 'EXCEPTION: arp_cr_icr_lines_pkg.delete_p' );
1083 RAISE;
1084 END;
1085 --
1086 /*===========================================================================+
1087 | PROCEDURE |
1088 | delete_fk |
1089 | |
1090 | DESCRIPTION |
1091 | This function deletes a row into AR_ICR_LINES using cach receipt id |
1092 | |
1093 | SCOPE - PUBLIC |
1094 | |
1095 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
1096 | |
1097 | ARGUMENTS : IN: |
1098 | p_icr_id - ICR id |
1099 | |
1100 | |
1101 | RETURNS : NONE |
1102 | |
1103 | NOTES |
1104 | |
1105 | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
1106 | 04/23/1998 G.Wang Bug #653643. Was previously deleting from the cash |
1107 | receipt table instead of the lines table. |
1108 | |
1109 +===========================================================================*/
1110
1111 PROCEDURE delete_fk(
1112 p_icr_id IN ar_interim_cash_receipts.cash_receipt_id%TYPE ) IS
1113 BEGIN
1114 IF PG_DEBUG in ('Y', 'C') THEN
1115 arp_standard.debug( 'arp_cr_icr_lines_pkg.delete_fk()+' );
1116 END IF;
1117 --
1118 DELETE FROM ar_interim_cash_receipt_lines
1119 WHERE cash_receipt_id = p_icr_id;
1120 --
1121 IF PG_DEBUG in ('Y', 'C') THEN
1122 arp_standard.debug( 'arp_cr_icr_lines_pkg.delete_fk()-' );
1123 END IF;
1124 EXCEPTION
1125 WHEN OTHERS THEN
1126 IF PG_DEBUG in ('Y', 'C') THEN
1127 arp_standard.debug( 'EXCEPTION: arp_cr_icr_lines_pkg.delete_fk' );
1128 END IF;
1129 RAISE;
1130 END delete_fk;
1131 --
1132 /*===========================================================================+
1133 | PROCEDURE |
1134 | lock_p |
1135 | |
1136 | DESCRIPTION |
1137 | This function locks a row in AR_ICR_LINES |
1138 | |
1139 | SCOPE - PUBLIC |
1140 | |
1141 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
1142 | |
1143 | ARGUMENTS : IN: |
1144 | p_icr_line_id - Icr Id of row to be locked in ICR |
1145 | |
1146 | RETURNS : NONE |
1147 | |
1148 | NOTES |
1149 | |
1150 | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
1151 | 25-Jun-1999 J.Gazmen-Dabir Bug 911369, modified update as STATUS |
1152 | column does not exist in table. |
1153 | |
1154 +===========================================================================*/
1155 PROCEDURE lock_p(
1156 p_icr_line_id IN
1157 ar_interim_cash_receipt_lines.cash_receipt_line_id%TYPE ) IS
1158 --
1159 l_cr_line_id ar_interim_cash_receipt_lines.cash_receipt_line_id%TYPE;
1160 BEGIN
1161 arp_standard.debug( 'arp_cr_icr_lines_pkg.lock_p()+' );
1162 --
1163 SELECT cash_receipt_line_id
1164 INTO l_cr_line_id
1165 FROM ar_interim_cash_receipt_lines
1166 WHERE cash_receipt_line_id = p_icr_line_id
1167 FOR UPDATE OF PAYMENT_AMOUNT;
1168 --
1169 arp_standard.debug( 'arp_cr_icr_lines_pkg.lock_p()-' );
1170 EXCEPTION
1171 WHEN OTHERS THEN
1172 arp_standard.debug( 'EXCEPTION: arp_cr_icr_lines_pkg.lock_p' );
1173 RAISE;
1174 END;
1175 --
1176 PROCEDURE nowaitlock_p(
1177 p_icr_line_id IN
1178 ar_interim_cash_receipt_lines.cash_receipt_line_id%TYPE ) IS
1179 l_cr_line_id ar_interim_cash_receipt_lines.cash_receipt_line_id%TYPE;
1180 BEGIN
1181 arp_standard.debug( 'arp_cr_icr_lines_pkg.nowaitlock_p()+' );
1182 --
1183 SELECT cash_receipt_line_id
1184 INTO l_cr_line_id
1185 FROM ar_interim_cash_receipt_lines
1186 WHERE cash_receipt_line_id = p_icr_line_id
1187 FOR UPDATE OF PAYMENT_AMOUNT NOWAIT;
1188 --
1189 arp_standard.debug( 'arp_cr_icr_lines_pkg.nowaitlock_p()-' );
1190 EXCEPTION
1191 WHEN OTHERS THEN
1192 arp_standard.debug( 'EXCEPTION: arp_cr_icr_lines_pkg.nowaitlock_p' );
1193 RAISE;
1194 END;
1195 --
1196 /*===========================================================================+
1197 | PROCEDURE |
1198 | fetch_p |
1199 | |
1200 | DESCRIPTION |
1201 | This function fetches a row from AR_ICR_LINES |
1202 | |
1203 | SCOPE - PUBLIC |
1204 | |
1205 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
1206 | |
1207 | ARGUMENTS : IN: |
1208 | p_icr_line_id - Icr Id of row to be fetched from ICR |
1209 | OUT: |
1210 | p_adj_rec - ICR Record structure |
1211 | |
1212 | RETURNS : NONE |
1213 | |
1214 | NOTES |
1215 | |
1216 | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
1217 | |
1218 +===========================================================================*/
1219 PROCEDURE fetch_p(
1220 p_icr_line_id IN
1221 ar_interim_cash_receipt_lines.cash_receipt_line_id%TYPE,
1222 p_icr_lines_rec OUT NOCOPY
1223 ar_interim_cash_receipt_lines%ROWTYPE ) IS
1224 BEGIN
1225 arp_standard.debug( 'arp_cr_icr_lines_pkg.fetch_p()+' );
1226 --
1227 SELECT *
1228 INTO p_icr_lines_rec
1229 FROM ar_interim_cash_receipt_lines
1230 WHERE cash_receipt_line_id = p_icr_line_id;
1231 --
1232 arp_standard.debug( 'arp_cr_icr_lines_pkg.fetch_p()-' );
1233 EXCEPTION
1234 --
1235 WHEN OTHERS THEN
1236 arp_standard.debug( 'EXCEPTION: arp_cr_icr_lines_pkg.fetch_p' );
1237 RAISE;
1238 END;
1239 --
1240 PROCEDURE lock_fetch_p( p_icr_lines_rec IN OUT NOCOPY
1241 ar_interim_cash_receipt_lines%ROWTYPE ) IS
1242 BEGIN
1243 IF PG_DEBUG in ('Y', 'C') THEN
1244 arp_standard.debug( 'arp_cr_icr_lines_pkg.lock_fetch_p()+' );
1245 END IF;
1246 --
1247 SELECT *
1248 INTO p_icr_lines_rec
1249 FROM ar_interim_cash_receipt_lines
1250 WHERE cash_receipt_line_id = p_icr_lines_rec.cash_receipt_line_id
1251 FOR UPDATE OF PAYMENT_AMOUNT;
1252 --
1253 IF PG_DEBUG in ('Y', 'C') THEN
1254 arp_standard.debug( 'arp_cr_icr_lines_pkg.lock_fetch_p()-' );
1255 END IF;
1256 EXCEPTION
1257 WHEN OTHERS THEN
1258 IF PG_DEBUG in ('Y', 'C') THEN
1259 arp_standard.debug( 'EXCEPTION: arp_cr_icr_lines_pkg.lock_fetch_p' );
1260 END IF;
1261 RAISE;
1262 END lock_fetch_p;
1263 --
1264 --
1265 PROCEDURE nowaitlock_fetch_p( p_icr_lines_rec IN OUT NOCOPY
1266 ar_interim_cash_receipt_lines%ROWTYPE ) IS
1267 BEGIN
1268 IF PG_DEBUG in ('Y', 'C') THEN
1269 arp_standard.debug( 'arp_cr_icr_lines_pkg.nowaitlock_fetch_p()+' );
1270 END IF;
1271 --
1272 SELECT *
1273 INTO p_icr_lines_rec
1274 FROM ar_interim_cash_receipt_lines
1275 WHERE cash_receipt_line_id = p_icr_lines_rec.cash_receipt_line_id
1276 FOR UPDATE OF PAYMENT_AMOUNT NOWAIT;
1277 --
1278 IF PG_DEBUG in ('Y', 'C') THEN
1279 arp_standard.debug( 'arp_cr_icr_lines_pkg.nowaitlock_fetch_p()-' );
1280 END IF;
1281 EXCEPTION
1282 WHEN OTHERS THEN
1283 IF PG_DEBUG in ('Y', 'C') THEN
1284 arp_standard.debug( 'EXCEPTION: arp_cr_icr_lines_pkg.nowaitlock_fetch_p' );
1285 END IF;
1286 RAISE;
1287 END nowaitlock_fetch_p;
1288 --
1289 --
1290 --
1291 --
1292 --
1293 --
1294 --
1295 /*---------------------------------------------+
1296 | Package initialization section. |
1297 | Sets WHO column variables for later use. |
1298 +---------------------------------------------*/
1299 --
1300 BEGIN
1301 --
1302 pg_request_id := arp_global.request_id;
1303 pg_program_application_id := arp_global.program_application_id;
1304 pg_program_id := arp_global.program_id;
1305 pg_program_update_date := arp_global.program_update_date;
1306 pg_last_updated_by := arp_global.last_updated_by;
1307 pg_last_update_date := arp_global.last_update_date;
1308 pg_last_update_login := arp_global.last_update_login;
1309 pg_set_of_books_id := arp_global.set_of_books_id;
1310 --
1311 --
1312 END ARP_CR_ICR_LINES_PKG;
1313 --