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

安徽大学继续教育学院函授

毕业论文

题目门诊收费系统的设计与实现

系别继续教育学院

年级专业计算机科学与技术

学号

姓名__________

指导教师______

完毕日期____________________

安徽大学继续教育学院

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

摘要

医院信息管理系统是医院管理和医疗活动中进行信息管理和联机操作的计算机应用系统，英文缩写HIS(Hospital

InformationSystem)是为医院所属各部门提供病人诊治信息和行政管理信息的搜集、存储、处理、提取和数据互换的

能力，门诊管理信息系统是其中的种重要/系统。本文针对中小型医院设计开发了一种基于C/S构造的医院信息管理

系统的•种r•系统一一医院门诊医疗管理系统。通过计算机技术和网络技术实现对医院门诊医疗信息的全过程追踪和动

态管理，从而简化了患者的诊断过程，缩短就医时间，优化了就诊环境。本文首先分析简介了系统开发的背景、国内外

的研究现实状况、运用中碰到的问照以及本文的构成：另一方面，以医院信息管理系统中门诊挂号子系统、门诊收班子

系统、药房管理子系统和门诊医生子系统四个子系统为重点进行了需求分析、系统设计和实现：最终，对已进行的研究

和开发工作进行了总结和展望。

关键词：医院信息系统：医疗管理；C/S构造:

目录

1绪论..............................

1.1系统开发背景...................................1

1.2国内外研究现实状况.............................1

1.2.1国内研究现实状况.............................1

1.2.2国外研究现实状况.............................1

1.3论文重要内容...................................1

1.4系统的基本构成.................................2

2需求分析...........................................2

2.1门诊医疗简介...................................2

2.2重要业务数据流程分析...........................3

2.2.1门诊挂号.....................................3

2.2.2门诊退号.....................................4

2.2.3门诊就医.....................................4

2.2.4门诊收费.....................................5

2.2.5门诊药房发药.................................6

2.3数据分析......................................7

2.3.1数据字典分析.................................7

2.3.2整体E-R图...................................7

3系统设计...........................................9

3.1系统模块构造设计...............................9

3.2数据库设计.....................................10

4系统的实现........................................14

5总结与展望........................................22

参照文献.............................................22

致谢...............................................22

1绪论

1.1系统开发背景

门诊医疗可以说是医院管理的门面，流量大，手续较繁锁，在手工方式

下，医护人员要做大量不必要的反复工作、效率低、精确性差、不以便管理,

影响工作效率，导致了诸多就诊病人得不到合理有效口勺快捷就诊服务，甚至

影响医疗质量，为此，越来越多的医院加紧了信息化建设的步伐，本项目为

定远县总医院而开发，系统目前运行状况良好，有效地优化服务和工作环境、

使病员和医生情绪得以放松，提高了服务效率和质量、树立了医院的良好形

象，使门诊工作可以高效有序日勺运转，提高了医院的经济效益，增进医院的

发展。

1.2国内外研究现实状况

1.2.1国内研究现实状况

我国医院信息系统（HIS）日勺发展阶段可以分为三个部分:第一阶段，是医

院管理信息系统建设阶段;第二阶段，是医院临床信息系统建设阶段;第三阶

段，是建设区域王生信息系统阶段。在实现医院信息化的过程中，原则化是

一种不能回避H勺问题。流程的原则化是和医院的改革，医院的管理科学化包

括现代医院建设密不可分的。

1.2.2国外研究现实状况

国际上医院信息化管理大体可分为三个阶段：第一种十年，集中在开发

医院行政管理H勺功能上，如财务收费、住院病人和门诊病人管理等，但到了

1972年美国连一种成功日勺已完毕日勺全面医院管理计算机系统都没有。第二个

十年，在继续完毕和实现医院管理信息计算机化的同步，开发者日勺努力已进

入医疗信息的处理领域，如病人医疗处理系统，试验室系统等。到了1985

年，美国全国医院数据处理工作调查表明，100张床以上的医院，80%实现了

计算机财务收费管理、70%的医院可支持病人挂号登记和行政事务管理，25*

