The following lines contain the word 'select', 'insert', 'update' or 'delete':
This process delete the record as per the paramter provided
to a flat output file.
History:
Date Who Version What?
---- --- ------- -----
26 Aug 98 tjesumic 115.0 Created.
18 Sep 98 tjesumic 115.1 log purge added.
18 Sep 98 tjesumic 115.2 log purge added.
16 Feb 06 tjesumic 115.6 the system allows to delete the extract dfn though the result exist
the resull without defintion can be deleted now
01-May-07 tjesumic 115.7 commit added for every result and every 1000 log for performance
*/
-----------------------------------------------------------------------------------
--
g_package varchar2(30) := ' ben_ext_purge.';
select xrs.ext_rslt_id,xrs.ext_dfn_id ,
xrs.object_version_number,
xrs.eff_dt
from ben_ext_rslt xrs
where ( xrs.ext_dfn_id = p_ext_dfn_id
or p_ext_dfn_id is null )
and ( xrs.ext_rslt_id = p_ext_rslt_id
or p_ext_rslt_id is null )
and xrs.eff_dt <= p_date
and xrs.business_group_id = p_business_group_id ;
select ext_rslt_dtl_id,
object_version_number
from ben_ext_rslt_dtl xrd
where xrd.ext_rslt_id = p_ext_rslt_id ;
select ext_rslt_err_id,
object_version_number
from ben_Ext_rslt_err xre
where xre.ext_rslt_id = p_ext_rslt_id ;
select a.name
from ben_ext_dfn a
where a.ext_dfn_id = p_ext_dfn_id ;
ben_EXT_RSLT_DTL_api. delete_EXT_RSLT_DTL
(p_ext_rslt_dtl_id => l_xrd.ext_rslt_dtl_id
,p_object_version_number => l_object_version_number
) ;
ben_EXT_RSLT_ERR_api. delete_EXT_RSLT_ERR
(p_ext_rslt_err_id => l_xre.ext_rslt_err_id
,p_object_version_number => l_object_version_number
,p_effective_date => l_xrs.eff_dt
) ;
ben_EXT_RSLT_api.delete_EXT_RSLT
(p_ext_rslt_id => l_xrs.ext_rslt_id
,p_object_version_number => l_object_version_number
,p_effective_date => l_xrs.eff_dt
) ;
select cel.person_id,
cel.object_version_number,
cel.ext_chg_evt_log_id ,
cel.chg_eff_dt
from ben_ext_chg_evt_log cel
where (cel.person_id = p_person_id
or p_person_id is null )
and (trunc(cel.chg_eff_dt) <= p_eff_date
or p_eff_date is null )
and (trunc(cel.chg_actl_dt) <= p_act_date
or p_act_date is null )
and cel.business_group_id = p_business_group_id
order by cel.person_id ;
select full_name
from per_all_people_f
where person_id = p_person_id ;
ben_EXT_CHG_EVT_api.delete_EXT_CHG_EVT
(p_ext_chg_evt_log_id => l_ext_chg_evt_log_id
,p_object_version_number => l_object_version_number
,p_effective_date => l_eff_date
) ;