Programa para hacer la historia clinica
OMAR ORTIZInforme24 de Noviembre de 2015
1.662 Palabras (7 Páginas)227 Visitas
Proceso historia_clinica
// El siguiente programa permite hacer la historia clinica
// de un paciente
aa<-2015
cita2<-azar(1)+30
Escribir 'HISTORIA CLINICA '
Escribir ''
Escribir 'Ingrese el Año Actual '
Leer aa
Escribir 'Ingrese Mes Actual'
Leer ma
Escribir 'Ingrese Dia Actual'
Leer da
Escribir 'N° de identificación '
Leer Iden
Escribir 'Nombre y apellido Completo '
Leer Nomb
Escribir 'Dia de Nacimiento'
Escribir 'Mes de Nacimiento'
Escribir ' Añode Nacimiento'
Escribir 'Ejemplo: 23 10 1995 '
Leer d
Leer m
Leer a
Si m=ma Entonces
Si d=da Entonces
ac<-aa-a
dc<-0
mc<-0
FinSi
Si d
ac<-aa-a
dc<-da-d
mc<-0
FinSi
Si d>da Entonces
ac<-aa-a
dc<-d-da
mc<-0
FinSi
Sino
Si d=da Entonces
ac<-aa-a
dc<-0
mc<-ma-m
FinSi
Si d
ac<-aa-a
dc<-da-d
mc<-ma-m
FinSi
Si d>da Entonces
ac<-aa-a
dc<-d-da
mc<-ma-m
FinSi
FinSi
Escribir 'edad ',ac,' años con ',dc,' dias y ',mc,' meses '
Escribir 'Seleccione el Area al cual pertenece (1)Infantil, (2)adolescentes, (3) adultos '
Leer area
Escribir ' Los medicamentos son:'
Leer medicamentos
Escribir 'Número de Consulta (1)Primera Vez,(2)Segunda vez '
Leer Consulta
Segun Consulta Hacer
1:
Escribir 'Desea una nueva consulta (1) si, (2)no'
Leer opc1
...