PACKAGE BODY: APPS.OE_ADV_ITEM_PURGE

Source

1 PACKAGE BODY OE_ADV_ITEM_PURGE AS
2 /* $Header: OEXADPRB.pls 120.0 2005/06/01 00:25:19 appldev noship $ */
3 
4 
5 --  Start of Comments
6 --  API name    Purge_Used_Sessions
7 --  Type        Public
8 --  Function
9 --
10 --  Pre-reqs
11 --
12 --  Parameters
13 --
14 --  Version     Current version = 1.0
15 --              Initial version = 1.0
16 --
17 --  Notes
18 --
19 --  End of Comments
20 
21 PROCEDURE Purge_Used_Sessions  ( retcode OUT NOCOPY VARCHAR2,
22 				 errbuf OUT NOCOPY VARCHAR2 )
23   IS
24 
25 BEGIN
26 
27    delete from oe_selected_items
28     where used_flag = 'Y';
29 
30    commit;
31 
32 EXCEPTION
33 
34    WHEN OTHERS THEN
35       oe_debug_pub.add( 'Error in deleting data from oe_selected_items '||sqlerrm);
36       retcode := 2;
37       errbuf := sqlerrm;
38 
39 END PURGE_USED_SESSIONS;
40 
41 END OE_ADV_ITEM_PURGE;