基于Excel VBA的急救設(shè)備租賃管理系統(tǒng)設(shè)計(jì)與應(yīng)用＊

趙汗青，劉振穎，李洋洋，孫文波，黃倫論，宋天一

急救醫(yī)療設(shè)備指對(duì)患者搶救過(guò)程中使用的醫(yī)療設(shè)備，常見(jiàn)的有呼吸機(jī)、監(jiān)護(hù)儀、微量注射泵等，在醫(yī)院診療中發(fā)揮了重要作用，直接影響搶救成功率。急救設(shè)備在使用管理上具有用時(shí)急、閑時(shí)多、需求廣的特點(diǎn)［1，2］，急救設(shè)備必須在平時(shí)做好保養(yǎng)、測(cè)試，保持良好狀態(tài)，保證在搶救時(shí)拿來(lái)就能用。各科室都需要配備急救設(shè)備，但大部分科室的急救設(shè)備使用率不高，閑置較多，只有急診、重癥醫(yī)學(xué)等科室需要頻繁使用。如所有科室都大量配備急救設(shè)備，勢(shì)必造成資源浪費(fèi)，也不利于設(shè)備維護(hù)。

筆者所在醫(yī)院自2005年起成立急救設(shè)備租賃中心，對(duì)急救設(shè)備進(jìn)行統(tǒng)一維護(hù)和集中調(diào)度，有效節(jié)約了設(shè)備資源，減少了設(shè)備閑置。目前急救設(shè)備租賃中心擁有呼吸機(jī)、監(jiān)護(hù)儀、輸注泵等設(shè)備100余臺(tái)件，日常工作主要包括設(shè)備的出入庫(kù)、租賃信息統(tǒng)計(jì)。一直以來(lái)急救設(shè)備租賃中心采用手工記錄的方式進(jìn)行出入庫(kù)及統(tǒng)計(jì)，效率低，易出錯(cuò)，管理人員的勞動(dòng)強(qiáng)度很大，相關(guān)記錄回溯、統(tǒng)計(jì)十分不便。為提高工作效率、減少差錯(cuò)，筆者針對(duì)醫(yī)院急救設(shè)備租賃流程設(shè)計(jì)開(kāi)發(fā)了實(shí)用的急救設(shè)備租賃管理系統(tǒng)，在應(yīng)用中取得了良好的效果。

1 Excel VBA簡(jiǎn)介

Visual Basic for Application（VBA）是一種宏語(yǔ)言，基于Visual Basic（VB）發(fā)展而來(lái)，內(nèi)嵌于微軟Office辦公程序中，可實(shí)現(xiàn)Office程序的自動(dòng)化。VBA不能創(chuàng)建獨(dú)立應(yīng)用程序，必須在Excel、Word等宿主應(yīng)用程序中運(yùn)行。VBA具備常用數(shù)據(jù)類型、結(jié)構(gòu)體、數(shù)組、流程控制、函數(shù)等編程基本元素［3］，在Word、Excel等Office軟件中都可以利用VBA進(jìn)行二次開(kāi)發(fā)，從而改進(jìn)Office應(yīng)用程序的功能，使得Office軟件能根據(jù)用戶的需求實(shí)現(xiàn)更多的功能。

2 急救設(shè)備租賃管理系統(tǒng)

2.1需求分析現(xiàn)有的急救設(shè)備租賃流程為：（1）使用科室填寫(xiě)租賃申請(qǐng)單，管理員發(fā)放設(shè)備并記錄借出時(shí)間；（2）使用科室歸還設(shè)備，管理員接收設(shè)備、記錄歸還時(shí)間并計(jì)算租賃費(fèi)用；（3）管理員計(jì)算月度租賃費(fèi)用報(bào)表。整個(gè)流程均為人工操作，計(jì)費(fèi)、統(tǒng)計(jì)時(shí)使用計(jì)算器計(jì)算，耗時(shí)長(zhǎng)，容易出錯(cuò)，核對(duì)困難。急救設(shè)備租賃管理系統(tǒng)應(yīng)主要實(shí)現(xiàn)出入庫(kù)登記和計(jì)費(fèi)統(tǒng)計(jì)的自動(dòng)化，并具備報(bào)表打印、數(shù)據(jù)維護(hù)等必要功能。

2.2系統(tǒng)應(yīng)用流程與功能規(guī)劃急救設(shè)備租賃管理系統(tǒng)應(yīng)具備設(shè)備出入庫(kù)登記、計(jì)費(fèi)統(tǒng)計(jì)、數(shù)據(jù)維護(hù)等功能。

設(shè)備出庫(kù)時(shí)，首先掃描設(shè)備機(jī)身上資產(chǎn)編號(hào)條形碼，系統(tǒng)查詢并顯示設(shè)備信息，輸入科室、交接人等信息后，登記出庫(kù)信息并打印出庫(kù)單，交接人簽字后保存?zhèn)洳椤?/p>

