銀星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 
