襄樊医保与系统接口确认稿

1、襄樊市金保信息系统与HIS 系统信息交换方案广州华南资讯科技2021-3-14TEL：FAX：- 2 -更新历史编写人日期版本号变更内容2007.121.002008-3-311.013.3.1 增加 syfs 字段，3.3.7 增加 cyzd1,增加功能号 5001,50022008-4-11.02增加功能号 50032008-4-81.03修改慢门诊信息改为不传 tzdxsph,不用数据集返回，返回2008-4-111.045003 去掉慢不能结算,慢可以结算2008-4-161.051.9.2 慢门诊登记去掉 bzdm 必录2008-4-171.061.9.3 门诊登记增加 CYZDGJ

2、DM，cyzd 增加长度2008-4-221.07更改结算单模式,相关打印接口字段有所更改2008-5-91.082004 住院结算返回添加 SYFS，BFZLX，TESL，JBYLFDZF慢登记 BZDM 非必录2008-5-131.09修改 2004，2005，3002，3003，4002，4003 返回结果集里统一增加 fldm 字段2008-5-281.10处方项目1302出 XYBZ,SHBZ,SHR,，新增加费用审核功能70012008-6-111.11功能号 2004，2005，3002，3003，4002，4003 新增加返回字段DWDJZH(登记证号)2009-1-121.1

3、2功能号 2004，2005，3002，3003，4002，4003 新增加返回字段DETBGS(大额投保公司)2009-11-121.131.7 代码参数说明（新增参数）。功能号 2004，2005，3002，3003， 4002，4003 新增返回字段 SQMC(社区名称),JDXX(就读学校)。功能号 4003 新增返回字段 JMFY(减 用),YFQFJE(已付起付金额)2010-04-071.142004，2005 新增返回字段 ECBC（二次补偿费用）2013-09-251.151401 新增功能点 就诊未审批特殊待遇2013-12-151.162004，2005，3002，300

4、3 增加商保统筹支付 1 字段（居保大病）襄樊市金保信息系统与HIS 系统信息交换方案目录概述4襄樊市劳动和保障信息系统简介4第一章1.11.1.11.1.21.1.3应用软件现状4系统建设目标4系统总体51.2信息交换方案概述5第二章DLL 接口函数62.1使用说明62.1.1 运行环境62.2HNBridge.dll 的函数说明62.2.1 Initialize62.2.2 Release72.2.3 CreateInstace72.2.4 SetParam72.2.5 InsertDataSet82.2.6 InsertRow82.2.7 SetField82.2.8 EndRow92.

5、2.9 EndDataSet92.2.10 Run92.2.11 GetParam102.2.12 LocateDataSet102.2.13 GetRowSize102.2.14 NextRow112.2.15 GetCurrentRow112.2.16 GetColSize112.2.17 GetFieldValue112.2.18 DestroyInstance122.2.19 GetSysMessage122.3DLL 接口函数调用顺序122.4程序中接口函数的定义132.4.1 DLL 接口函数在 PowerBuilder 中为全局函数132.4.2 HNBridge.dll 调用示

6、例14第三章接口功能编号及功能描述18代码参数说明193.13.23.2.13.2.23.2.3功能21基本资料120121【可选】参保【可选】个人缴费信息【1202】.23【可选】个人就医资料信息130124广州华南资讯科技2021-3-14TEL：FAX：- 3 -襄樊市金保信息系统与HIS 系统信息交换方案3.2.4 【可选】处方信息【1302】263.3业务办理功能273.3.13.3.23.3.33.3.43.3.53.3.63.3.73.3.83.3.9【必选】住院登记200132【必选】慢门诊登记300133【必选】普通门诊登记400134【必选】记帐处方项目传送200236【必

7、选】出院登记200337【必选】住院费用结算200438【必选】住院费用结算单打印200540【必选】慢【必选】慢门诊结算300244门诊结算单打印3003463.3.10 【必选】普通门诊结算4002483.3.11 【必选】门诊结算单打印4003503.4用户登录553.4.13.4.2医院登录55医院口令修改56第四章医院需要完成的工作57HIS 系统改造57权限说明584.1第五章第一章概述1.1 襄樊市劳动和保障信息系统简介1.1.1 应用软件现状目前，各定点医院（以下简称定点医疗机构）已有各自的信息管理系统,定点医院利用已有的社保网于医保中心数据库进行。1.1.2 系统建设目标实现

