レセプト電算処理システムへの対応

注）日医標準レセプトソフトVer.2.6.0にて下記の事項には対応がなされました。

レセプト電算処理システムへの移行にあたり、群馬県の国保では下記のようなローカル・ルールに対応する
必要があります。

　　県単事業（福祉医療費）について
　　　・ 負担者番号は２桁の市町村番号に前０を６桁セットして８桁とする。
　　　・ 特記事項コードに”80”をセットする。

このルールに対処するためにMicrosoft Wordのマクロを使ってデータを書き換えるツールを作りました。
日医標準レセプトソフトでフロッピーディスクに記録したレセ電算ファイルRECEIPTC.UKEを読み込み、
修正の必要な箇所が見つかれば書き換えて上書き保存します。
コードは以下の通り。

Sub レセ電算データ修正()
' ORCAで作成したレセ電算データを群馬県対応の様式に修正するマクロです。
' 作成日 2003/09/09 作成者 有賀 長規／高崎市医師会
Dim retsusu As Integer
Dim kensu As Integer
retsusu = 0
kensu = 0
Application.ScreenUpdating = False
ChangeFileOpenDirectory "A:\"
　　Documents.Open FileName:="RECEIPTC.UKE", Format:=wdOpenFormatAuto
For Each para In ActiveDocument.Paragraphs
　If Left(para, 2) = "KO" And Mid(para, 6, 1) = "," Then
　　kensu = kensu + 1
　　para.Range.Characters(1).Select
　　Selection.Font.Color = wdColorRed
　　Selection.MoveRight Unit:=wdCharacter, Count:=3
　　Selection.TypeText Text:="000000"
　　Selection.MoveUp Unit:=wdLine, Count:=2
　　Selection.HomeKey Unit:=wdLine
　　Do While retsusu < 11
　　　If Selection.Text = "," Then
　　　　retsusu = retsusu + 1
　　　　Selection.MoveRight Unit:=wdCharacter, Count:=1
　　　Else
　　　　Selection.MoveRight Unit:=wdCharacter, Count:=1
　　　End If
　　Loop
　　Selection.TypeText Text:="80"
　　retsusu = 0
　Else
　End If
Next
　Selection.HomeKey Unit:=wdStory
　Application.ScreenUpdating = True
　MsgBox kensu & "件処理しました。"
If kensu >= 1 Then
ChDir "A:\"
　ActiveDocument.SaveAs FileName:="A:\RECEIPTC.UKE", FileFormat:= _
　　　wdFormatText
End If
End Sub

コードを少し書き換えれば他県のルールにも対応できるかもしれません。

下記ファイルにマクロのセットアップ方法を記述しました。
ハードディスクにレセ電算ファイルのバックアップを作成するマクロも附属しています。
（即実行可能なマクロそのものはこのファイルには含めていません。）

　　　　　　　　　　　　　　　　Download　→　　ReceMacro.lzh 　7.32KB

ついでに。　レセ電算提出用FDのラベルを印刷するファイルメーカーProファイルです。

　　　　　　　　　　　　　　　　Download　→　　ReceLabel.lzh　　8.95KB

レセ電算ファイルの中身を閲覧する方法はこちら。


HOME　　TOP↑　　ORCAのページのTOP