電子カルテを使いやすくする　FileNote

■フォルダの設定

ファイルをためておくフォルダを手動でサーバーに作り、適当な名前を付けますます。
ネットワークハードディスクか、LINUX上に置いた方がスピードがでます。
　★重要★
ファイル数が多く、通常のWindowsにファイルをためておくフォルダを置いた場合、処理速度が遅くなり、
「ネットワークへのアクセスが中断されました」とエラーがでる場合があります。

「監視フォルダ」をクリックし、スキャナーで保存先にしてするフォルダを選択します。

OKをクリックします。




OKをクリックします。

右下の「設定を保存」をクリックします。

これで　簡易的な設定は終了です。　

-------RS BASE あるいは　MY POCET　を使用中の方は　--------------------


RSBASE　あるいは　MYPOCKETのデータを使用するには、FileNote 用に変換する必要があります。

「フォルダを指定」で、ファイルを保存するフォルダを指定します。
↓
「個別フォルダを作る」で個々のフォルダを作ります。しばらく時間がかかります。
↓
MY　POCKET　のフォルダ　あるいは　RSBASEのファイルを使う場合は
「設定変更」→「コピー元のフォルダ」に
MY　POCKET　のフォルダ　あるいは　RSBASEのリンクファイル（csv)を入れてコピーボタンを押してください。

--------------------------------------------------------------------------
①②の操作は１台目のクライアントで設定すれば、以後設定する必要はありません。

２台目以降のクライアントは以下の■をそれぞれで設定するか、フォルダ内にできた「setting1.doc」と「setting2.doc」をコピペして上書き保存でもOKです。

■ダイナミクスとの連動の方法①　（簡単ですが遅いです）

ダイナミクスから連動ファイルを吐き出させるフォルダを操作しているクライアントにつくります。

場所や名前は何でもOKです。※※

ダイナミクスのリンクバーの「他社連携」をクリックします。

右上の「連携設定>>」をクリックし

「他社連携リスト　編集・追加」をクリック

好きな名前を一番下の空欄に入力して閉じます。

入力したフォルダ名を緑のプルダウンから選んで　下の「フォルダの指定」で※※で作ったリンクを設定します。

次にFileNoteの「設定変更」のタブをクリックし、「ダイナ連動フォルダ」で※※で作ったフォルダにリンクを設定します。

FileNoteを終了し、再起動します。

■ダイナミクスとの連動の方法②　（こちらがお勧め。速いです）

モジュールのM16_患者マスターをダブルクリックして、スクリプトを開きます。
開いたモジュールのM16_患者マスターの 先頭に以下をコピペ


'----------------------------------------------------------------
Type COPYDATASTRUCT
dwData As Long
cbData As Long
lpData As String



End Type

'** Windows API 定義
Public Declare Function SendMessageCDS Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByRef lParam As COPYDATASTRUCT) _
As Long



Public Declare Function SendMessageCDS2 Lib "user32" Alias "SendMessageA" _
(ByVal hWnd2 As Long, _
ByVal wMsg2 As Long, _
ByVal wParam2 As Long, _
ByRef lParam2 As COPYDATASTRUCT) _
As Long
Public Const WM_COPYDATA As Integer = &H4A
Public Const WM_USER As Integer = &H400
Public Const WM_COPYDATA2 As Integer = &H4A
Public Const WM_USER2 As Integer = &H400

'----------------------------------------------------------------

以下のようになります。


次に「編集」→「検索」をクリックして「他社連携リンクバー」を検索します。




"'他社連携リンクバー"と書かれている上の辺りに以下をコピペ

'----------------------------------------------------------------
'### FileNote用患者ID送信処理
Dim rc As Long
Dim WinHnd As Long
Dim cds As COPYDATASTRUCT
Dim lPatientId As String
Dim lPatientIdp As String

Dim Ipatientkana As String
Dim Ipatientname As String
Dim Ipatientage As String
Dim Ipatientsex As String
Dim Ipatientnen As String

Dim Ipatientseinen As String
Dim Ipatientmonth As String
Dim Ipatientday As String


WinHnd = FindWindow(vbNullString, "FileNote")

If WinHnd <> 0 Then
lPatientIdp = F.[カルテ番号] / 10
Ipatientkana = F.[ﾌﾘｶﾞﾅ]
Ipatientname = F.[氏名]
Ipatientage = F.[年齢]
Ipatientsex = F.[性別コード1]
Ipatientnen = F.[年号]
Ipatientseinen = F.[生年]
Ipatientmonth = F.[月]
Ipatientday = F.[日]


lPatientId = lPatientIdp & "-" & Ipatientkana & "-" & Ipatientname & "-" & Ipatientage & "-" & Ipatientsex & "-" & Ipatientnen & "-" & Ipatientseinen & "-" & Ipatientmonth & "-" & Ipatientday
'sendmessageは　日本語の混在の場合、文字列がずれる　文字列の計算を半角全角混在で可能に変更した　2016/1014
Dim wStrS As String
Dim wByteS As Long
Dim wLenS As Long


wStrS = StrConv(lPatientId, vbFromUnicode)
cds.dwData = 0

cds.lpData = lPatientId
cds.cbData = LenB(wStrS) + 1


rc = SendMessageCDS(WinHnd, WM_COPYDATA, hWnd, cds)
End If


Dim rc2 As Long
Dim WinHnd2 As Long
Dim cds2 As COPYDATASTRUCT
Dim lPatientId2 As String

WinHnd2 = FindWindow(vbNullString, "HealthChecker")
If WinHnd2 <> 0 Then

rc2 = SendMessageCDS2(WinHnd2, WM_COPYDATA, hWnd2, cds)
End If
'----------------------------------------------------------------


以下のようになります。


保存してスクリプトの編集を終了します。

■ファイリングの設定

ファイルをためておくフォルダを手動でクライアントに作り、適当な名前を付けます。※※※

①「設定変更」のタブをクリックし、②「監視フォルダ」をクリックして※※※で作ったフォルダにリンクを設定します。
③設定を保存をクリックして保存します。

FileNoteの「ファイリング」のタブをクリックし、一番下の「ボタンの設定」をクリックします。

スキャナーを使用する場合は、スキャナーのソフトで、スキャナーの保存フォルダを※※※で設定したフォルダに指定します。

空欄に「心電図」「紹介状」など適当な名前を入れて　「設定変更」をクリックします。

FileNoteを終了し、再起動します。

再起動後再度、data.mdbを作るかを聞かれますので　はい　をクリックします。


同様に、kaikei.mdbをつくるに　はい　をクリックします。

■自動スキャンフォルダの設定（通常は使用しません）

FileNoteの形式でファイル名を付けられてファイルを　自動で振り分けます。
サーバーにFileNoteをおいて、監視フォルダを設定します。
クライアントと同様にdatadyna のリンクを設定します。
再起動後、「自動スキャンフォルダ」を他のソフトの掃出しフォルダに設定します。