门诊收费系统的设计与实现定稿

1、安徽高校接着教化学院函授毕 业 论 文题目门诊收费系统的设计和实现 系别接着教化学院 年级专业计算机科学和技术 学号CHB011425032 姓名余小琳 指导老师黎林老师 完成日期安徽高校接着教化学院门诊收费系统的设计和实现摘 要医院信息管理系统是医院管理和医疗活动中进行信息管理和联机操作的计算机应用系统,英文缩写HIS（Hospital Information System)是为医院所属各部门供应病人诊治信息和行政管理信息的收集、存储、处理、提取和数据交换的实力，门诊管理信息系统是其中的一个重要子系统。本文针对中小型医院设计开发了一个基于C/S结构的医院信息管理系统的一个子系统医院门诊医疗管

2、理系统。通过计算机技术和网络技术实现对医院门诊医疗信息的全过程追踪和动态管理，从而简化了患者的诊疗过程，缩短就医时间，优化了就诊环境。本文首先分析介绍了系统开发的背景、国内外的探讨现状、运用中遇到的问题以及本文的构成；其次，以医院信息管理系统中门诊挂号子系统、门诊收费子系统、药房管理子系统和门诊医生子系统四个子系统为重点进行了需求分析、系统设计和实现；最终，对已进行的探讨和开发工作进行了总结和展望。 关键词：医院信息系统；医疗管理；C/S结构； 目 录1 绪论11.1 系统开发背景11.2 国内外探讨现状11.2.1国内探讨现状11.2.2国外探讨现状11.3 论文主要内容11.4 系统的基本

3、构成22 需求分析22.1 门诊医疗简介22.2 主要业务数据流程分析32.2.1门诊挂号32.2.2门诊退号42.2.3门诊就医42.2.4门诊收费52.2.5门诊药房发药6 2.3 数据分析72.3.1数据字典分析72.3.2整体E-R图73 系统设计93.1 系统模块结构设计93.2数据库设计104 系统的实现145 总结和展望22参考文献22致 谢2214 / 271 绪论1.1 系统开发背景门诊医疗可以说是医院管理的门面，流量大，手续较繁锁，在手工方式下，医护人员要做大量不必要的重复工作、效率低、精确性差、不便利管理，影响工作效率，造成了许多就诊病人得不到合理有效的快捷就诊服务，甚至

4、影响医疗质量，为此，越来越多的医院加快了信息化建设的步伐，本项目为定远县总医院而开发，系统目前运行状况良好，有效地优化服务和工作环境、使病员和医生心情得以放松，提高了服务效率和质量、树立了医院的良好形象，使门诊工作可以高效有序的运转，提高了医院的经济效益，促进医院的发展。1.2 国内外探讨现状1.2.1 国内探讨现状 我国医院信息系统（HIS）的发展阶段可以分为三个部分:第一阶段，是医院管理信息系统建设阶段;其次阶段，是医院临床信息系统建设阶段;第三阶段，是建设区域卫生信息系统阶段。在实现医院信息化的过程中，标准化是一个不能回避的问题。流程的标准化是和医院的改革，医院的管理科学化包括现代医院建

5、设密不行分的。1.2.2 国外探讨现状国际上医院信息化管理大致可分为三个阶段：第一个十年，集中在开发医院行政管理的功能上，如财务收费、住院病人和门诊病人管理等，但到了1972年美国连一个胜利的已完成的全面医院管理计算机系统都没有。其次个十年，在接着完成和实现医院管理信息计算机化的同时，开发者的努力已进入医疗信息的处理领域，如病人医疗处理系统，试验室系统等。到了1985年，美国全国医院数据处理工作调查表明，100张床以上的医院，80%实现了计算机财务收费管理、70%的医院可支持病人挂号登记和行政事务管理，25%的医院有了较完整的HIS。最终一个十年至今，探讨者又把重点放在了病人床边系统、医院影像

6、处理系统、病人计算机化病案、统一的医学语言系统等方面。医院信息系统正在经验着小型化、智能化和集成化的改造过程1.3 论文主要内容本文阐述了门诊医疗管理以病人为核心的设计思路，介绍了系统的开发过程和原理，依据软件开发的流程，从系统需求分析，系统设计，再到系统的实现。第一张为引言；其次章讲叙了系统需求分析，首先由医院管理者提出需求，依据用户需求开发人员经过市场调查得出系统要实现的功能。以及对系统的业务数据流程分析和数据分析。第三章讲解并描述了系统设计，主要讲解并描述如何实现需求分析时提出的功能需求，本章包括系统模块结构设计、系统功能模块设计和数据库设计，第四章系统的实现，这章是确定应当怎样详细实现

