The following lines contain the word 'select', 'insert', 'update' or 'delete':
update evidence_status to
SUPERCEDED from CURRENT.
*/
PROCEDURE get_medical_sequence (p_medical_id in out number) is
cursor c1 is
select ssp_medicals_s.nextval
from sys.dual;
select h.rowid
from ssp_medicals h
where h.maternity_id = p_maternity_id
and h.medical_id <> p_medical_id
and upper(h.evidence_source) = p_evidence_source
and h.evidence_date = p_evidence_date;
select h.evidence_source, h.evidence_date
from ssp_medicals h
where h.absence_attendance_id = p_absence_attendance_id
and h.medical_id <> p_medical_id
and upper(h.evidence_source) = p_evidence_source
and h.evidence_date = p_evidence_date;
update ssp_medicals
set evidence_status='SUPERCEDED'
where absence_attendance_id = p_absence_attendance_id
and evidence_status = 'CURRENT';
update ssp_medicals
set evidence_status='SUPERCEDED'
where maternity_id = p_maternity_id
and evidence_status = 'CURRENT';