The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure chk_non_updateable_args
(p_rec in hxc_mcu_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
SELECT 'error'
FROM sys.dual
WHERE NOT EXISTS (
SELECT 'x'
FROM hxc_mapping_components mpc
WHERE mpc.mapping_component_id = p_mapping_component_id );
SELECT 'error'
FROM sys.dual
WHERE NOT EXISTS (
SELECT 'x'
FROM hxc_mappings map
WHERE map.mapping_id = p_mapping_id );
SELECT 'error'
FROM hxc_mapping_components mpc
WHERE mpc.mapping_component_id = p_mapping_component_id
AND EXISTS (
SELECT 'x'
FROM hxc_mapping_components mpc1
, hxc_mapping_comp_usages mcu
WHERE mcu.mapping_id = p_mapping_id
AND mcu.mapping_component_id = mpc1.mapping_component_id
AND mpc1.mapping_component_id <> mpc.mapping_component_id
AND mpc1.field_name = mpc.field_name );
SELECT 'error'
FROM hxc_mapping_components mpc
WHERE mpc.mapping_component_id = p_mapping_component_id
AND EXISTS (
SELECT 'x'
FROM hxc_mapping_components mpc1
, hxc_mapping_comp_usages mcu
WHERE mcu.mapping_id = p_mapping_id
AND mcu.mapping_component_id = mpc1.mapping_component_id
AND mpc1.segment = mpc.segment
AND mpc1.bld_blk_info_type_id = mpc.bld_blk_info_type_id );
Procedure insert_validate
(p_rec in hxc_mcu_shd.g_rec_type
) is
--
l_proc varchar2(72);
l_proc := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in hxc_mcu_shd.g_rec_type
) is
--
l_proc varchar2(72);
l_proc := g_package||'update_validate';
chk_non_updateable_args
(p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in hxc_mcu_shd.g_rec_type
) is
--
l_proc varchar2(72);
l_proc := g_package||'delete_validate';
hxc_map_bus.chk_delete ( p_mapping_id => p_rec.mapping_id );
End delete_validate;