	Proyecto para Dbase:

Profesora:          Rita Barraza López

Integrantes:
			Jorge Martínez Morales.
			Víctor Manuel Iniestra Alvarez.

Nombre del Proyecto:
					Control de un Hospital.

Objetivo:
			Este programa llevara el control de enfermos, 	
		cuartos, médicos, medicinas, estudios, 		
	operaciones, equipo disponible, y todo lo 		
	relacionado con un hospital.

Justificación:
			Al observar los problemas con los que se 		
	enfrentaba la administracion del hospital como: la 		
	falta de registro de los pacientes, el control 		
	inexacto de los gastos del hospital, la dificultad 		
	para encontrar a los medicos fuera de su horario 		
	habitual, deficiente pago de los honorarios a los 		
	trabajadores etc.

Requerimientos del Proyecto:
						Este Proyecto necesitara de un 	
					disco completo, un paquete de 			
			Dbase, quince dias de desarrollo y 				
		un par de analistas.
Funciones del Sistema:
						Este sistema de control de un 		
				hospital ayudara al mantenimiento 			
			actualizado de una base de datos 				
		para los enfermos, otra para los 					
	medicos y enfermeras, para las 					
	operaciones y una ultima para las 					
	medicinas y el equipo; manteniendo 					
	constante el intercambio de datos 					
	entre dichas bases.
 


	MANUAL DEL PROGRAMA "HOSPITAL GENERAL PC"

	I. Introducción
		El programa Hospital General Pc al que va a dar uso 
está diseńado en Dbase III Plus, que nos permite utilizar la 
información almacenada en bases de datos, es decir, que está 
organizada en la computadora y que es independiente de cualquier 
otro tipo de información. Esta información está relacionada entre 
sí permitiendo cálculos y resultados que son necesarios para 
llevar organización y control dentro de un hospital.
		El programa lleva a cabo la función de un archivero en 
el que se pueden almacenar datos diversos, como de pacientes, 
médicos, cuartos, tipo de operaciones, etc.; es capaz de hacer 
canalizaciones para tener una idea de los gastos que produzcan los 
servicios del hospital así como reportes en pantalla e impresos de 
los datos deseados.

	II. Requerimientos
		Es escencial para poder correr el programa una 
microcomputadora que sea de la línea PC compatible con IBM, que 
tenga un mínimo de 256 K de memoria, dos unidades de diskette o 
una de diskette y disco duro, impresora, sistema operativo MS-DOS 
versión 2.2 o más recientes, los discos 1 y 2 de Dbase III Plus y 
el disco que contenga el programa "Hospital General Pc".

	III. Uso del programa Hospital General Pc
		Para utilizar el programa Hospital General es necesario 
entrar al paquete de Dbase III Plus siguiendo estas instrucciones:
	- Cargar el sistema operativo MS-DOS (de preferencia         
      versiones recientes 3.*).
	- Se retira el disco del sistema operativo y se introduce el 
       disco 1 (sistema) de Dbase en el drive A.
	- Se llama al programa Dbase
	  A> dbase seguido de un Enter.
	- Una vez cargado el programa se saca el disco y se inserta  
      el disco 2 de Dbase en el mismo drive A.
  	- En la pantalla aparecerá un menú que corresponde al modo   
       asistente (ASSIST). Para salir se oprime Esc y             
       automáticamente quedaremos en el modo de comandos.
	- Después se coloca el disco que contenga el programa        
       Hospital General Pc en el drive A y se da el comando .SET  
       DEFAULT TO B:.
	- Por último se teclea DO PRINCIPAL después del punto para   
       ejecutar el programa.






	IV. Descripción de pantallas
		Una vez ejecutadas las instrucciones anteriores la 
pantalla mostrará un menú. Ahí podremos hacer la elección que    
deseemos:

 +--------------------------------------------------------------+ 
  Ś+------------------------------------------------------------+Ś
-ŚŚ+----------------------------------------------------------+ŚŚ
 ŚŚŚ                  Hospital General Pc:                    ŚŚŚ 
 ŚŚ+----------------------------------------------------------+ŚŚ 
 ŚŚŚ                                                          ŚŚŚ 
  ŚŚŚ                                                          ŚŚŚ 
 ŚŚŚ                                                          ŚŚŚ 
 ŚŚŚ +------------+ +-----------+                             ŚŚŚ 
 ŚŚŚ Ś Menu:      Ś Ś Submenu:  Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś         AREA  DE            ŚŚŚ
 ŚŚŚ Ś Medicos    Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś           Ś          TRABJO             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ +------------+ +-----------+                             ŚŚŚ
 ŚŚ+----------------------------------------------------------+ŚŚ
 ŚŚ      Puedes dar de Alta, Baja, Consultar y Canalizar.      ŚŚ
 Ś+------------------------------------------------------------+Ś
 +--------------------------------------------------------------+
		En la figura podemos observar dos menus, el primero que 
es el principal despliega las opciones a elegir, mientras que el 
submenú sólo desplegará al elegirse una opción del menú principal. 
Por default el cursor se posicionará en la primera opcion en forma 
de una barra de video inverso (en la figura se seńala con letras 
de sombra).
		Esta pantalla cuenta además con una línea de 
información que describe las operaciones realizables en cada 
opción y que irá cambiando al mover el cursor de los menus. En el 
ejemplo el cursor se encuentra en la primera opción que es 
PACIENTES, por lo tanto la línea de información indica que ahí 
podremos dar de alta, baja, consultar y canalizar los gastos de un 
paciente.
		A continuación se explicaran los diferentes desempeńos 
de cada una de las opciones del menú y submenú, por lo que sólo 
tomaremos en cuenta el área de trabajo de la pantalla indicando 
las opciones que se eligirán:


 ŚŚŚ +------------+ +-----------+                             ŚŚŚ 
 ŚŚŚ Ś MENU:      Ś Ś SUBMENU:  Ś  Nombre del paciente?       ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś Ingresos  Ś ŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚ ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Medicos    Ś Ś Egresos   Ś   Edad del paciente? ŚŚ     ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś Consultas Ś  Enfermedad del paciente?   ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś Canalizac.Ś ŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚ ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś Salida    Ś  Sexo? (F/M) Ś              ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ +------------+ +-----------+  Historial  MEMO            ŚŚŚ
		Ingreso de pacientes: 
Después de teclear la opción PACIENTES en el menú principal se 
desplegará el submenú correspondiente. De éste tomaremos la opción 
INGRESOS e inmediátamente se preguntarán los datos del enfermo en 
el área de trabajo como lo muestra la figura.

	El último campo es una localidad de memoria que nos permite 
conservar grandes bloques de información, en este caso para 
guardar el historial médico del paciente.
	Al concluir con el Historial el programa preguntará si los 
datos son los correctos. Si la respuesta es afirmativa los datos 
serán grabados y regresaremos al submenú de PACIENTES; de lo 
contrario pedira nuevamente los datos. Esta base de datos se podra 
limpiar si tecleamos 'LIMPIEZA'.


 ŚŚŚ +------------+ +-----------+  Nombre del paciente?       ŚŚŚ 
 ŚŚŚ Ś MENU:      Ś Ś SUBMENU:  Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś RUBEN MARQUEZ ROJAS         ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś Ingresos  Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           ŚEste paciente va a ser dado  ŚŚŚ
 ŚŚŚ Ś Medicos    Ś Ś Egresos   Ś          de alta.           ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś  Costo dia en el hospital?  ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś Consultas Ś  50,000                     ŚŚŚ
 ŚŚŚ Ś            Ś Ś           ŚComo ha estado 5 dias y de   ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś Canalizac.Śoperaciones debe 5'000,000   ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś Salida    ŚNos debe un total de         ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś 5'250,000  ŚŚŚŚŚŚŚŚ         ŚŚŚ
 ŚŚŚ +------------+ +-----------+                             ŚŚŚ
		Egreso de pacientes:
Cuando un paciente va a ser dado de alta el programa pide el 
nombre y el costo del día para sacar el total, ańadiendole el 
costo de la operación si es que al hubo. Los días de estancia los 
calcula automáticamente según la fecha de ingreso. 
	Sólo se podra salir de la opción si se teclea PAGADO en la 
