PACKAGE BODY: APPS.ARP_RECEIVABLE_APPLICATIONS

Source

1 PACKAGE BODY ARP_RECEIVABLE_APPLICATIONS AS
2 /* $Header: ARPLAPPB.pls 115.4 2002/11/18 21:47:18 anukumar ship $    */
3 
4 --
5     PROCEDURE PopulateCashReceiptHistoryId( p_CashReceiptId IN NUMBER,
6                                             p_CashReceiptHistoryId IN OUT NOCOPY NUMBER ) IS
7     BEGIN
8         IF p_CashReceiptId IS NOT NULL  AND  p_CashReceiptHistoryId IS NULL
9         THEN
10             p_CashReceiptHistoryId := arp_cash_receipt_history.GetCurrentId( p_CashReceiptId );
11         END IF;
12     EXCEPTION
13         WHEN OTHERS THEN
14             arp_standard.debug( 'Exception:arp_receivable_applications.PopulateCashReceiptHistoryId');
15             RAISE;
16     END;
17 --
18 END ARP_RECEIVABLE_APPLICATIONS;