美康合理用藥的操作說明嵌入技術(shù)2010版

1、第一節(jié) PASS 系統(tǒng)功能PASS 主要為醫(yī)院醫(yī)護提供用藥和藥品信息功能，具體如下：1、根據(jù)用藥基本情況信息、過敏史/狀態(tài)信息、用藥信息進行合理用藥，審查項目包括：（1）、與uuu類的與，主要包括： 相互作用（包括重復成份重復用藥和重復治療）注射劑體外配伍（2）、與病癥類uuu癥副作用過敏史（3）、特殊人群用藥警告類uuuu老年用藥 兒童用藥 妊娠期用藥哺乳期用藥（4） 、用法、用量類u 給藥途徑（包括藥品與給藥途徑和劑型與給藥途徑）u 劑量查）信息（包括對每次劑量、劑量、頻次、持續(xù)時間、終生積累量審2、PASS 系統(tǒng)主要提供以下信息的功能：uuuuuuuuuuuuuuu臨床信息參考藥品說明書

2、信息用藥教育信息藥典信息檢驗值信息相互作用信息與相互作用信息注射劑體外配伍信息癥信息副作用信息兒童用藥警告信息 老年用藥警告信息 妊娠期用藥警告信息哺乳期用藥警告信息信息中心3、為了準確進行過敏史及與病癥類，PASS 系統(tǒng)還提供過敏史及病生第 2 頁 共 68 頁狀態(tài)標準管理功能。4、 進行用藥研究：向醫(yī)學提供進行合理用藥研究的操作功能。第 3 頁 共 68 頁第二節(jié)PASS 系統(tǒng)在醫(yī)院 HIS 系統(tǒng)中的應用結(jié)構(gòu)圖一、PASS 系統(tǒng)在醫(yī)院 HIS 系統(tǒng)應用模式示意圖住院醫(yī)生工作站門診醫(yī)生工作站1、 加入PASS 系統(tǒng)過敏史、病生狀態(tài)功能。1、 加入PASS 系統(tǒng)過敏史、病生狀態(tài)功能。2、 加入

3、 PASS 系統(tǒng)標準右鍵彈出菜單功能2、 加入 PASS 系統(tǒng)標準右鍵彈出菜單功能3、 保存醫(yī)囑時，加入自動功能，并要求3、 保存處方時，加入自動功能，并要求HIS 系統(tǒng)根據(jù) PASS 系統(tǒng)結(jié)果進行警示變色。4、 點擊黑、紅、橙、黃警示燈時，系統(tǒng)自動彈HIS 系統(tǒng)根據(jù) PASS 系統(tǒng)結(jié)果進行警示變色。4、 點擊黑、紅、橙、黃警示燈時，系統(tǒng)自動彈出“藥品（可選）。結(jié)果簡要提示信息浮動窗口”出“藥品（可選）。結(jié)果簡要提示信息浮動窗口”5、 加入“藥品信息能（可選）。6、 通過 PASS 系統(tǒng)客戶端程序以 DCOMPASS 服務程序。浮動窗口”自動彈出功5、 加入“藥品信息能（可選）。浮動窗口”自動

4、彈出功6、 通過 PASS 系統(tǒng)客戶端程序以 DCOMPASS 服務程序。PASS 系統(tǒng)服務器1、 PASS 系統(tǒng)數(shù)據(jù)（1）、SQL Server 或 Oracle 數(shù)據(jù)庫HIS 服務器與 PASS 系統(tǒng)相關(guān)數(shù)據(jù)1、 在門診處方、住院醫(yī)囑表中加入結(jié)果字段。（2）、系統(tǒng)數(shù)據(jù)2、 在藥品、給藥途徑字典所在數(shù)據(jù)庫中加入 PASS 系統(tǒng)配對結(jié)果表。3、 根據(jù) HIS 藥品、給藥途徑字典表和 PASS 系統(tǒng)配對結(jié)果表生成配對情況視圖。（3）、醫(yī)院藥品、給藥途徑配對結(jié)果數(shù)據(jù)（4）、自動結(jié)果數(shù)據(jù)2、 PASS 系統(tǒng)服務程序（1） 、以 ADO 方式連接數(shù)據(jù)庫（2） 、建立 Medicom DIFPASSCo

