Surpresas do PACKAGE diutil

Hoje descobri este pacote, diutil, que tem entre os seus constituíntes estas pérolas:

diutil.bool_to_int( b BOOLEAN) RETURN NUMBER -- Booleano de 3 estados para inteiro (1=True, 0=False , null=null)
diutil.int_to_bool( n NUMBER) return BOOLEAN -- inverso to diutil.bool_to_int

diutil.subptxt(
name IN VARCHAR2,
subname IN VARCHAR2,
usr IN VARCHAR2,
dbname IN VARCHAR2,
dbowner IN VARCHAR2,
txt IN OUT VARCHAR2,
status IN OUT ub4) -- faz o describe de uma função/procedimento com informação de overloading

exemplo:
DECLARE
txt VARCHAR2(4000):=null;
status BINARY_INTEGER:=null;
BEGIN
diutil.subptxt('HTP','P','FEUP_SI',null,'SYS',txt,status);

-- Output the results
dbms_output.put_line(SubStr('txt = '||txt,1,255));
dbms_output.put_line(SubStr('status = '||TO_CHAR(status), 1, 255));

END;

Output:
txt = procedure P (CBUF VARCHAR2 /* DEFAULTED */); procedure P (DBUF DATE); procedure P (NBUF NUMBER);
status = 0