The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_retrieval_rule_comps
(p_validate in boolean default false
,p_retrieval_rule_comp_id in number
,p_object_version_number in out nocopy number
,p_retrieval_rule_id in number
,p_status in varchar2
,p_time_recipient_id in number
,p_effective_date in date default null
)is
--
-- Declare cursors and local variables
--
l_proc varchar2(72);
l_proc := g_package||' update_retrieval_rule_comps';
savepoint update_retrieval_rule_comps;
hxc_retrieval_rule_comps_bk_1.update_retrieval_rule_comps_b
(p_retrieval_rule_comp_id => p_retrieval_rule_comp_id
,p_object_version_number => p_object_version_number
,p_retrieval_rule_id => p_retrieval_rule_id
,p_status => p_status
,p_time_recipient_id => p_time_recipient_id
,p_effective_date => p_effective_date
);
(p_module_name => 'update_retrieval_rule_comps'
,p_hook_type => 'BP'
);
hxc_retrieval_rule_comps_bk_1.update_retrieval_rule_comps_a
(p_retrieval_rule_comp_id => p_retrieval_rule_comp_id
,p_object_version_number => p_object_version_number
,p_retrieval_rule_id => p_retrieval_rule_id
,p_status => p_status
,p_time_recipient_id => p_time_recipient_id
,p_effective_date => p_effective_date
);
(p_module_name => 'update_retrieval_rule_comps'
,p_hook_type => 'AP'
);
ROLLBACK TO update_retrieval_rule_comps;
ROLLBACK TO update_retrieval_rule_comps;
END update_retrieval_rule_comps;
procedure delete_retrieval_rule_comps
(p_validate in boolean default false
,p_retrieval_rule_comp_id in number
,p_object_version_number in number
) is
--
-- Declare cursors and local variables
--
l_proc varchar2(72);
l_proc := g_package||'delete_retrieval_rule_comps';
savepoint delete_retrieval_rule_comps;
hxc_retrieval_rule_comps_bk_1.delete_retrieval_rule_comps_b
(p_retrieval_rule_comp_id => p_retrieval_rule_comp_id
,p_object_version_number => p_object_version_number
);
(p_module_name => 'delete_retrieval_rule_comps'
,p_hook_type => 'BP'
);
hxc_retrieval_rule_comps_bk_1.delete_retrieval_rule_comps_a
(p_retrieval_rule_comp_id => p_retrieval_rule_comp_id
,p_object_version_number => p_object_version_number
);
(p_module_name => 'delete_retrieval_rule_comps'
,p_hook_type => 'AP'
);
ROLLBACK TO delete_retrieval_rule_comps;
ROLLBACK TO delete_retrieval_rule_comps;
end delete_retrieval_rule_comps;
SELECT 'error'
FROM sys.dual
WHERE EXISTS (select a
from (
select rc.retrieval_rule_id a,count(*) CNT
from hxc_retrieval_rule_comps rc, hxc_retrieval_rules rr
where rr.RETRIEVAL_PROCESS_ID = (select RETRIEVAL_PROCESS_ID
from hxc_retrieval_rules
where retrieval_rule_id=p_retrieval_rule_id)
and rr.retrieval_rule_id <> p_retrieval_rule_id
and rc.retrieval_rule_id <> p_retrieval_rule_id
and rc.retrieval_rule_id = rr.retrieval_rule_id
and (rc.TIME_RECIPIENT_ID, rc.STATUS) in ( select TIME_RECIPIENT_ID, STATUS
from hxc_retrieval_rule_comps
where retrieval_rule_id = p_retrieval_rule_id
)
group by rc.retrieval_rule_id
)
where CNT = (select count(distinct time_recipient_id)
from hxc_retrieval_rule_comps
where retrieval_rule_id = p_retrieval_rule_id)
and a not in (
select retrieval_rule_id
from hxc_retrieval_rule_comps
where
(TIME_RECIPIENT_ID, STATUS) not in ( select TIME_RECIPIENT_ID, STATUS
from hxc_retrieval_rule_comps
where retrieval_rule_id = p_retrieval_rule_id
)
));