银星HIS与LIS/PACS接口
2009.08 增加RemoveReport撤消报告方法
2009.07 增加细菌报告处理
2009.05 回传报告增加对体检报告的处理(PatientClass=3)
2009.01 扩展3张图片,增加抽血号、样本颜色、样本透明度参数
2008.09 增加Login方法
2008.07 增加BatchConfirm方法,增加图片传输内容
2008.01 完善本接口
2007.12 制定本接口
执行过程:
门诊:
1. 调用银星HIS端ConfirmItem函数确认,确认后的申请项目在银星HIS不能再退费。
2. 调用银星HIS端的WriteYXCISReport回写HIS端报告信息(信息格式见附录XML结构定义)
住院:
1. 调用HIS的记费方法ConfirmItem进行费用确认,经由银星HIS完成收费。确认成功的送检项才能继续报告。
2. LIS/PACS端完成送检标本检验后,调用银星HIS端的WriteYXCISReport回写HIS端报告信息(信息格式见附录XML结构定义)
退费:
调用银星HIS端的ConfirmItem函数,传-1参数执行取消功能。(门诊取消要求传入整张申请单的全部项目,不能部份取消)
银星HIS端“YXCISWrit.LISReport”提供函数:
1. 获取最后操作返回的错误信息
function GetLastError: WideString; safecall;
参数:无
返回:WideString
2. 连接银星HIS环境,并执行初始化操作
function Connect(AppHandle: Integer; const UID, PWD: WideString): WordBool; safecall;
参数:AppHandle 应用程序句柄(可以为0)
UID 操作员登陆YXHIS的ID(即YXHIS. .TBZDYJYS.IBM字段)
PWD 操作员登陆YXHIS的密码(即YXHIS. .TBZDYJYS .CMM)
返回:Boolean:True=成功 False=失败
附注,以上UID/PWD由PACS程序调用时,特定标识如下:
UID 'PACS'+操作员登陆YXHIS的ID(即YXHIS. .TBZDYJYS.IBM字段,加前缀PACS),本次传递:PACS9999
PWD 操作员登陆YXHIS的密码(即YXHIS. .TBZDYJYS .CMM),本次传递:123123
3. 断开同银星HIS的连接
function DisConnect: WordBool; safecall;
参数:无
返回:Boolean:True=成功 False=失败
4. 是否已经连接银星HIS环境
function IsConnected: WordBool; safecall;
参数:无
返回:Boolean:True=成功 False=失败
(以下调用均须在ISConnected=True环境下执行)
5. 确认(或取消)执行检查检验项目
function ConfirmItem(OptType, PatientClass: Shortint; const PatientID, SheetID, ItemData: WideString): WordBool; safecall;
参数:OptType 确认/取消标志:1=确认 -1=取消
PatientClass 门诊/住院标志:1=住院 2=门诊 3=体检
PatientID 门诊号/住院号
注:若采用一卡通,格式为“门诊号|卡号”(竖线分隔)
SheetID 传入申请单号/体检编码(格式为“团体登记号-体检登记号|分科编码”(竖线分隔))(申请单前加前缀 JC:检查申请单 JY:检验申请单 不加默认为医疗医嘱)
ItemData 检查项目ID:(HIS检查项目,多个用逗号“,”分隔, PACS调用时传入*号 表示一次确认或取消所有检查项目)
返回:Boolean:True=成功 False=失败
6. 批量确认(或取消)执行检查检验项目
function BatchConfirm(OptType, PatientClass: Shortint; const Items: WideString): WordBool; safecall;
参数:OptType 确认/取消标志:1=确认 -1=取消
PatientClass 门诊/住院标志:1=住院 2=门诊
Items 批量处理的检查检验项目
Items 格式: “住院号:申请单号-检查项目(多个用逗号分隔的)”(有多人用“|”线分隔)
返回:Boolean:True=成功 False=失败
7. 写LIS/PACS检查报告数据到银星HIS
function WriteReport(PatientClass: Shortint; const PatientID, SheetID, ItemData, XMLDATA: WideString): WordBool; safecall;
参数:PatientClass 门诊/住院标志:1=住院 2=门诊 3=体检
PatientID 门诊号/住院号
注:若采用一卡通,格式为“门诊号|卡号”(竖线分隔)
SheetID 传入申请单号/体检编码(格式为“团体登记号-体检登记号|分科编码”(竖线分隔))
(前缀JC代表检查申请单,JY代表检验申请单。省略前缀默认为JY)
ItemData 检查项目ID:(HIS检查项目,多个用逗号“,”分隔)
XMLDATA 检查结果数据:XML格式
返回:Boolean: True=成功 False=失败
8. 调阅银星HIS病人病历信息
procedure ShowPatientHealthInfo(PatientClass: Shortint; PatientID: WideString); safecall;
参数:PatientClass 门诊/住院标志:1=住院 2=门诊
PatientID 门诊号/住院号
返回:<无>
9. 打开YX申请单界面(该界面下可执行ConfirmItem操作及费用修改操作(需模板授权))
procedure OpenReqSheet(PatientClass: Shortint; const PatientID, SheetID: WideString); safecall;
参数:PatientClass 门诊/住院标志:1=住院 2=门诊
PatientID 门诊号/住院号
SheetID 传入申请单号
返回:<无>
10. 操作员登录
function Login(const UID, PWD: WideString): WordBool; safecall;
参数:UID 操作员登陆YXHIS的ID(即YXHIS. .TBZDYJYS.IBM字段)
PWD 操作员登陆YXHIS的密码(即YXHIS. .TBZDYJYS .CMM),可以为空。
返回:Boolean:True=成功 False=失败
11. 取消LIS/PACS检查报告数据
function RemoveReport(PatientClass: Shortint; const PatientID, SheetID, ItemData): WordBool; safecall;
参数:PatientClass 门诊/住院标志:1=住院 2=门诊 3=体检
PatientID 门诊号/住院号
注:若采用一卡通,格式为“门诊号|卡号”(竖线分隔)
SheetID 传入申请单号/体检编码(格式为“团体登记号-体检登记号|分科编码”(竖线分隔))
(前缀JC代表检查申请单,JY代表检验申请单。省略前缀默认为JY)
ItemData 检查项目ID:(HIS检查项目,多个用逗号“,”分隔)
返回:Boolean: True=成功 False=失败
附:LIS/PACS回传报告XML结构
|
|