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;