蓝星新型农村合作医疗DLL接口规范

1、农村合作医疗转诊接口实施方案荆州普爱康复医院2014 年 3 月变更说明变更说明时间修改人员函数修改说明2009-02-12LLMCWSaveInHosInfo增加 AsExpenseKind 参数21-普通住院22-单病种住院23正常分娩住院29其他住院90其他2009-02-25ProcessFeeList整理直接写前置数据库明细后的处理事务2009-05-08更新本结算程序LxHzInterface.ini 的DataBaseInfo增加 DEBUG=YES（本地结算要配置本地连的各区空数据库，否则不能进行本地结算）2009-10-26更新单病种结算入院登记 SaveInHosInfo

2、增加参数增加参数AsLimitIllCode 单病种编码单病种编码当当 AsExpenseKind=22 时不能为空时不能为空GetParmItem 函数增加参加参数为 66 单病种信息表新农合病人结算、预结算 PreClearing 返回值第 7 值为医院承担费用注意：示例部分未做调动，请参照函数说明的参数注意：示例部分未做调动，请参照函数说明的参数目录目录1. 目的目的.42. 方案介绍方案介绍.42.1.方案图解.42.2.医院系统需要做的改造工作.42.3.医院开发商需要提供的小应用.43. 医院管理信息系统改造实施详细说明医院管理信息系统改造实施详细说明.5住院部分.54. 新农合接

3、口函数说明新农合接口函数说明.64.1.函数说明.64.1.1.动态链接库初始化函数.74.1.2.获取病人信息.74.1.3.入院登记.84.1.4.费用明细录入.94.1.5.新农合病人结算、预结算.104.1.6.取消住院结算.104.1.7.读取住院结算信息和审批表.114.1.8.获取已审批通过的药品和诊疗项目列表.114.1.9.读取疾病信息表和报销公式.124.2.函数示例.错误错误!未定义书签。未定义书签。4.2.1.DELPHI引用及示例.194.2.2.POWERBUILDER引用及示例.201. 目的目的为了更好的加快城市新型农村合作医疗建设，对于新农合报销算法的准确性、

4、可控性、可维护性和安全性等多方面的考虑，在对医院原有系统的改造的过程中，我们准备采用开发新农合报销算法的动态链接库的办法来解决。2. 方案介绍方案介绍2.1. 方案图解 2.2. 医院系统需要做的改造工作首先医院需要根据新农合政策的需要，按照我们所提供的新农合的接口改造医院的 HIS 系统，使其 HIS 系统能够适应新农合报销的需要。医院需要根据合管办提供的三个基本目录，包括病种信息、药品信息、诊疗项目信息建立与医院内码对应的对照信息。对于那些无法找到对应关系的收费项目信息，医院按照新农合中心费用分类编码，维护收费项目信息。此动态链接库的方式只适合于 Windows98 以上平台的 HIS 系

5、统。2.3. 医院开发商需要提供的小应用维护一个对照表，每个都是一对多的关系.也就是在原表基础上加新农合对应编码。病种信息对照表药品信息对照表报销计算办法 DLL新农合前置机数据库医院收费终端计算请求发起报销计算结果写入 HIS 系统中HIS 系统数据库传送计算结果诊疗项目对照表没有对应关系的收费项目信息，按照合管办的费用分类办法修改收费项目信息蓝星新农合客户端提供相应的对应工作程序，对应完成后上报后提交合管办进行对应审核。2.4.新农合转诊服务器一台操作系统:WIN2K/2K SERVER/XP/2003硬件要求：PIIII 1.7G/512M/40G数据库要求：WIN SQL SERVER

6、 2000网络要求：内网通（能访问 HIS）并且外网通（能访问新农合） ，最好是单独能上网的专线（1。5M 以上） 。网络安全：软件防火墙/硬件防火墙/网闸3. 医院管理信息系统改造实施详细说明医院管理信息系统改造实施详细说明3.1. 住院部分1、获取病人信息根据病人提供的合作医疗证号进行查询，选择病人后返回该病人的个人编号、姓名、性别、出生日期等相关信息。2、入院登记（入院信息修改）提交合作医疗证及个人编号和获取的就诊号进行住院病人的就诊登记。如因退合或者被列入黑名单，则可采用自费方法处理。3、药品、诊疗明细录入调用接口函数“费用明细录入”把划价信息写入新农合前置机中。4、出院结算(0：预结

7、算；1:结算)进行入院登记收费前必须保证已经进行了新合入院就诊登记。写入费用结束后调用“新农合病人结算、预结算” ，生成新农合结算信息。5、取消费用结算 将已出院的病人取消费用结算，重新值为新合在院病人6、取病人新合结算信息和审批表 取已经结算病人的报销结算单和新合报销审批表信息。3.2. 离线结算1在 LxHzInterface.ini 的DataBaseInfo增加 DEBUG=YES（本地结算要配置本地连的各区空数据库，否则不能进行本地结算）2打开前置机表 P_hiOrgSetIPDataBaseNameUserNamePassWord指向本地结算的各区数据库表 4. 新农合接口函数说明

