省市級轉(zhuǎn)診實(shí)時(shí)接口

1、目錄1. 目的32. 方案介紹3方案圖解3醫(yī)院系統(tǒng)需要做的改造工作3醫(yī)院開發(fā)商需要提供的小應(yīng)用4新農(nóng)合轉(zhuǎn)診服務(wù)器一臺43. 醫(yī)院管理信息系統(tǒng)改造實(shí)施詳細(xì)說明43.1. 住院部分44. 新農(nóng)合接口函數(shù)說明54.1.1.4.1.2.4.1.3.4.1.4.4.1.5.4.1.6.4.1.7.4.1.8.4.1.9.4.1.10.4.1.11.4.1.12.4.1.13.4.1.14.4.1.15.4.1.16.4.1.17.4.1.18.4.1.19.4.1.20.4.1.21.4.1.22.4.1.23.4.1.24.4.1.25.4.1.26.4.1.27.4.1.28.動(dòng)態(tài)庫初始化函數(shù)6獲取

2、已通過的項(xiàng)目到前置機(jī)（停用）6轉(zhuǎn)診基本信息（可參考函數(shù) 4. 1. 24）（停用）6?。ㄊ校┘夀D(zhuǎn)診 獲取區(qū)劃信息7上傳或取消醫(yī)院項(xiàng)目對應(yīng)編碼8上傳醫(yī)院科室信息8刪除醫(yī)院科室信息9?。ㄊ校┘夀D(zhuǎn)診讀卡9市市讀卡讀卡函數(shù) (提供的) .9) .10函數(shù) ( 明華澳漢 提供的?。ㄊ校┘夀D(zhuǎn)診?。ㄊ校┘夀D(zhuǎn)診?。ㄊ校┘夀D(zhuǎn)診?。ㄊ校┘夀D(zhuǎn)診省（市）級轉(zhuǎn)診?。ㄊ校┘夀D(zhuǎn)診省（市）級轉(zhuǎn)診?。ㄊ校┘夀D(zhuǎn)診省（市）級轉(zhuǎn)診?。ㄊ校┘夀D(zhuǎn)診?。ㄊ校┘夀D(zhuǎn)診省（市）級轉(zhuǎn)診根據(jù)獲取農(nóng)合號和個(gè)人序號10獲取轉(zhuǎn)診區(qū)劃內(nèi)信息10住院登記11住院信息 修改12費(fèi)用明細(xì)錄入13刪除已上傳費(fèi)用明細(xì)（含本地和） .14新農(nóng)合結(jié)算、預(yù)結(jié)算14住院結(jié)算

3、信息和表15數(shù)據(jù)回寫當(dāng)?shù)睾瞎苻k 服務(wù)器16已經(jīng)回寫當(dāng)?shù)氐臄?shù)據(jù)16取消住院結(jié)算16取消住院登記（農(nóng)合轉(zhuǎn)自費(fèi)）17住院 上傳明細(xì)后的處理（僅針對直接寫前置機(jī)記帳明細(xì)表后的處理工作）17獲取基礎(chǔ)信息到 前置機(jī) 數(shù)據(jù)庫中18獲取特殊信息19讀 居民健康卡 返回號19根據(jù)號 獲取 農(nóng)合證號 和 個(gè)人序號19信息201.目的為了更好的加快城市新型農(nóng)村合作醫(yī)療建設(shè)，對于新農(nóng)合報(bào)銷算法的準(zhǔn)確性、可控性、可性和安全性等多方面的考慮，在對醫(yī)院原有系統(tǒng)的改造的過程中，準(zhǔn)備采用開發(fā)新農(nóng)合報(bào)銷算法的動(dòng)態(tài)庫的辦法來解決。2.方案介紹省中心服 務(wù)器2.1. 方案圖解報(bào)銷計(jì)算 辦法 DLLHIS系統(tǒng)數(shù)據(jù) 庫新農(nóng)合 前置機(jī)當(dāng)?shù)?/p>

4、農(nóng)合 服務(wù)器醫(yī)院 終端計(jì)算 請求發(fā)起農(nóng)合服務(wù) 器2.2. 醫(yī)院系統(tǒng)需要做的改造工作首先醫(yī)院需要根據(jù)新農(nóng)合政策的需要，按照所提供的新農(nóng)合的接口改造醫(yī)院的 HIS 系統(tǒng)，使其 HIS 系統(tǒng)能夠適應(yīng)新農(nóng)合報(bào)銷的需要。醫(yī)院需要根據(jù)合管辦提供的三個(gè)基本目錄，包括病種信息、藥品信息、診療項(xiàng)目信息建立與醫(yī)院內(nèi)碼對應(yīng)的對照信息。對于那些無法找到對應(yīng)關(guān)系的項(xiàng)目信息，醫(yī)院按照新農(nóng)合中心費(fèi)用分類編碼，項(xiàng)目信息。此動(dòng)態(tài)庫的方式只適合于Windows98 以上的 HIS 系統(tǒng)。報(bào)銷計(jì)算結(jié)果寫入 HIS 系統(tǒng)中計(jì)算結(jié)果傳送2.3. 醫(yī)院開發(fā)商需要提供的小應(yīng)用一個(gè)對照表，每個(gè)都是一對多的關(guān)系.也就是在原表基礎(chǔ)上加新農(nóng)合對應(yīng)

5、編碼。病種信息對照表藥品信息對照表診療項(xiàng)目對照表沒有對應(yīng)關(guān)系的項(xiàng)目信息，按照合管辦的費(fèi)用分類辦法修改項(xiàng)目信息新農(nóng)合客戶端提供相應(yīng)的對應(yīng)工作程序，對應(yīng)完成后上報(bào)后提管辦進(jìn)行對應(yīng)審核。2.4.新農(nóng)合轉(zhuǎn)診服務(wù)器一臺操作系統(tǒng):WIN2K/2K SERVER/XP/2003硬件要求：PIIII 1.7G/512M/40G數(shù)據(jù)庫要求：WIN SQL SERVER 2000網(wǎng)絡(luò)要求：內(nèi)網(wǎng)通（能HIS）并且通（能新農(nóng)合），最好是單獨(dú)能上網(wǎng)的專線（1。5M 以上）。/硬件/網(wǎng)閘：3.醫(yī)院管理信息系統(tǒng)改造實(shí)施詳細(xì)說明3.1. 住院部分1、獲取根據(jù)信息提供的合作醫(yī)療證號進(jìn)行查詢，選擇后返回該的個(gè)人、出生日期等相關(guān)信

