INSERT INTO  x_KLADR
SELECT
  CODE, SOCR, "NAME", "INDEX", GNINMB,UNO,OCATD,STATUS,
  substr(CODE, 1 , 11 ) xk_Code,        -- СС РРР ГГГ ППП Собственно код без флага актуальности
  substr(CODE, 1 , 2 ) xk_1RFSubject_Code,  -- СС Сегмент субъект РФ 
  substr(CODE, 3 , 3 ) xk_2Region_Code,     -- РРР Сегмент район
  substr(CODE, 6 , 3 ) xk_3City_Code,       -- ГГГ Сегмент город
  substr(CODE, 9 , 3 ) xk_4Town_Code,       -- ППП Сегмент населенный пуект в городе
  substr(CODE, 12 , 2 ) xk_Actual_Flag , -- АА флаг актуальности
  -- Уровень
  CASE  WHEN substr(code, 9 , 3 )<>'000' THEN '4'
        WHEN substr(code, 6 , 3 )<>'000' THEN '3'
        WHEN substr(code, 3 , 3 )<>'000' THEN '2'
        ELSE '1'
  END xk_Level,
  -- Предок
  CASE CASE WHEN substr(code, 9 , 3 )<>'000' THEN '4'
            WHEN substr(code, 6 , 3 )<>'000' THEN '3'
            WHEN substr(code, 3 , 3 )<>'000' THEN '2'
            ELSE '1'
       END
       WHEN '1' THEN NULL
       WHEN '2' THEN RPad(substr(CODE, 1 , 2 ), 11 ,'0')
       WHEN '3' THEN RPad(substr(CODE, 1 , 5 ), 11 ,'0')
       WHEN '4' THEN RPad(substr(CODE, 1 , 8 ), 11 ,'0')
  END  xk_Parent_Code,
  -- текст до первой заглавной буквы, знака N или цифры - своего рода список под типов ( x_Socr_In_Names)
  Trim(SubStr("NAME", 1 ,InStr (translate( name
                                      ,'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЫЭЮЯ1234567890N'
                                      , RPad('*',Length('АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЫЭЮЯ1234567890N'),'*') )
                            ,'*', 1  ) -  1 
                    )) xk_Name_Type,
  -- текст до '('  - собственно наименование
  CASE WHEN InStr("NAME",'(', 1 ) >  0  THEN
       RTrim(SubStr("NAME", 1 ,InStr("NAME",'(', 1 )- 1 ))
       ELSE "NAME" END  xk_Name,
  -- текст начиная с '('...  - комментарий, разрешает неоднозначность наименования в пределах предка.
  CASE WHEN InStr("NAME",'(', 1 ) >  0  THEN
       LTrim(SubStr("NAME", InStr("NAME",'(', 1 )))
       ELSE NULL END  xk_Name_Comm