barra de video inverso después del total. Si el nombre no esta 
registrado el programa da un aviso.




 ŚŚŚ +------------+ +-----------+                             ŚŚŚ 
 ŚŚŚ Ś MENU:      Ś Ś SUBMENU:  Ś  Nombre del paciente?       ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś Ingresos  Ś JOAQUIN HERNANDEZ GARCIA    ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Medicos    Ś Ś Egresos   Ś  Edad: 37    Cuarto: 42     ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś Consultas Ś  Enfermedad del paciente:   ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś Canalizac.Ś BRONQUITIS                  ŚŚŚ 
  ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś Salida    ŚEs hombre Ingreso el 07/23/90ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ +------------+ +-----------+Se ha gastado  $  345,760    ŚŚŚ


		Consultas de pacientes:
Al elegir la opción CONSULTAS se da información correspondiente al 
paciente que se le especifique. La información desplegada es la 
que se muestra en la figura.
	La fecha de ingreso se refiere al día en que el paciente 
entro al hospital y de acuerdo a ella se calculan los gastos que 
ha producido su estancia.
	En caso de que el paciente no se encuntre registrado o el 
nombre sa haya escrito mal, el programa enviara un mensaje 
diciendo: "Esa persona no está en el hospital."







 ŚŚŚ +------------+ +-----------+  Nombre del paciente?       ŚŚŚ 
 ŚŚŚ Ś MENU:      Ś Ś SUBMENU:  Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś  JOAQUIN HERNANDEZ REYES    ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś Ingresos  Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś Este paciente va a ser ca-  ŚŚŚ
 ŚŚŚ Ś Medicos    Ś Ś Egresos   Ś  nalizado de acuerdo a su   ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś        enfermedad.          ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś Consultas Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś  Lo atendera el doctor:     ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś Canalizac.Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś AGUSTIN TIOL MORALES        ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś Salida    Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś  Estara en el cuerto 7      ŚŚŚ
 ŚŚŚ +------------+ +-----------+                             ŚŚŚ
	Canalización de pacientes:
La opción nos da el nombre del médico que atiende y el cuarto 
donde se encuentra el paciente. Si su enfermedad no está dentro de 
los conocimientos del personal médico se envía un mensaje de aviso 
y se da de baja automáticamente al paciente. Lo mismo ocurre 
cuando no hay cuartos disponibles en el hospita (los cuartos 
disponibles son 99).
	En caso de que el nombre no se encuentre registrado se da un 
aviso, pero si esa persona ya se había canalizado ya no se podrá 
volver a canalizar.








 ŚŚŚ +------------+ +-----------+                             ŚŚŚ
 ŚŚŚ Ś MENU:      Ś Ś SUBMENU:  Ś  Nombre del doctor?         ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś Ingresos  Ś ŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚ ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Medicos    Ś Ś Egresos   Ś  Especialidad del doctor?   ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś Consultas Ś ŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚŚ ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś Reporte   ŚSueldo quincenal? $660,000   ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś Salida    ŚTeléfono? 6-58-32-45         ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ +------------+ +-----------+Estan los datos correctos? Ś ŚŚŚ
	Ingreso de médicos:
En la opción INGRESOS del submenú de MEDICOS se piden los datos 
del médico que trabajaen el hospital como son especialidad, sueldo 
que recibe, teléfono para localizarlo además de su nombre.
Al final se pregunta si los datos introducidos son los correctos y 
si el nombre del mádico ya está registrado el programa envia un 
mensaje diciendo: "Esa persona ya está en el Hospital."  Esta base 
de datos se podra limpiar si tecleamos 'LIMPIEZA'.











 ŚŚŚ +------------+ +-----------+                             ŚŚŚ
 ŚŚŚ Ś MENU:      Ś Ś SUBMENU:  Ś  Nombre del doctor?         ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś Ingresos  Ś AGUSTIN  TIOL MORALES       ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Medicos    Ś Ś Egresos   Ś  Especialidad del doctor?   ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś Consultas Ś CIRUGIA MAXILOFACIAL        ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś Reporte   ŚLleva 7 quincenas, por lo queŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś Salida    Śse le debe $ 3'500,000       ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ +------------+ +-----------+Su teléfono es 568-87-22     ŚŚŚ
	Egresos de médicos:
Este opción lleva la cuenta de las quincenas trabajadas por el 
médico y calcula el sueldo que ganó durante su estancia. Si el 
nombre que se pide no está en archivo se envia un mensaje 
diciendo: "Esa persona no está en el Hospital.

 ŚŚŚ +------------+ +-----------+                             ŚŚŚ
 ŚŚŚ Ś MENU:      Ś Ś SUBMENU:  Ś  Nombre del doctor?         ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś Ingresos  Ś AGUSTIN  TIOL MORALES       ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Medicos    Ś Ś Egresos   Ś  Especialidad del doctor?   ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś Consultas Ś CIRUGIA MAXILOFACIAL        ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś Reporte   ŚIngresó el 07/31/90          ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś Salida    ŚSu sueldo es de $1'000,000   ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ +------------+ +-----------+Su teléfono es 568-87-22     ŚŚŚ
	Consultas de médicos:
Esta opción permite conocer los datos del médico que se le 
indique.


 ŚŚŚ +------------+ +-----------+                             ŚŚŚ 
 ŚŚŚ Ś MENU:      Ś Ś SUBMENU:  Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś  Nombre del doctor?         ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś Ingresos  Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś AGUSTIN TIOL MORALES        ŚŚŚ
 ŚŚŚ Ś Médicos    Ś Ś Egresos   Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś Consultas Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś   I M P R I M I E N D O     ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś Reporte   Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś Salida    Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ +------------+ +-----------+                             ŚŚŚ
	Reporte de médicos:
Genera un reporte para la impresora con el nombre de los médicos 
con sus respectivos pacientes y cuartos. Si el doctor no esta 
registrado el programa envia un aviso. El reporte quedará en el 
siguiente formato:

                     Reporte de médicos:
               Actualizada al 10/04/90
               Del doctor: Agustín Tiol Morales
Cuarto:    Paciente:
 34     Benjamín Cortéz Mora
 54     Joaquín Hernández García
 56     Pablo Pérez Ramírez
 67     Martín Silva Acevedo
 70     Jorge Iván Castillo Estrada

                    Hospital General PC.



 ŚŚŚ +------------+ +-----------+                             ŚŚŚ 
 ŚŚŚ Ś MENU:      Ś Ś SUBMENU:  Ś  Nombre del paciente?       ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś           Ś BENJAMIN CORTEZ MORA        ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Médicos    Ś Ś Consulta  Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś Reporte   Ś   Cuarto: 34                ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś Salida    Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś   Médico del paciente:      ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś  AGUSTIN TIOL MORALES       ŚŚŚ
 ŚŚŚ +------------+ +-----------+                             ŚŚŚ
	Consulta del Hospital:
La consulta del hospital trabaja con el nombre del paciente para 
dar información sobre el cuarto donde se atiende y el médico 
encargado. Si el nombre del paciente no está registrado se envía 
un mensaje. Esta base de datos se podra limpiar si tecleamos 
'LIMPIEZA'.

 ŚŚŚ +------------+ +-----------+                             ŚŚŚ 
 ŚŚŚ Ś MENU:      Ś Ś SUBMENU:  Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Médicos    Ś Ś Consulta  Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś Reporte   Ś   I M P R I M I E N D O     ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś Salida    Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ +------------+ +-----------+                             ŚŚŚ
	Reporte del Hospital:
Esta opción genera un reporte en impresora sobre los cuartos, 
pacientes y médicos del Hospital en el siguiente formato:

                    Reporte de cuartos:
               Actualizada al 10/04/90