7、第三章所要求的系统。1.4 系统的基本构成门诊部医疗信息管理系统主要是对医院门诊部挂号和收费，药房以及医生就诊进行管理。主要功能模块有：门诊挂号和收费模块药房管理模块门诊医生模块对于门诊挂号，作为医院面对病人的第一个门面，主要是针对给病人挂号；统计挂号科室、医生、挂号员工作量、挂号病人的报表；门诊收费，作为医院对病人在医院看病的费用进行缴费部门，主要作用是门诊收费、收费查询、统计报表。对于药房管理主要功能是对医院的药品进行入出库进行管理，对库存中的药品进行盘点和审核，查询药品的入库、盘点、库存、以及对病人的取药、退药查询。统计药房人员工作量、药品日用量的报表。门诊医生的主要功能是通过病人的先主

8、诉病情，然后对病人进行诊治，给病人进行检查、开处方、手术，申请单将自动传到收费处和医技科室；可以查询病人的历史信息。2. 需求分析2.1 门诊医疗简介 门诊病人来院后，首先挂号，然后到医生处就诊，医生可能会开具检查单、化验单，开处方。病人交费后进行相关的检查和化验，其结果能支持医生推断病情，此时，医生开出治疗单、处方或手术单等，病人交费后接受相应处理。本系统主要应实现以下功能：（1）挂号来医院挂号、急症、医疗卡服务、就诊卡的设计和管理、所挂科目、科室的位置、挂号收费、登记。（2）退号对病人挂号做出退费处理。（3）就诊依据详细的症状进行检查、就诊，并开出处方。（4）收费依据检查的项目及医生所开处

9、方的详细药品，和划价系统中的详细金额进行收费。供应和门诊收费相关的各类报表供应门诊医疗统计、门诊科室及工作人员部分核算数据和工作量统计。退费处理方法合理有效，结帐方法敏捷平安。（5）发药药房依据处方，检查药房内是否有足够的药方上须要的药，是否须要去药房去取以补足货源以及预备库存等。核对已收费处方无误后予以配药、发药处理。2.2 主要业务数据流程分析2.2.1 门诊挂号 门诊挂号病人到医院挂号后，先确定是不是急诊，病人有没有磁卡，有先读取磁卡的信息；为病人选择科室，病人选择选择医生的级别，医院为该病人指派医生，对该病人收取挂号费用，登记挂号信息。如图2-1所示： 图2-1 病人挂号数据流程图2.

10、2.2 门诊退号挂号病人由于某种缘由要求退号，医院读取病人的磁卡，查询挂号的信息，是否是当日的挂号（假如不是当日的挂号，医院则不给和退号处理；为该病人做出退号处理，删除挂号的信息，给病人退挂号费用；对退出的费用记账帐，打印出退号凭证。如图2-2所示：图2-2 病人退号数据流程图2.2.3 门诊就医病人挂号到指定医生就诊，医生询问病人是否是复诊或者初诊（复诊的话查询病人的历史就诊信息）；病人向医生叙述病情，医生记录病情和病历；医生对病人阐述的病情给和诊断，诊断然后给病人开药（配置禁忌检查，询问病人同意否，同意的话给病人写电子病历）；须要做化验、手术、检查、住院的，给该病人开申请单，病人拿着医生开

11、出的药品、手术、检查、住院申请单到收费处缴费，缴完费用后到拿着单据到门诊药房取药；化验室、检查室做化验和检验；手术室领取手术时辰表；到住院部让住院护士支配床位；如图2-3所示：图2-3医生就诊数据流程图2.2.4 门诊收费门诊收费是对病人在门诊就医时全部的费用都在此处缴纳。接受病人的交费单据，刷卡读取该病人的收费单据，对病人费用进行收费。收费后打印发票，给病人一张收费单据。费用每日结算后打入财务股账户。如图2-4所示：图2-4门诊收费流程图2.2.5 门诊药房发药药房依据处方，检查药房内是否有足够的药房上须要的药，是否须要去药房去补足货源；依据药品的限期及库存下限来进行缺药、对药品进行数量、金

