Удаление дубликата записи клиента в базе с переносом данных

begin
  -- проверка на существование записей в таблице клиентов с заданными ID
  if (not(exists(select first 1 1
                 from CLIENTS C
                 where C.ID = :ID_FROM))) then
    exit;
 
  if (not(exists(select first 1 1
                 from CLIENTS C
                 where C.ID = :ID_TO))) then
    exit;
 
  -- если у дубля есть заказы, то...
  if (exists(select first 1 1 from checks where client_id = :ID_FROM)) then
  begin
    -- ...создаем view с ценами каждой позиции заказа дубликата для будущей коррекции при переносе
    CREATE VIEW P_Duplicate (
        HD_ID,
        GOODS_ID,
        PRICE_)
     AS
     select jc.hd_id, jc.goods_id, jc.price
           from checks j
           left join checks_dеtail jc on jc.hd_id =j.id
           where j.client_id = :ID_FROM
    -- ...и переносим все заказы дубля на основного клиента
    update checks
    set client_id = :ID_TO
    where client_id = :ID_FROM
    -- после этого проводим коррекцию цен для заказов дубля, перенесенных на основного клиента,
    -- используя данные из созданного выше view
    for select * from P_Duplicate
    into :HD_ID, :GOODS_ID, :PRICE_
 
    do
    begin
        update checks
        set PRICE = :PRICE_
        where HD_ID = :HD_ID and GOODS_ID = :GOODS_ID
    end
    -- после коррекции цен в перенесенных заказах можем удалить view
    DROP VIEW P_Duplicate
 end
 
  -- удаляем запись дубля из таблицы клиентов
  delete from clients
  where id = :ID_FROM
 
end

create or alter procedure JOIN_CLIENTS_NEW (
    ID_FROM ID,
    ID_TO ID)
as
declare variable HD ID;
declare variable GOODS ID;
declare variable PRICE_ PRICE;
declare variable DESCR_ FULL_NAME;
begin
  -- проверка на существование записей в таблице клиентов с заданными ID
  if (not(exists(select first 1 1 from CLIENTS C where C.ID = :ID_FROM))) then exit;
  if (not(exists(select first 1 1 from CLIENTS C where C.ID = :ID_TO))) then exit;
 
  -- если у дубля есть заказы, то...
  if (exists(select first 1 1 from checks where client_id = :ID_FROM)) then
  begin
    -- ...в поле descr (примечание) таблицы checks_detail записываем цену позиции
    -- заказа дубликата для будущей коррекции при переносе
    for select jc.hd_id, jc.goods_id, jc.price
           from checks j
           left join checks_detail jc on jc.hd_id =j.id
           where j.client_id = :ID_FROM
    into :HD, :GOODS, :PRICE_
    do
    begin
      update checks_detail
      set descr = :PRICE_
      where hd_id = :HD and goods_id = :GOODS;
    end
    -- ...переносим все заказы дубля на основного клиента
    update checks
    set client_id = :ID_TO
    where client_id = :ID_FROM;
    -- после этого проводим коррекцию цен ля заказов дубля, перенесенных на основного клиента,
    -- используя данные из поля descr таблицы checks_detail
    for select jc.hd_id, jc.goods_id, jc.descr
        from checks j
        left join checks_detail jc on jc.hd_id =j.id
        where j.client_id = :ID_TO
        into :HD, :GOODS, :DESCR_
    do
    begin
        update checks_detail
        set PRICE = cast(:DESCR_ as numeric(18,2))
        where HD_ID = :HD and GOODS_ID = :GOODS;
    end
 end
 
  delete from CLIENTS C
  where C.ID = :ID_FROM;
 
end