8、医疗保险的统一管理，同时更容易适应政策的变化。广州华南资讯科技2021-3-14TEL：FAX：- 4 -襄樊市金保信息系统与HIS 系统信息交换方案1.1.3 系统总体网络系统：市内各定点医院通过襄樊市社保网与医保中心应用服务器实现实时联接及交换数据功能；市外定点医院可通过 ADSL 或时业务处理。拨号与医保中心端进行联接，实现实定点医院端系统：HIS 系统统一调用接口动态库，实现医保待遇实时计算。1.2 信息交换方案概述广州华南资讯科技2021-3-14TEL：FAX：- 5 -入/出院登襄樊市金保信息系统与HIS 系统信息交换方案医疗保险 DLL 系统（包含 HNBridge.dll 和

9、 Cipher.dll、HNBridge.dll 和 Cipher.dll 的PowerBuilder 调用实例）是由广州华南资讯科技功能调用接口。研发，为 HIS 系统提供医保系统的该系统HNBridge.dll 和Cipher.dll 是为HIS 系统提供的调用动态库，是采用VC+ 6.0MFC 编程实现的；医院 HIS 只需调用 HNBridge.dll，不需调用 Cipher.dll，Cipher.dll 是HNBridge.dll 的支持库。该系统的全部源代码及其文档属广州华南资讯科技所有。本文医院系统如何与医保系统交互进行介绍，主要是 DLL 动态调用说明。本文不对医保中心端的实现

10、进行描述。库的功能介绍、第二章DLL 接口函数1.3 使用说明1.3.1 运行环境环境描述llllWindows 2000/XP支持 PowerBuilder、Visual Basic、DelphiMSXML3 以上版本的 MSXML器测试环境：IP：10.131.7.9，端口：9090安装对于操作系统中没有没有 MSXML3 以上版本的 MSXML上版本。器的需安装 MSXML3 以1.4HNBridge.dll 的函数说明1.4.1 Initialize功能定义HRESULT WINAPI Initialize(LPTSTR svrIP, USHORTRecvBufSize)功能描述svr

11、Port, int SndBufSize,int在调用 DLL 前，初始化调用环境变量。整个调用工程只需调用该函数一次即可。参数说明LPTSTR svrIP：服务器的地址。广州华南资讯科技2021-3-14TEL：FAX：- 6 -襄樊市金保信息系统与HIS 系统信息交换方案USHORT svrPort：SndBufSize：socket服务器的端口。缓存大小。RecvBufSize：socket 接收缓存大小。返回值HRESULT 1 表示；-11 表示系统初始化失败。1.4.2 Release功能定义HRESULT WINAPI Release()功能描述在完成全部 DLL 提供的功能函数

12、后，调用该函数对 DLL 进行参数说明无返回值。HRESULT 1 表示；-12 表示系统操作失败。1.4.3 CreateInstace功能定义HANDLE WINAPI CreateInstace()功能描述创建一个功能调用实例。在进行一个新的功能调用前必须执行该操作，以取得调用的处理句柄。返回的句柄将成为其他功能调用的参数。参数说明无返回值HANDLE 大于 0 的 LONG 型值表示创建；-13 表示创建失败。1.4.4 SetParam功能定义HRESULT WINAPI SetParam(HANDLE pDataHandle,LPCTSTR paramName, LPCTSTR p

13、aramValue)功能描述提供功能调用的参数组，比如功能号以及其他功能的调用参数。（功能号的 paramName规定为“FN”）参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。LPCTSTR paramName：参数名称。LPCTSTR paramValue：参数值。返回值HRESULT返回 1；失败返回-14，详细的错误信息可以通过调用 GetSysMessage()广州华南资讯科技2021-3-14TEL：FAX：- 7 -襄樊市金保信息系统与HIS 系统信息交换方案取得。1.4.5 InsertDataSet功能定义HR