的医院有了较完整日勺HISo最终一种十年至今，研究者又把重点放在了病人

床边系统、医院影像处理系统、病人计算机化病案、统一日勺医学语言系统等

方面。医院信息系统正在经历着小型化、智能化和集成化的改造过程

1.3论文重要内容

本文论述了门诊医疗管理以病人为关键的设计思绪，简介了系统日勺开发

过程和原理，根据软件开发的流程，从系统需求分析、系统设计，再到系统

的实现。第一张为引言；第二章讲叙了系统需求分析，首先由医院管理者提

出需求，根据顾客需求开发人员通过市场调查得出系统要实现的功能。以及

对系统H勺业务数据流程分析和数据分析。第三章讲述了系统设计，重要讲述

怎样实现需求分析时提出日勺功能需求，本章包括系统模块构造设计、系统功

能模块设计和数据库设计，第四章系统的实现，这章是确定应当怎样详细实

现第三章所规定的系统。

1.4系统日勺基本构成

门诊部医疗信息管理系统重要是对医院门诊部挂号和收费，药房以及医

生就诊进行管理。

重要功能模块有：

门诊挂号和收费模块

药房管理模块

门诊医生模块

对于门诊挂号，作为医院面对病人的第一种门面，重要是针对给病人挂

号；记录挂号科室、医生、挂号员工作量、挂号病人日勺报表；门诊收费，作

为医院对病人在医院看病日勺费用进行缴费部门，重要作用是门诊收费、收费

查询、记录报表。

对于药房管理重要功能是对医院的药物进行入出库进行管理，对库存中

的药物进行盘点和审核，查询药物的入库、盘点、库存、以及对病人H勺取药、

退药查询。记录药房人员工作量、药物日用量的报表。

门诊医生口勺重要功能是通过病人的先主诉病情，然后对病人进行诊治，

给病人进行检查、开处方、手术，申请单将自动传到收费处和医技科室；可

以查询病人的历史信息。

2.需求分析

2.1门诊医疗简介

门诊病人来院后，首先挂号，然后到医生处就诊，医生也许会开具检查单、

化验单，开处方。病人交费后进行有关H勺检查和化验，其成果能支持医生判

断病情，此时，医生开出治疗单、处方或手术单等，病人交费后接受对应处

理。

本系统重要应实现如下功能：

(1)挂号

来医院挂号、急症、医疗卡服务、就诊卡日勺设计与管理、所挂科目、科

室日勺位置、挂号收费、登记。

(2)退号

对病人挂号做出退费处理。

(3)就诊

根据详细的症状进行检查、就诊，并开出处方。

(4)收费

①根据检查的项目及医生所开处方的详细药物，和划价系统中的详细金

额进行收费。

②提供与门诊收费有关日勺各类报表

③提供门诊医疗记录、门诊科室及工作人员部分核算数据和工作量」，己录。

④退费处理措施合理有效，结帐措施灵活安全。

（5）发药

①药房根据处方，检查药房内与否有足够的药方上需要欧I药，与否需要

去药房去取以补足货源以及预备库存等。

②查对已收购处方无误后予以配药、发药处理。

2.2重要业务数据流程分析

2.2.1门诊挂号

门诊挂号病人到医院挂号后，先确定是不是急诊，病人有无磁卡，有先读

取磁卡日勺信息；为病人选择科室，病人选择选择医生日勺级别，医院为该病人

指派医生，对该病人收取挂号费用，登记挂号信息。如图2-1所示：

挂号信息

基

息

选

取

科

卡

杼

生

站束

选择医生级

别（由院方

指派医生）

工-

询

查

该

级

该

空

别

科

医

当

各

生

候

数

前庆生当班

收费।

各医生候诊桂号数、接诊数据

诊数据一

——

•

一

/

选择候诊数

最少的该级

别当班医生

--------------:打印

图2T病人挂号数据流程图

2.2.2门诊退号

挂号病人由于某种原因规定退号，医院读取病人日勺磁卡，直询挂号的信

息，与否是当日的挂号（假如不是当日的挂号，医院则不给与退号处理；为

该病人做出退号处理，删除挂号的信息，给病人退挂号费用；对退出的费用