8、新农合接口函数说明动态链接库名称动态链接库名称：LXSETUP.INISynchHost=192.168.50.117 前置服务器的 IP 地址Port=1899 前置服务器开放的端口号，可自定义Remaks:注意服务端防火墙对端口号的开放状态，前置机和客户端的端口号必须保持一致LxClient.dllDataBuffer 说明说明：DataBuffer 为函数返回参数，Char* 类型，如果函数执行成功，返回值多个参数，使用|分割；如果执行失败，那么 DataBuffer 中含有错误详细信息。日期类型格式日期类型格式：yyyy-mm-dd hh:mm:ss，如果没有时间，则后 6 位均为 0

9、。返回值返回值： 成功 =0 失败 0 输出是以“$、|、#、”分割的字符串以“|”分隔，详见每个交易的参数表, 分项之间使用管道分割符|分割，最后必须要以管道分割符号|结尾，不以|开始。如果入参为多条记录，记录之间以$分割，不同数据项之间以|分割4.1. 函数说明函数列表序号函数名代码1通讯测试函数（与前置机）可不用InitDLL2获取病人信息GetHzPersonInfo3就诊登记(住院、住院修改)SaveInHosInfo4费用明细录入SaveFreeList5费用预结算/结算(住院)PreClearing6取消住院结算CanceCalcFee7读取住院结算信息和审批表GetCalcFe

10、e8获取已审批通过的药品和诊疗项目列表GetCheckItem9读取基本信息（疾病信息表和报销公式）GetParmItem10取消入院登记信息（包括费用明细）DeleteHosInfo11上传或取消医院项目对应编码UpdateInterItem12上传明细后的处理ProcessFeeList13门诊登记mz_SaveInfo14门诊登记明细mz_SaveInfoList15删除门诊登记mz_DelInfo16获取结算报销费用信息mz_GetCalcFee17读卡（新农合 医疗卡）User_ReadCard18测试串口连接TestComConn19转诊入院登记zzSaveInHosInfo20获

11、取转诊区划信息GetXZQHinfo_zz21获取区划内转诊病人信息GetZzinfo_zz22 Remarks: 红色部分为必选函数红色部分为必选函数 在所有函数中不存在唯一的住院号，唯一值是在所有函数中不存在唯一的住院号，唯一值是 CoopMedCode+ IDNo+ DiagNo，即农户新合医疗证号，即农户新合医疗证号+个人序号个人序号+就诊序号就诊序号4.1.1.动态链接库初始化函数动态链接库初始化函数syntax: int InitDLL(InitDLL(Char* DataBuffer) )Parameter: 参数参数参数输入输入/输出输出参数名参数名是否是否可空可空类型类型Da

12、taBufferOUT返回信息Return(s): 0 - SUCCESS -1 - FAILURERemarks：此函数主要是测试前置机是否启动，非编程必用函数。4.1.2.获取病人信息获取病人信息Syntax：int GetHzPersonInfo (char *AsOrganID,char *AsCoopMedCode, Char* DataBuffer );Parameter参数参数参数输入输入/输出输出参数名参数名是否是否可空可空类型类型AsOrganIDIN转诊区划转诊区划NVARCHAR(6)AsCoopMedCodeIN合作医疗证号NVARCHAR(20)DataBufferO

13、UT返回信息Return(s) : 0 Succuss-1 FailureDataBuffer 说明：说明：0 户编号|1 人员序号|2 区划代码 |3 人员姓名| 4 拼音码 | 5 五笔码 |6 性别|7 出生日期|8 家庭住址 | 9 亲属关系代码 | 10 亲属关系名称 |11 身份证号|12 承办人代码 | 13 承办人姓名 |14 户属性1一般农户；2五保户；3贫困户；4特困户；5烈军属；9其他；24 表示既是五保户又是特困户 |15 是否户主1是；2否 | 16 是否参合1是；2否 | 17 人员状态1正常；2迁入；4迁出；4死亡 | 18 异动日期 | 19 参合年份 | 20

