[orca-dev:00048] Re: 病名クラス

[Yoshinori Ariie <PBA00250@xxxxxxxxx>]

有家＠松山記念病院です。

date: Fri, May 24, 2002 at 05:49:29PM +0900
from: "H.Narusawa" <null@xxxxxxxxxxxxxxxxxx>
>
> 有家先生はmedisの委員会とコンタクトをとるべきじゃないでしょうか．
> おそらく彼らも今同じようなことをやっているものと思います．

ホンネもタテマエも無く、同じ目的の前にはみな平等だと思っています。
受け入れていただけるかどうかわかりませんが、そうしてみます。
今後ともよろしくお願い申します。

date: Fri, May 24, 2002 at 05:06:28PM +0900
from: Yoshinori Ariie <PBA00250@xxxxxxxxx>
>
> 病名修飾語を示す正規表現を列挙したファイルを作れば解決すると思いますが
> どう取りかかったものか途方に暮れます..

と夕方には落ち込んでいたのですが、それほどでもありませんでした。
medis のものを参考にさせていただき、病名修飾語正規表現列挙ファイルを
作って見ました。
途中は省略したのですが、全部列挙してもこの三倍ほどの大きさかと思います。
結合順序の強さを表わす整数（第1フィールド）は3桁に番号を振りなおしてみました。


#!/usr/local/bin/ruby -Ke

class Disease < String
	@@mod = Array.new
	# read regular expressions of ICD modifiers
	DATA.each{|line|
		next if /^$/ =~ line || /^#/ =~ line
		@@mod.push line.split
	}

	def modifier?
		@@mod.each{|line|
			deg = Integer(line[0])
			tmp = "^#{line[1]}$"
			reg = Regexp.new(tmp)
			return true if reg =~ (self)
		}
		return false
	end
end

p Disease.new("うっ血性").modifier?

__END__
#
# modified 'mdfy200.txt' in archived file 'byomei20.exe'
# cf) http://www2.medis.or.jp/download/byomei20.EXE
#
# 1st field means degree of combination (renumbered)
# 2nd field means regular expressions of ICD modifiers

130   の(疑い|術後|術後障害)
140   の初期
150   の(後遺症|末期)
160   第?(\d+|[０-９]+)週
170   [１-４Ａ-Ｅ]型
180   の(緩解期|急性増悪|再発|初発|遷延)
190   の発作
220  (同側性|内側|内部)
240  (うっ血|うっ帯|てんかん|ひ糠|びまん|びらん|アフタ|カタル|フリクテン)性
240  (悪|移行|萎縮|遺残|運動|炎症|化生|化膿|解離|回転|壊死|壊疽|開放)性
240  (角化|活動|乾|乾燥|乾酪|還納|間擦|気腫|亀裂|丘疹|強直|狭窄|興奮)性
240  (局所|近視|結節|限局|交叉|広汎|硬結|紅斑|絞扼|散発|蚕食|脂漏|湿疹)性
240  (湿|習慣|出血|症候|浸潤|深在|尋常|水疱|全身|多形|多発|単発|中心)性
240  (中枢|陳旧|潰瘍|肉芽|妊娠|熱|膿胞|播種|廃用|剥離|汎発|肥厚|表層)性
240  (貧血|複合|閉鎖|閉塞|変形|辺縁|麻痺|末梢|無菌|無痛|毛孔|癒着|有痛)性
240  (落屑|良|匍行|漿液|滲出|濾胞|疱疹状|痙|瘢痕|皸裂)性
240  (くも|円板|貨幣|環|線|帯|矢)状
240  (異|境界|混合|単純)型
240  (鈍|非定型|非特異|部分)的
240  (円形|完全|巨大)
260  (仮|偽|真|随伴|通年)性
260  (強|軽|高|重)度
260  (周囲|重症|生理的|不完全|不規則|中間型|特殊型)
280  (遠位|下側|外部|近位|後部|口側|骨端|骨頭|骨軟骨|骨膜)
280  (指伸筋|伸筋|伸筋腱|先端|表層|末端)
300  (アブミ|ツチ|キヌタ)骨
300  胃(角|前庭|体|底)部
300  第\d?\d脳神経
300  第\d[指趾]
300  第\d(指|中手)骨
300  第[３４]脳室
300  胆[管道内嚢]

# 中略 (300,320,350,400,420,450,500,550,600)

700  (高位|低位|尾側)
800  (一側|慢性)
900  [右左][上下]?
900  (両|左右)
900  [左右片両]側
920  閉経[前後期]

# pba00250@xxxxxxxxx
# yoariie@xxxxxxxxxxxxxxx
# -------------------------
# 有家佳紀  Yoshinori Ariie