Cuarto: Paciente:                      Doctor:
 34     Benjamín Cortéz Mora           Agustín Tiol Morales
 54     Joaquín Hernández García       Iván Romero Osorno
 56     Pablo Pérez Ramírez            Luis Jesús Solís Morales
 67     Martín Silva Acevedo           Oscar Terrazas Garay
 70     Jorge Iván Castillo Estrada    Luis Rivera Alonso

                    Hospital General PC.  


 ŚŚŚ +------------+ +-----------+                             ŚŚŚ 
 ŚŚŚ Ś MENU:      Ś Ś SUBMENU:  Ś   Nombre del doctor?        ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś           Ś AGUSTIN TIOL MORALES        ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Médicos    Ś Ś Reporte   Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś Nueva     Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś  I M P R I M I E N D O      ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś Salida    Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ +------------+ +-----------+                             ŚŚŚ
	Consulta de operaciones:
Genera un reporte para la impresora de las operaciones que han 
realizado los médicos del hospital.



                     Reporte de operaciones:
               Actualizada al 10/04/90
               Del doctor: Agustín Tiol Morales
Fecha:        Paciente:                          Costo:
07/23/90      Mariano Arias Morillón             7'000,000
05/30/90      Ramón de Jesús Martínez Romero     6'000,000
12/04/89      Griselda Romero Díaz               3'000,000
11/19/90      Guadalupe Ramírez Prado            4'500,000
10/13/90      Guillermo Santos Sánchez           3'000,000
                    Hospital General PC.

 ŚŚŚ +------------+ +-----------+                             ŚŚŚ 
 ŚŚŚ Ś MENU:      Ś Ś SUBMENU:  Ś   Nombre del paciente?      ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Pacientes  Ś Ś           Ś MARILU MENDEZ FLORES        ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Médicos    Ś Ś Reporte   Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś Hospital   Ś Ś Nueva     Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś  Cuanto costó la operación? ŚŚŚ
 ŚŚŚ Ś OperacionesŚ Ś Salida    Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś   3'000,000                 ŚŚŚ
 ŚŚŚ Ś Salida     Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ Ś            Ś Ś           Ś                             ŚŚŚ
 ŚŚŚ +------------+ +-----------+                             ŚŚŚ
	Ingreso de operaciones:
Esta opción registrará las diversas operaciones que se realizan en 
el hospital dando el nombre del paciente al que se le realizó la 
operación y su costo. Para poder realizarlo es necesario que el 
paciente ya esté canalizado y que se encuentre registrado, de lo 
contrario el programa dará un aviso. Esta base de datos se podra 
limpiar si tecleamos 'LIMPIEZA'.

	V. Comandos de Dbase III Plus

		Los siguientes comandos pueden ser utilizados dentro de 
Dbase por lo que se brinda una explicaciňn de cada una de ellos:

	#USE# 

USE selects  the  active database file  and its index files from 
existing files. Subsequent commands operate on this database file 
until another one is selected.   If a new file is needed,  use the 
Database File option in the Create menu. 
     Command Format:  #USE# [##/?] 
                      #[INDEX ]# [ALIAS ] 
 
 
	#SET FORMAT TO# 

 SET FORMAT TO selects a custom screen format (.fmt) file that is 
used for full-screen editing.  This format file defines the input 
screen used with the Edit and Append options in the Retrieve menu. 
      Command Format:  #SET FORMAT TO# [##/?] 
                            #SET FILTER TO# 
 SET FILTER TO activates the filter condition stored in an 
existing query (.qry)  file.   Once the filter is in place,  
Retrievals on the database file or view will show only records 
that meet the filter condition.  Use the Query option in the 
Create menu to generate a new query file.       Command Format:  
#SET FILTER TO# 
                      [#FILE #/?]/[]  
 
	#SET CATALOG TO# 

 SET CATALOG TO selects the catalog that ASSIST will use.   When a 
catalog  is in use,  only the files listed in the active catalog 
are presented for  editing and reporting.  Additionally, all files 
created or used are added to the catalog for future reference. 
      Command Format:  #SET CATALOG TO# [##/?] 
 

 
	#SET VIEW TO# 

 SET VIEW TO defines the operating environment using a view  
(.vue)  file. The environment  consists  of  database files,  
their index files,  their  active fields and their relationships. 
   Views provide a means for using more than one database file in 
ASSIST.  
      Command Format:  #SET VIEW TO# [##/?] 


	#QUIT# 

 QUIT closes all open files,  ends this session of dBASE III,  and 
returns to the operating system.
      Command Format:  #QUIT# 
 
 
	#CREATE# 

 CREATE allows the design of a database file structure.  Once the 
new file structure is completed,  enter information into the 
database file. 
      Command Format:  #CREATE # 
                      [FROM ] 
 
 
	#CREATE SCREEN# 

 CREATE SCREEN  allows design of a screen format for a particular 
database file.   The new screen format is stored in a screen 
(.scr) file and saved for later use,  and a format  (.fmt)  file 
is generated.  Once generated,  this screen format is used until 
another one is selected in Set Up. 
      Command Format:  #CREATE SCREEN #/? 
 
	#CREATE VIEW# 

 CREATE VIEW allows the creation of a view consisting of a set of 
database files, their associated index files, their relationships, 
 and the fields to be used from each file.   A view may optionally 
define a screen format and a filter.   Once created,  the view 
remains in use until another view  or database file is selected in 
Set Up.   Views provide a means for using  more than one database 
file in ASSIST. 
      Command Format:  #CREATE VIEW #/?/FROM 
ENVIRONMENT 
 

 
	#CREATE QUERY# 

 CREATE QUERY  allows the creation of a filter using a query  
(.qry) form, saves the filter in a query file, and activates the 
filter.   The data in the database file or view is filtered by the 
condition in the query,  and any records that do not meet the 
condition are ignored by dBASE III.  The filter remains in effect 
until another one is selected in Set Up. 
      Command Format:  #CREATE QUERY #/? 
 

	#CREATE REPORT# 

 CREATE REPORT allows the design of a report for the active 
database,  and saves the report layout in a form  (.frm)  file for 
later use.   Once the  report layout is created,   use the Report 
option in the Retrieve menu to to produce the actual report. 
      Command Format:  #CREATE REPORT #/? 


	#CREATE LABEL# 
 
CREATE LABEL allows the design of a mailing label for the active 
database and saves the label layout in a label (.lbl) file for 
later use. Once the  label layout  is  created,  use the  Label 
option in the Retrieve menu to  produce the actual labels. 
      Command Format:  #CREATE LABEL #/? 
 
 
 	#APPEND# 
 APPEND  allows  addition of new records to the end of the active 
database file. 
      Command Format:  #APPEND# [BLANK]/FROM  [FOR 
] [[TYPE] ]/                       
[DELIMITED [WITH BLANK/]] 


 	#EDIT# 
 
EDIT allows editing of individual records  in the active database 
file or view beginning  with  the  current record.  Edit  records 
before and after  the current one using the appropriate 
full-screen editing keys. 
      Command Format:  #EDIT# [] [FIELDS ] 
                      [FOR ] [WHILE ] 

 
 	#DISPLAY# 
 
DISPLAY shows all the fields in the current record of the active 
database file or view. 
      Command Format:  #DISPLAY# [] [] 
                      [FOR ] [WHILE ] 
                      [OFF] [TO PRINT] 
 

 
	#BROWSE# 
 
BROWSE  allows full screen viewing and editing of multiple records 
in the active database file or view.   Access many of the BROWSE 
command options from an optional menu at the top of the display. 
      Command Format:  #BROWSE# [FIELDS ] [WIDTH 
] 
                      [LOCK ] [FREEZE ] [NOFOLLOW]   
                     [NOAPPEND] [NOMENU] 
 
 
	#REPLACE# 
 
REPLACE  modifies information  in one or  more fields of a record 
without viewing the record or using full-screen editing.  Only the 
current record is changed unless a larger scope or a condition is 
specified. 
      Command Format:  #REPLACE []  WITH # 
                      #[, WITH ]... [FOR 
]# 
                      #[WHILE ]# 
 
 
	#DELETE# 

 DELETE marks records for deletion, but does not actually remove 
them from the  database  file.  Records  marked  for  deletion  
are included in all  operations  unless  excluded  by a condition. 
  Use  the Recall option to reactivate  deleted  records.   Use 
the Pack option to permanently remove  records marked for 
deletion. 
      Command Format:  #DELETE [] [FOR ]# 
                      #[WHILE ]# 
 

	#RECALL# 
 