14、ESULT WINAPI InsertDataSet(HANDLE pDataHandle)功能描述一个数据集,为装入数据作准备。参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。返回值HRESULT取得。返回 1；失败返回-15，详细的错误信息可以通过调用 GetSysMessage()1.4.6 InsertRow功能定义HRESULT WINAPI InsertRow(HANDLE pDataHandle);功能描述一行,为装入一行数据作准备。参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 Cr

15、eateInstace()创建。返回值HRESULT取得。返回 1；失败返回-16，详细的错误信息可以通过调用 GetSysMessage()1.4.7 SetField功能定义HRESULT WINAPI SetField(HANDLE pDataHandle,LPCTSTR fieldName, LPCTSTR fieldValue)功能描述在当前行参数说明一列。HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。LPCTSTR fieldName：列名称。LPCTSTR fieldValue：列值。返回值HRESULT取得返回 1；失

16、败返回-17，详细的错误信息可以通过调用 GetSysMessage()广州华南资讯科技2021-3-14TEL：FAX：- 8 -襄樊市金保信息系统与HIS 系统信息交换方案1.4.8 EndRow功能定义HRESULT WINAPI EndRow(HANDLE pDataHandle,Long rowID)功能描述结束当前行，把当前行参数说明到当前的数据集中。HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。Long rowID：赋予当前行的行号。返回值HRESULT取得。返回 1；失败返回-18，详细的错误信息可以通过调用 GetS

17、ysMessage()1.4.9 EndDataSet功能定义HRESULT WINAPI EndDataSet(HANDLE pDataHandle,LPCTSTR name)功能描述结束当前数据集，把当前数据集的各功能规定）到数据包中。（数据集名称规定具体请参考第三章参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建LPCTSTR name：赋予当前数据集的名字。返回值HRESULT取得。返回 1；失败返回-19，详细的错误信息可以通过调用 GetSysMessage()1.4.10 Run功能定义HRESULT WINAPI

18、Run(HANDLE pDataHandle);功能描述运行调用实例。参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。返回值HRESULT 大于 0 表示， -20 表示调用中 DLL 本身发生异常，详细的错误信息也可以通过调用 GetSysMessage()取得。注意：（1） 服务端发生异常但 DLL 本身正常执行时 HRESULT 大于 0；（2） 要获取服务端返回的返回值(FHZ) 和返回信息(MSG) 需通过下面的广州华南资讯科技2021-3-14TEL：FAX：- 9 -襄樊市金保信息系统与HIS 系统信息交换方案Ge

19、tParam(HANDLE pDataHandle, LPCTSTR paramName,LPTSTR ParamValue, UINT nMaxValueLenth) 获取参数名称(paramName) 为“ FHZ”和参数名称(paramName)为“MSG”的参数值得到的，而不是通过调用 GetSysMessage()取得，GetSysMessage()只用来获取 DLL 本身发生的异常。1.4.11 GetParam功能定义HRESULT WINAPI GetParam(HANDLE pDataHandle,LPCTSTR paramName, LPTSTR ParamValue, U

20、INT nMaxValueLenth)功能描述该接口函数用于取返回参数。参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。LPCTSTR paramName：返回变量的参数名称。LPTSTR ParamValue：保存返回值的变量。UINT nMaxValueLenth：变量 ParamValue 的分配内存字节数。返回值HRESULT 1 表示执行；-21 表示执行异常，详细的错误信息可以通过调用GetSysMessage()取得。1.4.12 LocateDataSet功能定义HRESULT WINAPI LocateData

21、Set(HANDLE pDataHandle,LPCTSTR name)功能描述返回的数据集。参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。LPCTSTR name：要的数据集的名称。返回值HRESULT 1 表示执行GetSysMessage()取得。；-22 表示执行异常，详细的错误信息可以通过调用1.4.13 GetRowSize功能定义HRESULT WINAPI GetRowSize(HANDLE pDataHandle)功能描述该接口函数用于取当前数据集的数据行数。参数说明HANDLE pDataHandle：功能

22、调用的处理句柄，由接口函数 CreateInstace()创建。返回值广州华南资讯科技2021-3-14TEL：FAX：- 10 -襄樊市金保信息系统与HIS 系统信息交换方案HRESULT 当前数据集的数据行数，大于或等于 0 表示执行详细的错误信息可以通过调用 GetSysMessage()取得。；-23 表示执行异常，1.4.14 NextRow功能定义HRESULT WINAPI NextRow(HANDLE pDataHandle)功能描述将当前数据集的指针移到下一行。参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。返

