武漢市轉(zhuǎn)診平臺接口程序說明

1、武漢市轉(zhuǎn)診平臺接口程序說明背景為了配合武漢市新型農(nóng)村醫(yī)療合作系統(tǒng)轉(zhuǎn)診平臺的無縫連接的工作。全力配合武漢市的新農(nóng)合轉(zhuǎn)診平臺在全市順利的推廣，早日實(shí)現(xiàn)新農(nóng)合參保病人轉(zhuǎn)診出院時(shí)能順利的實(shí)現(xiàn)現(xiàn)場直接補(bǔ)助，讓新農(nóng)合病人得到實(shí)惠和方便，從而提高醫(yī)院的形象。業(yè)務(wù)流程入院登記流程圖流程說明1數(shù)據(jù)初始化醫(yī)院HIS系統(tǒng)首先輸入病人的合作醫(yī)療證號和行政區(qū)域編號，調(diào)用接口程序提供的函數(shù)GetReferralEmpInfo判定該用戶的身份的正確性。如果人員信息正確，該函數(shù)將遠(yuǎn)程合管辦數(shù)據(jù)庫中人員信息取到本地保存，然后可以直接到本地的前置機(jī)中取的病人的基本信息。以及一些其它的信息。2入院登記His在病人入院登記結(jié)束后，調(diào)

2、用接口函數(shù)SaveInHosInfo可以直接將病人的入院登記的信息直接保存到本地的前置機(jī)上。病人出院結(jié)算流程3收費(fèi)明細(xì)錄入His系統(tǒng)在保存病人的費(fèi)用信息的時(shí)候，直接調(diào)用接口函數(shù)SaveFreeList，可以直接將數(shù)據(jù)保存到本地的前置機(jī)上。4報(bào)銷費(fèi)用結(jié)算醫(yī)院可以隨時(shí)的調(diào)用接口程序的預(yù)結(jié)算功能。算出病人的報(bào)銷費(fèi)用的信息，便于醫(yī)院的管理。5報(bào)銷費(fèi)用上傳病人出院時(shí)調(diào)用接口UpdateJSZX的結(jié)算功能，數(shù)據(jù)將直接寫入到區(qū)新農(nóng)合的系統(tǒng)，供農(nóng)合審核，以便給醫(yī)院付款。接口函數(shù)說明DLL是動(dòng)態(tài)連接庫。使用動(dòng)態(tài)連接庫有以下一些優(yōu)點(diǎn)： 多個(gè)應(yīng)用程序共享代碼和數(shù)據(jù)：比如Office軟件的各個(gè)組成部分有相似的外觀和功

3、能，這就是通過共享動(dòng)態(tài)連接庫實(shí)現(xiàn)的。 1. 在鉤子程序過濾系統(tǒng)消息時(shí)必須使用動(dòng)態(tài)連接庫。 2. 動(dòng)態(tài)連接庫以一種自然的方式將一個(gè)大的應(yīng)用程序劃分為幾個(gè)小的模塊，有利于小組內(nèi)部成員的分工與合作。而且，各個(gè)模塊可以獨(dú)立升級。如果小組中的一個(gè)成員開發(fā)了一組實(shí)用例程，他就可以把這些例程放在一個(gè)動(dòng)態(tài)連接庫中，讓小組的其他成員使用。 3. 為了實(shí)現(xiàn)應(yīng)用程序的國際化，往往需要使用動(dòng)態(tài)連接庫。使用動(dòng)態(tài)連接庫可以將針對某一國家、語言的信息存放在其中。對于不同的版本，使用不同的動(dòng)態(tài)連接庫。在使用AppWizard生成應(yīng)用程序時(shí)，我們可以指定資源文件使用的語言，這就是通過提供不同的動(dòng)態(tài)連接庫實(shí)現(xiàn)的。由于動(dòng)態(tài)連接庫有

4、以上多種優(yōu)勢，故醫(yī)療轉(zhuǎn)診的接口程序采用動(dòng)態(tài)連接庫的方式提供給醫(yī)院管理系統(tǒng)。動(dòng)態(tài)連接庫名：ReferralDll.dll方法：Function GetReferralEmpInfo(AsOrganCode, AsCoopMedCode: WideString; var sError: WideString): Integer;說明：該函數(shù)驗(yàn)證病人信息，返回1說明該病人為轉(zhuǎn)診病人，相關(guān)信息以成功取到本地?cái)?shù)據(jù)庫。成功后在ReferralEmpInfo表中可以取得病人的基本信息。其中輸入?yún)?shù)為查詢條件。參數(shù)參數(shù)類型參數(shù)說明數(shù)據(jù)類型長度AsOrganID輸入?yún)?shù)行政區(qū)域編碼字符型20AsCoopMedC

5、ode輸入?yún)?shù)合作醫(yī)療號字符型20sError輸出參數(shù)錯(cuò)誤信息字符型100function GetOrgCode(AOrganID: WideString): WideString;說明：得到在新農(nóng)合系統(tǒng)中的服務(wù)單位代碼，返回為空時(shí)表示輸入的AOrganID錯(cuò)誤，沒有該區(qū)域的服務(wù)單位代碼。參數(shù)參數(shù)類型參數(shù)說明數(shù)據(jù)類型長度AsOrganID輸入?yún)?shù)行政區(qū)域編碼字符型20function SaveInHosInfo(AsOrganID, AsCoopMedCode, AsExpressionsID, AsPatientName, AsAge, AsAgeUnit: string;AiIDNo: I

6、nteger; AsIllCode, AsIllName: string; var sError: WideString; AiDiagNo: Integer): Integer; stdcall;說明：保存病人入院登記信息,保存成功后取得病人的就醫(yī)序號參數(shù)參數(shù)類型參數(shù)說明數(shù)據(jù)類型長度AsOrganID輸入?yún)?shù)行政區(qū)域編碼字符型20AsCoopMedCode輸入?yún)?shù)合作醫(yī)療號字符型20AsExpressionsID輸入?yún)?shù)報(bào)銷公式編碼字符型2AiIDNo輸入?yún)?shù)個(gè)人序號整形AsPatientName 輸入?yún)?shù)姓名字符型20AsAge輸入?yún)?shù)年齡字符型10AsAgeUnit輸入?yún)?shù)年齡單位（歲；

