发现患者是否有特殊字符

```sql
CREATE OR REPLACE PROCEDURE PRO_JH_FINDSTRING(strPatientID in varchar2,
                                              strVisitID   in varchar2)
  Authid Current_User IS
  v_table_name  varchar2(128);
  v_cloumn_name varchar2(128);
  v_data        VARCHAR2(500); --存储临时数据
  v_found       int; --发现特殊字符为1
  v_found_mark  varchar2(20);
  v_sql         varchar2(2000);
  v_data_type   varchar2(100);
  --  ~!@#$%^&*()_+|}{":?><,./';[]\=-
  cur_data SYS_REFCURSOR;
begin
  v_sql := ' SELECT A.TABLE_NAME, A.COLUMN_NAME, A.data_type from DBA_TAB_COLUMNS A, DBA_TABLES B WHERE A.TABLE_NAME = B.TABLE_NAME ' ||
           ' AND A.OWNER = B.OWNER and a.DATA_TYPE in(''VARCHAR2'',''NVARCHAR2'') ' ||
           ' and A.TABLE_NAME IN (''PAT_VISIT'',''PAT_MASTER_INDEX'',''PATS_IN_HOSPITAL'',''JHINPAT_MR_ON_LINE'') ';
  open cur_data for v_sql;
  loop
    v_found := '0';
    fetch cur_data
      into v_table_name, v_cloumn_name, v_data_type;
    exit when cur_data%notfound;
    if (v_table_name = 'PAT_MASTER_INDEX') then
      v_sql := 'select ' || v_cloumn_name || ' from ' || v_table_name ||
               ' where PATIENT_ID= ' || '''' || strPatientID || '''';
    else
      v_sql := 'select ' || v_cloumn_name || ' from ' || v_table_name ||
               ' where PATIENT_ID= ' || '''' || strPatientID || '''' ||
               ' and visit_id=' || strVisitID || ' and rownum=1';
    end if;
    --dbms_output.put_line(v_sql);
    execute immediate v_sql
      into v_data;
    if (instr(v_data, '~') > 0) then
      v_found      := 1;
      v_found_mark := '特殊字符~';
    ELSIF (instr(v_data, '!') > 0) then
      v_found      := 2;
      v_found_mark := '特殊字符！';
    ELSIF (instr(v_data, '@') > 0) then
      v_found      := 3;
      v_found_mark := '特殊字符@';
    ELSIF (instr(v_data, '#') > 0) then
      v_found      := 4;
      v_found_mark := '特殊字符#';
    ELSIF (instr(v_data, '$') > 0) then
      v_found      := 5;
      v_found_mark := '特殊字符$';
    ELSIF (instr(v_data, '%') > 0) then
      v_found      := 6;
      v_found_mark := '特殊字符%';
    ELSIF (instr(v_data, '^') > 0) then
      v_found      := 7;
      v_found_mark := '特殊字符^';
    ELSIF (instr(v_data, '&') > 0) then
      v_found      := 8;
      v_found_mark := '特殊字符&';
    ELSIF (instr(v_data, '*') > 0) then
      v_found      := 9;
      v_found_mark := '特殊字符*';
    ELSIF (instr(v_data, '(') > 0) then
      v_found      := 10;
      v_found_mark := '特殊字符(';
    ELSIF (instr(v_data, ')') > 0) then
      v_found      := 11;
      v_found_mark := '特殊字符)';
    ELSIF (instr(v_data, '_') > 0) then
      v_found      := 12;
      v_found_mark := '特殊字符_';
    ELSIF (instr(v_data, '+') > 0) then
      v_found      := 13;
      v_found_mark := '特殊字符+';
    ELSIF (instr(v_data, '|') > 0) then
      v_found      := 14;
      v_found_mark := '特殊字符|';
    ELSIF (instr(v_data, '}') > 0) then
      v_found      := 15;
      v_found_mark := '特殊字符}';
    ELSIF (instr(v_data, '{') > 0) then
      v_found      := 16;
      v_found_mark := '特殊字符{';
    ELSIF (instr(v_data, '"') > 0) then
      v_found      := 17;
      v_found_mark := '特殊字符"';
    ELSIF (instr(v_data, ':') > 0) then
      v_found      := 18;
      v_found_mark := '特殊字符:';
    ELSIF (instr(v_data, '?') > 0) then
      v_found      := 19;
      v_found_mark := '特殊字符?';
    ELSIF (instr(v_data, '>') > 0) then
      v_found      := 20;
      v_found_mark := '特殊字符>';
    ELSIF (instr(v_data, '<') > 0) then
      v_found      := 21;
      v_found_mark := '特殊字符<';
    ELSIF (instr(v_data, ',') > 0) then
      v_found      := 22;
      v_found_mark := '特殊字符,';
    ELSIF (instr(v_data, '.') > 0) then
      v_found      := 23;
      v_found_mark := '特殊字符.';
    ELSIF (instr(v_data, '/') > 0) then
      v_found      := 24;
      v_found_mark := '特殊字符/';
    ELSIF (instr(v_data, '''') > 0) then
      v_found      := 25;
      v_found_mark := '特殊字符''';
    ELSIF (instr(v_data, ';') > 0) then
      v_found      := 26;
      v_found_mark := '特殊字符;';
    ELSIF (instr(v_data, '[') > 0) then
      v_found      := 27;
      v_found_mark := '特殊字符[';
    ELSIF (instr(v_data, ']') > 0) then
      v_found      := 28;
      v_found_mark := '特殊字符]';
    ELSIF (instr(v_data, '\') > 0) then
      v_found      := 29;
      v_found_mark := '特殊字符\';
    ELSIF (instr(v_data, '=') > 0) then
      v_found      := 30;
      v_found_mark := '特殊字符=';
    ELSIF (instr(v_data, '-') > 0) then
      v_found      := 31;
      v_found_mark := '特殊字符-';
    ELSIF (instr(v_data, chr(9)) > 0) then
      --chr(9)是tab
      v_found      := 32;
      v_found_mark := '特殊字符tab';
    ELSIF (instr(v_data, chr(13)) > 0) then
      --chr(10)是换行符
      v_found      := 33;
      v_found_mark := '特殊字符换行符';
    ELSIF (instr(v_data, chr(10)) > 0) then
      --chr(13)是回车
      v_found      := 34;
      v_found_mark := '特殊字符回车';
    ELSIF (instr(v_data, ' ') > 0) then
      v_found      := 35;
      v_found_mark := '特殊字符空格';
    end if;

if (v_found >= 1) then
      insert into JH_Record_DB_LOG
        SELECT sysdate,
               'strPatientID=' || strPatientID || ' ,v_table_name=' ||
               v_table_name || ' ,v_cloumn_name=' || v_cloumn_name ||
               ',value=' || v_data || ',found_type=' || v_found_mark as RECORD_CONTENT,
               0 RECORD_TYPE
          FROM dual;
    end if;
    commit;
  end loop;
  close cur_data;
end PRO_JH_FINDSTRING;
```