The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure insert_session(p_effective_date in date)
is
begin
insert into fnd_sessions(
session_id,
effective_date)
values( userenv('sessionid'),
p_effective_date);
end insert_session;
procedure delete_session
is
begin
delete
from fnd_sessions
where session_id = userenv('sessionid');
end delete_session;
select /*+ ORDERD */
pett.element_name
from pay_element_types_f pet,
pay_element_types_f_tl pett
where pet.element_name = p_elm_name
and pet.legislation_code = 'JP'
and pett.element_type_id = pet.element_type_id
and pett.language = userenv('LANG');
-- 1. When element entry exists and one of input values to be transfered needs to be updated.
-- 2. When element entry does not exist and p_create_entry_if_not_exist is set to 'Y'.
--
-- if (l_ee_rec.element_entry_id is not null)
-- or (p_create_entry_if_not_exist = 'Y') then
--
-- Derive Non-resident flag as of Upload Date
--
l_non_res_date := pay_jp_balance_pkg.get_entry_value_date(
p_input_value_id => g_non_res_date_iv_id,
p_assignment_id => p_assignment_id,
p_effective_date => p_upload_date);
-- If element does not exist, "Insert" mode.
-- Also output all entry values to be transfered.
--
l_change_type := 'I';
insert_session(l_payment_date);
select to_number(global_value)
into g_non_taxable_limit_1mth
from ff_globals_f
where
---- bug 4029525 ----
-- l_effective_date
l_payment_date
---------------------
between effective_start_date and effective_end_date
and global_name = c_non_taxable_GlbVal_name;
-- When no batch lines are created, delete batch header and set message as errbuf.
--
if pay_jp_bee_utility_pkg.g_num_of_outs = 0 then
hr_utility.trace('BEE Header deleted');
pay_batch_element_entry_api.delete_batch_header(
p_validate => false,
p_batch_id => l_batch_id,
p_object_version_number => l_batch_ovn);
delete_session;