/*2024.45*/

create or alter procedure SP_CHECK_REESTR_AS_ONK (
    DS1 DM_DS,
    ZS_ID DM_INT)
returns (
    IS_ONK integer)
as
begin
  if ((:ds1 starting 'C' or :ds1 starting 'D0' or :ds1 starting 'D45' or :ds1 starting 'D46' or :ds1 starting 'D47')
     or (exists(select first 1 id from zsd d where d.zs_id = :zs_id and ((d.code_usl starting 'A08') or (d.code_usl starting 'A27') or (coalesce(d.ds_onk,0) = 1) or (d.ds starting 'C' or d.ds starting 'D0') ) )))

  then is_onk = 1;
  else
    is_onk = 0;

  suspend;
end;