数据库课程设计-医院住院部管理系统数据库设计.doc

信息工程学院数据库课程设计论文题 目：医院住院部管理系统数据库设计学 号：专业班级：商务1502姓 名：指导老师：完成日期：2016年7月15日医院住院部管理系统数据库设计（信息工程学院电子商务15级2班）摘 要 在此次数据库设计中，基于医院住院部的应用环境，采用了需求分析，设计概念结构，逻辑结构，物理结构等方法构造了数据库逻辑模式和物理模式，利用了Edraw，Oracle11g等软件协助设计，建立了数据库及其应用系统。最终实现了医院住院部管理系统的设计完成。本系统完成设计与实现以后，能够完成医院住院部日常的管理工作，包括：住院管理、处方管理、医嘱管理、出院管理等，它能帮助医院住院部提高工作效率，减轻医生和护士的工作压力，同时也为病人带来方便。本系统是一个适用于中小型医院的实用型管理软件。关键字：数据库设计；oracle 11g；住院部管理系统目 录1需求分析11.1数据流程图11.2数据字典42数据库结构设计52.1 概念设计52.1.1 分E-R图建立52.1.2 全局/整体E-R图82.2 逻辑设计92.2.1 建立关系模式92.2.2 关系模式规范化处理102.2.3 用户子模式建立132.2.4 关系模式逻辑结构定义133数据库物理设计184数据库实施与测试184.1 数据库及数据库对象建立184.2 数据入库284.3 数据库测试374.3 数据库测试375总结436附录4415级电商专业1502班数据库应用系统课程设计课程论文引言：为了解决医院住院部繁忙的工作，减轻医生护士的工作负担，帮助方便病人办理住院手续，此医院住院部管理系统方便医生和护士以及病人查询相关的住院信息，并且实现从住院、治疗到出院的全过程管理与监控，能够减少住院部的工作冲突，提升医院整体效益，赢得长足发展。在互联网高速发展的今天，一所现代化医院运营的需要并且非常需要医院住院部管理系统，医院住院部管理系统能够以更现代化、科学化、规范化的手段来加强医院的管理，提高医院的工作效率，节约医生护士与病人的时间。1需求分析医院住院部这样的工作场所，每天工作量巨大，工作繁忙，经济成分比重也相对较多。无论是医生还是护士工作任务都十分大，对于患者来说办理住院手续，出院手续等也十分耽误时间。而只有当病人住院后，医院才能更快捷地完成病人的治疗工作。所以，本系统从经济与时间的角度，建立了管理系统，可将来各自患者的信息集中管理，提高医院住院部管理的高效性和有序性，减轻了医生护士的工作量，节约了病人的时间与金钱。1.1数据流程图顶层数据流程图：一层数据流程图：二层数据流程图：1.2数据字典数据字典是进行详细数据收集和数据分析所获得的成果。数据字典详见附录1。2数据库结构设计主要包括概念设计和逻辑设计两个部分。2.1 概念设计阐述概念设计目标：将需求分析阶段所得到的用户需求抽象为信息结构及概念模型。任务：抽取ER图。方法：在需求分析阶段所得到的应用需求首先抽象为信息世界的结构。ER图是用来描述现实世界的概念模型，包括实体、属性、实体之间的联系等。2.1.1 分E-R图建立分E-R图建立的思想是以中层数据为切入点，按照分层次/分模块思想进行的。（1）入院管理ER图各实体的属性：病房：病房号，科室，固定床位数量，剩余床位数量。床位：病房号，床位号，科室。病人：病人编号，病人姓名，年龄，性别，入院日期，诊断，联系方式，科室。住院登记表：病房号，床位号，病人编号，病人姓名，入院日期，诊断。住院押金条：责任护士名，病人编号，病人名，入院日期，押金费用。收押金票据：病人编号，病人姓名，性别，年龄，入院时间，费用。（2）医疗管理ER图各实体属性：医生：医生编号，医生姓名，年龄，性别，联系方式，科室。病人：病人编号，病人姓名，年龄，性别，入院日期，诊断，联系方式，科室。入院病历：病历类型，病人编号，病人姓名，性别，年龄，联系方式，现病史，既往病史，家族病史。体征表：病人编号，病人姓名，体温，血压，记录日期。医嘱：医嘱类型，医生姓名，病人姓名，病人编号，病房号，科室，记录日期，医嘱。处方：医生姓名，病人编号，病人姓名，诊断，科室，记录日期。（3）出院管理ER图医生：医生编号，医生姓名，年龄，性别，联系方式，科室。病人：病人编号，病人姓名，年龄，性别，入院日期，诊断，联系方式，科室。出院病历：病历类型，病人编号，病人姓名，性别，年龄，联系方式，出院日期，记录日期，现病史，既往病史，家族病史。出院医嘱：医嘱类型，医生姓名，病人姓名，病人编号，病房号，科室，记录日期，医嘱。费用清单：病人编号，病人姓名，出院日期，总价。清单细则：病人编号，费用名称，费用规格，数量，单价 出院收费票据：病人编号，病人姓名，病房号，床位号，出院时间。2.1.2 全局/整体E-R图建立全局E-R图就是合并分ER图并消除冲突、冗余等。2.2 逻辑设计逻辑结构的设计的任务就是把概念结构设计阶段设计好的基本E-R模型转换为与选用DBMS产品所支持的数据模型相符合的逻辑结构。2.2.1 建立关系模式将ER图转换为关系模式：病房（病房号，科室，固定床位数量，剩余床位数量）床位（病房号，床位号，科室。）病人（病人编号，病人姓名，出生日期，性别，入院日期，诊断，联系方式，科室，病房号，床位号，入院日期，押金费用，出院时间，总费用）医生（医生编号，医生姓名，出生日期，性别，联系方式，科室）入院病历（病历类型，病人编号，病人姓名，出生日期，年龄，联系方式，现病史，既往病史，家族病史）体征表（病人编号，责任护士姓名，病人姓名，体温，血压，记录日期）医嘱（医嘱类型，医生编号，病人姓名，病人编号，病房号，科室，医生姓名，记录日期，医嘱）处方（医生编号，病人编号，病人姓名，诊断，科室，记录日期）处方细则（病人编号，药品名，规格，用法）出院病历（病历类型，病人编号，医生编号，病人姓名，性别，出生日期，联系方式，出院日期，记录日期，现病史，既往病史，家族病史）出院医嘱（医嘱类型，医生姓名，病人姓名，病人编号，病房号，科室，医生编号，记录日期，医嘱）。费用清单（病人编号，病人姓名，出院日期，总费用）清单细则(病人编号，费用名称，费用规格，数量，单价)2.2.2 关系模式规范化处理根据范式理论，分析每个关系的主属性和非主属性，写出每个非主属性对主码的函数依赖，以此来分析每一个关系模式是否满足3NF，对不满足3NF的关系模式要进行模式分解，使每个关系模式达到3NF的要求。病房（病房号，科室，固定床位数量，剩余床位数量）符合3NF。床位（病房号，床位号，科室）符合3NF。病人（病人编号，病人姓名，出生日期，性别，出生日期，入院日期，诊断，联系方式，科室，病房号，床位号，入院日期，押金费用，出院时间，总费用）（科室，病房号，床位号） （病人姓名，年龄，性别，入院时间，诊断，联系方式，科室，入院日期，押金费用，出院时间，总费用）有传递函数依赖，不符合3NF。进行分解：病人（病人编号，病人姓名，出生日期，性别，诊断，联系方式，科室，押金费用，总费用）住院（病人编号，科室，病房号，床位号，入院时间，出院时间）分解后符合3NF。医生（医生编号，医生姓名，出生日期，性别，联系方式，科室）符合3NF入院病历（病人编号，病人姓名，性别，出生日期，联系方式，现病史，既往病史，家族病史）符合3NF体征表（病人编号，记录日期，责任护士名，病人姓名，体温，血压）病人编号 病人姓名，有部分函数依赖，不符合3NF。将体征表分解：体征表（病人编号，记录日期，责任护士名，体温，血压）病人（病人编号，病人姓名）。分解后体征表符合3NF。医嘱（病人编号，医生编号，记录日期，医嘱类型，病人姓名，病房号，科室，医嘱）病人编号 （病人姓名，病房号，科室）部分函数依赖，不符合3NF，将医嘱表进行分解。医嘱（病人编号，医生编号，记录日期，医嘱类型，医嘱）病人（病人编号，病人姓名，病房号，科室）分解后的医嘱表符合3NF处方（医生编号，病人编号，记录日期，病人姓名，诊断，科室）病人编号 （病人姓名，科室）部分函数依赖，不符合3NF，将处方表进行分解。处方（医生编号，病人编号，记录日期）病人（病人编号，病人姓名，病房号，科室）分解后的处方表符合3NF。处方细则（病人编号，药品名，规格，用法）处方细则表符合3NF。出院病历（病人编号，医生编号，病人姓名，性别，出生日期，联系方式，出院日期，记录日期，现病史，既往病史，家族病史）病人编号 （病人姓名，性别，出生日期，联系方式，出院日期，现病史，既往病史，家族病史）有部分函数，不符合3NF。进行分解出院病历（病人编号，医生编号，记录日期）病历（病人编号，病人姓名，性别，出生日期，联系方式，出院日期，现病史，既往病史，家族病史）出院医嘱(病人编号，记录日期，医生编号，病人姓名，病房号，科室，医生姓名，医嘱)有传递函数依赖，不符合2,3NF将出院医嘱表进行分解医嘱（病人编号，医生编号，记录日期，医嘱类型，医嘱）病人（病人编号，病人姓名，病房号，科室）医生（医生编号，医生姓名）分解后的医嘱表符合3NF。费用清单（病人编号，病人姓名，出院日期，总费用）符合3NF。清单细则（病人编号，费用名称，费用规格，数量，单价）符合3NF。规范后的表：病房（病房号，科室，固定床位数量，剩余床位数量）Bhouse(Bhouseno,ks,Gbed,Sbed)床位（病房号，床位号，科室）Beds(Bhouseno,Zcno,ks)病人（病人编号，病人姓名，出生日期，性别，诊断，联系方式，科室，押金费用，总费用）Patient(Bno,Bname,Birth,Sex ,Bzhend,Phone,Ks，Yjprice,Price).住院（病人编号，科室，病房号，床位号，入院时间，出院时间）Zhuy(Bno,ks,Bhouseno,Zcno,Bsdate,Cydate)医生（医生编号，医生姓名，出生日期，性别，联系方式，科室）Doctor(Yno,Yname,Birth,Sex,Phone,Ks)入院病历（病人编号，病人姓名，性别，出生日期，联系方式，现病史，既往病史，家族病史）Zmere(Bno,Bname,sex,Birth,Phone,Nowillness,Agoillness,Familyillness)体征表（病人编号，记录日期，责任护士名，体温，血压）Sign(Bno, Jdate,zhname, ,Twen, xueya)医嘱（病人编号，医生编号，记录日期，医嘱类型，医嘱）Docadvise(Bno, Yno, Jdate, Yztype,Yizh)处方（医生编号，病人编号，记录日期）Precrip(Yno,Bno, Jdate)处方细则（病人编号，药品名，规格，用法）。Chuxi(Bno,Mname,Mguig,Yongfa)出院病历（病人编号，医生编号，记录日期）Cmere(Bno，Yno，Jdate)出院医嘱（病人编号，医生编号，记录日期，医嘱类型，医嘱）Cadvise（Bno, Yno, Jdate, Yztype,Yizh）费用清单（病人编号，病人姓名，出院日期，总费用）Costlist(Bno,Bname, Cydate,Price)清单细则（病人编号，费用名称，费用规格，数量，单价）Listxize(Bno,Fname,Fguige,Shuliang,Dprice)2.2.3 用户子模式建立 (1)为了方便查询病人的基本情况，比如查询病人的编号，姓名，性别，诊断等，创建了一个基本视图Patientbase(Bno,Bname,Sex,Birth,Bzhend)(2)为了方便查询病人的入住信息，比如查询那个病人住在那间病房，床位号是多少，建立了一个基本视图Patientlive(bname,kes,bhouseno,zcno)(3)为了方便查询病人的处方信息，建立一个基本视图Chuinfor(bname,jdate,mname,yongfa)2.2.4 关系模式逻辑结构定义表2-1病房bhouse关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Bhouseno病房号Varchar210是否Not nullKs科室Varchar210是否Not nullGbed固定床位数量Number(1,0)否否Between3and5Sbed剩余床位数量Number(1,0)否否Between0and5表2-2床位beds关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Bhouseno病房号Varchar210是是Not nullZcno床位号Varchar210是否Not nullKs科室Varchar250是否 Not null表2-3病人patient关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Bno病人编号Varchar250是Not nullBname病人姓名Varchar250否Not nullBirth出生日期date否Not nullSex性别Varchar210否Not nullBzhend诊断Varchar2100否Not nullPhone联系方式Varchar250否Not nullKs科室Varchar220否Not nullYjprice押金费用Number(8,1)否nullPrice总费用Number(8,1)否null表2-4住院zhuy关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Bno病人编号Varchar250是否Not nullKs科室Varchar220否否Not nullBhouseno病房号Varchar210否是nullZcno床位号Varchar210否是nullBsdate入院时间date否否Not nullCydate出院时间date否否Null表2-5医生doctor关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Yno医生编号Varchar250是否Not nullYname医生姓名Varchar250否否Not nullBirth出生日期date否否Not nullSex性别Varchar210否否Not nullPhone联系方式Varchar250否否Not nullKs科室Varchar250否否Not Null表2-6入院病历zmere关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Bno病人编号Varchar250是否Not nullBname病人姓名Varchar250否否Not nullSex性别Varchar220否否Not nullbirth出生日期date否否Not nullphone联系方式Varchar250否否Not nullNowillness现病史Varchar23000否否nullAgoillness既往史Varchar23000否否nullFamilyillness家族史Varchar23000否否null表2-7体征表sign关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Bno病人编号Varchar250是是Not nullJdate记录日期date是否Not nullzhname责任护士名Varchar250否否Not nullTwen体温Varchar220否否Not nullxueya血压Varchar250否否Not null表2-8医嘱docadvise关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Bno病人编号Varchar250是是Not nullYno医生编号Varchar250是是Not nullJdate记录日期date是否Not nullYztype医嘱类型Varchar220否否nullYizh医嘱Varchar23000否否null表2-9处方precrip关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Yno医生编号Varchar250是是Not nullBno病人编号Varchar250是是Not nullJdate记录日期Varchar250是否 Not null表2-10处方细则chuxi关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Bno病人编号Varchar250是是Not nullMname药品名Varchar250是否Not nullMguig规格Number50否否nullYongfa用法Number300否否null表2-11出院病历cmere关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Bno病人编号Varchar250是是Not nullYno医生编号Varchar250是是Not nullJdate记录日期date是否 Not null表2-12出院医嘱cadvise关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Bno病人编号Varchar250是是Not nullYno医生编号Varchar250是是Not nullJdate记录日期date是否Not nullYztype医嘱类型Varchar220否否nullYizh医嘱Varchar23000否否null表2-13费用清单costlist关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Bno病人编号Varchar250是是Not nullBname病人姓名Varchar250否否Not nullCydate出院日期Date50否否nullPrice总费用Number(8,1)否否null表2-14清单细则listxize关系模式属性名含义数据类型长度是否为主属性是否为外键约束条件Bno病人编号Varchar250是是Not nullFname费用名称Varchar250是否Not nullFguige费用规格Varchar250否否nullShuliang数量Number(8,1)否否Dprice单价Number(8,1)否否3数据库物理设计主要包括数据存储位置、存储格式；索引及索引类型。如果建立的索引较多，最好以表格形式列出。主要包括：索引名称、索引类型和用途。如在病人表中BNAME列建立名为apple的惟一性索引：create unique index apple on patient(bname)4数据库实施与测试主要包括数据库实施和测试两个部分。4.1 数据库及数据库对象建立主要包括：基本表、视图、索引、存储过程以及触发器的建立过程和建立语句。SQL语句：一、建表：1创建病房表：create table bhouse(bhouseno varchar2(10),kes varchar2(10),gbed number check (gbed between 3 and 5),sbed number check (sbed between 0 and 5),primary key(bhouseno,kes);2创建床位表：create table beds(bhouseno varchar2(10) references bhouse(bhouseno),zcno varchar2(10) ,kes varchar2(50),primary key(bhouseno,zcno,kes);3创建病人表：create table patient(bno varchar2(50) primary key,bname varchar2(50) not null ,birth date not null,sex varchar2(10) not null,bzhend varchar2(100) not null,phone varchar2(50) not null,kes varchar2(20) not null,yjprice number,price number)4创建住院表：create table zhuy(bno varchar2(50) primary key,kes varchar2(50) not null,bhouseno varchar2(20) references bhouse(bhouseno),zcno varchar2(20),bsdate date not null,cydate date)5创建医生表：create table doctor (yno varchar2(50) primary key,yname varchar2(50) not null ,birth date not null,sex varchar2(10) not null,phone varchar2(50) not null,kes varchar2(50) not null)6创建住院病历表：create table zmere(bno varchar2(50) primary key,bname varchar2(50) not null,sex varchar2(20) not null,birth date not null,phone varchar2(50) not null,Nowillness varchar2(3000),Agoillness varchar2(3000),Familyillness varchar2(3000)7创建体征表：create table mysign(bno varchar2(50) references patient(bno),jdate date not null,zhname varchar2(50) not null,twen varchar2(20) not null,xueya varchar2(50) not null,primary key(bno,jdate)8创建医嘱表：create table docadvise(bno varchar2(50) references patient(bno),yno varchar2(50) references doctor(yno),jdate date,yztype varchar2(20),yizh varchar2(3000),primary key(bno,yno,jdate)9创建处方表：create table precrip(yno varchar2(50) references doctor(yno),bno varchar2(50) references patient(bno),jdate date,primary key(bno,yno,jdate)10创建处方细则表：create table chuxi(bno varchar2(50) references patient(bno),mname varchar2(50),mguige varchar2(50) ,yongfa varchar2(300),primary key(bno,mname)11创建出院病历表：create table cmere(bno varchar2(50) references patient(bno),yno varchar2(50) references doctor(yno),jdate date,primary key(bno,yno,jdate)12创建出院医嘱表：create table cadvise(bno varchar2(50) references patient(bno),yno varchar2(50) references doctor(yno),jdate date,yztype varchar2(20),yizh varchar2(3000),primary key(bno,yno,jdate)13创建费用清单表：create table costlist(bno varchar2(50) primary key,bname varchar2(50) not null,cydate date,price number)14创建清单细则表：create table listxize(bno varchar2(50),fname varchar2(50),fguige varchar2(50),shuliang number,dprice number,primary key(bno,fname)二、建索引：在病人表中BNAME列建立名为apple的惟一性索引：create unique index apple on patient(bname)三、建视图(1)为了方便查询病人的基本情况，比如查询病人的编号，姓名，性别，诊断等，创建了一个基本视图：Patientbase(Bno,Bname,Sex,Birth,Bzhend)。create view Patientbaseasselect Bno,Bname,Sex,Birth,Bzhend from patient(2)为了方便查询病人的入住信息，比如查询那个病人住在那间病房，床位号是多少，建立了一个基本视图：Patientlive(bname,kes,bhouseno,zcno)。create view patientliveasselect bname,zhuy.kes,bhouseno,zcno from patient,zhuywhere patient.bno=zhuy.bno(3)为了方便查询病人的处方信息，建立一个基本视图：Chuinfor(bname,jdate,mname,yongfa)。create view chuinforasselect bname,jdate,mname,yongfa from patient,precrip,chuxiwhere patient.bno=precrip.bno and chuxi.bno=precrip.bno四、建立触发器：1。建立触发器c1当向住院表zhuy插入一条数据时，在病房bhouse表中病人所住的病房生于床位数自动减1，create or replace trigger c1 before insert on zhuy for each rowdeclare - local variables herebegin update bhouse set sbed=sbed-1 where bhouse.bhouseno=:new.bhouseno and bhouse.kes=:new.kes; end c1;2。建立触发器c2当修改费用清单表costlist中病人的总费用时，在病人表patient中相应病人的总费用自动修改create or replace trigger c2 before update on costlist for each rowdeclare - local variables herebegin update patient set price=:new.price where patient.bno=:new.bno;end c2;五、建立存储过程：1.业务1：登记病人信息业务存储过程名：p1存储过程描述：调用此存储过程实现向病人表patient中登记病人信息create or replace procedure p1(v_bno patient.bno%type,v_bname patient.bname%type,v_birth patient.birth%type,v_sex patient.sex%type,v_bzhend patient.bzhend%type,v_phone patient.phone%type,v_kes patient.kes%type,v_yjprice patient.yjprice%type,v_price patient.price%type) isbegininsert into patient(bno,bname,birth,sex,bzhend,phone,kes,yjprice,price)values(v_bno,v_bname,v_birth,v_sex,v_bzhend,v_phone,v_kes,v_yjprice,v_price); commit;end p1;2.业务2：查询病房信息业务存储过程名：p2存储过程描述：病人入住时需要有床位，根据调用时提供的科室名信息，在过程体中自动将剩余床位数量大于0的病房号输出到输出窗口create or replace procedure p2(v_kes bhouse.kes%type) is v_bhouseno bhouse.bhouseno%type;v_sbed bhouse.sbed%type; cursor c1 is select bhouseno,sbed from bhouse where kes=v_kes and sbed0;begin open c1; loop fetch c1 into v_bhouseno,v_sbed; exit when c1%notfound; dbms_output.put_line(v_bhouseno|,|v_sbed); end loop; close c1;end ;3业务3：查询病人住院信息业务存储过程名：p3存储过程描述：根据调用时提供的病人编号，在过程体中自动将病人的住院信息输出到输出窗口create or replace procedure p3(v_bno zhuy.bno%type) isv_kes patient.kes%type;v_bhouseno bhouse.bhouseno%type;v_zcno zhuy.zcno%type;v_bsdate zhuy.bsdate%type;begin select kes,bhouseno,zcno,bsdate into v_kes,v_bhouseno,v_zcno,v_bsdate from zhuywhere zhuy.bno=v_bno;dbms_output.put_line(v_kes| , |v_bhouseno| , |v_zcno| , |to_char(v_bsdate,yyyy/mm/dd);end p3;4业务4：病人转病房业务存储过程名：p4存储过程描述：由于某种情况病人需要转病房，根据调用时提供的病人编号与新的病房信息，修改住院表相应病人的住院信息，修改病房表相应病房的信息。create or replace procedure p4(v_bno patient.bno%type,v_kes patient.kes%type,v_bhouseno bhouse.bhouseno%type,v_zcno zhuy.zcno%type) isy_kes patient.kes%type;y_bhouseno zhuy.bhouseno%type;begin select zhuy.kes,zhuy.bhouseno into y_kes,y_bhouseno from zhuy where zhuy.bno=v_bno; update zhuy set kes=v_kes,bhouseno=v_bhouseno,zcno=v_zcno where v_bno=bno; update bhouse set sbed=sbed+1 where bhouse.kes=y_kes and bhouse.bhouseno=y_bhouseno; update bhouse set sbed=sbed-1 where bhouse.kes=v_kes and bhouse.bhouseno=v_bhouseno; commit;end p4;5业务5：查询病人处方业务存储过程名：p5存储过程描述：根据调用时提供的病人编号，在过程体中自动将病人的处方细则信息输出到输出窗口create or replace procedure p5(v_bno patient.bno%type) isv_mname chuxi.mname%type;v_yongfa chuxi.yongfa%type;cursor c1 is select mname,yongfa from chuxiwhere bno=v_bno;begin open c1; loop fetch c1 into v_mname,v_yongfa; exit when c1%notfound; dbms_output.put_line(v_mname|,|v_yongfa); end loop; close c1;end p5;6业务6：登记病人体征业务存储过程名：p6存储过程描述：调用此存储过程实现向体征表mysign中登记病人信息create or replace procedure p6(v_bno mysign.bno%type,v_jdate mysign.jdate%type,v_zhname mysign.zhname%type,v_twen mysign.twen%type,v_xueya mysign.xueya%type) isbegin insert into mysign(bno,jdate,zhname,twen,xueya) values(v_bno,v_jdate,v_zhname,v_twen,v_xueya); commit;end p6;7.业务7：病人出院业务存储过程名：p7存储过程描述：根据调用时提供的病人编号，出院日期与总费用，自动在病人表patient和病人的费用清单表costlist中插入相应的信息create or replace procedure p7(v_bno zhuy.bno%type,v_cydate zhuy.cydate%type,v_price costlist.price%type) isv_bname patient.bname%type;begin select bname into v_bname from patient where bno=v_bno; update zhuy set cydate=v_cydate where bno=v_bno; insert into costlist(bno,bname,cydate,price) values(v_bno,v_bname,v_cydate,v_price); commit;end p7;8业务8：统计出院病人住院天数存储过程名：p8存储过程描述：调用此存储过程，查询所有出院病人的住院天数，并将查询信息输出到输出窗口create or replace procedure p8 isv_bno patient.bno%type;v_bname patient.bna