...rdb$trigger_name =: procname...
...rdb$trigger_name = :procname...

-------------\nCREATE PROCEDURE TEST_PROC \nreturns (\n    proc_name char( 31 ))\nas\nbegin\n  select OBJECT_NAME from GET_CALLER_NAME\n    into :PROC_NAME;\n  SUSPEND;\nend\n

  
SET TERM ^ ; 

CREATE PROCEDURE GET_TABLE_NAME_FOR_TRIGGER
RETURNS (
    TABLE_NAME CHAR( 31 ) CHARACTER SET UNICODE_FSS COLLATE UNICODE_FSS)
AS
BEGIN
  SUSPEND;
END^

SET TERM ; ^

CREATE TABLE PROTOCOL_TABLE_NAME (
    ID          INTEGER,
    TABLE_NAME  CHAR( 31 ) CHARACTER SET UNICODE_FSS
);

SET TERM ^ ;

CREATE TRIGGER PROTOCOL_TABLE_NAME_BI0 FOR PROTOCOL_TABLE_NAME
ACTIVE BEFORE INSERT POSITION  0 
AS
BEGIN
 SELECT TABLE_NAME FROM GET_TABLE_NAME_FOR_TRIGGER INTO NEW.TABLE_NAME;
END
^

SET TERM ; ^

SET TERM ^ ;

ALTER PROCEDURE GET_TABLE_NAME_FOR_TRIGGER
RETURNS (
    TABLE_NAME CHAR( 31 ) CHARACTER SET UNICODE_FSS COLLATE UNICODE_FSS)
AS
DECLARE VARIABLE OBJECT_NAME CHAR( 31 ) CHARACTER SET UNICODE_FSS;
DECLARE VARIABLE  OBJECT_TYPE SMALLINT;
DECLARE VARIABLE TRAN_ID INTEGER;    
BEGIN
  TRAN_ID = CURRENT_TRANSACTION;

  IN AUTONOMOUS TRANSACTION DO
  BEGIN
    SELECT FIRST  1  SKIP  1  CS.MON$OBJECT_NAME, CS.MON$OBJECT_TYPE
     FROM MON$CALL_STACK CS, MON$STATEMENTS ST WHERE
       CS.MON$STATEMENT_ID = ST.MON$STATEMENT_ID
       AND ST.MON$TRANSACTION_ID = :TRAN_ID
       ORDER BY CS.MON$CALL_ID ASCENDING
       INTO  :OBJECT_NAME, :OBJECT_TYPE;
  END

  IF (EXISTS (SELECT RDB$TYPE FROM RDB$TYPES
    WHERE RDB$FIELD_NAME='RDB$OBJECT_TYPE'
    AND RDB$TYPE_NAME='TRIGGER'
    AND RDB$TYPE=:OBJECT_TYPE)) THEN
  BEGIN
    SELECT RDB$RELATION_NAME FROM RDB$TRIGGERS WHERE RDB$TRIGGER_NAME= :OBJECT_NAME INTO :TABLE_NAME;
    SUSPEND;
  END
  ELSE
  BEGIN
    TABLE_NAME = NULL;
    SUSPEND ;
  END
end^

SET TERM ; ^

INSERT INTO PROTOCOL_TABLE_NAME(ID) VALUES( 1 );
INSERT INTO PROTOCOL_TABLE_NAME(ID) VALUES( 2 );
INSERT INTO PROTOCOL_TABLE_NAME(ID) VALUES( 3 );

COMMIT WORK;