PACKAGE BODY: APPS.ARP_RECEIVABLES_TRX_PKG

Source

1 PACKAGE BODY ARP_RECEIVABLES_TRX_PKG AS
2 /*$Header: ARSIRTB.pls 115.5 2003/10/24 19:36:06 mraymond ship $*/
3 --
4 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
5 
6 PROCEDURE fetch_p(
7 	p_receivables_trx_id IN ar_receivables_trx.receivables_trx_id%TYPE,
8         p_rt_rec OUT NOCOPY ar_receivables_trx%ROWTYPE ) IS
9 BEGIN
10     IF PG_DEBUG in ('Y', 'C') THEN
11        arp_standard.debug( 'arp_receivables_trx_pkg.fetch_p()+' );
12     END IF;
13     --
14     SELECT *
15     INTO   p_rt_rec
16     FROM   ar_receivables_trx
17     WHERE  receivables_trx_id = p_receivables_trx_id;
18     --
19     IF PG_DEBUG in ('Y', 'C') THEN
20        arp_standard.debug( 'arp_receivables_trx_pkg.fetch_p()-' );
21     END IF;
22     --
23     EXCEPTION
24          WHEN OTHERS THEN
25               IF PG_DEBUG in ('Y', 'C') THEN
26                  arp_standard.debug( 'EXCEPTION: arp_receivables_trx_pkg.fetch_p' );
27               END IF;
28               RAISE;
29 END fetch_p;
30 --
31 END ARP_RECEIVABLES_TRX_PKG;