记账帐，打印出退号凭证。如图2-2所示:

图2-2病人退号数据流程图

2.2.3门诊就医

病人挂号到指定医生就诊，医生问询病人与否是复诊或者初诊（复诊的

话查询病人日勺历史就诊信息）；病人向医生论述病情，医生记录病情和病历;

医生对病人论述的病情给与诊断，诊断然后给病人开药（配置禁忌检查，问

询病人同意否，同意的话给病人写电子病历）；需要做化验、手术、检查、

住院的，给该病人开申请单，病人拿着医生开出的药物、手术、检查、住院

申请单到收费处缴费，缴完费用后到拿着单据到门诊药房取药；化验室、检

查室做化验和检查；手术室领取手术时间表；到住院部让住院护士安排床位;

如图2-3所示:

电子病历

、检遑结」保存入电；

L果'子病历I

电子,病历

临时

统计

图2-3医生就诊数据流程图

2.2.4门诊收费

门诊收费是对病人在门诊就医时所有日勺先用都在此处缴纳。接受病人的

交费单据，刷卡读取该病人的收费单据，对病人费用进行收费。收费后打印

发票，给病人一张收费单据。费用每日结算后打入财务股账户。如图2-4所

示：

2.2.5门诊药房发药

药房根据处方，检查药房内与否有足够的药房上需要日勺药，与否需要去

药房去补足货源；根据药物口勺限期及库存下限来进行缺药、时药物进行数量、

金额双重控制；查对已收费处方无误后给与病人配药、发药处理。如图2-5

所示：

图2-5药房发药流程图

2.3数据分析

数据字典分析

系统中所设计的数据字典如下：

病人｛挂号编号，姓名，性别，年龄，身份证号｝

挂号单｛挂号编号，挂号方式，病人姓名，主治医师，挂号日期｝

病历｛病例编号，病人姓名，病历信息｝

病人｛挂号号，姓名，年龄，身份证号，与否住院｝

开处方｛处方号，处方内容，病人姓名，病人年龄，附注｝

医师｛医师号，姓名，性别，职称，年龄，工作时间｝

检查｛检查序号，病人挂号号，检查内容，检查医师｝

收费项目｛病人号，收据项目，项目类型，项目序号，收费人员，收费金

额｝

收据｛收据号，收据项目，所收金额，收款日期｝

处方｛处方号，病人姓名，病人年龄，主治医师，处方内容，附注｝

药物｛药物编号，名称，数量，单价，规格，禁用者，生产日期，有效期｝

药房｛药物编号，名称，数量，门诊药房编号，药库数量｝

整体E-R图

一种病人只有一张病历且一张病历只能属于一种病人；一种病人一次只

有一张挂号单，一张挂号单只能属于一种病人；一种病人由一种医师进行诊

断和开处方，一种医师可以接诊诸多病人和为其开处方；一种病人只有一张

处方，一张处方只能属于一种病人；一种病人可以进行多项检查，一项检查

也可以进行诊断多种病人；一种病人可以有多种收费项目和收据，但一项收

费项目或收据只能对应一种病人；收费项目和收据是多对多关系；一份处方

可以对应多种药物，一种药物可以包括在多份处方里；药房对其他各实体的

一对多【付联络；整体E-R图如图2-6所示:

图2-6门诊医疗管理系统整体E-R图

3.系统设计

3.1系统模块构造设计

医院门诊医疗管理可以分为：门诊挂号管理模块，门诊收洪管理模块，药

房管理模块，门诊医生模块三大部分:门诊收费管理，门诊收费管理，门诊收费管

各模块日勺基本功能如下：

（1）门诊收费管理基本功能。

①门诊挂号

门诊挂号：病人进行挂号收费处理。输入病人的信息：姓名、性别、年龄;

选择病人类型、挂号类别、挂号科室、值班医生；挂号口勺金额，与否优惠。

点击确定，保留该病人挂号口勺信息。

②收费

门诊收费：对医生给与病人开出的处方给与收费。输入挂号编码，显示

挂号病人的I信息以及处方日勺项目、数量、应收、实收、执行科室；点击收费