14、 保留|21 保留|22 保留|23 保留|24 保留|25 保留|26 保留 4.1.3.入院登记入院登记 住院住院Syntax:Int SaveInHosInfo(char * AsOrganID, char *aAreaCode, char * AsCoopMedCode, char * AsExpressionsID;Int AiIDNo; char * AsIllCode, char * AsIllName, char * AInDate, char * Adke, char * AdLimitDef, char * AsDoctorName ,char * AsPatientId,

15、 char * AsFlag, char * AiDiagNo ,char * AsExpenseKind , AsLimitIllCode,char * DataBuffer)Parameter:参数参数输入输入/输出输出参数名参数名是否是否可空可空类型类型AsOrganIDIN转诊区划NVARCHAR(6)aAreaCodeIN病人所属区划NVARCHAR(12)AsCoopMedCodeIN户编号NVARCHAR(18)AsExpressionsIDIN报销公式 IDNVARCHAR(4)AiIDNoIN个人序号NIntegerAsIllCodeIN入院诊断(合管办提供的疾病代码)NVA

16、RCHAR(10)AsIllNameIN入院诊断(合管办提供的疾病名称)NVARCHAR(40)AInDateIN入院日期N(YYYY-MM-DD HH:MM:SS)AdkeIN扣额 报销公式没有调整时：扣额只调整起付线:扣额调整后起付金额 + $只调整报销比率：扣额$ + 调整后报销比率两个都调整 ：扣额调整后起付金额 + $ + 调整后报销比率YVARCHAR(12)AdLimitDefIN限额定义(0不限；1限额；2定额第一位为上面的三个字符（0、1、2），从第二位开始为金额，金额不为空，为空时补 0)NVARCHAR (10)AsDoctorNameIN主治医生YVARCHAR (12

17、)AsPatientIdIN住院号YVARCHAR (12)AsFlagIN是入院还是修改住院信息（0-入院登记，DATABUFFER 返回就诊次数；1-住院信息修改，DATABUFFER 为输入就诊次数）NVARCHAR (1)AiDiagNoIN就诊次数Y 当ASFLAG1，不能为空VARCHAR (1)AsExpenseKindIN21-普通住院22-单病种住院23正常分娩住院29其他住院90其他YVARCHAR (2)AsLimitIllCodeIN单病种疾病编码YVARCHAR (4)当AsExpenseKind=22时不能为空DataBufferOUT返回值VARCHAR (100

18、)Returns: 0 SUCCESS -1 FAILUREReMarks:当 ASFLAG=0 增加状态时，DataBuffer 返回就诊次数，当 ASFLAG=1 时返回错误信息。4.1.4.费用明细录入费用明细录入住院住院Syntax:Int SaveFreeList (char * AsOrganID, char * AsCoopMedCode, Int AiIDNo,Int AiDiagNo, char * AsItemCode, char * AsHosCode, char * ADInputDate,double AfPrice,double AfNum,double AfFee

19、, char * AsOfficeName, char * AsDoctor, char * AsCompound, char *DataBuffer) Parameter:Remarks: Compound 参数是在 FeeType2 时才生效。如果是草药，则需要判断该草药是复方还是单味，如果是单味，则Compound 传 1；如果是复方，则 Compound 传 0； Returns: 0 SUCCESS参数参数输入输入/输出输出参数名参数名是否是否可空可空类型类型AsOrganIDIN转诊区划NVARCHAR(6)AsCoopMedCodeIN合作医疗证号NVARCHAR(20)AiID

20、NoIN户个人序号NIntegerAiDiagNoIN就医序号NIntegerAsItemCodeIN新合项目编码YVARCHAR(20)AsHosCodeIN医院项目编码NVARCHAR(20)ADInputDateIN录入时间N(YYYY-MM-DD HH:MM:SS)AfPriceIN单价NDoubleAfNumIN数量NDoubleAfFeeIN金额NDoubleAsUnitIN单位量YVARCHAR(10)AsOfficeNameIN科室名称NVARCHAR(20)AsDoctorIN医生YVARCHAR(20)AsCompoundIN单/复方处方标致NVARCHAR(1)DataB

21、ufferOUTY-1 FAILURE4.1.5.新农合病人结算新农合病人结算、预结算、预结算住院住院Syntax：Int PreClearing (char * AsOrganID, char * AsCoopMedCode,int AiIDNo,int AiDiagNo,int APreClearFlag,int ADayCount, char * AOutDate, char * AJsDate, char * AOutStatus, char * DataBuffer);Parameter:结算输出结算输出(DataBuffer)(DataBuffer)：0 医疗费总额|1 可报销费用

