基础职工医保接口说明

functionConnectOldDatabase(constaRegion:string;outpo_fhz,po_msg:shortstring):boolean;functiondatabase_connect(operID:Pchar;operpsw:Pchar;servername:pchar):Integer;stdcall;functiondatabase_disconnect:Integer;//hisLoginfunctionhisLogin(operID:PChar;operpsw:PChar;outpo_ id:ShortString;outpo_ outpo_userbh:ShortString;outpo_opername:ShortString; outpo_xxtbz: outpo_xtjgdm: outpo_ id_old:ShortString;outuserbh_old: outPO_FHZ: shortstring;outPO_MSG:shortstring):integer;stdcall;functionisNewServer(Pi_xzqh:PChar;outaIsNewServer:ShortString;outpo_fhz:ShortString;outpo_msg:ShortString):integer;stdcall;SQLfunctionquerySQL(sql:Pchar;outpo_fhz:ShortString;outpo_msg:ShortString):integer;stdcall;functionhqgrjbzl(pi_sfbz,pi_crbz,Pi_xzqh:outpo_grshbzh:shortstring; outpo_xm:shortstring;outpo_xb:shortstring; outpo_csny:shortstring;outpo_zglb:shortstring; outpo_lxdz:shortstring;outpo_lxdh:shortstring; outpo_sfzh:shortstring;outpo_sznl:shortstring; outpo_dwmc:shortstring;outpo_cbzt:shortstring; outpo_grzhye:shortstring;outpo_ybtszt: outpo_ybbxztsm:outpo_fhz: outpo_msg:shortstring):Integer;functionhqgrjbzl_gs(pi_sfbz,pi_crbz,Pi_xzqh:PChar;outpo_grshbzh:shortstring; outpo_xm:shortstring;outpo_xb:shortstring; outpo_csny:shortstring;outpo_zglb: outpo_lxdz:outpo_lxdh:shortstring; outpo_sfzh:shortstring;outpo_sznl:shortstring; outpo_dwmc:shortstring;outpo_cbzt:shortstring; outpo_ybtszt:Shortstring;outpo_ybbxztsm:Shortstring; outpo_fhz:shortstring;outpo_msg:shortstring):integer;stdcall;functionpi_sfbz,pi_crbz, pi_xzqh,pi_yybh,pi_yllb,pi_ryrq,pi_ryzd,pi_zybq, pi_yyzyh,pi_jbr:Pchar;outpo_zyh:shortstring;outpo_spbh:shortstring; outpo_bnyzycs:shortstring;outpo_bntcyzfje:shortstring; outpo_bntckzfje:shortstring;outpo_fhz: outpo_msg:shortstring):integer;//入院登记函数:只提供给的医院前台、药店前台使用，不对HIS开发商functionpi_sfbz,pi_crbz, pi_xzqh,pi_yybh,pi_yllb,pi_ryrq,pi_ryzd,pi_zybq, pi_yyzyh,pi_jbr:Pchar;outpo_zyh:shortstring;outpo_spbh:shortstring; outpo_bnyzycs:shortstring;outpo_bntcyzfje:shortstring; outpo_bntckzfje:shortstring;outpo_fhz:shortstring; outpo_msg:shortstring;pi_jzlb:PChar):integer;stdcall; pi_jzlb:PChar=nil):integer;functionzyzlxgall(pi_fwjgh,pi_zyh,pi_xzqh,pi_ryrq,pi_ryzd,pi_zybq,pi_cwh,pi_yyzyh:Pchar;outpo_fhz: outpo_msg:shortstring):integer;functionfyyjs(pi_fwjgh,pi_zyh,pi_xzqh,pi_cszl,pi_czy,pi_cyrq:pchar;outPO_FYZE:shortstring; outPO_TCZF:shortstring;outPO_GWYBT:shortstring; outPO_GWYBZ:shortstring;outPO_ZHZF:shortstring; outPO_XJZF:shortstring;outPO_qfje:shortstring; outPO_DJH:shortstring;out outpo_msg:shortstring):integer;functionfyjs(pi_fwjgh,pi_zyh,pi_xzqh,pi_cszl,pi_czy,pi_cyrq,Pi_cyqk,Pi_cyzd:pchar;outPO_FYZE:shortstring; outPO_TCZF:shortstring;outPO_GWYBT:shortstring; outPO_GWYBZ:shortstring;outPO_ZHZF:shortstring; outPO_XJZF:shortstring;outPO_qfje:shortstring; outPO_DJH:shortstring;out outpo_msg:shortstring):integer;functionqxjs(pi_xzqh,pi_fwjgh,pi_zyh,pi_djh,pi_qxcd,pi_jbr:pchar;outpo_knbz:shortstring;outpo_fhz:shortstring;outpo_msg:shortstring):integer;functionhqfyjsjg(pi_fwjgh,PI_ZYH,pi_xzqh:PChar;outPO_TCZF:shortstring;outPO_GWYBT:shortstring; outPO_GWYBZ:shortstring;outPO_ZHZF: outPO_XJZF:shortstring;out outPO_JSRQ:out shortstring outPO_MSG:shortstring):integer;functionxmlcfmxcs(pi_jzjlh,pi_xzqh:PChar;outpo_pch:shortstring;outpo_fhz:shortstring;outpo_msg:shortstring):integer;stdcall;functioncfmxplsc(pi_jzjlh,pi_pch,pi_xzqh:pchar;outpo_fhz:shortstring;outpo_msg:shortstring):integer;stdcall;functionxmlycscfmxcx(pi_jzjlh,pi_xzqh:pchar;outpo_fhz:shortstring;outpo_msg:shortstring):integer;stdcall;functionxmljsxxcx(pi_jsksrq,pi_jszzrq,pi_xzqh:outpo_fhz:shortstring;outpo_msg:shortstring):Integer;//费用批次未确认信息查functionfypcxxcx(pi_jzjlh,pi_xzqh:pchar;outpo_pch:shortstring;outpo_fhz:shortstring;outpo_msg:shortstring):integer;stdcall;functionic_hkhz(pi_aaz107,pi_bae001,jzrq,pi_jbr:PChar;outpo_hzjlh:ShortString;outpo_fhz:shortstring;outpo_msg:shortstring):integer;functionzyfyHz(pi_aaz107,pi_bae001,pi_aaz216,pi_AKA042,pi_cka549,pi_jbr:PChar;outpo_jjywh:ShortString;outpo_fhz:shortstring;outpo_msg:shortstring):integer;stdcall;functiongetOldSystemConStr(pi_xzqhdm:outpo_xzjgdm:ShortString; outpo_xtjgdm:ShortString;outpo_sjlj:ShortString; outpo_yhid:ShortString;outpo_czkl:ShortString; outpo_xxtbz:ShortString;outpo_Ip:ShortString; outpo_Sid:ShortString;outpo_fhz: outpo_msg:shortstring):integer;functionReadCardInfo(pi_ReaderPort:integer;pi_CardPasswd:pchar;outpo_dwmc:shortstring;outpo_Cardid:shortstring;outpo_Sfzhm:shortstring;outpo_Name:shortstring;outpo_Sex:shortstring;outpo_Folk:shortstring;outpo_BirthPlace:shortstring;outpo_BirthDate:shortstring; tbalance:shortstring;outpo_fhz:shortstring;outpo_msg:shortstring):integer;functionhkgl(pi_ReaderPort:integer;pi_jbr:PChar;outPo_hklsh:shortstring;outpo_zhzfje:shortstring;outpo_zfzfje:shortstring;outpo_fhz:shortstring;outpo_msg:shortstring):integer;functionhkgl_fntbiz(pi_Cardid,pi_jbr:PChar;outPo_hklsh:shortstring;outpo_zhzfje:shortstring;outpo_zfzfje:shortstring;outpo_fhz:shortstring;outpo_msg:shortstring):integer;functionxzypAndxyzpSh(pi_ypml,pi_shlb:outpo_fhz:shortstring;outpo_msg:shortstring):integer;functionzhuanYuanDj(pi_zydjXml:PChar;outpo_bae007:shortstring;outpo_fhz:shortstring;outpo_msg:shortstring):integer;stdcall;//新增 byfunctionsqllookup(sql_str:string):variant;functioncwdm(s_cwdm:pchar;outpo_cwxx:shortstring):Integer;//项目字典functionxmzdxz(pi_xmlb:pchar;outpo_fhz:shortstring;outpo_msg:shortstring):Integer;stdcall; String{要转换的字符串}; String{每个16进值的间隔符}): functionStrtoHex(S:String;AFormat:Integer;formatstring:String):String;stdcall;functionzyzlcx(pi_czybh outOUT stdcallfunctionoutpo_fhz:shortstringoutpo_msg:shortstring):Integer;//挂functionIck_Lsgs(Pi_Ickh,Pi_Grbh,Pi_Gmsfhm,Pi_Sbr,Pi_Sbrsfhm,Pi_Jbr,Pi_Bz:PChar;outpo_fhz:shortstring;outpo_msg:shortstring):integer;//医院药店前台修functionmmxg(old_password,new_password,new_password_cf:outpo_fhz:shortstring;outpo_msg:shortstring):integer;functionszMrdlqx(pi_aaz107,pi_bae001:PChar;outpo_fhz:shortstring;outpo_msg:shortstring):integer;stdcall;HIS系统接口函数说获取个人基本资料(职工医疗所属包对象名获取个人基本资对象标对象服务名服务标服务编制，编制日版本功能描述号或号或个人1号码2为医保3为个出生年月三位标示类别(0非,2交,3号实足医保住院报销特殊状态1正常报销，2销，3过程返回值(1时正常，否则不正常数据库操作备注：po_fhz1时可通cwdm函数找到错误信返回值函数functionhqgrjbzl(pi_sfbz,pi_crbz,pi_xzqh:pchar;outpo_grshbzh:shortstring;outpo_xm:shortstring;outpo_xb:shortstring;outpo_csny:shortstring;outpo_zglb:shortstring;outpo_lxdz:shortstring;outpo_lxdh:shortstring;outpo_sfzh:shortstring;outpo_sznl:shortstring;outpo_dwmc:shortstring;outpo_cbzt:shortstring;outpo_grzhye:shortstring;outpo_ybtszt:shotstring;outpo_ybbxztsm:shotstring;outpo_fhz:shortstring;outpo_msg:shortstring):Integer;stdcall;获取个人基本资料（工伤医疗所属包对象名获取个人基本资对象标对象服务名服务标服务编制，编制日版本功能描述号或个人12号码3出生年月三位标示(0非,1交费,3号实足工伤住院报销特殊状态1正常报销，2销，3过程返回值(1时正常，否则不正常数据库操作：调用备注：po_fhz1时可通cwdm函数找到错误信返回值函数functionhqgrjbzl_gs(pi_sfbz,pi_crbz,pi_xzqh:pchar;outpo_grshbzh:shortstring;outpo_xm:shortstring;outpo_xb:shortstring;outpo_csny:shortstring;outpo_zglb:shortstring;outpo_lxdz:shortstring;outpo_lxdh:shortstring;outpo_sfzh:shortstring;outpo_sznl:shortstring;outpo_dwmc:shortstring;outpo_cbzt:shortstring;outpo_ybtszt:shotstring;outpo_ybbxztsm:shotstring;outpo_fhz:shortstring;outpo_msg:shortstring):Integer;stdcall;住院登记所属包对象名住院登对象标对象服务名服务标服务编制，编制日版本功能描述号号,3医院医疗类别(2141入院过程返回值(1时正常，否则不正常数据库操作备注：po_fhz1时可通cwdm函数找到错误信返回值函数functionzydj(pi_sfbz,pi_crbz,,pi_xzqh,pi_yybh,pi_yllb,pi_ryrq,pi_ryzd,pi_jbr:Pchar;outpo_zyh:shortstring;outpo_spbh:shortstring;outpo_bnyzycs:shortstring;outpo_bntcyzfje:shortstring;outpo_bntckzfje:shortstring;outpo_fhz:shortstring;outpo_msg:shortstring):Integer;stdcall;住院资料全部修所属包对象名住院资料修对象标对象服务名服务标服务编制，编制日版本功能描述入院过程返回值(1时正常，否则不正常数据库操作备注：po_fhz1时可通cwdm函数找到错误信返回值函数Functionzyzlxgall(pi_yyzyh:Pcharoutpo_fhz:shortstring;out stdcall费用结所属包对象名住院费用计对象标对象服务名服务标服务编制，编制日版本功能描述：进行费用结出院情况（1康复，2转院，3，4其他出院（确诊疾病过程返回值(1时正常，否则不正常数据库操作备注：po_fhz1时可通cwdm函数找到错误信返回值函数functionfyjs(pi_fwjgh,pi_zyh,Pi_xzqh,pi_cszl,pi_czy,pi_cyrq,pi_cyqk,pi_cyzd:pchar;outPO_FYZE:shortstring;outPO_TCZF:shortstring;outPO_GWYBT:shortstring;outPO_GWYBZ:shortstring;outPO_zhzf:shortstring; outPO_xjzf:shortstring;outPO_qfje:shortstring;outPO_DJH:shortstring;outpo_fhz:shortstring;outpo_msg:shortstring):Integer;stdcall费用预结所属包对象名住院费用预计对象标对象服务名服务标服务编制、编制日版本功能描述：进行费用结过程返回值(1时正常，否则不正常数据库操作备注：po_fhz1时可通cwdm函数找到错误信返回值函数functionfyyjs(pi_fwjgh,pi_zyh,Pi_xzqh,pi_cszl,pi_czy,pi_cyrq:pchar;outPO_FYZE:shortstringoutPO_TCZF:shortstring;outPO_GWYBT:shortstring;outPO_GWYBZ:shortstring;outPO_zhzf:shortstring;outPO_xjzf:shortstring;outPO_qfje:shortstring;outPO_DJH:shortstring;outpo_fhz:shortstring;outpo_msg:shortstring):Integer;stdcall;结算取所属包对象名取消费用结算结对象标对象服务名服务标服务编制，编制日版本功能描述取消程度(12删除资料过程返回值(1时正常，否则不正常数据库操作备注：po_fhz1时可通cwdm函数找到错误信返回值函数functionqxjs( outpo_fhz:shortstring; outpo_msg:shortstring):Integer;stdcall;结算查所属包对象名查询费用结算结对象标对象服务名服务标服务编制，编制日版本功能描述过程返回值(1时正常，否则不正常数据库操作备注：po_fhz1时可通cwdm函数找到错误信返回值函数functionhqfyjsjg(pi_fwjgh,PI_ZYH,pi_xzqh:pchar;outPO_TCZF:shortstring;outPO_GWYBT:shortstring;outPO_GWYBZ:shortstring;outPO_zhzf:shortstring;outPO_xjzf:shortstring;outPO_qfje:shortstring;outPO_JSRQ:shortstring;outpo_fhz:shortstring;outpo_msg:shortstring):Integer;stdcall;处方项目传所属包对象名对象标对象服务名服务标服务编制，编制日版本功能描述过程返回值(1时正常，否则不正常数据库操作生成文件名格式为：.\cfcs\cfmx+传入的住Xml文件格式如下：和查询出来的文件格式一备注：po_fhz1时可通cwdm函数找到错误信返回值函数 po_msg:shortstring):Integer;stdcall;所属包对象名对象标对象服务名Cfmx+传入所属包对象名对象标对象服务名Cfmx+传入的就诊记号服务标服务编制，编制日版本功能描述：费用明细传费用顺序号（一个入院号的唯一值（如果有冲减必须写明冲减原因数据库操作函数所属包对象名费用批次未确认信对象标对象服务名服务标服务编制编制日版本功能描述费用批次未确认信息查批次号(查询结果)过程返回值(1时正常，否则不正常数据库操作查询未确认的批次信息，返回以逗号为分隔符分隔的未确认批次号字备注：po_fhz1时可通cwdm函数找到错误信返回值函数 po_msg:shortstring):Integer;stdcall;所属包所属包对象名对象标对象服务名服务标服务编制编制日版本功能描述费用批次未确认信息查确认类型1，2过程返回值(1时正常，否则不正常数据库操作对已的费用信息进行确认，如果上传费用成功，执行此函数确认费用信息备注：po_fhz1时可通cwdm函数找到错误信返回值函数functionfypcxxqr(Pi_jzjlh,Pi_xzqh,po_msg:shortstring):Integer;stdcall;已经上传处方明细删所属包对象名对象标对象服务名服务标服务编制编制日版本功能描述参数描过程返回值(1时正常，否则不正常数据库操作备注：po_fhz1时可通cwdm函数找到错误信返回值函数functioncfmxplsc(pi_jzjlh,pi_pch,pi_xzqh:pchar;outpo_fhz:shortstring;outpo_msg:shortstring):Integer;stdcall已经上传处方明细查所属包对象名对象标对象服务名服务标服务编制，编制日版本功能描述参数描过程返回值(1时正常，否则不正常数据库操作生成文件名格式为.\CXJG\CFMXCXJG+传入的就诊记录号（pi_jzjlh）.xmlXml文件格式如下：<?xmlversion="1.0"encoding="GB2312" 服务机构<AKC190>172003100160</AKC190>住院号（门诊号 <AKC221>2003-5-79:43:12</AKC221><AAE040 结算日 //默认系统时 类<AKC223>床位费 <AKC226 金 自付金额ROUND(AKC225*AKC226*自付比例（从项目字典中提取<AKA070 <AKA071 <AKA072 <AKA073 <AKA074 <AKA067 <AKC229 <AAE013 （如果有冲减必须写明冲减原因备注：po_fhz1时可通cwdm函数找到错误信返回值函数functionxmlycscfmxcx(pi_jzjlh,pi_xzqh:pchar;outpo_fhz:shortstring;outpo_msg:shortstring):Integer;stdcall所属包对象名项目字典对象标对服务名服务标服编制，编制日版功能描述：项目字典过程返回值(1时正常，否则不正常数据库操作生成文件名格式为：.\CXJG\+PI_xmlb+xmzd.xmlXml文件格式如下： <AKA091>ICU床位 类 <AKA068 <AAE013 <AKA067>床/日 单 <AKA068 备注：po_fhz1时可通cwdm函数找到错误信返回值函数functionxmzdxz(pi_xmlb:pchar;outpo_fhz:shortstring;outpo_msg:shortstring):Integer;stdcall13.：打开读写卡设所属包对象名对象标对象服务名服务标服务编制，编制日版本功能描述：打1234数据库操作备注：po_fhz1时可通cwdm函数找到错误信函数functioniDOpenPort(iReaderPort:integer):integer;stdcall14.：上所属包对象名对象标对服务名服务标服编制，编制日版功能描述：上述数据库操作备注：po_fhz1时可通cwdm函数找到错误信非00函数functioniDInitReader(iReaderHandle:integer):integer;stdcall15.：关闭读写卡设所属包对象名对象标对服务名服务标服编制，编制日版功能描述：关述数据库操作备注：po_fhz1时可通cwdm函数找到错误信 处理失函数functioniDInitReader(iReaderHandle:integer):integer;stdcall16.：读持卡人基本信所属包对象名对象标对服务名服务标服编制，编制日版功能描述 基本信卡公民号过程返回值(1时正常，否则不正常数据库操作非00非00functionReadCardInfo(pi_ReaderPort:integer;pi_CardPasswd:pchar;functionReadCardInfo(pi_ReaderPort:integer;pi