对该处方单进行收费。

退费处理：对已收取的费用进行退费处理。输入发票号，显示要申请退

费日勺病人信息及退费金额，点击确定。

收费日结：对一天日勺收费进行结算交账.

③收贽查询

未收费处方查询：按照查询列中的分类、条件值、查询的起止日期对病

人未收费处方信息进行查询。

收费查询：按照查询列中口勺分类、条件值、查询口勺起止日期对病人收费

处方信息进行查询。

④记录

科室收费报表：根据执行科室对收入进行记录和导出数据库。

门诊工作量报表：对门诊工作量进行记录和导出数据库。

收费日结明细报表：对门诊收费日结明细报表进行记录和导出数据库。

（3）药房管理基本功能。

①出入库管理

请领计划：药房向药库进行领药处理。选择发药库房，在请领药物中输

入要请领的药物信息，请领完需要的药物后点击保留。

入库对入库的药物数据进行审核。从‘提取’中提取需要审核的入库

药物的单据•，点击审核进行入库审核。

入出库单据补打：假如之前填写的出入库单据没有打印需要打印的，进

入该模块进行补打入出库单。

②盘点

库存查询：对药库中日勺库存药物进行查询；选择要查询欧I库房、药物类

别、药物的拼音码，对库存日勺药物进行查询。

盘存报表打印：对盘存的报表进行打印。选择查询条件、盘存号和打印

单据的显示方式；对盘存报表进行打印。

③查询

科室基药记录：对科室基本的药物进行记录。选择记录的起止日期和科

室，对科室的基药进行记录。

盘存查询：对药库日勺药物进行查询。选择查询的条件：库房、药物类别、

药物拼音码；对药库的药物进行查询和导出。

门诊取药查询：对门诊取药的药物信息进行查询。按照查询列中的分类、

条件值、查询欧I起止日期对门诊取药的信息进行查询。

④记录

药房工作量报表：对药房工作量报表进行记录和导出数据库。

药物日用量报表：要药房药物日用量报表进行记录和导出数据库。

⑤取药管理

门诊取药：进过药房的人对处方单据进行审核后，门诊把药发给病人。

门诊退药：病人有某种原因需要退药，可以通过该本门进行退药。

(4)门诊医生基本功能。

①医生工作站

医生看待诊的病人先进行病案登记；让病人主诉下病人，主诉完后对该

病人进行诊治，对该病人开医嘱，然后进行医嘱保留。

②退改处方

退改审核(未取药)：对未取药的审核单进行退改。选择申请单号，输入

退费的原因，然后进行审核。

③病人历史信息查询

综合医嘱信息查询：查询综合医嘱信息0选择查询条件：编号查询、病

案号查询、病人姓名查询，查询的起止R期，对病人医嘱进行查询。

3.2数据库设计

如下是系统设计所用的重要数据表构造

1、挂号处

表3-1挂号处Registration

代码名称数据类型及长度与否可空备注

ysbh编号Char(10)Primarykey

zbys值班医生Char(10)Notnull

2、病人信息表

表3-2病人信息表patient

代码名称数据类型及长度与否可空备注

ghbh挂号编号Char(10)Primarykey

xm姓名Char(10)Notnull

xb性另Char(10)Notnull

nk年龄DatetimeNotnull

sfzh身份证号DatmtimeNotnull

3、挂号单

表3-3挂号单Hangsnumberedcertificate

代码名称数据类型及长度与否可空备注

ghbh挂号编号Char(10)Primarykey

ghfs挂号方式Char(10)Notnull

brxm病人姓名Char(10)Notnull

zzys主治医师Char(10)Notnull

ghrq挂号日期DatetimeNotnull

4、病历信息表

表3-4病历信息表Medicalrecord

代码名称数据类型及长度与否可空备注

blbh病历编号Char(10)Primarykey

brxm病人姓名Char(10)Notnull

blxx病历信息Char(50)Notnull

5、病人信息表

表3-4病人信息表patient

代码名称数据类型及长度与否可空备注

ghh挂号号Char(10)Primarykey

xm姓名Char(10)Notnull

