Load a PL/PDF embedded TrueType font by name

CREATE OR REPLACE PROCEDURE LoadFont(p_fontname IN VARCHAR2,
                                     p_alias    IN VARCHAR2) IS
    l_ttf Plpdf_Type.t_addfont;
    l_id  NUMBER;
  BEGIN
    BEGIN
      SELECT ID INTO l_id
      FROM PLPDF.plpdf_ttf_add ttfa
      WHERE (ttfa.ADD_NAME = p_fontname);
      l_ttf := Plpdf_Ttf.GetTTF(l_id);
      Plpdf.addTTF(p_alias, NULL, l_ttf);
    EXCEPTION
      WHEN OTHERS THEN
        NULL;
        -- Call your error reporting procedure
    END;
  END;
/