23、回值HRESULT 下一行的行号，大于或等于 0 表示执行表示执行常，详细的错误信息可以通过调用 GetSysMessage()取得。；-24 表示执行异1.4.15 GetCurrentRow功能定义HRESULT WINAPI GetCurrentRow (HANDLE pDataHandle)功能描述得到当前行的实际行号。参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。返回值HRESULT 当前行的实际行号，大于 0 表示误信息也可以通过调用 GetSysMessage()取得。， -25 表示调用中发生异常，详细的错1.

24、4.16 GetColSizeHRESULT WINAPI GetColSize(HANDLE pDataHandle)功能描述该接口函数用于取当前数据集的数据列数。参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。返回值HRESULT 大于 0 表示，此时 HRESULT 的值即列数， -26 表示调用中发生异常，详细的错误信息也可以通过调用 GetSysMessage()取得。1.4.17 GetFieldValue功能定义HRESULT WINAPI GetFieldValue(HANDLE pDataHandle, LPC

25、TSTR name, LPTSTR value, UINT nMaxValueLenth)广州华南资讯科技2021-3-14TEL：FAX：- 11 -襄樊市金保信息系统与HIS 系统信息交换方案功能描述得到当前行的指定列的值。参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。LPCTSTR name：待取数据的列名。LPTSTR value：保存列值的变量。UINT nMaxValueLenth：为保存列值的变量分配的内存字节数。返回值HRESULT 大于 0 表示用 GetSysMessage()取得。，-27 表示调用中发生

26、异常，详细的错误信息也可以通过调1.4.18 DestroyInstance功能定义HRESULT WINAPI DestroyInstance(HANDLE pDataHandle)功能描述功能函数调用句柄。参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。返回值HRESULT返回 1；-31 表示调用中发生异常，详细的错误信息可以通过调用GetSysMessage()取得。1.4.19 GetSysMessage功能定义HRESULT WINAPI GetSysMessage(HANDLE pDataHandle, LPTST

27、R pMessage, UINT nMaxMessage)功能描述获取详细的系统信息。通过该函数可以获取功能调用的返回信息；如果系统发生异常， 则返回最后一次错误的出错信息。参数说明HANDLE pDataHandle：功能调用的处理句柄，由接口函数 CreateInstace()创建。LPTSTR pMessage：保存系统信息的变量。UINT nMaxMessage：变量 pMessage 的分配内存字节数。返回值HRESULT返回 1；否则，返回-32 表示执行失败。1.5 DLL 接口函数调用顺序1、 调用 Initialize()接口函数初始化系统环境变量。该函数只在系统调用前，调用

28、一次即可； 除非系统的操作员变更。2、 系统功能调用广州华南资讯科技2021-3-14TEL：FAX：- 12 -襄樊市金保信息系统与HIS 系统信息交换方案1） 调用 CreateInstace()创建调用处理句柄，以后所有作句柄所指向的处理模块处理。2） 循环调用 SetParam()传入所有单项数据。3） 如果需要传入数据集时，先调用 InsertDataSet()创建一个数据集，再调用 InsertRow()该调用的全部操作均将由该操创建一行，然后循环调用 SetField()将当前行的列，然后调用 EndRow()将当前行当前数据集，类似地循环创建行和赋列值并将行当前数据集，当前数据

29、集的行 完后调用 EndDataSet()结束当前行，如果有多个数据集，则再类似地循环处理。4） 当通过步骤 2)、3)将全部功能函数所需的全部参数后，即可调用 Run ()接口函数， 用以调用对应的功能。调用 Run()完成后，要获取服务端返回的返回值(FHZ)和返回信息(MSG)，请使用 getParam()从返回参数中获取，其对应的参数名分别是“FHZ” 和“MSG”。5） 循环调用用 getParam()获取返回的单项数据。6） 对于返回的响应数据中有数据集的，先调用 LocateDateSet()到目标数据集，此时指针指向数据集的第一行，再调用 GetRowSize()取到对应数据集

