CREATE OR ALTER PROCEDURE TEST_SP
RETURNS (
    RESULT INTEGER)
AS
BEGIN
    RESULT = IIF(SINGULAR(SELECT 1 FROM RDB$DATABASE) IS TRUE, 1, 0);
    SUSPEND;
END

SET TERM ^ ;

CREATE OR ALTER PACKAGE TEST_PKG
AS
BEGIN
    FUNCTION GET_BOOL(PARAM BOOLEAN) RETURNS BOOLEAN;
END^

RECREATE PACKAGE BODY TEST_PKG
AS
BEGIN
    FUNCTION GET_BOOL(PARAM BOOLEAN) RETURNS BOOLEAN
    AS
    BEGIN
        IF (:PARAM IS TRUE) THEN
            RETURN TRUE;
        ELSE
            RETURN FALSE;
    END
END^

SET TERM ; ^