2.2 程序控制流程
1) 顺序执行 2) 分支选择 3) 循环
2.2.1 顺序执行
程序语句一条一条按书写先后顺序执行。 如： string ls_str1, ls_str2, ls_str3 ls_str1 =“张三” ls_str2 =“体检正常” ls_str3 = ls1 + ls2
2.2.2 分支选择
1.2 就诊流程图
就诊流程图，见附件
1.3 收费系统相关数据表(简约版)
1) 2)
3)
4) 5) 6)
科室基本信息表 职员基本信息表 病人基本信息表 收费项目表 挂号记录表 开单明细表
1.3 收费系统相关数据表(简约版)
结算记录主表 8) 结算记录细表 9) 发票领用记录表 10) 预交金记录表 11) 预交金余额表
简单的门诊收费系统
本章内容

1、简单的门诊收费系统介绍 2、PB教程三
1.1简单的门诊收费系统需求
新病人到收费处，收费员为病人注册， 收取预交金。病人到医生处开单（医嘱）， 或在医技部门执行完医疗项目后，都可到收 费处结算。系统为病人结算后，打印出发票 给病人。复诊病人直接去找医生开单。 病人看完病如果有剩余的预交金，可以 到收费处退费。
主键为 apply_id,sub_seq联合做主键
1.3.7 结算记录主表(简约版)

表名: settle_main
--结算号 --发票号 --病人ID --挂号流水号 --结算日期 --‟0‟ 正常,‟1‟作废 --结算收款员 --作废收款员 --作废日期 --总费用 --应付金额
settle_id varchar2(10), receipt_id varchar2(10), patient_id varchar2(8), register_id varchar2(10), settle_date date , status char(1), settle_operator varchar2(8) , fade_operator varchar2(8), fade_date date, cost number(10,4), charge number(10,4), 主键为 settle_id
1.3.11 预交金余额表(简约版)

表名: patient_prepay_remain
varchar2(8), --病人id number(10,4) --多少金额
patient_id money 主键为 patient_id
1.4 门诊收费系统功能(简约版)



1） 病人信息维护(注册、查询、修改) 2） 领用发票,已被领用的不允许再被领用 3） 病人预交金操作(收、退) 4） 为病人结算，打印发票 5） 作废发票
7)
1.3.1科室基本信息表(简约版)

表名: department_info dept_code varchar2(6), dept_name varchar2(25), location varchar2(30), spell_code varchar2(10) 主键为 dept_code

alter table patient_info add telephone varchar2(13);
1.3.4 收费项目表(简约版)

表名:item_info
item_id varchar2(8), --职员号 item_class varchar2(5), --项目类别 item_name varchar2(200) not null, --名称 unit varchar2(8) , --计价单位 price number(10,4), --单价 valid_flag char(1) default „Y‟ , --有效标志 spell_code varchar2(10) , --快速定位码 start_date date, --启用日期 stop_date date --停止日期 主键为 item_id
1.3.3 病人基本信息表(简约版)
表名: patient_info patient_id varchar2(8), --职员号 name varchar2(20) not null, --姓名 birthdate date , --出生日期 sex char(1) default „0‟, -- 性别,‟0‟为男 -- „1‟为女 card_no varchar2(12), --病历卡号 telephone varchar2(13) --联系电话 主键为 patient_id alter table patient rename to patient_info ;
1.3.6 开单明细表(简约版)

表名: apply_item_detail
apply_id varchar2(10), sub_seq number(3) , patient_id varchar2(8), register_id varchar2(10), item_ id varchar2(8), item_class varchar2(5), item_name varchar2(200) not null, unit varchar2(8) , price number(9,4), --开单序号 --子序号 --病人号码 --挂号流水号 --项目代码 --项目类别 --名称 --计价规格 --单价
--科室编码 --科室名称 --位置 --快速定位码
1.3.2职员基本信息表(简约版)

表名: employe_info staff_no varchar2(8), --职员号 name varchar2(10), --姓名 dept_code varchar2(6), --科室代码 work_type varchar2(2), --工作类别 title_type varchar2(3), --职称 spell_code varchar2(10) --快速定位码 主键为 staff_no
2.1.1 对象名称定义命名规范

3) 控件级对象:
cbx_ cb_ dw_ ddlb_ em_ gr_ gb_ hsb_ CheckBox CommandButton DataWindow DropDownListBox EditMask Graph GroupBox HScrollBar
2.1.1 对象名称定义命名规范
1.3.10 预交金记录表(简约版)

表名: prepay_record
patient_id varchar2(8), --病人id pre_id number(5) , --子序号 operator_date date, --领用日期 operator varchar2(8) , --操作员编码 action char(1) ,--'0'缴费,'1'退费 主键为 patient_id与pre_id联合做主键
2.1.2 变量名称定义

2) 范围前缀
类型 说明 g Global variable l Local variable i Instance variable s Shared variable 如 string gs_username //全局变量，表示用户名 long ll_row //局部变量，表示行数
1.3.8 结算记录细表(简约版)

表名: settle_detail
settle_id varchar2(10), --结算号 settle_class varchar2(3), --结算子类别 cost number(10,4) --金额 主键为 settle_id,settle_class联合做主键
1.3.5 挂号记录表(简约版)

表名: register_record register_id varchar2(10), --挂号流水号
patient_id varchar2(8), --病人号 reg_date date , --挂号时间 reg_doctor varchar2(8), --挂号医生 fade_doctor varchar2(8), --退号医生 fade_date date, --退号时间 status char(1), --‟0‟挂号,‟1‟接诊,‟9‟退号 cost number(10,4) , --挂号费 reg_type varchar2(3) --挂号类别,如主任号 主键 register_id

3) 控件级对象:
ln_ lb_ mle_ ole_ ocx_ oval_ p_ pb_ rb_ Line ListBox MultiLineEdit OLE2.0 OCX Oval Picture PictureButton RadioButton
2.1.1 对象名称定义命名规范
2.1.2 变量名称定义 1) 简单变量
1.5 实验的延伸(简约版)
实现基本信息管理子系统 1） 维护科室信息 2） 维护员工信息 3） 维护收费项目信息

2、PB教程三ຫໍສະໝຸດ 2.1 Pb编程中数据类型和变量的定义规则 2.1.1 对象名称定义命名规范 1)基本对象:
m_ w_ d_ dddw_ struc_ f_ p_ Menu Window DataWindow object dropDrownDataWindow Structure Funciton Pipelines
1.3.9 发票领用记录表(简约版)

表名: receipt_apply_record
apply_id varchar2(10), --领用序号，主键 apply_date date, --领用日期 operator varchar2(8) , --领用发票的收款员编号 begin_number varchar2(10), --开始号码 end_number varchar2(10), --结束号码 curr_number varchar2(10) --当前号码 主键为 apply_id