22、 |2 报销费用 |3 医院减免 |4 民政补助|5 保险金额|6 医院承担金额|7 保留|8 保留|年度报销总费用（包涵本次）注意：医院发票上要反映医院减免，医院承担费用Remarks:Remarks: 病人支付费用=医疗费总额医院减免-医院承担报销费用 4.1.6.取消住院结算取消住院结算住院住院Syntax: int CanceCalcFee(char * AsOrganID, char * AsCoopMedCode, int AiIDNo, int AiDiagNo, char * DataBuffer)Parameter:Return(s): 0 SUCCESS -1FAILURE

23、参数输入/输出参数名是否可空类型AsOrganIDIN转诊区划NVARCHAR(6)AsCoopMedCodeIN合作医疗证号NVARCHAR(20)AiIDNoIN户个人序号NIntegerAiDiagNoIN就医序号NIntegerAPreClearFlagIN预/结算标致（0-预结算，1-结算）NIntegerADayCountIN住院天数NIntegerAOutDateIN出院时间N(YYYY-MM-DD HH:MM:SS)AJsDateIN结算时间N(YYYY-MM-DD HH:MM:SS)AOutStatusIN出院状态（1治愈；2好转；3未愈；4死亡；9其他)NVARCHAR(1

24、)DataBufferOUTY参数输入/输出参数名是否可空类型AsOrganIDIN转诊区划NVARCHAR(6)AsCoopMedCodeIN合作医疗证号NVARCHAR(20)AiIDNoIN户个人序号NIntegerAiDiagNoIN就医序号NIntegerDataBufferOUTY4.1.7.读取住院结算信息和审批表读取住院结算信息和审批表住院住院Syntax: int GetCalcFee(char * AsOrganID, char * AsCoopMedCode, int AiIDNo, int AiDiagNo, char * DataBuffer);Parameter:R

25、eturn(s): 0 SUCCESS -1FAILURERemarks:第一段-基本信息0 医疗证号|1 户主姓名|2 患者姓名|3 性别|4 出生年月|5 与户主关系|6 住址|7 经治医院|8 入院时间|9 出院时间|10 住院天数|11 住院号|12疾病名称|13 年度入院次数|14 总费用|15 可报销费用|16 报销费用|17 保留|18 保留|19 保留|20 保留|21 保留|22 保留第二段-住院医疗费用费用编码|费用名称|费用金额|纳入补偿费用|报销费用第三段报销公式及分段线核算分段线可报销费用报销比例报销费用4.1.8.获取已审批通过的药品和诊疗项目列表获取已审批通过的药

26、品和诊疗项目列表Syntax: int GetCheckItem(char * AsOrganID);Parameter:参数参数输入输入/输出输出参数名参数名是否是否可空可空类型类型AsOrganIDIN转诊区划NVARCHAR(6)Return(s): 0 SUCCESS -1FAILURERemarks:当医院有新项目增加后，在新合软件中进行对应经审批后，请及时运行此函数，否则在新合费用明细录入中返回错误值。注意此函数不要频繁使用。4.1.9.读取读取转诊基本信息转诊基本信息Syntax: int GetParmItem(char * AsOrganID, char *Askind, c

27、har * DataBuffer);Parameter:参数参数输入输入/输出输出参数名参数名是否是否可空可空类型类型AsOrganIDIN转诊区划NVARCHAR(6)AskindIN类型 1：疾病代码表 2：报销公式目录 3 项目目NVARCHAR(1)参数输入/输出参数名是否可空类型AsOrganIDIN行政区划NVARCHAR(6)AsCoopMedCodeIN合作医疗证号NVARCHAR(20)AiIDNoIN户个人序号NIntegerAiDiagNoIN就医序号NIntegerDataBufferOUTY录 4 已审核项目 5 转诊区域 6 单病种信息表DataBufferOUT错

28、误返回信息Return(s): 0 SUCCESS -1FAILURERemarks:该函数运行后在当前目录的DOWNLOAD 目录中生成以 ILL+年月日时分秒,BXGS+年月日时分秒，ITEM+年月日时分秒, BXITEM+年月日时分秒和 AREA+年月日时分秒为开头的 TXT 文本文本中字符之间用软换行符#10分隔文本文件字段顺序说明：1：疾病代码表：字段顺序：（IllCode 疾病编号,IllName 疾病名称,Spell 拼音码,FiveStrokes 五笔码）2：报销公式目录：字段顺序：（ExpressionsId 公式编号,ExpressionsName 公式名称,grade 等

