Base de datos hospital

--Creando la Base de Datos

use master
go
if exists(select name from sysdatabases where name='Hospital')
drop database Hospital
go
create database Hospital
go
use Hospital
go

--Creando la Tabla Médico

create table Medico
(
CodMed char(4) primary key,
Medico varchar(20),
Esp varchar(20),
Telf varchar(7),
Dir varchar(30),
Sueldo int
)
Go

--Ingresando Datos a la tablaMedico

insert into Medico values('M001','Bernardo Lopez','Cirujía','2859478','Av. Los Angeles',1000)
insert into Medico values('M002','Chavez Gonzales','Respiratorio','4587899','Av. Los Angeles',2000)
insert into Medico values('M003','Suarez Leandro','Circulatorio','2365478','Av. Los Angeles',1500)
insert into Medico values('M004','Contreras Galvez','Traumatología','2859478','Av. LosAngeles',1800)
insert into Medico values('M005','Vasquez Sanchez','Traumatología','2831744','Av. Los Angeles',1700)
insert into Medico values('M006','Flores Surita','Circulatorio','6833478','Av. Los Angeles',1800)
insert into Medico values('M007','Ramos Vilca ','Traumatología','7821756','Av. Los Angeles',1700)

go
select * from Medico
go
--Creando la Tabla Cama
create table Cama
(
Codcam char(4)primary key,
pabellon varchar(1)
)
Go

--Ingresando Datos a la tabla Cama
insert into Cama values('C001','A')
insert into Cama values('C002','B')
insert into Cama values('C003','C')
insert into Cama values('C004','A')
insert into Cama values('C005','D')
insert into Cama values('C006','C')
go
select * from cama
go

--Creando la Tabla Paciente
create table Paciente
(
CodPaschar(4) primary key,
ApePas varchar(15),
NomPas varchar(15),
TelPas varchar(7),
DirPas varchar(20)
)
Go

--Ingresando datos a la Tabla Paciente
insert into Paciente values('P001','Perea','Julio','2323232','Jr. Las palomas')
insert into Paciente values('P002','Montes','Cesar','5689554','Jr. Los Laureles')
insert into Paciente values('P003','Jimenez','Miguel','2325698','Jr. Los Jazminez')insert into Paciente values('P004','Gonzales','Jaime','7845654','Jr. La Cucardas')
insert into Paciente values('P005','Humala','Hugo','3621415','Av. Jose Mariátegui')
go
select * from paciente
go

--Creando la tabla Historial
create table Historial
(
CodPas char(4),
Fecha datetime,
EstanDias int,
patologia varchar(30),
CodMed char(4),
Cama char(4)
)
Go
--Ingresando datos a la tablaHistorial
insert into Historial values('P001','11/08/2002',15,'Traumatismo Craneal','M004','C005')
insert into Historial values('P002','25/01/2001',14,'Ulcera','M002','C002')
insert into Historial values('P003','25/01/2000',3,'Apendecitis','M001','C002')
insert into Historial values('P004','11/08/2000',5,'Operacion Cornea','M001','C005')
insert into Historialvalues('P005','15/09/2001',2,'Ulcera','M001','C004')
insert into Historial values('P002','21/02/2001',7,'Apendecitis','M002','C004')
insert into Historial values('P002','18/03/2000',23,'Ulcera','M004','C003')
insert into Historial values('P005','19/01/2002',19,'Traumatismo Craneal','M004','C003')
insert into Historial values('P005','10/05/2001',15,'Operacion Cornea','M005','C003')
insert into Historialvalues('P004','11/08/2001',12,'Ulcera','M004','C001')
insert into Historial values('P004','13/03/2000',11,'Apendecitis','M002','C002')
insert into Historial values('P002','11/11/2002',10,'Traumatismo Craneal','M001','C002')
go
select * from Historial
go

--Relacionando las tables.
alter table Historial add constraint FK_His_Med
foreign key(CodMed) references Medico(CodMed)
go
alter table Historial addconstraint FK_His_Cam
foreign key(Cama) references Cama(CodCam)
go
alter table Historial add constraint FK_His_Pac
foreign key(CodPas) references Paciente(CodPas)
--hacer consultas:
--1-)a. Localización de un Paciente en el Hospital.
select hi.codpas,pa.nompas,ca.codcam,ca.pabellon from paciente pa,cama ca,historial hi where hi.codpas=pa.codpas and hi.cama=ca.codcam
--2-)b. Listado de médicos...