5、re Service 和Medicom DIFPASSHelper Service 服務PASS 配對工作站HIS 系統(tǒng)數(shù)據(jù)庫進行HIS 藥品、給藥途徑及配結(jié)果統(tǒng)計分析工作站PASS 系統(tǒng)數(shù)據(jù)庫進行1、 直接1、 直接結(jié)果、統(tǒng)計。2、 通過 PASS 系統(tǒng)客戶端程序以對結(jié)果信息。2、 通過 PASS 系統(tǒng)客戶端程序以DCOM供PASS 服務程序來提功能。DCOM提供PASS 服務程序來配對功能。頁 共 68 頁3、程序由美康公司直接提供3、 程序由美康公司直接提供PASS 系統(tǒng)在醫(yī)院中的應用主要包括以下幾部分：1、PASS 系統(tǒng)服務器為了保證 HIS 系統(tǒng)、PASS 系統(tǒng)的安全性和“PASS

6、服務器”的應用方式。性，要求醫(yī)院采用服務器作PASS 系統(tǒng)服務器主要用于安裝“PASS 系統(tǒng)數(shù)據(jù)庫”和“PASS 系統(tǒng)服務程序”。PASS 系統(tǒng)數(shù)據(jù)庫可以是 Sql Server 或Oracle，主要包括“PASS 系統(tǒng)、查詢系統(tǒng)數(shù)據(jù)”、“醫(yī)院藥品、給藥途徑配對數(shù)據(jù)”和“自動數(shù)據(jù)”。安裝 PASS 系統(tǒng)服務程序后，系統(tǒng)自動在服務器中建立“Medicom DIFPASSCore Servic”、“Medicom DIFPASSHelper Service”服務項目，服務程序通過 ADO 與 PASS 數(shù)據(jù)庫連接。2、 嵌入 PASS 功能的住院（門診）醫(yī)生工作站為了實現(xiàn) PASS 系統(tǒng)對 HIS

7、用藥自動、實時和功能，要求 HIS 醫(yī)生工作站嵌入PASS 系統(tǒng)提供的DLL 函數(shù)來加入PASS 系統(tǒng)提供的功能，嵌入具體要求如下：ØØØ加入 PASS 系統(tǒng)過敏史、病生狀態(tài)管理功能加入 PASS 系統(tǒng)標準右鍵彈出菜單功能保存處方時，加入 PASS 自動功能，并要求 HIS 系統(tǒng)根據(jù) PASS 系統(tǒng)結(jié)果進行警示變色。另外，PASS 系統(tǒng)自動將出的不合理用藥結(jié)果保存到 PASS系統(tǒng)服務器，以便醫(yī)院管理層、專業(yè)析。對 PASS結(jié)果進行、統(tǒng)計分ØØ加入“藥品信息浮動窗口”自動彈出功能。（可選）點擊黑、紅、橙、黃警示燈時，系統(tǒng)自動彈出“藥品動窗口”。（

8、可選）結(jié)果簡要提示信息浮注意：通過 PASS 系統(tǒng)客戶端程序以 DCOMPASS 服務程序，所以住院（門診）醫(yī)生工作站只需安裝 PASS 系統(tǒng)客戶端程序，不需安裝數(shù)據(jù)庫客戶連接程序。3、PASS 配對工作站為了讓 PASS 能正確、全面識別從 HIS 系統(tǒng)傳入的用藥情況信息，PASS 系統(tǒng)需要預先建立 HIS 系統(tǒng)藥品數(shù)據(jù)字典和給藥途徑數(shù)據(jù)字典的對應關(guān)系表，建立對應關(guān)系表的過程稱為配對，安裝配對程序的工作站叫做 PASS 配對工作站。PASS 系統(tǒng)配對項目主要包括“藥品配對”和“給藥途徑配對”，藥品配對主要建立藥品名稱、劑型、給藥的對應關(guān)系。之間的對應關(guān)系，給藥途徑配對主要要求建立給藥途徑之間

9、為了讓醫(yī)院能盡快實施和使用 PASS，美康公司要求醫(yī)院在工程實施前以電子文檔方式提供醫(yī)院 HIS 系統(tǒng)中的藥品、給藥途徑數(shù)據(jù)字典表，然后由美康公司專業(yè)負責完成藥品、給藥途徑的配對工作，并將配對結(jié)果直接打包到 PASS 系統(tǒng)安裝光盤數(shù)據(jù)庫中。對于安裝完 PASS 系統(tǒng)后醫(yī)院新進藥品，美康公司提供的配對工具程序，以便醫(yī)院專業(yè)及時完成新進藥品配對，保證 PASS 系統(tǒng)能對醫(yī)院藥品信息進行準確、全面的。4、結(jié)果統(tǒng)計分析工作站前面提到，PASS 系統(tǒng)在醫(yī)生工作站對用藥自動時，會自動將出的不合理用藥結(jié)果保存到 PASS 系統(tǒng)服務器。美康公司提供的“結(jié)果統(tǒng)計分析工作站”第 5 頁 共 68 頁就是供醫(yī)院管理

