The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out nocopy pqh_rng_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into pqh_attribute_ranges
( attribute_range_id,
approver_flag,
enable_flag,
delete_flag,
assignment_id,
attribute_id,
from_char,
from_date,
from_number,
position_id,
range_name,
routing_category_id,
routing_list_member_id,
to_char,
to_date,
to_number,
object_version_number
)
Values
( p_rec.attribute_range_id,
p_rec.approver_flag,
p_rec.enable_flag,
p_rec.delete_flag,
p_rec.assignment_id,
p_rec.attribute_id,
p_rec.from_char,
p_rec.from_date,
p_rec.from_number,
p_rec.position_id,
p_rec.range_name,
p_rec.routing_category_id,
p_rec.routing_list_member_id,
p_rec.to_char,
p_rec.to_date,
p_rec.to_number,
p_rec.object_version_number
);
End insert_dml;
Procedure pre_insert(p_rec in out nocopy pqh_rng_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select pqh_attribute_ranges_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(
p_effective_date in date,p_rec in pqh_rng_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
pqh_rng_rki.after_insert
(
p_attribute_range_id =>p_rec.attribute_range_id
,p_approver_flag =>p_rec.approver_flag
,p_enable_flag =>p_rec.enable_flag
,p_delete_flag =>p_rec.delete_flag
,p_assignment_id =>p_rec.assignment_id
,p_attribute_id =>p_rec.attribute_id
,p_from_char =>p_rec.from_char
,p_from_date =>p_rec.from_date
,p_from_number =>p_rec.from_number
,p_position_id =>p_rec.position_id
,p_range_name =>p_rec.range_name
,p_routing_category_id =>p_rec.routing_category_id
,p_routing_list_member_id =>p_rec.routing_list_member_id
,p_to_char =>p_rec.to_char
,p_to_date =>p_rec.to_date
,p_to_number =>p_rec.to_number
,p_object_version_number =>p_rec.object_version_number
,p_effective_date =>p_effective_date
);
End post_insert;
pqh_rng_bus.insert_validate(p_rec
,p_effective_date);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(
p_effective_date,p_rec);
p_delete_flag in varchar2 default null,
p_assignment_id in number default null,
p_attribute_id in number default null,
p_from_char in varchar2 default null,
p_from_date in date default null,
p_from_number in number default null,
p_position_id in number default null,
p_range_name in varchar2,
p_routing_category_id in number,
p_routing_list_member_id in number default null,
p_to_char in varchar2 default null,
p_to_date in date default null,
p_to_number in number default null,
p_object_version_number out nocopy number
) is
--
l_rec pqh_rng_shd.g_rec_type;
p_delete_flag,
p_assignment_id,
p_attribute_id,
p_from_char,
p_from_date,
p_from_number,
p_position_id,
p_range_name,
p_routing_category_id,
p_routing_list_member_id,
p_to_char,
p_to_date,
p_to_number,
null
);