西安市医保支付接口规范

西安市医保支付接口应用编程接口规范

§1.3. 接口升级

由于政策变动、业务调整等原因，接口存在升级的可能，为保证各定点医疗机构前端业务正常开展，新的接口库发布遵循向下兼容原则（即三方接口商在未完成接口改造前，先前接口可以继续使用，只是部分变动业务受限）。 为方便三方接口商接口部署，医保经办中心提供接口库升级平台，实现医院接口库的自动升级更新。

§1.4.

交易接口函数描述

yh_interface_init ? 原型定义：

yh_interface_init(

ref long along_appcode, ref string astr_appmsg)

? 函数说明：

初始化函数，HIS应用启动时调用，进行医保交易处理初始化，本交易调用成功后才能进行其他交易处理。 ? 参数说明：

along_appcode >= 0 ，初始化成功；

along_appcode < 0 ，初始化失败，astr_appmsg 错误信息

? 原型定义：

yh_interface_destroy() ? 函数说明：

资源释放函数，在HIS应用退出时调用。

yh_interface_destroy

第 5 页 共 95 页

西安市医保支付接口应用编程接口规范

? 原型定义：

yh_interface_call(

yh_interface_call

string astr_jybh, string astr_jysr_xml, ref string astr_jylsh, ref string astr_jyyzm, ref string astr_jysc_xml, ref long along_appcode, ref string astr_appmsg)

参数名称 astr_jybh 参数含义 交易编号 参数类型 参数类别 String String 参数说明 入口参数 具体的交易代码见〖交易列表〗 入口参数 xml方式，组织方式见业务说明，字符串最大长度65534字符 astr_jysr_xml 交易输入 astr_jylsh astr_jyyzm 交易流水号 交易验证码 String String 出口参数 唯一标识一次交易，VARCHAR(20) 出口参数 处理类交易返回，确认交易时传入 VARCHAR(15) astr_jysc_xml 交易输出 along_appcode 交易标志 String long 出口参数 xml方式，组织方式见业务说明 出口参数 小于0均为失败。此值数据类型是整数，范围为-2147483648 to +2147483647 astr_appmsg 交易信息 String 出口参数 错误信息描述。along_appcode小于0时存放错误描述，其他along_appcode>=0时不用关心该参数内容。 ? 函数说明：

交易主函数，完成所有医疗业务的实际处理。

由于交易调用远程方法，并且可能存在用户交互界面，因此建议所有交易不要纳入HIS系统事务管理。

第 6 页 共 95 页

西安市医保支付接口应用编程接口规范

在交易接口函数定义中，传递的参数都是字符串。但是在交易详细说明中，数据类型都是逻辑类型，常用类型有三种：string,number,datetime，下面的表格描述了交易接口进行类型转换的限制和说明。

数据类型 string number 空字符串 视同空串 视同0 格式不合法 无 返回错误 其它说明 无特别说明标注的长度为最大长度 无特别说明标注的长度为最大长度（小数尾数同） datetime 视同空值 返回错误 足19位长，格式如下： YYYY-MM-DD hh24:mm:ss date 视同空值 返回错误 足10位长，格式如下： YYYY-MM-DD astr_jysr_xml、astr_jysc_xml参数均按照交易详细说明里xml参数组合，顺序无关。接口调

用示例： VB调用

Dim yinhaiobject As Object '定义存放引用对象的变量。 Set yinhaiobject = CreateObject(\YinHai.XIAN.Interface \'检查连接是否建立

If yinhaiobject Is Nothing Then MsgBox \对象为空!\End If

Dim BusinessID As String Dim Dataxml As String Dim Businesssequence As String Dim Businessvalidate As String Dim Outputxml As String Dim Appcode as Long Dim Appmsg As String

BusinessID=\

第 7 页 共 95 页

西安市医保支付接口应用编程接口规范

Ctrlxml =\ '组织参数 Dataxml =\ '组织参数 yinhaiobject.yh_interface_call

BusinessID ,Dataxml ,Businesssequence,Businessvalidate,Outputxml,Appcode,Appmsg '判断返回信息 'HIS业务处理

Set yinhaiobject = Nothing '关闭对象

delphi调用

注意：delphi调用时先要 uses ComObj;否则不能引用oleobject。 Var

yinhaiobject: Variant; //定义存放引用对象的变量。 BusinessID : String Dataxml : String Businesssequence : String Businessvalidate : String Outputxml : String Appcode : integer Appmsg:String; Begin try

yinhaiobject := CreateOleObject('YinHai.XIAN.Interface'); BusinessID:= '01';

yinhaiobject.yh_interface_call(BusinessID ,Dataxml ,Businesssequence,Businessvalidate,Outputxml,Appcode,Appmsg) //返回结果判断，HIS内部处理 finally

yinhaiobject:=Unassigned;// 关闭对象 end;

第 8 页 共 95 页