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

武汉市转诊平台接口程序说明
背景
为了配合武汉市新型农村医疗合作系统转诊平台的无缝连接的工作。全力配合武汉市的新农合转诊平台在全市顺利的推广，早日实现新农合参保病人转诊出院时能顺利的实现现场直接补助，让新农合病人得到实惠和方便，从而提高医院的形象。
业务流程

入院登记流程图
流程说明
1．数据初始化
医院HIS系统首先输入病人的合作医疗证号和行政区域编号，调用接口程序提供的函数GetReferralEmpInfo判定该用户的身份的正确性。如果人员信息正确，该函数将远程合管办数据库中人员信息取到本地保存，然后可以直接到本地的前置机中取的病人的基本信息。以及一些其它的信息。
2．入院登记
His在病人入院登记结束后，调用接口函数SaveInHosInfo可以直接将病人的入院登记的信息直接保存到本地的前置机上。

病人出院结算流程

3．收费明细录入
His系统在保存病人的费用信息的时候，直接调用接口函数SaveFreeList，可以直接将数据保存到本地的前置机上。
4．报销费用结算
医院可以随时的调用接口程序的预结算功能。算出病人的报销费用的信息，便于医院的管理。
5．报销费用上传
病人出院时调用接口UpdateJSZX的结算功能，数据将直接写入到区新农合的系统，供农合审核，以便给医院付款。
接口函数说明
 DLL是动态连接库。使用动态连接库有以下一些优点：
多个应用程序共享代码和数据：比如Office软件的各个组成部分有相似的外观和功能，这就是通过共享动态连接库实现的。
1. 在钩子程序过滤系统消息时必须使用动态连接库。
2. 动态连接库以一种自然的方式将一个大的应用程序划分为几个小的模块，有利于小组内部成员的分工与合作。而且，各个模块可以独立升级。如果小组中的一个成员开发了一组实用例程，他就可以把这些例程放在一个动态连接库中，让小组的其他成员使用。
3. 为了实现应用程序的国际化，往往需要使用动态连接库。使用动态连接库可以将针对某一国家、语言的信息存放在其中。对于不同的版本，使用不同的动态连接库。在使用AppWizard生成应用程序时，我们可以指定资源文件使用的语言，这就是通过提供不同的动态连接库实现的。
由于动态连接库有以上多种优势，故医疗转诊的接口程序采用动态连接库的方式提供给医院管理系统。
动态连接库名：ReferralDll.dll
方法：
Function GetReferralEmpInfo(AsOrganCode, AsCoopMedCode: WideString; var sError: WideString): Integer;
说明：该函数验证病人信息，返回1说明该病人为转诊病人，相关信息以成功取到本地数据库。成功后在ReferralEmpInfo表中可以取得病人的基本信息。其中输入参数为查询条件。
参数
参数类型
参数说明
数据类型
长度
AsOrganID
输入参数
行政区域编码
字符型
20
AsCoopMedCode
输入参数
合作医疗号
字符型
20
sError
输出参数
错误信息
字符型
100

function GetOrgCode(AOrganID: WideString): WideString;
说明：得到在新农合系统中的服务单位代码，返回为空时表示输入的AOrganID错误，没有该区域的服务单位代码。
参数
参数类型
参数说明
数据类型
长度
AsOrganID
输入参数
行政区域编码
字符型
20

function SaveInHosInfo(AsOrganID, AsCoopMedCode, AsExpressionsID, AsPatientName, AsAge, AsAgeUnit: string;AiIDNo: Integer; AsIllCode, AsIllName: string; var sError: WideString; AiDiagNo: Integer): Integer; stdcall;
说明：保存病人入院登记信息,保存成功后取得病人的就医序号．
参数
参数类型
参数说明
数据类型
长度
AsOrganID
输入参数
行政区域编码
字符型
20
AsCoopMedCode
输入参数
合作医疗号
字符型
20
AsExpressionsID
输入参数
报销公式编码
字符型
2
AiIDNo
输入参数
个人序号
整形

AsPatientName
输入参数
姓名
字符型
20
AsAge
输入参数
年龄
字符型
10
AsAgeUnit
输入参数
年龄单位（岁；月；天）　可以为空，如果为空，则为＇岁＇
字符型
2
AiDiagNo
输出参数
就医序号
整形

