药品信息字典库及其数据库语言编程简介
作者：王国权 庞素秋 杨韶明
单位：中国人民解放军第180医院
关键词：
医院药房信息微机管理 医院药房信息微机管理、远程诊断系统、互联网(Internet)已越来越普及应用于医院药师的日常工作、科学研究、专业学习以及生活当中。1995年4月中国药学会在杭州成立了“中国药学会医院药学专业委员会计算机专业学组”，计算机在我国医院药学中的应用进入了一个崭新的、迅速发展的阶段。据估计，国内绝大部分地区以上的医院药房已应用了计算机管理。本文介绍医院药房计算机信息管理系统的一个重要枢纽库——药品信息字典库。希望能去除我们广大普通药师对计算机药学应用软件的神秘感并提高认识和激起兴趣，提醒平时操作时注意对药品信息字典库的保护。
药品信息字典库是医院药房计算机信息管理系统编程语言建立起来的一个多功能数据库。顾名思义，它好比是一本载满各种各样有用的医院药品信息的电子药典，其重要作用是显而易见的。它实际上是一本现代化的医院药房电子帐本，明察秋毫，公私分明。我们知道，医院药房药材供应管理实际上是一个以药品流通为主的流通管理过程。而计算机药材信息管理系统就是建立在一个(或若干个)药品信息字典库的基础上进行物流全程监控，并进行各种计算机语言数字化处理的编程系统。它具有人工根本无法比拟的高速、精确、安全、自动等特点。这样的一个药品信息字典库的创建和更新则成为建立药房管理系统的首要工作了。药品信息字典库说起来也很具体、简单，就象我们平常所说的药品信息表格字典一样。项目有：药品名、规格、批号、厂家、进货渠道、效期、各种价格(进价、批价、售价、优价)、进货日期、进货量、存放位置、输入代码、管理属性(普通、贵重、毒麻剧精等)、分类代码、出库日期、出库数量、库存量、药理作用、不良反应等等其它各种药品信息，均可设计加上。在数据库编程语言里创建这样一个字典库只要一句命令：Creat药品字典库.dbf然而原始数据的输入工作是一个艰苦而繁杂的工程，它需要明、细盘点对户入帐。如果一开始没搞准确，后患无穷。我们的方法是利用营业时间差逐个药房在不营业时盘点入帐，如值班药房在正常上班时间盘点，其它药房则在值班时间号召全科同志晚上加班，这样，可以避开当班时间盘点的困难。
, 百拇医药
药品信息字典库一般是设计在计算机的硬盘里，还可以按时间(如年月日)或根据药品分类分批分库校对、打印成书面文件帐簿或拷贝在软盘上保存起来，供随时调用。
了解了药品信息字典库对我们工作的重要性之后，在平时的计算机系统使用中，我们就要倍加重视对此库的保护和处理。最好是专人操作，专人校对，专人负责。对每一个数据的输入或删除都要慎而又慎之。尽量在一定时期里对字典库进行存盘(或打印)，盘点校对处理，避免因各种人为或机器故障造成的药品字典库帐目混乱乃至管理混乱。
下面我们用数据库编程语言Microsoft Visual Foxpro 6.0(中文版)来编一个简单的药品字典库处理子程序，因为语言命令如英文原义一般，所以只要你懂得英语就可以看懂。此程序：即使是不懂得什么叫青霉素，只要你知道它的品名汉语拼音首字母组是“QMS”(小写亦可)，轻轻一按，内容丰富的药品字典库便打开为您服务。由此您也可以自己随意编出能够优化您的工作(如医院药房各工作间每年每月日工作量统计报告、药品检验各项原始记录、报告等文件管理)的、适合您自己的药房工作软件系统。
, 百拇医药
附：药品字典库管理子程序集
*按任意键返回子程序subpro.prg
proc pressakey？
wait“按任意键返回...”
return
*药品字典库查询追加子程序query.prg
proc query
set talk off
clear
accept“请输入品名或拼音简码或代码：”to inp
, 百拇医药
found＝“f”
set exact off
set index to d_name
seek inp
if(.not.eof())
disp next 30 for name＝inp
found＝“t”
endif
do case
case found＝“f”
set index to d_py
, 百拇医药
seek lower(inp)
if(.not.eof())
disp next 60 for lower(py)＝lower(inp)
found＝“t”
endif
endcase
do case
case found＝“f”
set index to d_code
seek inp
if(.not.eof())
, http://www.100md.com
disp next 100 for code＝inp
found＝“t”
endif
endcase
if found＝“f”
clear
wait“没找到!下面追加......”
do update
return
endif
if found＝“t”
, 百拇医药
disp next 30 for py＝inp
wait“字典库里有此品名，下面查信息或返回(c/f)：”to abc
do case
case abc＝“f”
do query
loop
case abc＝“c”
do compare
returen
endcase
endif
return
(*药品字典库更新子程序update.prg)略。, 百拇医药
单位：中国人民解放军第180医院
关键词：
医院药房信息微机管理 医院药房信息微机管理、远程诊断系统、互联网(Internet)已越来越普及应用于医院药师的日常工作、科学研究、专业学习以及生活当中。1995年4月中国药学会在杭州成立了“中国药学会医院药学专业委员会计算机专业学组”，计算机在我国医院药学中的应用进入了一个崭新的、迅速发展的阶段。据估计，国内绝大部分地区以上的医院药房已应用了计算机管理。本文介绍医院药房计算机信息管理系统的一个重要枢纽库——药品信息字典库。希望能去除我们广大普通药师对计算机药学应用软件的神秘感并提高认识和激起兴趣，提醒平时操作时注意对药品信息字典库的保护。
药品信息字典库是医院药房计算机信息管理系统编程语言建立起来的一个多功能数据库。顾名思义，它好比是一本载满各种各样有用的医院药品信息的电子药典，其重要作用是显而易见的。它实际上是一本现代化的医院药房电子帐本，明察秋毫，公私分明。我们知道，医院药房药材供应管理实际上是一个以药品流通为主的流通管理过程。而计算机药材信息管理系统就是建立在一个(或若干个)药品信息字典库的基础上进行物流全程监控，并进行各种计算机语言数字化处理的编程系统。它具有人工根本无法比拟的高速、精确、安全、自动等特点。这样的一个药品信息字典库的创建和更新则成为建立药房管理系统的首要工作了。药品信息字典库说起来也很具体、简单，就象我们平常所说的药品信息表格字典一样。项目有：药品名、规格、批号、厂家、进货渠道、效期、各种价格(进价、批价、售价、优价)、进货日期、进货量、存放位置、输入代码、管理属性(普通、贵重、毒麻剧精等)、分类代码、出库日期、出库数量、库存量、药理作用、不良反应等等其它各种药品信息，均可设计加上。在数据库编程语言里创建这样一个字典库只要一句命令：Creat药品字典库.dbf然而原始数据的输入工作是一个艰苦而繁杂的工程，它需要明、细盘点对户入帐。如果一开始没搞准确，后患无穷。我们的方法是利用营业时间差逐个药房在不营业时盘点入帐，如值班药房在正常上班时间盘点，其它药房则在值班时间号召全科同志晚上加班，这样，可以避开当班时间盘点的困难。
, 百拇医药
药品信息字典库一般是设计在计算机的硬盘里，还可以按时间(如年月日)或根据药品分类分批分库校对、打印成书面文件帐簿或拷贝在软盘上保存起来，供随时调用。
了解了药品信息字典库对我们工作的重要性之后，在平时的计算机系统使用中，我们就要倍加重视对此库的保护和处理。最好是专人操作，专人校对，专人负责。对每一个数据的输入或删除都要慎而又慎之。尽量在一定时期里对字典库进行存盘(或打印)，盘点校对处理，避免因各种人为或机器故障造成的药品字典库帐目混乱乃至管理混乱。
下面我们用数据库编程语言Microsoft Visual Foxpro 6.0(中文版)来编一个简单的药品字典库处理子程序，因为语言命令如英文原义一般，所以只要你懂得英语就可以看懂。此程序：即使是不懂得什么叫青霉素，只要你知道它的品名汉语拼音首字母组是“QMS”(小写亦可)，轻轻一按，内容丰富的药品字典库便打开为您服务。由此您也可以自己随意编出能够优化您的工作(如医院药房各工作间每年每月日工作量统计报告、药品检验各项原始记录、报告等文件管理)的、适合您自己的药房工作软件系统。
, 百拇医药
附：药品字典库管理子程序集
*按任意键返回子程序subpro.prg
proc pressakey？
wait“按任意键返回...”
return
*药品字典库查询追加子程序query.prg
proc query
set talk off
clear
accept“请输入品名或拼音简码或代码：”to inp
, 百拇医药
found＝“f”
set exact off
set index to d_name
seek inp
if(.not.eof())
disp next 30 for name＝inp
found＝“t”
endif
do case
case found＝“f”
set index to d_py
, 百拇医药
seek lower(inp)
if(.not.eof())
disp next 60 for lower(py)＝lower(inp)
found＝“t”
endif
endcase
do case
case found＝“f”
set index to d_code
seek inp
if(.not.eof())
, http://www.100md.com
disp next 100 for code＝inp
found＝“t”
endif
endcase
if found＝“f”
clear
wait“没找到!下面追加......”
do update
return
endif
if found＝“t”
, 百拇医药
disp next 30 for py＝inp
wait“字典库里有此品名，下面查信息或返回(c/f)：”to abc
do case
case abc＝“f”
do query
loop
case abc＝“c”
do compare
returen
endcase
endif
return
(*药品字典库更新子程序update.prg)略。, 百拇医药