借助Excel實(shí)現(xiàn)網(wǎng)上交易系統(tǒng)與醫(yī)院信息系統(tǒng)間的藥品信息傳遞

茹建華

（浙江慈溪市人民醫(yī)院，慈溪市 315300）

隨著醫(yī)療機(jī)構(gòu)藥品集中招標(biāo)采購(gòu)的進(jìn)一步深入和發(fā)展，浙江省縣及縣以上醫(yī)院除少數(shù)特殊藥品（如麻醉藥品、精神藥品、生物制品）外，都必須在海虹網(wǎng)上交易系統(tǒng)上采購(gòu)。醫(yī)院信息系統(tǒng)（HIS）在浙江省縣及縣以上醫(yī)院已廣泛使用多年，功能越來(lái)越強(qiáng)大，其中的醫(yī)院藥房庫(kù)存管理系統(tǒng)在規(guī)范、科學(xué)設(shè)置藥品高低限后，結(jié)合近期各種藥品的消耗量，能自動(dòng)生成數(shù)量準(zhǔn)確、合理的藥品采購(gòu)計(jì)劃，并以Excel文件導(dǎo)出[1]。由于網(wǎng)上交易系統(tǒng)和HIS由2家不同的軟件公司開(kāi)發(fā)維護(hù)，雖然各自系統(tǒng)每種藥品的藥品編碼是唯一的，但同一種藥品的藥品編碼在網(wǎng)上交易系統(tǒng)和HIS中各自設(shè)定，互不相同，故網(wǎng)上交易系統(tǒng)不能識(shí)別HIS中的藥品編碼，HIS導(dǎo)出的采購(gòu)文件無(wú)法使用，只能手工逐條輸入要采購(gòu)的藥品，工作量大、效率低。為此，筆者用Excel表格設(shè)計(jì)網(wǎng)上交易系統(tǒng)與HIS的藥品編碼匹配功能，使HIS采購(gòu)信息文件中的藥品編碼用網(wǎng)上交易系統(tǒng)中的藥品編碼替換，而能被網(wǎng)上交易系統(tǒng)識(shí)別，通過(guò)文件導(dǎo)入的方式將采購(gòu)信息導(dǎo)入到網(wǎng)上交易系統(tǒng)中，從而大大提高了工作效率。現(xiàn)介紹如下：

1 藥品編碼匹配工作薄文件（a.xls）的設(shè)計(jì)

工作薄含2張工作表，sheet1為藥品編碼對(duì)照表，具體內(nèi)容見(jiàn)圖1；sheet2為藥品采購(gòu)信息表，具體內(nèi)容見(jiàn)圖2。

根據(jù)藥品編碼規(guī)則可知，每個(gè)品種的藥品只有1個(gè)唯一不重復(fù)的編碼[2]，即各有1個(gè)唯一的HIS藥品編碼和網(wǎng)上交易系統(tǒng)藥品編碼。sheet1為藥品基本信息表，sheet2通過(guò)與sheet1共有的HIS藥品編碼單元格發(fā)生關(guān)聯(lián)。

圖1 藥品編碼對(duì)照表（sheet1）Fig 1 Drug code table（sheet1）

圖2 藥品采購(gòu)信息表（sheet2）Fig 2 Table for drug purchase information（sheet2）

sheet1中“網(wǎng)上交易系統(tǒng)藥品編碼、藥品名稱(chēng)、規(guī)格、單位、生產(chǎn)廠家、供貨公司”數(shù)據(jù)從網(wǎng)上交易系統(tǒng)中導(dǎo)出，然后將各藥品在HIS中相對(duì)應(yīng)的藥品編碼輸入到列A相應(yīng)的單元格中。信息輸入完成后，選中F2單元格，單擊菜單欄“格式/單元格”調(diào)出單元格設(shè)置窗口，在保護(hù)窗口去掉鎖定項(xiàng)前的“√”。然后再單擊“工具/保護(hù)/保護(hù)工作表”輸入密碼，這樣除F2單元格外，其它單元格內(nèi)容都無(wú)法編輯，從而完成對(duì)工作表的保護(hù)[3]，防止數(shù)據(jù)受到誤修改。單擊“視圖/工作欄/窗體”，顯示“窗體”工具欄，再單擊按鈕，在工作表上要放置按鈕的位置按住鼠標(biāo)左鍵，拖拉出大小合適的按鈕后，選取宏，按“確定”，按鈕形成，再把按鈕名稱(chēng)改為編碼匹配。鼠標(biāo)右鍵單擊編碼匹配按鈕，選擇“指定宏/編輯”在代碼框中輸入以下VBA代碼：

以上代碼的作用是找出sheet2中所有藥品在sheet1中所對(duì)應(yīng)的網(wǎng)上交易系統(tǒng)的藥品編碼，并將此藥品編碼寫(xiě)在相應(yīng)的單元格中（sheet2 A列中），從而實(shí)現(xiàn)藥品采購(gòu)信息表中的所有藥品的編碼匹配。

