SET TERM ^ ;

CREATE OR ALTER PACKAGE PKG_TEST
AS
BEGIN
  FUNCTION test (in_id VARCHAR(10))
  RETURNS INTEGER;
END^

RECREATE PACKAGE BODY PKG_TEST
AS
BEGIN
  FUNCTION test (in_id VARCHAR(10))
  RETURNS INTEGER
  AS
  BEGIN
    RETURN 2;
  END
END^

SET TERM ; ^

EXECUTE IBEBLOCK
AS
BEGIN
  var_res = pkg_test.test('ABC');
  ibec_ShowMessage(:var_res);
END

EXECUTE IBEBLOCK
AS
BEGIN
  var_res = (SELECT pkg_test.test('ABC') FROM rdb$database);
  ibec_ShowMessage(:var_res);
END