DSAUNICO-5154 DT Ajustes em base para realizar a atualização do novo campo na tabela Usuário

BEGIN
  FOR x IN (SELECT u.*
              FROM USUARIO u
              inner join CRITERIOS_DO_USUARIO cdu on cdu.nrsequencial_usuario = u.nrsequencial_usuario  AND CDU.CDCATEGSERV = f_parametro('CATEGSUS')
             where not exists
             (SELECT rrb.nrsequencial_usuario
                      FROM REM_CONTROLE_BENEF_ANS r
                     inner join rem_remessa_benef_in35 rrb
                        on rrb.nrseq_controle = r.nrseq_controle
                     where r.tpgeracao = 'A1300'
                       and rrb.nrsequencial_usuario = u.nrsequencial_usuario) and u.nrfamilia <> 0 and (u.dtexclusao is null or u.dtexclusao > sysdate)) LOOP
  
    UPDATE USUARIO
       SET CDPRECADBENEF = 'N'
     WHERE nrsequencial_usuario = x.nrsequencial_usuario;

   INSERT INTO CONTROLE_PRE_CADBENEF(NRCONTROLE,NRSEQUENCIAL_USUARIO,DT_SOLIC,CDSTATUS,CDCARTEIRINHA) VALUES(SEQ_CONTROLE_PRE_CADBENEF.NEXTVAL,x.nrsequencial_usuario,sysdate,'P',  f_parametro('NRUNIMED') || x.nrcontrato || lpad(x.nrfamilia,6,'0') || x.tpusuario || x.nrdigitoct  );

  END LOOP;
  --EXCEPTION
  --  WHEN Others THEN
END;

/

BEGIN
  FOR x IN (SELECT u.*
              FROM USUARIO u
             where exists
             (SELECT rrb.nrsequencial_usuario
                      FROM REM_CONTROLE_BENEF_ANS r
                     inner join rem_remessa_benef_in35 rrb
                        on rrb.nrseq_controle = r.nrseq_controle
                     where r.tpgeracao = 'A1300'
                       and rrb.nrsequencial_usuario = u.nrsequencial_usuario) and u.nrfamilia <> 0 ) LOOP
  
    UPDATE USUARIO
       SET CDPRECADBENEF = 'A'
     WHERE nrsequencial_usuario = x.nrsequencial_usuario;
  END LOOP;
  --EXCEPTION
  --  WHEN Others THEN
END;

/