begin for c in (
select
t.cd_pessoa cd_pessoa_u
,t.id
from
bento.pessoa_fisica t
where t.cd_pessoa = 123
)
loop
update bent.consultas a
set a.pessoa_id = c.cd_pessoa_u
where a.id = c.id;
— commit;
dbms_output.put_line(c.cd_pessoa_u);
end loop;
end;