Update Demoradooooo

Bom dia....meu povo..

da uma luz ae....eu fiz esse cursor mas estou cruzando ele com uma tabela de 40 mil registros...enfim...

esta demorando muito o update....alguem pode me dar uma luz vê se eu fiz algo errado?

abraços

CREATE OR REPLACE procedure CONTESTACAO_PF.proc_atu_id_subs_cons_pf_ods is

reg number:=0;
total number:=0;

cursor c1
is

select rowid
 from consolidado_contest_pf

where obs is null

 and cod_servico in (select cod_servico
 from dp_serv_contest
 where id_servico not in (4,251,122))
 and id_subs is null;

Begin

 dbms_output.put_line(to_char(sysdate,'dd/mm/yyyy hh24:mi:ss'));

 For r1 in c1
 Loop

 update consolidado_contest_pf
 set id_subs = FUNC_SUBS_ODS(linha,to_char(data_do_servico,'yyyymm'))
 where rowid = r1.rowid;

 reg := reg+1;

 If reg = 100
 then
 total := total+reg;
 Commit;
 Reg := 0;
 dbms_output.put_line (total ||' Registros processados');

 end if;

 End Loop;

 dbms_output.put_line(to_char(sysdate,'dd/mm/yyyy hh24:mi:ss'));

end;

/