29、级,kind 补偿类别【0 不限，1 限额，2 定额】,typefee 限定金额）3 项目目录 的字段顺序：（ItemCode 项目编号，ItemName 项目名称，Unit 单位，WipeOut 报销标志（1 报销，2 不报销） ，Gg 规格，Cd 产地，Jx 剂型，Remark 备注，SpName 别名，Price1 单价 1，LimitPrice1 限价 1，Price2 单价 2，LimitPrice2 限价 2，Price3 单价 3，LimitPrice3 限价 3，Valid 可用标志（1 可用，2 停用） ，Spell 拼音码，FiveStrokes 五笔码，GradeToPr

30、ice 等级限价，Grade 等级，WjCode ，FeeTypeCode 类型编号，FeeTypeName 类型名称）4 已审核项目字段顺序（OrganId 区划编号, hoscode 医院项目号, hositem 医院项目名称, hosspec 医院项目规格,manufacturer 项目产地, hoskind 类别, hostype 剂型, incode 对应项目号, inkind 对应类别, orgcode 医疗机构编号, orgflag , itemname 对应项目名称, feetypecode 类型编号, feetypename 类型名称, wipeout 是否报销,grade

31、药品等级, LimitPrice1 限价 1, LimitPrice2 限价 2, LimitPrice3 限价 3, HosGrade 医院登等级）5 转诊区域 字段顺序（OrganID 区划编号, OrganName 区划名称, year 年度）6 单病种信息表：字段顺序（病种编号，病种名称，标准金额，补偿金额）4.1.10. 取消入院登记（包括费用明细）取消入院登记（包括费用明细）Syntax: int DeleteHosInfo (char * AsOrganID, char * AsCoopMedCode, int AiIDNo, int AiDiagNo, char * DataB

32、uffer);Parameter:Return(s): 0 SUCCESS -1FAILURERemarks: 取消已入院登记的病人信息，如存在费用明细，也会自动清除明细参数输入/输出参数名是否可空类型AsOrganIDIN转诊区划NVARCHAR(6)AsCoopMedCodeIN合作医疗证号NVARCHAR(20)AiIDNoIN户个人序号NIntegerAiDiagNoIN就医序号NIntegerDataBufferOUT错误信息Y4.1.11. 上传或取消医院项目对应编码上传或取消医院项目对应编码Syntax: int UpdateInterItem (char * AsOrganID

33、, char * AsFlag, char * AsHosCode,char * AsHosName, char * AsHosSpec,char * AsHosUnit,char * AsHosCd,char * AsHosType,char * AsHosKind,char * AsHosPym,char * AsHosWbx,char * AsItemCode,char * AsDetail,char * DataBuffer);Parameter:Return(s): 0 SUCCESS -1FAILURERemarks: ASFLAG=0 时上传或修改已上传的医院项目对应信息. AS

34、FLAG=1 申请撤消合管审核的项目对应信息.4.1.12. 上传明细后的处理（仅针对直接写前置机记帐明细表后的处理工作）上传明细后的处理（仅针对直接写前置机记帐明细表后的处理工作）住院住院Syntax:ProcessFeeList(AsOrganID, AsCoopMedCode: pchar; AiIDNo, AiDiagNo:integer;DataBuffer:pchar): Integer; stdcall;说明：如果存在大量数据，就可以对前置机中直接写表 o_CbZyBxDjZbOrganID 转诊区划CoopMedCode 卡号OrgCode 1IDNo 人员序号DiagNo 就

35、诊次数FeeNo 费用序号顺序数据 1,2,3.ItemCode 1itemname 医院项目名称PRICE 单价NUM 数量FEE 金额OfficeName 记帐科室RecipeNo 处方号YyDate 记帐时间参数输入/输出参数名是否可空类型AsOrganIDIN转诊区划NVARCHAR(6)AsFlagIN0-增加或修改,1-撤消审核NCHAR(1)AsHosCodeIN医院项目编码(唯一)NVARCHAR(20)AsHosNameIN医院项目名称VARCHAR(80)AsHosSpecIN规格VARCHAR(40)AsHosUnitIN包装单位VARCHAR(10)AsHosCdIN产

36、地VARCHAR(20)AsHosTypeIN剂型VARCHAR(20)AsHosKindIN类型(1-诊疗项目 2 手术项目 3 西药 4 中草药)CHAR(1)AsHosPymIN拼音码VARCHAR(10)AsHosWbxIN五笔码VARCHAR(10)AsItemCodeIN对应的新合编码VARCHAR(20)AsDetailIN撤消说明VARCHAR(100)DataBufferOUT错误信息YGrade 0InputDate 记帐时间HosCode 医院项目编码Compound 单复方(0,1)GG 医院规格 feetypecode 0feetypename 0每次写完数据提交后再

