The following lines contain the word 'select', 'insert', 'update' or 'delete':
select count(*)
into l_descriptionCount
from ame_rules
where upper(description) = upper(p_description)
and (p_rule_id is null or rule_id <> p_rule_id) /* allows for future start date */
and ((p_effective_date between start_date
and nvl(end_date - ame_util.oneSecond, p_effective_date))
or
(p_effective_date < start_date
and start_date < nvl(end_date,start_date + ame_util.oneSecond)));
select null
from ame_item_classes
where
item_class_id = p_item_class_id and
p_effective_date between start_date and
nvl(end_date - ame_util.oneSecond, p_effective_date) ;
select count(*)
into l_count
from ame_rules
where lower(p_rule_key) = lower(rule_key);
select name
from ame_item_classes
where sysdate between start_date and nvl(end_date-(1/84600),sysdate)
and item_class_id = p_item_class_id;
procedure chk_delete
(p_rule_id in number,
p_object_version_number in number,
p_effective_date in date) is
l_proc varchar2(72) := g_package||'chk_delete';
select null
from ame_rule_usages
where
rule_id = p_rule_id and
p_effective_date between start_date and
nvl(end_date - ame_util.oneSecond, p_effective_date) ;
select null
from ame_condition_usages
where
rule_id = p_rule_id and
p_effective_date between start_date and
nvl(end_date - ame_util.oneSecond, p_effective_date) ;
select null
from ame_action_usages
where
rule_id = p_rule_id and
p_effective_date between start_date and
nvl(end_date - ame_util.oneSecond, p_effective_date) ;
end chk_delete;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in ame_rul_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
fnd_message.set_name('PER', 'AME_400467_NON_UPDATEABLE_FIELD');
fnd_message.set_name('PER', 'AME_400467_NON_UPDATEABLE_FIELD');
fnd_message.set_name('PER', 'AME_400467_NON_UPDATEABLE_FIELD');
End chk_non_updateable_args;
Procedure dt_update_validate
(p_datetrack_mode in varchar2
,p_validation_start_date in date
,p_validation_end_date in date
) Is
--
l_proc varchar2(72) := g_package||'dt_update_validate';
End dt_update_validate;
Procedure dt_delete_validate
(p_rule_id in number
,p_datetrack_mode in varchar2
,p_validation_start_date in date
,p_validation_end_date in date
) Is
--
l_proc varchar2(72) := g_package||'dt_delete_validate';
If (p_datetrack_mode = hr_api.g_delete or
p_datetrack_mode = hr_api.g_zap) then
--
--
-- Ensure the arguments are not null
--
hr_api.mandatory_arg_error
(p_api_name => l_proc
,p_argument => 'validation_start_date'
,p_argument_value => p_validation_start_date
);
End dt_delete_validate;
Procedure insert_validate
(p_rec in ame_rul_shd.g_rec_type
,p_effective_date in date
,p_datetrack_mode in varchar2
,p_validation_start_date in date
,p_validation_end_date in date
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in ame_rul_shd.g_rec_type
,p_effective_date in date
,p_datetrack_mode in varchar2
,p_validation_start_date in date
,p_validation_end_date in date
) is
--
l_proc varchar2(72) := g_package||'update_validate';
dt_update_validate
(p_datetrack_mode => p_datetrack_mode
,p_validation_start_date => p_validation_start_date
,p_validation_end_date => p_validation_end_date
);
chk_non_updateable_args
(p_effective_date => p_effective_date
,p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in ame_rul_shd.g_rec_type
,p_effective_date in date
,p_datetrack_mode in varchar2
,p_validation_start_date in date
,p_validation_end_date in date
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
dt_delete_validate
(p_datetrack_mode => p_datetrack_mode
,p_validation_start_date => p_validation_start_date
,p_validation_end_date => p_validation_end_date
,p_rule_id => p_rec.rule_id
);
ame_rul_bus.chk_delete
(p_rule_id => p_rec.rule_id
,p_object_version_number => p_rec.object_version_number
,p_effective_date => p_effective_date);
End delete_validate;