6、息。2、入院登記（入院信息修改）提作醫(yī)療證及個(gè)人和獲取的就診號進(jìn)行住院的就診登記。如因退合或者被列入，則可采用自費(fèi)方法處理。3、藥品、診療明細(xì)錄入調(diào)用接口函數(shù)“費(fèi)用明細(xì)錄入”把劃價(jià)信息寫入新農(nóng)合前置機(jī)中。4、出院結(jié)算(0：預(yù)結(jié)算；1:結(jié)算)進(jìn)行入院登記前必須保證已經(jīng)進(jìn)行了新合入院就診登記。寫入費(fèi)用結(jié)束后調(diào)用“新農(nóng)合結(jié)算、預(yù)結(jié)算”，生成新農(nóng)合結(jié)算信息。5、取消費(fèi)用結(jié)算將已出院的取消費(fèi)用結(jié)算，重新值為新合在院6、取新合結(jié)算信息和表取已經(jīng)結(jié)算的報(bào)銷結(jié)算單和新合報(bào)銷表信息。4.新農(nóng)合接口函數(shù)說明4.0 調(diào)用 DLL 基本流程：【省（市）級轉(zhuǎn)診醫(yī)院 流程】1、調(diào)用 InitDLL 初始化 DLL；（不需

7、要經(jīng)常調(diào)用）2、調(diào)用 GetParmItem 獲取基本信息；（基本信息要定期更新，或參考 GetParmItemToDB）3、調(diào)用 UpdateHosOffice 上傳醫(yī)院科室信息；（可選）4、進(jìn)行 項(xiàng)目 對應(yīng)；（可選）5、調(diào)用 UpdateerItem 上傳 對應(yīng)項(xiàng)目；（可選）6、調(diào)用 GetCheckItem 獲取 已審核項(xiàng)目；（不定期更新已審核項(xiàng)目）7、調(diào)用 GetXZQHinfo_zz 8、調(diào)用 zzUser_ReadCard獲取區(qū)劃信息，刷卡獲取，所屬區(qū)劃；市醫(yī)院用 User_WHReadCard；（可選）獲取農(nóng)合證號和個(gè)人序號；（可選）9、調(diào)用 zzGetCoopMedCodeBy

8、CardID 根據(jù)10、 調(diào)用 GetZzinfo_zz 獲取轉(zhuǎn)診信息；11、 調(diào)用 zzSaveInHosInfo 入院登記，修改已登記信息用 SaveInHosInfo ；12、 上傳費(fèi)用：方法 1：費(fèi)用直接寫入前置機(jī)表（o_CbZyBxDjZb），則寫入完成后調(diào)用 Pro用失敗，則清除寫入的數(shù)據(jù)；具體寫入辦法見 4.1.12；方法 2：調(diào)用 SaveFreeList 。（一般費(fèi)用較大的醫(yī)院 建議用 方法 1 ）13、 調(diào)用 PreClearing 進(jìn)行 預(yù)結(jié)算，結(jié)算；sFeeList ，如果調(diào)14、 調(diào)用 GetCalcFee 獲取結(jié)算信息和15、 調(diào)用 zzGetDataBack 結(jié)算

9、信息回寫表（可選），必須結(jié)算完成才能調(diào)用。所屬地服務(wù)器16、 如果需要回歸：則先調(diào)用 zzBack_ClearData算；已回寫數(shù)據(jù)；再調(diào)用 CanceCalcFee取消結(jié)17、 用 DeleteFeeList 刪除已上傳費(fèi)用（未結(jié)算才能操作）；18、 用 zzDeleteHosInfo 刪除入院登記（未結(jié)算才能操作）。動(dòng)態(tài)庫名稱：LxCLXSETUP.INISynch Host=192.168.50.117Port=1899Remaks:注意服務(wù)端nt.dll前置服務(wù)器的 IP 地址前置服務(wù)器開放的端，可自定義對端的開放狀態(tài)，前置機(jī)和客戶端的端必須保持一致LxCnt.dllDataBuffe

10、r 說明：DataBuffer 為函數(shù)返回參數(shù)，PChar類型，如果函數(shù)執(zhí)行成功，返回值多個(gè)參數(shù)，使用|分割；如果執(zhí)行失敗，那么 DataBuffer 中含有錯(cuò)誤詳細(xì)信息。日期類型格式：yyyy-mm-dd hh:mm:ss，如果沒有時(shí)間，則后 6為 0。返回值： 成功 =0失敗 0輸出是以“$、|、#、”分割的字符串以“|”分隔，詳見每個(gè)交易的參數(shù)表, 分項(xiàng)之間使用管道分割符|分割，最后必須要以管道分割符號|結(jié)尾，不以|開始。如果入?yún)槎鄺l，之間以$分割，不同數(shù)據(jù)項(xiàng)之間以|分割Remarks:在所有函數(shù)中不存在唯一的住院號，唯一值是醫(yī)療證號+個(gè)人序號+就診序號Code + CoopMedCo

11、de + IDNo + DiagNo，即機(jī)構(gòu)碼+農(nóng)戶新合4.1.1.動(dòng)態(tài)庫初始化函數(shù)syntax:function InitDLL(DataBuffer: Pchar):eger; stdcall;Parameter:參數(shù)Return ：成功 0 ；失敗 0Remarks：此函數(shù)主要是測試前置機(jī)是否啟動(dòng)，非編程必用函數(shù)。4.1.2.獲取已通過的項(xiàng)目到前置機(jī)（停用）Syntax:function GetCheckItem(AsParameter:anID: pchar):eger; stdcall;Return ：成功 0 ；失敗 0Remarks:當(dāng)醫(yī)院有新項(xiàng)目增加后，在新合中進(jìn)行對應(yīng)經(jīng)后，請

