DECLARE
    OBJTYPE_FSFM_EXCHANGE_ERRORS CONSTANT INTEGER := 4500; -- Коды ошибок обмена с ФСФМ

FUNCTION IsExist(token IN VARCHAR2)
RETURN NUMBER
IS
    v_existFlag NUMBER := 0;
   -- NO_DATA_FOUND EXCEPTION;
BEGIN
    SELECT T_ELEMENT INTO v_existFlag FROM dllvalues_dbt WHERE t_List = OBJTYPE_FSFM_EXCHANGE_ERRORS AND t_Code = token;
    EXCEPTION
        WHEN NO_DATA_FOUND THEN RETURN 0;
    RETURN v_existFlag;
END;


FUNCTION BildErrorCodeStr(str IN VARCHAR2)
RETURN VARCHAR2
IS
    v_ErrorCodeStr VARCHAR2 (4000) := '';
    v_currPos NUMBER := 0;
    v_ErrorCodeTMP VARCHAR2 (10) := '';
BEGIN
    LOOP
      EXIT WHEN v_currPos > LENGTH(str);
      IF (SUBSTR(str, v_currPos, 1) = 'X') THEN
        SELECT t_Code INTO v_ErrorCodeTMP FROM dllvalues_dbt WHERE t_List = OBJTYPE_FSFM_EXCHANGE_ERRORS AND T_ELEMENT = v_currPos;

        v_ErrorCodeStr := ';' || v_ErrorCodeStr || v_ErrorCodeTMP;
      END IF;

      v_currPos := v_currPos + 1;
   END LOOP;

   -- Удаляем первый символ (;) и возвращаем новую строку
   v_ErrorCodeStr := SUBSTR(v_ErrorCodeStr, 2);

   RETURN v_ErrorCodeStr;
END;

FUNCTION RemoveDuplicates(str IN VARCHAR2)
RETURN VARCHAR2
IS
  v_str VARCHAR2(4000) := str;
  v_new_str VARCHAR2(4000) := '';
  v_ErrCodeFlag VARCHAR2(10):= 'OOOOOOOOOO';
  v_existFlag NUMBER := 0;
BEGIN
  WHILE LENGTH(v_str) > 0 LOOP
    IF INSTR(v_str, ';') > 0 THEN
      -- Получаем очередной токен и обрезаем строку
      DECLARE
        v_token VARCHAR2(100) := SUBSTR(v_str, 1, INSTR(v_str, ';')-1);
      BEGIN
        v_existFlag := IsExist(v_token);
        IF (v_existFlag != 0) THEN
            v_ErrCodeFlag := SUBSTR(v_existFlag, 1, v_existFlag - 1) || 'X' || SUBSTR(v_existFlag, v_existFlag + 1);
        END IF;
      END;
    ELSE
      -- Остался последний токен в строке
      DECLARE
        v_token VARCHAR2(100) := v_str;
      BEGIN
        -- Проверяем, есть ли этот токен в новой строке
        v_existFlag := IsExist(v_token);
        IF (v_existFlag != 0) THEN
             v_ErrCodeFlag := SUBSTR(v_existFlag, 1, v_existFlag - 1) || 'X' || SUBSTR(v_existFlag, v_existFlag + 1);
        END IF;
      END;
    END IF;
  END LOOP;

  RETURN BildErrorCodeStr(v_ErrCodeFlag);
END;



BEGIN
    DBMS_OUTPUT.put_line(RemoveDuplicates('00001;22;22;111;111;55'));
END;
/