nl年龄DatmtimeNotnull

sfzh身份证号DatetimeNotnull

sfzy与否住院Char(2)Notnull

6、开处方

表3-6开处方Writestheprescription

代码名称数据类型及长度与否可空备注

cfh处方号Char(10)Primarykey

cfnr处方内容Char(50)null

brxm病人姓名Char(10)Notnull

brnl病人年龄datetimeNotnull

fz附注Char(50)Notnull

7、医师

表3-7医师doctor

代码名称数据类型及长度与否可空备注

ysh医师号Char(10)Primarykey

xm姓名Char(10)Notnull

xb性另Char(10)Notnull

zc职称Char(10)Notnull

nl年龄DatetimeNotnull

gzsj工作时间DatetimeNotnull

8、检查

表3-8检查Inspection

代码名称数据类型及长度与否可空备注

jyxh检查序号Char(10)Primarykey

brghh病人挂号号Char(10)Notnull

jynr检查内容Char(50)Notnull

jyys检查医师Char(10)Notnull

9、收费项目

表3-9收费项目Feeitem

代码名称数据类型及长度与否可空备注

brh病人号Char(10)Primarykey

sjxm收据项目Char(10)Notnull

xmlb项目类别Char(10)Notnull

xmyh项目序号datetimeNotnull

sfry收费人员Char(10)Notnull

sfjr收费金额decimar(18,2)Notnull

10、收据

表3-10收据Receipt

代码名称数据类型及长度与否可空备注

sjh收据号Char(10)Primarykey

sjxm收据项目Char(10)Notnull

ssje所收金额Char(10)Notnull

skrq收款日期datetimeNotnull

11、处方

表3-11处方Prescription

代码名称数据类型及长度与否可空备注

cfh处方号Char(10)Primarykey

brxm病人姓名Char(10)Notnull

brnl病人年龄Char(10)Notnull

zzys主治医生Char(10)Notnull

cfnr处方内容Char(50)null

fz附注Char(50)Notnull

12、药物信息表

表3-12药物信息表medicine

代码名称数据类型及长度与否可空备注

ypbh药物编号Char(10)Primarykey

me名称Char(10)Notnull

dl数量Char(10)Notnull

dj单价datetimeNotnull

gg规格Char(10)Notnull

jyz禁用者Char(10)Notnull

scrq生产日期datetimeNotnull

yxq有效期eatetimeNotnull

13、药物出库

表3-13药物出库storehouse

代码名称数据类型及长度与否可空备注

ypbh药物编号Char(10)Primarykey

me名称Char(10)Notnull

si数量Char(10)Notnull

ckrq出库日期datetimeNotnull

14、药物入库

表3-14药物入库Drugswarehousing

代码名称数据类型及长度与否可空备注

ypbh药物编号Char(10)Primarykey

me名称Char(10)Notnull

si数量Char(10)Notnull

rkrq入库日期datetimeNotnull

15、药房

表3T5药房Pharnacy

代码名称数据类型及长度与否可空备注

ypbh药物编号Char(10)Primarykey

me名称Char(10)Notnull

si数量Char(10)Notnull

mzyfbh门诊药房编号datetimeNotnull

yksl药库数量datetimeNotnull

4.系统实现

本系统使用PowerBuilder技术，以oracle作为后台数据库。PowerBuilder是一种用

来进行客户/服务器开发的完全H勺可视化开发环境。由于PowerBuilder采用了面向对象和

可视化技术，提供可视化的应用开发环境，使得我们运用PowerBuilder,可以以便快捷地

开发出运用后台服务器中内数据和数据库管理系统的数据库应用程序。

下面是本系统的某些界面实现

1.顾客登陆界面

进入登录界面后，不一样的顾客，如门诊挂号模块的使用人员，输入顾客编码，然后

在登陆口令中输入密码，单击确定按钮，假如系统提醒“不存在该顾客，或者密码输入错

误，则表达登记系统时使用人员日勺代码错误或者密码错误，密码对日勺，进入该系统。假如

需要更改使用人员的密码，在登记成功时可以更改密码。如图所示图4-2：

