create or replace procedure ogr1 (p3_Kod_id in number)
as begin
      
    if (null = (Select Name_m,Value
                 From Znath, Paramet,Model_kom, Name_Kom
                 where  (Param_IDP=Param_ID) and
                (Kod_IDM=Kod_IDP)and
                (Model_Id= Model_IDZ) and
                (Kod_Id=1001) and
                 (Model_Id=p3_Kod_id) and
                (Kod_Id=Kod_IDM) and
               (Value = (
                Select Value
                From Model_kom, Paramet, Znath
                where   (Model_ID=(Select Model_Ids
                                   From Sbor
                                   where(KOD_IDS=1004))) and
               (Model_ID=Model_IDZ) and
               (Zn_ID=
                   (
                    Select Zn_ID
                    From Znath, Paramet
                    Where
                         (Param_Id=Param_IdP) and
                         (Param_name = 'Сокет') and
                          (Model_IDZ=(Select Model_Ids
                                      From Sbor
                                      where(KOD_IDS=1004))))
                    )   and
              (Param_ID=Param_IDP))
       ) ) )    
    then
    raise_application_error(-20000, 'Жизнь-боль');
   end if;
end;