借助Excel实现网上交易系统与医院信息系统间的药品信息传递

茹建华

（浙江慈溪市人民医院，慈溪市 315300）

随着医疗机构药品集中招标采购的进一步深入和发展，浙江省县及县以上医院除少数特殊药品（如麻醉药品、精神药品、生物制品）外，都必须在海虹网上交易系统上采购。医院信息系统（HIS）在浙江省县及县以上医院已广泛使用多年，功能越来越强大，其中的医院药房库存管理系统在规范、科学设置药品高低限后，结合近期各种药品的消耗量，能自动生成数量准确、合理的药品采购计划，并以Excel文件导出[1]。由于网上交易系统和HIS由2家不同的软件公司开发维护，虽然各自系统每种药品的药品编码是唯一的，但同一种药品的药品编码在网上交易系统和HIS中各自设定，互不相同，故网上交易系统不能识别HIS中的药品编码，HIS导出的采购文件无法使用，只能手工逐条输入要采购的药品，工作量大、效率低。为此，笔者用Excel表格设计网上交易系统与HIS的药品编码匹配功能，使HIS采购信息文件中的药品编码用网上交易系统中的药品编码替换，而能被网上交易系统识别，通过文件导入的方式将采购信息导入到网上交易系统中，从而大大提高了工作效率。现介绍如下：

1 药品编码匹配工作薄文件（a.xls）的设计

工作薄含2张工作表，sheet1为药品编码对照表，具体内容见图1；sheet2为药品采购信息表，具体内容见图2。

根据药品编码规则可知，每个品种的药品只有1个唯一不重复的编码[2]，即各有1个唯一的HIS药品编码和网上交易系统药品编码。sheet1为药品基本信息表，sheet2通过与sheet1共有的HIS药品编码单元格发生关联。

图1 药品编码对照表（sheet1）Fig 1 Drug code table（sheet1）

图2 药品采购信息表（sheet2）Fig 2 Table for drug purchase information（sheet2）

sheet1中“网上交易系统药品编码、药品名称、规格、单位、生产厂家、供货公司”数据从网上交易系统中导出，然后将各药品在HIS中相对应的药品编码输入到列A相应的单元格中。信息输入完成后，选中F2单元格，单击菜单栏“格式/单元格”调出单元格设置窗口，在保护窗口去掉锁定项前的“√”。然后再单击“工具/保护/保护工作表”输入密码，这样除F2单元格外，其它单元格内容都无法编辑，从而完成对工作表的保护[3]，防止数据受到误修改。单击“视图/工作栏/窗体”，显示“窗体”工具栏，再单击按钮，在工作表上要放置按钮的位置按住鼠标左键，拖拉出大小合适的按钮后，选取宏，按“确定”，按钮形成，再把按钮名称改为编码匹配。鼠标右键单击编码匹配按钮，选择“指定宏/编辑”在代码框中输入以下VBA代码：

以上代码的作用是找出sheet2中所有药品在sheet1中所对应的网上交易系统的药品编码，并将此药品编码写在相应的单元格中（sheet2 A列中），从而实现药品采购信息表中的所有药品的编码匹配。

sheet2中的“HIS药品编码、药品名称、规格、单位、生产厂家、进价、采购数量、供货公司”信息从HIS导出的采购计划表中复制过来（以sheet2的B3单元格为初始位置，将上述信息复制到相应单元格）。再单击菜单“数据/筛选/自动筛选”，在数据上方出现筛选下拉菜单标志。建立好自动筛选功能后，点击“供货公司”和“到货否”下拉菜单可以对表中数据按各供货单位和是否到货等情况进行自动筛选。若原网上交易采购输入界面和HIS入库界面中无“文件导入”功能，则与软件开发商联系，在网上交易系统采购输入界面和HIS入库界面中增加“文件导入”的功能。

2 应用

2.1 药品采购信息向网上交易系统传递

将sheet2中的药品记录数（最后一条药品记录行号减去2）填入药品编码对照表F2单元格中，然后点击编码匹配按钮，VBA代码自动将sheet2中每一条药品对应的网上交易系统药品编码写入相应的单元格中，然后把sheet2中的“网上交易系统药品编码、药品名称、规格、单位、生产厂家、进价、采购数量、供货公司”复制到另一张Excel表中，即生成网上交易系统能够识别的文件，在网上交易平台上导入该文件，即可将采购信息一次性纳入采购界面中，大大提高了工作效率。

2.2 药品到货信息向HIS传递

在医药公司货到验收后，若实际到货数量与采购数量不同，将sheet2中的采购数量改成实际到货数量，对未到货的品种在“到货否”一栏里打入“否”。点击“到货否”的下拉菜单标志，选择“空白”，Excel自动把未到货品种过滤掉，然后再点击“供货公司”下拉菜单标志，逐个选择各医药公司，选择“HIS药品编码、药品名称、规格、单位、进价、生产厂家、采购数量、供货公司”复制生成各医药公司的Excel到货文件。在HIS到货入库界面中依次导入上述文件，即自动完成入库操作，可免去手工逐条录入之苦。

3 讨论

3.1 VBA编程增强了Excel表格的功能

VBA（Visual Basic for Application）是微软公司为了加强Office软件的二次开发能力而附加于其中的编程语言。VBA与BASIC完全一致的语法结构，便于药师等非计算机专业人员理解和掌握，利用VBA编程可极大增强Excel现有的功能[4]。本文利用VBA编制药品编码匹配功能，方法简单实用，能自动列出采购文件中HIS药品编码所对应的网上交易系统中的药品编码，大大提高了工作效率。

3.2 药品编码匹配工作簿具有很强的安全性和实用性

为了保障医院网络的安全性，绝大部分医院运行的HIS为医院内部网络[5]，与Internet未联网，而网上交易系统是建立在Internet上的，二者互不相通。本文通过导入导出Excel文件方式，实现网上交易系统与HIS间药品数据传递，安全性好，能够被医院所接受，特别值得计算机网络系统不是很成熟的县级医疗机构推广使用。

[1]杨 晨，胡丽辉，林伟斌，等.我院药品实行网上采购的方法和体会[J].中国药房，2006，17（20）：1550.

[2]杨天燕，王 劲，姜柏玫，等.利用Access软件实现药品编码升位[J].中国药房，2006，17（18）：1377.

[3]侯爱莲.Excel表格实用技巧例解[J].计算机系统应用，2001，2：49.

[4]赵卫旭，陈国栋.用VBA拓展Excel[J].中国管理信息化，2007，10（12）：37.

[5]许群芬，曹幼红，林芸竹，等.科学优化医院药品采购流程[J].中国药房，2008，19（34）：2671.