The following lines contain the word 'select', 'insert', 'update' or 'delete':
select
person_type_usage_id,
person_id,
person_type_id,
effective_start_date,
effective_end_date,
object_version_number,
request_id,
program_application_id,
program_id,
program_update_date,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
attribute16,
attribute17,
attribute18,
attribute19,
attribute20,
attribute21,
attribute22,
attribute23,
attribute24,
attribute25,
attribute26,
attribute27,
attribute28,
attribute29,
attribute30
from per_person_type_usages_f
where person_type_usage_id = p_person_type_usage_id
and p_effective_date
between effective_start_date and effective_end_date;
p_delete out nocopy boolean,
p_future_change out nocopy boolean,
p_delete_next_change out nocopy boolean) is
--
l_proc varchar2(72) := g_package||'find_dt_del_modes';
select ptu.person_id
from per_person_type_usages_f ptu
where ptu.person_type_usage_id = p_base_key_value
and p_effective_date between ptu.effective_start_date
and ptu.effective_end_date;
p_delete => p_delete,
p_future_change => p_future_change,
p_delete_next_change => p_delete_next_change
);
p_delete_next_change := false;
p_delete := false;
p_delete_next_change := false;
p_delete := false;
p_update out nocopy boolean,
p_update_override out nocopy boolean,
p_update_change_insert out nocopy boolean) is
--
l_proc varchar2(72) := g_package||'find_dt_upd_modes';
p_update => p_update,
p_update_override => p_update_override,
p_update_change_insert => p_update_change_insert
);
p_update_override := false;
p_update_change_insert := false;
p_update := false;
p_update_override := false;
p_update := false;
select *
from per_person_type_usages_f
where person_type_usage_id = p_base_key_value
and p_effective_date
between effective_start_date
and effective_end_date;
update per_person_type_usages_f t
set t.effective_end_date = p_new_effective_end_date,
t.object_version_number = l_object_version_number
where t.person_type_usage_id = p_base_key_value
and p_effective_date
between t.effective_start_date and t.effective_end_date;
select
person_type_usage_id,
person_id,
person_type_id,
effective_start_date,
effective_end_date,
object_version_number,
request_id,
program_application_id,
program_id,
program_update_date,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
attribute16,
attribute17,
attribute18,
attribute19,
attribute20,
attribute21,
attribute22,
attribute23,
attribute24,
attribute25,
attribute26,
attribute27,
attribute28,
attribute29,
attribute30
from per_person_type_usages_f
where person_type_usage_id = p_person_type_usage_id
and p_effective_date
between effective_start_date and effective_end_date
for update nowait;
If (p_datetrack_mode <> 'INSERT') then
--
-- We must select and lock the current row.
--
Open C_Sel1;
p_program_update_date in date,
p_attribute_category in varchar2,
p_attribute1 in varchar2,
p_attribute2 in varchar2,
p_attribute3 in varchar2,
p_attribute4 in varchar2,
p_attribute5 in varchar2,
p_attribute6 in varchar2,
p_attribute7 in varchar2,
p_attribute8 in varchar2,
p_attribute9 in varchar2,
p_attribute10 in varchar2,
p_attribute11 in varchar2,
p_attribute12 in varchar2,
p_attribute13 in varchar2,
p_attribute14 in varchar2,
p_attribute15 in varchar2,
p_attribute16 in varchar2,
p_attribute17 in varchar2,
p_attribute18 in varchar2,
p_attribute19 in varchar2,
p_attribute20 in varchar2,
p_attribute21 in varchar2,
p_attribute22 in varchar2,
p_attribute23 in varchar2,
p_attribute24 in varchar2,
p_attribute25 in varchar2,
p_attribute26 in varchar2,
p_attribute27 in varchar2,
p_attribute28 in varchar2,
p_attribute29 in varchar2,
p_attribute30 in varchar2
)
Return g_rec_type is
--
l_rec g_rec_type;
l_rec.program_update_date := p_program_update_date;