select rdb$set_context('USER_SESSION','RPL_MANAGER','1') from rdb$database;
execute block
as
declare variable OLD_ID ID_;
declare variable NEW_ID ID_;
begin
for select p.id_podrazdelenie
from podrazdelenie p
where p.is_rkp = 1
  and char_length(p.id_podrazdelenie) < 9
into :old_id
do
  begin
  new_id = old_id * 1000000 + 191;
  insert into PODRAZDELENIE (ID_PODRAZDELENIE,ID_PARENT,ID_REGION,DIRECTOR_ID,IS_RKP,PODRAZDNAME,PODRAZDNAME_SOKR,SNAME,RPL_ID_SERVER,ID_CLIENT,IS_MOBILE,ID_SP_RK_SUBSYSTEM,ID_RK_PLACE,BARCHIV,ID_CLIENT_DBS,ID_CLIENT_EIS)
  select :new_id,"ID_PARENT","ID_REGION","DIRECTOR_ID","IS_RKP","PODRAZDNAME","PODRAZDNAME_SOKR","SNAME","RPL_ID_SERVER","ID_CLIENT","IS_MOBILE","ID_SP_RK_SUBSYSTEM","ID_RK_PLACE","BARCHIV","ID_CLIENT_DBS","ID_CLIENT_EIS"
  from PODRAZDELENIE
  where ID_PODRAZDELENIE = :old_id;
  update 'нескольких таблиц';
  delete from 'откуда-то';
end
end;

CREATE EXCEPTION E_STUB_REF 'туда-сюда, главное словить и напугать юзера';

CREATE DOMAIN ID_ AS
NUMERIC(18,0);

CREATE TABLE PODRAZDELENIE (
    ID_PODRAZDELENIE    ID_ NOT NULL /* ID_ = NUMERIC(18,0) */,
    ID_PARENT           ID_ /* ID_ = NUMERIC(18,0) */,
    ID_REGION           ID_ /* ID_ = NUMERIC(18,0) */,
    DIRECTOR_ID         ID_ /* ID_ = NUMERIC(18,0) */,
    IS_RKP              INTEGER,
    PODRAZDNAME         VARCHAR(128),
    PODRAZDNAME_SOKR    VARCHAR(64),
    SNAME               VARCHAR(16),
    ID_CLIENT           ID_ /* ID_ = NUMERIC(18,0) */,
    IS_MOBILE           BOOL DEFAULT 0 /* BOOL = NUMERIC(1,0) */,
    ID_SP_RK_SUBSYSTEM  ID_ /* ID_ = NUMERIC(18,0) */,
    ID_RK_PLACE         ID_ /* ID_ = NUMERIC(18,0) */,
    RPL_ID_SERVER       INT_DOM NOT NULL /* INT_DOM = INTEGER */,
    BARCHIV             BOOL DEFAULT 0 /* BOOL = NUMERIC(1,0) */,
    ID_CLIENT_DBS       ID_ /* ID_ = NUMERIC(18,0) */,
    ID_CLIENT_EIS       ID_ /* ID_ = NUMERIC(18,0) */
);

CREATE OR ALTER TRIGGER RPL_STB_PODRAZDELENIE FOR PODRAZDELENIE
ACTIVE BEFORE INSERT OR UPDATE OR DELETE POSITION 2000
AS
DECLARE VARIABLE RELATION_NAME D_OBJECT_NAME;
BEGIN
    RELATION_NAME = 'PODRAZDELENIE';
    IF (NOT EXISTS(
        SELECT TR.ID_RPL_TRIGGER
        FROM RPL_TRIGGERS TR
            JOIN RPL_TABLES T ON T.ID_RPL_TABLE = TR.ID_RPL_TABLE
        WHERE T.TABLE_NAME = :RELATION_NAME AND TR.ST_FLAG = 1)) THEN EXIT;
    IF (RDB$GET_CONTEXT('USER_SESSION','RPL_SERVICE') IS DISTINCT FROM 1) THEN
        EXCEPTION E_STUB_REF;
END