武汉转诊平台接口程序说明

1、武汉市转诊平台接口程序说明背景为了配合武汉市新型农村医疗合作系统转诊平台的无缝连接的工作。全力配合武汉市的新农合转诊平台在全市顺利的推广，早日实现新农合参保病人转诊出院时能顺利的实现现场直接补助，让新农合病人得到实惠和方便，从而提高医院的形象。业务流程入院登记流程图流程说明1数据初始化医院 HIS 系统首先输入病人的合作医疗证号和行政区域编号， 调用接口程序提供的函数 GetReferralEmpInfo 判定该用户的身份的正确性。如果人员信息正确，该函数将远程合管办 数据库中人员信息取到本地保存， 然后可以直接到本地的前置机中取的病人的基本信息。 以 及一些其它的信息。2入院登记His 在病

2、人入院登记结束后， 调用接口函数 SaveInHosInfo 可以直接将病人的入院登记 的信息直接保存到本地的前置机上。开始(GetReferr alEmpInfo)输入病人费用信息1T病人出院结算流程3 .收费明细录入SaveFreeList，可以直接将His系统在保存病人的费用信息的时候，直接调用接口函数数据保存到本地的前置机上4.报销费用结算医院可以随时的调用接口程序的预结算功能。算出病人的报销费用的信息，便于医院的 管理。5 .报销费用上传病人出院时调用接口 UpdateJSZX的结算功能，数据将直接写入到区新农合的系统，供 农合审核，以便给医院付款 。接口函数说明DLL是动态连接库。

3、使用动态连接库有以下一些优点：多个应用程序共享代码和数据：比如Office软件的各个组成部分有相似的外观和功能，这就是通过共享动态连接库实现的。1. 在钩子程序过滤系统消息时必须使用动态连接库。2. 动态连接库以一种自然的方式将一个大的应用程序划分为几个小的模块，有利于小组内部成员的分工与合作。而且，各个模块可以独立升级。如果小组中的一个成员开发了一组实用例程，他就可以把这些例程放在一个动态连接库中，让小组的其他成员使用。3. 为了实现应用程序的国际化，往往需要使用动态连接库。使用动态连接库可以将针对某一国家、语言的信息存放在其中。对于不同的版本，使用不同的动态连接库。在使用AppWizard

4、生成应用程序时，我们可以指定资源文件使用的语言，这就是通过提供不同的动态连接库实现的。由于动态连接库有以上多种优势，故医疗转诊的接口程序采用动态连接库的方式提供给医院 管理系统。动态连接库名：ReferralDll.dll方法：FunctionGetReferralEmplnfo(AsOrganCode,AsCoopMedCode: WideString; var sError: WideString):Integer;说明：该函数验证病人信息，返回1说明该病人为转诊病人，相关信息以成功取到本地数据 库。成功后在 ReferralEmp Info 表中可以取得病人的基本信息。其中输入参数为查询

5、条件。参数参数类型参数说明数据类型长度AsOrga nID输入参数行政区域编码字符型20AsCoopMedCode输入参数合作医疗号字符型20sError输出参数错误信息字符型100functionGetOrgCode(AOrganlD:WideString):WideString;说明：得到在新农合系统中的服务单位代码，返回为空时表示输入的AOrganID错误，没有该区域的服务单位代码。参数参数类型参数说明数据类型长度AsOrga nID输入参数行政区域编码字符型20function SavelnHoslnfo(AsOrganlD, AsCoopMedCode, AsExpressionsI

6、D, AsPatientName, AsAge, AsAgeUnit: string;AilDNo:Integer; AsIllCode, AsIllName: string;var sError: WideString; AiDiagNo: Integer): Integer; stdcall;说明：保存病人入院登记信息 ，保存成功后取得病人的就医序号.参数参数类型参数说明数据类型长度AsOrga nID输入参数行政区域编码字符型20AsCoopMedCode输入参数合作医疗号字符型20AsExpressi on sID输入参数报销公式编码字符型2AilDNo输入参数个人序号整形AsPati

7、e ntName输入参数姓名字符型20AsAge输入参数年龄字符型10AsAgeU nit输入参数年龄单位（岁； 月；天）可以 为空，如果为 空，则为/岁/字符型2AiDiagNo输出参数就医序号整形AsIllCode输入参数病种编码字符型20AsIllName输入参数病种名称字符型20sError输出参数错误信息字符型100AsCoopMedCode,function SaveFreeList(AsOrganlD,AsItemCode:PChar;AiIDNo, AiDiagNo:Integer;ADInputDate:PChar;AfPrice, AfNum, AfFee: Single;

8、HosStandby,FreeCode:PChar; var AsError:Integer):Integer说明：保存病人收费项目明细信息。参数参数类型参数说明数据类型长度AsOrga nID输入参数行政区划编号，用于连接对应数据库字符型20AsCoopMedCode输入参数合作医疗号字符型20AiIDNo输入参数个人序号整形10AiDiagNo输入参数就医序号整形10ADI nputDate输入参数录入日期字符型10AfPrice输入参数单价浮点数AfNum输入参数数量字符型10AfFee输入参数总价格字符型10HosSta ndby输入参数医院备用字符型20FreeCode输入参数费用明

9、细编码字符型20AsError输出参数错误信息字符型100function PreClearing(AsOrganlD, AsCoopMedCode: PChar;AiIDNo, AiDiagNo, APreClearFlag:Integer;ADayCount: Integer; AOutDate, AJsDate, AOutStatus: PChar; var AsError: Integer): Integer;说明：出院结算函数，执行完后在住院登记表中保存结算后的报销金额参数参数类型参数说明数据类型长度AsOrga nID输入参数行政区划编号，用于连接对应数据库字符型20AsCoopM

10、edCode输入参数合作医疗号字符型20AiIDNo输入参数个人序号整形10AiDiagNo输入参数就医序号整形APreClearFlag输入参数字符型20ADayCou nt输入参数住院天数整形10AOutDate输入参数出院日期字符型10AJsDate输出参数出院日期字符型10AOutStatus输入参数出院状态字符型20AsError输出参数错误信息字符型100FunctionUpdateJSZX(AOrglD,AOrgCode,ACoopmedCode:string; ADiagNO, AIDNO: Integer;var ErrorStr: WideString): Boolean参

11、数参数类型参数说明数据类型长度AsOrga nID输入参数行政区划编号，用于连接对应数据库字符型20AOrgCode输入参数行政区划编码字符型20ACoopmedCode输入参数合作医疗号码整形10ADiagNO输入参数就医序号整形AIDNO输入参数个人序号字符型20ErrorStr输出参数错误信息整形10functionDeletelnHoslnfo(AsOrganlD,AsCoopMedCode:PChar; AiIDNo, AiDiagNo: Integer;var AsError: Integer): Integer;说明：用于删除入院登记信息。参数参数类型参数说明数据类型长度AsOrga nID输入参数行政区划编号，用于连接对应数据库字符型20ACoopmedCode输入参数合作医疗号码整形10ADiagNO输入参数就医序号整形AIDNO输入参数个人序号字符型20AsError输出参数错误信息整形10His 需要做的事情。His 系统主要实现病人的入院登记以及审核。入院登记时，选择区域，输入合作医疗证号调用 GetReferralEmpInfo 函数，函数调用成功可以直接在表 ReferralEmpInfo 中通过 AsOrganID 和ACoopmedCode条件直接查询出病人的基本信息。失败