RECALL reactivates  records that  are marked for deletion.   This 
command will work  on the current  record unless a larger scope or 
a condition is specified. 
      Command Format:  #RECALL [] [FOR ]# 
                      #[WHILE ]# 
 
  
	#PACK# 
 
PACK permanently removes all records that are marked for deletion 
from  the active database file and adjusts all open index files.  
     Command Format:  #PACK# 
 
	#SEEK# 
 
SEEK  searches the active database file  for the first record 
whose index key matches the result of the expression.  Index the 
database file before  using SEEK. 
      Command Format:  #SEEK # 


	#LOCATE# 
 
LOCATE  searches the active database file for the first record 
matching a given condition.  Use the Continue option to find the 
rest of the records that match the LOCATE condition.   LOCATE 
works faster on a database file that is not indexed. 
      Command Format:  #LOCATE [] [FOR ]# 
                      #[WHILE ]# 
 
  
	#CONTINUE# 
 
CONTINUE  searches for subsequent records meeting the condition 
used with the previous LOCATE command.    
      Command Format:  #CONTINUE# 
 
 
	#SKIP# 
 
SKIP  moves the record pointer forward or backward one or more 
records at a time in the active database file. 
      Command Format:  #SKIP []# 


	#GOTO# 
 
GOTO moves the record pointer in the active database file directly 
to the top or bottom of the file, or to a specific record number. 
      Command Format:  #GOTO [RECORD]  / BOTTOM / TOP# 
 
 
	#LIST# 
 
LIST shows specified records and fields using the active database 
file or view.  The listing does not pause periodically and may be 
printed.  
      Command Format:  #LIST [] []# 
                      #[FOR ] [WHILE ]# 
                      #[TO PRINT]# [OFF] 
 

 
	#DISPLAY# 

 DISPLAY shows specified records and fields using the active 
database file or view.  The listing pauses periodically and 
prompts for a key press. 
      Command Format:  #DISPLAY [] []# 
                      #[FOR ] [WHILE ]# 
                      [OFF] [TO PRINT] 


	#REPORT FORM# 
 
REPORT FORM displays data from the database file  in columnar 
format with titles, totals, and other format controls. 
 Use the Report option in the Create menu to design a report,  and 
save it  in a report form  (.frm) file.   Once a report form file 
is created,  use this Report option to produce the actual report. 
 Use limiting conditions to select specific records to include in 
the report. 
      Command Format:  #REPORT FORM #/? #[]#  
                      #[FOR ] [WHILE ] [TO 
PRINT]# 
                      [PLAIN] [NOEJECT] [HEADING ]  
                      [TO FILE ] 
 


	#LABEL FORM# 

 LABEL FORM displays data from the database file in the form of 
labels. 
 Use the Label option in the Create menu to design the label,  and 
save it in  a label  (.lbl) file.   Once  the label  is designed, 
 use this Label  option  to produce the actual labels.   Use 
limiting conditions to select specific records to include in the 
labels. 
      Command Format:  #LABEL FORM #/? 
#[]# 
                      #[FOR ] [WHILE ]# 
                      #[TO PRINT]# [SAMPLE] [TO FILE ] 
  
	#SUM# 
 
SUM  condtionally  computes the  totals of  selected fields in the 
active database file.  
      Command Format:  #SUM [] []# 
                      #[FOR ] [WHILE ]# 
                      [TO ] 
 
 
	#AVERAGE# 
 
AVERAGE  conditionally computes the arithmetic mean of one or more 
fields in the active database file. 
      Command Format:  #AVERAGE [] []# 
                      #[FOR ] [WHILE ]# 
                      [TO ] 
 
 
	#COUNT# 
 
COUNT  computes  the number of  records in  the active database 
file that  meet a given condition.   
      Command Format: #COUNT [] [FOR ]# 
                     #[WHILE ]# [TO ] 
 

	#INDEX#  
 
INDEX  creates  and  opens an index file for use with the active 
database file.   Index files facilitate  quick searches for  
information and allow ordered viewing of database information.   
The index key expression tells dBASE III the order in which the 
records are searched and viewed.   dBASE III  maintains  the file 
in indexed order provided that the index file is open whenever 
changes are made to the corresponding database file. 
      Command Format:  #INDEX ON  TO # 
                      [UNIQUE] 
 

	#SORT# 
 
SORT creates a  physically  reordered  database  file  using  the 
 active database file.  In ASSIST, the sort is always in ascending 
 order and may  be based on one or more fields.   To make the 
sorted file active, open it  using the Set Up menu. 
      Command Fomat:  #SORT [] TO  ON #  
                      [/A]/[/C]/[/D] #[,]# 
[/A]/[/C]/[/D]...  
                      [FOR ] [WHILE ] 
 
 
	#COPY# 
 COPY duplicates all or part of the active database file and 
creates a new database file. 
      Command Format:  #COPY TO  [] [FIELDS 
]# 
                      #[FOR ] [WHILE ]# 
                      [[[TYPE] ]/DELIMITED [WITH  
                      BLANK/]] 
	#MODIFY STRUCTURE# 
 
MODIFY STRUCTURE  allows  the  editing  of  the  structure of an 
existing  database  file.  Information  is automatically restored 
after changes are saved,  but  some information is lost if changes 
to field names and field lengths are done at once.  Do these 
changes separately. 
      Command Format:  #MODIFY STRUCTURE# 
 
 
	#MODIFY SCREEN# 
 
MODIFY SCREEN allows the editing of an existing screen format.  
Save the file to generate a format file.  Once generated, the 
format file is used until another one is selected in Set Up. 
      Command Format:  #MODIFY SCREEN #/? 
 

 
	#MODIFY VIEW# 
 
MODIFY VIEW allows the editing of an existing view file.  Once 
saved, the modified  view  remains  in  use  until  another view 
or database file is  selected using the Set Up menu. 
      Command Format:  #MODIFY VIEW #/? 
 

	#MODIFY QUERY# 
 
MODIFY QUERY  allows  the  editing of a filter in an existing 
query file.   Save the query form to activate the modified filter. 
  The filter remains in effect until another one is selected in 
Set Up.    
      Command Format:  #MODIFY QUERY #/? 
 
 
	#MODIFY REPORT# 
 
MODIFY REPORT allows the editing of an existing report layout.   
Once the modified  report  layout is saved,  use the Report option 
in the Retrieve  menu to produce the actual report. 
      Command Format:  #MODIFY REPORT #/? 
 
 
	#MODIFY LABEL# 
 
MODIFY LABEL  allows  the  editing of an existing label layout.  
Once the  modified label layout is saved, use the Label option in 
the Retrieve menu to produce the actual labels. 
      Command Format:  #MODIFY LABEL #/? 
 
 
	#SET DRIVE# 
 
SET DEFAULT changes the disk drive that dBASE III searches for 
files when  no  disk drive is specified,  but it does not change 
the operating system logged drive. 
      Command Format:  #SET DEFAULT TO # 
 
 
	#COPY FILE# 
 
COPY FILE  copies  any file to a new file.   File name extensions 
must be specified. 
      Command Format:  #COPY FILE  TO # 
 

	#DIR# 
 
DIR  displays  all files or only those with a designated extension 
on the default drive and directory. 
      Command Format:  #DIR# [[LIKE] ] #[]#] / 
                      [ON :] [TO PRINT] 
 

	#RENAME# 

RENAME  changes the name of a file.   File name extensions must be 
given. If a catalog is engaged, it is updated with the new name of 
the file. 
      Command Format:  #RENAME  TO # 
 
 
	#ERASE# 
 
ERASE deletes a file from the disk.   File name extensions must be 
given. If a catalog is engaged, the catalog entry for that file is 
erased. 
      Command Format:  #ERASE #/? 
 
 
	#LIST STRUCTURE# 
 
LIST STRUCTURE  displays  the  following  information  about  the 
 active database file:  file name, number of records, the date of 
the last update, complete field descriptions, and the total number 
of bytes in each record. 
      Command Format:  #LIST STRUCTURE# 
 


	#IMPORT# 
 
