-- 症状合并函数
CREATE OR REPLACE FUNCTION symptom_chinese(p_str IN VARCHAR2,symptomOther IN VARCHAR2) RETURN VARCHAR2 IS
result VARCHAR2(200);
BEGIN
FOR i IN (SELECT REGEXP_SUBSTR(p_str, '[^,]+', 1, LEVEL) AS num
FROM DUAL
CONNECT BY LEVEL <= LENGTH(REGEXP_REPLACE(p_str, '[^,]+')) + 1)
LOOP
CASE i.num
WHEN '1' THEN result := result || '无症状|';
WHEN '2' THEN result := result || '头痛|';
WHEN '3' THEN result := result || '头晕|';
WHEN '4' THEN result := result || '心悸|';
WHEN '5' THEN result := result || '胸闷|';
WHEN '6' THEN result := result || '胸痛|';
WHEN '7' THEN result := result || '慢性咳嗽|';
WHEN '8' THEN result := result || '咳痰|';
WHEN '9' THEN result := result || '呼吸困难|';
WHEN '10' THEN result := result || '多饮|';
WHEN '11' THEN result := result || '多尿|';
WHEN '12' THEN result := result || '体重下降|';
WHEN '13' THEN result := result || '乏力|';
WHEN '14' THEN result := result || '关节肿痛|';
WHEN '15' THEN result := result || '视力模糊|';
WHEN '16' THEN result := result || '手脚麻木|';
WHEN '17' THEN result := result || '消瘦|';
WHEN '18' THEN result := result || '尿痛|';
WHEN '19' THEN result := result || '便秘|';
WHEN '20' THEN result := result || '腹泻|';
WHEN '21' THEN result := result || '恶心呕吐|';
WHEN '22' THEN result := result || '眼花|';
WHEN '23' THEN result := result || '耳鸣|';
WHEN '24' THEN result := result || '乳房胀痛|';
WHEN '25' THEN result := result || symptomOther;
ELSE
result := '';
END CASE;
END LOOP;
RETURN RTRIM(result, '|');
END symptom_chinese;
05-28
2267
“相关推荐”对你有帮助么?
-
非常没帮助
-
没帮助
-
一般
-
有帮助
-
非常有帮助
提交