設(shè)備入庫(kù)時(shí)，首先掃描設(shè)備機(jī)身上資產(chǎn)編號(hào)條形碼，系統(tǒng)查詢并顯示設(shè)備信息、租賃信息，輸入科室、交接人等信息后，登記入庫(kù)信息、計(jì)費(fèi)，并打印入庫(kù)單，交接人簽字后保存?zhèn)洳椤?/p>

計(jì)費(fèi)統(tǒng)計(jì)功能可以按指定時(shí)間段統(tǒng)計(jì)分科室計(jì)費(fèi)并導(dǎo)出表格，用于科室成本核算。數(shù)據(jù)維護(hù)功能可以對(duì)設(shè)備信息、計(jì)費(fèi)規(guī)則、科室、人員等信息進(jìn)行維護(hù)，以適應(yīng)情況的變化。

2.3系統(tǒng)設(shè)計(jì)急救設(shè)備租賃管理系統(tǒng)基于Excel VBA設(shè)計(jì)，應(yīng)用于急救設(shè)備的整個(gè)租賃流程，主要實(shí)現(xiàn)租賃登記、計(jì)費(fèi)統(tǒng)計(jì)、數(shù)據(jù)維護(hù)等功能，主要流程見(jiàn)圖1。

數(shù)據(jù)表結(jié)構(gòu)主要包括租賃記錄表、設(shè)備信息表、數(shù)據(jù)字典等。租賃記錄表用于記錄租賃信息，包括設(shè)備信息、租賃科室、借還時(shí)間等；設(shè)備信息表用于記錄設(shè)備信息，包括設(shè)備名稱、型號(hào)、附件、位置、計(jì)費(fèi)價(jià)格等；數(shù)據(jù)字典用于存放字段信息，包括科室名稱、發(fā)放人等，租賃登記時(shí)選擇即可，可提高登記效率。

3 應(yīng)用效果

圖1 急救設(shè)備租賃管理系統(tǒng)租賃流程

急救設(shè)備租賃管理系統(tǒng)運(yùn)行以來(lái)，效果良好，租借設(shè)備3000余臺(tái)次，無(wú)錯(cuò)漏發(fā)生。尤其是原先需手工耗費(fèi)1 d時(shí)間才能完成的月度計(jì)費(fèi)統(tǒng)計(jì)工作，現(xiàn)在只需數(shù)分鐘，且結(jié)果準(zhǔn)確、報(bào)表規(guī)范統(tǒng)一，得到了使用者的認(rèn)可。

4 討論

急救設(shè)備租賃管理是一種科學(xué)合理的管理方式，其優(yōu)勢(shì)主要有：（1）優(yōu)化醫(yī)療設(shè)備資源配置，減少重復(fù)購(gòu)置，提高急救設(shè)備的使用率，使資源效益最大化；（2）專職工程師集中維護(hù)保養(yǎng)，有利于降低機(jī)器故障率和損耗，延長(zhǎng)使用壽命。急救設(shè)備租賃管理既可保證急救設(shè)備的可靠性、安全性，又可使醫(yī)院避免重復(fù)購(gòu)置和盲目引進(jìn)［4］。

VBA的功能強(qiáng)大，同時(shí)又易于學(xué)習(xí)掌握，其編程代碼書(shū)寫(xiě)規(guī)則與VB相一致，也提供了面向?qū)ο蟮某绦蛟O(shè)計(jì)方法。VBA與OFFICE程序結(jié)合緊密，可訪問(wèn)并操作Excel的工作簿、工作表、單元格等對(duì)象［5，6］，不需要運(yùn)用其他工具即可創(chuàng)建功能強(qiáng)大的個(gè)性化桌面應(yīng)用程序。利用Excel VBA，結(jié)合Excel強(qiáng)大的數(shù)據(jù)處理、報(bào)表輸出等功能，既可以實(shí)現(xiàn)復(fù)雜的功能，又能簡(jiǎn)化開(kāi)發(fā)過(guò)程，提高開(kāi)發(fā)效率。

傳統(tǒng)的急救設(shè)備租賃手工管理方式效率低，容易出錯(cuò)，高度依賴工作人員的責(zé)任心，已不能適應(yīng)急救設(shè)備管理的需要。筆者研制的急救設(shè)備租賃管理系統(tǒng)基于Excel VBA開(kāi)發(fā)，開(kāi)發(fā)周期短，調(diào)試方便，單機(jī)即可運(yùn)行，與之前的手工記錄方式相比，流程簡(jiǎn)便、報(bào)表清晰、統(tǒng)計(jì)查詢快捷，工作效率明顯提高，方便實(shí)用，實(shí)現(xiàn)了數(shù)據(jù)管理的信息化、標(biāo)準(zhǔn)化、規(guī)范化。