3 HIS系统嵌入式接口门规调用说明.docVIP

一、例程(IDE PowerBuilder v8.0.3)： Oleobject com4his com4his =create oleobject vi=com4his.connecttonewobject(embeded_interface) if vi0 then messagebox(注册失败,vi) return end if vi=com4his.init(0001,370101,1234) //完成系统的初始化（用户名为0001,密码是1234，医院编号为370101） vi=com4his.readcardmg(); //读卡,读出此人的门规登记信息 vjbbm =com.result_s(‘mzdbjbs’) ///取得疾病编码信息vjbbm 关于疾病编码的特别说明:由于门规备案时可能备多个病种,所以读卡返 回的结果格式是: 疾病病种的名称1 +’#m’+疾病病种编码1 + ‘/’ + 疾病病种的名称2 +’#m’+疾病病种编码2 + ‘/’ + ……,在此格式的基础上,还要请开发人员自行解析其中的编码和名称处理 grbh =com.result_s(‘grbh’) ///得到 身份证编号 com4his.init_mg(370100,blh,vgrbh,1,vjbbm,,datetime(today(),now( )),0001,000002,3) //初始化门规结算(社保机构编号(济南’370100’ 对每一行凭单项目 com4his.new_mg_item() //新增一行凭单记录 /* 以下为当前行凭单插入各个项目值*/ com4his.set_mg_item_string(yyxmbm,sdyp0010_SI) //医院项目编码 com4his.set_mg_item_string(ksbm,001) ///凭单的开单科室 com4his.set_mg_item_string(zxksbm,001) //执行科室 com4his.set_mg_item_dec(dj,10) //最小包装单价 com4his.set_mg_item_dec(sl,10) //大包装数量 com4his.set_mg_item_dec(‘bzsl’,100) //大包装的小包装包含数量 com4his.set_mg_item_dec(zje,100) //总金额 com4his.set_mg_item_string(gg,规格) //规格 com4his.save_mg_item() //结束当前行凭单记录的录入 转入凭单 if com4his.settle_mg() 0 then //实现门规结算过程，结算已录入的凭单信息 messagebox(‘结算失败’,com4his.get_errtext()) return end if 取得结算结果信息 vbrjsh =com4his.result_s(‘brjsh’) ////地纬公司记载的该次结算的结算号 vbrfdje =com4his.result_n(‘brfdje’) ////医保中心端结算完成后，病人负担的金额 vybfdje =com4his.result_n(‘ybfdje’) ////医保中心端结算完成后，统筹金负担金额 二、上述例子中重要函数说明: 1): init(gzrybh,yybm,passwd) returns long 函数作用：初始化嵌入式接口,用于初始化数据库和中间层服务器的连接。 函数前提：无 返回值： 0代表成功，其它为获取失败，失败原因可以用get_errtext() 获取 参数： Gzrybh string 工作人员编号,即登陆地纬医院系统的编码,长度最长为4位 Yybm string 医院编码，接口所属定点系统的定点编号, 长度最长为6位 Passwd string 登陆密码，登陆纬医院系统的密码, 长度最长为4位 备注：连接接口类成功后，必须先调用一下该函数，用于初始化与医保系统的连