The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_dml(p_rec in out nocopy ff_arc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
l_last_update_date ff_archive_items.last_update_date%TYPE;
l_last_updated_by ff_archive_items.last_updated_by%TYPE;
l_last_update_login ff_archive_items.last_update_login%TYPE;
l_last_update_date := sysdate;
l_last_updated_by := fnd_global.user_id;
l_last_update_login := fnd_global.login_id;
update ff_archive_items
set
archive_item_id = p_rec.archive_item_id,
value = p_rec.value,
last_update_date = l_last_update_date,
last_updated_by = l_last_updated_by,
last_update_login = l_last_update_login,
object_version_number = p_rec.object_version_number
where archive_item_id = p_rec.archive_item_id;
End update_dml;
Procedure pre_update(p_rec in ff_arc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure post_update(p_rec in ff_arc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
End post_update;
ff_arc_bus.update_validate(p_rec);
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);