create or replace FUNCTION extraer_codigo (nombre EMP.ENAME%TYPE, codigo EMP.EMPNO%TYPE)
  RETURN VARCHAR2
IS
  vUsuario VARCHAR2(150);
BEGIN
  vUsuario := (SUBSTR(nombre,1,4) ||'_' || TO_CHAR(codigo));
  RETURN vUsuario;
END extraer_codigo;