10、層、專業(yè)對全院結(jié)果進行全面、準確統(tǒng)計分析的程序，醫(yī)性地制定出院管理層、專業(yè)通過此程序可以了解、掌握全院醫(yī)生用藥情況，有有效的用藥管理措施。第 6 頁 共 68 頁第三節(jié) PASS 系統(tǒng)工程實施前準備一、向美康公司提供醫(yī)院藥品、給藥途徑字典數(shù)據(jù)為了讓醫(yī)院能盡快實施和使用 PASS，美康公司要求醫(yī)院在工程實施前以電子文檔(EXCEL 表格)方式向美康公司提供醫(yī)院 HIS 系統(tǒng)中的藥品、給藥途徑數(shù)據(jù)字典數(shù)據(jù)，以便美康公司專業(yè)在工程實施前完成藥品、給藥途徑的初始配對，初始配對結(jié)果將直接打包到 PASS 系統(tǒng)安裝光盤數(shù)據(jù)庫中。醫(yī)院信息科將醫(yī)院藥品、給藥途徑數(shù)據(jù)字典，以 EXCEL 表格發(fā)到美康公司技術(shù)支

11、持部郵箱（:support：）。藥品數(shù)據(jù)字典項目要求：uuuuuu藥品唯 藥品名稱劑型名稱（注意不能是代碼）規(guī)格最小制劑拼音碼名稱（注意不能是代碼）藥品數(shù)據(jù)字典樣例：藥品唯2415243024524662542259126072620264926542678269027592769278627942830284228432908藥品名稱頭孢曲松鈉(亞松) 膽清膠囊甲基強的松龍?zhí)妓釟溻c片洛賽克膠囊(健擇)鹽酸吉西他濱針卡維地洛片格利福斯針易思清虎力散膠囊維腦路通片定克斯膠囊肝炎靈針(博寧)帕米磷酸二鈉針清開靈針(諾為)馬來酸曲美布汀片(康銳)氟康唑片(培達)西洛他唑片粉塵螨針芬太尼針拼音碼TBQ

12、SN DQJN JJQDSL TSQNP LSKJN JZZ KWDLP GLFSZ YSQ HLSJN WNLTP DKSJN GYLZ BN QKLZ NWP FKZP PDP FCMZFTNZ劑型名稱針劑膠囊 針劑 片劑 膠囊 注射液片劑 針劑 口服液膠囊 片劑 膠囊 針劑 針劑 針劑 片劑 片劑 片劑 針劑針劑規(guī)格0.5g60's40mg 0.3*100020mg*14 1g 10mg*2810ml*10 100ml 0.3g*80.1g*1000.1g*6 2ml*10 15mg 10ml*5 20's50mg*6 50mg*12 1ml*100.5mg*2最小制劑g

13、 粒 mg g mg g mg ml ml g g g ml mg ml粒 mg mg mlmg名稱第 7 頁 共 68 頁給藥途徑字典項目（注：給藥途徑指給藥方法，也稱用法，例如“口服”、“肌注”等）：u 給藥途徑名稱u 拼音碼給藥途徑數(shù)據(jù)字典樣例：給藥途徑名稱口服肌注靜滴拼音碼KfJz Jd軍衛(wèi)一號 HIS 系統(tǒng)醫(yī)院藥品、給藥途徑字典數(shù)據(jù)要求：1、 老藥品結(jié)構(gòu)醫(yī)院藥品數(shù)據(jù)：（1） 、藥品數(shù)據(jù)要求：pham_basic_info 表中的 pham_code、pham_name、pham_name、dose_unit 字段， 對應的 sql 語句為：select pham_code,pham_

14、name,pham_name,dose_unit from pham_basic_info;（2） 、給藥途徑數(shù)據(jù)要求：administration_dict 表中的 administration_name、input_code 字段，對應的 sql 語句為：select administration_name,input_code fromadministration_dict;2、 新藥品結(jié)構(gòu)醫(yī)院藥品數(shù)據(jù)：（1） 、藥品數(shù)據(jù)要求：DRUG_DICT 表中的 drug_code、drug_name、drug_form、dose_units 字段，對應的 sql 語句為：select drug

