create or replace FUNCTION generarUsuarios (nombre VARCHAR2, codigo INT)
  RETURN VARCHAR2
IS
  vUsuario VARCHAR2(150);
BEGIN
  vUsuario := SUBSTR(LOWER(nombre),1,4) ||'_' || TO_CHAR(codigo);
  RETURN vUsuario;
END generarUsuarios;