12、及時(shí)運(yùn)行此函數(shù)，否則在新合費(fèi)用明細(xì)錄入中返回錯(cuò)誤值。注意此函數(shù)不要頻繁使用。4.1.3.轉(zhuǎn)診基本信息（可參考函數(shù) 4. 1. 24）（停用）Syntax:function GetParmItem(AsParameter:anID, AsKind, DataBuffer: pchar):eger;stdcall;參數(shù)輸入/輸出參數(shù)名是否可空類型AsanIDIN行政區(qū)劃+ $ + 帳套年度NVARCHAR(20)AskindIN類型1：疾病代碼表；NVARCHAR(1)參數(shù)輸入/輸出參數(shù)名是否可空類型AsanIDIN行政區(qū)劃+ $ + 帳套年度NVARCHAR(20)參數(shù)輸入/輸出參數(shù)名是否可空類

13、型DataBufferOUT返回信息VARCHAR(100)注：當(dāng) Askind5 時(shí)，AsanID 可以為空。Return ：成功 0 ；失敗 0 Remarks:該函數(shù)運(yùn)行后在當(dāng)前目錄的DOWNLOAD 目錄中生成以（ILL+年月日時(shí)分秒：疾病代碼表）,（BXGS+年月日時(shí)分秒：報(bào)銷公式），（ITEM+年月日時(shí)分秒：項(xiàng)目目錄）, （BXITEM+年月日時(shí)分秒：已審核項(xiàng)目）和（AREA+年月日時(shí)分秒：轉(zhuǎn)診區(qū)劃），（LIMI+年月日時(shí)分秒：單病種），（Office+年月日時(shí)分秒：統(tǒng)計(jì)科室）為開頭的 TXT 文本文本中字符之間用軟換行符#10分隔文本文件字段順序說明：1：疾病代碼表：字段順序：（

14、 IllCode 疾病If_Modified 修改標(biāo)志）,IllName 疾病名稱,Spell 拼音碼,FiveStrokes 五筆碼，2：報(bào)銷公式目錄：字段順序：（years 公式年度，ExpressId 公式,ExpressName 公式名稱,grade 等級,kind 補(bǔ)償類別【0 不限，1 限額，2】,typefee 限定金額）3 報(bào)銷項(xiàng)目目錄 的字段順序：（ItemCode 項(xiàng)目，ItemName 項(xiàng)目名稱，Unit，WipeOut 報(bào)銷標(biāo)志（1 報(bào)銷，2 不報(bào)銷），Gg 規(guī)格，Cd 產(chǎn)地，Jx 劑型，Remark 備注，SpName 別名，Price1 單價(jià) 1，LimitPric

15、e1 限價(jià) 1，Price2 單價(jià) 2，LimitPrice2 限價(jià) 2，Price3 單價(jià) 3，LimitPrice3 限價(jià) 3，Valid 可用標(biāo)志（1 可用，2 停用），Spell 拼音碼，F(xiàn)iveStrokes 五筆碼，GradeToPrice 等級限價(jià)，Grade 等級，WjCode ，F(xiàn)eeTypeCode 類型FeeTypeName 類型名稱），4 醫(yī)院對應(yīng)審核項(xiàng)目字段順序（anId 區(qū)劃, hoscode 醫(yī)院項(xiàng)目號, hositem 醫(yī)院項(xiàng)目名稱,hosspec 醫(yī)院項(xiàng)目規(guī)格, manufacturer 項(xiàng)目產(chǎn)地, hoskind 類別, hostype 劑型, incode

16、 對應(yīng)項(xiàng)目號,inkind 對應(yīng)類別,code 醫(yī)療機(jī)構(gòu),flag, itemname 對應(yīng)項(xiàng)目名稱, feetypecode 類型,feetypename 類型名稱,wipeout 是否報(bào)銷, grade 藥品等級, LimitPrice1 限價(jià) 1, LimitPrice2 限價(jià) 2,LimitPrice3 限價(jià) 3, HosGrade 醫(yī)院登等級）5 行政區(qū)劃 字段順序（anID 區(qū)劃,anName 區(qū)劃名稱, year 年度）6 單病種信息表：字段順序（病種，病種名稱，標(biāo)準(zhǔn)金額，補(bǔ)償金額，拼音碼）7 統(tǒng)計(jì)科室：字段順序（科室，科室名稱）4.1.4.?。ㄊ校┘夀D(zhuǎn)診 獲取區(qū)劃信息功能描述：

17、獲取參與轉(zhuǎn)診的區(qū)劃信息調(diào)用說明：function GetXZQHinfo_zz(aAreaCode, DataBuffer: pchar):參數(shù)定義：eger; stdcall;參數(shù)輸入/輸出參數(shù)名是否可空類型2：報(bào)銷公式目錄；3：報(bào)銷項(xiàng)目目錄；4：醫(yī)院對應(yīng)審核項(xiàng)目；5：行政區(qū)劃，帳套年度；（AsanID=NULL）6：單病種信息表；7：統(tǒng)計(jì)科室DataBufferOUT返回信息Return：成功 0；失敗 0DataBuffer 說明：0區(qū)劃號|1 區(qū)劃號|2 區(qū)劃名稱|3 預(yù)留|4 預(yù)留|5 預(yù)留|6 預(yù)留|7 預(yù)留|$這里是所屬區(qū)劃 的來源4.1.5.上傳或取消醫(yī)院項(xiàng)目對應(yīng)編碼Synta

