醫保接口調試過程一例

王正凱

摘要：經曲阜師范大學與山東省濟寧市人社局協商、溝通，大學校醫院納入醫保定點醫院。校醫院HIS系統需要與山大地緯醫保接口進行數據對接。本文介紹了山大地緯醫保系統的接口環境，以及校醫院HIS系統對醫保接口的調試思路、調試過程和解決方案。

關鍵詞：醫保;接口技術;編程;Perl

中圖分類號：G642? ? ? ? 文獻標識碼：A

文章編號：1009-3044（2021）10-0263-03

Abstract：After negotiation between Qufu Normal University and Medical Insurance Bureau of Jining City Shandong Province， School hospital will be included Medical insurance designated hospitals. This article describes basic situation of Shandong University Medical Insurance System interface， and the? process of Interface docking technology.

Key words： the Social medical insurance system; Interface technology; Programming; Perl

1 社會醫?；粳F狀

黨的十九大報告確立了習近平新時代中國特色社會主義思想，明確闡述了健康中國的發展戰略及總體部署，提出打造共建共享的健康治理新格局，健康治理開始成為政府、學界及民眾普遍關注的重大民生問題。全民醫保作為我國健康保障體系的主要制度安排，其治理問題也是健康治理的有機組成部分，關系到健康中國戰略目標的實現。[1]

當今時代，互聯網和大數據應用日益成為管理創新發展的先導力量，深刻改變著傳統的政府行政管理方式。利用信息技術手段創新治理工具，推動醫保制度設計更加科學化、精細化、人性化，促進醫藥衛生體制改革全面深化，不僅是當前社會發展的需要，更是實現醫保治理現代化的重要途徑。[2] 越來越多的地方醫院，通過醫保的規范技術接口，納入醫保的信息化管理系統，互聯網、大數據、云計算等現代信息技術在醫保領域正在全方位拓展。

2 本院面對的醫保接口環境

按照地方人社局的要求，筆者所在醫院需要與山大地緯醫保系統進行數據對接。山東大地緯醫保結算覆蓋山東省80%地區的定點醫療機構和定點藥店，山大地緯軟件公司向醫院提供的技術文檔是《地緯定點醫院嵌入式接口服務說明文檔（v1.0.7）》。該說明文檔的背景介紹是“定點醫療機構業務是社會保險體系中的重要組成部分，定點醫療機構結算系統更是核心平臺三版的核心外圍業務系統之一。為了更好地實現定點醫療機構結算系統與醫院自身信息管理系統的對接，地緯公司研制設計了本接口系統?！?/p>

“地緯定點醫院接口服務系統”是在地緯公司采用面向服務的應用程序開發（Services-oriented development of application，SODA）使定點醫院醫保結算系統轉換到面向服務架構（service-oriented architecture，SOA）。該接口服務集成了醫療保險定點醫療機構的所有結算業務服務函數，這些函數供給醫院HIS系統調用，并支持重要結算信息的返回。將該接口嵌入原醫院管理系統后，醫院管理系統可無縫連接到醫療保險網絡信息系統。

醫院端與醫保核心端應用架構如下：

3 醫院對醫保接口的調試過程

3.1 醫保接口調試前的硬件準備

醫院向地方通信公司申請開通醫保專線連接，并準備一臺連接醫保專線的電腦。按照地緯軟件公司的要求，該電腦安裝Win7 32位專業版。

3.2 山大地緯結算軟件的安裝

電腦安裝地緯醫保結算系統，安裝USB加密卡。

地緯醫保結算系統安裝過程中，在D盤會創建“地緯定點醫療機構結算系統三版”文件夾。這個文件夾里的sei3.dll文件是接口類庫文件，需要在電腦命令行狀態完成sei3.dll文件的注冊：

regsvr32 sei3.dll

3.3 編程環境的創建

為了方便醫保接口的調試工作，經過綜合考量，決定使用不需要編譯的腳本語言Perl編寫調試程序。

安裝Strawberry Perl 5.26.2.1 （32bit）。安裝后的Perl并不能直接處理dll文件，還需要在命令行狀態安裝“Win32：：OLE”模塊：

Perl –MCPAN –e “install ‘win32：：OLE”

3.4 編寫調用dll的測試程序：

