begin
FOR i IN (select ID_PERGUNTA from TB_GA_PERGUNTA where id_topico = 4849) LOOP
insert into tb_ga_tipo_resposta (ID_PERGUNTA,NM_TIPO_RESPOSTA,IC_ATIVO) values (i.ID_PERGUNTA,'OK','S');
END LOOP;
end;
begin
FOR i IN (select ID_PERGUNTA from TB_GA_PERGUNTA where id_topico = 4849) LOOP
insert into tb_ga_tipo_resposta (ID_PERGUNTA,NM_TIPO_RESPOSTA,IC_ATIVO) values (i.ID_PERGUNTA,'OK','S');
END LOOP;
end;