The following lines contain the word 'select', 'insert', 'update' or 'delete':
select per_person_types_s.nextval
into l_person_type_id
from sys.dual;
insert into per_person_types
(person_type_id,
business_group_id,
active_flag,
default_flag,
system_person_type,
user_person_type)
values
(l_person_type_id,
p_business_group_id,
l_active_flag(l_count),
l_default_flag(l_count),
l_system_person_type(l_count),
l_user_person_type(l_count));