37、调用 ProcessFeeListProcessFeeList(AsOrganID, AsCoopMedCode: pchar; AiIDNo, AiDiagNo:integer;DataBuffer:pchar): Integer; stdcall;注意：如果直接写前置机明细，就不再使用 SaveFreeList 函数函数4.1.13. 门诊登记门诊登记功能描述：功能描述：在新农合系统中记载参合患者的门诊费用信息。调用说明：调用说明：HIS 系统在办理门诊项目就医时调用。function mz_SaveInfo(aXZQH, aOrgCode, aCoopMedCode: pchar; aI

38、DNO: Integer; aInDate, aIllCode, aIllName, aExpenseKind, aDoctorName: pchar; DataBuffer: pchar): Integer; stdcall;参数定义：参数定义：序序号号参数名称参数名称输入输入 / 输出输出参数说明参数说明数据类数据类型型最多最多长度长度是否是否为空为空备注备注1aXZQHIn行政区划Varchar6N2aOrgCodeIn服务单位Varchar12N3aCoopMedCodeIn新农合证号Varchar10N4aIDNOIn个人序号IntN5aInDateIn就诊时间varcharNyyy

39、y-MM-dd hh:mm:ss6aIllCodeIn疾病编号Varchar10Y7aIllNameIn疾病名称Varchar40Y8aExpenseKindIn补偿类别Varchar2N11普通门诊 13预防接种 19门诊特殊疾病 90其他9aDoctorNameIn医生姓名Varchar20Y10DataBufferOut返回信息Varchar1000YDataBuffer 说明：返回就诊序号。Return ：成功 0 ；失败 04.1.14. 门诊登记明细门诊登记明细功能描述：功能描述：在新农合系统中记载参合患者的门诊费用信息明细。调用说明：调用说明：HIS 系统在办理门诊项目就医时调用

40、。function mz_SaveInfoList(aXZQH, aOrgCode, aCoopMedCode: pchar; aIDNO, aDiagNo: Integer; aItemCode, aUnit: pchar; aPrice, aNum: double; aOfficeName, aRecipeNo, aYyDate, aGrade: pchar; DataBuffer: pchar): Integer; stdcall;参数定义：参数定义：序序号号参数名称参数名称输入输入 / 输出输出参数说明参数说明数据类型数据类型最多最多长度长度是否是否为空为空备注备注1aXZQHIn行政

41、区划Varchar6N2aOrgCodeIn服务单位Varchar12N3aCoopMedCodeIn新农合证号Varchar10N4aIDNOIn个人序号IntN5aDiagNoIn就诊序号IntN6aHosCodeIn项目编号Varchar8N医院项目编号7aUnitIn单位Varchar10Y8aPriceIn单价Numeric(10,4)N9aNumIn数量Numeric (6,2)N10aOfficeNameIn用药科室Varchar40Y11aRecipeNoIn处方号Varchar12Y12aYyDateIn用药时间DateY13aGradeIn价格级别Varchar1N0 无限

42、价 1 一级 2 二级 3 三级14DataBufferOut返回信息Varchar1000YDataBuffer 说明：费用序号。Return ：成功 0 ；失败 04.1.15. 删除门诊登记删除门诊登记功能描述：功能描述：在新农合系统中删除参合患者的门诊费用信息及明细。调用说明：调用说明：HIS 系统在办理门诊项目就医时调用。function mz_DelInfo(aXZQH, aOrgCode, aCoopMedCode: Pchar; aIDNO, aDiagNo: Integer; DataBuffer: pchar): Integer; stdcall;参数定义：参数定义：序序号

43、号参数名称参数名称输入输入 / 输出输出参数说明参数说明数据类型数据类型最多最多长度长度是否是否为空为空备注备注1aXZQHIn行政区划Varchar6N2aOrgCodeIn医疗服务单位Varchar12N3aCoopMedCodeIn新农合证号Varchar10N4aIDNOIn个人序号IntN5aDiagNoIn就诊序号IntN6DataBufferOut返回信息Varchar1000YReturn ：成功 0 ；失败 04.1.16. 获取结算报销费用信息获取结算报销费用信息功能描述：功能描述：计算患者门诊报销费用。调用说明：调用说明：HIS 在门诊结算时调用。function mz_

44、GetCalcFee(aXZQH, aOrgCode, aCoopMedCode: pchar; aIDNO, aDiagNo: Integer; DataBuffer: pchar): Integer; stdcall;参数定义：参数定义：序序号号参数名称参数名称输入输入 / 输出输出参数说明参数说明数据类型数据类型最多最多长度长度是否是否为空为空备注备注1aXZQHIn行政区划Varchar6N2aOrgCodeIn医疗服务单位Varchar12N3aCoopMedCodeIn新农合证号Varchar10N4aIDNOIn个人序号IntN5aDiagNoIn就诊序号IntN6DataBuf