30、的数据行数，然后根据行数开始循环 所有的行，先调用 GetColSize()取到当前行的列数，再循环调用 GetFieldValue()获取当前行的各列值，取完当前行的列值后调用 NextRow()到下一行，然后调用 GetColSize()取到当前行的列数，再循环调用 GetFieldValue()获取当前行的各列值，类似地去循环完数据集的所有行。在排序等情况下如果需要本行在数据库返回的结果集中的实际行号调用 GetCurrentRow()即可获得实际行号。7） 取完响应数据后调用 DestroyInstance ()销毁实例。8） 当完成全部系统调用后，调用 Release ()接口函数D

31、LL 占用的。9） 以上函数调用过程中如果调用的返回值 HRESULT 的值小于 0，则 DLL 本身发生了异常，此时可以调用 GetSysMessage()获取异常信息。10） 另外，登录时需传入加密了的登录口令（即 PWD 参数的值是口令的密文），登录口令的密文可通过调用EncryptWithCipher 函数获得一个 32 位长的 16 进制字符串形式的密文。1.6 程序中接口函数的定义1.6.1 DLL 接口函数在 PowerBuilder 中为全局函数广州华南资讯科技2021-3-14TEL：FAX：- 13 -FUNCTION Long Initialize(string svrI

32、P, Long svrPort, int SndBufSize,int RecvBufSize) LIBRARY"HNBridge.dll"FUNCTION Long Release() LIBRARY "HNBridge.dll" FUNCTION Long CreateInstace() LIBRARY "HNBridge.dll"FUNCTION Long SetParam(Long pDataHandle,String paramName, String paramValue)LIBRARY "HNBridge.dl

33、l"FUNCTION Long InsertDataSet(Long pDataHandle) LIBRARY "HNBridge.dll" FUNCTION Long InsertRow(Long pDataHandle) LIBRARY "HNBridge.dll"FUNCTION Long SetField(Long pDataHandle,String fieldName, String fieldValue) LIBRARY "HNBridge.dll"FUNCTION Long EndRow(Long pData

34、Handle,Long rowID) LIBRARY "HNBridge.dll"襄樊市金保信息系统与HIS 系统信息交换方案1.6.2 HNBridge.dll 调用示例示例一：登录广州华南资讯科技2021-3-14TEL：FAX：- 14 -/调用 EncryptWithCipher()加密口令的示例（暂时用明文） String ls_encpwd = Space(32)/HnHisDll.EncryptWithCipher(ll_handle,"a",ls_encpwd,32)/对口令加密得到密文 ls_encpwdlong ll_rtn = -

35、1Stringls_yybh='1000' Stringls_user=rmyy/创建调用实例ll_rtn=HnHisDll.Initialize(ls_svrIP,lu_port,li_sndBufSize,li_recvBufSize) if ll_rtn <= 0 thenMessageBox("系统错误", "HNHISBridge 初始化调用实例操作异常！", StopSign!, OK!) end if/创建调用实例ll_handle = HnHisDll.CreateInstace()if ll_rtn =1 then

36、/将单项数据传入调用实例ll_rtn = HnHisDll.SetParam(ll_handle, "FN", "1") /设置功能号本示例是登录ll_rtn = HnHisDll.SetParam(ll_handle, "YYBH", ls_yybh) /医院编号ll_rtn = HnHisDll.SetParam(ll_handle, "USERID", ls_user) /医院编号ll_rtn = HnHisDll.SetParam(ll_handle, "PWD", ls_encpwd)

37、 /医院编号FUNCTION Long EndDataSet(Long pDataHandle,String name) LIBRARY "HNBridge.dll" FUNCTION Long Run(Long pDataHandle) LIBRARY "HNBridge.dll"FUNCTION Long GetParam(Long pDataHandle, String paramName,REF String paramValue, UINT nMaxValueLenth) LIBRARY "HNBridge.dll"FUNC

38、TION Long LocateDataSet(Long pDataHandle,String name) LIBRARY "HNBridge.dll" FUNCTION Long GetRowSize(Long pDataHandle) LIBRARY "HNBridge.dll"FUNCTION Long GetColSize(Long pDataHandle) LIBRARY "HNBridge.dll" FUNCTION Long NextRow(Long pDataHandle) LIBRARY "HNBridge

