The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT s_unit_status
FROM IGS_PS_UNIT_VER,
IGS_PS_UNIT_STAT
WHERE unit_cd = p_unit_cd AND
version_number = p_version_number AND
IGS_PS_UNIT_VER.unit_status = IGS_PS_UNIT_STAT.unit_status;
-- validate whether or not inserts and updates can be made
-- to IGS_PS_UNIT version detail record.
p_message_name := NULL;