web-dev-qa-db-ja.com

XML、CSV、またはデータベース形式のICD-9コードリスト

私は、データベースにインポートしてプログラムで参照できる形式の病気と処置のICD-9コード（医療コード）の完全なリストを探しています。私の質問は基本的に ICD-9コードのリソースを探しています とまったく同じですが、元のポスターは彼が完全なリストを「手に入れた」場所について言及することを怠っていました。

Googleは何時間も問題をグーグルで調べ、リッチテキストタイプリスト（CDCなど）または完全なリストにインタラクティブにドリルダウンできるWebサイトを見つけたので、間違いなくここにいる友人ではありませんが、どこで入手できるかわかりませんこれらのWebサイトに入力され、データベースに解析できるリスト。私はここのファイルを信じています ftp://ftp.cdc.gov/pub/Health_Statistics/NCHS/Publications/ICD9-CM/2009/ 私が探しているものがありますが、ファイルはリッチテキスト形式であり、正確に削除するのが難しいゴミやフォーマットがたくさん含まれています。

これは他の人によって行われたに違いないことを知っており、他の人の努力の重複を避けようとしていますが、xml/CSV/Excelリストが見つかりません。

databasemedical
31
TJ.

RTFを削除した後、ファイルを解析してCSVに変換するのはそれほど難しくありませんでした。病気と手順に関する2009 ICD-9コードをすべて含む解析結果ファイルは次のとおりです。 http://www.jacotay.com/files/Disease_and_ProcedureCodes_Parsed.Zip 私が書いたパーサーはこちら： http://www.jacotay.com/files/RTFApp.Zip 基本的には、2段階のプロセスです。CDCFTPサイトからファイルを取得し、それらからRTFを削除し、RTFフリーのファイルを選択してCSVファイルに解析します。コード私は結果を一度だけ出す必要があるので、ここはかなり荒いです。

外部リンクがダウンした場合の解析アプリのコードは次のとおりです（ファイル名を選択してボタンをクリックして実行できるフォームへのバックエンド）

Public Class Form1

Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
    Dim p As New OpenFileDialog With {.CheckFileExists = True, .Multiselect = False}
    Dim pResult = p.ShowDialog()
    If pResult = Windows.Forms.DialogResult.Cancel OrElse pResult = Windows.Forms.DialogResult.Abort Then
        Exit Sub
    End If
    txtFileName.Text = p.FileName
End Sub

Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
    Dim pFile = New IO.FileInfo(txtFileName.Text)
    Dim FileText = IO.File.ReadAllText(pFile.FullName)
    FileText = RemoveRTF(FileText)
    IO.File.WriteAllText(Replace(pFile.FullName, pFile.Extension, "_fixed" & pFile.Extension), FileText)

End Sub


Function RemoveRTF(ByVal rtfText As String)
    Dim rtBox As System.Windows.Forms.RichTextBox = New System.Windows.Forms.RichTextBox

    '// Get the contents of the RTF file. Note that when it is
    '// stored in the string, it is encoded as UTF-16.
    rtBox.Rtf = rtfText
    Dim plainText = rtBox.Text

    Return plainText