45、ferOut返回信息Varchar1000YDataBuffer 说明：0 总费用 | 1 可报销费用 | 2 报销费用 | 预留 | 预留 | 预留 | 预留 |结算明细输出到文件：.downloadMZcalc日期时间.TxtReturn ：成功 0 ；失败 04.1.17. 用读卡器读卡用读卡器读卡功能描述：读取刷卡信息并解密获得卡号（使用本公司提供的读卡器和卡）功能描述：读取刷卡信息并解密获得卡号（使用本公司提供的读卡器和卡）调用说明：调用说明：HIS 在录入病人信息，病人刷农合卡时调用。function User_ReadCard(COMi: integer; rData: PCha

46、r): integer; stdcall;参数定义：参数定义：参数参数输入输入/输出输出参数名参数名是否可空是否可空类型类型COMiIN串口号NINTrDataOut卡号YVARCHAR(300)ErrorOut错误信息YVARCHAR(100)COMi （ 1，2，3，4， ， ， ， ）rData：返回卡信息，需要预设一定长度。出错时返回错误提示信息。Return ：成功 0 ；失败 04.1.18. 根据读取的卡信息获得卡号根据读取的卡信息获得卡号功能描述：解密卡信息获得卡号（适用本公司提供的卡）功能描述：解密卡信息获得卡号（适用本公司提供的卡）调用说明：调用说明：HIS 在录入病人信息

47、，病人刷农合卡时调用。function GetCardIDByCode(Code: PChar; CardID: PChar): integer;参数定义：参数定义：参数参数输入输入/输出输出参数名参数名是否可空是否可空类型类型CodeIN卡信息NVARCHAR(300)CardIDOut卡号YVARCHAR(300)rData：返回卡号，需要预设一定长度。出错时返回错误提示信息。Return ：成功 0 ；失败 04.1.19. 根据卡号获得农合证号根据卡号获得农合证号功能描述：根据卡号获得农合证号功能描述：根据卡号获得农合证号调用说明：调用说明：HIS 在录入病人信息，病人刷农合卡时调用。

48、function GetCoopMedCodeByCardID(aOrganID, aCardID: PChar; var DataBuffer: PChar): Integer;参数定义：参数定义：参数参数输入输入/输出输出参数名参数名是否可空是否可空类型类型aOrganIDIN行政区划NVARCHAR(6)aCardIDIN卡号NVARCHAR(300)DataBufferOUTVARCHAR(300)DataBuffer：返回农合证号，失败返回错误信息。Return ：成功 0 ；失败 04.1.20. 测试串口连接测试串口连接功能描述：安装读卡器时，测试连接串口（使用本公司提供的读卡器

49、）功能描述：安装读卡器时，测试连接串口（使用本公司提供的读卡器）调用说明：测试读卡器是否连接正确时调用调用说明：测试读卡器是否连接正确时调用function TestComConn (COMi: integer): integer; stdcall;参数定义：参数定义：参数参数输入输入/输出输出参数名参数名是否可空是否可空类型类型COMiIN串口号NINTCOMi （ 1，2，3，4， ， ， ， ） Return ：成功 0 ；失败 04.1.21. 转诊转诊 住院登记住院登记功能描述：记录新农合病人转诊住院信息功能描述：记录新农合病人转诊住院信息调用说明：病人调用说明：病人 转诊转诊 住院

50、登记时调用住院登记时调用function zzSaveInHosInfo(AsOrganID, aOrgCode, aAreaCode, AsCoopMedCode, AsExpressionsID: pchar;AiIDNo, aTurnID: Integer; AsIllCode, AsIllName, AInDate, Adke, AdLimitDef, AsDoctor, AsPatientId, AsExpenseKind,AsLimitIllCode, DataBuffer: Pchar): Integer; stdcall;参数定义：参数定义：参数参数输入输入/输出输出参数名参数

