亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        基于ExcelVBA技術(shù)的門診藥房特殊藥品日發(fā)藥統(tǒng)計程序設(shè)計

        2020-07-07 04:50:47閆冰洋李維鳳
        河南科技 2020年14期

        閆冰洋 李維鳳

        摘 要:本文利用Excel VBA技術(shù)設(shè)計門診藥房特殊藥品日發(fā)藥統(tǒng)計程序,對日發(fā)藥明細(xì)表數(shù)據(jù)按日進(jìn)行累加,得到每種藥品的日發(fā)藥明細(xì)數(shù)據(jù),單次統(tǒng)計時間由原來的120 min以上降至2 min以內(nèi),提高了門診藥房藥品統(tǒng)計效率。

        關(guān)鍵詞:門診藥房;Excel VBA;藥品統(tǒng)計

        中圖分類號:R197.324文獻(xiàn)標(biāo)識碼:A文章編號:1003-5168(2020)14-0021-03

        The Statistical Program for Daily Delivery of Special Medicine in Outpatient Pharmacy Based On Excel VBA Technology

        YAN Bingyang LI Weifeng

        (School of Pharmacy, Medical College of Xi'an Jiaotong University,Xi'an Shaanxi 710061)

        Abstract: This paper used Excel VBA technology to design a statistical program for daily delivery of special medicines in outpatient pharmacies, and accumulated daily delivery schedule data to obtain daily delivery breakdown data for each medicine. The single statistical time was reduced from more than 120 min to less than 2 min, which improved the efficiency of drug statistics in outpatient pharmacy.

        Keywords: outpatient pharmacy;Excel VBA;drug statistics

        隨著國家政策導(dǎo)向、藥學(xué)學(xué)科及技術(shù)的發(fā)展,藥學(xué)工作人員的工作重心逐步從發(fā)藥向提供合理的用藥藥學(xué)服務(wù)轉(zhuǎn)變,在這個過程中,越來越多的工作也會被賦予藥學(xué)工作人員,門診藥房藥師的工作也日漸繁重。隨著國家對藥品日常監(jiān)控的深入,門診藥房不僅要完成日常工作,還要每月配合相關(guān)部門完成特殊藥品的統(tǒng)計工作,如終止妊娠藥品、醫(yī)保指定藥品等的日發(fā)藥統(tǒng)計工作,而HIS系統(tǒng)由于引進(jìn)時間較長不具備這項(xiàng)功能,每月的統(tǒng)計工作耗時耗力。VBA是一種宏語言,結(jié)合微軟辦公軟件很容易將日常工作流程轉(zhuǎn)換為VBA程序代碼,使藥學(xué)工作實(shí)現(xiàn)自動化,如利用藥庫智能化辦公[1]、VBA編制中藥采購軟件[2]、開發(fā)藥品配伍禁忌審查表[3]等。

        本文將從門診藥房特殊藥品日發(fā)藥統(tǒng)計實(shí)際工作入手,分析目前工作的不足,利用Excel VBA語言設(shè)計特殊藥品日發(fā)藥統(tǒng)計程序,以提高特殊藥品日發(fā)藥統(tǒng)計效率。

        1 資料與方法

        1.1 特殊藥品日發(fā)藥統(tǒng)計程序的算法構(gòu)建

        該程序的整體思路是:建立待統(tǒng)計特殊藥品清單,設(shè)計特殊藥品日發(fā)藥統(tǒng)計程序的算法,導(dǎo)入HIS系統(tǒng)導(dǎo)出的日發(fā)藥明細(xì)表,得到每種藥品的日發(fā)藥明細(xì)數(shù)據(jù)。

        因庫存藥品存在同名稱、多規(guī)格、多廠家的情況,只檢索藥品名稱無法確定藥品的唯一性,故采用藥典編號確定藥品的唯一性。

        1.1.1 日發(fā)藥明細(xì)表。選擇起始日期及終止日期,從醫(yī)院HIS系統(tǒng)查詢導(dǎo)出日發(fā)藥明細(xì)表,保存成“.xls”格式。導(dǎo)出的日發(fā)藥明細(xì)表格式如表1所示。

        1.1.2 庫存盤點(diǎn)表排序與排版。為保證庫存盤點(diǎn)有序進(jìn)行,根據(jù)貨架位置進(jìn)行排序,并進(jìn)行排版。

        1.2 特殊藥品日發(fā)藥統(tǒng)計程序設(shè)計

        程序包括導(dǎo)入HIS系統(tǒng)導(dǎo)出的日發(fā)藥明細(xì)、統(tǒng)計指定藥品日發(fā)藥明細(xì)等過程。

        從HIS系統(tǒng)中導(dǎo)出日發(fā)藥明細(xì)表,導(dǎo)入門診藥房特殊藥品日發(fā)藥統(tǒng)計程序,保存在數(shù)組arr_rfyyssj中,利用字典統(tǒng)計指定品種的藥品日發(fā)藥明細(xì)[4-5],VBA代碼示例如下:

        Sub 指定品種日發(fā)藥明細(xì) ()

        Dim wb As Workbook

        Dim sht_db As Worksheet

        Dim sht1 As Worksheet

        Dim sht_fymx As Worksheet

        Dim i, k

        Dim arr_rfyyssj, arr_yfy, arr_rq, arr_cxpz, arr_bt '日發(fā)藥原始數(shù)據(jù),發(fā)藥數(shù)據(jù),日期,查詢品種,標(biāo)題

        Dim dict_ydbh As Object, dict_yfy As Object, dict_rq As Object ? '藥典編號單位,月發(fā)藥數(shù)量

        Set dict_ydbh = CreateObject("Scripting.Dictionary")

        Set dict_yfy = CreateObject("Scripting.Dictionary")

        Set dict_rq = CreateObject("Scripting.Dictionary")

        Set sht_db = ThisWorkbook.Worksheets("datebase")

        Set sht1 = ThisWorkbook.Worksheets("sheet1")

        Set sht_fymx = ThisWorkbook.Worksheets("日發(fā)藥明細(xì)")

        Application.ScreenUpdating = False

        Cells.Borders.LineStyle = xlNone

        arr_cxpz = sht_fymx.[A1].Resize([A1].End(xlDown).Row, 26)

        '清除歷史數(shù)據(jù)

        [C3].Resize(UBound(arr_cxpz, 1), 40) = ""

        For i = 3 To UBound(arr_cxpz, 1)

        dict_ydbh(arr_cxpz(i, 1)) = ""

        Next i

        Set wb = Workbooks.Open(sht_db.[Q7].Value)

        arr_rfyyssj = wb.Worksheets(1).Range("B1").Resize(Cells([A1].End(xlDown).Row, 2).End(xlUp).Row, 26)

        wb.Close

        For i = 2 To UBound(arr_rfyyssj, 1)

        If dict_ydbh.exists(arr_rfyyssj(i, 26)) Then

        dict_rq(Format(arr_rfyyssj(i, 14), "m/d")) = arr_rfyyssj(i, 6) & "-" & arr_rfyyssj(i, 7) & "-" & arr_rfyyssj(i, 8)

        dict_yfy(arr_rfyyssj(i, 26)) = arr_rfyyssj(i, 6) & "-" & arr_rfyyssj(i, 7) & "-" & arr_rfyyssj(i, 8)

        dict_yfy(arr_rfyyssj(i, 26) & "/" & Format(arr_rfyyssj(i, 14), "m/d")) = dict_yfy(arr_rfyyssj(i, 26) & "/" & Format(arr_rfyyssj(i, 14), "m/d")) + arr_rfyyssj(i, 11)

        End If

        Next i

        arr_yfy = Application.Transpose(dict_ydbh.keys)

        arr_rq = Application.Transpose(dict_rq.keys)

        ReDim Preserve arr_yfy(1 To dict_ydbh.Count, 1 To dict_rq.Count + 2)

        For i = 1 To UBound(arr_yfy, 1)

        arr_yfy(i, 2) = dict_yfy(arr_yfy(i, 1))

        For k = 1 To dict_rq.Count

        arr_yfy(i, 2 + k) = dict_yfy(arr_yfy(i, 1) & "/" & arr_rq(k, 1))

        Next k

        Next i

        ReDim arr_bt(1 To 1, 1 To UBound(arr_rq, 1) + 2)

        For i = 1 To UBound(arr_rq, 1)

        arr_bt(1, i + 2) = arr_rq(i, 1)

        Next i

        arr_bt(1, 1) = "藥典編號"

        arr_bt(1, 2) = "藥品信息"

        sht_fymx.[A2].Resize(1, UBound(arr_bt, 2)) = arr_bt

        sht_fymx.[A3].Resize(dict_ydbh.Count, dict_rq.Count + 2) = arr_yfy

        '自動居中,適合單元格調(diào)整字體

        With [C2].Resize(UBound(arr_yfy, 1) + 1, UBound(arr_yfy, 2) - 2)

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlCenter

        .ShrinkToFit = True

        End With

        With [A2].Resize(UBound(arr_yfy, 1) + 1, 1)

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlCenter

        .ShrinkToFit = True

        End With

        '添加邊框線

        With [A2].Resize(UBound(arr_yfy, 1) + 1, UBound(arr_yfy, 2)).Borders

        .LineStyle = xlContinuous

        .Weight = xlThin

        End With

        ActiveSheet.PageSetup.PrintTitleRows = "$1:$2"

        久久亚洲AV无码精品色午夜| 亚洲成av人在线播放无码| 国产女人高潮视频在线观看| 日本午夜精品理论片A级APP发布| 国产一区二区三区亚洲精品| 日韩有码在线观看视频| 色偷偷亚洲第一成人综合网址 | av网站在线观看亚洲国产| 国产精品理论片| 国产无码夜夜一区二区| 西西大胆午夜人体视频| 欧美激情一区二区三区| 最新国产乱人伦偷精品免费网站| 成人国产永久福利看片| 亚洲熟妇av一区二区三区hd| 最新国产毛2卡3卡4卡| 躁躁躁日日躁| 无码高潮少妇毛多水多水免费| 美女脱掉内裤扒开下面让人插 | 国产精品国产自产拍高清| 国产精品免费_区二区三区观看| 国产精品久久久久久久成人午夜 | 亚洲精品国产精品系列| 国产乱人伦偷精品视频免观看| 最近中文字幕视频完整版在线看 | 亚洲高清国产成人精品久久| 鲁一鲁一鲁一鲁一曰综合网| 日韩中文网| 青青草免费在线视频导航 | 免费观看在线视频播放| 欧美 日韩 人妻 高清 中文| 国产农村妇女高潮大叫| 青青草针对华人超碰在线| 亚洲国产国语在线对白观看| 色老板精品视频在线观看| 东京热加勒比在线观看| 国产精品女主播在线播放| 成年女人黄小视频| 午夜一级在线| av在线播放一区二区免费| 国产成人精品999视频|