sheet2中的“HIS藥品編碼、藥品名稱(chēng)、規(guī)格、單位、生產(chǎn)廠家、進(jìn)價(jià)、采購(gòu)數(shù)量、供貨公司”信息從HIS導(dǎo)出的采購(gòu)計(jì)劃表中復(fù)制過(guò)來(lái)（以sheet2的B3單元格為初始位置，將上述信息復(fù)制到相應(yīng)單元格）。再單擊菜單“數(shù)據(jù)/篩選/自動(dòng)篩選”，在數(shù)據(jù)上方出現(xiàn)篩選下拉菜單標(biāo)志。建立好自動(dòng)篩選功能后，點(diǎn)擊“供貨公司”和“到貨否”下拉菜單可以對(duì)表中數(shù)據(jù)按各供貨單位和是否到貨等情況進(jìn)行自動(dòng)篩選。若原網(wǎng)上交易采購(gòu)輸入界面和HIS入庫(kù)界面中無(wú)“文件導(dǎo)入”功能，則與軟件開(kāi)發(fā)商聯(lián)系，在網(wǎng)上交易系統(tǒng)采購(gòu)輸入界面和HIS入庫(kù)界面中增加“文件導(dǎo)入”的功能。

2 應(yīng)用

2.1 藥品采購(gòu)信息向網(wǎng)上交易系統(tǒng)傳遞

將sheet2中的藥品記錄數(shù)（最后一條藥品記錄行號(hào)減去2）填入藥品編碼對(duì)照表F2單元格中，然后點(diǎn)擊編碼匹配按鈕，VBA代碼自動(dòng)將sheet2中每一條藥品對(duì)應(yīng)的網(wǎng)上交易系統(tǒng)藥品編碼寫(xiě)入相應(yīng)的單元格中，然后把sheet2中的“網(wǎng)上交易系統(tǒng)藥品編碼、藥品名稱(chēng)、規(guī)格、單位、生產(chǎn)廠家、進(jìn)價(jià)、采購(gòu)數(shù)量、供貨公司”復(fù)制到另一張Excel表中，即生成網(wǎng)上交易系統(tǒng)能夠識(shí)別的文件，在網(wǎng)上交易平臺(tái)上導(dǎo)入該文件，即可將采購(gòu)信息一次性納入采購(gòu)界面中，大大提高了工作效率。

2.2 藥品到貨信息向HIS傳遞

在醫(yī)藥公司貨到驗(yàn)收后，若實(shí)際到貨數(shù)量與采購(gòu)數(shù)量不同，將sheet2中的采購(gòu)數(shù)量改成實(shí)際到貨數(shù)量，對(duì)未到貨的品種在“到貨否”一欄里打入“否”。點(diǎn)擊“到貨否”的下拉菜單標(biāo)志，選擇“空白”，Excel自動(dòng)把未到貨品種過(guò)濾掉，然后再點(diǎn)擊“供貨公司”下拉菜單標(biāo)志，逐個(gè)選擇各醫(yī)藥公司，選擇“HIS藥品編碼、藥品名稱(chēng)、規(guī)格、單位、進(jìn)價(jià)、生產(chǎn)廠家、采購(gòu)數(shù)量、供貨公司”復(fù)制生成各醫(yī)藥公司的Excel到貨文件。在HIS到貨入庫(kù)界面中依次導(dǎo)入上述文件，即自動(dòng)完成入庫(kù)操作，可免去手工逐條錄入之苦。

3 討論

3.1 VBA編程增強(qiáng)了Excel表格的功能

VBA（Visual Basic for Application）是微軟公司為了加強(qiáng)Office軟件的二次開(kāi)發(fā)能力而附加于其中的編程語(yǔ)言。VBA與BASIC完全一致的語(yǔ)法結(jié)構(gòu)，便于藥師等非計(jì)算機(jī)專(zhuān)業(yè)人員理解和掌握，利用VBA編程可極大增強(qiáng)Excel現(xiàn)有的功能[4]。本文利用VBA編制藥品編碼匹配功能，方法簡(jiǎn)單實(shí)用，能自動(dòng)列出采購(gòu)文件中HIS藥品編碼所對(duì)應(yīng)的網(wǎng)上交易系統(tǒng)中的藥品編碼，大大提高了工作效率。

3.2 藥品編碼匹配工作簿具有很強(qiáng)的安全性和實(shí)用性

為了保障醫(yī)院網(wǎng)絡(luò)的安全性，絕大部分醫(yī)院運(yùn)行的HIS為醫(yī)院內(nèi)部網(wǎng)絡(luò)[5]，與Internet未聯(lián)網(wǎng)，而網(wǎng)上交易系統(tǒng)是建立在Internet上的，二者互不相通。本文通過(guò)導(dǎo)入導(dǎo)出Excel文件方式，實(shí)現(xiàn)網(wǎng)上交易系統(tǒng)與HIS間藥品數(shù)據(jù)傳遞，安全性好，能夠被醫(yī)院所接受，特別值得計(jì)算機(jī)網(wǎng)絡(luò)系統(tǒng)不是很成熟的縣級(jí)醫(yī)療機(jī)構(gòu)推廣使用。

[1]楊 晨，胡麗輝，林偉斌，等.我院藥品實(shí)行網(wǎng)上采購(gòu)的方法和體會(huì)[J].中國(guó)藥房，2006，17（20）：1550.

[2]楊天燕，王 勁，姜柏玫，等.利用Access軟件實(shí)現(xiàn)藥品編碼升位[J].中國(guó)藥房，2006，17（18）：1377.

[3]侯?lèi)?ài)蓮.Excel表格實(shí)用技巧例解[J].計(jì)算機(jī)系統(tǒng)應(yīng)用，2001，2：49.

[4]趙衛(wèi)旭，陳國(guó)棟.用VBA拓展Excel[J].中國(guó)管理信息化，2007，10（12）：37.

[5]許群芬，曹幼紅，林蕓竹，等.科學(xué)優(yōu)化醫(yī)院藥品采購(gòu)流程[J].中國(guó)藥房，2008，19（34）：2671.