PACKAGE BODY: APPS.ARP_RM_ACCOUNTS_PKG

Source

1 PACKAGE BODY ARP_RM_ACCOUNTS_PKG AS
2 /*$Header: ARSIRMAB.pls 120.6 2004/02/27 19:00:24 mraymond ship $*/
3 --
4 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
5 
6 PROCEDURE fetch_p(
7 	p_receipt_method_id IN ar_receipt_method_accounts.receipt_method_id%TYPE,
8         p_bank_account_id IN ar_receipt_method_accounts.remit_bank_acct_use_id%type,
9         p_rma_rec OUT NOCOPY ar_receipt_method_accounts%ROWTYPE ) IS
10 BEGIN
11     IF PG_DEBUG in ('Y', 'C') THEN
12        arp_standard.debug( '>>ar_rm_accounts_pkg.fetch_p' );
13     END IF;
14     --
15     SELECT *
16     INTO   p_rma_rec
17     FROM   ar_receipt_method_accounts
18     WHERE  receipt_method_id = p_receipt_method_id
19     AND    remit_bank_acct_use_id = p_bank_account_id;
20     IF PG_DEBUG in ('Y', 'C') THEN
21        arp_standard.debug( '<<ar_rm_accounts_pkg.fetch_p' );
22     END IF;
23     --
24     EXCEPTION
25          WHEN OTHERS THEN
26               IF PG_DEBUG in ('Y', 'C') THEN
27                  arp_standard.debug( 'EXCEPTION: ar_rm_accounts_pkg.fetch_p' );
28               END IF;
29               RAISE;
30 END fetch_p;
31 --
32 END ARP_RM_ACCOUNTS_PKG;