51、名是否可空是否可空类型类型AsOrganIDIN转诊区划NVARCHAR(6)aOrgCodeIN转诊医疗机构编号NVARCHAR(12)aAreaCodeIN病人所属区划NVARCHAR(12)AsCoopMedCodeIN新合证号NVARCHAR(18)AsExpressionsIDIN报销公式 IDNVARCHAR(4)AiIDNoIN个人序号NIntegeraTurnIDIN转诊序号NIntegerAsIllCodeIN入院诊断(合管办提供的疾病代码)NVARCHAR(10)AsIllNameIN入院诊断(合管办提供的疾病名称)NVARCHAR(40)AInDateIN入院日期N(YY

52、YY-MM-DD HH:MM:SS)AdkeIN扣额 -起付线调整为+$+报销比率调整为的某个比率（在某个比率上某个比率）YVARCHAR(12)AdLimitDefIN限额定义(0不限；1限额；2定额第一位为上面的三个字符（0、1、2），第二位为金额)YVARCHAR (10)AsDoctorIN主治医生YVARCHAR (12)AsPatientIdIN住院号YVARCHAR (12)AsExpenseKindIN21-普通住院22-单病种住院23正常分娩住院29其他住院90其他YVARCHAR (2)AsLimitIllCodeIN单病种疾病编码YVARCHAR (4)当AsExpens

53、eKind=22时不能为空DataBufferOut返回值VARCHAR (100)DataBuffer ： 就医序号Return : 成功 0； 失败 04.1.22. 获取区划信息获取区划信息功能描述：获取参与转诊的区划信息功能描述：获取参与转诊的区划信息调用说明：调用说明：function GetXZQHinfo_zz(aAreaCode, DataBuffer: pchar): Integer; stdcall;参数定义：参数定义：参数参数输入输入/输出输出参数名参数名是否可空是否可空类型类型aAreaCodeIN转诊区划NVarchar(6)DataBufferOut返回值Retur

54、n：成功 0；失败 0DataBuffer 说明：0 上级区划号|1 区划号|2 区划名称|3 预留|4 预留|5 预留|6 预留|7 预留|$4.1.23. 获取转诊区划内病人信息获取转诊区划内病人信息功能描述：获取转诊病人信息功能描述：获取转诊病人信息调用说明：调用说明：function GetZzinfo_zz(aGrade, aAreaCode, DataBuffer: pchar): Integer; stdcall;参数定义：参数定义：参数参数输入输入/输出输出参数名参数名是否可空是否可空类型类型aGradeIN转诊区划等级1 省级2 市级3 县级NVarcahr(1)aAreaC

55、odeIN转诊区划NVarchar(6)DataBufferOut返回值Return：成功 0；失败 0DataBuffer 说明：0 新合号|1 病人姓名|2 个人序号|3 病人所属区划|4 转诊序号|5 疾病名称|6 转前医院|7 转诊原因|8 审批意见|9 审批单位|10 审批日期|11 预留|12 预留|13 预留|14 预留|15 预留|$4.1.24. DELPHI 引用及示例引用及示例function InitDLL(StrError:pchar):integer;stdcall;external LxClient.dll;function GetHzPersonInfo(AsO

56、rganID,AsCoopMedCode,DataBuffer:pchar):integer; stdcall;external LxClient.dll;function GetParmItem(AsOrganID,AsKind,DataBuffer:pchar):integer; stdcall; external LxClient.dll; /function SaveInHosInfo(AsOrganID, AsCoopMedCode, AsExpressionsID, AsPatientName: pchar; AiIDNo: Integer; AsIllCode, AsIllNam

57、e, AInDate,Adke,AdLimitDef,AsDoctorName,AsPatientNo,Asflag: pchar; AiDiagNo, AsExpenseKind ,DataBuffer:Pchar): Integer; stdcall; external LxClient.dll; /function GetCheckItem(AsOrganID:pchar):Integer; stdcall; external LxClient.dll; /function SaveFreeList(AsOrganID, AsCoopMedCode:PChar;AiIDNo, AiDia

58、gNo:Integer; AsItemCode,AsHosCode,ADInputDate: pchar; AfPrice, AfNum, AfFee: Double; AsUnit，AsOfficeName,AsDoctor,AsCompound: pchar;DataBuffer: Pchar): Integer; stdcall;external LxClient.dll; function PreClearing(AsOrganID, AsCoopMedCode: pchar; AiIDNo, AiDiagNo, APreClearFlag: Integer; ADayCount: I

59、nteger; AOutDate, AJsDate, AOutStatus,DataBuffer : Pchar): Integer; stdcall;external LxClient.dll; /function CanceCalcFee(AsOrganID, AsCoopMedCode: pchar;AiIDNo, AiDiagNo:integer;DataBuffer:pchar): Integer; stdcall; external LxClient.dll; function GetCalcFee(AsOrganID, AsCoopMedCode: pchar;AiIDNo, AiDiagNo:integer;DataBuffer:pchar): Integer; stdcall; external LxClient.dll; 代码:var StrAreaid,strCardID,strDataBuffer:pchar; li_return:int