18、x:function UpdateerItem (AsanID, AsFlag, AsHosCode, AsHosName, AsHosSpec, AsHosUnit,AsHosCd,AsHosType,AsHosKind, AsHosPym, AsHosWbx, AsItemCode, AsDetail, Databuffer: PChar):Parameter:eger; stdcall;Return ：成功 0特別說明：；失敗 0ASFLAG=0 時(shí)上傳或修改已上傳的醫(yī)院項(xiàng)目對應(yīng)信息.ASFLAG=1 申請撤消合管審核的項(xiàng)目對應(yīng)信息.AsDetail ：在?。ㄊ校┘?，新增時(shí) 是 項(xiàng)目價(jià)格

19、。4.1.6. 上傳醫(yī)院科室信息功能描述：上傳醫(yī)院科室基本信息調(diào)用說明：HIS 系統(tǒng)在錄入科室信息時(shí)調(diào)用或上傳科室信息調(diào)用。function UpdateHosOffice(a參數(shù)定義：anID, aOfficeNo, aOfficeName, aSCode: PChar; DataBuffer: PChar):eger; stdcall;序號參數(shù)名稱輸入 /輸出參數(shù)說明數(shù)據(jù)類型最多長度是否為空備注參數(shù)輸入/輸出參數(shù)名是 否可空類型AsanIDIN行政區(qū)劃 + $ + 帳套年度NVARCHAR(20)AsFlagIN0-增加或修改,1-撤消審核NCHAR(1)AsHosCodeIN醫(yī)院項(xiàng)目編碼

20、(唯一)NVARCHAR(20)AsHosNameIN醫(yī)院項(xiàng)目名稱VARCHAR(80)AsHosSpecIN規(guī)格VARCHAR(40)AsHosUnitIN包裝VARCHAR(10)AsHosCdIN產(chǎn)地VARCHAR(20)AsHosTypeIN劑型VARCHAR(20)AsHosKindIN類型(1-診療項(xiàng)目 2 手術(shù)項(xiàng)目3 西藥 4 中草藥 5 中成藥 6醫(yī)用材料)CHAR(1)AsHosPymIN拼音碼VARCHAR(10)AsHosWbxIN五筆碼VARCHAR(10)AsItemCodeIN對應(yīng)的新合編碼VARCHAR(20)AsDetailIN撤消說明 (注意 新增時(shí) 是項(xiàng)目價(jià)

21、格)VARCHAR(100)DataBufferOUT錯(cuò)誤信息YaAreaCodeIN行政區(qū)劃 + $ + 帳套年度NVarchar(20)DataBufferOut返回值Varchar(5000)DataBuffer 說明：成功返回空，否則返回錯(cuò)誤信息。Return ：成功 0 ；失敗 04.1.7. 刪除醫(yī)院科室信息功能描述：刪除醫(yī)院科室基本信息調(diào)用說明：HIS 系統(tǒng)在錄入科室信息時(shí)調(diào)用。function DelHosOffice(a參數(shù)定義：anID, aOfficeNo: PChar; DataBuffer: PChar):eger; stdcall;DataBuffer 說明：成功返

22、回空，否則返回錯(cuò)誤信息。Return ：成功 0 ；失敗 04.1.8.?。ㄊ校┘夀D(zhuǎn)診 讀卡功能描述：刷卡信息并獲得（使用本公司提供的和卡）調(diào)用說明：HIS 在錄入信息，刷農(nóng)合卡時(shí)調(diào)用。eger; rData: PChar):eger; stdcall;function zzUser_ReadCard(COMi:參數(shù)定義：COMi （ 1，2，3，4，）rData：返回錯(cuò)誤提示信息。（如果長度大于 10 時(shí) 則前 6 位 為所屬區(qū)劃號，從第七位開始為）。出錯(cuò)時(shí)返回Return：成功 0 ；失敗 04.1.9.讀卡 函數(shù) ()市提供的功能描述：獲取調(diào)用說明：function User_WHRea

23、dCard(CardKind:eger;MyCardID: PChar):eger;參數(shù)定義：參數(shù)輸入/輸出參數(shù)名是否可空類型CardKindIN卡類型：1；0。N參數(shù)輸入/輸出參數(shù)名是否可空類型COMiIN串NrDataOutYVARCHAR(300)序號參數(shù)名稱輸入 /輸出參數(shù)說明數(shù)據(jù)類型最多長度是否為空備注1aanIDIn行政區(qū)劃+ $ + 帳套年度Varchar12N2aOfficeNoIn科室Varchar8N3DataBufferOut返回信息Varchar100Y1aanIDIn行政區(qū)劃+ $ + 帳套年度Varchar20N2aOfficeNoIn科室Varchar8N3aOf

24、ficeNameIn科室名稱Varchar50N4aSCodeIn統(tǒng)計(jì)科室Varchar8N5DataBufferOut返回信息Varchar100YReturn：成功 0；失敗 0； MyCardID：返回（如果則返回錯(cuò)誤信息。長度大于 10 時(shí) 則前 6 位 為所屬區(qū)劃號，從第七位開始為），出錯(cuò)4.1.10.市讀卡 函數(shù) ( 明華澳漢 提供的)功能描述：獲取調(diào)用說明：function mh_WH_ReadCard (CardKind:eger;MyCardID: PChar):參數(shù)定義：eger;Return：成功 0；失敗 0；MyCardID：返回則返回錯(cuò)誤信息。長度大于 10 時(shí) 則

25、前 6 位 為（如果所屬區(qū)劃號，從第七位開始為），出錯(cuò)4.1.11. ?。ㄊ校┘夀D(zhuǎn)診根據(jù)獲取農(nóng)合號和個(gè)人序號功能描述：獲取轉(zhuǎn)診調(diào)用說明：農(nóng)合號和個(gè)人序號function zzGetCoopMedCodeByCardI參數(shù)定義：rganID, aAreaCode, aCardID: PChar; DataBuffer: PChar):eger;Return：成功 0；失敗 0DataBuffer 說明： 0 新合號 | 1 個(gè)人序號注：（個(gè)人序號：如果是一人一卡 則 為本人；否則為戶主）特別說明荊州市、黃岡市、隨州市、荊門市：DataBuffer 說明：一戶一卡返回： 0 新合號 | 1 個(gè)人序

