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;