39、.dll" FUNCTION Long GetCurrentRow(Long pDataHandle) LIBRARY "HNBridge.dll"FUNCTION Long GetFieldValue(Long pDataHandle, String name, REF String value, UINT nMaxValueLenth) LIBRARY "HNBridge.dll"FUNCTION Long DestroyInstance(Long pDataHandle) LIBRARY "HNBridge.dll"F

40、UNCTION Long GetSysMessage(Long pDataHandle, REF String Message, Uint nMaxMessage) LIBRARY "HNBridge.dll"FUNCTION Long EncryptWithCipher(long pDataHandle,string PlainData,REF string EncryptedData, ULongnMaxValueLenth) LIBRARY "HNBridge.dll"襄樊市金保信息系统与HIS 系统信息交换方案示例二：门诊费用结算广州华南资讯科技

41、2021-3-14TEL：FAX：- 15 -/初始化过程变量long ll_rtn = - 1string ls_svrIP ="192.168.0.1" /前置机地址。intlu_port = 9990/Socket 服务器的端口intli_sndBufSize =16384/Socket缓存大小，16k intli_recvBufSize = 16384/ Socket缓存大小，16k long ll_handle = 0/系统调用实例的句柄String ls_Error = Space(1024) /保存调用执行情况的详细信息的变量，需要预先分配空间Long ll_

42、rowsize, ll_colsize;/返回数据的总行数以及列数Long ll_Row, ll_Col; /按行号取一行数据的循环子变量String ls_ColData /待取的指定数据集、指定数据行中的列值String ls_DataSetName = "MZCFXMDR" /数据集名称/运行该调用实例，向服务器请求并接收响应ll_rtn = HnHisDll.Run(ll_handle) If ll_rtn <> 1 then/取详细信息HnHisDll.GetSysMessage(ll_handle, ls_Error, 1024)MessageBox

43、("错误", "操作失败！" + "rn" +"详细信息：" + ls_Error) End If/获取返回的单项数据String ls_fhz =space(1024),ls_msg =space(1024)ll_rtn= HnHisDll.GetParam(ll_handle, "FHZ",ls_fhz,1024) /返回值ll_rtn= HnHisDll.GetParam(ll_handle, "MSG",ls_msg,1024) /返回信息 end if/调用实例ll

44、_rtn = HnHisDll.DestroyInstance(ll_handle) If ll_rtn <> 1 thenMessageBox("系统错误", "HNHISBridge调用实例操作异常！", StopSign!, OK!) End If/DLL 占有所有ll_rtn = HnHisDll.Release() If ll_rtn <> 1 thenMessageBox("系统错误", "HNHISBridge系统操作异常！", StopSign!, OK!) End If襄樊

45、市金保信息系统与HIS 系统信息交换方案广州华南资讯科技2021-3-14TEL：FAX：- 16 -/初始化 DLL 的环境ll_rtn=HnHisDll.Initialize(ls_svrIP,lu_port,li_sndBufSize,li_recvBufSize) if ll_rtn <= 0 thenMessageBox("系统错误", "HNBridge 初始化调用实例操作异常！", StopSign!, OK!) end if/变量Stringls_yybh='1000'/创建调用实例ll_rtn=HnHisDll.I

