[Home] [Help]
1: PACKAGE BODY ARP_RW_BATCHES_CHECK_PKG AS
2: /* $Header: ARERBA1B.pls 120.18 2010/12/29 15:46:11 qioliu ship $ */
3: --
4: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
5:
159: arp_cr_batches_pkg.update_p( l_batch_rec, l_batch_rec.batch_id );
160: --
161: -- update the batch status
162: --
163: arp_rw_batches_check_pkg.update_batch_status( l_batch_rec.batch_id );
164: --
165: IF PG_DEBUG in ('Y', 'C') THEN
166: arp_util.debug( 'arp_rw_batches_pkg.update_manual_batch()-' );
167: END IF;
515: l_bat_id ar_batches.batch_id%TYPE;
516: l_type ar_batches.type%TYPE;
517: BEGIN
518: IF PG_DEBUG in ('Y', 'C') THEN
519: arp_util.debug( 'arp_rw_batches_check_pkg.update_batch_status()+' );
520: arp_util.debug( 'Batch ID : '||p_batch_id );
521: END IF;
522: --
523: IF PG_DEBUG in ('Y', 'C') THEN
520: arp_util.debug( 'Batch ID : '||p_batch_id );
521: END IF;
522: --
523: IF PG_DEBUG in ('Y', 'C') THEN
524: arp_util.debug( 'arp_rw_batches_check_pkg.update_batch_status()-' );
525: END IF;
526: --
527: -- Set batch record values to dummy
528: --
642: Finally prevented updation of batch for status as currently
643: status field is not significant for remittance batch. Prevented for call from prepayment only
644: Also didnot get for lock in case of exisitng code to avoid any regression*/
645:
646: arp_standard.debug('arp_rw_batches_check_pkg.update_batch_status: Before locking');
647: l_exists := NULL;
648: BEGIN
649: SELECT 'Y',TYPE
650: INTO l_exists,l_type
652: WHERE batch_id = p_batch_id;
653: EXCEPTION
654: WHEN NO_DATA_FOUND THEN
655: NULL;
656: arp_standard.debug('arp_rw_batches_check_pkg.update_batch_status: No data with new status');
657: WHEN OTHERS THEN
658: arp_standard.debug( 'EXCEPTION: arp_rw_batches_check_pkg.update_batch_status lock batch' );
659: RAISE;
660: END;
654: WHEN NO_DATA_FOUND THEN
655: NULL;
656: arp_standard.debug('arp_rw_batches_check_pkg.update_batch_status: No data with new status');
657: WHEN OTHERS THEN
658: arp_standard.debug( 'EXCEPTION: arp_rw_batches_check_pkg.update_batch_status lock batch' );
659: RAISE;
660: END;
661:
662: IF nvl(p_called_from,'NONE') = 'PREPAYMENT' AND l_type = 'REMITTANCE' THEN
669: FROM ar_batches
670: WHERE batch_id = p_batch_id
671: FOR UPDATE OF STATUS;
672: */
673: arp_standard.debug('arp_rw_batches_check_pkg.update_batch_status: Before calling update for batch');
674: arp_cr_batches_pkg.update_p( l_batch_rec, p_batch_id );
675: END IF;
676: --Bug7194951 Changes End Here (FP of 7138001 and 7146916)
677:
679: EXCEPTION
680: WHEN OTHERS THEN
681: IF PG_DEBUG in ('Y', 'C') THEN
682: arp_util.debug(
683: 'EXCEPTION: arp_rw_batches_check_pkg.update_batch_status' );
684: END IF;
685: RAISE;
686: END update_batch_status;
687: --
1247: l_request_id ar_batches.request_id%TYPE;
1248: l_org_id number;
1249: BEGIN
1250: IF PG_DEBUG in ('Y', 'C') THEN
1251: arp_standard.debug( 'arp_rw_batches_check_pkg.post_batch_conc_req()+');
1252: END IF;
1253: --
1254: IF PG_DEBUG in ('Y', 'C') THEN
1255: arp_standard.debug( 'Batch Id '||p_batch_id );
1285: p_request_id := l_request_id;
1286: p_batch_applied_status := 'IN_PROCESS';
1287: --
1288: IF PG_DEBUG in ('Y', 'C') THEN
1289: arp_standard.debug( 'arp_rw_batches_check_pkg.post_batch_conc_req()-');
1290: END IF;
1291: --
1292: EXCEPTION
1293: WHEN OTHERS THEN
1292: EXCEPTION
1293: WHEN OTHERS THEN
1294: IF PG_DEBUG in ('Y', 'C') THEN
1295: arp_standard.debug(
1296: 'EXCEPTION: arp_rw_batches_check_pkg.post_batch_conc_req' );
1297: END IF;
1298: RAISE;
1299: --
1300: END post_batch_conc_req;
1373: l_onacct_count_total_lines NUMBER := 0;
1374: --
1375: BEGIN
1376: IF PG_DEBUG in ('Y', 'C') THEN
1377: arp_standard.debug( 'arp_rw_batches_check_pkg.get_quick_amount_totals()+');
1378: END IF;
1379: --
1380: IF PG_DEBUG in ('Y', 'C') THEN
1381: arp_standard.debug('get_quick_amount_totals: ' || 'Batch Id '||p_batch_id );
1553: arp_standard.debug('Get Quick Cash Totals - Claim Count Lines='||to_char(l_claim_count_total_lines));
1554: arp_standard.debug('Get Quick Cash Totals - onacct Count Header='||to_char(l_onacct_count_total_header));
1555: arp_standard.debug('Get Quick Cash Totals - Onacct Count Lines='||to_char(l_onacct_count_total_lines));
1556: arp_standard.debug('Get Quick Cash Totals - Claim Count='||to_char(p_claim_count_total));
1557: arp_standard.debug( 'arp_rw_batches_check_pkg.get_quick_amount_totals()-');
1558: END IF;
1559: --
1560: EXCEPTION
1561: WHEN OTHERS THEN
1560: EXCEPTION
1561: WHEN OTHERS THEN
1562: IF PG_DEBUG in ('Y', 'C') THEN
1563: arp_standard.debug('get_quick_amount_totals: ' ||
1564: 'EXCEPTION: arp_rw_batches_check_pkg.get_quick_amount_totals '||
1565: l_break_point );
1566: END IF;
1567: RAISE;
1568: --
1610: l_break_point VARCHAR2(20);
1611: --
1612: BEGIN
1613: IF PG_DEBUG in ('Y', 'C') THEN
1614: arp_standard.debug( 'arp_rw_batches_check_pkg.get_reg_amount_totals()+');
1615: END IF;
1616: --
1617: IF PG_DEBUG in ('Y', 'C') THEN
1618: arp_standard.debug('get_reg_amount_totals: ' || 'Batch Id '||p_batch_id );
1829: p_misc_amount_total := l_misc_amount_total;
1830: p_misc_count_total := l_misc_count_total;
1831: --
1832: IF PG_DEBUG in ('Y', 'C') THEN
1833: arp_standard.debug( 'arp_rw_batches_check_pkg.get_reg_amount_totals()-');
1834: END IF;
1835: --
1836: EXCEPTION
1837: WHEN OTHERS THEN
1836: EXCEPTION
1837: WHEN OTHERS THEN
1838: IF PG_DEBUG in ('Y', 'C') THEN
1839: arp_standard.debug('get_reg_amount_totals: ' ||
1840: 'EXCEPTION: arp_rw_batches_check_pkg.get_reg_amount_totals '||
1841: l_break_point );
1842: END IF;
1843: RAISE;
1844: --
1843: RAISE;
1844: --
1845: END get_reg_amount_totals;
1846:
1847: END ARP_RW_BATCHES_CHECK_PKG;