按照醫保接口文檔說明，用Perl寫一個創建ole對象的程序如下：

#！"D：＼Strawberry＼perl＼bin＼perl"

use Win32：：OLE;

my $sei = CreateObject Win32：：OLE 'sei3' or die $！;

my $vi = $sei->connecttonewobject（'sei3'）;

if （$vi ！= 0）

{

print "創建地緯嵌入式接口sei對象失?。。躰";

}

else

{

print "創建地緯嵌入式接口sei對象成功?。躰";

}

運行結果：創建地緯嵌入式接口sei對象成功！

在創建sei對象的基礎上，對接口文檔中“讀取無卡取保人基本信息”的功能編寫Perl程序，對本市參保人員高某的醫保信息嘗試讀?。?/p>

# 讀取無卡取參保人的基本信息 Perl代碼：

$sei->resetvar（）;

$sei->putvarstring（'grbh'，' 37088119710429****'）;

$sei->putvarstring（'xm'，'高**'）;

$sei->putvarstring（'yltclb'，'4'）;

$r = $sei->putvarstring（'sbjgbh'，' 37088101'）;

if （$sei->request_service（'query_person_info'） ！= 0）

{

print "調用無卡取信息服務失?。。躰";

}

$vrqlb? = $sei->getvarstring（'rqlb'）;

$vxm? ?= $sei->getvarstring（'xm'）;

$vzfbz? = $sei->getvarstring（'zfbz'）;

$vmzdbjbs = $sei->getvarstring（'mzdbjbs'）;

print "$vrqlb $vxm $vzfbz $vmzdbjbs";

程序運行后，屏幕打?。?/p>

A 高** 1 甲狀腺功能亢奮（門診特?。?m00023/

打印信息的含義依次為：人群類別 姓名 標志 疾病編碼。

這說明，測試程序能夠正常調用sei3.dll封裝的函數。

接口文檔中其他的功能實現，都可以通過Perl對sei3.dll的調用來完成。在調用sei3.dll時經常會要求傳遞datetime（）類型的時間參數，由于Perl和PB編程語言的差異，在Perl中沒有并沒有這個數據類型，所以需要寫一個生成datetime（）時間格式數據的子函數，在傳遞datetime（）類型的時間參數前進行調用：

sub get_datetime（）

{

$chpasstime = time（）;

use POSIX qw（strftime）;

$chpasstime = strftime "%Y-%m-%d %H：%M：%S"， localtime（$chpasstime）;

$chpasstime = $chpasstime ;

return $chpasstime;

}

還有其他一些類似的情況，需要在Perl中構造數據轉換函數，在此不再敘述。

3.5 醫保慢性病門診處方的處理實例

在完成對醫保接口基本調用的測試之后，開始調試醫保慢性病類型的門診處方。在醫院HIS系統里需要做一些必要的改動，醫保慢性病處方錄入后，需要及時調用醫保接口把處方內容傳遞給醫保系統，并等待醫保系統返回的結算信息。傳遞門診處方的核心程序代碼為：

# 創建對象句柄

use Win32：：OLE;

$sei = CreateObject Win32：：OLE 'sei3' or die $！;

$vi =? $sei->connecttonewobject（'sei3'）;

# 醫保接口初始化

$sei->resetvar（）;

$sei->putvarstring（'sbjgbh'，'37088101'）;? # 社保機構編號入參

$sei->putvarstring（'yybm'，'088137'）;? ? ? ?# 醫院編號入參

$sei->putvarstring（'gzrybh'，'0001'）;? ? ? ?# 操作員編號入參

$sei->putvarstring（'pwd'，'******'）;? ? ? ? # 密碼入參

$vi = $sei->request_service（'init'）;

# 門診初始化

$sei->resetvar（）;

$sei->putvarstring（'sbjgbh'，"$sbjgbh"）;

$sei->putvarstring（'yltclb'，"$yltclb"）;

$sei->putvarstring（'xzbz'，"C"）;? ? ? ? ? ? ? ?# 險種標識，醫療C;工傷E

$sei->putvarstring（'grbh'，"$grbh"）;? ? ? ? ? # 個人編號

$sei->putvarstring（'xm'，"$xm"）;? ? ? ? ? ? ? ?# 姓名

