execute block
AS
  declare variable curr_conn_id  D_INTEGER;
  declare variable p02 D_BIGINT;
  declare variable p03 D_INTEGER;
  declare variable p04 D_SMALLINT;
  declare variable p05 D_ATTACHMENT_NAME;
  declare variable p06 D_USER_ROLE;
  declare variable p07 D_USER_ROLE;
  declare variable p08 D_REMOTE_PROTOCOL;
  declare variable p09 D_REMOTE_ADDRESS;
  declare variable p10 D_INTEGER;
  declare variable p11 D_SMALLINT;
  declare variable p13 D_SMALLINT;
  declare variable p14 D_REMOTE_PROCESS;
  declare variable p15 D_INTEGER;
  declare variable p16 D_CLIENT_VERSION;
  declare variable p17 D_REMOTE_VERSION;
  declare variable p18 D_REMOTE_HOST;
  declare variable p19 D_REMOTE_OS_USER;
  declare variable p20 D_AUTH_METHOD;
  declare variable p21 D_SMALLINT;
  declare variable p22 MON$IDLE_TIMEOUT /* MON$IDLE_TIMEOUT = D_INTKEY */;
  declare variable p23 MON$IDLE_TIMER /* MON$IDLE_TIMER = TIMESTAMP WITH TIME ZONE NOT NULL */;
  declare variable p24 MON$STATEMENT_TIMEOUT /* MON$STATEMENT_TIMEOUT = D_INTKEY */;
  declare variable p25 D_BOOLEAN;
  declare variable p26 D_BOOLEAN;
  declare variable p27 MON$WIRE_CRYPT_PLUGIN /* MON$WIRE_CRYPT_PLUGIN = VARCHAR(63) NOT NULL */;
  declare variable p28 D_SESSION_TIMEZONE;
  declare variable p29 MON$PARALLEL_WORKERS /* MON$PARALLEL_WORKERS = D_INTKEY */;
  declare variable p30 D_TIMESTAMP;
  declare variable s varchar(4096);
begin
  select
    MON$ATTACHMENT_ID,      --02 D_BIGINT
    MON$SERVER_PID,         --03 D_INTEGER
    MON$STATE,              --04 D_SMALLINT
    MON$ATTACHMENT_NAME,    --05 D_ATTACHMENT_NAME
    MON$USER,               --06
    MON$ROLE,               --07
    MON$REMOTE_PROTOCOL,    --08
    MON$REMOTE_ADDRESS,     --09
    MON$REMOTE_PID,         --10
    MON$CHARACTER_SET_ID,   --11
    MON$GARBAGE_COLLECTION, --13
    MON$REMOTE_PROCESS,     --14
    MON$STAT_ID,            --15
    MON$CLIENT_VERSION,     --16
    MON$REMOTE_VERSION,     --17
    MON$REMOTE_HOST,        --18
    MON$REMOTE_OS_USER,     --19
    MON$AUTH_METHOD,        --20
    MON$SYSTEM_FLAG,        --21
    MON$IDLE_TIMEOUT,       --22
    MON$IDLE_TIMER,         --23
    MON$STATEMENT_TIMEOUT,  --24
    MON$WIRE_COMPRESSED,    --25
    MON$WIRE_ENCRYPTED,     --26
    MON$WIRE_CRYPT_PLUGIN,  --27
    MON$SESSION_TIMEZONE,   --28
    MON$PARALLEL_WORKERS,   --29
    MON$TIMESTAMP           --30
  from mon$attachments
  where mon$attachments.mon$attachment_id = CURRENT_CONNECTION
  into :p02,:p03,:p04,:p05,:p06,:p07,:p08,:p09,:p10,:p11,:p13,:p14,:p15, p16,:p17,:p18,:p19,:p20,:p21,:p22,:p23,:p24,:p25,p26,:p27,:p28,:p29,:p30;
--                                          02 03 04 05 06 07 08 09 10 11 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

S = 'insert into chg_conn (
        CHG_ATTACHMENT_ID,     --02
        CHG_SERVER_PID,        --03
        CHG_STATE,             --04
        CHG_ATTACHMENT_NAME,   --05
        CHG_USER,              --06
        CHG_ROLE,              --07
        CHG_REMOTE_PROTOCOL,   --08
        CHG_REMOTE_ADDRESS,    --09
        CHG_REMOTE_PID,        --10
        CHG_CHARACTER_SET_ID,  --11
        CHG_GARBAGE_COLLECTION,--13
        CHG_REMOTE_PROCESS,    --14
        CHG_STAT_ID,           --15
        CHG_CLIENT_VERSION,    --16
        CHG_REMOTE_VERSION,    --17
        CHG_REMOTE_HOST,       --18
        CHG_REMOTE_OS_USER,    --19
        CHG_AUTH_METHOD,       --20
        CHG_SYSTEM_FLAG,       --21
        CHG_IDLE_TIMEOUT,      --22
        CHG_IDLE_TIMER,        --23
        CHG_STATEMENT_TIMEOUT, --24
        CHG_WIRE_COMPRESSED,   --25
        CHG_WIRE_ENCRYPTED,    --26
        CHG_WIRE_CRYPT_PLUGIN, --27
        CHG_SESSION_TIMEZONE,  --28
        CHG_PARALLEL_WORKERS,  --29
        CHG_ONTIME            --30
)
  values (
         ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?, ?,?,?,?,?
)
  returning CHG_CONN_ID';
  execute statement (:S)
    (:p02,:p03,:p04,:p05,:p06,:p07,:p08,:p09,:p10,:p11,:p13,:p14,:p15, p16,:p17,:p18,:p19,:p20,:p21,:p22,:p23,:p24,:p25,p26,:p27,:p28,:p29,:p30)
    on external data source 'LOG_DB'
    into :curr_conn_id;
  rdb$set_context('USER_SESSION', 'CONN_ID', curr_conn_id);
  rdb$set_context('USER_SESSION', 'PER_YEAR', EXTRACT(YEAR FROM CURRENT_DATE));
  rdb$set_context('USER_SESSION', 'BRANCH_ID', 7);
  rdb$set_context('USER_SESSION', 'ORGSTRUCT_ID', 5);
  post_event('CONNECT');
end