End Function


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim pFile = New IO.FileInfo(txtFileName.Text)
    Dim FileText = IO.File.ReadAllText(pFile.FullName)
    Dim DestFileLine As String = ""
    Dim DestFileText As New System.Text.StringBuilder

    'Need to parse at lines with numbers, lines with all caps are thrown away until next number
    FileText = Strings.Replace(FileText, vbCr, "")
    Dim pFileLines = FileText.Split(vbLf)
    Dim CurCode As String = ""
    For Each pLine In pFileLines
        If pLine.Length = 0 Then
            Continue For
        End If
        pLine = pLine.Replace(ChrW(9), " ")
        pLine = pLine.Trim

        Dim NonCodeLine As Boolean = False
        If IsNumeric(pLine.Substring(0, 1)) OrElse (pLine.Length > 3 AndAlso (pLine.Substring(0, 1) = "E" OrElse pLine.Substring(0, 1) = "V") AndAlso IsNumeric(pLine.Substring(1, 1))) Then
            Dim SpacePos As Int32
            SpacePos = InStr(pLine, " ")
            Dim NewCode As String
            NewCode = ""
            If SpacePos >= 3 Then
                NewCode = Strings.Left(pLine, SpacePos - 1)
            End If

            If SpacePos < 3 OrElse Strings.Mid(pLine, SpacePos - 1, 1) = "." OrElse InStr(NewCode, "-") > 0 Then
                NonCodeLine = True
            Else
                If CurCode <> "" Then
                    DestFileLine = Strings.Replace(DestFileLine, ",", "&#44;")
                    DestFileLine = Strings.Replace(DestFileLine, """", "&quot;").Trim
                    DestFileText.AppendLine(CurCode & ",""" & DestFileLine & """")
                    CurCode = ""
                    DestFileLine = ""
                End If

                CurCode = NewCode
                DestFileLine = Strings.Mid(pLine, SpacePos + 1)
            End If
        Else
            NonCodeLine = True
        End If


        If NonCodeLine = True AndAlso CurCode <> "" Then 'If we are not on a code keep going, otherwise check it
            Dim pReg As New System.Text.RegularExpressions.Regex("[a-z]")
            Dim pRegCaps As New System.Text.RegularExpressions.Regex("[A-Z]")
            If pReg.IsMatch(pLine) OrElse pLine.Length <= 5 OrElse pRegCaps.IsMatch(pLine) = False OrElse (Strings.Left(pLine, 3) = "NOS" OrElse Strings.Left(pLine, 2) = "IQ") Then
                DestFileLine &= " " & pLine
            Else 'Is all caps Word
                DestFileLine = Strings.Replace(DestFileLine, ",", "&#44;")
                DestFileLine = Strings.Replace(DestFileLine, """", "&quot;").Trim
                DestFileText.AppendLine(CurCode & ",""" & DestFileLine & """")
                CurCode = ""
                DestFileLine = ""
            End If
        End If
    Next

    If CurCode <> "" Then
        DestFileLine = Strings.Replace(DestFileLine, ",", "&#44;")
        DestFileLine = Strings.Replace(DestFileLine, """", "&quot;").Trim
        DestFileText.AppendLine(CurCode & ",""" & DestFileLine & """")
        CurCode = ""
        DestFileLine = ""
    End If

    IO.File.WriteAllText(Replace(pFile.FullName, pFile.Extension, "_parsed" & pFile.Extension), DestFileText.ToString)
End Sub

終了クラス

11
TJ.

メディケイド＆メディケアサービスセンターでは、コードと診断のみを含むExcelファイルを提供しています。これらのファイルは、変換なしでいくつかのSQLデータベースに直接インポートできます。

zip形式のExcelファイル、バージョン番号による

（更新：下のコメントに基づく新しいリンク）

22
chris

Center for Medicare Services（CMS）には実際にICDが請求されているので、皆さんが参照するCDCバージョンは単にコピーまたは再処理されたコピーである可能性があります。ここに、元の生データ（「真実の源」）が含まれていると思う（〜見つけにくい）メディケアページがあります。

http://www.cms.gov/Medicare/Coding/ICD9ProviderDiagnosticCodes/codes.html

この投稿の時点で、最新バージョンはv32のようです。ダウンロードするZipには、コードと説明をマップする4つのプレーンテキストファイルが含まれます（DIAG | PROCとSHORT | LONGの組み合わせごとに1つのファイル）。また、3つの列を持つ2つのExcelファイル（DIAG_PROC用にそれぞれ1つ）も含まれているため、コードをbothの説明にマップします（longandshort）。

5
Benny

明らかに、非常に古いスレッドですが、最近このタスクを引き受け、ソースデータへのリンクを付けてここに書きました-

http://colinwhite.net/dropplets/ICD

ICD-9とICD-10の両方をSQLiteデータベースに入れようとしていました。

うまくいったようです。

4
Colin

ここから元のRTFコードファイルを取得できます http://ftp.cdc.gov/pub/Health_Statistics/NCHS/Publications/ICD9-CM/2009/

3
Hi and Thank you.