图4-2顾客登记界面

部分代码实现如下：

〃登录

iftrim(sle_ucode.text)=''then

msg(〃请输入顾客编码！〃)

sle_upwd.text=

sleucode.setfocus()

sleucode.selecttext(1,len(sleucode.text))

return

else

iftrim(sle_upwd.text)=''then

msg(〃请输入密玛！〃)

sle_upwd.setfocus()

return

endif

endif

longll_yhzid

stringls_yhzmc

ll_yhzid=dwyhz.getitemnumber(dwyhz.getrow(),〃yhz〃)

ifnotgnv_RightManager.of_right_has_userid(sle_ucode.text)then

msgbox.msgbox(〃登录提醒〃，〃不存在该顾客，请重新输入!〃)

sleucode.setfocus()

sleucode.selecttext(1,len(sleucode.text))

return

endif

ifnottrim(gnv_RightManager.of_right_getpwd(sle_ucode.text,ll_yhzid))=

sleupwd.textthen

msgbox.msgbox(〃系统提醒〃，〃密码输入错误,请重新输入!”)

sle_upwd.setFocus()

sle_upwd.selecttext(1,200)

return

endif

selectxt_ks.ksid,xt_ks.ksmc,xt_ks.kssx

into:gnvRightManager.ksid,:gnvRightManager,ksmc,:gnvRightManager,kssx

fromxt_ks,xt_yhz

wherext_ks.ksid=xt_yhz.ksidandxt_yhz.yhzid=:ll_yhzid

andisnull(tybz,0)=0;

ifcbx_l.checkedthen〃登陆成功时更改密玛

parent.hideO

open(wchgpwd)

endif

parent.hideO

ibexit=true

closewithreturn(parent,sleucode.text)

2.门诊收费界面

门诊收费窗口首先显示『'J是一般口勺收费项目。一般收费窗口分为三屏，窗口的上方显

示病人信息和挂号信息。在挂号编码处选择挂号单号码，在医生处选择病人就诊的医生。

窗口就会上方显示病人就诊信息，中H勺左边显示就诊和领用药物信息以及所需要的费用;

单击一行信息，就会在窗口中间的右边显示出这些信息的明细。窗口右下方显示发票信息

和收费信息。发票号和合计系统已自动给出。在支付方式处选择支付方式，折扣方式处选

择折扣方式。在收取处输入所收到的费用，备注处可以添加备注。按F9收费，出现一种

窗口，将收费信息保留。如图4-2所示:

4-2门诊收费

部分代码如下

Longll_ypxh

IFuseleyp.VisibleTHEN

u_sele_yp.chooseone(al_row)

IFu_sele_yp.gettcbzO=1THEN〃输入日勺为套餐

IFdwmain.RowCount()<>dwmain.GetRowOOR

dwmain.Object.fyxh[dw_main.GetRowO]<>0THEN

u_sele_yp.clear_tcbz()〃不可输入套餐,执行清套餐标志操作

MessageBox(〃提醒〃，〃只有最终一行可输入套餐!〃)

IFdwmain.Object.fyxh[dw_main.GetRowO]>0THEN

ll_ypxh=dwmain.Object.fyxh[dwmain.GetRowO]

iuo_ypxx.setypxx⑴_ypxh)

iuoypxx.setyfkc()

dwmain.Object.fymc[dwmain.GetRowO]=iuoypxx.getypxx(，，ypmc，/)

dwmain.SetColumn(,fysT)

ELSE

dwmain.SetText('')

ENDIF

RETURN1

ENDIF

dwmain.Object.fyxh[dw_main.GetRowO]=-1

dw_main.Object,fymc[dw_main.GetRowO]=u_sele_yp.gettcmc()

dwmain.Object,fysl[dwmain.GetRowO]=1

dwmain.SetColumn(,fysl,)

RETURN1

ELSE

ll_ypxh=u_sele_yp.getypxhO

IFll_ypxh=-1THEN〃错误

RETURN1

ELSE〃正常返回

IF

wf_set_cf02(1l_ypxh,dw_main.Object,fysl[dwmain.GetRowO],1,dwmain.GetRowO)

