The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out nocopy per_kad_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into per_addresses
( address_id,
business_group_id,
person_id,
date_from,
primary_flag,
style,
address_line1,
address_line2,
address_line3,
address_type,
comments,
country,
date_to,
postal_code,
region_1,
region_2,
region_3,
telephone_number_1,
telephone_number_2,
telephone_number_3,
town_or_city,
request_id,
program_application_id,
program_id,
program_update_date,
addr_attribute_category,
addr_attribute1,
addr_attribute2,
addr_attribute3,
addr_attribute4,
addr_attribute5,
addr_attribute6,
addr_attribute7,
addr_attribute8,
addr_attribute9,
addr_attribute10,
addr_attribute11,
addr_attribute12,
addr_attribute13,
addr_attribute14,
addr_attribute15,
addr_attribute16,
addr_attribute17,
addr_attribute18,
addr_attribute19,
addr_attribute20,
object_version_number
)
Values
( p_rec.address_id,
p_rec.business_group_id,
p_rec.person_id,
p_rec.date_from,
p_rec.primary_flag,
p_rec.style,
p_rec.address_line1,
p_rec.address_line2,
p_rec.address_line3,
p_rec.address_type,
p_rec.comments,
p_rec.country,
p_rec.date_to,
p_rec.postal_code,
p_rec.region_1,
p_rec.region_2,
p_rec.region_3,
p_rec.telephone_number_1,
p_rec.telephone_number_2,
p_rec.telephone_number_3,
p_rec.town_or_city,
p_rec.request_id,
p_rec.program_application_id,
p_rec.program_id,
p_rec.program_update_date,
p_rec.addr_attribute_category,
p_rec.addr_attribute1,
p_rec.addr_attribute2,
p_rec.addr_attribute3,
p_rec.addr_attribute4,
p_rec.addr_attribute5,
p_rec.addr_attribute6,
p_rec.addr_attribute7,
p_rec.addr_attribute8,
p_rec.addr_attribute9,
p_rec.addr_attribute10,
p_rec.addr_attribute11,
p_rec.addr_attribute12,
p_rec.addr_attribute13,
p_rec.addr_attribute14,
p_rec.addr_attribute15,
p_rec.addr_attribute16,
p_rec.addr_attribute17,
p_rec.addr_attribute18,
p_rec.addr_attribute19,
p_rec.addr_attribute20,
p_rec.object_version_number
);
End insert_dml;
Procedure pre_insert(p_rec in out nocopy per_kad_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select per_addresses_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(p_rec in per_kad_shd.g_rec_type,
p_effective_date in date) is
--
l_proc varchar2(72) := g_package||'post_insert';
End post_insert;
per_kad_bus.insert_validate(p_rec
,p_effective_date
);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(p_rec,p_effective_date);
,p_program_update_date in date default null
,p_addr_attribute_category in varchar2 default null
,p_addr_attribute1 in varchar2 default null
,p_addr_attribute2 in varchar2 default null
,p_addr_attribute3 in varchar2 default null
,p_addr_attribute4 in varchar2 default null
,p_addr_attribute5 in varchar2 default null
,p_addr_attribute6 in varchar2 default null
,p_addr_attribute7 in varchar2 default null
,p_addr_attribute8 in varchar2 default null
,p_addr_attribute9 in varchar2 default null
,p_addr_attribute10 in varchar2 default null
,p_addr_attribute11 in varchar2 default null
,p_addr_attribute12 in varchar2 default null
,p_addr_attribute13 in varchar2 default null
,p_addr_attribute14 in varchar2 default null
,p_addr_attribute15 in varchar2 default null
,p_addr_attribute16 in varchar2 default null
,p_addr_attribute17 in varchar2 default null
,p_addr_attribute18 in varchar2 default null
,p_addr_attribute19 in varchar2 default null
,p_addr_attribute20 in varchar2 default null
,p_object_version_number out nocopy number
,p_validate in boolean default false
,p_effective_date in date
) is
--
l_rec per_kad_shd.g_rec_type;
p_program_update_date,
p_addr_attribute_category,
p_addr_attribute1,
p_addr_attribute2,
p_addr_attribute3,
p_addr_attribute4,
p_addr_attribute5,
p_addr_attribute6,
p_addr_attribute7,
p_addr_attribute8,
p_addr_attribute9,
p_addr_attribute10,
p_addr_attribute11,
p_addr_attribute12,
p_addr_attribute13,
p_addr_attribute14,
p_addr_attribute15,
p_addr_attribute16,
p_addr_attribute17,
p_addr_attribute18,
p_addr_attribute19,
p_addr_attribute20,
null
);