The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 'YES'
from OTA_ACTIVITY_VERSIONS TAV
where TAV.ACTIVITY_VERSION_ID = P_ACTIVITY_VERSION_ID;
select 'YES'
from PO_VENDORS VEN
where VEN.VENDOR_ID = P_VENDOR_ID;
select 'NO'
from OTA_VENDOR_SUPPLIES VSP
where VSP.ACTIVITY_VERSION_ID = P_ACTIVITY_VERSION_ID
and VSP.VENDOR_ID = P_VENDOR_ID;
select 'NO'
from OTA_VENDOR_SUPPLIES VSP
where VSP.ACTIVITY_VERSION_ID = P_ACTIVITY_VERSION_ID
and VSP.PRIMARY_SUPPLIER_FLAG = P_PRIMARY_SUPPLIER_FLAG
and VSP.VENDOR_ID <> P_VENDOR_ID;
select vsp.vendor_id
, vsp.primary_supplier_flag
, vsp.comments
from ota_vendor_supplies vsp
where vsp.activity_version_id = p_activity_version_from;
Procedure insert_dml(p_rec in out g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into ota_vendor_supplies
( vendor_supply_id,
vendor_id,
activity_version_id,
primary_supplier_flag,
comments
)
Values
( p_rec.vendor_supply_id,
p_rec.vendor_id,
p_rec.activity_version_id,
p_rec.primary_supplier_flag,
p_rec.comments
);
End insert_dml;
Procedure update_dml(p_rec in out g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
update ota_vendor_supplies
set
vendor_supply_id = p_rec.vendor_supply_id,
vendor_id = p_rec.vendor_id,
activity_version_id = p_rec.activity_version_id,
primary_supplier_flag = p_rec.primary_supplier_flag,
comments = p_rec.comments
where vendor_supply_id = p_rec.vendor_supply_id;
End update_dml;
Procedure delete_dml(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_dml';
delete from ota_vendor_supplies
where vendor_supply_id = p_rec.vendor_supply_id;
End delete_dml;
Procedure pre_insert(p_rec in out g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select ota_vendor_supplies_s.nextval from sys.dual;
End pre_insert;
Procedure pre_update(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure pre_delete(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_delete';
End pre_delete;
Procedure post_insert(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
End post_insert;
Procedure post_update(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
End post_update;
Procedure post_delete(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_delete';
End post_delete;
select vendor_supply_id,
vendor_id,
activity_version_id,
primary_supplier_flag,
comments
from ota_vendor_supplies
where vendor_supply_id = p_vendor_supply_id
for update nowait;
Procedure insert_validate(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_validate';
End update_validate;
Procedure delete_validate(p_rec in g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;
insert_validate(p_rec);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(p_rec);
update_validate(convert_defs(p_rec));
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);
delete_validate(p_rec);
pre_delete(p_rec);
delete_dml(p_rec);
post_delete(p_rec);