26、號| 2一人一卡返回：0 新合號 | 1 個(gè)人序號$4.1.12. ?。ㄊ校┘夀D(zhuǎn)診 獲取轉(zhuǎn)診區(qū)劃內(nèi)信息功能描述：獲取轉(zhuǎn)診調(diào)用說明：信息function GetZzinfo_zz(aGrade, aAreaCode: pchar; DataBuffer: pchar):參數(shù)定義：eger;stdcall;參數(shù)輸入/輸出參數(shù)名是否可空類型aanIDIN行政區(qū)劃+ $ + 帳套年度NVarchar(20)aAreaCodeIN所屬區(qū)劃NVarchar(6)aCardIDInNVarchar(20)DataBufferOut返回值Varchar(100)參數(shù)輸入/輸出參數(shù)名是否可空類型CardKind

27、IN卡類型：1；0。NMyCardIDOutVarchar(100)MyCardIDOutVarchar(100)Return：成功 0；失敗 0DataBuffer 說明： 0 新合號|1|2 個(gè)人序號|3所屬區(qū)劃|4 轉(zhuǎn)診序號|5 疾病|6 疾病名稱|7 轉(zhuǎn)前醫(yī)院|8 轉(zhuǎn)診原因| 9預(yù)留|$如果意見|10|11日期| 12號|13 出生日期|14|15 住址 |16 預(yù)留|17 預(yù)留|18 預(yù)留|19存入前置機(jī)表：p_CbNhGrXxPhoto 中。有，則4.1.13. ?。ㄊ校┘夀D(zhuǎn)診 住院登記功能描述：調(diào)用說明：新農(nóng)合轉(zhuǎn)診住院信息轉(zhuǎn)診 住院登記時(shí)調(diào)用function zzSaveInHo

28、sInfo(AsanID, aAreaCode, AsCoopMedCode, AsExpressID: pchar;AiIDNo, aTurnID:eger; AsIllCode, AsIllName, AInDate, Adke, AdLimitDef, AsDoctor, AsPatientId, AsExpenseKind,AsLimitIllCode,DataBuffer: Pchar):參數(shù)定義：eger; stdcall;參數(shù)輸入/輸出參數(shù)名是否可空類型AsanIDIN行政區(qū)劃+ $ + 帳套年度NVARCHAR(20)aAreaCodeIN所屬區(qū)劃NVARCHAR(12)AsC

29、oopMedCodeIN新合證號NVARCHAR(18)AsExpressIDIN報(bào)銷公式 IDNVARCHAR(4)AiIDNoIN個(gè)人序號NegeraTurnIDIN轉(zhuǎn)診序號NegerAsIllCodeIN入院(合管辦提供的疾病代碼)YVARCHAR(10)，只能一個(gè)編碼AsIllNameIN入院(合管辦提供的疾病名稱)YVARCHAR(40),可以多個(gè)名稱AInDateIN入院日期N(YYYY-MM-D D HH:MM:SS)AdkeIN扣額說明：報(bào)銷公式?jīng)]有調(diào)整時(shí)：扣額只調(diào)整起付線：扣額調(diào)整后起 額 + $只調(diào)整報(bào)銷比率：扣額$ + 調(diào)整比率兩個(gè)都調(diào)整 ：扣額調(diào)整后起額 + $ + 調(diào)

30、整比率（其中調(diào)整比例為不帶百分號的小YVARCHAR(12)參數(shù)輸入/輸出參數(shù)名是否可空類型aGradeIN區(qū)劃等級 + $ + 帳套年度（1 省級2 地(市)級）NVarcahr(10)aAreaCodeIN行政區(qū)劃+$+所屬區(qū)劃+$+農(nóng)合證號+$+個(gè)人序號注：行政區(qū)劃，所屬區(qū)劃,農(nóng)合證號 不能為空， 個(gè)人序號可以為空。其中 荊州、黃岡、隨州、荊門市級轉(zhuǎn)診： 個(gè)人序號也不能為空。NVarchar(50)DataBufferOut返回值Varchar(500 0)DataBuffer ： 就醫(yī)序號Return : 成功 0； 失敗 0注意：修改住院登記信息 可以 用函數(shù) 4.1.3SaveIn

31、HosInfo 進(jìn)行。4.1.14. ?。ㄊ校┘夀D(zhuǎn)診 住院信息 修改Syntax:function SaveInHosInfo(AsanID, AsCoopMedCode, AsExpressID, AsPatientName: pchar; AiIDNo:eger;AsIllCode, AsIllName, AInDate, Adke, AdLimitDef, AsDoctor, AsPatientId, AsFlag, AiDiagNo, AsExpenseKind,AsLimitIllCode, DataBuffer: Pchar):Parameter:eger; stdcall;參數(shù)輸

32、入/輸出參數(shù)名是否可空類型AsanIDIN行政區(qū)劃 + $ + 帳套年度NVARCHAR(20)AsCoopMedCodeIN農(nóng)合證號NVARCHAR(18)AsExpressIDIN報(bào)銷公式 IDNVARCHAR(4)AsPatientNameIN入院NVARCHAR(10)AiIDNoIN個(gè)人序號NegerAsIllCodeIN入院(合管辦提供的疾病代碼)NVARCHAR(10)AsIllNameIN入院(合管辦提供的疾病名稱)NVARCHAR(40)AInDateIN入院日期N(YYYY-MM-DD HH:MM:SS)AdkeIN扣額 報(bào)銷公式?jīng)]有調(diào)整時(shí)：扣額YVARCHAR(12)數(shù)，

