SET TERM ^ ;

CREATE OR ALTER PACKAGE PKG_TEST
AS
BEGIN
 
END^

RECREATE PACKAGE BODY PKG_TEST
AS
BEGIN
    PROCEDURE DO_SOMETHING(PARAM INTEGER)
    AS
    BEGIN
    END

    FUNCTION FUNC() RETURNS INTEGER
    AS
    BEGIN
    END

    PROCEDURE DO_TEST
    AS
    BEGIN
        EXECUTE PROCEDURE DO_SOMETHING(FUNC());
    END
END^

SET TERM ; ^

    PROCEDURE DO_TEST
    AS
    BEGIN
        EXECUTE PROCEDURE DO_SOMETHING(IBE$DBG$PKG$3.FUNCIBE$DBG$PKG$3.DO_SOMETHING(FUNC());
    END