IMPORT FROM reads a PFS file,  creates the corresponding dBASE III 
files, and appends the data. 
      Command Format:  #IMPORT FROM  [TYPE] # 
 
 
	#EXPORT# 
                        
EXPORT TO creates a PFS file using the active database file and 
format file, and copies the data. 
      Command Format:   EXPORT TO  [TYPE] #
                       

 
     VI. Estructura de los programas de Hospital General PC       
                                                                 
                      +-------------------+                      
                      Ś                   Ś                      
                      Ś    PRINCIPAL      Ś                      
       +--------+     +-------------------+                      
       Ś        Ś              Ś                                 
       Ś MARCO  Ś--------------Ś                                 
       +--------+              Ś                                 
                               Ś                                 
         +-----------------------------------------------+       
         Ś               Ś                Ś              Ś       
      +---------+  +-----------+     +-----------+  +--------+   
      Ś         Ś  Ś           Ś     Ś           Ś  Ś        Ś   
      ŚPACIENTESŚ  Ś  MEDICOS  Ś     Ś HOSPITAL  Ś  Ś OPERAC.Ś   
      +---------+  +-----------+     +-----------+  +--------+   
    +--+   Ś  +--+ +--+  Ś  +--+           Ś             Ś       
    Ś  Ś---+--Ś  Ś Ś  Ś--+--Ś  Ś    +-----+Ś+-----+ +---+Ś+---+  
    Ś1 Ś   Ś  Ś2 Ś Ś5 Ś  Ś  Ś6 Ś  --Ś     Ś-Ś     Ś Ś   ŚŚŚ   Ś  
    +--+   Ś  +--+ +--+  Ś  +--+  Ś Ś     Ś Ś     Ś Ś   ŚŚŚ   Ś  
     +--+  Ś +--+   +--+ Ś +--+ +--+Ś  9  Ś Ś 11  Ś Ś12 ŚŚŚ13 Ś  
     Ś  Ś----Ś  Ś   Ś  Ś---Ś  Ś Ś10ŚŚ     Ś Ś     Ś Ś   Ś-Ś   Ś  
     Ś3 Ś    Ś4 Ś   Ś7 Ś   Ś8 Ś +--++-----+ +-----+ +---+ +---+  
     +--+    +--+   +--+   +--+                                 

	VII. Listados de programas                                

	Principal: Este programa establece las bases de datos a      
                manejar, prepara la pantalla y ejecuta el menů    
                principal.
     
*Programa Principal para el programa del Hospital. 
 set procedure to Marco.prg 
 set status off 
 set scoreboard off 
 set talk off 
 select A 
       use paciente index pac_pac 
 select B 
       use medicos index med_med 
 select C 
       use hospital index hos_med 
 select D 
       use operacio 
 select A 
       set relation to cuarto into C 
 select C 
       set relation to medico into B 
 do marco 


 do while .T. 
   ayu='' 
   color1='w/b' 
   color2='n/w' 
   op0='' 
   op1='Pacientes' 
   op3='Medicos' 
   op5='Hospital' 
   op7='Operaciones' 
   op9='Salida' 
   ay0='' 
   ay1='    Puedes dar de Alta, Baja, Consultar y Canalizar 
Pacientes.    ' 
   ay3='Puedes dar de Alta, Baja, Consultar y generar Reportes de 
Medicos.' 
   ay5='            Puedes Consultar los cuartos del hospital.    
        ' 
   ay7='    Puedes Consultar los datos de las operaciones 
realizadas.     ' 
   ay9='                   Te Saca de este Programa.              
        ' 
   pre=0 
   pos=1 
   res=0 
   ver=8 
   hor=6 
   set color to 
   @ver+1,hor say op1 
   @ver+3,hor say op3 
   @ver+5,hor say op5 
   @ver+7,hor say op7 
   @ver+9,hor say op9 
   @22,5 say ay1 
   set color to &color2 
   @ver+1,hor say op1 
   do while res#13 
      res=0 
      do while res=0 
         res=inkey() 
      enddo 
      do case 
         case res=24 
           pre=pos 
           pos=pos+2 
           if pos>9 
              pos=1 
           endif 
         case res=5 
           pre=pos 
           pos=pos-2 


           if pos<1 
              pos=9 
           endif 
      endcase 
      nor='op'+str(pre,1,0) 
      inv='op'+str(pos,1,0) 
      ayu='ay'+str(pos,1,0) 
      set color to &color1 
      @ 22,5 say &ayu 
      @ ver+pre,hor say &nor 
      set color to &color2 
      @ ver+pos,hor say &inv 
   enddo 
   set color to 
   do case 
      case pos=1 
           do enfermos.prg 
      case pos=3 
           do doctores.prg 
      case pos=5 
           do sanatorio.prg 
      case pos=7 
           do curaciones.prg 
      case pos=9 
           exit 
   endcase 
enddo 
 
set status on 
set scoreboard on 
set talk on 
@ 7,20 say 'Hospital General PC.' 
@ 9,20 say 'Desarrollado por:' 
@ 11,20 say 'Jorge Martinez y Victor Iniestra.' 
@ 14,20 say 'Copyright MCMXC.' 
 close all 


	Marco: Este es un programa auxiliar que puede ser llamado    
            por cualquier otro programa y que hace los marcos.
 
*Marco Principal parte del programa de control de hospital. 
 Procedure Marco 
           clear 
          @ 1,1 to 24,79 double 
          set color to b/w 
          @ 2,2 to 23,78 
          set color to b/+ 
          @ 6,4 to 19,20 double 
          @ 6,22 to 19,37 


          @ 7,6 say 'MENU:' 
          @ 7,24 say 'SUBMENU:' 
          set color to 
          @ 3,3 to 21,77 double 
          @ 3,3 to 5,77 double 
          set color to b/+ 
          @ 4,30 say 'Hospital General Pc:' 
 set color to 


	Pacientes: Manda llamar a un submenů con el que puedes 		
	      manejar a los pacientes.

*Este programa maneja las Altas, las bajas y todo 
*lo relacionado con los pacientes. 
 
Do while .T. 
   ayu='' 
   color1='w/b' 
   color2='n/w' 
   op0='' 
   op1='Ingresos' 
   op3='Egresos' 
   op5='Consultas' 
   op7='Canalizacion' 
   op9='Salida' 
   ay0='' 
   ay1='         Puedes ingresar a nuevos pacientes en el 
hospital.         ' 
   ay3=' Puedes dar de alta a los pacientes con la correspondiente 
factura. ' 
   ay5='     Puedes Consultar los datos de los pacientes del 
hospital.      ' 
   ay7='Puedes Canalizar al paciente de acuerdo a la enfermedad 
que padezca.' 
   ay9='                      Te saca de este submenu.            
          ' 
   pre=0 
   pos=1 
   res=0 
   ver=8 
   hor=24 
   set color to 
   @ver+1,hor say op1 
   @ver+3,hor say op3 
   @ver+5,hor say op5 
   @ver+7,hor say op7 
   @ver+9,hor say op9 
   @ 22,5 say ay1 
   set color to &color2 


   @ver+1,hor say op1 
   do while res#13 
      res=0 
      do while res=0 
         res=inkey() 
      enddo 
      do case 
         case res=24 
           pre=pos 
           pos=pos+2 
           if pos>9 
              pos=1 
           endif 
         case res=5 
           pre=pos 
           pos=pos-2 
           if pos<1 
              pos=9 
           endif 
      endcase 
      nor='op'+str(pre,1,0) 
      inv='op'+str(pos,1,0) 
      ayu='ay'+Str(pos,1,0) 
      set color to &color1 
      @ 22,5 say &ayu 
      @ ver+pre,hor say &nor 
      set color to &color2 
      @ ver+pos,hor say &inv 
   enddo 
   set color to 
   do case 
      case pos=1 
                do ing_pac.prg 
                read 
      case Pos=3 
                do egr_pac.prg 
                read 
      case pos=5 
                do con_pac.prg 
                read 
      case pos=7 
                do can_pac.prg 
                read 
      case pos=9 
           exit 
   endcase 
   @ 6,39 clear to 20,75 