15、_code, drug_name, drug_form, dose_units fromDRUG_DICT;（2） 、給藥途徑數(shù)據(jù)要求：administration_dict 表中的 administration_name、input_code 字段，對應的 sql 語句為：select administration_name,input_code fromadministration_dict;二、填寫“PASS 合理用藥客戶表”詳見“ PASS 合理用藥客戶:support表”， 填寫好后， 請盡快發(fā)到美康公司郵箱（：）。三、醫(yī)院準備好 PASS 系統(tǒng)服務器為了保證 HIS 系統(tǒng)、PASS

16、 系統(tǒng)的安全性和服務器”的應用方式。性，要求醫(yī)院采用服務器作“PASS第 8 頁 共 68 頁四、協(xié)調(diào)好 HIS 系統(tǒng)技術(shù)在配合工作為了實現(xiàn) PASS 系統(tǒng)對 HIS用藥自動、實時和功能，要求 HIS 技術(shù)在美康公司技術(shù)的配合下，完成 HIS 系統(tǒng)相關(guān)模塊 PASS 系統(tǒng)功能的嵌入工作。第 9 頁 共 68 頁四、PASS 系統(tǒng)工程實施1、正確安裝PASS 系統(tǒng)服務器，具體參見“PASS 系統(tǒng)服務器安裝手冊”：（1） 、正確安裝操作系統(tǒng) Windows 2000+sp4 或 windows2003+sp2。（2） 、正確安裝 SQL SERVER 2000+sp4 或 SQL SERVER20

17、05 或 oracle 數(shù)據(jù)庫。（3） 、正確恢復 PASS 系統(tǒng)數(shù)據(jù)庫 medicomdif、medicomsave。（4） 、正確安裝 PASS 系統(tǒng)服務器程序。2、在工作站正確安裝 PASS 系統(tǒng)客戶端程序，具體參見“PASS 系統(tǒng)客戶端安裝手冊”，PASS客戶端一般安裝在 C:passclient 目錄下。3、在 HIS 系統(tǒng)門診、住院醫(yī)生工作站正確嵌入 PASS 系統(tǒng)、功能。4、按 PASS 系統(tǒng)要求在 HIS 系統(tǒng)數(shù)據(jù)庫中建立藥品、給藥途徑配對視圖。5、在藥庫安裝 PASS 系統(tǒng)配對工作站程序。6、在藥劑科安裝 PASS 系統(tǒng)結(jié)果統(tǒng)計分析程序。第 10 頁 共 68 頁第五節(jié)、PA

18、SS 系統(tǒng)在醫(yī)院醫(yī)生工作站的嵌入一、PASS 系統(tǒng)醫(yī)生工作站軟件結(jié)構(gòu)示意圖PASS系統(tǒng)服務程序PASS客戶端程序PASS系統(tǒng)應用程序PASS 系統(tǒng)數(shù)據(jù)（SQLServer 或Oracle）ADO 連接DCOM 連接DLL 函數(shù)調(diào)用1、PASS 系統(tǒng)服務器主要用于安裝“PASS 系統(tǒng)數(shù)據(jù)庫”和“PASS 系統(tǒng)服務程序”。PASS系統(tǒng)服務程序通過 ADOPASS 系統(tǒng)數(shù)據(jù)庫。2、PASS 系統(tǒng)客戶端程序以 DCOMPASS 服務程序，所以住院（門診）醫(yī)生工作站只需安裝 PASS 系統(tǒng)客戶端程序，不需安裝數(shù)據(jù)庫客戶連接程序。3、HIS 系統(tǒng)程序通過嵌入 PASS 系統(tǒng)提供的 DLL 函數(shù)來加入 PA

19、SS 系統(tǒng)提供的功能。第 11 頁 共 68 頁PASS 系統(tǒng)工作站PASS 系統(tǒng)服務器二、嵌入目標示意圖1、“過敏史/病生狀態(tài)”按鈕5、PASS結(jié)果警示燈6、藥品3、PASS 右鍵彈出式菜單4、保存 PASS 系統(tǒng)自動2、藥品信息查詢浮動窗口結(jié)果簡要提示信息浮動窗口1、在醫(yī)囑錄入界面中加入“過敏史/病生狀態(tài)”管理按鈕，以便按 PASS 系統(tǒng)標準進行過敏史/病生狀態(tài)管理。2、點擊藥品時，系統(tǒng)自動彈出“藥品信息浮動窗口”，提供藥品簡要提示信息、藥用藥教育、PASS 系統(tǒng)幫助等信息的查物臨床信息參考、藥品說明書、詢功能。信息中心、3、以右鍵彈出菜單方式提供 PASS 系統(tǒng)、功能。4、在保存醫(yī)囑前，