二0THEN

dwmain.SetColumnfysT)

RETURN1

ENDIF

ENDIF

ENDIF

ENDIF

RETURN-1

3.医生工作站一保留医嘱界面

进入医生工作站，医生给病人就诊时给病人开医嘱。选择药物分类，输入药物的首

拼码，发药量、药物日勺使用方法、单次的剂量、给装日勺时间然后暂挂。

国i报医生工作站(胥科i摄)I一回i-i

黑号航把Q健康档案G送病人,休户日哲挂/■结束x取消&首页才病历夕诊既陷检验/检直电攵

就诊卡号姓名：杨庆先性别：男年龄：90岁性质:离休干郃地址：0帐户T

C杨

百

页处方录入

习01|CZD]|H||wE3v|

病

历

〕

诊

断

.国处方号码：开方时间：2015.07.0616:12西<«(F11)Il

检

睑

.国就诊科室:骨科〈总)开方医生：管理员复噜翼装

检

查

.国

匚

处

司s药品名称规格单位总量每次剂量频

处

方

…

回

…归121目精胰晶素注射流G3nl:300IU支E!3.0ml

报

言

国

…

孙

时

，16

：

今

时

，

：16

今

时

匕17

：

时

1时

.，5

如

时

，o9

：

物7合计：206.08日付：

时

.，1

今6

时

，1<|1"_________________>

：

甲17

时

匕

时7附加项目单位数蚩单价金额自负比例

时

，1

：

时6

时

，

：1

分6

时

，1

：

申17

时

匕

耽5

时

匕1

科6

<时

今16插入(F6)|新组(F7)|删除⑴)|哥处方(F5)|删除处方国)|草药方出)|保存(F9)|

，

时

：1

申5

加入常用药3)|存为个人组套(E)|打邛处方(已

匕

1^时

，

相n-4

«fC管理员□人15年07月0-

图4-3医生工作站一保留医嘱

部门代码如下

//功能:新增一张处方

//入参:ai_RecipeType处方类别(1西2中3草)

Intli_Pharmld,i

Longll_RecipeId

BooleanlbHasSensCheck

IfThis.CheckDataChangedO<1Then

Return-1

EndIf

//Script:w_ys_mz_clinic_recipe::addbill()函数

//Reason:BSEMR4.X_V2.2->增长门诊处方〃每张西药、成药方不得超过5种药物、应当

填写临床诊断〃日勺控制

//ModifiedBy:何俊Date:2023-03-08

Long11Exists

Ifiu_mzys_cs.Options.NeedDiag=1andiu_mzys_cs.Doctor.Id<>'9999'Then

Selectcount(*)Into:ll_ExistsFromYS_MZ_jbzd

WhereJZXH=:iu_mzys_cs.Patient.Clinicldandtjbz=1andzfpb=0UsingSQLHIS;

Ifll_Exists=0OrIsNull(ll_Exists)Then

MessageBoxC提醒应当先填写临床诊断(提交后有效)！’)

iu_mzys_cs.iwFrame.PostCallFunctionDiag',iu_mzys_cs.Patient.Clinicld,0)

Return-1

EndIf

EndTf

//与否存在皮试药物

lbHasSensCheck=False

Fori=1Todw_Detai1.RowCount()

IfNotIsNull(dwDetail.Object.Pspb[i])AnddwDetail.Object.Pspb[i]=1Then

IbJIasSensCheck=True

EndIf

IfSensCheck.IsSensitive(Long(dwDetail.Object.Ypxh[i]))=1Then

lbHasSensCheck=True

EndIf

Next

IfdwHead.RowCount()>0Then

ll_RecipeId=dwHead.Object.Cfsb[l]

IfNotIsNull(ll_RecipeId)Andll_RecipeId>0Then

IfNotIbHasScnsChcckThon//存在皮试记录时暂不提交处方

Ifiu_mzys_cs.Patient.LockRecipe(H_RecipeId,False)<1Then

MessageBox('提醒'，〃处方解锁失败！1r+iu_mzys_cs.Patient.Errorinfo)

EndTf

Ifiumzys_c