1 PACKAGE BODY arp_trx_purge AS
2 /* $Header: ARPUPRGB.pls 115.0 99/07/17 00:07:22 porting ship $ */
3
4 FUNCTION trx_purgeable(p_customer_trx_id IN NUMBER) RETURN BOOLEAN IS
5 allow_purge BOOLEAN := TRUE;
6 BEGIN
7 --
8 -- Place your logic here. Set the value of allow_purge to TRUE if
9 -- you want this invoice to be purge, or FALSE if you don't want it
10 -- purged
11 RETURN allow_purge;
12
13 END;
14
15 END arp_trx_purge;