7、月；天）可以為空，如果為空，則為歲字符型2AiDiagNo輸出參數(shù)就醫(yī)序號整形AsIllCode輸入?yún)?shù)病種編碼字符型20AsIllName輸入?yún)?shù)病種名稱字符型20sError輸出參數(shù)錯(cuò)誤信息字符型100function SaveFreeList(AsOrganID, AsCoopMedCode, AsItemCode: PChar; AiIDNo, AiDiagNo: Integer; ADInputDate: PChar;AfPrice, AfNum, AfFee: Single; HosStandby, FreeCode: PChar; var AsError: Integer): I

8、nteger說明：保存病人收費(fèi)項(xiàng)目明細(xì)信息。參數(shù)參數(shù)類型參數(shù)說明數(shù)據(jù)類型長度AsOrganID輸入?yún)?shù)行政區(qū)劃編號，用于連接對應(yīng)數(shù)據(jù)庫字符型20AsCoopMedCode輸入?yún)?shù)合作醫(yī)療號字符型20AiIDNo輸入?yún)?shù)個(gè)人序號整形10AiDiagNo輸入?yún)?shù)就醫(yī)序號整形10ADInputDate輸入?yún)?shù)錄入日期字符型10AfPrice輸入?yún)?shù)單價(jià)浮點(diǎn)數(shù)AfNum輸入?yún)?shù)數(shù)量字符型10AfFee輸入?yún)?shù)總價(jià)格字符型10HosStandby輸入?yún)?shù)醫(yī)院備用字符型20FreeCode輸入?yún)?shù)費(fèi)用明細(xì)編碼字符型20AsError輸出參數(shù)錯(cuò)誤信息字符型100function PreClearing(As

9、OrganID, AsCoopMedCode: PChar;AiIDNo, AiDiagNo, APreClearFlag: Integer; ADayCount: Integer; AOutDate, AJsDate, AOutStatus: PChar; var AsError: Integer): Integer; 說明:出院結(jié)算函數(shù)，執(zhí)行完后在住院登記表中保存結(jié)算后的報(bào)銷金額參數(shù)參數(shù)類型參數(shù)說明數(shù)據(jù)類型長度AsOrganID輸入?yún)?shù)行政區(qū)劃編號，用于連接對應(yīng)數(shù)據(jù)庫字符型20AsCoopMedCode輸入?yún)?shù)合作醫(yī)療號字符型20AiIDNo輸入?yún)?shù)個(gè)人序號整形10AiDiagNo輸入?yún)?shù)

10、就醫(yī)序號整形APreClearFlag輸入?yún)?shù)字符型20ADayCount輸入?yún)?shù)住院天數(shù)整形10AOutDate輸入?yún)?shù)出院日期字符型10AJsDate輸出參數(shù)出院日期字符型10AOutStatus輸入?yún)?shù)出院狀態(tài)字符型20AsError輸出參數(shù)錯(cuò)誤信息字符型100Function UpdateJSZX(AOrgID,AOrgCode, ACoopmedCode: string; ADiagNO, AIDNO: Integer; var ErrorStr: WideString): Boolean參數(shù)參數(shù)類型參數(shù)說明數(shù)據(jù)類型長度AsOrganID輸入?yún)?shù)行政區(qū)劃編號，用于連接對應(yīng)數(shù)據(jù)庫字符型

11、20AOrgCode輸入?yún)?shù)行政區(qū)劃編碼字符型20ACoopmedCode輸入?yún)?shù)合作醫(yī)療號碼整形10ADiagNO輸入?yún)?shù)就醫(yī)序號整形AIDNO輸入?yún)?shù)個(gè)人序號字符型20ErrorStr輸出參數(shù)錯(cuò)誤信息整形10function DeleteInHosInfo(AsOrganID, AsCoopMedCode: PChar; AiIDNo, AiDiagNo: Integer; var AsError: Integer): Integer; 說明：用于刪除入院登記信息。參數(shù)參數(shù)類型參數(shù)說明數(shù)據(jù)類型長度AsOrganID輸入?yún)?shù)行政區(qū)劃編號，用于連接對應(yīng)數(shù)據(jù)庫字符型20ACoopmedCode輸入?yún)?shù)合作醫(yī)療號碼整形10ADiagNO輸入?yún)?shù)就醫(yī)序號整形AIDNO輸入?yún)?shù)個(gè)人序號字符型20AsError輸出參數(shù)錯(cuò)誤信息整形10His需要做的事情。His系統(tǒng)主要實(shí)現(xiàn)病人的入院登記以及審核。入院登記時(shí)，選擇區(qū)域，輸入合作醫(yī)療證號調(diào)用GetReferralEmpInfo函數(shù)，函數(shù)調(diào)用成功可以直接在表ReferralEmpInfo中通過AsOrganID和ACoopmedCode為條件直接查詢出病