The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, ben_ext_data_elmt xel
where xel.ext_data_elmt_id = p_ext_data_elmt_id
and pbg.business_group_id = xel.business_group_id;
select meaning into p_meaning from hr_lookups
where lookup_type='BEN_EXT_FRMT_MASK'
and lookup_code =p_frmt_mask_cd
and enabled_flag='Y';
select to_char(123456789,p_part_meaning) into frmt_val from dual;
select to_char(sysdate,p_meaning) into frmt_val from dual;
select null
from ff_formulas_f ff
-- ,per_business_groups pbg
where ff.formula_id = p_data_elmt_rl
and ff.formula_type_id in (-413,-531,-536,-537,-538,-539,-540,-541,-542,-543,-544,-545,-546)
-- and pbg.business_group_id = p_business_group_id
-- and nvl(ff.business_group_id, p_business_group_id) =
-- p_business_group_id
-- and nvl(ff.legislation_code, pbg.legislation_code) =
-- pbg.legislation_code
and ( -- exists globally
(business_group_id is null
and legislation_code is null
)
or -- exists within this legilsation
(legislation_code is not null
and legislation_code = p_legislation_code
)
or -- exists within this business group
(business_group_id is not null
and business_group_id = p_business_group_id
)
)
and p_effective_date
between ff.effective_start_date
and ff.effective_end_date
;
Procedure chk_delete_allowed(p_ext_data_elmt_id in number) is
--
l_proc varchar2(72) := g_package||'chk_delete_allowed';
select null
from ben_ext_data_elmt_in_rcd bed
where bed.ext_data_elmt_id = p_ext_data_elmt_id;
end chk_delete_allowed;
hr_utility.set_location('update mode :' || p_string_val ||' '|| ben_xel_shd.g_old_rec.string_val, 5);
select 'x' from
pay_defined_balances
where defined_balance_id = p_defined_balance_id
;
cursor c1 is select null
from ben_ext_data_elmt
Where ext_data_elmt_id <> nvl(p_ext_data_elmt_id,-1)
and name = p_name
-- and business_group_id = p_business_group_id
and ( (business_group_id is null -- is unique globally
and legislation_code is null
)
or -- is unique within this legilsation
(legislation_code is not null
and business_group_id is null
and legislation_code = p_legislation_code)
or -- is unique within this business group
(business_group_id is not null
and business_group_id = p_business_group_id)
)
;
(p_insert IN boolean
,p_business_group_id IN number
,p_legislation_code IN varchar2
,p_legislation_subgroup IN varchar2 DEFAULT NULL) IS
--
BEGIN
--
-- Call the supporting procedure to check startup mode
--
IF (p_insert) THEN
--
-- Call procedure to check startup_action for inserts.
--
hr_startup_data_api_support.chk_startup_action
(p_generic_allowed => TRUE
,p_startup_allowed => TRUE
,p_user_allowed => TRUE
,p_business_group_id => p_business_group_id
,p_legislation_code => p_legislation_code
,p_legislation_subgroup => p_legislation_subgroup
);
Procedure insert_validate(p_rec in ben_xel_shd.g_rec_type
,p_effective_date in date) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate(p_rec in ben_xel_shd.g_rec_type
,p_effective_date in date) is
--
l_proc varchar2(72) := g_package||'update_validate';
End update_validate;
Procedure delete_validate(p_rec in ben_xel_shd.g_rec_type
,p_effective_date in date) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_delete_allowed(p_ext_data_elmt_id => p_rec.ext_data_elmt_id);
End delete_validate;
select a.legislation_code
from per_business_groups a,
ben_ext_data_elmt b
where b.ext_data_elmt_id = p_ext_data_elmt_id
and a.business_group_id(+) = b.business_group_id;