VFP如何连接四川银海医保接口
医疗保险支付接口应用编程规范(Version 1.0.)使用对象为使用银海医保支付组件库(以下简称组件库)来完成医保支付的定点医疗机构的应用软件提供供应商、药店 MIS 供应商或其它第三方应用软件供应商。
应用模式 银海医保支付组件库是一组运行在 WINDOWS 32 位环境下的 COM 组件,第三方应用软件使用相应 的 COM 组件调用方式来调用它。
接口交易组件库提供了六个公共方法(yh_interface_init 初始化,yh_interface_destroy 资源释放, yh_interface_call 业务方法调用,yh_interface_confirm 业务办理确认,yh_interface_cancel 业务办理取消, yh_interface_getuncertaintytrade 不确定交易查询),交易参数组织采用 xml(所有医保经办机构交易调用及 交易参数统一),差别处理对于 HIS 透明。
接口 COM 说明 组件库提供交易的 COM 组件属性如下: 属性 值 App ID {1093BEAA-F4C6-4B10-B652-1F555DF0BAE0} Type Library ID {068CA2B4-19A6-4811-BEA5-24B0752B986A} Program ID YinHai.SCMYInterface2 COM ClassName COClass_n_yh_interface COM ClassID {FC9F5EC8-DA56-441D-9D98-43F2840796AF} Interface Type Dual Interface Interface Name In_yh_interface Interface ID {A994B414-B737-4FAB-BCD3-0B30DDEBD404}
接口调用示例 yh_interface_call(astr_jybh,lstr_jykz_xml,lstr_jysr_xml ,ref lstr_pcbh,ref lstr_jylsh,ref lstr_jyyzm,ref lstr_jysc_xml,ref lint_appcode,ref lstr_appmsg)
Dim yinhaiobject As Object '定义存放引用对象的变量。
Set yinhaiobject = CreateObject ("YINHAI.SCMYINTERFACE ") '检查连接是否建立
If yinhaiobject Is Nothing Then
MsgBox "对象为空!"
End If
Dim BusinessID As String
Dim Ctrlxml As String
Dim Dataxml As String
Dim Pcbh As String
Dim Businesssequence As String
Dim Businessvalidate As String
Dim Outputxml As String
Dim Appcode as Long
Dim Appmsg As String
BusinessID="01"
Ctrlxml ="" '组织参数
Dataxml ="" '组织参数
yinhaiobject.yh_interface_call( BusinessID,Ctrlxml,Dataxml,Pcbh,Businesssequence,Businessvalidate,Outputxml,Appcode,App msg) '判断返回信息 'HIS 业务处理
Set yinhaiobject = Nothing '关闭对象
请问用VFP如何写程序?