xcel中VBA编程在卫生部单病种质量控制指标系统自动处理病例上报应用.docVIP

xcel中VBA编程在卫生部单病种质量控制指标系统自动处理病例上报应用 　　摘要：借助Excel的VBA（Visual Basic for Applications， VBA）编程语言开发应用卫生部单病种质量控制指标系统的病例上报策略。由于Excel具有数据处理简易性，开发和维护的低成本性，使该方法在各级医疗单位实用性、可行性高并易于推广，从而促使我国病种质量管理措施评价系统的完善与发展。 　　关键词：Excel；VBA编程；单Excel中VBA编程在卫生部单病种质量控制指标系统自动处理病例上报的应用 　　在2005年，我国卫生部下发了《医院管理评价指南》，并依托中国医院协会开发了单病种质量控制指标系统，通过全国各医疗单位上传的病例数据，对各病种诊疗过程的进行横向、纵向分析，以达到提高医疗质量的目的。作为医疗单位，如何保证全院数千甚至数万病例数据准确、及时、高效上报，值得深入研究。Excel电子表格的数据处理在现今在医学领域得到广泛应用[1-2]，利用其中的VBA编写的自动化处理程序可为医学领域中样本数据提供低成本、高效率应用。VBA为本文将详细阐述应用Excel对病例数据进行自动化上报的应用，可为各医疗单位提供一套免费、高效的病例上报解决方案。 　　1 方法 　　本院电子病历系统为内网系统，卫生部单病种质量控制指标系统为外网系统，故本院上报需进行内外网切换，在此背景下，本实验对本院4名骨科医生（编号A，B，C，D）分别采取一般上报和VBA编程上报完成100例膝关节、髋关节置换术上报所需时间进行实验，并重复实验3次，最后对实验结果进行t检验统计分析。 　　一般上报方式：A、B、C、D每人负责 25例病例，独自完成病种质量管理措施评价系统所需信息的录入并上报。VBA编程上报方式：将所需录入信息依据其在电子病历中的分布进行分割并制成Excel表，A负责将100名患者年龄、发病日期、入院日期、出院日期信息录入Excel表格中，以此类推分配B、C、D的工作项目；将A，B，C，D四人所录入的信息合并，获得完整的病例信息数据；借助VBA编写的宏模块，自动填单上传。详细步骤如下： 　　1.1Excel表格制定 按卫生部单病种质量控制指标系统中围手术期预防感染（INF）病种报表中所需信息进行制表（见表1）。 　　1.2信息录入 ①录入信息分配：按本院电子病历中信息分布的特点，将页面来源相同的信息打包分配给项目组一个成员完成，如A完成患者年龄、发病日期、入院日期、出院日期信息录入。B，C，D以此类推。②录入信息：Ⅰ卫生部单病种质量控制指标系统网页中项目的下拉框中文选项，按其对应顺序的阿拉伯数字录入，如表1中膝关节置换术第一诊断下拉框中膝骨关节病为第9个选项，录入数字9，空白选项录入0Ⅱ.出生日期等Excel表格中录入按yyyy-mm-dd，即年-月-日，手术日期等Excel表格中录入格式yyyy-mm-dd hh：mm：ss，即年-月-日 时：分：秒。③录入信息合并：将4人所录入信息按2.1中制定excel表格合并。④录入信息格式标准化：按单病种质量控制指标系统将excel表格单元格中的时间信息严格标准化，即yyyy-mm-dd/yyyy-mm-dd hh：mm：ss，转化为文本格式。 　　1.3 VBA编程及自动填单上传 VBA编写的宏模块，实现excel表格中录入信息的自动填充和提交，以此实现高效上传。代码如下 　　①定义各变量名 　　Public mywindow As Object 　　Public mydocument As Object 　　Public r As Range， dealFlag As Range 　　定义常量，可配置，根据xls表格 　　Public Const countcol As Integer = 49 总列数 　　Public Const startrow As Integer = 3 起始行数 　　Public Const countrow As Integer = 183 总行数，xls的行数 　　Public Const startcol As Integer = 1 起始列数 　　定义填充表单元素 　　Public bgname As String 报告医生 A 1 　　Public bgdate As String 报告日期 B 2 　　Public zhzd As Integer 置换诊断 C3 　　…… 　　Public jtfee As String 假体费 AV 48 　　②获取excel表格数据 　　Public Sub getExcelData（） 　　Dim colvalue As String 　　For j = star