AsIllCode
输入参数
病种编码
字符型
20
AsIllName
输入参数
病种名称
字符型
20
sError
输出参数
错误信息
字符型
100
function SaveFreeList(AsOrganID, AsCoopMedCode, AsItemCode: PChar; AiIDNo, AiDiagNo: Integer; ADInputDate: PChar;AfPrice, AfNum, AfFee: Single; HosStandby, FreeCode: PChar; var AsError: Integer): Integer
说明：保存病人收费项目明细信息。
参数
参数类型
参数说明
数据类型
长度
AsOrganID
输入参数
行政区划编号，用于连接对应数据库
字符型
20
AsCoopMedCode
输入参数
合作医疗号
字符型
20
AiIDNo
输入参数
个人序号
整形
10
AiDiagNo
输入参数
就医序号
整形
10
ADInputDate
输入参数
录入日期
字符型
10
AfPrice
输入参数
单价
浮点数

AfNum
输入参数
数量
字符型
10
AfFee
输入参数
总价格
字符型
10
HosStandby
输入参数
医院备用
字符型
20
FreeCode
输入参数
费用明细编码
字符型
20
AsError
输出参数
错误信息
字符型
100

function PreClearing(AsOrganID, AsCoopMedCode: PChar;AiIDNo, AiDiagNo, APreClearFlag: Integer; ADayCount: Integer; AOutDate, AJsDate, AOutStatus: PChar; var AsError: Integer): Integer;
说明:出院结算函数，执行完后在住院登记表中保存结算后的报销金额
参数
参数类型
参数说明
数据类型
长度
AsOrganID
输入参数
行政区划编号，用于连接对应数据库
字符型
20
AsCoopMedCode
输入参数
合作医疗号
字符型
20
AiIDNo
输入参数
个人序号
整形
10
AiDiagNo
输入参数
就医序号
整形

APreClearFlag
输入参数

字符型
20
ADayCount
输入参数
住院天数
整形
10
AOutDate
输入参数
出院日期
字符型
10
AJsDate
输出参数
出院日期
字符型
10
AOutStatus
输入参数
出院状态
字符型
20
AsError
输出参数
错误信息
字符型
100

Function UpdateJSZX(AOrgID,AOrgCode, ACoopmedCode: string; ADiagNO, AIDNO: Integer; var ErrorStr: WideString): Boolean
参数
参数类型
参数说明
数据类型
长度
AsOrganID
输入参数
行政区划编号，用于连接对应数据库
字符型
20
AOrgCode
输入参数
行政区划编码
字符型
20
ACoopmedCode
输入参数
合作医疗号码
整形
10
ADiagNO
输入参数
就医序号
整形

AIDNO
输入参数
个人序号
字符型
20
ErrorStr
输出参数
错误信息
整形
10
function DeleteInHosInfo(AsOrganID, AsCoopMedCode: PChar; AiIDNo, AiDiagNo: Integer; var AsError: Integer): Integer;
说明：用于删除入院登记信息。
参数
参数类型
参数说明
数据类型
长度
AsOrganID
输入参数
行政区划编号，用于连接对应数据库
字符型
20
ACoopmedCode
输入参数
合作医疗号码
整形
10
ADiagNO
输入参数
就医序号
整形

AIDNO
输入参数
个人序号
字符型
20
AsError
输出参数
错误信息
整形
10
÷

His需要做的事情。
His系统主要实现病人的入院登记以及审核。入院登记时，选择区域，输入合作医疗证号调用GetReferralEmpInfo函数，函数调用成功可以直接在表ReferralEmpInfo中通过AsOrganID和ACoopmedCode为条件直接查询出病人的基本信息。失败说明病人信息不正确。
如果删除病人信息则调用DeleteInHosInfo函数即可。保存病人入院信息调用SaveInHosInfo函数成功，即病人入院信息保存成功。
病人出院时可以调用结算函数PreClearing成功可以到表o_CbZyBxDj中通过AsOrganID，ACoopmedCode， ADiagNO， AIDNO为条件得到病人的报销费用。