Subversion Repositories Sigmater

create or replace procedure DELETE_UTENTE(user_name varchar2) is


w_cod_profilo            NUMBER;

CURSOR curruoli IS
select cod_profilo_u from WS_RUOLI  
where username = user_name;
begin

   OPEN curruoli;
   
   LOOP
       FETCH curruoli INTO w_cod_profilo;
       EXIT WHEN curruoli%NOTFOUND;
   
        delete from WS_ABILITAZIONI 
        where cod_profilo_u = w_cod_profilo;  
    
         delete from  WS_RUOLI a
         where a.cod_profilo_u = w_cod_profilo;
    
         delete from WS_PROFILI_UTENTE 
         where cod_profilo_u = w_cod_profilo;
     
   END LOOP;

   CLOSE curruoli;
   -- inserisco l'abilitazione  
   delete from ws_cross_enti_utenti   where username = user_name;
   delete from ws_utenti where username = user_name;
   commit;
     
     
exception 
          when others then
               dbms_output.put_line('ERR INS utente '|| sqlcode ||' '||sqlerrm);
               rollback;
            
end DELETE_UTENTE;
/