特定健診ソフト～はじめに～

特定健康審査システムはダイナミクスと連動が恐らく可能である。

まずは[⑨マスタメンテナンス]をクリックしよう。

⑨ー①健診機関情報マスタメンテにいこう。

■データ入力項目
「項目名」に対応する「値」を入力する。
特定健診機関番号 ：10 桁までの数字を入力する。自分の健診機関番号を入力する。
　たぶん、県番号＋１＋７桁の医療機関番号を入れるのだ。
特定健診送付元機関 ：10 桁までの数字を入力する。通常は、上と同じ自分の健診機関番号を入力すること。
特定健診機関名称 ：200 桁までの文字を入力する。
特定健診機関郵便番号 ：7 桁までの数字を入力する。
　ハイフンは不要だ。
特定健診機関所在地① ：200 桁までの文字を入力する。
特定健診機関所在地② ：所在地情報が長い場合に、残りの部分を適宜ここに200 桁までの文字を入力する。入力しなくてもよい。
特定健診機関電話番号 ：15 桁までの数字を入力する。
　ハイフン、括弧は不要だ。

これらをダイナミクスから取り出すには、

INSERT INTO T_KIKAN ( TKIKAN_NO, SMOTO_KIKAN, KIKAN_NAME, POST, ADR, TEL )
SELECT 医院情報!県番 & "1" & TrimPlus(医院情報!医療機関コード) AS TKIKAN_NO, 医院情報!県番 & "1" & TrimPlus(医院情報!医療機関コード) AS SMOTO_KIKAN, 医院情報.医院名称 AS KIKAN_NAME, TrimPlus([医院郵便番号]) AS POST, 医院情報!医院所在地 AS ADR, trimplus(医院情報!医院電話番号) AS TEL
FROM 医院情報;

注：先に「医院情報」とリンクするのをお忘れなく。


それから、関数はTrimPlusを作成する。

Public Function TrimPlus(strS As String) As String
Dim intC As Integer
TrimPlus = ""
For intC = 1 To Len(strS)
Select Case Mid(strS, intC, 1)
Case IsNumeric(Mid(strS, intC, 1))
TrimPlus = TrimPlus & Mid(strS, intC, 1)
Case "0"
TrimPlus = TrimPlus & Mid(strS, intC, 1)
Case Else
End Select
Next
End Function

このTrimPlusという関数は自作関数だけれど、文字列から数字のみを取り出す物でとても便利だ。