46、nitialize(ls_svrIP,lu_port,li_sndBufSize,li_recvBufSize) if ll_rtn <= 0 thenMessageBox("系统错误", "HNHISBridge 初始化调用实例操作异常！", StopSign!, OK!) end if/创建调用实例ll_handle = HnHisDll.CreateInstace() if ll_rtn =1 then/将单项数据传入调用实例ll_rtn = HnHisDll.SetParam(ll_handle, "FN", "

47、;2018") /设置功能号 本示例是 门诊费用结算 2018ll_rtn = HnHisDll.SetParam(ll_handle, "GMSFHM", "2001") /公民号码ll_rtn = HnHisDll.SetParam(ll_handle, "JSBZ", "1") /结算标志ll_rtn = HnHisDll.SetParam(ll_handle, "GRSXH", "2001") /个人参保号ll_rtn = HnHisDll.SetParam

48、(ll_handle, "JZLB", "2001") /卡类别/.ll_rtn = HnHisDll.SetParam(ll_handle, "GRZFLJ", "2001") /个人自付累计ll_rtn = HnHisDll.SetParam(ll_handle, "ND", "2001") /年度ll_rtn = HnHisDll.SetParam(ll_handle, "RYLB", "2001") /类别ll_rtn = Hn

49、HisDll.SetParam(ll_handle, "JBR", "1209") /经办人ll_rtn = HnHisDll.SetParam(ll_handle, "JBRQ", "20051011") /经办人ll_rtn = HnHisDll.SetParam(ll_handle, "YYBH", "H10001") /医院编号ll_rtn = HnHisDll.SetParam(ll_handle, " CLIENTTYPE ", "

50、HIS ") /客户端类型/将数据集传入调用实例ll_rtn =HnHisDll.insertDataSet(ll_handle)ll_rtn = HnHisDll.InsertRow(ll_handle)/创建一行ll_rtn = HnHisDll.SetField(ll_handle, "YYBH",ls_yybh)/医院编号ll_rtn = HnHisDll.SetField(ll_handle, "GRSXH", "10018901")/ 个人参保号从医保卡上ll_rtn = HnHisDll.SetField(ll

51、_handle, "JZRQ", "20050222121203")/就诊时间 YYYYMMDD hhmmssll_rtn = HnHisDll.SetField(ll_handle, "XMXH","232323")/项目序号/.传入其它字段值襄樊市金保信息系统与HIS 系统信息交换方案广州华南资讯科技2021-3-14TEL：FAX：- 17 -ll_rtn = HnHisDll.SetField(ll_handle, "BZ3"," ")/备注ll_rtn = HnHi

52、sDll.SetField(ll_handle, "YPLY"," ")/产地ll_rtn = HnHisDll.EndRow(ll_handle,1)/结束当前行ll_rtn = HnHisDll.InsertRow(ll_handle)/创建一行ll_rtn = HnHisDll.SetField(ll_handle, "YYBH",ls_yybh)/医院编号ll_rtn = HnHisDll.SetField(ll_handle, "GRSXH", "10018901")/ 个人参保号从医

53、保卡上ll_rtn = HnHisDll.SetField(ll_handle, "JZRQ", "20050222121203")/就诊时间 YYYYMMDD hhmmssll_rtn = HnHisDll.SetField(ll_handle, "XMXH","21324")/项目序号/.传入其它字段值ll_rtn = HnHisDll.SetField(ll_handle, "BZ3"," ")/备注ll_rtn = HnHisDll.SetField(ll_handl

54、e, "YPLY"," ")/产地ll_rtn = HnHisDll.EndRow(ll_handle,2)/结束当前行ll_rtn = HnHisDll.EndDataSet(ll_handle, ls_DataSetName)/结束当前数据集，赋予数据集的名称为"MZCFXMDR",名称规定见接口功能号以及功能描述部分/运行该调用实例，向服务器请求并接收响应ll_rtn = HnHisDll.Run(ll_handle) If ll_rtn <> 1 then/取详细信息HnHisDll.GetSysMessage(l

55、l_handle, ls_Error, 1024)MessageBox("错误", "操作失败！" + "rn" +"详细信息：" + ls_Error) End If/获取返回的单项数据Stringls_fhz=space(1024),ls_msg=space(1024),ls_jzjlh=space(1024),ls_jsywh=space(1024),ls_ylfyze=space(1024),ls_grzfje=space(1024),ls_grzhje=space(1024), ls_tczeje =sp

56、ace(1024), ls_gwytczf =space(1024), ls_zfeije =space(1024)ll_rtn= HnHisDll.GetParam(ll_handle, "FHZ",ls_fhz,1024) /返回值ll_rtn= HnHisDll.GetParam(ll_handle, "MSG",ls_msg,1024) /返回信息ll_rtn= HnHisDll.GetParam(ll_handle, "JZJLH",ls_jzjlh,1024) /就诊登记号ll_rtn= HnHisDll.GetParam(ll_handle, "JSYWH&