$sei->putvarstring（'xb'，"$xb"）;? ? ? ? ? ? ? ?# 性別

$sei->putvarstring（'jbbm'，"$jbbm"）;? ? ? ? ? # 疾病編碼

$sei->putvarstring（'ysbm'，"$ysbm"）;? ? ? ? ? # 醫師編碼

$sei->putvardatetime（'fyrq'，"$datetime"）;? ?# 當前時間入參

$vi = $sei->request_service （'init_mz'）;? ? # 調用門診初始化

if （$vi eq '0'）? ? # 如果門診初始化成功

{

$vjshid=$sei->getvarstring（'jshid'）;? ? ? ? # 從接口讀取結算號

$vfyid=$sei->getvarstring（'fyid'）;? ? ? ? ? # 從接口讀取費用號

$vzylsh=$sei->getvarstring（'zylsh'）;? ? ? ? # 從接口讀取流水號

# 門診費用項目循環上傳

# 此處通過標準SQL語句讀取HIS數據庫中門診處方信息（已略去），并傳遞到醫保接口

while （@data = $sth->fetchrow_array（））

{

$sei->putvarstring（'yyxmbm'，"$yyxmbm"）;

$sei->putvarstring（'yyxmmc'，"$medname"）;

$sei->putvardec（'dj'，"$lprice"）;

$sei->putvardec（'sl'，"$quantity"）;

$sei->putvardec（'bzsl'，'1'）;

$sei->putvardec（'zje'，"$zje"）;

$sei->putvarstring（'gg'，"$guige"）;

$sei->putvardec（'sxzfbl'，"$sxzfbl"）;? ? # 自付比例

$sei->putvardatetime（'fyfssj'，"$datetime"）; # 當前時間入參

$sei->putvarstring（'zxksbm'，'006'）;? ? ?# 執行科室編碼

$sei->putvarstring（'kdksbm'，'006'）;? ? ?# 開單科室編碼

$sei->putvarstring（'sm'，''）;? ? ? ? ? ? ?# 說明，默認保持空

$sei->putvarstring（'yzlsh'，''）;? ? ? ? ?# 醫囑流水號 默認保持空

$sei->putvarstring（'sfryxm'，"$sfryxm"）; # 收費人員姓名

}

}

程序運行后，門診處方內容傳遞給接口，并接收到醫保返回的結算信息，彈出結算單打印界面。

這樣就完成了醫保慢性病門診處方的一次結算。

3.6 醫保類型住院費用的處理

住院費用的處理和門診費用的處理類似，最大的不同在于，醫保住院患者產生的費用信息實時上傳，并不結算，直到患者出院時才完成結算。

住院費用的上傳、患者出院的結算，也都是對醫保接口函數的調用，和醫保門診處方的調用過程類似。

限于篇幅，醫保住院費用的上傳程序、出院結算程序，本文不再敘述。

4 討論總結

Perl屬于快速原型開發的高級編程語言，程序代碼不需要編譯，使用非常方便，這是本院選擇使用Perl作為調試語言的原因。

隨著全國社會醫保工作的展開，各地醫院都會陸續接入醫保系統。本文記錄了我院加入社會醫保接口調試的主要流程，事實上，醫院管理系統（HIS）需要做的改動很多，細節工作也很煩瑣，比如醫院費用項目與醫保費用項目的對應等工作。但只要能明確思路，所有問題都可以逐步得到解決。醫保接口的改造成功不僅方便了醫?；颊叩木歪t，提高了醫院的服務水平，而且還規范了醫院醫?；颊叩墓芾?。[3]

雖然各地醫保機構和醫院軟件系統存在差異，但接入醫保系統的思路和過程是相似的，可以相互參考、借鑒。

參考文獻：

[1] 王琬，詹開明.社會力量助推醫保治理現代化研究[J].社會保障評論，2018，2（1）：82-91.

[2] 馬穎穎.社會保障公私合作的產生基礎及中國的實踐[J].社會保障評論，2017，1（3）：148-159.

[3] 賴家聚，賴燕梅，劉焱鑫.省、市醫保接口統一基礎與交換數據平臺實現[J].醫學信息，2019，32（12）：13-16.

【通聯編輯：王力】