12、额双重限制；核对已收费处方无误后给和病人配药、发药处理。如图2-5所示：图2-5 药房发药流程图2.3数据分析 数据字典分析系统中所设计的数据字典如下：病人挂号编号，姓名，性别，年龄，身份证号挂号单挂号编号，挂号方式，病人姓名，主治医师，挂号日期病历病例编号，病人姓名，病历信息病人挂号号，姓名，年龄，身份证号，是否住院开处方处方号，处方内容，病人姓名，病人年龄，附注医师医师号，姓名，性别，职称，年龄，工作时间 检查检验序号，病人挂号号，检验内容，检验医师 收费项目病人号，收据项目，项目类型，项目序号，收费人员，收费金额收据收据号，收据项目，所收金额，收款日期 处方处方号，病人姓名，病人年龄，主

13、治医师，处方内容，附注药品药品编号，名称，数量，单价，规格，禁用者，生产日期，有效期药房药品编号，名称，数量，门诊药房编号，药库数量 整体E-R图一个病人只有一张病历且一张病历只能属于一个病人；一个病人一次只有一张挂号单，一张挂号单只能属于一个病人；一个病人由一个医师进行诊断和开处方，一个医师可以接诊许多病人和为其开处方；一个病人只有一张处方，一张处方只能属于一个病人；一个病人可以进行多项检查，一项检查也可以进行诊断多个病人； 一个病人可以有多个收费项目和收据，但一项收费项目或收据只能对应一个病人；收费项目和收据是多对多关系；一份处方可以对应多种药品，一种药品可以包含在多份处方里；药房对其他各

14、实体的一对多的联系；整体E-R图如图2-6所示：图2-6门诊医疗管理系统整体E-R图3.系统设计3.1 系统模块结构设计 医院门诊医疗管理可以分为：门诊挂号管理模块，门诊收费管理模块，药房管理模块，门诊医生模块三大部分:门诊收费管理，门诊收费管理，门诊收费管各模块的基本功能如下： （1）门诊收费管理基本功能。门诊挂号门诊挂号：病人进行挂号收费处理。输入病人的信息：姓名、性别、年龄； 选择病人类型、挂号类别、挂号科室、值班医生；挂号的金额，是否实惠。点击确定，保存该病人挂号的信息。 收费门诊收费：对医生给和病人开出的处方给和收费。输入挂号编码，显示挂号病人的信息以及处方的项目、数量、应收、实收、

15、执行科室；点击收费对该处方单进行收费。退费处理：对已收取的费用进行退费处理。输入发票号，显示要申请退费的病人信息及退费金额，点击确定。收费日结：对一天的收费进行结算交账。收费查询未收费处方查询：依据查询列中的分类、条件值、查询的起止日期对病人未收费处方信息进行查询。收费查询：依据查询列中的分类、条件值、查询的起止日期对病人收费处方信息进行查询。统计科室收费报表：依据执行科室对收入进行统计和导出数据库。门诊工作量报表：对门诊工作量进行统计和导出数据库。收费日结明细报表：对门诊收费日结明细报表进行统计和导出数据库。（3）药房管理基本功能。出入库管理请领支配：药房向药库进行领药处理。选择发药库房，在

16、请领药品中输入要请领的药品信息，请领完须要的药品后点击保存。入库审核：对入库的药品数据进行审核。从提取中提取须要审核的入库药品的单据，点击审核进行入库审核。入出库单据补打：假如之前填写的出入库单据没有打印须要打印的，进入该模块进行补打入出库单。盘点库存查询：对药库中的库存药品进行查询；选择要查询的库房、药品类别、药品的拼音码，对库存的药品进行查询。盘存报表打印：对盘存的报表进行打印。选择查询条件、盘存号和打印单据的显示方式；对盘存报表进行打印。查询科室基药统计：对科室基本的药品进行统计。选择统计的起止日期和科室，对科室的基药进行统计。盘存查询：对药库的药品进行查询。选择查询的条件：库房、药品类

17、别、药品拼音码；对药库的药品进行查询和导出。门诊取药查询：对门诊取药的药品信息进行查询。依据查询列中的分类、条件值、查询的起止日期对门诊取药的信息进行查询。统计药房工作量报表：对药房工作量报表进行统计和导出数据库。药品日用量报表：要药房药品日用量报表进行统计和导出数据库。取药管理门诊取药：进过药房的人对处方单据进行审核后，门诊把药发给病人。门诊退药：病人有某种缘由须要退药，可以通过该本门进行退药。（4）门诊医生基本功能。医生工作站医生对待诊的病人先进行病案登记；让病人主诉下病人，主诉完后对该病人进行诊治，对该病人开医嘱，然后进行医嘱保存。退改处方退改审核（未取药）：对未取药的审核单进行退改。选

