SET TERM ^ ;

CREATE OR ALTER PACKAGE USR_PKG_TEST
AS
begin
  function get_usr_name()
   returns varchar(30);

  function get_usr_id()
   returns numeric;

  procedure create_usr(p_user_name varchar(30))
    returns (p_id numeric);

end^

RECREATE PACKAGE BODY USR_PKG_TEST
AS
begin
  function get_usr_name()
   returns varchar(30)
  as
  begin
    return 'TEST_USER';
  end

  function get_usr_id()
   returns numeric
  as
    declare variable v_sess_usr_name varchar(30);
  begin
    v_sess_usr_name = get_usr_name(); -- Здесь хоть с именем пакета, хоть без имени пакета,
                                      -- ошибки при перекомпиляции в редакторе пакетов нет
    -- ...

    return 123;

  end

  procedure create_usr(p_user_name varchar(30))
    returns (p_id numeric)
  as
    declare variable v_sess_usr_id numeric;
  begin
    v_sess_usr_id = USR_PKG_TEST.get_usr_id(); -- Если здесь имя данного пакета, или функция вызывается без имени пакета,
                                               -- то на второй перекомпиляции пакета в редакторе пакетов происходит ошибка,
                                               -- приводящая к закрытию соединения с БД.
                                               -- Если здесь имя другого пакета с такой же функцией (например, просто копия этого пакета),
                                               -- то пакет можно перекомпилировать много раз, ошибки при перекомпиляции нет
    -- ...
  end

end
^

SET TERM ; ^

Error Message:
----------------------------------------
Unsuccessful execution caused by a system error that precludes successful execution of subsequent statements.
Error reading data from the connection.
-------------------------------------------------------------------------------------------------------------
SQLCODE: -902
SQLSTATE: 08006
GDSCODE: 335544726
Connection will be closed immediately.

[0054827B] FIB.IBError (Line 588, "FIB.pas" + 82) + $2
[00545771] FIBDatabase.TFIBTransaction.StartTransaction (Line 2953, "FIBDatabase.pas" + 62) + $C
[0110FA82] IBEDatabases.TIBEDatabase.GetMaxRdbFormat (Line 9599, "IBEDatabases.pas" + 14) + $5
[00FF72D9] Main.UpdateMaxRdbFormat (Line 5919, "Main.pas" + 4) + $B
[00EF146C] CompileForm.ExecuteSequence (Line 458, "CompileForm.pas" + 80) + $0
[00E5AEB8] PackageEditorF.TPackageEditorForm.Compile (Line 495, "PackageEditorF.pas" + 121) + $26