enddo 
@ 8,23 clear to 18,36 
return 

 
 
	1: Ingresos.

*Este programa sirve para dar de alta a los pacientes al hospital. 
 
sex='?' 
seg='?' 
nomb=space(35) 
 
select A 
 
@ 7,46 say 'Nombre del paciente? ' 
@ 9,40 say '' get nomb pict "@!" 
read 
if nomb='LIMPIEZA'+space(27) 
   delete all 
   pack 
   @ 11,40 say 'La base de datos de pacientes, paso' 
   @ 13,40 say 'a mejor vida.' 
else 
    locate for nombre=nomb 
    if eof() 
       append blank 
       do while .T. 
          seg='?' 
          replace nombre with nomb 
          @ 11,46 say 'Edad del paciente? ' get edad pict "99" 
          @ 13,40 say '      Enfermedad del paciente?     ' 
          @ 15,40 say '' get enfermedad pict "@!" 
          sex='?' 
          do while .Not.sex$'FM' 
            @ 17,46 say 'Sexo? (F/M) ' get sex pict "!" 
            read 
          enddo 
          if sex='F' 
            replace sexo with .F. 
          else 
            replace sexo with .T. 
          endif 
          replace fecha_ing with date() 
          @ 19,46 clear to 19,71 
          @ 19,46 say 'Historial Medico:       ' get historial 
          read 
          do while .not.seg$'SN' 
            @ 19,46 say 'Estan los datos correctos? ' get seg pict 
"!" 
            read 
          enddo 
          if seg='S' 


            exit 
          endif 
       enddo 
       reindex 
    else 
       set color to b/+ 
       @ 13,40 say 'Esa persona ya esta en el Hospital.' 
       set color to 
    endif 
endif


	2: Egresos.

*Este programa saca al paciente del hospital. 
 
cuesta=0 
tot=0 
res=space(6) 
nomb=space(35) 
select A 
go 1 
sueld=0 
@ 7,46 say 'Nombre del Paciente? ' 
@ 9,40 say '' get nomb pict "@!" 
read 
locate for nombre=nomb 
if .not. eof() 
   @ 11,40 say 'Este paciente va a ser dado de alta.' 
   @ 13,40 say 'Cuanto cuesta el dia en el hospital?' 
   @ 15,40 say '' get cuesta pict "999,999" 
   read 
   @ 13,40 clear to 20,75 
   @ 13,40 say 'Como a estado '+str((date()-fecha_ing),2,0)+' 
dias.' 
   @ 15,40 say 'Y de operaciones nos debe '+str(gasto,8,0) 
   @ 17,40 say 'Nos debe un total de:' 
   set color to b/ + * 
   tot=gasto+(cuesta*(date()-fecha_ing)) 
   @ 19,40 say tot pict "99'999,999" 
   set color to b/b 
   do while res#'PAGADO' 
      @ 19,51 get res pict "@!" 
      read 
   enddo 
   set color to 
   delete 
   pack 
   reindex 
   select C 


   locate for paciente=nomb 
   if .not. eof() 
      replace paciente with '' 
      replace medico with '' 
      replace ocupado with .F. 
   endif 
 else 
    @15,40 say 'Esa persona no esta en el hospital.' 
endif 
 

	3: Consultas.

*Consulta de los Pacientes del hospital. 
 
nomb=space(35) 
select A 
@ 7,46 say 'Nombre del paciente? ' 
@ 9,40 say '' get nomb pict "@!" 
read 
if .not.nomb='ACTUAL'+space(29) 
   locate for nombre=nomb 
else 
    @ 9,41 say nombre 
endif 
if .not. eof() 
   @ 11,46 say 'Edad: '+str(edad,2,0) 
   @ 11,55 say 'Cuarto: '+str(cuarto,2,0) 
   @ 13,46 say 'Enfermedad del paciente:' 
   @ 15,40 say enfermedad 
   if sexo 
      @17,40 say 'Es hombre' 
   else 
      @17,40 say 'Es mujer' 
   endif 
   @17,51 say 'Ingreso el '+dtoc(fecha_ing) 
   @19,46 say 'Se ha gastado ' 
   @19,61 say gasto pict "99'999,999" 
 else 
    @15,40 say 'Esa persona no esta en el hospital.' 
endif 



	4: Canalizaciňn.
 
*Este segmento de programa Canaliza a los pacientes. 
nomb=space(35) 
enf=space(35) 
doc=space(35) 
@ 7,46 say 'Nombre del paciente? ' 
@ 9,40 say '' get nomb pict "@!" 
read 
select C 
go 1 
locate for nomb=paciente 
if eof() 
   select A 
   go 1 
   locate for nombre=nomb 
   if .not. eof() 
      @ 11,40 say 'Este paciente va a ser canalizado' 
      @ 13,40 say 'de acuerdo a su enfermedad.' 
      enf=enfermedad 
      select B 
      go 1 
      locate for especial=enf 
      if eof() 
         @ 15,40 say 'No hay medicos que lo curen.' 
         @ 17,40 say 'Tendra que ser dado de baja.' 
         select A 
         delete 
         pack 
      else 
          @ 15,40 say 'Lo atendera el doctor:' 
          @ 17,40 say nombre 
          doc=nombre 
          select C 
          go 1 
          locate for .not.ocupado 
          if eof() 
             @ 19,40 say 'No hay cupo en el hospital.' 
             select A 
             delete 
             pack 
          else 
              c=cuarto 
              @19,40 say 'Estara en el cuarto '+str(cuarto,2,0) 
              replace paciente with nomb 
              replace medico with doc 
              replace ocupado with .T. 
              select A 
              replace cuarto with c 
          endif 


      endif 
   else 
        @15,40 say 'Esa persona no esta en el hospital.' 
   endif 
else 
    @15,40 say 'Esa persona ya ha sido canalizada.' 
endif 


	Médicos: Manda llamar un submenů con el que puedes manejar a 
		    los médicos.

*Este programa maneja todo lo relacionado con los Medicos. 
 
 
Do while .T. 
   ayu='' 
   color1='w/b' 
   color2='n/w' 
   op0='' 
   op1='Ingresos' 
   op3='Egresos' 
   op5='Consultas' 
   op7='Reporte' 
   op9='Salida' 
   ay1='            Te permite meter a nuevos medicos al hospital. 
          ' 
   ay3='            Te permite pagar a algun medico del hospital. 
           ' 
   ay5='    Te permite consultar los datos de algun medico en 
particular.    ' 
   ay7='Te permite mandar a la impresora un reporte de los 
medicos-Pacientes.' 
   ay9='                      Te saca de este Submenu.            
           ' 
   pre=0 
   pos=1 
   res=0 
   ver=8 
   hor=24 
   set color to 
   @ver+1,hor say op1 
   @ver+3,hor say op3 
   @ver+5,hor say op5 
   @ver+7,hor say op7 
   @ver+9,hor say op9 
   @ 22,5 say ay1 
   set color to &color2 
   @ver+1,hor say op1 
   do while res#13 

 
      res=0 
      do while res=0 
         res=inkey() 
      enddo 
      do case 
         case res=24 
           pre=pos 
           pos=pos+2 
           if pos>9 
              pos=1 
           endif 
         case res=5 
           pre=pos 
           pos=pos-2 
           if pos<1 
              pos=9 
           endif 
      endcase 
      nor='op'+str(pre,1,0) 
      inv='op'+str(pos,1,0) 
      ayu='ay'+str(pos,1,0) 
      set color to &color1 
      @ 22,5 say &ayu 
      @ ver+pre,hor say &nor 
      set color to &color2 
      @ ver+pos,hor say &inv 
   enddo 
   set color to 
   do case 
      case pos=1 
                 do ing_doc.prg 
                 read 
      case Pos=3 
                 do egr_doc.prg 
                 read 
      case pos=5 
                 do con_doc.prg 
                 read 
      case pos=7 
                 do rep_med.prg 
                 read 
      case pos=9 
           exit 
   endcase 
   @ 6,39 clear to 20,75 
enddo 
@ 8,23 clear to 18,36 
return 
 



     5: Ingresos.

 
