Obtener iniciales de un campo varchar solo texto

[angvera]

Código SQL:

PROMPT CREATE OR REPLACE FUNCTION OBT_SOLO_INICIALES
CREATE OR REPLACE FUNCTION OBT_SOLO_INICIALES
(P_DATO VARCHAR2)
RETURN VARCHAR2 IS
BEGIN
    --REALIZADOR:         ANGEL VERA
    --FECHA CREACION:     15.10.2014 08:24
    --FECHA ULT. MODIF.:  15.10.2014 08:24
    --OBJETIVO:
 
  RETURN REPLACE(TRANSLATE(INITCAP(P_DATO),'abcdefghijklmnñopqrstuvwxyz',' '),' ',NULL);
 
END;
/