Subversion Repositories Sigmater

create or replace procedure CREA_RUOLO_PROFILO(DESCRIZIONE VARCHAR2,

                                               COD_APPLICAZIONE NUMBER,

                                               USER_NAME varchar2,

                                               PROFILO_FUNZIONE NUMBER) is

TEMP_KEY                 NUMBER;

begin

   select WS_PROFILI_UTENTE_SEQ.NEXTVAL into TEMP_KEY from dual;

begin

   -- inserimento del profilo utente e del ruolo 

   INSERT INTO WS_PROFILI_UTENTE(COD_PROFILO_U, DESCRIZIONE, COD_APPLICAZIONE)

   VALUES ( TEMP_KEY, DESCRIZIONE, COD_APPLICAZIONE);

   -- inserimento del ruolo utente

   INSERT INTO WS_RUOLI(COD_PROFILO_U, USERNAME, FLG_NOTIFICA_EVENTI)

   VALUES ( TEMP_KEY, USER_NAME, NULL);

   INSERT INTO WS_ABILITAZIONI ( COD_PROFILO_U,COD_PROFILO_FUNZ,COD_FILTRO)

   VALUES ( TEMP_KEY, PROFILO_FUNZIONE, 1); 

   COMMIT;

exception 

  when others then

   rollback;

end;

end CREA_RUOLO_PROFILO;

/