---

SELECT
    COUNT(*) OVER () AS Всего_строк,
    FIO
FROM (
    WITH t AS (
        SELECT
            REGEXP_SUBSTR(
                REGEXP_REPLACE(
                    NAIMEN,
                    '^((КПП[[:space:]]+[0-9]+|КПП|ПРЕДПРИНИ[А-ЯЁа-яё]*|ПБОЮЛ|ИП|ЧП|ФЛ|[0-9]+)[[:space:]]+)+',
                    '', 1, 0, 'i'
                ),
                '^[А-ЯЁ][А-ЯЁа-яё\-]+'
                || '('
                ||   '[[:space:]]+[А-ЯЁ]\.[[:space:]]*[А-ЯЁ]\.'
                ||  '|[[:space:]]+[А-ЯЁ][А-ЯЁа-яё\-]+'
                ||     '([[:space:]]+[А-ЯЁ][А-ЯЁа-яё\-]+)?'
                ||     '([[:space:]]+(ОГЛЫ|ОГЛУ|КЫЗЫ|УГЛИ|УУЛУ|ГИРЕЙ|ХАН|БЕК|БАЙ))?'
                || ')'
            ) AS FIO
        FROM SH.UCH_VSE
        WHERE
            NAIMEN IS NOT NULL
            -- Блок 1: юр.формы
            AND NOT REGEXP_LIKE(NAIMEN,
                '(ООО|ОАО|ПАО|ЗАО|АО|ОДО|ОСБ|АКБ|КБ|КПП|ГУП|МУП|ФГУП)',
                'i')
            -- Блок 2: ещё юр.формы
            AND NOT REGEXP_LIKE(NAIMEN,
                '(ФОНД|БАНК|КОМПАНИЯ|ПРЕДПРИЯТИЕ|ОБЩЕСТВО|СОЮЗ|ВКЛАДЫ|ГРАЖДАН)',
                'i')
            -- Блок 3: госструктуры
            AND NOT REGEXP_LIKE(NAIMEN,
                '(АДМИНИСТРА[А-ЯЁа-яё]*|УПРАВЛЕНИ[А-ЯЁа-яё]*|ДЕПАРТАМЕНТ[А-ЯЁа-яё]*|КОМИТЕТ[А-ЯЁа-яё]*|МИНИСТЕРСТВ[А-ЯЁа-яё]*)',
                'i')
            -- Блок 4: прочее
            AND NOT REGEXP_LIKE(NAIMEN,
                '(ФЕДЕРАЛЬН[А-ЯЁа-яё]*|ГОСУДАРСТВЕНН[А-ЯЁа-яё]*|МЕЖДУНАРОДН[А-ЯЁа-яё]*|ОРГАНИЗАЦИ[А-ЯЁа-яё]*|ФИЛИАЛ|ЗАВОД)',
                'i')
            -- Блок 5: инфраструктура
            AND NOT REGEXP_LIKE(NAIMEN,
                '(ГОСТИНИЦА|ПТИЦЕФАБРИК[А-ЯЁа-яё]*|ФАБРИК[А-ЯЁа-яё]*|ЗАКРЫТ[А-ЯЁа-яё]*|ОТКРЫТ[А-ЯЁа-яё]*|АКЦИОНЕРН[А-ЯЁа-яё]*|МОСКОВСК[А-ЯЁа-яё]*)',
                'i')
            -- Блок 6: сокращения
            AND NOT REGEXP_LIKE(NAIMEN,
                '(ЖСК|ТСЖ|ВДПО|ГМБХ|МИН?ФИН|ИНДИВИД[А-ЯЁа-яё]*|ЧАСТН[А-ЯЁа-яё]*|ЧП|ИП)',
                'i')
            -- Блок 7: ФИРМА, ЦЕНТР и родственные  ← НОВОЕ
            AND NOT REGEXP_LIKE(NAIMEN,
                '(ФИРМ[А-ЯЁа-яё]*|ЦЕНТР[А-ЯЁа-яё]*|ПРЕДПРИНИМАТЕЛЬ|ОТКРЫТОЕ|ЗАКРЫТОЕ|АКЦИОНЕРНОЕ)',
                'i')
    )
    SELECT DISTINCT FIO
    FROM t
    WHERE
        REGEXP_LIKE(FIO, '^[А-ЯЁ]', 'c')
        AND REGEXP_LIKE(FIO, '[[:space:]]', 'c')
        AND LENGTH(FIO) BETWEEN 6 AND 40
        AND NOT REGEXP_LIKE(REGEXP_SUBSTR(FIO, '^[^[:space:]]+'), '^[А-ЯЁ]{2,3}$', 'c')
        AND REGEXP_LIKE(
            UPPER(REGEXP_SUBSTR(FIO, '^[^[:space:]]+')),
            '(ОВ|ЕВ|ЁВ|ИН|ЫН|ИЙ|ЫЙ|ОЙ|СКИЙ|ЦКИЙ|СКАЯ|ЦКАЯ|'
            || 'ЕНКО|УК|ЮК|ЧУК|ЩУК|АК|ЯК|ИК|ИЧ|АЯ|ЯЯ|'
            || 'ШВИЛИ|ДЗЕ|ИДЗЕ|ЯН|ЯНЦ|ОГЛЫ|ОГЛУ|КЫЗЫ|УГЛИ|УУЛУ|'
            || 'ГИРЕЙ|ХАН|БЕК|БАЙ|ЕЦ|ЕНОК|КО|ОВА|ЕВА|ИНА|ЫНА|ЁВА|'
            || 'О|А|Е|И|У|Ю|Я)$',
            'i'
        )
    ORDER BY FIO
);