18、择申请单号，输入退费的缘由，然后进行审核。病人历史信息查询综合医嘱信息查询：查询综合医嘱信息。选择查询条件：编号查询、病案号查询、病人姓名查询，查询的起止日期，对病人医嘱进行查询。3.2 数据库设计 以下是系统设计所用的主要数据表结构 1、挂号处表3-1挂号处 Registration代码名称数据类型及长度是否可空备注ysbh编号Char(10)Primary keyzbys值班医生Char(10)Not null2、病人信息表表3-2 病人信息表 patient代码名称数据类型及长度是否可空备注ghbh挂号编号Char(10)Primary keyxm姓名Char(10)Not nullxb

19、性别Char(10)Not nullnk年龄DatetimeNot nullsfzh身份证号DatmtimeNot null3、挂号单表3-3 挂号单 Hangs numbered certificate代码名称数据类型及长度是否可空备注ghbh挂号编号Char(10)Primary keyghfs挂号方式Char(10)Not nullbrxm病人姓名Char(10)Not nullzzys主治医师Char(10)Not nullghrq挂号日期DatetimeNot null4、病历信息表表3-4 病历信息表 Medical record代码名称数据类型及长度是否可空备注blbh病历编号C

20、har(10)Primary keybrxm病人姓名Char(10)Not nullblxx病历信息Char(50)Not null5、病人信息表表3-4 病人信息表 patient代码名称数据类型及长度是否可空备注ghh挂号号Char(10)Primary keyxm姓名Char(10)Not nullnl年龄DatmtimeNot nullsfzh身份证号DatetimeNot nullsfzy是否住院Char(2)Not null6、开处方表3-6 开处方 Writes the prescription代码名称数据类型及长度是否可空备注cfh处方号Char(10)Primary keyc

21、fnr处方内容Char(50)nullbrxm病人姓名Char(10)Not nullbrnl病人年龄datetimeNot nullfz附注Char(50)Not null7、医师表3-7 医师 doctor代码名称数据类型及长度是否可空备注ysh医师号Char(10)Primary keyxm姓名Char(10)Not nullxb性别Char(10)Not nullzc职称Char(10)Not nullnl年龄DatetimeNot nullgzsj工作时间DatetimeNot null8、检查表3-8 检查 Inspection代码名称数据类型及长度是否可空备注jyxh检验序号Ch

22、ar(10)Primary keybrghh病人挂号号Char(10)Not nulljynr检验内容Char(50)Not nulljyys检验医师Char(10)Not null9、收费项目表3-9 收费项目 Fee item代码名称数据类型及长度是否可空备注brh病人号Char(10)Primary keysjxm收据项目Char(10)Not nullxmlb项目类别Char(10)Not nullxmyh项目序号datetimeNot nullsfry收费人员Char(10)Not nullsfjr收费金额decimar(18,2)Not null10、收据表3-10收据 Recei

23、pt代码名称数据类型及长度是否可空备注sjh收据号Char(10)Primary keysjxm收据项目Char(10)Not nullssje所收金额Char(10)Not nullskrq收款日期datetimeNot null11、处方表3-11处方 Prescription代码名称数据类型及长度是否可空备注cfh处方号Char(10)Primary keybrxm病人姓名Char(10)Not nullbrnl病人年龄Char(10)Not nullzzys主治医生Char(10)Not nullcfnr处方内容Char(50)nullfz附注Char(50)Not null12、药品

24、信息表表3-12 药品信息表 medicine代码名称数据类型及长度是否可空备注ypbh药品编号Char(10)Primary keymc名称Char(10)Not nulldl数量Char(10)Not nulldj单价datetimeNot nullgg规格Char(10)Not nulljyz禁用者Char(10)Not nullscrq生产日期datetimeNot nullyxq有效期eatetimeNot null13、药品出库表3-13药品出库storehouse代码名称数据类型及长度是否可空备注ypbh药品编号Char(10)Primary keymc名称Char(10)Not

25、 nullsl数量Char(10)Not nullckrq出库日期datetimeNot null14、药品入库表3-14药品入库 Drugs warehousing代码名称数据类型及长度是否可空备注ypbh药品编号Char(10)Primary keymc名称Char(10)Not nullsl数量Char(10)Not nullrkrq入库日期datetimeNot null15、药房表3-15药房 Pharmacy代码名称数据类型及长度是否可空备注ypbh药品编号Char(10)Primary keymc名称Char(10)Not nullsl数量Char(10)Not nullmzyf

