亚洲免费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"

        岛国视频在线无码| 久久精品性无码一区二区爱爱| 亚洲aⅴ无码日韩av无码网站| 日本道免费精品一区二区| 秋霞国产av一区二区三区| 蜜桃视频一区二区三区| 麻豆久久91精品国产| 国产高清不卡在线视频| 精华国产一区二区三区| 无码爽视频| 亚洲精品久久久久中文字幕| 免费看泡妞视频app| 亚洲天堂在线视频播放| 久热re在线视频精品免费| 国产日产免费在线视频| 久草中文在线这里只有精品| 一区二区三区精品少妇| av无码av天天av天天爽| 夜夜高潮夜夜爽夜夜爱爱| 天天狠天天透天干天天| 免费人成视频网站在线观看不卡| 美女福利视频在线观看网址| 亚洲视频免费一区二区| 爱情岛论坛亚洲永久入口口| 国精产品一区一区三区| 女人被弄到高潮的免费视频| 亚洲网站地址一地址二| 国产精品偷伦免费观看的| 久久国产精品免费久久久| 中文字幕av永久免费在线| 五月综合激情婷婷六月| 一个人看的视频www免费| 中文字幕第七页| 黑人一区二区三区在线| 国产区一区二区三区性色| 美女露出粉嫩小奶头在视频18禁| 久久婷婷成人综合色| 成人午夜免费无码视频在线观看| 天堂视频一区二区免费在线观看 | 久青草国产在线观看| 又爽又猛又大又湿的视频|