20、實現(xiàn)對當天所用醫(yī)囑合理用藥功能。5、HIS 系統(tǒng)醫(yī)囑界面增加“PASS 系統(tǒng)度進行變燈處理。結(jié)果警示燈”列，以便后能根據(jù)嚴重程6、點擊黑、紅、橙、黃警示燈時，系統(tǒng)自動彈出“藥品口”。結(jié)果簡要提示信息浮動窗三、嵌入前的準備工作1、 正確安裝好 PASS 服務器，安裝方法與步驟參見“PASS 系統(tǒng)服務器安裝手冊”。2、 正確安裝好 PASS 客戶端程序，安裝方法與步驟參見“PASS 系統(tǒng)客戶端程序安裝第 12 頁 共 68 頁手冊”，PASS 客戶端一般安裝在 C:passclient 目錄下。3、 拷貝嵌入所必須文件（主要是警示燈圖標文件，DLL 相關(guān)文件安裝自動實現(xiàn)）。四、HIS 系統(tǒng)是否調(diào)用

21、 PASS 功能方案與設置1、 在 HIS 系統(tǒng)數(shù)據(jù)庫中可分別加入在門診醫(yī)生工作站、住院醫(yī)生工作站、藥房工作站“是否調(diào)用 PASS 系統(tǒng)”功能的數(shù)據(jù)，以便通過 HIS 數(shù)據(jù)庫來各工作站是否調(diào)用 PASS 系統(tǒng)功能，要求可如下表所示：2、在嵌入 PASS 功能工作站的 PASS.INI 文件中加入本機是否調(diào)動 PASS 系統(tǒng)功能的設置參數(shù)，INI 中要求至少具有如下 3 項設置：A、 本地不調(diào)用 PASS 系統(tǒng)功能。B、本地要調(diào)用 PASS 系統(tǒng)功能，但還要受 HIS 系統(tǒng)數(shù)據(jù)庫 PASS 參數(shù)設置的C、本地要調(diào)用 PASS 系統(tǒng)功能，但不受 HIS 系統(tǒng)數(shù)據(jù)庫 PASS 參數(shù)設置的主要用于全院

22、關(guān)閉 PASS 系統(tǒng)功能調(diào)用的情況下，進行軟件調(diào)試用；，特別注意：為了方便使用，當 PASS.ini 文件不存在時，此值取為 1 。PASS PASS = 1;0: 表示不調(diào)用 PASS 系統(tǒng)功能；;1: 表示要調(diào)用 PASS 系統(tǒng)功能，但還要受 HIS 系統(tǒng)數(shù)據(jù)庫 PASS 參數(shù)設置的；;100: 表示要調(diào)用 PASS 系統(tǒng)功能，但不受 HIS 系統(tǒng)數(shù)據(jù)庫 PASS 參數(shù)設置的，主要用于全院關(guān)閉 PASS 系統(tǒng)功能調(diào)用的情況下，進行軟件調(diào)試用；4、為了 HIS 系統(tǒng)的安全性，一般最好要求進行動態(tài) DLL 調(diào)用。第 13 頁 共 68 頁參數(shù)名字段參數(shù)值字段PARAMETER_NAMEPARA

23、METER_VALUEMZ_PASS1：表示門診醫(yī)生站調(diào)用PASS 功能；0：表示門診醫(yī)生站調(diào)不調(diào)用PASS 功能；ZY_PASS1：表示住院醫(yī)生站調(diào)用PASS 功能；0：表示住院醫(yī)生站調(diào)不調(diào)用PASS 功能；YF_PASS1：表示藥房工作站調(diào)用PASS 功能；0：表示藥房工作站調(diào)不調(diào)用PASS 功能；五、門診、住院醫(yī)生工作站嵌入步驟第一步：加入 PASS DLL 函數(shù)為方便嵌入，下面分別提供了 Powerbuilder、VB、Delphi、C#開發(fā)語言中 DLL 函數(shù)聲明文本，可直接拷貝文本來完成函數(shù)：（零） 最新加入：C#語言中 PASS 系統(tǒng) DLL 函數(shù)注意事項：1、PASS 系統(tǒng)客戶