33、例 1： 原來起伏線 200，報(bào)銷比例 80；起伏線調(diào)整為 50，報(bào)銷比例增加 5，則扣額50$0.05； 報(bào)銷比例減少 5，則扣額50$ 0.05；例 2：起伏線調(diào)整為 50，報(bào)銷比例為原來報(bào)銷比例的 60，則扣額 50$*0.6）AdLimitDefIN限額定義(0不限；1限額；2)第一位為上面的三個(gè)字符（0、1、2），從第二位開始為金額，金額不為空，為空時(shí)補(bǔ) 0YVARCHAR (10)AsDoctorIN主治醫(yī)生YVARCHAR (12)AsPatientIdIN住院號+科室號+號+備注Y住院號 12 位科室 8 位號 20 位AsExpenseKindIN21-普通住院22-單病種住

34、院23正常分娩住院29其他住院90其他YVARCHAR (2)AsLimitIllCodeIN單病種疾病編碼YVARCHAR(4)當(dāng)AsExpenseKind=22 時(shí)不能為空DataBufferOut返回值VARCHAR (100)Return ：成功 0 ；失敗 0DataBuffer: 當(dāng)ASFLAG=1 修改時(shí)，DataBuffer 返回錯(cuò)誤信息或空。4.1.15. ?。ㄊ校┘夀D(zhuǎn)診 費(fèi)用明細(xì)錄入Syntax:function SaveFreeList(AsanID, AsCoopMedCode: PChar; AiIDNo, AiDiagNo:eger; AsItemCode, AsH

35、osCode,ADInputDate: pchar; AfPrice, AfNum, AfFee: Double; AsUnit, AsOfficeName, AsDoctor,pound: pchar; DataBuffer:Pchar):eger; stdcall;Parameter:序號參數(shù)名稱輸入 /輸出參數(shù)說明數(shù)據(jù)類型是否為空1AsanIDIN行政區(qū)劃+ $ + 帳套年度VARCHAR(20)N2AsCoopMedCodeIN合作醫(yī)療證號VARCHAR(20)N3AiIDNoIN戶個(gè)人序號egerN4AiDiagNoIN就醫(yī)序號egerN5AsItemCodeIN新合項(xiàng)目編碼VARC

36、HAR(20)Y6AsHosCodeIN醫(yī)院項(xiàng)目編碼VARCHAR(20)N7ADInputDateIN用藥時(shí)間(YYYY-MM-DD HH:MM:SS)N8AfPriceIN單價(jià)DoubleN9AfNumIN數(shù)量DoubleN10AfFeeIN金額DoubleN只調(diào)整起付線:扣額調(diào)整后起額 + $只調(diào)整報(bào)銷比率：扣額$ + 調(diào)整后報(bào)銷比率兩個(gè)都調(diào)整 ：扣額調(diào)整后起額 + $ +調(diào)整后報(bào)銷比率AdLimitDefIN限額定義(0不限；1限額；2；第一位為上面的三個(gè)字符（0、1、2），從第二位開始為金額，金額不為空，為空時(shí)補(bǔ) 0)NVARCHAR (10)AsDoctorNameIN主治醫(yī)生YV

37、ARCHAR (12)AsPatientIdIN住院號+科室號+號Y住院號 12 位科室 8 位號 20 位AsFlagINAsFlag 1NVARCHAR (1)AiDiagNoIN就醫(yī)序號NVARCHAR (2)AsExpenseKindIN21-普通住院22-單病種住院23-正常分娩住院29-其他住院90-其他YVARCHAR (2)AsLimitIllCodeIN單病種疾病編碼（當(dāng) AsExpenseKind=22時(shí)不能為空）YVARCHAR (4)DataBufferOUT返回值VARCHAR (100)Remarks:pound 參數(shù)是在項(xiàng)目為 藥品 時(shí)才生效。如果是草藥，則需要判

38、斷該草藥是復(fù)方還是單味，如果是單味，則pound 傳 2；如果是復(fù)方，則pound 傳 1；DataBuffer 返回費(fèi)用；Return ：成功 0 ；失敗 0住院費(fèi)用明細(xì)上傳（松滋人民醫(yī)院、省中醫(yī)院、洪湖人民醫(yī)院試用）：AsItemCode, pound: pchar;function sz_SaveFreeList(AsanID, AsCoopMedCode: PChar; AiIDNo, AiDiagNo:eger;AsHosCode, ADInputDate: pchar; AfPrice, AfNum, AfFee: Double; AsUnit, AsOfficeName, AsD

39、octor,DataBuffer: Pchar):eger; stdcall;參數(shù)說明同上表。4.1.16. ?。ㄊ校┘夀D(zhuǎn)診 刪除已上傳費(fèi)用明細(xì)（含本地和）功能描述：在新農(nóng)合系統(tǒng)中刪除住院費(fèi)用明細(xì)。調(diào)用說明：HIS 系統(tǒng)在處理費(fèi)用明細(xì)時(shí)，刪除費(fèi)用明細(xì)（當(dāng)前所有的費(fèi)用明細(xì)）。function DeleteFeeList(As stdcall;參數(shù)定義：anID, AsCoopMedCode: pchar; AiIDNo, AiDiagNo:eger; DataBuffer: pchar):eger;DataBuffer 說明：成功返回空，否則返回錯(cuò)誤信息。Return ：成功 0 ；失敗 04.

40、1.17. ?。ㄊ校┘夀D(zhuǎn)診 新農(nóng)合結(jié)算、預(yù)結(jié)算Syntax：function PreClearing(AsanID, AsCoopMedCode: pchar;AiIDNo, AiDiagNo, APreClearFlag:eger; ADayCount:eger;AOutDate, AJsDate, AOutSus, DataBuffer : Pchar):eger; stdcall;序號參數(shù)名稱輸入 /輸出參數(shù)說明數(shù)據(jù)類型最多長度是否為空備注1AsanIDIn行政區(qū)劃+ $ + 帳套年度Varchar20N2AsCoopMedCodeIn農(nóng)合證號Varchar12N3AiIDNoIn個(gè)人序