26、bh门诊药房编号datetimeNot nullyksl药库数量datetimeNot null4.系统实现本系统运用PowerBuilder技术，以oracle作为后台数据库。PowerBuilder是一个用来进行客户/服务器开发的完全的可视化开发环境。由于PowerBuilder采纳了面对对象和可视化技术，供应可视化的应用开发环境，使得我们利用PowerBuilder，可以便利快捷地开发出利用后台服务器中的数据和数据库管理系统的数据库应用程序。下面是本系统的一些界面实现1用户登陆界面进入登录界面后，不同的用户，如门诊挂号模块的运用人员，输入用户编码，然后在登陆口令中输入密码，单击确定按钮，

27、假如系统提示“不存在该用户，或者密码输入错误，则表示登记系统时运用人员的代码错误或者密码错误，密码正确，进入该系统。假如须要更改运用人员的密码，在登记胜利时可以更改密码。如图所示图4-2： 图4-2 用户登记界面部分代码实现如下：/登录if trim(sle_ucode.text) = '' thenmsg("请输入用户编码！")sle_upwd.text= '' sle_ucode.setfocus()sle_ucode.selecttext(1, len(sle_ucode.text)return else if trim(sle_upw

28、d.text) = '' then msg("请输入密码！") sle_upwd.setfocus( ) return end ifend iflong ll_yhzidstring ls_yhzmcll_yhzid= dw_yhz.getitemnumber( dw_yhz.getrow( ) , "yhz")if not gnv_RightManager.of_right_has_userid(sle_ucode.text) thenmsgbox.msgbox("登录提示", "不存在该用户，请重新输入!

29、")sle_ucode.setfocus()sle_ucode.selecttext(1,len(sle_ucode.text)returnend ifif not trim(gnv_RightManager.of_right_getpwd(sle_ucode.text, ll_yhzid) = sle_upwd.text thenmsgbox.msgbox("系统提示", "密码输入错误,请重新输入!")sle_upwd.setFocus()sle_upwd.selecttext(1,200)returnend ifselect xt_ks.

30、ksid,xt_ks.ksmc,xt_ks.kssx into :gnv_RightManager.ksid,:gnv_RightManager.ksmc,:gnv_RightManager.kssx from xt_ks, xt_yhz where xt_ks.ksid = xt_yhz.ksid and xt_yhz.yhzid = :ll_yhzid and isnull(tybz,0)= 0;if cbx_1.checked then /登陆胜利时更改密码 parent.hide()open(w_chgpwd)end ifparent.hide()ib_exit = trueclose

31、withreturn(parent, sle_ucode.text)2门诊收费界面门诊收费窗口首先显示的是一般的收费项目。一般收费窗口分为三屏，窗口的上方显示病人信息和挂号信息。在挂号编码处选择挂号单号码，在医生处选择病人就诊的医生。窗口就会上方显示病人就诊信息，中的左边显示就诊和领用药物信息以及所须要的费用；单击一行信息，就会在窗口中间的右边显示出这些信息的明细。窗口右下方显示发票信息和收费信息。发票号和合计系统已自动给出。在支付方式处选择支付方式，折扣方式处选择折扣方式。在收取处输入所收到的费用，备注处可以添加备注。按F9收费，出现一个窗口，将收费信息保存。如图4-2所示：图4-2门诊收费

32、部分代码如下Long ll_ypxhIF u_sele_yp.Visible THENu_sele_yp.chooseone(al_row)IF u_sele_yp.gettcbz() = 1 THEN /输入的为套餐IF dw_main.RowCount() <> dw_main.GetRow() OR dw_main.Object.fyxhdw_main.GetRow() <> 0 THENu_sele_yp.clear_tcbz() /不行输入套餐,执行清套餐标记操作MessageBox("提示","只有最终一行可输入套餐!"

33、;)IF dw_main.Object.fyxhdw_main.GetRow() > 0 THENll_ypxh = dw_main.Object.fyxhdw_main.GetRow()iuo_ypxx.setypxx(ll_ypxh)iuo_ypxx.setyfkc()dw_main.Object.fymcdw_main.GetRow() = iuo_ypxx.getypxx("ypmc")dw_main.SetColumn('fysl')ELSEdw_main.SetText('')END IFRETURN 1END IFdw_m

34、ain.Object.fyxhdw_main.GetRow() = -1dw_main.Object.fymcdw_main.GetRow() = u_sele_yp.gettcmc()dw_main.Object.fysldw_main.GetRow() = 1dw_main.SetColumn('fysl')RETURN 1ELSEll_ypxh = u_sele_yp.getypxh()IF ll_ypxh = -1 THEN /错误RETURN 1ELSE /正常返回IF wf_set_cf02(ll_ypxh,dw_main.Object.fysldw_main.Ge

35、tRow(),1,dw_main.GetRow() = 0 THENdw_main.SetColumn('fysl')RETURN 1END IFEND IFEND IFEND IFRETURN -13医生工作站保存医嘱界面进入医生工作站，医生给病人就诊时给病人开医嘱。选择药品分类，输 入 药品的首拼码，发药量、药品的用法、单次的剂量、给药的时间然后暂挂。：图4-3医生工作站保存医嘱部门代码如下/ 功能:新增一张处方/ 入参:ai_RecipeType处方类别(1 西 2 中 3 草)Int li_PharmId,iLong ll_RecipeIdBoolean lb_HasS

36、ensCheckIf This.CheckDataChanged() < 1 ThenReturn -1End If/ Script: w_ys_mz_clinic_recipe:addbill()函数/ Reason: BSEMR4.X_V2.2->增加门诊处方"每张西药、成药方不得超过5种药品、应当填写临床诊断"的限制/ Modified By: 何俊 Date: 2012-03-08Long ll_ExistsIf iu_mzys_cs.Options.NeedDiag = 1 and iu_mzys_cs.Doctor.Id <> '

37、9999' ThenSelect count(*) Into :ll_Exists From YS_MZ_jbzd Where JZXH = :iu_mzys_cs.Patient.ClinicId and tjbz = 1 and zfpb =0 Using SQLHIS;If ll_Exists = 0 Or IsNull(ll_Exists) ThenMessageBox('提示','应当先填写临床诊断（提交后有效）!')iu_mzys_cs.iw_Frame.Post CallFunction('Diag', iu_mzys_cs

38、.Patient.ClinicId,0)Return -1End IfEnd If/ 是否存在皮试药品lb_HasSensCheck = FalseFor i = 1 To dw_Detail.RowCount()If Not IsNull(dw_Detail.Object.Pspbi) And dw_Detail.Object.Pspbi = 1 Thenlb_HasSensCheck = TrueEnd IfIf SensCheck.IsSensitive(Long(dw_Detail.Object.Ypxhi) = 1 Thenlb_HasSensCheck = TrueEnd IfNe

39、xtIf dw_Head.RowCount() > 0 Thenll_RecipeId = dw_Head.Object.Cfsb1If Not IsNull(ll_RecipeId) And ll_RecipeId > 0 ThenIf Not lb_HasSensCheck Then / 存在皮试记录时暂不提交处方If iu_mzys_cs.Patient.LockRecipe(ll_RecipeId, False) < 1 ThenMessageBox('提示', "处方解锁失败!n" + iu_mzys_cs.Patient.Err

40、orInfo)End IfIf iu_mzys_cs.Patient.LockCheck(2, False,ll_RecipeId) < 1 ThenMessageBox('提示', "费用单解锁失败!n" + iu_mzys_cs.Patient.ErrorInfo)End IfEnd IfEnd IfIf iu_mzys_cs.Patient.LockCheck(3, False,ll_RecipeId) < 1 ThenMessageBox('提示', "皮试单解锁失败!n" + iu_mzys_cs.P

41、atient.ErrorInfo)End IfEnd Ifdw_Head.Reset()dw_Head.InsertRow(0)This.RecipeType = ai_RecipeTypeChoose Case This.RecipeTypeCase 1Case 2Case 3Case ElseEnd Choose/ Script - addbill ( integer ai_recipetype ) / Reason: 假如是草药方,则草药方按钮有效if ai_RecipeType = 3 Thencb_herbal.Enabled = TrueElsecb_herbal.Enabled = FalseEnd Ifdw_Head.Object.JZXH1 = iu_mzys_cs.Patient.ClinicId / 就诊序号dw_Head.Object.Cflx1 = ai_RecipeType / 处方类型dw_Head.Object.Ksdm1 = iu_mzys_cs.Doctor.DeptId / 科室代码dw_Head.Object.Ysdm1 = iu_mzys_cs.Doctor.Id / 医生代码dw_Head.Object.Kfrq1 = gf_Server_Date() /