银星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结构
|
|
资源大小：21.60 KB 