41、號N4AiDiagNoIn就醫(yī)序號N5DataBufferOut返回信息Varchar100Y11AsUnitIN量VARCHAR(10)Y12AsOfficeNameIN科室名稱VARCHAR(20)N13AsDoctorIN醫(yī)生VARCHAR(20)Y14poundIN處方標(biāo)致：2單 / 1復(fù)方VARCHAR(1)N15DataBufferOUT返回值VARCHAR(100)YParameter:結(jié)算輸出(DataBuffer)：1 醫(yī)療費(fèi)總額|2 可報(bào)銷費(fèi)用|3 報(bào)銷費(fèi)用 |4 醫(yī)院減免|5 民政|6 保險(xiǎn)金額|7 醫(yī)院承擔(dān)|8 起付線|9 保留|10單病重醫(yī)院承擔(dān)金額|11 保留|12

42、 年封頂線（省級為最大報(bào)銷額）|13 年度報(bào)銷總費(fèi)用（包含本次）注意：醫(yī)院上要反映醫(yī)院減免，醫(yī)院承擔(dān)費(fèi)用Return ：成功 0 ；失敗 0Remarks:支用=醫(yī)療費(fèi)總額醫(yī)院減免-醫(yī)院承擔(dān)報(bào)銷費(fèi)用4.1.18. ?。ㄊ校┘夀D(zhuǎn)診住院結(jié)算信息和表此函數(shù)在正式結(jié)算后調(diào)用。Syntax:function GetCalcFee(AsanID, AsCoopMedCode: pchar; AiIDNo, AiDiagNo:stdcall;Parameter:eger; DataBuffer: pchar):eger;Return ：成功 0 ；失敗 0DataBuffer 返回信息結(jié)構(gòu)：（分段符： $）

43、第一段-基本信息0 醫(yī)療證號|1 戶主|2 患者|3|4 出生年月|5 與戶主關(guān)系|6 住址|7 經(jīng)治醫(yī)院|8 入院時(shí)間|9 出院時(shí)間|10 住院天數(shù)|11 住院號|12 疾病名稱|13 年度入院次數(shù)|14 總費(fèi)用|15 可報(bào)銷費(fèi)用|16 報(bào)銷費(fèi)用|17 起付線|18 醫(yī)院|19 住院參數(shù)輸入/輸出參數(shù)名是 否可空類型AsanIDIN行政區(qū)劃 + $ + 帳套年度NVARCHAR(20)AsCoopMedCodeIN合作醫(yī)療證號NVARCHAR(20)AiIDNoIN戶個(gè)人序號NegerAiDiagNoIN就醫(yī)序號NegerDataBufferOUT返回值YVARCHAR(2000)參數(shù)輸入/

44、輸出參數(shù)名是 否可空類型AsanIDIN行政區(qū)劃 + $ + 帳套年度NVARCHAR(20)AsCoopMedCodeIN合作醫(yī)療證號NVARCHAR(20)AiIDNoIN戶個(gè)人序號NegerAiDiagNoIN就醫(yī)序號NegerAPreClearFlagIN預(yù)/結(jié)算標(biāo)致（0-預(yù)結(jié)算，1-結(jié)算）NegerADayCountIN住院天數(shù)NegerAOutDateIN出院時(shí)間N(YYYY-MM-DD HH:MM:SS)AJsDateIN結(jié)算時(shí)間N(YYYY-MM-DD HH:MM:SS)AOutSusIN出院狀態(tài)（1治愈；2好轉(zhuǎn)；3未愈；4；9其他)NVARCHAR(1)DataBufferO

45、UT返回值YVARCHAR(500)科室|20 民政|21 醫(yī)院承擔(dān)金額|22 保留|24 保留|25 保留|26 保留第二段-住院醫(yī)療費(fèi)用(#分割)0 費(fèi)用編碼| 1 費(fèi)用名稱| 2 費(fèi)用金額| 3 納入補(bǔ)償費(fèi)用| 4 報(bào)銷費(fèi)用第三段報(bào)銷公式及分段核算分段線可報(bào)銷費(fèi)用報(bào)銷比例報(bào)銷費(fèi)用4.1.19. ?。ㄊ校┘夀D(zhuǎn)診 數(shù)據(jù)回寫當(dāng)?shù)睾瞎苻k 服務(wù)器功能描述： 回寫調(diào)用說明：信息 到 當(dāng)?shù)睾瞎苻k 服務(wù)器function zzGetDataBack(AanID, aAreaCode, aCoopMedCode: PChar; aIDNo, aDiagNo:eger; aExpressId:PChar;

46、DataBuffer: PChar):eger; stdcall;參數(shù)定義：Return：成功 0；失敗 0DataBuffer：返回錯(cuò)誤信息。4.1.20. ?。ㄊ校┘夀D(zhuǎn)診已經(jīng)回寫當(dāng)?shù)氐臄?shù)據(jù)功能描述：調(diào)用說明：當(dāng)?shù)睾瞎苻k服務(wù)器的回寫數(shù)據(jù)function zzBack_ClearData(A eger; stdcall;參數(shù)定義：anID, aAreaCode, aCoopMedCode, aIDNo, aDiagNo: PChar; DataBuffer: PChar):Return：成功 0；失敗 0DataBuffer：返回錯(cuò)誤信息。4.1.21. ?。ㄊ校┘夀D(zhuǎn)診 取消住院結(jié)算Synta

47、x:function CanceCalcFee(As eger; stdcall;Parameter:anID, AsCoopMedCode: pchar; AiIDNo, AiDiagNo:eger; DataBuffer: pchar):參數(shù)輸入/輸出參數(shù)名是否可空類型AanIDIN行政區(qū)劃$年度NVarcahr(100)aAreaCodeIN所屬區(qū)劃NVarchar(10)aCoopMedCodeIN農(nóng)合證號NVarchar(20)aIDNoIN個(gè)人序號NVarchar(5)aDiagNoIN就醫(yī)序號NVarchar(5)DataBufferOut返回值Varchar(500)參數(shù)輸入/

