PACKAGE BODY: APPS.BIS_RSG_VH_PURGE

Source

1 package body BIS_RSG_VH_PURGE AS
2 /*$Header: BISVHPUB.pls 120.1 2006/02/10 05:56:24 aguwalan noship $*/
3 procedure purge_history_tables(Errbuf out nocopy varchar2, Retcode out nocopy varchar2) is
4 begin
5   delete from bis_request_set_options opt where request_set_name not in
6     (select request_set_name from fnd_request_sets req
7      where req.request_set_name = opt.request_set_name and req.application_id=opt.set_app_id );
8 
9   delete from bis_request_set_objects obj where request_set_name not in
10     (select request_set_name from fnd_request_sets req
11      where req.request_set_name = obj.request_set_name and req.application_id=obj.set_app_id );
12 
13   commit;
14 end;
15 
16 END BIS_RSG_VH_PURGE;