24、端文件一般統(tǒng)一安裝在“c:passclient”目錄下，為了提高靈活性，建議在 HIS 系統(tǒng) INI 文件中設置 PASS 客戶端目錄，例如：Passdllfile = c:passclient2、C#函數(shù)/*美康嵌入代碼開始（DLL 函數(shù)）*string sPassClientPath string sPassDllfilesPassClientPath =/PASS 客戶端安裝目錄/PASS 客戶端 DLL 文件/取 INI 文件中設置的 PASS 客戶端安裝目錄sPassDllfile = sPassClientPath + "DIFPassDll.dll"DllIm

25、port(sPassDllfile)publicstaticexternintPassInit(StringBuilderUserName,StringBuilderDepartMentName,int WorkStationType);DllImport(sPassDllfile)public static extern int PassGetState (string QueryItem);DllImport(sPassDllfile)public static extern int PassSetPatientInfo(string cPatientID,/IDstring cVisit

26、ID,/住院次數(shù)，如果傳“”，則系統(tǒng)認為是“1”string cPatientName,/string cSex, string cBirthday, string cWeight,string cHeight,/出生日期，必須傳，才能審劑量/體重/身高strinstrineptName, /科室名稱octor,/醫(yī)生string cOutHospitalDate/出院日期);DllImport(sPassDllfile )第 14 頁 共 68 頁public static extern int PassDoCommand(int iCommandNo);DllImport(sPassDll

27、file)public static extern int PassSetRecipeInfo( string cOrderUniqueCode , /醫(yī)囑唯strinstrinrugCode ,rugName ,/藥品唯/藥品名稱/每次劑量/劑量/頻次，格式要求：n 天m 次，傳"m/n"）/開始日期（格式要求"yyyy-mm-dd"）/如果不傳開囑string cSingleDose ,strinoseUnit,string cFrequency string cStartDate ,日期，系統(tǒng)則默認為當天。string cEndDate日期，系統(tǒng)則

28、默認為當天。,/停囑日期格式要求"yyyy-mm-dd"）/如果不傳開囑string cRouteName , string cGroupTag,傳"mdc" + 數(shù)組下標作為下一組的標記string cOrderType , string cOrderDoctor);/給藥途徑名稱/成組標記，如果成組醫(yī)囑標記傳空，系統(tǒng)自動/ 1 臨時醫(yī)囑 0 或空長期醫(yī)囑/下囑醫(yī)生 ID下囑醫(yī)生DllImport(sPassDllfile)public static extern int PassSetControlParam( int SaveCheckResult

29、,int AllowAllegen, int CheckMode, int DisqMode,int UseDiposeIdea);DllImport(sPassDllfile)public static extern int PassS string AllergenIndex, string AllergenCode, string AllergenDesc, string AllergenType, string Reaction);lergenInfo(DllImport(sPassDllfile)public static extern int PassSetMedCond( str

30、ing MedCondIndex,string MedCondCode,第 15 頁 共 68 頁string MedCondDesc, string MedCondType, string StartDate, string EndDate);DllImport(sPassDllfile)public static extern int PassSetQueryDrug( string DrugCode,string DrugName, string DoseUnit, string RouteName);DllImport(sPassDllfile)public static extern

31、 int PassSetFloatWinPos( int left,int top, int right,int bottome);DllImport(sPassDllfile)public static extern int PassGetWarn(string DrugUniqueCode);DllImport(sPassDllfile)public static extern int PassSetWarnDrug(string DrugUniqueCode);/*美康嵌入代碼結(jié)束（DLL 函數(shù)）*（一）、PASS 系統(tǒng) DLL 函數(shù)在 PowerBuilder 中文本1、導入 str_

32、Rect 結(jié)構(gòu)體定義文件 str_rect.srs，完成 str_Rect 結(jié)構(gòu)體定義。2、拷貝 PASS 系統(tǒng) DLL 函數(shù)/*美康嵌入代碼開始（DLL 函數(shù)/1、PASS 初始化）*Function Int PassInit(String UserName,&String DepartMentName,&Int WorkstationType) Library "DIFPassDll.dll"/2、PASS 運行模式設置Function IntPassSetControlParam(Int SaveCheckResult,&Int AllowAl

33、legen,&第 16 頁 共 68 頁Int Int IntCheckMode,& DisqMode,&UseDiposeIdea) Library "DIFPassDll.dll"/3、傳Function基本信息Int PassSetPatientInfo(String PatientID,&String String String String String String String String String藥品信息VisitID,& Name,& Sex,& Birthday,& Weight,&a

34、mp; cHeight,&DepartMentName,& Doctor,&LeaveHospitalDate) Library "DIFPassDll.dll"/4、傳FunctionIntPassSetRecipeInfo(String OrderUniqueCode,&String String String String String String String String String String String過敏史DrugCode, & DrugName,& SingleDose,& DoseUnit,

35、& Frequency,& StartOrderDate,& StopOrderDate, & RouteName,& GroupTag,& OrderType,&OrderDoctor)Library"DIFPassDll.dll"/5、傳入Function IntPassSstring string string stringlergenInfo(stringAllergenIndex,& AllergenCode,&AllergenDesc,& AllergenType,&Reac

36、tion)Library"DIFPassDll.dll"/6、傳入病生狀態(tài)Function IntPassSetMedCond(stringMedCondIndex,&string string string string string 藥品傳入MedCondCode,& MedCondDesc,& MedCondType,& StartDate,&EndDate)Library "DIFPassDll.dll"/7、信息Function IntPassSetQueryDrug(stringstring strin

37、g stringDrugCode,& DrugName,& DoseUnit,&RouteName) Library "DIFPassDll.dll"/8、獲取右鍵菜單是否可用值FunctionIntPassGetState(string QueryItemNo) Library "DIFPassDll.dll"/9、PASS 功能調(diào)用Function IntPassDoCommand(Int CommandNo) Library "DIFPassDll.dll"/10、獲取藥品警示級別Function Int

38、PassGetWarn(String DrugUniqueCode) Library "DIFPassDll.dll"第 17 頁 共 68 頁/11、設置藥品浮動窗口位置Function IntPassSetFloatWinPos(Int left,Int top,Int right,Int bottom) Library "DIFPassDll.dll"/12、設置需要進行單藥警告的藥品Function IntPassSetWarnDrug(string DrugUniqueCode) Library"DIFPassDll.dll"

39、;/13、Windows API 取坐標Function"user32.dll"booleanGetWindowRect(ulonghwnd,refstr_Rectrect)LIBRARY/*美康嵌入代碼結(jié)束（DLL 函數(shù)）*（二）、PASS 系統(tǒng) DLL 函數(shù)在 VB 中文本/*美康嵌入代碼開始（DLL 函數(shù)Option Explicit'2、PASS 初始化）*Public Declare Function PassInit Lib "DIFPassDll.dll" _(ByVal UserName As String, _ByVal Dep

40、artMentName As String, _ByVal WorkstationType As Integer) As Integer'3、PASS 運行模式設置Public Declare Function PassSetControlParam Lib "DIFPassDll.dll" _(ByVal SaveCheckResult As Integer, _ ByVal AllowAllegen As Integer, _ ByVal CheckMode As Integer, _ ByVal DisqMode As Integer, _ByVal UseD

41、iposeIdea As Integer) As Integer'4、傳基本信息Public Declare Function PassSetPatientInfo Lib "DIFPassDll.dll" _ (ByVal PatientID As String, _ByVal VisitID As String, _ ByVal Name As String, _ ByVal Sex As String, _ ByVal Birthday As String, _ ByVal Weight As String, _ ByVal cHeight As String

42、, _ByVal DepartMentName As String, _ ByVal Doctor As String, _ByVal LeaveHospitalDate As String) As Integer'5、傳藥品信息Public Declare Function PassSetRecipeInfo Lib "DIFPassDll.dll" _ (ByVal OrderUniqueCode As String, _ByVal DrugCode As String, _ ByVal DrugName As String, _ ByVal SingleDos

43、e As String, _ByVal DoseUnit As String, _第 18 頁 共 68 頁ByVal Frequency As String, _ ByVal StartOrderDate As String, _ ByVal StopOrderDate As String, _ ByVal RouteName As String, _ ByVal GroupTag As String, _ ByVal OrderType As String, _ByVal OrderDoctor As String) As Integer'6、傳入過敏史Public Declare

44、 Function PassSlergenInfo Lib "DIFPassDll.dll" _(ByVal AllergenIndex As String, _ ByVal AllergenCode As String, _ ByVal AllergenDesc As String, _ ByVal AllergenType As String, _ ByVal Reaction As String) As Integer'7、傳入病生狀態(tài)Public Declare Function PassSetMedCond Lib "DIFPassDll.dll

45、" _(ByVal MedCondIndex As String, _ ByVal MedCondCode As String, _ ByVal MedCondDesc As String, _ ByVal MedCondType As String, _ ByVal StartDate As String, _ByVal EndDate As String) As Integer'8、信息藥品傳入Public Declare Function PassSetQueryDrug Lib "DIFPassDll.dll" _(ByVal DrugCode A

46、s String, _ ByVal DrugName As String, _ ByVal DoseUnit As String, _ByVal RouteName As String) As Integer'9、獲取右鍵菜單是否可用值Public Declare Function PassGetState Lib "DIFPassDll.dll" _(ByVal QueryItemNo As String) As Integer'10、PASS 功能調(diào)用Public Declare Function PassDoCommand Lib "DIFP

47、assDll.dll" _ (ByVal CommandNo As Integer) As Integer'11、獲取藥品警示級別Public Declare Function PassGetWarn Lib "DIFPassDll.dll" _(ByVal DrugUniqueCode As String) As Integer '12、設置藥品浮動窗口位置Public Declare Function PassSetFloatWinPos Lib "DIFPassDll.dll" _ (ByVal left As Integ

48、er, _ByVal top As Integer, _ ByVal right As Integer, _ByVal bottom As Integer) As Integer第 19 頁 共 68 頁'13、設置需要進行單藥警告的藥品Public Declare Function PassSetWarnDrug Lib "DIFPassDll.dll" _ (ByVal DrugUniqueCode As String) As Integer/15、Windows API 取坐標/BOOL GetWindowRect(HWND hWnd,LPRECT lpRec

49、t)/*美康嵌入代碼結(jié)束（DLL 函數(shù)）*（三）、PASS 系統(tǒng) DLL 函數(shù)在 Delphi 中文本/*美康嵌入代碼開始（DLL 函數(shù)unit PassDllClare; interfaceUSES）*Windows, SysUtils,Classes,Controls,Forms;type/函數(shù)TRegisterServer = Function:integer;stdcall;/2、PASS 初始化TPassInit = Function (Const UserName:Pchar;Const DepartMentName:Pchar;Const WorkstationType:Inte

50、ger):Integer;stdcall;/3、PASS 運行模式設置TPassSetControlParam = Function(Const SaveCheckResult:integer;Const AllowAllegen:integer; Const CheckMode:integer; Const DisqMode:integer;Const UseDiposeIdea:Integer):Integer;stdcall;/4、傳基本信息TPassSetPatientInfo = Function (Const PatientID:Pchar;Const VisitID:Pchar;

51、 Const Name:Pchar; Const Sex:Pchar; Const Birthday:Pchar; Const Weight:Pchar; Const cHeight:Pchar;Const DepartMentName:Pchar; Const Doctor:Pchar;Const LeaveHospitalDate: Pchar):Integer;stdcall;/5、傳用藥藥品信息TPassSetRecipeInfo = Function (Const OrderUniqueCode:Pchar;Const DrugCode:Pchar; Const DrugName:P

52、char; Const SingleDose:Pchar;第 20 頁 共 68 頁Const DoseUnit:Pchar; Const Frequency:Pchar; Const StartOrderDate:Pchar; Const StopOrderDate:Pchar; Const RouteName:Pchar; Const GroupTag:Pchar; Const OrderType:Pchar;Const OrderDoctor:Pchar):Integer;stdcall;/6、傳入過敏史TPassSlergenInfo = Function(Const Allergen

53、Index:Pchar;Const AllergenCode:Pchar; Const AllergenDesc:Pchar; Const AllergenType:Pchar;Const Reaction:Pchar):Integer;stdcall;/7、傳入病生狀態(tài)TPassSetMedCond = Function (Const MedCondIndex:Pchar;Const MedCondCode:Pchar; Const MedCondDesc:Pchar; Const MedCondType:Pchar; Const StartDate:Pchar;Const EndDate:

54、Pchar):Integer;stdcall;/8、傳藥品信息TPassSetQueryDrug = Function(Const DrugCode:Pchar;Const DrugName:Pchar; Const DoseUnit:Pchar;Const RouteName:Pchar):Integer;stdcall;/9、獲取右鍵菜單是否可用值TPassGetState = Function (Const QueryItemNo:Pchar):Integer;stdcall;/10、PASS 功能調(diào)用TPassDoCommand = Function (Const CommandNo:

55、Integer):Integer;stdcall;/11、獲取藥品警示級別TPassGetWarn = Function (Const OrderUniqueCode:Pchar):Integer;stdcall;/12、設置藥品浮動窗口位置TPassSetFloatWinPos = Function (Const left:integer;Const top:integer; Const right:integer;Const bottom:Integer):Integer;stdcall;/13、設置需要進行單藥警告的藥品TPassSetWarnDrug = Function (Const DrugUniqueCode:Pchar):Integer;stdcall;/14、PASS函數(shù)