create or replace procedure newversion(licyid in number) is
  idd_ number;
  
begin
  delete from inspolreport;

begin 
  eprlogin_second;
  pkg_gfh.applynewversion(licyidid,idd_,null);
  pkg_reports.licyid_fconstructor(idd_); 
end;

for rex in (select r.* from inspolreport_session r )
loop
  insert into  inspolreport  values(rex.id,rex.amount);  
end loop;
 
rollback;

end newversion;

create or replace procedure newversion(licyid in number) is
  idd_ number;
  
begin
  delete from inspolreport;

  eprlogin_second;
  pkg_gfh.applynewversion(licyid ,idd_,null);
  pkg_reports.licyid_fconstructor(idd_);
  actuarialnewversion_insert();

rollback;

end newversion;

create or replace procedure newversion_insert is
  idd_ number;
pragma autonomous_transaction;
begin
for rex in (select r.* from inspolreport_session r )
loop
  insert into  inspolreport   values(rex.id,rex.amount);
end loop;
commit;
end newversion_insert;