*Este programa sirve para dar de alta a los doctores del hospital. 
 
 
s='?' 
nomb=space(35) 
select B 
@ 7,46 say 'Nombre del doctor? ' 
@ 9,40 say '' get nomb pict "@!" 
read 
if nomb='LIMPIEZA'+space(27) 
   delete all 
   pack 
   @ 11,40 say 'La base de datos de medicos ,paso' 
   @ 13,40 say 'a mejor vida.' 
else 
    locate for nombre=nomb 
    if eof() 
       append blank 
       do while .T. 
          s='?' 
          replace nombre with nomb 
          @ 11,46 say 'Especialidad del doctor? ' 
          @ 13,40 say '' get especial pict "@!" 
          @ 15,46 say 'Sueldo quincenal? ' get sueldo pict 
"99'999,999" 
          @ 17,46 say 'Telefono? ' get telefono pict "9-99-99-99" 
          read 
          do while .not.s$'SN' 
             @ 19,40 say 'Estan los datos correctos? ' get s pict 
"!" 
             read 
          enddo 
          if s='S' 
             exit 
          endif 
       enddo 
       replace ingreso with date() 
       reindex 
    else 
       set color to b/+ 
       @ 13,40 say 'Esa persona ya esta en el Hospital.' 
       set color to 
    endif 
endif




     6: Egresos.

 
*Este programa le paga a los doctores del hospital. 
 
 
nomb=space(35) 
select B 
go 1 
sueld=0 
@ 7,46 say 'Nombre del doctor? ' 
@ 9,40 say '' get nomb pict "@!" 
read 
locate for nombre=nomb 
if .not. eof() 
   @ 11,46 say 'Especialidad del doctor:' 
   @ 13,40 say especial 
   sueld=sueldo*((date()-ultimo)/15) 
   @ 15,40 say 'Lleva '+str((date()-ingreso)/15,2,0)+' quincenas.' 
   @ 17,40 say 'Por lo que se le debe ' 
   @ 17,62 say sueld pict "99'999,999" 
   replace ultimo with date() 
   @ 19,40 say 'Su telefono es ' 
   @ 19,56 say telefono pict "9-99-99-99" 
 else 
    @15,40 say 'Esa persona no esta en el hospital.' 
endif 


	7: Consultas.
 
 *Consulta de los doctores del hospital. 
 
nomb=space(35) 
select B 
@ 7,46 say 'Nombre del doctor? ' 
@ 9,40 say '' get nomb pict "@!" 
read 
if .not.nomb='ACTUAL'+space(29) 
   locate for nombre=nomb 
else 
    @ 9,41 say nombre 
endif 
if .not. eof() 
   @ 11,46 say 'Especialidad del doctor:' 
   @ 13,40 say especial 
   @ 15,40 say 'Ingreso el '+dtoc(ingreso) 
   @ 17,40 say 'Su sueldo es de ' 
   @ 17,57 say sueldo pict "99'999,999" 

 
   @ 19,40 say 'Su telefono es ' 
   @ 19,56 say telefono pict "9-99-99-99" 
 else 
    @15,40 say 'Esa persona no esta en el hospital.' 
endif 


	8: Reporte.

 
*Genera un reporte para la impresora de los medicos y sus 
pacientes. 

 
select B 
 
s='?' 
nomb=space(35) 
select B 
@ 7,46 say 'Nombre del doctor? ' 
@ 9,40 say '' get nomb pict "@!" 
read 
locate for nombre=nomb 
if eof() 
    @ 12,40 say 'Ese doctor no esta en el hospital.' 
else 
    set console off 
    set color to b/+ * 
    @ 13,45 say 'I M P R I M I E N D O .' 
    set color to 
    set printer on 
    ? space(30)+'REPORTE DE MEDICOS:'+space(31) 
    ? 
    ? space(25)+'Actualizada al '+dtoc(date())+space(32) 
    ? space(25)+'Del doctor '+nomb+space(9) 
    ? 'Cuarto: '+'Paciente: '+space(22)+especial+space(5) 
    select C 
    ? 
    go 1 
    do while .not.eof() 
       if ocupado.and.medico=nomb 
             ? ' '+str(cuarto,2,0)+space(6)+paciente+space(36) 
             ? 
       endif 
       skip 
    enddo 
    ? space(30)+'Hospital General PC.'+space(30) 
    ? 
    set printer off 
    set console on 


endif 
 

	Hospital: Manda llamar un submenů con el que puedes manejar  
              los cuartos del hospital.

*Este programa maneja todo lo relacionado con los Cuartos del 
hospital. 
*Generando un Reporte. 
 
Do while .T. 
   ayu='' 
   color1='w/b' 
   color2='n/w' 
   op0='' 
   op1='Consulta' 
   op3='Reporte' 
   op5='Salida' 
   ay1='   Te muestra cuales enfermos estan en los cuartos del 
hospital.    ' 
   ay3='      Con esto puedes hacer un reporte impreso con esos 
datos.      ' 
   ay5='                        Te saca de este submenu.          
          ' 
   pre=0 
   pos=1 
   res=0 
   ver=10 
   hor=24 
   set color to 
   @ver+1,hor say op1 
   @ver+3,hor say op3 
   @ver+5,hor say op5 
   @ 22,5 say ay1 
   set color to &color2 
   @ver+1,hor say op1 
   do while res#13 
      res=0 
      do while res=0 
         res=inkey() 
      enddo 
      do case 
         case res=24 
           pre=pos 
           pos=pos+2 
           if pos>5 
              pos=1 
           endif 
         case res=5 
           pre=pos 


           pos=pos-2 
           if pos<1 
              pos=5 
           endif 
      endcase 
      nor='op'+str(pre,1,0) 
      inv='op'+str(pos,1,0) 
      ayu='ay'+str(pos,1,0) 
      set color to &color1 
      @ 22,5 say &ayu 
      @ ver+pre,hor say &nor 
      set color to &color2 
      @ ver+pos,hor say &inv 
   enddo 
   set color to 
   do case 
      case pos=1 
                do con_hos.prg 
                read 
      case Pos=3 
                do rep_hos.prg 
                read 
      case pos=5 
           exit 
   endcase 
   @ 6,39 clear to 20,75 
enddo 
@ 8,23 clear to 18,36 
return 
 

	9: Consulta.

 
*Este programa te pregunta el nombre del paciente del hospital 
*y te dice cual paciente esta alli y cual doctor lo atiende. 
 
select C 
x=0 
nomb=space(35) 
doc=space(35) 
@ 7,46 say 'Nombre del paciente? ' 
@ 9,40 say '' get nomb pict "@!" 
read 
if nomb='LIMPIEZA'+space(27) 
   delete all 
   pack 
   @ 11,40 say 'La base de datos del hospital,' 
   @ 13,40 say 'paso a mejor vida.' 
   @ 15,40 say 'Cuantos cuartos tendra el' 


   @ 17,40 say 'hospital ahora? ' get x pict "99" 
   read 
   set procedure to temp 
   do temp with x 

else 
    locate for paciente=nomb 
    if .not. eof() 
       @ 12,40 say 'Cuarto: '+str(cuarto,2,0) 
       @ 15,46 say 'Medico del paciente:' 
       @ 17,40 say medico 
       doc=medico 
       select A 
       go 1 
       locate for nombre=nomb 
       select B 
       go 1 
       locate for nombre=doc 
    else 
        @15,40 say 'Esa persona no esta en el hospital.' 
    endif 
endif 


	10: Temporal.

 
*Este procedimiento va a preparar la base de datos Hospital. 
 
procedure temp 
parameter x 
t=1 
do while t#x+1 
   append blank 
   replace cuarto with t 
   replace ocupado with .F. 
   t=t+1 
enddo 
 

	11: Reporte.
 
*Genera un reporte para la impresora de los cuartos, pacientes y 
los medicos 
*de cada uno. 
 
select C 
sort on cuarto to repo_hos 
use repo_hos 
set console off 