48、輸出參數(shù)名是否可空類型AanIDIN行政區(qū)劃$年度NVarcahr(100)aAreaCodeIN所屬區(qū)劃NVarchar(10)aCoopMedCodeIN農(nóng)合證號NVarchar(20)aIDNoIN個(gè)人序號NegeraDiagNoIN就醫(yī)序號NegeraExpressIdIN報(bào)銷公式NVarchar(10)DataBufferOut返回值Varchar(500)Return ：成功 0 ；失敗 04.1.22. ?。ㄊ校┘夀D(zhuǎn)診 取消住院登記（農(nóng)合轉(zhuǎn)自費(fèi)）功能描述：取消住院登記 信息（含明細(xì)）調(diào)用說明：住院登記時(shí)調(diào)用。function zzDeleteHosInfo(AsanID, aAr

49、eaCode, aCoopMedCode:PChar; aIDNo,aDiagNo:eger; DataBuffer:pchar):eger; stdcall;參數(shù)定義：Return：成功 0；失敗 0DataBuffer 說明：錯(cuò)誤信息 或 空。4.1.23. 住院 上傳明細(xì)后的處理（僅針對直接寫前置機(jī)記帳明細(xì)表后的處理工作）Syntax:sFeeList(AsProanID, AsCoopMedCode: pchar; AiIDNo, AiDiagNo:eger;DataBuffchar):eger; stdcall;說明：如果存在大量數(shù)據(jù)，就可以對前置機(jī)中直接寫表o_CbZyBxDjZb

50、，表說明如下：anID CoopMedCodeCode IDNoDiagNo FeeNo ItemCode itemname PRICE NUM FEEOfficeName RecipeNo YyDateGrade行政區(qū)劃農(nóng)合號 1個(gè)人序號就醫(yī)序號【字符 12 位】【字符 10 位】【整數(shù)】【整數(shù)】費(fèi)用序號順序數(shù)據(jù) 1,2,3.0【整數(shù)】【字符 80 位】【Float4 位小數(shù)】【小于 10000 的小數(shù)，4 位小數(shù)】【Float4 位小數(shù)】【字符 40 位】【字符 12 位】【日期 yyyy-MM-ddHH:mm:ss】醫(yī)院項(xiàng)目名稱單價(jià)數(shù)量金額記帳科室處方號 用藥時(shí)間 0參數(shù)輸入/輸出參數(shù)名

51、是否可空類型AsanIDIN行政區(qū)劃+ $ + 帳套年度NVarchar(20)aAreaCodeIN所屬區(qū)劃NVarchar(12)aCoopMedCodeIN農(nóng)和證號NVarchar(18)aIDNoIN個(gè)人序號NaDiagNoIN就醫(yī)序號NDataBufferOut返回值Varchar(100)參數(shù)輸入/輸出參數(shù)名是 否可空類型AsanIDIN行政區(qū)劃 + $ + 帳套年度NVARCHAR(20)AsCoopMedCodeIN合作醫(yī)療證號NVARCHAR(20)AiIDNoIN戶個(gè)人序號NegerAiDiagNoIN就醫(yī)序號NegerDataBufferOUT返回值YInputDate

52、HosCode Compound GGFeetypecodefeetypename記帳時(shí)間醫(yī)院項(xiàng)目編碼 單復(fù)方(2 單方, 1醫(yī)院項(xiàng)目規(guī)格 00【日期 yyyy-MM-ddHH:mm:ss】【字符 20 位】復(fù)方)【字符 40 位】每次寫完數(shù)據(jù)提交后，需再調(diào)用 ProsFeeList 進(jìn)行數(shù)據(jù)處理。ProsFeeList(AsanID, AsCoopMedCode: pchar; AiIDNo, AiDiagNo:eger;DataBuffchar):eger; stdcall;注意：如果直接寫前置機(jī)明細(xì)，就不再使用 SaveFreeList 函數(shù)4.1.24. 獲取基礎(chǔ)信息到 前置機(jī) 數(shù)據(jù)庫

53、中功能描述：調(diào)用說明：基礎(chǔ)數(shù)據(jù)到 前置機(jī) 數(shù)據(jù)庫中function GetParmItemToDB(As參數(shù)定義：anID, AsKind, DataBuffer: pchar):eger;stdcall;Return：成功 0；失敗 0； DataBuffer： 出錯(cuò)返回提示信息。表名稱及機(jī)構(gòu)定義如下：行政區(qū)劃、帳套年度（這個(gè)信息不用，可直接使用）；表名：P_hiSet；字段說明（Year 年度，anID 區(qū)劃號，anName 區(qū)劃名稱）1：疾病代碼表；表名：p_Illness ；字段說明 (音碼，F(xiàn)iveStrokes 五筆碼，If_Modified 修改標(biāo)識)anID 區(qū)劃號，IllCo

54、de 疾病，Illname 疾病名稱，Spell 拼2：報(bào)銷公式目錄；表名：p_ZybxGs ；字段說明（anID 區(qū)劃號，Year年度，ExpressID 公式，ExpressName 公式名稱）3：報(bào)銷項(xiàng)目目錄；表名：p_bxxm；字段說明（SpName 別名，Spell 拼音碼，F(xiàn)iveStrokes 五筆碼，UnitanID 區(qū)劃號，ItemCode 項(xiàng)目，ItemName 項(xiàng)目名稱，Gg 規(guī)格，CD 產(chǎn)地，JX 劑型，WipeOut 是否可報(bào)（1 可報(bào)，2 不可報(bào)），Acs 使用范圍（1 門診，2 住院，3 慢?。?，grade 用藥等級，Price1 一級單價(jià)，Price2二級單價(jià)，Price3 三級單價(jià)，LimitPrice1 一級限價(jià)，LimitPrice2 二級限價(jià)，LimitPrice3 三級限價(jià)， GradeToPrice 限價(jià)級別標(biāo)識，Remark 備注，F(xiàn)eeTypeCode 類別WjCode 物價(jià)編碼），F(xiàn)eeTypeName 類別名稱，Valid 是否停用（1 使用，2 停用），4：醫(yī)院對應(yīng)項(xiàng)目；表名：p_hihositem；