set color to b/+ * 
@ 13,45 say 'I M P R I M I E N D O .' 
set color to 
set printer on 
? space(30)+'Reporte de cuartos:'+space(31) 
? 
? space(25)+'Actualizada al '+dtoc(date())+space(32) 
? 'Cuarto: '+'Paciente: '+space(22)+'Doctor:'+space(33) 
do while .not.eof() 
   if ocupado 
      ? 
      ? ' '+str(cuarto,2,0)+space(6)+paciente+' '+medico 
   endif 
   skip 
enddo 
? space(30)+'Hospital General PC.'+space(30) 
? 
set printer off 
! del b:repo_hos.dbf 
set console on 
 
 
 
 

	Operaciones: Manda llamar un submenů con el que puedes       
                  manejar las operaciones realizadas en el        
                  hospital.
 
*Este programa maneja todo lo relacionado con las operaciones 
realizadas. 
*Generando un Reporte. 
 
Do while .T. 
   ayu='' 
   color1='w/b' 
   color2='n/w' 
   op0='' 
   op1='Reporte' 
   op3='Nuevas' 
   op5='Salida' 
   ay1='        Puedes generar un Reporte impreso de las 
operaciones.        ' 
   ay3='                    Puedes Entrar nuevas operaciones.     
           ' 
   ay5='                          Te saca de este Submenu.        
           ' 
   pre=0 
   pos=1 
   res=0 


   ver=10 
   hor=24 
   set color to 
   @ver+1,hor say op1 
   @ver+3,hor say op3 
   @ver+5,hor say op5 
   @22,5 say ay1 
   set color to &color2 
   @ver+1,hor say op1 
   do while res#13 
      res=0 
      do while res=0 
         res=inkey() 
      enddo 
      do case 
         case res=24 
           pre=pos 
           pos=pos+2 
           if pos>5 
              pos=1 
           endif 
         case res=5 
           pre=pos 
           pos=pos-2 
           if pos<1 
              pos=5 
           endif 
      endcase 
      nor='op'+str(pre,1,0) 
      inv='op'+str(pos,1,0) 
      ayu='ay'+str(pos,1,0) 
      set color to &color1 
      @ 22,5 say &ayu 
      @ ver+pre,hor say &nor 
      set color to &color2 
      @ ver+pos,hor say &inv 
   enddo 
   set color to 
   do case 
      case pos=1 
           do rep_ope 
           read 
      case Pos=3 
           do ing_ope 
           read 
      case pos=5 
           exit 
   endcase 
   @ 6,39 clear to 20,75 
enddo 


@ 8,23 clear to 18,36 
return 
 
 
	12: Reporte.

*Genera un reporte para la impresora de las operaciones que han 
*realizado los medicos del hospital. 
 
select B 
 
s='?' 
nomb=space(35) 
select B 
@ 7,46 say 'Nombre del doctor? ' 
@ 9,40 say '' get nomb pict "@!" 
read 
locate for nombre=nomb 
if eof() 
    @ 12,40 say 'Ese doctor no esta en el hospital.' 
else 
    set console off 
    set color to b/+ * 
    @ 13,45 say 'I M P R I M I E N D O .' 
    set color to 

    set printer on 
    ? space(25)+'Reporte de operaciones:'+space(40) 
    ? space(25)+'Actualizada al '+dtoc(date())+space(32) 
    ? space(25)+'Del doctor '+nomb+space(9) 
    ? 'Fecha:    '+'Paciente:'+space(26)+'  Costo:'+space(27) 
    select D 
    GO 1 
    do while .not.eof() 
       if medico=nomb 
             ? 
             ? 
DTOC(fecha)+space(2)+paciente+space(2)+STR(costo,8,0)+space(2)+spa
ce(28) 
       endif 
       skip 
    enddo 
    ? space(30)+'Hospital General PC.'+space(30) 
    ? 
    set printer off 
    set console on 
endif 
 


	13: Nuevas.

*Este programa registrara las diversas operaciones que se 
realizaran 
*en el hospital. 
 
nomb=space(35) 
doc=space(35) 
cos=0 
select A 
 
@ 7,46 say 'Nombre del paciente? ' 
@ 9,40 say '' get nomb pict "@!" 
read 
if nomb='LIMPIEZA'+space(27) 
   delete all 
   pack 
   @ 11,40 say 'La base de datos de operaciones,' 
   @ 13,40 say 'paso a mejor vida.' 
else 
    locate for nombre=nomb 
    if .not.eof() 
         select C 
         locate for paciente=nomb 
         if eof() 
             @15,40 say 'Esa persona no ha sido canalizada.' 
         else 
             doc=medico 
             select D 
             append blank 
             replace fecha with date() 
             replace medico with doc 
             replace paciente with nomb 
             @15,40 say 'Cuanto costo la operacion? ' 
             @17,40 say '' get costo pict "99'999,999" 
             read 
             cos=costo 
             select A 
             locate for nombre=nomb 
             replace gasto with gasto+cos 
         endif 
    else 
          set color to b/+ 
          @ 13,40 say 'Esa persona no esta en el Hospital.' 
          set color to 
    endif 
endif 


	VIII. Estructura de las bases del Hospital General PC. 

                                                                
     +------------------+         +--------------------+        
     Ś                  Ś         Ś                    Ś        
     Ś                  Ś         Ś                    Ś        
     Ś       A:         Ś         Ś        B:          Ś        
     Ś                  Ś         Ś                    Ś        
     Ś    Pacientes.    Ś----+ +--Ś     Médicos.       Ś        
     Ś                  Ś    Ś Ś  Ś                    Ś        
     Ś                  Ś    Ś Ś  Ś                    Ś        
     +------------------+    Ś Ś  +--------------------+        
              Ś              Ś Ś           Ś                    
              Ś              Ś Ś           Ś                    
     +-------------------+   Ś Ś  +--------------------+        
     Ś                   Ś   Ś Ś  Ś                    Ś        
     Ś                   Ś  +++Ś  Ś                    Ś        
     Ś       C:          Ś--+Ś++  Ś        D:          Ś        
     Ś                   Ś   +----Ś                    Ś        
     Ś    Hospital.      Ś        Ś    Operaciones.    Ś        
     Ś                   Ś        Ś                    Ś        
     Ś                   Ś        Ś                    Ś        
     +-------------------+        +--------------------+        
                                                                
 
     Field Name  Type     Width  Dec 
 
  1  NOMBRE      Character   35 
  2  ENFERMEDAD  Character   35 
  3  GASTO       Numeric      8    0 
  4  HISTORIAL   Memo        10 
  5  FECHA_ING   Date         8 
  6  EDAD        Numeric      2    0 
  7  SEXO        Logical      1 
  8  CUARTO      Numeric      2    0 
 
INDEX ON CUARTO TO PAC_PAC 
 
MODIFY STRUCTUREPACIENTE 
 


     Field Name  Type     Width  Dec 
 
  1  NOMBRE      Character   35 
  2  ESPECIAL    Character   35 
  3  SUELDO      Numeric      8    0 
  4  TELEFONO    Numeric      7    0 
  5  INGRESO     Date         8 
  6  ULTIMO      Date         8 
 

INDEX ON NOMBRE TO MED_MED 
 
MODIFY STRUCTUREMEDICOS 
 
 
     Field Name  Type     Width  Dec 
 
  1  FECHA       Date         8 
  2  MEDICO      Character   35 
  3  PACIENTE    Character   35 
  4  COSTO       Numeric      8    0 
 
MODIFY STRUCTUREOPERACIO 
 
 
     Field Name  Type     Width  Dec 
 
  1  CUARTO      Numeric      2    0 
  2  PACIENTE    Character   35 
  3  MEDICO      Character   35 
  4  OCUPADO     Logical      1 
 
INDEX ON MEDICO TO HOS_MED 
 
MODIFY STRUCTUREHOSPITAL

*                   Hospital General PC. 

*                   Desarrollado por: 

*                   Jorge Martinez y Victor Iniestra. 


*                   Copyright MCMXC. 
 
 

 
 
Manual HGPc
-----------------------------------------------------------------

Manual HGPc
-----------------------------------------------------------------
Source: geocities.com/v.iniestra/apuntes/prepa

( geocities.com/v.iniestra/apuntes) ( geocities.com/v.iniestra)