TECNOLOGÍA EN INFORMÁTICA TRABAJO PRACTICO DE...
Transcript of TECNOLOGÍA EN INFORMÁTICA TRABAJO PRACTICO DE...
Pontitieia Universidad Católica del EcuadorSEDE AMBATO
TECNOLOGÍA EN INFORMÁTICA
TRABAJO PRACTICODE GRADO
TEMA:Sistema Multiusuario de Control Médico
ASESORA:
DIRECTOR:
AUTOR ••
AMBATO ECUADOR
AGRADECIMIENTO
El presente trabajo va ti' 'ii a núCREADOR, ya que gracias a su Divina Voluntad es cosible obtener!a meta que hoy estamos finaliza'
Además un mensaje de gratitud a nuestros distinguidos y estimados maestros, que con nobleza y entusiasmo vertieron en núestras almas, todos sus conocimientos v experiencias sin reservas niegoísmo
De manera especial expresamos nuestro agradecinfigo. Patricio Erazo, q . y deseos ríe aha sido posible realizar f
También al Sr. figo. Víctor Chuncha y ílga. Natasha Bayas,quienes han sido los pilares fundamentales para la culminpresentación y defensa del mismo
sin su apoyo moral yi del Trabajo teórico F
\s Padres
Que con su ternura y abnegación nos impulsaron
a entregar toda nuestro capacidad y supieron
sembrar en nosotros el anhelo de superación,
logrando de esta manera alctínzar el objetivo
tan deseado, que es el de culminar nuestra
carrero
\o hijo Sebastian
Fuente de paz, alegría y
esperanzo, en reciprosidada la infinita felicidad que
nos brindo
SILVIAJAVIER
INTRODUCCIÓN
El mundo efe -Za informática, día a día va involucrando
a todo£f los prof&sional&s &n todas la.& ér&as, así. t&n&moa
por ejemplo gue los lid&r&& &mpt-esaríal&& poseen sistemas
/ 'inane iero¿3, lo& cont&dor&B sistemsiB contato lea,
ingenieros y arguit&ctos, programas cíe diseño f entre
muchos otros. ¿feBíost rendónos d& &Bta m&n&ra el enorme
progrs&o gu<? ha. logrado la. ei&ncia y la. tecnología
gracias a 2a intervención de la. computación,
obligándonos d& &&ta ma.ner-& a t'amiliair±z&rno& c-on
Por- &st& razón nuestra 3.&pir&aión ha sido r-ealiz&r
un si&t&ma que efe alguna man&ra simplífigu& y ±~aoilit& &1
trabajo aoúniníatratívo jpara &1 ARSA MEDICA, &st&
im£*ortant& &&otor de nu&stra. soai&dstd maneja volúm&n&s de
infarffi£n?ión muy Amplios, si consid&r&mos que un solo
profesional d<& &st& ár&a puede m&nt&n&r varios
consultorios y dentro de c&da. uno de estos un sinnúmero
de> paci&nt&s, muchos profesionales oi&ntien&n sus archivos
de p&oi&nte& en forma m&nu&l, lo cual dificulta controlar-
la información de los pacientes,
Es a.&í como la eaipresa. G&ÜOM CÍA. Ltda. ubicada en
23 ciudad d& Quito, tuvo j-a ¡gra.n iniciativa d& realizar
una m&tiGulo&& investigación m&distnt& &ncu&sta.& & varios
médicos.
Una
necesidad •que tiene de desarrollarse un Sistema Médico;
para asJi poder automatizar toda Ja información respecto a
Ja.3 enfermedades <que patie*. t?atía pac-j&nte y ¿tsj autor-í&aj*
un afectivo tratamiento*, tíe &&t~a jB*£t»*/-a, nu&atro objetivo
füt?/-a /•eaJj^ajT" i//ia sj&ftfana AJI/É? cte alguna manara facilite
el trabajo tíeJ /itnwíwe j t7x?Ja¿>o/m<? otv? *?J a
Aqu&llo hemos podido lograrlo gracias a JOÍF avances
tecnológicos y científicos *?</<? <?/í materia de soft*fai*& y
Hardware se tiene hoy en dJa disponibles &n &1 joercado d&
la computación,
JUSTIFICACIÓN
Asi en oase a estas necesidades nacerá MSDIOQ
Sistema *?ue sera diseñado para sat'-istacer- /as necesidades
#etua/es de información de/ área médica, el c-usil f>ar szi
eajseo ±dad de t'unc- i onsunz e-n t o tañí o monoufua río eomo
jnuitzusu-arzcv e£í de&ir- t/u«? pcfofrá" ser utilizado yst sea en
un solo c-omffvft&dcfv f &&mc* en varí-as mác/uinas
éneamente jr^ra así atsencter ^os requerimientos de un
r-ic» coa*:* e i * e todo un ho£ff>it&J. * y de esta manera
ia generación «Je consultorios estara /imitada únicamente
.por ¿a cajrsacío!a¿y efe./ disc-o rígido de su computador,- jr.«r
/a faci/zdad de su mane,?o, no se requerirá mas tywe un
mínimo de conocimiento de manejo de computadores
persona/es-
ANÁLISIS
PREVIO
ANÁLISIS PREVIO
1.1. PLANIFICACIÓN
La planifican? fon «í«? ti&opo& y ao-tlvldadest
n u ti libando un dlagraMta ¿fe GANTT.
PROGRAMACIN SK BARRAS ZSF GANTT
El cr&nogpauta «&? acttlvádad&st && lo> ha til vi ti lelo «/i
erada una
la sil gil i en te
Las etapas a&n;
1. ---- .•> Jtecopllac-ió/i d& la
Informad ón .
Etapa. 2. ---- > Análisis de la
información.
Etapa 3. ---- > Diseño del sistema.
- Dema
- Encuestas
DESCRIPCIÓN
GANTT
Ti&mpos
Jimia
oí
JULIO
3
1.2 ACTIVimEES Y ESTRUCTURA SK LA SHPKBSA
La «aoprAfi» &aj*a _?a c-ual d&sarjrol lajéenos el sistema
1 leva pos* jtcuob¡r& CSCOH CÍA, LISA, y s& Aivet/e/itra
hubJ cada en J a c-1 udad t1& Qtií to „ en 1 ajs t a 1 1 es
Man tufar y Jl&owe.raJa.s
Eata
&oftf#aj*ef a Ja G
Jos juisaos.
estudio y íiestsf^^oJJo tie
&ac-íón y a&e&arami&Mta tfe
i. 3. RECOPILACIN DE LA INFORHACION.
La recopilación cte la información se 1& obtuvo
mediante conversaciones con varios médicos de la
ciudad de Quito.
Entre la
J Jaj* aaayor y ten&r un
control de 1&& fichas medicas,. doc-uuemto de suma
importancia dentro de un consultorio médico.
- Poder obteM&r con mayor rapidez;
relacionada coa <?J ainnÜBero d& pa
visitan diar-iaM&nt& un consultorio médico.
- La nec&si dad d& atan t&fjiffr un &rch¿ vo de
at&di c-aft&n tos.
- L>a n&c&sidad de juan tañer un archivo d&
- La necesidad de mantener un archivo de pacientes.
ANÁLISIS JJK LA
acuerdo a toda Ja iaformación que &e logró
de Jas G€*nver&ac'Jon&& -que se mantuvieron
con distintos méüUco&z £t& logró desarrollar itfí
bo&quajo <? li&tado de los ficfoej'ws y c&fftpcts
con&ider&r&n serian los otas importantes y
formarJian piarte del nuevo si¿eterna.
JStotr* esto¿3 teaemoís los siguientes:
FICHERO Historia Clínica.
- DESCRIPCIÓN DE CAMPOS:
-CAMPO- TIFCf- -LQNGITVD-
código
no&br&ot
fecha
sexo
estado civil
Jugar fie nacimiento
fecha nacimiento
edad
peso
tipo de ¿sangre
alfabético
cíate
alfabético
fíate
10
SO
G
1
1
30
a
estatura
itfsttrucci ófj
ocupacJda
dirección
te2éfono
so,,a
traigo
te J éfono trat> ,
sotia
seguro
ti^ «te eieuro
aseguraffora
referencia
carácter
carácter
carácter
carácter
carácter
carácter
carácter
carácter
carácter
carácter
carácter
carácter
carácter
í?
15
2O
ao
7
1O
3O
7
1O
1
15
3C.t
SO
FICHERO : Heáicamentoa
- DESCRIPCIÓN DE CAMPOS:
-GÍMPO- -TJPO- -LONGITUD
1O
3O
HCHKRO
- DESCRIPCIÓN DE CAHPttS:
-CAMFC)- -TJPCf- -LCWG1TUI.»-
código cmra'c-t&j* 1O
naufar&st alfabético SO
1.5 DI SEBO DEL SISTEMA
1.5.1. DEMO
v&r&Ján l.OO
Copyright fe) 1.994
C E C O H C. L T I» A.
Facha d& hoy: 18/12/94
Clave d&l usuario:
Una ves qu&Ud. a digitado su clavede acceso encontrara
d&trabajo d&l slst&aia &n donde ob&&r'varaJos claco
COMO ¿so/i.' A
otj. Varios-
Médlco ver 1.OO
Actualizar 13/12/94
Actualizar Guantas tfovl0tlento& Jafomea Varlost
S&leccionar \ = Sali
MODULO ACTUALIZAR
Estte aíódulo le permite actitaJJ&ar los datos t^oounes 3 todos los
cónsul torios.
ESCQGEX COtiSULTOKÍO.-
ver- l.C»O
Ai? tustJ l&at* C&tSULTQRIQ JíEMt? 18/12/94
Cuantas Movímí&ntoai Inform&se Varios
Cónsul toriosControl tie UsuariosConfi gurad ónMedí canten tosSin toma tol&gia
c tori o
— > | | - Mover \ - Sal&cc-ionar \ - Salir
consultorio. -
1,OO
Ac-tuallsttJ* csoüsuiyofao jmno 18/13/94
Incluir Modificar Elimina** R&vist&r Buocar Terminar
SELECCIÓN xae-
CZLJNIGA
Esta opc-Ján tl&l at&nú
consulto fio con &1
CONSULTORIOS. -
táietQ v&r- 1 - OO
A c-tu&J J sar- aoHsauraao ta*> 8/12S&4
Cu&nt-ast MairAmiewtxt& Informas
Confd ffur&cJ ónM&tÍJ t?£UV&tt tO&
Sin toma tol ogi&Etif&rw&tlafteaXtírec-tor-Jo
Consultor-ios - -
Médico ver l.OO
Actual Isar CONSULTORIO HEMO 18/12/94
Incluir Modificar Eliminar Jtevísar Buscar Terminar
Nombre del Consultorio: Consultorio iJiemo I ti: OíUbicación de los datos: \ffBR\SMPRE.OODirección: Cludad&la hospitalaria 2345-3434Teléfonos: 13345&789O12345-12345&789O12345Dirección postal: Apartado 12-23-43534Fax: 12345&78&&13345
del E&cttor: Carlos Eduardo C&vallosc Carvajal: Cirujano plástlcto facial
fíomlc-lllaria: Clutiad&la hospitalaria 2345-3434s: 12345&78£>O12345-12345&7£l9C.tl2345
postal: Apartado 12-23-43534Fax: 12345&789&12345Jtef&rttnc-Ja: facial
- Salir
Esta opc-iótí le peralte orear modificar &llmljtar» busc-ar»
r tiar jnantenlMlento a los consultorios* note que eada
consultorio tiene un Médico a cargo.
Cenando Ud, Ejecuta la opción eliminar en este editor el
alsteMa le preguntara sí desea transferir las Historias cJJialcas
a otro consultorio,. £tJ £tu respuesta es afirmativa le presentar un
consultor de consultorios para que escoja a cual de ellos jnlgrará
los pacientes, en caso de que su respuesta sea negativa el
sistema comprimirá la Información y la almacenara coato
CONTROL DE USUARIOS. -
Medie** l.OO
Actualizar CXWSÜLTOR1O IWMO 1&S12/94
Aetuali&ar Cuen ta& ffoviml en tos Infórmese Vari os Terminar
«Controlc-J óntojsr
Sin toma toJ ogi ar»t&ciat1c? torio
:T> = SaJir |
w> oo
mi
ap foa g. 1*03
CONFIGURACIÓN. -
v&r l.OO
Actualizar CQNSULKOao JQSMO 18/12fs&4
Ctten tas Ho vi MÍ en to& Vari os
Cónsul tociosControl tfe Usuarios
aMfffi tosí
c- torio
| — — | | - Atovw | <Bnt&j*¿ = Seleccionar \
Configuración
l.OO
Actualizar CONSULTORIO JlEMf? 1 8S1 2/94
Incluir Modificar Eliminar Revisar Buscar Seleccionar Tenoinar
Escoger consultorioCónsul toriosControl de UsuariosConfiguraciónMedí cajtfen tosSin toma tol ogl a
Directorio
Moni tor:
|— — | | - Mov&r \ - Seleccionar ] >¿Esc> - Salir \ opción le permite describir Ja cftuifJ&uracJán ti& su
computador en cuanto && refiere a atonitor e impresora, si Iki, no
i*ecu&n1a exactamente la configuración de su equipo presione la
tecla F4 y el sistema le mostrara una lista de configuraciones
para que Ihl, escoja.
MEDICAMENTQS. -
Médico 3..QÜ
Aotu&li&ar COÜSOUFOK10 E95MO 18/13/&4
Cuetntaat fíoifj(joi&nto&
Cónsulfc<Control de UsuariosGonflgurac-*
(Sí/i frttKi to 2 agj. a
\ tfover
M&dicament00
ver l.OO
Aottt£i21&£tr C&NSULKfffIO Jt&M? 13S12S94
Jnc-2ulr Modificar B2¿Minar Revistar Bu&c-ar S&2&ca-lonar
Código ti&l
1. P&tií c-J J Ina t G&né^i c-oNombre co
Eatta ostión le permite g&n&rar un& 2i&ta de 2os
en 2a c-ua2 ¿Ai- puede 1¿* Jerar&ul&ajntlo CTO/Í eJ &aráert&r (.
en ouenta que 2 os n¿v&2est mayores debe**¿in seer 2 os g»/ier¿coa d&
Ac-tiutli&ar
v»r l.OO
Actual i sar CONSULTORIO &SMO1
J f í XJ^'XQ^-£*_*,(* -í 4i«/* £?TJ
fío vial &n tosí Infantes Ka/
Cónsul toriosCaá tro! deCaafiffurac-i otiMe»}.1 o&atea tosí
<'SÍfi toma tol agd &
Sintomata logia
l.OO
Actual Isa j* CONSULTORIO fíEMO 1S/12/94
Incluir Modificar Eliminar Revisar Buscar Seleccionar
CódigoS1NTQHATOLÜG1A
d&2 Sintonía
cabe&a.>£.! Fi&brt*
-> = Salir \ p&rmltJré fffffj&traj* todos 1&& síntomas
aff an ua diagnó&ticw,. asi cono también los
con sus **&sultados &n esta opción Ikf. también
todos Jos síntomas.
ENFERMEDADES.-
A Í.T 1 ual i sar CONSULTORIO ZIEWD 2&/12/94
Actuali&ar Guantas Movimientos Infara»e*st Varioa
Cónsul toriosControl ¿te Uatuar-ioatConfi gitra&i ón
Sin t&uua tol a&i ¿tno&t1&i1c- torio
>3Bnt&r> - Setlewionar \ = Salir \a
con
- puente tl&ttl&rar todas
T en
- o
En ferm&dades
Médico ver- l.OO
Actualizar OÜNSMLTORJO DEMQ 1SS12/94
Incluir Modificar Eliminar JRerl&ar Buscar Seleccionar
Código: 1-4. £3.223 Nombre: Vesícula Inflamada por célenlos
SÍNTOMACódlgo\
2, 3, 46. 78. 3
TÜLÜ&1ANombj^e del Síntoma
fíolor de Cabe&aItolor abdominalEx&m&n de sangx^e
IWSCRIFCiaNCodlg&\ del Medicamento
1 - Penicilina (Genérico í7, Otro genérico
| | - Mov»r | <Enter* - Seleccionar \ Salir \ opción Enf&rtti&d&dea permite reglartra todas
enfermedades -30*? jsee pueden presentar» con los &Jtntoota& que esta
presenta aa.i como también Ja prescripción y tratamiento a seguir.
Ac-tuall&ar-
Médico var l.OO
asno 18/12/94
Incluir- Modificar- Eliminar Rabiatar- Buscar- Seleccionar Terminar-
Código: 1*4. 23~ 223 Nombra: Vaaieula Inflaaiada por célenlos
SINTtMATOLCXSlACÓdi&& | Nombra del Sintoota
1*£.34 fí&2or- t1& Caba&a2. 3. 4 Etolor ahdcwtinal8, 78- 3 Exjxot&n ti& £tang**&
Código \ d&l Medicamentot
1- Pan. leí 11 na (Genér-lco)7. Otro genérico
-> = Sela&cionar \ = S&lir \l t&msinar t1& in&r&etar- &1 crótfigo y oombra ti& Ja &
¿tJ ra&uadrct <SINTQMATOLQGJA> e» donda estahl&
los &JtntcHtta& antes iMgra&adoar 1&& sintomas con 2c*&
anfarmadad.
ve/* l.OO
Actualizar 18/12/94
Incluir Modificar Eliminar R&visar Buatctai*
Código; r Ve&icrula Inflaotada po/- &á2<?
*.1&2 SJ/ttoma Código | Jfcwfere
1,2.34 Dolor de>2.3.4 IMor abdominal6,78.3
1.7.
Pe/ij í?j" J i/ia í" G&néri cOtro
\> - Salir ¡
Enfermedades
Médico v&r l.OO
Actualizar CONSULTORIO UB3MQ 18/12/94
Incluir Modificar Eliminar R&visar Buscar Seleccionar Terminar
I Código: 1-4.23.323 Nombre; Vesícula Inflamada por cálculos
Código \ del SintomaPRESCRIPCIÓN
Código \ del Medicamento
1.2.34 Dolor de Cabeza2~3~4 Dolor abdominal*.6. 78-3 Examen de stangre
1.7,
Porcentaje de aport. : 1O
Penicilina (Genérico)Otro genérico
| - Mowr | <J£nter> = Seleccionar j <£&£•."> = Salir
Una ve& <?i/*? terminó de ingresar los sintojuas pasaré al
recuadro <PRBSCKlPClCfft.->. En e&te recuadro tkt. Indica al ¿
cual e& la Pr&B&rJpclón o medicamentos recetados para esta
En t'&rmedad&s
Médico ver LOO
A&tuall&ar CONSULTORIO DtSHO 18/12/94
Incluir ttcNÜficaJ* El ¿juinaj* Jfaírj&eu* Bu&ctur Scflacc-lonar
Código: 1.4,23,333 Noofar»: V&sioula Inflamada
SINTOMATQÍOGIACódigo | ffcnobr-e d&l Síntoma.
< PRESCRIPCIÓN >Código \ del Medicamento
1.2,342. 3. 46. 78~ 3
Dolor de CabezaDolor AbdominalExamen de
*1.7,
Penicilina. (Genérico)Otro genérico
i i = Salir
Una ves ingresado todos estos datos eJ sistema mostnan una
pantalla de edición en Ja cual f&f- pttede d&taJlar- &1 trataatlento
a seguíj* pana &£tta e
Médico ven l.OQ
A&tuali&ar CXWSULmRlO DEMÜ 18/12/94
Incluln /fc>cíjffletan Eliminar Jtevlsan ffu&c-an Seleccflcutan
z 1 4.23.223 - Ve&Jtc-ula Inflamada pon oá
SINCódigo No
2. 3. 4&. 78.3
Tnatamlento de Ja enfema&dad listopana asocian a una t^onstul ta esto 'puede teñen hasta 12 paginas adoble espaoio.
Nel Medicamento
na f&eaénlca)otno
I | - ífov&n | <Eaten.> = Seleccionan > = Salín |
DIRECTORIO. -
Hedí oo ver l.OO
Actualizar GGNSULHJRIQ Ztffltf 18/12/94
A&tuall&ar Cuentas Movimientos Informes Varios Terminar
Cónsul toriosControl ti& UsuariosConfl guracl ónfíedl camen tosSin toma tol ogl a
¿Dlrec torl o
> - Salir
Directorio
Médico ver l.OO
Actualizar CffNSULT&RlO JREMP 18/12/94
Incluir Modificar Eliminar JtevJsar Buscar- Seleccionar Tctminar
Código: 1.4,23.223 Nombre: l»r. Jacoate Aj*ellan& Fernando
Dirección Domiciliaria- Cindadela hospitalaria
T&2 éfonoa : 1
Fax: Í2345
cc-ióji postal: Ap&rtado
a: Facial
* \ = Salir
opción 1& permite mantener un directorio para todos
consultorios asi' como Médicos^ Laboratorios,, visitadores médicosf
Ete.
MODULO CUENTAS
Esta opc-íón noa p&rwlte a&tu&ll&aj* Joasr datos de Jos
&T. Stc.
1,OO
Cuentas CGNSUVKOaQ X&fO 18/13/94
&a&> = Salir-
Cerno poílejaos a&redar Ja pan tal Ja tfe etHdón tle pac-lent&a
di vi til tía t»» tr&& feJchgu&j? £?«? cte£0£r para poder aprec-la
En &a&o t1& e a ,
Pacientesv»r 2-QQ
Cu&ntaat CONSULTORIO J?EMt> J8/1ZS&4
In&Julr ftodjfi&ar £1 ¿atinar Bu¿SK?ar
Código; 1.34,45 fr Fran&la&o Femado Mañosa2 va& G.
: 18/12/93Estatlo Civil: Casado
Fecha: 15/O7S64F&so: OTO, 30 Xg.
Estatura: 17S.3O c*t-?i?l án : Sup&rJ or
&xo:¡Migar J3¿tt?lM : Guaya <zul 1 -Bc-uador
Edad; 39Tipo tfe sangre: OKH+
Qc-u&ac-lóa ; Ing, f tronico
cc-l óna: Amazonas
Teléf; 334-458£3 y fioc-a
Zona: NorteTrabajo: Air. &1 Jnc-a 234 y 1O tle Agosto
Teléf: S&7-345 Zona: Norte
En c-a&o t1& Vrg&ncla avisar a:Nombra: Mirlan Eat&la Salas&r Teléf:
Kef&r: Kapooa
s&guro: Z*t? vidaJtefer:
: S TipoAseguradora : S&gff equinoccial
/»> - S&Jecc-lonar \ = Salir
Al editar los dat&ff Ihi, notara qu& &e forman las v&ntanaa
de edición el código y nombra del paciente,. Juago £tpaí*&&&íiá la
ventana tie &dJelón tie la ficha t?JJ"/íJ¿ra en la cual U*i~ detallará
todos* los
l.OO
Cuentas CONSULTORIO /ÍSWE> 18/12/94
Incluir Modifioar Eliíainar Buscar Seleccionar Tenolnar
I Código; 1,34,45 Nombre: Francisco Fumado Mañosa 1 vas G.
3 CO
FAMILIARES. -
j | = Mover | <Ent&i*> - Seleccionar \ = Salir
MODULO MOVIMIENTOS
Este aiódulo nos pejwite r&gi&tna los movimientos diarios del
consultorio chorno son Consultas y &
CONSULTAS. -
1. OO
fío vi mi en tos OCWSULT&RIO /SEMt? 18/12/94
Cu&nt&s Movimientos Infam&a Varios Terminar
<Consul t&s >Di agnosti ero
| | - fío ver | <&to£e.rL> - Seleccionan j <Seee> = Salir
Cónsul tai
Médico ver l.OO
fío vJaJ en tos CONSULTORIO DEM& 18/1S/&4
Incluir Modificar Eliminar Revistar- Buscar Seleccionar- Terminar-
Código:Fecha:
Motivo:
Código \
23. 4SSG
PróximaImprime
1,4-23-223 Paciente: Jacome Are22ano Fernando29/12/9 Nüm&ro: C&-O&OQ3455 Asociar: NCon tinuaclón d&l tna tatni en to v&&jcu2a
SNFERMEIMI'MMdiun? de la enferm.
Cálculos en la Ve&ic-Hepatitis
PRESCRIPCIÓNCódigo \ del medí tramen to
l-3f 4 tioffibre del tf&dioajn&nto!.>£,&,& No/obre d&l Medicamento
Gan&ulta: 15/01/93 Hora: 15:30 Referencia: Notase[SJ &
— I I - tfover- \ = Seleccionar \ = Salir \ permite registrar los movimientos de last consultas
diarias que ¿*eali&a el Gonsultorio.
Asi de esta manera el scist&asa nos pedirá que Ingresemos el
código del Paciente si este no esta registrado* le presentara un
consultor d& Pacientes para que seleccione en Ízase a esta lista
dada.
Cónsul t&i
ver l.OO
CX89SUI/FQRIO 13SMO 18/12/94
fiodJfic&j* Eliminar Jfavl&ar ¿tascar Selecti-lonar
/"Viirífaíirl - 1 ¿f ^TÍ •?'**?t.-C't* J ££4- ~ J » -rs , rf*i.', jj.ii* •«.-•
.P'etrAa-- ^»XÍ5XHS'/fc> t J vio r £iw tlnuac-1 ¿>/J
I>ac-J&nt&: Jac&ue Ar&Jl&tjaAsociar;
tjrataotittnto v&aicula
ENFERMEDADGódi.go\ de la. enfermedad
PRESCRIPCIÓNff&mbr-Gf del medicamento
1.2.4 Cálculos en 1& Vesícula.23~ 45 ffep&t±t±B
1.3.4 Nombre del Medicamento1.4.5 Nombre del Medicamento
Próxima Consulta: 15/O1/93Re ferenc i a.- No tst&
Hora: 15:3QImprime - [SJ
j j = Mover- j <5hter> - Selecoionar j <Esc> - Salir \ ves que hemos lleg&da a este punto pasamos a.1 r&cu&dro
<ENFERMEDAD> en el cual declaramos la(s) enfermedad(es) a ser
tratadas, el sistema no permitirá códigos duplicados.
Consultas
Hedíoo ver l.OO
fío vioti en toa CQNSÜLTOKJO JHEMP 28S12/94
Incluir Modificar Eliminar Revistar Buscar Seleccionar Terminar
Código; 1,4-33.223 Paciente: Jacome Arel laño FemandoFecna; 29/12/92 Número: CO-OOOO3455 Asociar: NHo ti vo : Continuación del tra tamietnto vestioula
Código: 1.4,23.223 Paeiente: Jactóme Aj*elJano FemandoFeoha: 29/12/92 Jfttoero; €£.*-O{J*W34S5 Astooiar; N
fio ti vo : Con tinuaoión del tra taaii en to vesícula
<S39fERHEXtoD>Código | Atattiw ¿te la enfetwedad
> 1.2. 45 Cálculos en Vesícula <23.4556 Hepatitis
PRBSORJFC1ONCódigo | Noabí*e del aiedioajnento
1.3.4 Nombre del Medl&ajoento1.4.5 Nombre del Medi oatoen to
Próxima Consulta: 15/O1/93 Hora: 15:3ORefesretncia: Notas Imprime: [ S]
| j = Mover | <'Snter> - S&l&ccionar- | <Sac> - Salir \a ves finalizado el proceso de enfermedad el sistema
muestra la prescripción por defecto para que sea el médico el que
seleccione a añada mas medicamentos.
Cónsult&s
Médico ver l.OO
Mo vi mi en tos GONSULTl'ffiO I&MQ 18/12/94
Incluir Modificar Eliminar Revisar Buscar Seleccionar Terminar
Código:Fecha:Motivo:
Código:Fecha:
Motivo:
Códlgo
1 . 2. 4523. 455G
1.4. 23. 223 Pac i en te : Jacome Arel 1 ano29/12/92 Número: CX*-MXW3455
Con tinuaci ón del tra tajoi en to vesJicula
FernandoAsociar: N
1.4.23.223 Paciente: Jacome Arellano Fernando29/12/92 Niüoero: CO-0OOO3455 Asociar: NContinuación del tratamiento vesícula
ENFERMEDAD| Nombre de laenfermedaá
Cálculos en VesiculaHepatitis
Próxima Consulta:Keferencla :
Código | Nombre
1 - 3. 4 Noetbre>1.4.5 Nombre
^" li'J
del
deldel
aedi camen to
tfedi caaten toMedi caoien to <
15/O1/93 Hora: 15;3ONotas loipriote: [ S}
— I I = Mover \ = Seleccionar \ = Salir
Luego pasa Ud. a describir el tratafffi&nto a seguir para
el sistema Je /nuestra un pantalla de edición.
Cónsulta^
lmi en tosa
Médico l.OO
C&NSULFQRJO IXEMO 18/12/94
Incluir Modificar Eliminar Revisar Buscar Seleccionar Terminar
Código;Fecha;
Código \ Paciente; Jacome Arellano Fernando
38/12/9 fiiooero; Ct*-OQOO345>5 Asociar; fíContinuación del tra tamiento vesícula
ENF
1.2.45 Cale23. 45SS Hepa
Próxima
Tratamiento de la enfermedad lis-to para asociar a una consultaesto puede tener hasta 12 pags.
!
PCICWel medicamento
el Hedicaaientoel Medicamento
Consulta; 15/O1/93 Hora; 15; 30 Referencia; Notas
t'«?-í* I <Etot&r-> = Seleccionar \ - Salir |
Ahora Ihi. Actualizara lo& datos d& la historia clínica del
paciente para ello el sisteata el muestra una pantalla de edición.
Consultan
ver l.OO
Ho vlml en to£f CONSULTOR JO /«EWD 18/12S94
Incluir Modificar Eliminar R&vistar Buscar S&l&cxtlonar
: 1.4.23.223 Pa&i&nte: Jactóme Ai*ellano F&r-nandoF&vha: 29/12/92 Niü»et*o: CO-OOOO3455 Aaovlar: N
Hotl vo: Continuación fiel trataial&nto
H1ST&R1A CLÍNICA
Consulta: 15/O1/93la: Notas
Hora: 1S;3O[S]
— — | I ~ f" | <Bnt&r> = Seleccionar \ = Salir
Ahora el sistema 1& permita gue ingresa la facha y hora de
la próxima consulta y una referencia asociada a la consulta.
Cónsul tas
Médico ver l.OQ
fío vi mi en tos CONSULTORIO 1>£MO 18/13/94
Incluir Modificar SUminar Revisar Buscar Seleccionar Terminar
Código: 1.4.33.233 Paciente- J&come Arellano FernandoFecna: 29/12/83 Numero: CO-OOOQ3455 Asociar: N
Motivo: Continuación del tr&taml&nto vesícula
ENFERMEDADCódigo | Nojttbre d& la &nf&rax*dad
1.2.4 Cálculos e/í la V&sicula23. 455 Hepa ti tls
PRESCR1FC1CWCódigo | Nombra d&l m&dicajoento
1.3.4 Nomhr& del ít&dicam&nto1.4. 5 Nombre del Medicaaiento
Próxima Consulta: 1S/O1/93 Hora: 15: SO\ Notas Imprime fSJ
| — — I I - Mover- | <Enter.* - Selecc-lonar- \ ~ Salir
Cónsul tas
Médicrc* ver- l.OO
Mo viml en tosí CONSULTORIO líEMfl 18/22/94
Incluir- Modificar- Eliminar- Revistar- Buscar- Seleccionar- Terminar-
código: 1.4.S3.2SH3 Paciente: Jacome Arel laño FernandoFecha: 29/12/92 Nüffj*r&: CO-OQQO3455 Asociar-; N
Mo ti vo : Con tlnuacl ón del tr-a tami en to v&sstJi citl a
ENFEfíMBItADCódigo | M.TUWÍW-ÉÍ de 2a enfermedad
1,2~35 Cálculos en J¿s Vesícula23, 455 /topa 1 1 ti &
PRESCRIPCIÓNCódlgo\ del at&dlcaoiento
1,3.4 Nombre del Medicamento1.-4 ,5 Nooibre del Medicamento
Próxima Consulta: 15/Q1/93 Hora: 15:3QReferencia: Notas Jotprjjoe fS}
<£tot&r-> - Se \ - Salir-
MODULO DIAGNOSTICO, -
En este aotlulo el sist&ata le ayuda en sus tli agnósticos para
ellos fur&s&ata. varias p&nkallasf <ji/e las ífaoKts Jj* d&oerj&i&ndo una
& una.
ver 1. OO
fío vljtti en tos CONSULTORIO JíEWO 18/12/94
A&tuaJti&ar Cuentas fíe* vi mi en tos Infamena Varias
Cónsul tas<Di agnos t i oo .>
Diagnostico
Médico ver l.OO
MovimJeatoat CONSULTORIO DEHC» 18/12/94
Incluir Modificar Eliminar Revistar Buscar Seleccionar Termina*
Fecha: 29/12/92 Número: BG-OQOQ3455CÓdl&a; 1.4-23-223 Paciente- Jacome Ar&22ano Fernando
SlNTÜMATtitÜGlACódigo | Nombre de2 SJíntcma
2.2,3 Do2or de Gabe&a2.3.4 fíolor abdo&tina26. 78. 3 Examen de sangre
&1 AGNÓSTICOCodigol Nombre de 2a enfentiedad \i i
2.2 CZaJcu2os a 2a vesJtcu2a 707. Apenaicitis 50
> = Sa2ir
Al editar un diagnostica &1 si&te**& le pedirá que ingrese la
fecha* luego le pedirá que ingrese &1 tipo y ntwtero del
Di asnos t i co
Médico ver l.OO
Movimientos CGNSin/raRIQ EEMO 18/12/94
Incluir Modificar Sllminar- Revisar Buscar Seleccionar Terminal
Fecha: 29/13/92 Numero: ÜG-QOOO3455Código: 1.4,23,223 Paciente: Jacoote Arel laño Fernando
S1WKMATÜM&1ACódigo \ del Sin toma
1.2.3 Dolor de Gab&sa2. 3- 4 Dolor abdominal6. 78. 3 Exaoten de sangre
DIAGNOSTICOCodigo\ de la enfermedad \
1,1 Calculosa a la ve&icul* 7 O7. Apendi cri ti a 50
— I I - fíov»r I <Enter* = Seleccionar \ = Salir j
v&& *iue Ud. />a al cansado este punto el sistema pasará al
recuadro S1NTÜMATC.*LC*1A en el cual Iki. detallara los sjntojoas <gu&
tiene el paciente.
Diagnostico
dido ver .1. OO
Inc-lulr-
Fecha:Código"
<$JCódigo \
>3. 3. -46. 78. 3
fítos CONSULTORIO ZfSMC*
Modificar Eliminar Kevl&ar Buscar Sele-
39/12/93 Numero: HG-QOOO3455
18/13/94
cc-1 onar Temti nai
1.4.23.223 Paciente: Jacome Ar&llano< Fernando
NTGMATOWG1A>NoaJbí*e del Síntoma
Zfc>Jt>j* tte Cab&&&E&lor abdominal <Examen de Bangre
DIAGNOSTICOCÓdigo\ de la enfermedad \
1,1 £¿¿slc-uJo0 a 2a vealc-ula 7O7, Apenaicitis SO
\ = Selecc-lonar \ r*&aa. a¿ recuáetír-o PRESCRIPCIÓN cuando &&t& ¿no2uy&nd&
sistema, procesará los síntomas y le dará una lista de las
probabilidades de ENFERMEDAD.
Diagnostico
Médico vwr 1 - OO
Movimientos CONSULTORIO ZffiftA? 18/12/94
Incluir Modific-ai* Eliminar JUevlsxaj* Bu&c^ar S&lecc-lanai* Terminal
Código: 1,4,23.223 Pacienta: Jacxuoe Ar&llaj3o Fernando
C&tligo | Jffcunhre del Sintooia
1.2.3 ItoJor ífc? Cabff&&2.3.4 Itolor abdominal6. 78. 3 Examen d& &¿tngi*&
<l»I AGNÓSTICO.^
1.1 Calculas a la ve&i&ula 70
\ = Mor&f* | <E>»tíí/*.> = 5tíJ<?t.?t.Tlona** | <S^rc?> - Salir
Diagnostico
Médico v&r l.OO
fio vi mi en tos C&NSULTGKI& DEM? 18/12/94
Incluir Modificar Eliminar Kevlaar Buscar Seleccionar Terminal
fecha- 39/13/83 N otero: DG-OQQQ3455Código: 1.4.33.333 Pac entes Jacome Arel laño Fernando
SINTQMAT&LCHG1ACódigo \ tfe7 Síntoma
3. 3- 4 Valor abdominal&. 78.3 Examen de sangre
MAGNOSTIOCtcÓ£ÍJS'o\ fie J¿» le-fifeívuetiéitil $* i
3-1 Cálculos a Ja vesícula 707. Apendlcl tls 5>O
| — — j j - nov&r | <Ent&r> = Seleccionar \ = Salir
1.5.2 ENCUESTAS
ENCUESTA HEDÍ COS
NOMBRE DEL MEDICO: Di-, Javcna* Avellano
ESPECIALIDAD: /fe^Jojwa General
DIRECCIÓN: Cala. El Jtec-r&o
TELEFtWOS: 513-SSS
FAX:
FOSEE W. *W CXfáFUTAffiR?: SI fXJ M7 f J
EXPLICACIÓN IWL SISTEMA:
&LW LE PAi&CGB EL SISTEMA: BUEJiC* [X] MAUt [ J REGULAR [ J
APARTE DE LO QUE HA VISTO QUE ES L& &?£ REQUERIRÍA
Que peiwíta IJ&vaj* un control fínac-loro &n IT&&& a
s consultas íji/e ¿ce r&&l¿&an ífíaj*j ¿tasen te
control ¿fe? créditos r ya <gu& jau&ha¿5e t1& Ja¿í
md&ntr&st dure &1
DE LO PRESENTÁIS EXISTE ALG&» &MB LE QUITARÍA VI*.
ACTUALMENTE COMO LLfflfA W*. 5?; OTWTO:>£ DE PACIENTES?
2o
mos F&i)}utwt&nt<? conocido como ficha o hlst&rla
y G-oatJ&tte Jos j^su! t&tloss t1& a&aJ-i&lsst y
«jwe se Je h&ya dado aJ pacíante.
Y toda &sta Inf&twaclóti £W? 2a ^i/a-rtía en
aj*ch i
PARA UD- QUE ES LO MAS IMPORTANTE IXENTRO DEL CÜNTR£.*L DE
PACIENTES?
mi Jo mas importante &n el oontrol de los _ . . .
* un a jvr j ro t& enei^ot&tatles y
el trat&ul&nta &ue se le ha sscignaelo a tli&ho
pací en te.
COMO LLEVA ACTUALMENTE SU CONTROL DE CONSULTAS?:
Actualmente* no llevo ningún control efe consultas. .
se le ha recetada a un determinada paciente
CONOCE DE ALGÚN SISTEMA DE CONTROL DS PACIENTES:
SI C J NO C X ]
- EL SISTEMA ES &11S39® f J MAW { J RE&ULAJÍ f 1
- CUAL ES Su NOMBRE?
- RECWERIíA Ul*. A SSLJ &JSTRIRUBOR?
- QUE FRBG1Q TIENE EL SISTEMA
TIENE ALGW C£#fENTARIO &ENERAL?:
El síst&ata es bastante buefao* aunqu& pdettao
* un eo/jrj"t>j de &&&t&st* j.ngt^estC'Si y ., .
tle
ENCRESTA MEMCOS
NOMBRE DEL MER1CO; /ír. Fraac-J&cm Manosea li
ESPECIALIItAfí: C
DJKBCCJOti; Av. Ama&on&nasi 123 y
TELEFONOS:
FAX;
POSEE Ufí. ÍW OCMPVTAI1OR?: SI fJÍ} NCí [ J
EXPLICACIÓN DEL SISTEMA;
QUE LE PARBCCE EL SISTEMA: BUSN0 fXJ HALO [ J REGULAR [ ]
APARTE l»E LO QUE HA VISTO QUE ES Lü Ql?E REQUERIRÍA?
El sistema tiene un tw&i» flujo tle A/i formación r
una opción en Ja
se pueda obtener Ja imprcuation tle Jet hi&toria
DE LO PRESENTA!*» EXISTE ALGO,. QUE LE QUITARÍA UD. ?
Pd&n&o <?«/<? no <&s muy ¿aportante *?
ACTUALMENTE CQHO LLEVA IW. SV OCtNTRCtL I.»E PACIENTES?
E2 contra! «te &acj&jst&& Jo ll&va ja&tfl£iijt&
<jwi? Jt?£B r&all&a e/? wü -tí pej*f&í?ti <j«e» Juaga
st* y && 2o& **&a2i&a &n cada c
PARA UD. QUE ES tO MAS JMP&KTANTE RENTRC* DEL CONTROL GE
PACIENTES?
Lo
un archivo en el c
se tiene la& &JMt&ttKi£!> y leus atetlAcamen tase que 2e&.
OOHO LLEVA ACniALMfflTB SU CONTROL RE CtWSULTAS?
E2 &&nt-j*&2 2o
en eJ ewaJ t1& atTi/e^-t*o a cadEa canstuJ ta
Ja
caaeHf.2fcar.fa
CONOGK I.HE AUSMN SISTEMA m GQNTXOL DE PACIENTES-
SI f } N& [ X 1
- EL SISTEMA ES BUENO f J MALO [ J REGULAR f 3
- CUAL ES SV NCJTSRRE?
ÍBX A SV MSTRJBUlfflR? .
PRECIO TIENE EL SISTEMA
TJENE ALGtM CZWSNTARJO GENERAL?:
E2
un &atitr&l tíe gastos,. Jj3gn»ao& y . . .
& tle Jos
1.9.3 DETERMINACIÓN DE OBJETIVOS
— Elavorar un sistema fácil de manejarlo, de
tal manera que el personal que tenga a su
cargo el manejo del sistema, requiera un
mínimo de conocimientos en computación.
- Per mi tir el trabajo rápido y simultáneo de
modo que facilite el control de las
historias clínicas dentro de un hospital
como de un cónsul torio.
— Obtener información eficiente, efectiva y
oportuna, con resultados rápidos y
precisos para la toma de decisiones.
1.5.4 ESTUDIO DE LOS RECURSOS
1.5.4.1 PERSONAL
El presente proyecto se encuentra a cargo
de Velasteguí Silvia y Pérer Javier,
actualmente egresados de Tecnología en
Informática de la Pontificia Universidad
Católica del Ecuador con Sede en Amba to.
Contamos con la dirección del Tlgo.
Chuncha Victor y la asesoría de la Tlga.
Natasha Bayas. Además la empresa Cecom
Cia.Ltda. nos brinda su asesoramiento en
cuanto al desarrollo del sistema en
el i pper.
1.5.4.2 MEDIOS MATERIALES
Disponemos de un computador TWC 306 con
las siguientes carácter*sti casr
- Disco Duro de SO MB.
— 33 MHz de velocidad.
— Drive de 3 1/2 de alta dencidad.
— Monitor VGA de 14 pulgadas.
— Impresora Expos FX1O5O
Además la empresa tiene a su cargo la
revisión y pruebas del sistema bajo red.
1.5.4.3 TIEMPOS DE REALIZACIÓN.
El tiempo estimado para la reali zación del
proyecto es;
ACTIVIDADES TIEMPOS
Semana s
Anal isis Previo S
Anal isi s Funcional 5
Anal isi5 Orgáni co iO
Programación S
Pruebas y mantenimientos 3
Documentación 4
1,0,4,4 COSTES DE REALIZACIÓN
Alquiler de computadora
Impresora
Di sket tes
Papelerí a
OOO.OOOyOO
OOO.OOO.OO
ÓO-OOO,OO
4OO.OOO,OO
Capaci ta cion
Otros
soo-000,00
6OO.OOO,OO
TOTAL 4.S6O.OOO,OO
2. ANÁLISIS
FUNCIONAL
ANÁLISIS FUNCIONAL
Est& anal i &i ss £«?
fiuieJanMl,. ya •;?«<? e?/j <?J jare
tíe
téjmlno de
Z.l PLANIFICACIÓN DE ACTIV1IWDES
2, 2 DESCRIPCIÓN DEL NUEVO SISTEMA
2.3 DISE&Q DEL NUBVO SISTEMA
PLANIFICACIÓN DS ACTIVIDADES
Ja
un dJa&rama ti& GANTT
DIAGRAMA DS GANTT
A C T 1 VI
2 os
e»
TIEMPOS
O4 Oí
2. 2 DESCRIPCIÓN EL NUBVD SISTEMA
2-2.1 OBJETIVOS DSL SISTEMA
En base a Jo pjjtateado en Ja fa&e anter-ior-* hemos
determinado Jos siguientes objetivos;
DE GESTIÓN
- Tener- un con troJ ordenado de 1 os pac-J &n t&s ,
mediante w/i eotlJgo ífe Jd&ntJttc-ac-Jón sJMiJai* a un
plan tí«? ffu&at&stt José JUJ£&KÍ& «3«¿? ffatai^áji suj&toa a:
í*&&a>£! , osoáif'i c-sc-i ón , e J JA Ja&c- -/ ¿J/J ?
un Jjjsír-atfo tíe jaitít<tíjt.T¿i«ie/jí:¿>£F jtfe
j^ OIVÍ&JMKÍO& ptM* un
— LJ&vaf- un plan tíe? cruentas d*? Joj? posJb>Je& síntomas
que un pac-J&jjta pueda t&n&r.
un pJaa de c-uemtase de enfermedades -gue
Jos Med^cfauejatos y SJM tonas.
una hJ&torda CJÍnJoa para eJ coa tro J de
^t&s de pJan de c-ueatas ¿fe pac-lentesf
e/7 foj'aía genera J o defjnJda por- &J usuar-io.
- Jojprísiir Ja hj&torJa eJJaJc-a eJ
requer-jda por &J
TÉCNICOS:
- Crear- Una feasee de daí¿5s «jwe permita
una Jjsta d& pa&i &n t&s coa 1 os que t^ue-n ta e J
tordo.
Diseñar- una l*a&& de dafc¿>j? do/ide
una Jista de sintoatas-
— Crear una hase d& datos ^ue contengan los
medi CaffSen t-OS &XÍ Ste/í t&S -
- Generar una Base de datas que permita enlajar los
sin tosías y medicamentos,, /B&ilj&tit& t?3&fp>&&
l& y
e pu&da
datos iie-2 diasnásttJizo <qu& &1 jn&díoo dio aJ
durante el tr&taa>Jejjt0-
— J£7a£>t>Jra.r Jfoj-'ma tc>^ de impf^&sJófs paj-a historia
clJinic-aj, Plan de cruentas de pac-Jentes, &nf&r&í&íiad&sí
y Sin tostas^ t-a&to p>ar.a ptatst-all-a ¿TOJÍÍO para isipr&sora
de ¿tc-uerdo -a las necesidades del usuario.
- /fea 3 J &ar fi 1 tro& de 1 os tr& taoj en tos que ha
recibido un determinado pac- Jen te f para mantener un
buen control de los misttíos.
2.2.2 NRCESlMimS JOEL SISTEMA
/%? ac-uerdo al análisis realizado hemos podido
determinar l&s ne&esiades yue se requieren c-
mJtnimo para un funcionamiento óptimo del sistema.
Como sistema monou&uario &&rJi& el siguiente;
- Un computador 388 I.ffi
- Velocidad de 4O fffí^.
~ >$ Mbyteai en meojoria JÜAH
- fíi&cro Itero de BO HByt&se o superior.
- Monitor W3A de !•$" monocroma ti co o color
- Drii'-e de 3 JXS"" d» alta densidad
- teclado
- Impresora
Gomo sistema muí ti usuario serla &I siguí ea te
SEKVER
- Un computador- 43& DX
- Velocidad de 88 MHss.
-16 HBytes de RAM
- Disco ffui*& de 5OO fSByt&& o superior.
- Mónitas* VGA de 14'" moaoc-romátlGo o colar
- Drlve ¿)& 3 1/2* "efe alt~a
JBacJrup
TERMINALES
La if&j*aíá
o stup&r-Joj* para NMTWAftS y 5.J para EOS.
Lo£f u&uaj*Jo& tl&fo&rén adquJirJr df £&&£&& o o Ja tas
sus j*&&pGi?tJvQ& j»e£epaJltia& d& datos.
SI MajtteaJmJ»ato d&J sAsteua ss& 2o reaJJ&afá cuando
&1 u&uajrJo £toJJc-Jt& a&tualJ&ac-Jóa d& vej^J án o a su
i>re& miando eJ c-Jl&ate j*&gu J&J "a MGdjfJc'&G-Joa&s &n &u
fuñe- i onami &n to .
2.2.3 LIMITACIONES SEL SISTSHA
E2 funoJ oftajuJ «?n to d&J ¿FJ' si t&js>a estaré 1 latí ta tía
atff por ¿fJ tJpo tte ¿nutftKEttt? y software *íu& se
Por otro J&t1o &2 sistema no permitiré que un j
registro ¿s&a empleado por at¿i& d& un usuario,, ésto,
por efectos ti& seguridad es deolr para evitar que se
distorsione la Informac-Ión i^ont&nlda e-n
registro.
2.3 DISB8O DEL NUEVO SISTEMA
2.3.1 DISSBO DKL FLUJO DE LA INFORMACIÓN
Para, conocer la circulación de la información a ser
procesado &n un centro médico, lo expresaremos en
forma gráfica jr/or actividades.
\
•- -f— M\'W
- FLUJO DE ZNFQBMACIOtf
DEL ARCHIVO PACIENTES
Este proceso r-&a.l±&ZL el mantenimiento al archivo
Pacientes o también conocida como historias
clínicas,
ENTRADAS:
y
tle Pac-fea t&&.
del
puocssas
Indcío.
"GCHÍJ&& ya Existe1",, c-a&o CfGntr&r-Jo pa&¿ti*á
o tía tost
-Jffjjt&f ctxnc-luy» pí<?jfe,fKto Ja opc-J&a tft? CC
tía tos
ya fu&rcuj gr&vadost,. esto Jt?
que se
el
actual y jsrjí enter
opc-ión le saldré un joensaje de precraucJojí, si
confirma con enter a Jo *a.vpi/e£?to,.
au totaa ti c&ot&n te es te regí a tro a&j*£ borrado
i& J»
¿re Jo ha.t*é Mentíante tíos
& <&*& peirwj tiren VKÍ* oon a&Jar claridad
Ja infirmación y e&t-as
&& J/i res^ algunos
da tos t*&f&i*&ncrial&£i «etí J a/j te J o» tT¿/a J e £t
jj*á a ¿íWjstT-aj* *?/? ttxía Ja fía^w? tít?- tíatoíE, .3.1
Je? &n&u&ntr-a Je Mostraré &n pantalla y
crontrar-Jo Je pr&jetentar-á un jo&n£taj&
xff no antea
-.- lina v&& ff&lecc-ionada &st-a
op&S ón jóos tj *a/*á e/j pa/i talla e/j fonoa
v&r-ti&al todos los registros de Ja base de
Fin
SALIDAS-
~ Datos del Pa&j&nte por pantalla.
~ lía tos del Pac-íente por -impresora.
NfllíTEKWIEftTQ DEL ARCHIVODE USUARIOS
- Batos del Consultorio por
FLUJO B& INfUKMACJQN
proceso ¿te
SNTRAIMS:
Ja entrada
vo de Usuarios.
si&t&ma-
PROCESOS:
£eo d£?3> código o clave,, si
jw existte apaj ífí á M» Mensaje que dices
"Código ya Aviste1",. c¿t£t& contrario' ¿pasara al
ingrese* de los d&jstas ^asjpos o datos d&l
usuario* concluye pidiendo la opción de G
con &nt&r o Cancelar co
tfodificar. - Penai te corregir datos
previamente ya fueron gravados* &s¡to lo hace
d&l registro actual o d& £t<#u&l que s&
seleccione para ser Modificado.
Eliminar-- Una ve& que se haya sel accionado &
registro atTfcíja J y si ps*&&J cuna &n ter &n && ta
opción Je- saldrá un mensaje de pre^aua-lón» si
t-To/j-fj-faBa ITO/Í en ter a Jo
a u toma tJ&aw&n te eat& /"*?g J JST t/t? £Nft/*¿í
Ja
- - SjBtto -a*? Jo JMu*-á medíante dos
opc-f cutes >3ií<tf pef*tJtJi*a'n ww crao mejor
Ja Jafoj'ma^Jón y estas son:
SALIDAS:
- Pedí fe *iu& £»e jjjg/*í?£5e algunos
datos j J%ji"«?,»i.T_saJí?.3! medíante Jos v-uaJes
ira a ¿>w£seaj'1 «» toda Ja £sa.s*? ¿fe datos* si
Je enc-uentra Je mostrara e/j pa/jí-aJJa y
t^asíJ t-tofitrarío J& presentaré un
*3tue dice no &jj&ontrado.
L? j ¿S/y mostrara en pan taJ J a e?/i
vertical todos Jos registros ¿fe Ja IT&&& cíe
datos pero
- I.*ato& tfeJ Usuario por
C..
LJJ SE
g §
•SZ C3i-LJ U-I
A X
r.j aL
- FLUJO DE INFORMACIÓN
MANTENIMIENTO.» /íEL ARCHIVO ZíE" M&&1 'CAMBUTOS
Este proceso realiza el mantenijaiento ¿ti arch i vo de
tfedi c¿uaen tos .
ENTRADAS:
- fía tos que permiten Jd&jitlfJc-&t*
un código.
cíe ffadj carnea toa.
pmcssos:
- - logre&o ti&3 código o clave? sj
ya e&v-i ¿s f<? ¿»p£»/-et.T<?/-á wi ju&w&aje yut* tii c& :
"Código y& Existe** ,. caso contrario pasara a2
ia&peso de- J os damas campos o da tos tí<? J
jB&dicao&fitOy concluye- pidi&ndo la opción d&
Grabar con ent&r o C&nc&lar con escape.
Perjoit& corregir datos que
previ asiente ya fueron gravados» esto lo hace
del registro actual o de aquel -que se
seleccione para ser Modificado.
,- Una ve& que s& naya seleccionado el
r&glstro actual y sil fxret&fama enter en &&ta
opción Je saldré u» mensaje de precaución r sj
confl rma tita» *a» £í?-r a J ¿> ejvpu&js to ,
e' tf<? Ja JSaíWf ¿ft? fía tos.
Cónsul tas- - B&t& &•& Jo hará atenuante* dos
apc-JLoM&se <o[í!& p&ratJi ti j"á>j WB-J*
Ja Jaformac-Jón y &&£•&& san:
tía to» r&fer&ncr£a2 && jo&íU a/j fce J os
Jjmá a ¿íi/jstTaj"1 <?/j totfa Ja Z>a^s ííe
Je sac-iiantra J& jaostr&r& en pantalla
contraría 1& prea&ntará un
opc-Aón Mostraré en pantalla »n
vertical todos Jo¿r registros ti& Ja liase de
datos pe-ro resumida.
fin
SALIVAS;
- Datos tfeJ Medicamento por
CONTROL DE SINTGNftTOLQGIA
1JUJ O
7\
=k/
*. uf nkn ay a
i
- FLUJO DR WBOBMACION
DEL ARCHIVO im s
Este proceso ¿*ea31&a el saant&nimiento al archivo de
Sin tosía tol offia _
- ¿tatos <gu& p&rwlt&rt Iti&fjtjf3&&** ¿ti síntoma
un
t1& Sin toma tal ogJia-
PROCESOS;
laido.
Incluir,- Jnfff&£fo d&J tzadi&o «? <?J»w?, &i
ya &JTÍ js t& apar&e&ré un mensa J & qu e di c-& :
"Gádijgf} ya Existe""1* c-&£e& contrario pastaré a2
ingre&o d&J sti£uieat& c-aatpo ti& síntoma*
conc-Juyff pidi&nda 1 & opc-ión tít? Grabar con enter
o Cantee- Jar con &&c-
Modificar. - P&r*ni te corr&tfir tía tos
preifi&m&nt& ya fueron ^raifados* e&to Jo hace
¿íí?J registro actual o tfe a^u&2 •que se
seleccione para ser modificado,
B2i.mJ.nar-- Una vws <&u& se haya seleccionado el
registro aotuaJi y si presiona enter en esta
opct-ión 2& s&Jdré un ja&nstaje de preoauoión, si
con «» £<?.r a Jo &xpu&£t to ,
<&&£>&' r&gj£fti*o seré
tff de Ja ü(a£w? de lía tosí.
to ¿se Jo h&ré metalan ta dos
opcf Jones <ji/í? pej-a»J t j rán ver Í.TO/I Mejor c-Jaríd-ad
Ja J/jformac-JáM y e&tas ston:
,— Pediré <que se ¿agreste
da tos referenc-jales j&edJ a/J te 2 os c-ua J es
¿ra a husc-ar en toda 2a ha&e de datos* si
Jé? encuentra 2e siostrara en pantalla sf
cojítrarJo Je presentará un
dicte no en&on trado -
i ón utos tr&rá en pan tai 2 a en
v&r-tfcr&J todos Jos registros de Ja ha&e de
datos pero resumida.
SALIDAS-
Ifatoss de2 Sintonía por panta22a.
""—I
\f***
í. * f i\ -.
"V.
s
jl +ilim «Himini
44- -
-j.Jd.tu3
«T "S
- FLUJO DB IttfOBtíACION
:* XffiL ARCHIVO DE ENFERMEDADES
Este proceso re¿tli&& el mantenimiento aJ archivo de
J&jferwed ades ,
ENTRADAS:
- Xtat&st qu& p&rmJt&n Jd»jitJfJ&*u* 3 Ja
&Mf&j*ío&t1¿ni juenijajjt& un c
- Archivo
PXOCESQS--
f
s^ótligo o c- Ja (•'<?.. ¿?j &stff
ya existe* a&ai^&Ger-á un to&t3ss&j& •qu& tiic-&~
"Código sta Kvi&t& "',. casco coati^ario pastara si
ingreso tieJ siguiente campo fíe efífej^&t&tiaties,.
conc-luye* pidi&ndo Ja opción tte Grabar CGJJ ent&r
o Gaj?c&2ar cosí e?¿?tT
^ — Perasi te corr&gir tía tos
previ a/Be/jfre? jí a fueron gravfat1o&,. esto Jo hace
¿íeJ registro actual o cíe a-cjí/eJ que se
seleccione para ser
Eliminar.— Una i'~e& que se haya seleccionado &1
actual y si presiona enter en esta
1& saldrá un mensaje de precaución* si
confirma con «»fc«i* a lo expuesto r
f&g-Ji&tj*** aera ¿Ku*.r*acto
tíe
Consultas-- Esto ¿5*? la hará Medíante dos
opciones «jwe permitirán ver con mejor claridad
2a información y ^st^ss aon:
-- P&dirá -SÍ/É? ae ingrese algunos
tía toa /Ií?ís?j"¥í/?t?ja7e?£í mediante* los cuales
irá a huacar en toda Ja has** de datos* si
tr^ le- mostrará en pawfta-Z-Za y
contrario le- presentará un
ÍÍJ.C-& no encontrado.
opcl ¿te mostrará en pa^í tal J a en forma
i>'&s*t-¿cal todos los registros de la has& ti&
da toa pero resumida.
Fin
SALIDAS:
- Datos d& 1-a Enfermedad por
tá
\
\, /
i
- ...... f ........ - ..... I ':! Ufft í
t 1
DñI«OUW 130
FLUJO DE INFORMACIÓN
MANTENIMIENTO DEL ARCHIVO DE DIRECTORIO
Este proceso reaJisóí el mantenimiento al archivo de
Directorio,
ENTRADAS:
- Datos que permJt&n JdentifJioaf* a cada uno de
los atediemos asediante un oo
- ArchJvo de XHlr&c-torio .
PKOCKSOS:
Incluir-- Ingreso ifeJ tr¿itfj1grt> o c-Jav&* £tJ
ya Avd£ft& apa/'ec'iej'a un mansa Je
ya E.vi&t'ff "\
ii& jft?£P £tjguji antes c-ampo
pAeH&ndo 2a opc-Jóa tía Grabaf etnn
FefaíJte &c*j*ji>agjj* tía tos que
ya jfi/^/vtn gravados* esto 2o hao&
del r&gj stro ¿»CT tua2 o da aquel que se
f*af*a set*
--— Una ve& que se haya seleccionado el
stjr*o ac-tual y &J presJona entes* en e&
le saldrá un otensaje de precaución,, si
confirma con en ter a Jo expues to „
a u toma ti caaien te es te registro &&jré borrado
t0 tle Ja Ba&e t1& Datos.
Consultas. - Estn a» J¿> hará Mediante
opciones que pemi tiren ver con mejor claridad
la información y e&tas son:
SALIDAS:
.- Pedirá *}ue se ing**e&e algunos
tía tos referencia les mediante los cuales
irá a buscar en toda la base de ¿latos., si
le encuentra le Mostrará en pantalla y
caso contrario le presentará un
dice no encontrado.
.- Una \-re& seleccionada esta
o pe i ón fftos trará en pan talla en forma
vertical todos los registros de la base de
datos pero resumida.
Fin
— ¿tatos del Directorio de Hedióos por pantalla.
-*-f
.;'JU1ÜIJ.L tIOWJ-J 3',J
130 DiN3I«lN31«Wi
- FLUJO DK INFORMACIÓN
MANTENIMIENTO DEL ARCHIVO $B CONSULTORIOS
Este proceso reali&a <?J Mantealmlento al archivo
Consultorios M&dlcos.
S&TRADAS:
- Datost r&ferenciales del consultorio y
•«*? vayan a ufo J car- los
PROCESOS:
ttótligo ¿s clava* stJ. &stt&
ya &xj.st& apareciera un jo&nseají* que di/ ce*
"C¿xÍJg& ya Existe"» C3£t& contrario pasará al
Ingreso tit? los dejfíás t?ajop&£f o tía tos
consultorio* Incluyendo &1 directorio en el
vayan a ser grabados los datos* concluye
pi di endo 1 a opcl ón de Grafoar con en ter o
Cancelar con escape.
Modificar. - Perwi te corregir datos
previamente ya fueron gravados* esto lo hace
del registro actual o de aquel que se
seleccione para ser modificado. Considerando
Ja ubJcac-ion cíe j£?£r datos /K> pu&ti& ¿r
~— £2wa viss que £w? haya seleccionado eJ
- un
ccunfJrata caá &&t&f* a Jo expuesto*
Jos datast í*&la&ion&iio& aJ
rr&ffas Jo^^c-aoeate fie Ja
^s de I.*
Consul ta&. - E&tc* s& Jo
ope Jones <j«<? pefmJtJráa vej* cfui
Ja jVjJcoj"Mtsaí.Tjo>? ,v é?£?fc£íjs son;
á que &e JngFe&e algunos
da tos J¥í/íf j-swio j a J <?¿? j&sdJ an t& J o» *r«a J es1
» a biu&c-aj* &n toda Ja ísa^ee tfe datos* si
un
que dice no encontrado.
opción jBO&tí'-aJ^a &fí pantalla en
vejp-tlc-al todos los j^egl&tros d& la faas& tíe
datos
SALIDAS;
CONTROL DE CONSULTAS
F B iuu.it o
ítotiiis! izat ñr-tthi Vfi! De Coní.uÜrt•
-Metí
>-
1 • jfffflftMSMm
I I BI I 2H
1 J
- FLUJO DK INFORMACIÓN
MANTENItfJENTC.» DEL ARCHIVO DE MCW2M1E3VT&S DE CONSULTA
Este proceso r&aJj&a &2 inantenjjoJento aj archivo tle
jooKj/tf-í en tose tle C
ENTRABAS;
-&nar o
asi ano Medíante* 2a
func-Jón F4.
tíe Etí&ah&3;at1<ü>s tíe C
tn£t& tíe
PROCESOS:
Inicio.
&t& no
í?&rá un
nsaje1 que tUt?e: "C&dJgo no jt^&gJ&tratio",. craso
pastara aJ JngjresfO tie Jos tiestas tía tos
3 &on Ja cnMt&ulta, {toneluye pJtlientlo
Ja opeJón tle Grattar &on enter o CancreJar con
escape.
ff vi amen te ya fueron gra vados* esto Jo hace
tlej r&gi s tro ac t uaJ o tle a <ji/e 2 que se
seleccione P&ra ¿r<?,f> JtfotlJ fi c
- — Una w&& *zue && haya seleccionado
registro at?£«aJ y si pre&Jona
íí/^a íí/i m&^í^sj'S' tie
Ja .B s f tf¿? Datos,
Jo haré m&tiian te
wj* c&n
Ja J
at? Jagr&&G algunos
tía tos j*&f&f*&/xc!-í-al&£ii jo&tl jante los c-uales
Jj*é a bu&et'aj* &¿s toda Ja ba£t& t1& da tos f sj
Je? &noit&ntf*a 1& M&&tj*&j*á en pant~all& y
contrar-jo 1& &imes»ntaj*a' un
.— Una &&•&
opc-J ón Mostrar-á en pan tal 1 a «?/i
ver tj cal todo& Jos r&g'lstj'OS! tfe Ja fo
tía tos p&ro re&utttlda,
Fin
SALI&AS;
— listos referentes a Ja c&jjssfulta por pantalla.
•"""X.
ll ¡
V a ! i iSiíoi
s-—*v
CtñPac
» í»,.
»____„ __i,., „ . , , „ - -,T rN.
Cta[) i as
CtaEnf
CtaMed
P1-™--'
Cta jS in i
'"*•«—»•''*
I"—
S e l e c c i ó nriel
...J
LisCor ,
isEnf
Lis-Hetí
— x
/ L i sPacX1 / \ / H i E . C I i \ / L i 5.Cor. \j / \V
V J y"*"i • •"• tfan*«ii»iL
V AisSirii \ / L i s_E. 11 f \ I
1 UsF'ac |
í flT^I 7i í í ' ""/ / L isCor, j
L i s S i r ,|. n.,,B..»?
/ L i s E n f /
FLUJO DE INFORMACIÓN
IffiL ARCHIVO Iffi MCmHISNT&S DE OÜNSULTA
pi*oca&0 con trola Ja alabo**at?lón tí*? todos Jos
ENTRAIMS:
~ Hiatos tteJf fiaporta (?a<
&}}Ji>ro tíe? Cu&nta <te
w ífe Gu&Jtta «fe Consultas,
Gu&nta
PROCESOS;
Generar s*&ix*i*t<ff &xtray&nclo 1 00 tía to»
haya &&Jtecc-¿o
Fin.
SALIDAS:
por M&dJ o t1& Impresora , ¿MUÍ fca J 7 a
tfe
.- HJ&toj*j& CJJaJcfa tí*? Pac-J antas
i&Gton.- Listada d& GQM&U2tast
. - Listado
,- Ljst~a£Í<o> «íí? SJat
Li&Enf. - Lí&tat1& tí<?
Li&Bí&d- - Listado d&
2.3.2 DESCRIPCIÓN X8F TABLAS « ÍNDICES
ARCHIVO : Pación t&&
ARCHIVO INMCE : Pacientes
CAMPO A INIOSXAR; CodPac
ARCHI VO : Conatul tari os
ARCHIVO ÍNDICE : Consultorios
CAMPO A INffiXAR: CaáCon
ARCHIVO : Usuarios
ARCHIVO imtKZE : Usuarios
CAHPQ A INDEXAR:
ARCHIVO : Hedicamentos
ARCHIVO ÍNDICE : Medicamentos
CAHPO A immXAR.' Cotit*#d
ARCHIVO : Sintomat&Iogía
ARCHIVO INÜICB : Si ntootato logia
CAMPO A INKEXAR: CodSin
ARCHIVO : Enfermedades
ARCHIVO INRI CE : Enf&m¡&dade&
CAMPO A INEBXAR; CodEnf
ARCHIVO : Directorios
ARCHIVO INMCS : Directorios
CAMPO A IWffiXAR: CodDir
ARCHIVO - Consultas
ARCHIVO ÍNDICE : Consultas
CAMPO A INDSXAR: FecTret + CodPac
2.3.3 VALIDACIONES
- £tet6x?t&J* Ja pr^seenc-Js o au&efi&ia t1& «w **ej sfc.ro
a J o íjije e J
^aj"1 eJ j J
&j*&rtt& a a¿p
ti& 2 &J síteme* y
f stj&& y año.
ff Jas- t&el-as Contr&J
* ANÁLISIS
ORGÁNICO
ANÁLISIS ORGÁNICO
Lo haremos empletaado un tli&grsu&si ti& GAKTT &jj el mi
&& G-oasji1&i"&j*.á 2&£t ti&atpossf &£ftJmat"?&& para &J
DIAGRAMA ES GANTT
A C T I V 1 D A & AGOSTO SEPT,
Oí O2 OS O4 Oí OS OS O4 Oí O2
P2 ani fi cae- i ón
? Códig,
DastGfip.
iJl £(&/$£> £Ít?
3.2 Asignación de Códigos
Código - LIBOO.PRG
Función: Programa principal d&l sistema» Invocado
desde el ai & tema
Código : L1BQ1.PRG
Función: Programa principal sfej ai st tema* i
I&sxt-aJ . JS^tíc-uent^a Jos
t&a &aj*a &2 modulo OO
Código : LIBO2.PRS
Fundón: Pj?&&r&ma pr-inc-ipal *3&3 ai st tema » invocado
t?_2 ai a tema Pascal .
Código : LIBftS.PRff
Función : Pf*&gJt*asK3i principal d&l aistt&ma > Invocado
&1 sistema Paacal .
Código :
Fundón: />/*ogj'i o*3 d& procedimientos para eJ joodulo OO
Código :
Función: Pj*ogr¿ua& de prQc&dÍml&ntG& para el modulo Oí
Código :
Función: Programa de procedimientos para &1 modulo O3
Código ; AsTme
Fundón: A&igna los valores a 1-as variables de 2a& menús
rfe Eapr&sa^ Movimientos* Informes y Varias para
&J utilitaria M&tl.
Código : AmTme
Función: Pí^&CHEt&cais- á& Ijwfaxac-Jan y tte r&&anstruGc-ióa
TA i vos ii&l sist&jua.
Código : S&JEttip
trabajar.
va a
Cótiign • SelPa&.Prg
on: SffJ&Gc-Joa tí*? Pac-i&nt&s
Código :
c-iójj; Edit&r que- permite Ja fi&ha c-Jiai&a
Código : TraCon
Función: de Consultas
Código :
Función: Editor del Plan d& Cuentas de- medic-auentos
Código : BdcSin
Función: Editor del Plan d& Cuentas paj%a Sin tomas
Código : EdcD±r
Función: Editor de Plan síe? Cuentas de Consultorios
Código : EdcBnf
Fundón; Editor del Plan de Cuentas para
Código : _Cre__Arc
Fundón; Crea los aj°&hl v&& fu&nt&& con extensión -PR&
ir de la isa^Ee d& datos*
Código : EdcCon
Fundón: Sditor de Plan <fe Cuentas de Cónsul tori os
Código : SdcUsr
Función: Sditor d&l Plan d& Cuentas d& usuarios
Código : TraEnf
Fundón; Editar ¿toc-andario d& Consultas
CÓdi go : Di
Función: Muestra 1&& nstngl c*ne& asociados a una &
Código : TraPre
Fundón; Sditor Secundario de Consultas (Prescripción)
Código ; TraDia
Fundón; TransaccicHoesi de Diagnostico
Código ; JtepOl
Función; Kapor-ta da listado da Plan ¿le Cuantaa de
Código ' RapQS
Función: R&por-ta d& I*i atado da JiJ&t&rias G-2Sjni&aa
Código : VALKEYF4
Función; I*rocadimianto asignado 3 2¿t tacla tíe función F4.
Código
forma ar&hiiroa m&d.ex&
Código :
Fün&ión: -ÉVaJj/a códigos coa iadicnt o s&c-u»aciaj
Código :
Ftutcióa: Trajtaacc-ion&a d& CoasuJtaa (Múltipla)
Código ; Seltfad
cloa; S&l&c<t?ioj3& de M&dicaM&atos
Código
Código : Actíted
an; Actualización d& fífídlcaMerntoa
Código : ChkDup
ciátn; Veu-lfica £ti la dair& &atá duplicada.
&&TP93
S?f
-3$* ««ret? ¿3
fffíí
ffífí
JO~9
un sf
rjz Jlfca Ja
Ja
aaf&ja £:•&'.& fe?
3.4 DESCRIPCIÓN
ORGÁNICA
D£ FICHEROS
ARCHIVO DE USUARIOS
SECOM C, LTDA,
TENA: HEDICO VER. 1.3
CONTENIDO: DATOS DEL USUARIO
DISP. DE ALNAC. ORGANIZACIÓN
DISKETTES1NDEXADA
DISCO DURO
BVTES
DE A
1 5
31 35
36 37
38 38
39 41
42 42
PROG. QUE GENERA: CTAUSR PAG. DE
NOMBRE: USUARIOS I 1 1
LDNG. REGISTRO FECHA:
42 18-83-1995
CARACTERÍSTICAS DEL CAMPO
LONGUITUD
5
3e2
t
3
1
NOMBRE
CTLKEV
HOMBRE
ID
NIVEL
ftCC
EN.USO
DE CR I PC I OH
CLAVE DEL USUARIO
NOMBRE DEL USUARIO
IDENTIFICADOR DEL USUARIO
NIVEL DE ACCESO DEL USUAR
TIPO
CKARACTER
CHARACTER
CHARftCTER
NUHERIC
IDENTIFICftDOR DE ACCESO CHARACTER
SI ESTA EN USO LA CLAVE L08IC
OBSERVACIONES
CLAVE DE ACCESO
ARCHIVO DE TRANSACCIONES DE SINTONAS
SECOM C, LTDA,
TENA: REDIGO VER. 1.8
CONTENIDO: RENGLONES E>E DIAGNOSTICO
DISP. DE ALNAC. ORGANIZACIÓN
DISKETTESINDEXADA
DISCO DURO
BVTES
DE A
J 8
9 16
U 18
19 19
26 29
PROG. QUE GENERA: TRADIA PAG. DE
NOMBRE; SINTOMATOL06IA 1 1
LONG. REGISTRO FECHA:
29 18-83-1995
CARACTERÍSTICAS DEL CAMPO
LONGUITUD
8
2
8
1
ie
NOMBRE
FEC.TRA
TIPO
NUMERO
PORCENTAJE
CGDSIN
DECRIPCION
FECHA DEl DOCUMENTO
TIPO DEL DOCUMENTO
HUMERO DEL DOCUMENTO
PORCENTAJE DEL SÍNTOMA
CODI60 DEL SÍNTOMA
TIPO
DATE
CHARACTEft
CHARACTER
NUMERIC
CHARACTER
OBSERUACIONES
CLAVE DE ftCCESO
CLAVE DE ACCESO
CLAVE DE ACCESO
ARCHIMG DE TRANSACCIONES DE NEDICftNENTQS
SECOM C, LTDA.
TEMA: MEDICO VER. 1.8
CONTENIDO: RENGLONES DE DIAGNOSTICO
DISP. DE ALMAC. ORGANIZACIÓN
DISKETTES Ii JNDEXADft
DISCO DURO
BVTES
DE A
t 8
9 18
1! 18
19 19
28 29
FPBOG. QUE GENERA: TRADIA PAG. DE
NOMBRE: MEDICAMENTOS 1 ] 1
LONG. REGISTRO FECHA:
29 38-33-1995i
CARACTERÍSTICAS DEL CAMPO
LONGUITUD
8
2
8
1
18
NOMBRE
FECJTRA
TIPO
N LIBERO
PORCENTAJE
CODMED
DECRIPCION
FECHA DEL DOCUMENTO
TIPO DEL DOCUMENTO
NUMERO DEL DOCUMENTO
TIPO
DATE
CHARACTER
CHARACTER
PORCENTAJE CONTRA «EDIC. ] NUMERIC
CÓDIGO DEL MEDICAMENTO CHARACTER
OBSERVACIONES
CLAVE DE ACCESO
CLAVE DE ACCESO
CLAVE DE ACCESO
ARCHIUO DE TRANSACCIONES DE ENFERMEDADES
SECOM C. LTDA,
TENA: MEDICO VER. 1.0
CONTENIDO: REN6LONES DE DIAGNOSTICO
DISP. DE ALHAC. 1 ORGANIZACIÓN
DISKETTESINDEXADft
DISCO DURO
BVTES
DE A
1 3
9 ie11 18
19 19
28 29
39 3!
PROG. QUE GENERA: TRADIA PAG. DE
NOMBRE: ENFERMEDADES 1 1
LOWG. REGISTRO ] FECHA:
31 18-83-1995
CARACTERÍSTICAS DEL CAMPO
LONGUITUD
8
2
8
1
18
2
HOMBRE
FEC.TRA
TIPO
NUMERO
CftRSEC
CODENF
PORCENTAJE
DECR1PCIOM
FECHA DEL DOCUMENTO
TIPO DEL DOCUMENTO
HÜflERO DEL DOCUMENTO
1DEMTIFICADOR DEL DOC.
CODI60 DEL SÍNTOMA
PORCENTAJE DE PROVECC.ENF
TIPO
DATE
CHARACTER
CHARAC-TER
CHARACTER
CHARACTER
NUMER1C
DBSERUACIONES
CLAVE DE ACCESO
CLAVE DE ACCESO
CLAVE DE ACCESO
ARCHIUÜ DE SINTONATOLOGift
SECOM C. LTDA.
TENfl: MEDICO VER, t.g
CONTENIDO! DATOS DEL SÍNTOMA
DISP. DE ALMAC. ORGANIZACIÓN
D1SKETTESINDEXADA
DISCO DURO
BVTES
DE A
1 18
11 41
42 42
43 43
PROG. QUE GENERA: CTASIN PAG. DE
NOMBRE: SJNTGKATGL06IA t 1T * '
LONG. REGISTRO FECHA:
43 10-63-1995
CARACTERÍSTICAS DEL CAMPO
LONGIUTUD
IB
31
1
1
NOMBRE
CODSIN
NOMBRE
TIENE_MOV
HARCA
DEC R I PC ION
CODI80 DEL SÍNTOMA
NOMBRE DEL SÍNTOMA
TIENE MOVIMIENTOS
IDENTIFICADOS DE LA CTA,
TIPO
CHARACTER
CHARACTER
CHARftCTER
CHARACTER
OBSERVACIONES
CLAVE DE ACCESO
ARCHIUO DE RENGLONES DE SINTÜHAS
SECOM C. LTDA.
TENA: HED1CO VER. 1.0
CONTENIDO: RENGLONES DE SÍNTOMAS
DISP. DE ALMAC. ORGANIZACIÓN
DISKETTESIHDEXADfi
DISCO DURO
BVTES
DE A
! 16
11 29
2\3
24 24
PROG, QUE GENERA: TRACON ¡PAG. DE
NOMBRE: S1NTOMATOIGSIA ! 1
LONG. REGISTRO FECHA:
24 16-83-1995
CARACTERÍSTICAS DEL CAMPO
LONGUITUD
te16
3
t
HOMBRE
CQDENF
CODSIN
PORCENTAJE
TIENEJÍOV
DECRIPCION
CODI6Q DE LA ENFERMEDAD
COD160 DEL SÍNTOMA
PORCENTAJE CONTRA ENFERM.
TIENE 0 NO HOVIHEINTOS.
TIPO
CHARACTER
CHARACTER
NUHERIC
CHARACTER
OBSERVACIONES
CLAVE DE ACCESO
ARCHIUü DE REHGLONES DE MEDICMENTQS
SECOM C, LTDA,
TEMA: MEDICO VER. t.8
CONTENIDO: RENGLONES DE MEDICAMENTOS
D1SP. DE ALMAC. ORGANIZACIÓN
DISKETTESINDEXADA
DISCO DURO
BVTES
DE A
1 10
1! 28
21 23
24 24
PROG. QUE GEMERft: TfiftCON PAG. DE
NOMBRE: MEDICAMENTOS t t
LONG. REGISTRO FECHA:
24 I 10-03-1995¡
CARACTERÍSTICAS DEL CAHPO
LONGÜITUD
10
10
3
t
NOMBRE
CODENF
CODHED
PORCENTAJE
TIENEJÍOV
DECRIPCION
CODI60 DE LA ENFERMEDAD
CODI6Q DEL MEDICAMENTO
PORCENTAJE CONTRA ENFERH.
TIENE 0 NO MOVIMEINTOS.
TIPO
CBARftCTER
CHARACTER
NIJMERIC
CHARACTER
OBSERUACIONES
CLAVE DE ACCESO
ARCHIVO DE PACIENTES
SECOM C. LTDA.
TEMA: MEDICO VER. 1.6 PROG. QUE GENERA: CTAPAC PAG. DE
CONTENIDO: DATOS DEL PACIENTE i HOMBRE: PACIENTES ] 1 1
OISP. DE ALNAC. ORGANIZACIÓN LONG. REGISTRO FECHA:
DISKETTESINDEXADA 3)5 18-63-1995
DISCO DURO
BVTES
DE A
1 18
1! 58
51 53
59 59
¿8 ¿8
¿1 88
81 88
89 91
92 97
98 185
186 m
112 112
1 1 3 132
133 163
164 194
195 281
282 288
289 216
217 224
225 255
256 262
263 278
271 271
272 286
287 386
38? 3t4
315 315
,
CARACTERÍSTICAS DEL CAMPO
LONGUITUD
18
48
3
1
1
28
8
3
6
3
6
1
28
31
31
7
7
8
8
31
7
8
1
15
26
8
1
HOMBRE
CODPAC
NOH8RE
FEELTRft
SEXO
CIVIL
LU6AR
FECHA
EDAD
PESO
TIP.SAN
ESTATURA
INSTRUCC
OCUPA
DIRECJ
D1REC2
TELEF1
TELEF2
ZOHAt
20NA2
NOMBRE 1
TELEF3
ZONAS
SEGURO
TIP_SEC
NOH.SEC
REFER
TIPJIOV
DE CR I PC ION
CODI60 DEL PACIENTE
NOMBRE DEL PACIENTE
FECHA DE IN6RESO AL S1ST.
TIPO DE SEXO DEL PACIENTE
ESTADO CIVIL
LUGAR DE NAC.
FECHA DE NAC.
EDAD
PESO
TIPO DE SANGRE
ESTATURA
NIVEL DE INSTRUCCIÓN
OCUPACIÓN
DIRECCIÓN DOMICILIARIA
DIRECCIÓN TRABAJO
TELEFONO DOMICILIO
TELEFONO TRABAJO
ZONA DEL DOMICILIO
ZONA DEL TRABAJO
NOMBRE PERSONA EMER6ENC.
TELEFONO
REFERENCIA
TIENE 0 NO SE6URO
TIPO SE6URO
HOMBRE CÍA. ASEGURADORA
REFERENCIA
TIENE 0 NO MOVIMIENTO
T
TIPO 1 OBSERVACIONES
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
DATE
NUMERIC
NUMERIC
CHARACTER
NUMERIC
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CLAVE DE ACCESO
CLAVE DE ACCESO
MCHIUO DE NEDICAHENTQS
SECOM C. LTDA,
TENA: MEDICO VER. 1.8
CONTENIDO: DATOS ['EL HEDICAKENTO
DISP. DE ALNAC. ORGANIZACIÓN
DISKET7ESIKDEXADA
DISCO DURO
BVTES
DE A
i IBU 4!
42 42
43 43
PROG. QUE GENERA: C TAÑED PAG. DE
NOHBRE: REDICftNENTQS 1 1
LONG. REGISTRO FECHA:
43 18-83-1995
CARACTERÍSTICAS DEL CAMPO
LONGUITUD
16
31
1
1
NOMBRE
CQDHED
NOHBRE
TIEHEJ10V
HftRCA
DECRIPCION
CODI60 DEL HEDICAHENTO
NOHBRE DEL «EDICAHENTO
TIENE «OVI«IEHTOS
IDENTIFICAR DE LA CTft.
TIPO
CHftRACTER
CHARACTER
CHARACTER
CHARACTER
OBSERVACIONES
CLAVE DE ACCESO
ARCHIVO DE MEMOS
SECOM C. LTDA,
TENA: HEDICO VER. 1.8
CONTENIDO! ALHACENA HISTORIA HEDICA
D1SP. DE ftLNAC. ORGANIZACIÓN
D1SKETTES1NDEXADA
DISCO DURO
BVTES
DE A
1 26
2\8
PROG. QUE GENERA; CTAPAC PAG. DE
NONBRE: PACIENTES ! t
IONG. REGISTRO FECHA:
36 18-03-1995
CARACTERÍSTICAS DEL CAMPO
LOHGUITUD
26
16
NOMBRE
CODHEH
KEHOSTR
DECRIPCION
CODISO DEL CAHPQ HENO
DECRIPCIOH
TIPO
CHARftCTER
HEHO
OBSERUAC IONES
CLAVE E>E ACCESO
ARCHIVO DE DIRECTORIOS
SECOM C, LTDA,
TENA: MEDICO VER. 1.8
CONTENIDO: DIRECTORIOS
D1SP. DE ALMAC. ORGANIZACIÓN
D1SKETTES1NDEXADA
DISCO DURO
BVTES
DE A
1 16
n 4142 72
73 87
38 182
183 M7
118 1 48
149 149
158 158
PROG. QUE GENERA: OTAD IR PAG. DE
NOMBRE; DIRECTORIOS t 1
LONG. REGISTRO FECHA:
158 18-83-1995
*
CARACTERÍSTICAS DEL CAMPO
LONGUITUD
18
31
31
15
15
15
3!
1
1
NOMBRE
CODD1R
NGH8RE
DIREC1
TELEF1
TELEF2
FAX
DIREC2
TIENEJÍOV
HARCA
\N
COD160 DEL DIRECTORIO
NOMBRE DEl DIRECTORIO
DIRECCIÓN DOMICILIARIA
TELEFONO!
TELEFONO?
FAX
DIRECCIÓN POSTAL
TIENE 0 NO HOVIHIENTO
IDENTIFICADOR
1
DE U CTft.
TIPO
CHftRACTER
CHftRACTER
CHftRACTER
CHftRACTER
CHARACTER
CHftRACTER
CHftRACTER
CHftRftCTER
CHARACTER
OBSERVACIONES
CLAVE DE ACCESO
1
! |
1 1
ARCHIVO DE CONSULTAS
SECOM C. LTDA.
TENA: HE D ICO VER, 1.3 PROG. QUE GENERA: TRAC UN PAG. DE
CONTENIDO: CONSULTAS NOMBRE: CONSULTAS 1 1
DISP. DE ALNAC. ORGANIZACIÓN LOMG. REGISTRO t FECHA:
DISKETTES ;INDEXADA 1 1 ) te-83-!995
DISCO DURO
BVTES
DE . A
1 3
9 18
H 18
19 19
2(í 29
3IÍ 79
80 88
85 88
8!» 96
91 92
9:! 188
1(11 IM
CARACTERÍSTICAS DEL CAMPO
LONGUITUD
8
2
8
!
te50
i8
2
2
8
11
NOMBRE
FECTRA
TIPO
NUMERO
CARSEC
CODPAC
MOTIVO
ASOCIADO
PRQX_CQN
HORA
HINUTO
REFER
APIL6EH
DECRIPCION
FECHA DE LA CONSULTA
TIPO DE CONSULTA
NUMERO DE CONSULTA
IDENTIFICADOR DEL DOC.
CÓDIGO DEL PACIENTE
MOTIVO DE LA CONSULTA
SI TIENE DOC. SOCIftDO
FECHA PROX. CONSULTA
HORA PROX. CONSULTA
MINUTO PROX. CONSULTA
REFERENCIA
APUNTADOR AL DOC. ASOC.
TIPO
DATE
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
DATE
NUKERIC
NUMERIC
CHARACTER
CHARACTER
,
OBSERUACIONES
CLAVE DE ACCESO
CLAVE DE ACCESO
CLAVE DE ACCESO
ENCABEZADO DE NOMINIENTDS
SECOM C. LTDA.
TENA: MEDICO VER. 1.6
CONTENIDO: DIAGNOSTICO
DISP. DE ALMAC. ORGANIZACIÓN
DISKETTES 11 INDEXADA
PISCO DURO
BVTES
DE A
1 3
9 1@
1 1 18
19 19
28 29
3IÍ 38
PROG. QUE GENERA: TRADIA PAG. DE
NOMBRE: MOVIMIENTOS 1 1
LONG. REGISTRO FECHA:
38 18-83-1995
CARACTERÍSTICAS DEL CAMPO
LONGUITUD
3
2
8
1
1@
1
NOMBRE
FEC.TRA
TIPO
NUHERCí
CARSEC
CODPAC
TIENEJIQV
DECRIPCION
FECHA DEL DOCUMENTO
TIPO DEL DOCUMENTO
NUHERO DEL DOCUMENTO
IDENTIFICADOR DEL DOC.
CÓDIGO DEL PACIENTE
TIENE 0 NO HQVIHIENTQ
TIPO
DATE
CHARftCTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
OBSERVACIONES
CLAVE DE ACCESO
CLAVE DE ACCESO
CLAVE DE ACCESO
ARCHIVO DE ENFERHEüftDES
SECOM C. LTDA.
TEÍNA: MEDICO VER. 1.6
CONTENIDO; DATOS DE LA ENFERMEDAD
D1SP. DE ALHAC, ORGANIZACIÓN
DISKETTESINDEXADA
DISCO DURO
EVTES
DE A
i idU 41
42 42
43 43
PROG. QUE GENERA: CTAENF PAG. DE
NOMBRE: ENFERMEDADES 1 1
LONG. REGISTRO FECHA:
43 !8-03-1995
CARACTERÍSTICAS DEL CANPO
LONGUITUD
10
31
1
1
NOMBRE
CGDENF
HOMBRE
TIENEJ10V
HARCA
DECRIPCION
CÓDIGO DE LA
HOMBRE DE LA
ENFERMEDAD
ENFERMEDAD
TIENE MOVIMIENTOS
IDENTIFICADOS DE LA CTÍJ.
TIPO
CHARACTER
CHARACTER
CHABACTER
CHARACTER
OBSERVACIONES
CLAVE DE ACCESO
ARCHIVO DE CONSULTORIOS
SECOM C, LTDA.
TENA: MEDICO VER. 1.8
CONTENIDO; DATOS DEL CONSULTORIO
DISP. DE ALNAC. ORGANIZACIÓN
DISKETTESINDEXADA
DISCO DURO
PROG. QUE GENERA: EDCCON PAG. DE
HOMBRE; CONSULTORIOS 1 1
LONG. REGISTRO FECHA:
!382 1 16-63-1995
iBVTES ! CARACTERÍSTICAS DEL CAMPO
DE A
1 2
3 32
33 72
73 126
!27 14)
142 )56
157 187
LQNGUITUD
2
38
48
54
15
15
31
i 88 282 ! 15
263 233
234 264
265 295
296 3)6
31) 325
326 356
3)
31
31
15
15
31
357 371! !5
372 372
373 373
374 374
375 :t82
!
1
)
8
NOMBRE
ID_EMP
COHSULT
CANINO
DIRECCIÓN
TELEF)
TELEF2
POSTAL
FAX
DOCTOR
ESPECIAL]
DQMICI
TELEF3
TELEF4
POSTAL!
_
i T
DECRIPCION ] TIPO
IDEHTIFICADOR EUPRESñ (CHARACTER
NOMBRE CONSULTORIO
CAMINO
DIRECCIÓN
TELEFONO
TELEFONO
CHARACTER
CHARACTER
CHARACTEft
CHARACTER
CHARACTER
OBSERVACIONES
CLAVE DE ACCESO
iDIRECCIÓN POSTAL ICHARACTER
FAX
NOMBRE DEL DOCTOR
ESPECIALIDAD
DOMICILIO
TELEFONO
TELEFONO
POSTAL
FAX1 IFAX
SECUENCIA SECUANCIA DE
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
I CHARACTER
! CHARACTER
CREAC. CONS.ICHABACTER
CQN.TRANS SI TIENE 0 NO TRANSACC. ICHARACTER
«ARCA
REFER
RESERVADA PARA SISTEMA
REFERENCIA
CHARACTER
CHARACTER
3*5 CUADERNO
DE
CARGA
SECOM C. LTDA.
SISTEMA PROGRAMAf-
PRQGRAMADGRES-t
TíPAG.t DE
KEDICO VER, LIB66 í SILVIA VELASTE6U! V JAVIER PÉREZ
OBJETIVO: HENU PRINCIPAL DE OPCIONES
ENTRADAS
HOMBRE TIPO CLAVE4-
DESCRIPCION
PACÍ
PCTft
PMOV
PREP
PPRO
PTER
]OPCIÓN «ENU PRINCIPAL
ICPCIOtí SUBHESU PACIENTESiÍOPCIOH SUBHENU CUENTASi¡OPCIÓN SU3RENU HOyjMIEWT
ÍOPCIOfJ SUBHENU REPORTES1IOPCION SUBKEHU PROCESOS
¡OPCIÓN SÜBHEHU TERHINAR
SAL I DAS-t-
NOMBRE TIPO CLAUE DESCRIPCIÓN
ISUBHENU DE ACTUALIZARIJSUBKENU DE CUENTAS
¡SUBRENL1 DE «OV1MIENTOÍ
ÍSÜEHEÍJU DE REPORTESIISUBHENU DE PROCESOS
íTERMINAR DE TERMINAR
ACTUALIZAR
CUENTAS
HOV1HIENTOS
REPORTES
PROCESOS
"ERHIHAR
D I A G R A M A DE FLUJO
A C T U A L I Z A R
CUENTAS
PROCESO
SESU
| »
i!i
í!|
HQVIHIENTQS
REPORTES
PROCESOS I
TERHINAR
SECOM C, LTDA.
SISTEMft PROGRAMA PROGRftMADGRES IPAG.í DEH 1
MEDICO VER. l. SELCQN !- SILVIA VELASTEGUI V JAVIER PÉREZ M i l
CBJETIÜO; SELECCIQH DE CONSULTORIOS
E N T R A D A S-r
NOMBRE TIPO CLAUE DESCRIPCIÓN-f-
LASTKEV VARIABLE AUXILIAR DE SELECC
SAL I DAS
NOMBRE TIPO CLfiUE DESCRIPCIÓN
HDCTACOH
PANTALLA
J N D E X A D G IO_EMf REGISTRO DE LOS C O N S U L T O R I O S
DESPLEGAR D A T O S DEL CÓNSUL,
D Í A G R A M A DE FLUJO
SECOM C. LTDÁ,i i i i
SISTEMA . PROGRAMA ! PROGR AMADORES i PAG.! DE
1 1 1 tMEDICO VER. 1.6 ! EDCCGN i SILVIA VELASTE6UI V JAVIER PÉREZ M | 2
OBJETIVO: CONSULTORIOS, INSRESAR, MODIFICAR, ELIMINAR V CONSULTAR DATOS
ENTRADAS
í i !NOMBRE \O CLAVE i DESCRIPCIÓN
HDCTACON Í INDEXADO í ID EMPi iID EMP 1
[iQNSULT í
CAHING i
DIRECCIÓN 1
"ELEF! !
"ELEF2 !
POSTAL j
FAX í
DOCTOR j
ESPECILI !
OOHICI í
TELEF3 í
TELEF4 j
POSTAL! !
FAX! í1
REFER i
OP !
OC i1
i
i
iii
SALIDAS
1NOMBRE 1 TIPO CLAVE
NDCTACON 1 INDEXADO 1D_ENP]
PANTALLA |
s
ARCHIVO DE CONSULTORIOSVARIABLE DEL CONSULTORIOVARIABLE DEL NOMBRE DEL CONS
VARIABLE DEL CAMINO
VARIABLE DE LA DIRECCIÓN
VARIABLE DE TELEFONO
VARIABLE DE TELÉFONOS
V A R I A B L E DE DIRECCIÓN POST
VARIABLE DEL FAX
VARIABLE DEL NOMBRE MEDICO
VARIABLE DE LA ESPECIALIDAD
VARIABLE DEL DOMICILIO
VARIABLE DEL TELEFONO
VARIABLE DEL TELEFONO
VARIABLE DE LA DIREC, POSTAL
VARIABLE DEL FAX
VARIABLE DEL REFERENCIA
OPCIÓN SÜBBEHU
OPCIÓN CONSULTORIOS
DESCRIPCIÓN
RE6ISTRQ DE LOS CONSULTORIOS
DESPLEGAR DATOS REFERENCIAL.
SECOM C. LTDA,
SISTEMft ! PROGRAMA ! PROGRftMADGRES >PAG.! DE1 í
SILVIA VELASTE6UI V JAVIER PÉREZ ! ¿ Í 2M E D I C O VER. 1,8 EDCCON
OEUETIUO: CONSULTORIOS, INCLUIR, «ODIF ICAR, ELIH1MAR. CONSULTAR D A T O S
D I A G R A M A DE FLUJO
»t > ELIMINA?
REVISAR
V
SECOM C. LTDA.
SISTEMA PROGRAMA + PROGRAMADORES PAG.i DE
«EDJCQ VER, 1,8 EDCUSR i SILVIA VELASTE6UI V JAVIER PÉREZ | !
OBJETIUO: EDITOR DE USUARIOS
E N T R A D A S
HOMBRE TIPO CLAVE DESCRIPCIÓN
KDCTAUSR
C-TLKEV
ID
NIVEL
INDEXftDG CTLKEV ¡ARCHIVO DE USUARIOS
¡VARIABLE CLAVE DE USUARIO
¡VARIABLE NQHBRE DE USUARIO
¡VARIABLE IDENTIFICAD. USUAR.i¡VARIABLE NIVEL ACCESO
SAL IDAS-r-
KQMBRE TIPO CLAUE DESCRIPCIÓN
HDCTAUSR
PANTALLA
REGISTRO DE USUARIOS
DESPLEGAR DATOS DE USUARIO
D I A G R A M A DE FLUJO
CTL KEV USUA-RIOS
VERIFICAR •**-
INCLUIR
HODIFICAR
EL3H1NAR USUA-RIOS
BUSCAR
SECOM C. LTDA,
SISTEMA PROGRAMAí
PRQGRAMADQRES íPAG.! DE-4- •4-
NEDICO VER. 1.6 EDCMED! ( I! SILVIA VELASTEGUI V JAVIER PÉREZ ! J M
OBJETIVO; EDITO?: DE MEDICAMENTOS
E N T R A D A S-t-
NOMBRE TIPO CLAVE-4-
DESCRIPCIGN
HDCTft«ED
COUHED
NOÍÍSRE
1 bl r\ \ A n riiPIl'C-'.Hl'V CODHED I A R C H I V O DE BEDICAHEHTOS
iÍVf tRIABLE DEL CÓDIGO HEDIC.i¡ V A R I A B L E DEL HOHBRE DEL HED.
B A L ! D A S
HOMBRE TIPO CLAUE-t-
DESCRIPCION
fiDCTft«ED
PAÍ ÍTALLA
IHDEXADO ¡REGISTRO DE MEDICAMENTOS
ÍDESPLE6AR DATOS DE MEDICAHEÍÍ
I TOS
D J A G R A M A DE FLUJO
CODHED HEDÍ-CAWENTOS
V /
1 1j ]T !
!
!i
INCLUIR
M O D I F I C A R
~1
i— *
i1
iMEDI-CASENTOS
REVISARff 'n
SECOM C. LTDA.
SISTEMA PROGRAMA PRQGRAMADORES fPAG.i DE-* *
1EDICQ VER, 1.8 EDCSIH SILVIA VELASTE6UI V JAVIER PÉREZ í í !
OBJETIVO: EDITOR DE SIHTÜHATQLQ6IA
E N T R A D A S
HOMBRE TIPO CLftUE DESCRIPCIÓN-f-
HDCTflSIN
CODSIM
NÜH8RE
INDEXADO COOSIN AR C H I V O DE SINTOtfftTGLQGIA
VARIABLE DEL CÓDIGO SÍNTOMA"
VARIABLE DEL NOMBRE DEL SIN-
TOKñ
SAL IDAS
NOMBRE TIPO CLAUE DESCRIPCIÓN
MOCTASIN
PANTALLA
iHDEVADO CGDSIN REGISTRO DE 3IHTOHAS
DESPLEGAR DATOS DE SIHTOKAS
D I A G R A M A DE FLUJO
CODSIH SINTGMATÓ-LOS IA
PANTpLLft >\
i1
T * >
• — >
1 — »
MODIFICAR
REVISAR
BUSCAR
11
i1
i1
_l
SI NT OATÓ-LOS IA
SECOM C. LTDA.
SISTEMA PROGRAMA PROCREADORES PAG.i DE
M E D I C O VER. 1 , 8 EDCEfíF 1 S I L V I A VEUSTE6UI V JAVIER PÉREZ I 1
OBJETIUO: E D I T O R DE E N F E R M E D A D E S
E N T R A D A S
NOMBRE TIPO CLAME DESCRIPCIÓN-t-
H D C T A E K F
CODENF
ÍE
IHDEXADO CQDENF ARCHIVO DE ENFERMEDADES
V A R I A B L E DE CQDI60 ENFERHED,
VARIABLE DEL NOMBRE DE LA
ENFERMEDAD
SAL IDAS
NOMBRE TIPO CLAUE-*-
DESCRIPCIÓN
M&CTAEMF
PANTALLA
IHDEXftDO CODENF REGISTRO DE ENFERMEDADES
DESPLE6AR DATOS DE ENFERMED,
D I A G R A M A DE FLUJO
INCLUIR l—iI i
MODIFICAR
ELIMINAR
REVISAR
BUSCAR
EMFERMEDA-DES
SECOM C. LTDA.
SISTEMA PRQ6RAMA PRQGRAMADQRES7 F!PftG.! DE
-t f-HEDICG VER. 1.8 EDCDIR SILVIA VELASTE6UI V JAVIER PÉREZ ¡ 1
GBJETIUO: EDITOR DE DIRECTORIOS
E N T R A D A S-f-
NOMBRE TIPO CLAME DESCRIPCIÓN
HDCTADIR
CODDIR
NOMBRE
DIREC!
TELEF!
TELEF2
FAX
DIREC2
IKDEJÍADO CODDIR ¡ARCHIVO DE DIRECTORIOS
IVftR.DE CÓDIGO DIRECTORIO
JVAR.DEL NOHBRE DEL DIRECT,
¡VñR.DEL DIRECCIÓNIJVAR.DEL TELEFONO¡VHR.DEL TELEFOHO(VftR.DEL FA!x'i¡VftR.DE LA DIRECCIÓN
SAL I DAS
NOMBRE TIPO CLAUE-4-
DESCRIPCION
BDCTADIR
PANTALLA
IHDEXADO CODDIR SRE6ISTRO DE DIRECTORIOS!¡DESPLEGAR DATOS DEL DIRECTO-
IRI OI
D I A G R A M A DE FLUJO
CODDIR DIRECT O R I O
V E R I F I C A R
INCLUIR
HODIF ICAR
ELIMINAR
R E V I S A R
DIRECT O R I O
BUSCAR
SECOM C. LTDA.
SISTEMA 1 PROGRAMA
MEDICO VER. 1.0 I EDCMOV
i r1 PROGRAMADORES PAG. DE
i ! í! SILVIA UELASTE6UI Y JAVIER PÉREZ i } 2
OBJETIVO: PACIENTES, INSRESAR, MODIFICAR, ELIMINAR V CONSULTAR DATOS
ENTRADAS
¡NOMBRE Í TIPO
1MDCTAPAC i INDEXftDO
CODPAC ii
NOMBRE 1
FEC TRA íiSEXO !
CIVIL í
LUSAR f
FECHA t
EDAD i
PESO ii
TIP_SAN Í
ESTATURA í
INSTRUC iOCUPA 1iDIREC1 i
DIREC2 í
TELEF! i
TELEF2 I
ZONA1 I
ZORA2 1
NOMBRE! j
TELEF3 í
ZONA 3 i
SE6URO 1iTIP SE6 í¡NOH SEG !
iREFER ¡
NOMMEM tií
i¡1
CLAME í DESCRIPCIÓN
CODPAC (ARCHIVO DE PACIENTES
IVAR. DEL CÓDIGO DE PACIENTE
ÍVAR. DEL NOMBRE DE PACIENTE
ÍVAR. DE FECHA DE INGRESOiÍVAR. DE SEXO
IVAR. DE ESTADO CIVIL
IVAR. DE LUGAR DE NACIMIENTO
I V A R . DE FECHA DE NACIMIENTO
IVAR. DE EDAD
IVAR. DE PESO
IVAR. DE TIPO DE SANGRE
ÍVAR. DE ESTATURA
IVAR. DE INSTRCCION
Í V A R . DE OCUPACIÓNi¡VAP. DE DIRECCIÓN DOMICILIO
IVAR. DE DIRECCIÓN TRABAJO
IVAR. DE TELEFONO DOMICILIO
ÍVAR. DE TELEFONO TRABAJO
ÍVAR. DE ZONA DE DOMICILIOi|VAR. DE ZONA DE TRABAJO
(VAR. DE NOMBRE PER. EMERGEN.
IVAR. DE TELEFONO EMER6.iÍVAR. DE ZONA EMERGENCIAi¡VAR. DE SE6URO1IVAR. DE TIPO DE SE6URO1IVAR. DE NOMBRE SE6URQ
IVAR. DE REFERENCIA
IVAR. MEMOií
iiií
SECOM C. LTDÁ.
SISTEMA PROGRAMAT
PROGRAMADORES ÍPAG.I DE
HEDICO VER. E&CMGV SILVIA VELASTE6UI V JAVIER PÉREZ i 2
OBJETIUO: PACIENTES, INCLUIR, MODIFICAR, ELIH1NAR, CONSULTAR DATOS
NOMBRE TIPO
SAL I DAS
CLAVE DESCRIPCIÓN
HDCTAPAC
PANTALLA
IHDEXADO CODPAC (REGISTRO DE LOS PACIENTES
ÍDESPLE6AR DATOS PERSONALES
D I A G R A M A DE FLUJO
CODPAC PACC! EN-TES
INCLUIR
MODIFICAR
1
í
i
tR E V I S A R
1i
ií1
PACCIEN-TES
BUSCAR
SECOM C. LTDA.
SISTEMA
MEDICO VER. 1.8
OBJETIVO: CONSU
T
NOMBREm — —
iMDENCCQN !
FEC_TRft
TIPO í
NUHERO Í
CODPAC '<
HOTIVO !i
ASOCIADO [
MDTRAHED 1}
FEC TP.A j1
TIPO iNUHERO Í
CODPAC 1j
MDTRAENF iiFEtLTRA i
TIPO 1j
NUMERO i
CÜDENF j
iHOMBRE ii
f F í í! PROGRAMA i PROGRAMADORES JPAG.j DE\- ..i_---i-i-T ir , t •>•••— •<—> • , A. fc
i i i i| TRACON i SILVIA VELASTE6UI V JAVIER PÉREZ ] 1 ¡ 2
.TAS, INGRESAR, MODIFICAR, E L I M I N A R V CONSULTAR DATOS
ENTRADAS
TIPO CLAVE ! DESCRIPCIÓN
1INDEXftDO FEC TRA+CODPAC ¡ARCHIVO DE CONSULTASi
ÍVAR. DE FECHA DE CONSULTA
Í V A R . DE TIPO DE CONSULTA
ÍVAR, DE NUHERO DE CONSULTAi
íVfiR. DE L.ODISO DEL PACIENTE
i !VftR. DE MOTILO DE LA CÓNSUL.í !
ÍVAR. DE ASOCIAR CON DQCUHEH.i
INDEXADO ¡ARCHIVO DE RENG.DE CON.HED,iÍ V A R , DE FECHA DEL DOCUMENTO
i íi ¡VAR. DE TIPO DEL DOCUMENTO
j i VAR. DE NUMERO DEL DOCUHENTO
ÍVAR. DE CODI60 DEL fiEDICAH.í
INDEXADO ! [ARCHIVO DE REN6.DE ENFERHED.
ÍVAR. DE FECHA DEL DOCUMENTOi iÍVAR. DE TIPO DEL DOCUMENTOiJ V A R . DE NUMERO DEL DOCÜH.
ÍVAR. DEL COD.DEL 3INTOHi
SALIDASf 1 !
TIPO CLAME t DESCRIPCIÓN; jHDENCCQN 1 INDEXADO i FEC TRn+CODPAC i REGISTRO DE LAS CONSULTAS
i ' !HDCTAPAC |
HOCTftENF Ít
'NDEXADO f CODPAC ! REGISTRO DE LOS PACIENTESIINDEXADO CODENF ¡REGISTRO DE LAS ENFERMEDAD.
íHDCTAHED 1 INDEXADO CODHED ¡REGISTRO DE LOS HEDICítHENT,i iMDCTADES }
i
PANTALLA !tí
1
ii
NDEXADO CODfiEM j RE6ISTRO DE LA HIST.CLIN1.
i I DESPLEGAR DATOS CLÍNICOS}iíIii
1 1
i 1
SECOM C. LTDA,
SISTEHft PRÍKJRflHft-*-
PROGRAMftDORES :Pftó.¡ DE
REDIGO V E R , 1 .6 T R A C O H i S I L V I A VEUSTE6UI V J A V I E R PÉREZf !
08JET1UO: C O N S U L T A S , INCLUIR, M O D I F I C A R , ELIHINítR, CONSULTAR D A T O S
D I A G R A M A DE FLUJO
SECOM C. LTDA.
SISTEMA PROSRftMA PROGRAMADQRES PAG.¡ DE
REDIGO VER. l.e ! REP! SIL V I A VELASTE6UI V JAVIER PÉREZ I ! |
OBJETIMO: ¡tíPfilMIR LISTADO DE PACIENTES
E N T R A D A S
NOMBRE TIPO CLAME DESCRIPCIÓN
D C T A P f t C IHDEXADO C O D P A C A R C H I V O DE P A C I E N T E S
S A L I D A S
NOMBRE TIPO CLAME-t-
DESCRIPCION
I f lPRESOPA
PHHTftLLA
& I SCO
¡?LAÍJ DE C U E N T A S DE P A C I E N T E S
D I A G R A M A DE FLUJO
*V
P A C I E f J T . I Í h*
i!
»Í >!IUPRESORA
/— N
-H DISCO /
SECOM C. LTDA.
SISTEMA PROGRAMA PRGGRAHADORES ¡PAG.1 DE-* »
HEDICO VER, 1.8 I SILVIA VELASTÉ6UI V JAUIER PÉREZ M i l* *—
OBJETIMO: IHPR1HIR HISTORIA CLÍNICA DE UN DETERMINADO PACIENTE
E N T R A D A S
NONBRE TIPO CLAME DESCRIPCIÓN
HDCTAPAC
HDCTADES IHDEXADO
CO&PAC
CODHEH
A R C H I V O DE PACIENTES.
ARCHIVO DE HISTORIAS,
S A L I D A S-t-
NOHBfiE TIPO CLAVE DESCRIPCIÓN-i
¡PLAN DE C U E N T A S DE PACIENTESIMPRESORA
P A N T A L L A
D I S C O
D I A G R A M A DE FLU^O
f P A C I E N T .
( H I S T O R I A / V-
i
»l »*f *
!
IHPRESORfl
s —
SISTEMA
MEDICO VER. 1 .
OBJETIVO: IMPRIHIR
SECOM C.i f1 PROGRAMA !
LTDA.
PROGRAMADORES JPAG.Í DE
t í ! >8 í REP3 í SILVIA VELASTE6UI V JAVIER PERE2 M i l
LISTADO DE CONSULTAS
ENTRADAS
NOMBRE
HDENCCON
NDCTAPAC
MDTRAENF
HDTRAHED
HDCTAMED
«DCTAENF
! íTIPO ! CLAVE DESCRIPCIÓN
INDEXADO ! CODPAC + FEC^TRA ARCHIVO DE CONSULTAS.
INDEXADO i CODPAC ARCHIVO DE PACIENTES
INDEXADO I CODENF ARCHIVO DE ENFERMEDADES
INDEXADO í CQDKED 1 ARCHIVO DE MEDICAHENTÜS
INDEXADO i CODMED ARCHIVO DE MEDICAMENTOS
INDEXADO CODENF ARCHIVO DE ENFERMEDADES¡
* i i
S A l_ I O A S
NOMBRE
IMPRESORA
PANTALLA
DISCO
TIPO CLAVE DESCRIPCIÓN
PLAN DE CUENTAS DE CONSULTAS
I
DIAGRAMA DE FLUJO
ENC TCON M
1
CTA CPAC E
ÍA IRAID ENF
i
. iJ-
A CTfiÍF HED
í MPANÍALLA^
t
I IMPRESORA
M '"~"
SECOM C. LTDA.
SISTEMA PROGRAMA PRQGRAMADOREST T¡PAG.' DE
MEDICO VER. í.8 REP4 SILVIA VELASTE6UI V JAVIER PÉREZ
GBJETIUG: IMPRIMIR LISTADO DE SINTQMATQLQG1A
E N T R A D A S-f-
NOMBRE TIPO CLAME DESCRIPCtON
HDCTASIN INDEXftDO CODSIH 1 ARCHIVO DE SÍNTOMAS
SAL IDAS-r
NOMBRE TIPO CLAVE DESCRIPCIÓN
IMPRESORA
PftNTALLft
DISCO
IPLf tM DE C U E N T A S DE S Í N T O M A S
D I A G R A M A DE FLUJO
S Í N T O M A S
P A N T A L L A
t*
ij
bi hí1
IMPRESORA
/" N.
-M DISCO
SECOM C. LTDA.
SISTEMAT íI PROGRAMA ! PROGRñMADOftES ÍPAG.! DE
! ISILVIA VELASTE6U! V JAVIER PÉREZ ! 1 | 1«EDICO VER, 1.8 REP5
OBJETIUO; If lPRIHIR L I S T A D O DE ENFERMEDADES
E N T R A D A S
NOMBRE TIPO CLAUE DESCRIPCIÓN
HDCTAEfJF IHDEXftDO CODENF &E EHFERHEDADEÍ
SAL I DAS-t-
NOK8RE TIPO CLAUE DESCRIPCIÓN
IHPRESGRfl
PANTALLA
DISCO
¡PLAN DE CUENTAS DE ENFERIED.
DI A G R A M A DE FLUJO
(ENFERME\S \A \
k*IMPRESORA
x— v
SEC C. LTDA.r
SISTEMA PROGRAMA PRQGRAMADORES PAG.! DE
HEDICO VER. í.8 REP6 SILVIA VELASTEeUI V JAVIER PÉREZ í ! I !
OBJETIVO: IHPR1HIR LISTADO DE HEDICAHENTQS
E N T R A D A S-r
NOMBRE TIPO CLAVE DESCRIPCIÓN
HDCTAf lED A R C H I V O DE ME&ICf tHEHTOS
SAL IDAS
NOK8RE TIPO CLAUE DESCRIPCIÓN-tIPLAU DE CUENTAS DE HEDICf tM.i
IMPRESORA
PANTALLA
DISCO
DIAGRAMA DE FLUJO
f \A \-
V HENTOS
t*IMPRESORA
/— N.
-N DISCO /
SOOIGODOCIMS
9*8
*/ Nombre : LIBOO.PRG
*'/ rfescr-ipcián; Programa principal del sistema, invocado
PétrsLmeftr-os PP1
Definid?' V<=tria.bl&& Publicas
AlmsLcetnef . F. &.
EN_ CAR, E&_AEK* JEKL^ytf „ SN^&JR* SNLGET* JEV_ INF* BL-PRO* GLXEYOFF
{J -a
a 1
igual a [
G_PR1MERA
a
igual a ,T.
To G
. T&
XERF? && Jgual . T-
SJ ÍSNV3
XSKR = .
INo
CLAVES
GESTJQN*LA_GESTI&N
Val(PPl)
OPCIÓN = 2 O OPCIÓN - ,5
Retornar-{I )
OPCIÓN = 4
OPCIÓN - 5
Re-1 ornar (3)
OPCIÓN = 6
Haga. &MOWJLO.
Fin S&l&ceion
*/ Nombre: LIBO2.PRG
*/ £fe&crif>c±ón: Programa principad del sistema, ínvoc&do
•#/ desde el sistema PASCA!,
PP1
&j*&& a 2&£t vwJabJesst si»*? a#j*iflj*at3 para
= f J
a
__ CAR* £N,
f J a
STORE O TO KK_OP
a
3
O -a $OFFSBTF¡\ J , XOFFSETI,^ RR_SALFTC»
» £N_RIJÍ* ?_ CAR .. S_ CLJ , £&_ABR, H
* SALTAR
f j To
3ME+ EXPA
Campo J.
Campo 6
Ordení
OrdenS
Dispositivoí
DÍ£f£*O&Í tÍV&2
C Emitir informe #le
C Hodific'SLr' p&.r'ént&troB
C Dispositivo J
C Orden ]
C Faotor ]
C Código ]
í Fectta. J
[ pantalla J
C impresor J
a
-T, a É _
PANTALLA
Ote torna j*
tzffdJjnJ&ntoi OPCIONES
OPCIÓN = 4
H&&& Ga¿3a_jBi3>j!T
OPCIÓN = 2 .
OPCIÓN = 5
OPCIÓN - 6
Hagzí &MQDULO,
Fí. nS&lecc i on
Retornar
•V Nombre?: LIBO3.PRG
#/ Descripción; Pr&grama principal d&L sistema, invocado
•*/ d&sd& m.l sistema Pascal.
Parámetros PP1
Asignar vF&lü<r&& -a l-stás s-<aj"iJa¿>-2í?.s! <
&/iaj* - F. a
GJiaJ* [J To
Haga S&tL-tfoao
Haga SET^C&L coa
Color a (F_mOHLí
a GESTJiW, GL&
a GiJiAY^SMP* G_MAY_GES
Haga PANTALLA
Ute tornar
Procxadlmianto GPCI€89BS
OPCIÓN = 1
J&? tornar ( O )
OPCIÓN - -5
APAGAR
Haga GANA-BÜK
OPCIÓN - 2 .Or.
fte tornar (1)
OPCIÓN - 4
Rs tornar ( 2 )
= 3
OPCIÓN = 6
Ejec-ut* &MQI3ULO.
FinS&l &c-c- i cuj
Ejecute SinOOOO
Retornar
•*/ Enfermedades
Procedimiento ModOlO7
Ejecute Ent'OOOO
Retornar
*/ Directorios
Procedimiento ModOlOS
Ejecute DirOOOO
Retornar
/'/ -O£.TÉ?£/ i jo J &n to K
P3 == [Bi?SY3
? ^ Ej&c-utar
FinS&l &GC-Í oit
FínSJ.
#X Programa. _TmeOl
#X Fün&J&n Programa tí» prot?et¿fjHuf«tt£a& para &J
•#
TraOO&O
ItíaOOOO
s Pl „ /*5%
SeJ&cc-Jom
c-Jcw P3 =
Fanoion HK^DIR
Parámetros PATH. FLAG
Detclar-ay Variable Privadas
Si VALCAMl(PATH)
ERROR = O
Si .'FLAG
ERROR -
Sifto
- J a LEN(PAJH)
& ERROR - O
= GGW -+ ^f
&cute Mj&ntrast
Sí ERfSíffi = -5
Salir-
SANo
GONT = Ct'WT •+
FinSS
FinSJ
#/ Nombre: VALCAMI
tíe?
*
Ftenc-J&ti VALCAMI
fre* r ¿>¿* £
#X Programa _L±bO3
•*X Fltn&ioft £*i*&<g£*amat de a el
*X Opc-Aon VarJos
-afoJ*? /*j*j K
EJec-ute AxEkm COM @6*33ivG&fíj>£
Mientras . T,
a (P_Achoi&e)
{ £*&s3&j*¿ír Arc'hJvos 3
O&c-J&n I Jifaor&anJ&ar J
Menú a La__Qp&
Si La—Opcr = O
i La_Opc- = 3
SJec-ute
SJflo
SJec-ute
PinSJ
FJnlSJ&c-ute
*X Programa Bd±tor,Prg
•*/ función B>dia.r
ConOOOl
* Variables d& Ambi&nte
Bec-larar tfa.rtafr.Je Privadas
JfófeAv „ JTOf i---/ J ,
&u&a *
JKflfaafore, JtFeíí_
BSonal
ífe
Store Date () a BFec^Tra* BFeoha
St&r-et Spstc&fl} a ¿SSexc*, BOivil* Bfn&tjruo*
BT±e?n&__ífov. BMarca
Store Sf>ac&(2O) a BLugai*-* JEV&M/pa,
Star* O 3
Store ¿
.a
V&FJ&M& ist LG&dPat?
ierta [15]
HTltfJJ aa Jgual
&&
&& igual Jfaplivat&f [XJ* 4O)
HCa»[lJ && igual [CodPacl
J && igual
SJ
í? -a £3,.
SU! ai* Ctan
FinSi.
Cerrar (CCTAPAC 3 )
Retomar
Procedimiento DefCon
* ftefinicion de variables de memoria.
Retornar
Procedimiento AsgCon
* Asignación de b&&e -a memoria
Si !Rec-._loGk(5)
K&ybo&rd E
SiNo
XCfodPac-
XF&cha
&& JgustJ
&& JguaJ
&& Igual
&& Igual Edad
XTJp_Saa && Jgual
&& Jtgual
&&
XT&l&fl T&l&fl
XTelet'2
XZon&2
XTelefS
XZonaL'3
e& igual Te le f 2
es igual Zonal
e>s ígix&l Zona.2
es igOA 1 Nombre 1
es igual Telet'3
es ±gu& 1 Seguro
ea
XRet'er e& ±&ustl R&fer-
XTíene_Mov es igual T±en&_Mov
XMctr-csí es igtt& 1
Selecciones CtñDesf
sitúese en XC&dPstc
&&
FJnSd
Ute tornar
SttJ** Spac&(lO} .)
GtaPac-
GadPac-
Cl
a
Gtin XCbdP-ac-
Con
Con XSexo
Con XGJVJ1
Gwt XLugar
Reemplace
Reemplace
Reemplace
Reemplace
JteevJace
Reemplace
Reemplace
Reemplace
Reemplace
Reemplace
Reemplace
Reemplace
Reemplace
Reemplace
Reemplace
Reemplace
Reemplace
Reemplace
Reemplace
Reemplace
Seleccione
Fecha
Edad
Peso
Tip_San
Estatura
Instruc
Ocupa
£ "ti red
D±rec2
Telet'l
Te le f 2
Zonal
Zona2
Hombre 1
Telef3
Zona3
Seguro
Tip_Seg
tfom_Seg
Refer
GtaDes
Con
Con
Con
Con
Con
Con
Con
Con
Con
Con
Con
Con
Con
Con
Con
Con
Con
Con
Con
Con
XFecha
XEdad
XPeso
XTip_San
XEstatura
XlnBtr-uc
XOcupa
XDirecl
XDirec2
XTelefl
XTelef2
XZonal
XZona.2
XNombr-el
XTele±'3
XZ*na3
XSegur-o
XTip^Seg
XNo^Seg
XRet'er
Si ,' Modifica
AddL.Rec(O)
Sitfo
FinSi
Con :•
Ejecute Imp_Fichsi
R&tarn&r
Procedimiento
Ejecute AxBox Con O6, OO, 23, 79
Ejecute SxBc'X Con OS, Oí, OS, 78
despl&gátr titulas en Ist
Retornar
Procedimiento DetGan
XCivil es igu&l Civil
c! es igual In&truc
Nombre
TJ. ft_ San
E&tattsr-a
T&J B££
Desp 1 egar 2ona 1
Desplegar Zona2
Desplegar Nombre 1
Desplegar Te le f3
Desplegar Zona3
De sp 1 ega r Se guaro
Desplegar Tip¡_Seg
Desplegar ttom_£&g
Desplegar Re±er
Retornar
Procedimiento GetCon
* Seal isa los gets en la. pantalla
Almacene . T. a
Ejecute prender
Ejecute Mientra
Store .F. a Sn^Get
Ingrese XCodPac
Ingrese XNombre
Ingrese XFec^ Tra.
Ingrese XSexo
Ingrese XCi vil
Ingrese XLugar
Ingrese XFecha
Ingrese XEdad
Ingrese XPeso
Ingrese XT±p__San
Ingrese XEstatura
Ingrese XInstruó
Ingrese
Ingrese.
Ingrese
Ingrese
Ingrese
Ingrese
Ingrese
Ingrese
Ingrese
Ingrese
Ingrese
Ingrese
Ingre&e
Ingrese
XOcixpa
XDi rae 1
XDi rec2
XTe 1 efl
XTe 1 & ±'2
Xffombre 1
XT& 1 e ±'3
XSonstS
XSeguro
XNom_Seg
XRefer
Ejecute
Retornar
Procedimiento BasCon
Declarar Variable Privadas BfJondieion
Etesfflíegue BDired
£*esf>liegiüie BDirecS
Despliegue BTelefl
Despliegue BTelefS
Desftl i egue BS&na. 1
Despliegue BZonaS
Despl i egue BNombre 1
Despliegue BTelefS
Despliegue
BSeguro
Despliegue BTip_Seg
Despliegue Bff&WL-Seg
Despl i tugue BRe fer
Ejecute prender
Ingresa BCodP&c
Ingrese? Btfombre?
Ingrese BFec-_ Tra,
Ingrese BSexa
Ingrese BCi vil
Ingrese BLugar
Ingrese BFecha
Ingrese BBdad
Ingrese BP&so
Ingrese BTip_San
Ingrese B&staturst
Ingrese BIns t ruó
Ingrese BOcupa
Cto - , tCJ)+
F. , [DJ )
T. f Lugar Jf / J, .F. f fC})+;
Cb_Con(BBclad* * {=}* .F. ,
FitiSi
Cb_ConfB&&&0» {Peso},. {=J9.F-f
Ch_Gon(BT£p__San* fTJp^SanJ
,. {Sarta tura]
.F. * {
J, .f. ,
[€])+;
fCJ)
tope &&
fundo && ig
CoJD&r- &s
CtontLJJí &&
Retornar
4O
a SU
Retornar
Ite&larar Vari ahí e Privadas XP
Centrar ({HISTORIA GX*ltilGA}fO&1.ÜOf
tj- &sr igual
f Privadas
Ej&cute AxBox Con 21,65,23,79
Imprimir '/mpr-zme £ J '
prender-
Ejecute Apagar
Si fEseapar-f) .Ana. XSlNa=fS}
FinSi
Jte tornar f . T. )
•#" Va 3 i tía/*
R& tomar- ( . T-
-*" Validar &2 &&XG
l& Pr-lvadast Jfe
- Arr-lbar-
jffit? toma
ffes - .
itia
FinSJ
Jfe t&rxiai - (Jifas )
Fundón CJvJ
K&s = .T.
Si €hr(La&tkey(
Jt& tornar- (R&a
Jril ¿nráJJdo
& = .F.
SJJ90
Dctapl&gar-
FínSi
. CJ v
ti\*£t& Xx
Xx =
FlnSj.
( ¿ - O
F.
dríl = ÍSJ
&& - SJ (Xxf í Sol
.f*a JSCJvJíl = fCJ
J
XJtes - SlfJ£xffGa&aJ£j&£t-ut# 7, fastaEJec-uti*
Sel&cvJon XCJvJJ = [VJ
SR&si - Si f Jtv , I Vi u£/ecu £<? J , í j uSj&cu te-
Se lew ion XCivSI = [DJ
u* fJTJfa& )
ea = .F.
SiNa
FinSi
G-Ján no ifálJda
Xx
Si PeountO =
Xx = .F.
F±nSi
Ejecute Selecci
S&1&CV2Í&& Xln&truc- =
XReta - $J(Xx-»fF
S&l&cc-lcw Xln&truc- =
XKaat = Sj(Xx*
= fSJ
x*
FifíS&l ec^io
} }
3)
Va f Jabí» FjrJvadas
_ T. a Jte&
SJ Chr( Lasttir&y( ) ) - Arriba
Jt» tornar (Ras)
FinSi
R&3=. F.
Si XSegur&ffSN]
&=. T.
FJnSJ
Re torna
Función
Si Chr{L&S3tkey( ) } = Arriba
Si XSegura~tN]
KeyBoar-d Ar r i ba-t-Arriba
FinSi
FinSi
Retornar(\ )
* Programa Se IPac. Prg
Procedimiento Ser2Pac
Declarar Variable Privadas
Ejecute Apagar*
CCaaapoCH es igual CCodPac]
CGaoapo[2J &s igual [Nombre]
CTitCU es igual Pacl( CCódigo], IQ)
CTitC2J es igual Pad( CNombre del Pac i en te 7, 4O)
CffascClJ es igual [XXXXXXXXXXJ
CM&BCC2] es igual Replícate(CXJ, 4O)
Si AbrirfCCTAPACJ, [MDCTAPAC], CS}, 16)
Si Se2ectores(CCsoo(po, Gffasc, CTit, lO, 2O, 12+ <S<?,
KeyBoard CodP&c
FinSi
O&rrarf [CTAPACJ )
FinSi
* Programa : Se 1 fiinp. Prg
* Función: Selección de Ebrpr&sa
Procedimiento S&
Declarar Variable Privadas
XAlias=Select( )
Dec2are U2t_R&^llB3^ U2t_2nd[153* Abierta [15 3
'Í^J = [Canina 2
KTJtfRJ
RTi t[33
jB»
SELEGT&R
= A2JTj*Js»fCaaÍMct)-f[\3
FJnSi
FinSi
Retornar-
#/ Programa EdcMecl. Prg
••*;/ Fíioc-ioa Sdiar d&l Pl&a de
MedOOOO
Varjabl» PrJvada& XCa
Varí atol» Privadas XC
ar VarJabl&&
Declare Vlt_fBecf J-5J, Ult^l 3^ Abl»rtafl5J
Sí Abrir ( fCTAHEDJ , [MDCTAUED. /KFJ , [SJ , 1 7, [HDGJMEX* J
Ejec-ute
Coa r .T.
Cerrar ({CTAME&J
Ke tornar
Jaic-Jali&ar Variables
R& tomar
Pro&ediMlento A
•#" Asignad ojs
Si iRec^lo&*-(lO?
Keyboard E&c-a&e
Asignar Variables tie Ja .Baja*? a Variables de Memoria
FinSi
Procedimiento
Asignar Varlal*3&& tte
Jfa tornar
ra a 3a
e&ut& AXBox Gcun C&S* 1 7, 21 , 63
Sxbosx Con 11
>£M?tÍJ JW J ÉM J ¿¿i í'í>tiftfe?íí
O>» tl*ín = tope
Jte tornar
R& tornar
Ja
Procedimiento Gettfed
Almacenar .T, si En_Get
Ejecute Mientras En_fJet
Almacenar . F. a En_Get
Aceptar Variables
Si Sn_Get
Ejecute Getdoble
FinSi
FinEjecute
Retornar
Procedimiento Bu&Med
Declarar Variable Privadas BCondicion
Aceptar Variables; de Bvt
Ejecute prender
Leer
£Jec-ut& Apagar
SI ÍSstcaparf )
ABCoaái c-
Función VIncMed
Vs.1 idsir Inclu&±on€?¿
Retornar(. T. )
Fuño ion VE1±M&d
V&lid&r Elim±nst
Retornar (, T, )
X*
Re torna, r
Procedimiento RplSin
Grabar variables de Ja Memoria a Ja Base
Retornar
Procedimiento MasSin
Ejecute AXBox Con 08*17,21.62
Ejecute Sxbox Con 11,18,11*61
CentrafCSINaMAaLOGIA]* O9, 34, 46)
Co 1 or ( P_ Inverso )
@ W,l& rte&plegar Ha.s_Sub
Color (P_Normal)
* tope- 1 + Gol l&q Ite&pl&gar
tope - J5"
ColJ&v = JS
fondo - 2O
GollUer- = 61
CotitLin -
Vstj*J&fole& ííe Ja
Procedimiento GetSin
Almacenar - T. a En_Get
Ejecute Mientras En_(3et
Almacenar . F. a
Aceptar Vari bales
Leer
Si
Ejecute
FinSi
FinEjeoute
Retornar
Procedimiento Bu&Sin
r>ecjEar-ar- Variable Pz-ívada£r BCondicion
Aceptar- Eíar-iafoles de Búsqueda
Ejecute prender-
Leer
&&3 pa J"
.. . T.
FlaSi
El i S Ja
Fuñeion Vine Sin
Validar Inclusiones
Retornar(. T. )
Función VEliSin
Validar Eliminacione¿
Retornar f.T. )
*/ Programa BdcBnf-Prg
*'/ FüMG-lon Sdiar dal Plan da Cuantas para
Procadiatl &n to
Color (f^Narm
Ite&larar VarJal>l& Privadas J8Cte
Ite&Jaraj* Varíatela Privadas XCodEnf* JtJ9oubir&
Itec-larar Varíatela Privadas LG&dSnf
Ini £?i al i&ar Variatel as
Sí Abrif*(l€!TAS&FJy ftffJGTAENF.IffiF'J, l$J*l 7, ffffJCTSNXlJ)
&&8r J 7 Limpí&r ¿'1 , fíST
E 'j 'actute ItefEtif
MJacfuta Editor Coa ££KFJf .T. rHCaM1tJ&ta&fHTit1. .F.
Cerrar ( [CTASNF3 )
Fl/tSi
tomar
Procadlalanto Ite
Inic-ialisar Varíatelas
Procadistianto A&gJSnf
Si !fte*_ 1 o£fJf( 1 0 )
Sayteoard Msc-^tp^
Sitio
A&i&nés Valoras de- las Varíatelas da la Ba&& .a J.a
ffaaioria
K& tornar
Procedimiento Rf*lSnf
Graba Loa Va Jarear d& Ja^ Variables £&? Memoria a Ja
Retomar
eiJ4ii&nto HaaSaf
SJevute AXBox Con OS* 1 7, 23. , 6£f
e&utG Sxbox Con 11 „ Jáf, JJ „ 5J
tO£*ff = 12
Co2I&v = 18
Fondo = 2O
C&lDer = &1
Coa tL>i n = fcope
)
tope- J , Cb J I^íj Ife?^pJ &g-as* Jtep2 J. c-a t& ( [— J , Gollter- Col l&^-f- 1 )
GadSnf
GetSnf
a En_,Get
Ejecute Mientras En__Get
Almacenar . F. a En__Get
Aceptar Variables
Leer
Si Ert^Get
Ejecute (Jetdoble
FinSi
FinEJecute
Retornar
Procedimiento Bu&Enf
Declarar Variable Privadas BGondician
Aceptar Variables- par-a Búsqueda
Ejecute prender
Leer
Si ! Escapar ( )
, .F. , [CJ
EJtsc-uts
Vloc-JEbf
* Validar
Retornar(.T. )
Función VeliEnf
* Validar Eliminacione
Retornar ('. T, )
Procedimiento
Grabar Variables de Memoria en la Base
Retornar
Procedimiento MasUs&
Sjeoute AXBox Con 09,16,19,62
Gentra( COONTROL DE USUARIOS] , W, 16,62)
Co 1 or (P_ Inverso )
@ 11,17 Desplegar Haz^SubfHTit)
Color { fP_Normal )
y Gol 1 *
=13
Ca>2ísq =17
fondo = 13
= SI
Ejecute Mientras En_Get
Almacenar . F. a. En_Get
Aceptar Variabes de Memoria
Leer
Si En__Get
Ejecute Getdoble
FinSi
FinEjecute
Retornar
Procedimiento Bu&U&s
[Declarar Variable Privadas BCondicion
Aceptar Variables de Búsqueda
Ejecute prender
Leer
Si ! E&& ,
!tJK&yf [CtlK&y 7> f^7, . T. , [CJ
[JtiJ* f^J, -F- , fCJ)
FJaSj
-J oa VlncUss
Retornar ( .T. >
Función
Retornar (.T. )
•*;/' Programa TraSnf, Prg
*/ Función Editor- S&oundario de Consultas
(Enfermedades )
Procedimiento ZtetErtf
Inicializtar Variables de Memoria.
Retornar
Procedimiento A&gEnf
Almacenar Variables de la Base a la Memoria
Retornar
Procedimiento RplEnf
Grabar Variables de Memoria a la Base
Retornar-
Procedimiento MasEnf
Color (P_lnverso )
@ 12,02 Desplegar Has__Sub ( RTit )
Colar- fP__f/oraíal )
o GrtíEnf
= OS
- 2O
GontLin = tope
R& tor-
Procedimiento Det-Enf
@GontLin*O3 De&plegar Pad(CodEnf,8)
@ContLin* 14 Desplegar SubStr ( NomEnf ( CodEnf ) , I, 25
Retornar
Procedimiento G&tEnf
Almacenar - 2*. a En_Get
Ejecute Mientras En_Get
Almacenar , F~ a En_Get
QContLin,O3 <3et XGtidEnf Va lid XCodSnf <> " "
Ej e e ute G& t do ble
FinSi
FinEjecute
Retornar
Procedimiento Bo&Bnf
Declarar Variable Privadas BCondicion
Aceptar Variables d& Búsqueda
Ejecute prender
Leer-
Ejecute
Si ?
e EL±_Reg
Retornar
Función VIncSnf
Retornar ( ' . T- )
Función VEliEnf
Retornar ( .T. )
Función NomEnf
P^r-aifífítros Cod
Declarar Varíablet Privadas Ret&
ias - Sal&c-tO
c-t CtaEnf
SeJec-t (Ul tAMa
*X Programa TraPr&.Prg
*'•/ Función Editor Secundario de Consulta
Procedí miento OefPre
Inicializar Variables de Memoria
Retornar
Pr-c'G&climi&nto A&
As i ganar Variables de Base a. ífeazor-ia
Retornar
Procedimiento RplPr-e
Grabar- Var-iabl.es; de Memoria. &n la Base
Retornar
Procedimiento Ma&Pre
Color ( P__ Inverso )
& 12,41 Desplegar Haz_Sub(LTit )
Color (P_fformAl )
é* Tope- 1 ? Gol Ixq ItesBrpJ &&&£* JtopJ j t?.a fre? (f—Jr Í5? J AÍJ— í'-ol J^
= 2O
= 7&
Cuntida = Ttope
Retornar
Procedimi en t o L*e t-Pr&<
¿? L>e&i>legsir Pad(CodMedf&)
inf54 Desplegar SvibStr ( NomPre ( CodMed ) , 1.2Q)
Procedimiento GetPre
Store . T, To En_Get-
Ejecute Miisntr&s En_jGet
Store ,f. To En_Get
FinSi
Vard&fol& íírJ vadas
! JSsecrapar ( )
Procedimiento El±Pre
Ejecute 81i_Reg
Retornar
Fuñe i on VIncPre
Retornar (. T. )
Fuñe i on VE1 i Pre
Retornar (.T.)
Función tfomPre
Parámetros Cod
R e
Sub$tr-(Sj£ (Foumtf ) , NGafore
*/ Nombre del Programa : EdcCol.Prg
*/ Función; Editor- de Colores para Usuarios
Proced±m± en t o Co 1 OOOO
J#bl& Privadas
ja „
SJ AhrJr(fGTAUSRJf [tSBGTAUSR.IffiFJ* [SJ, 1 7.)
r_ Col ( $
FinSi
FinSi
Ini e Jal i a Va j* Jabí &&
Procedimiento Rp*l_G&l
Graba los Los Contenidos en Ist Base
Color fP_fformal )
Olear
EJec-ube Boxi-Pan
Pr&i?>etiJsisl ÉMÍ tt? Pan t_ C'ol
Col&r (Ti_Hor£33l )
O&r OO LínpAar- 2O* 79
C&/iti*a([ S&ICIGN COLORES
Col ¿JJ1 (P_
O£ Xte&pl&gas* {Fton&ián
[Color]
ftfap&J
74 fíastplagar
Q&r Oí Ite&pl&ear- f Maraa J .' 3
, Oí Zfe?-spJ &gar I Jn i>r&j*£tc> : 1
l£f&f}£S&je: J
[Titulo*: 3
&179Q3 Ite&pl&gsu* í tf&nü:3
f
Si I
&O9,. 34 Desplegar [Negro
#10*34 D&splegar [Azul
#1 1,3-3 Ite&plegar {Verde G}
&l£f 34 Desplegar [Ciano BGJ
#13*34 Desplegar /"Alijo R}
4 Ite£tpl&&aj* fffagtt&t& JÍBJ
4 fíe&plegaj* {GaataJÍG GR]
[Amarillo GR-+J
#l&f34 Ite&pl&gaj* f Video IMV&I*-&Q 1}
sul Brillante &+}
r.&5 Xte&plegar f Verde Bt^-i liante &tj
2*55 fíe&plegar fClano Ur-jJJ-a/jt^ &G+J
g&r {Jtoj& Brillante R+3
t~a Brillante R&+]
r55 Be&plegar [Blanco Brillante
Q&*34 Xte&plega-r f Negro
t& B]
*34 De&pleg&r IBlan&o G3
#1SV34 Destpl&tsar [Blanco BG]
&13y34 l¡&&pl&gar {Blanco R3
Ite&plegar [Blanco RBJ
U&jaeplegar {Blanco £&}
#16*34 Ite&plegar [ Blanco WJ
#17^.34 fíeaplegar f Negro &+J
,34 Desplegar [Blanco Brill- GR+J
@19, 34 Lte&plegar C Vídeo Inverso I ]
&1O.55 Desplegar CSubrayaEj&cute Brill. B-f-J
&11,55 Desplegar [Blanco Brillante G+J
&12,55 Desplegar [Blanco Brillante BG+]
&13.55 Desplegar [Blanco Brillante Ñ+J
$14.55 Pe&plegar [Blanco Brillante RB+]
&1&.5S £fespl&gar [Blanco Brillante W+]
FinSi
Retornar
#&ute Apagas*
S&l eco i &n Cu a 2 =
el &&c i &Jt3 C
Sel eec-J ¿>/i Cual =4
f Normal ;
&1 1 „ Oí tito &p 3 *? a 2- [ Ja wer&o : }
l&tttl&n Cual =3
Color- (DHighl)
&15.OJL Desplegar [Títulos:}
Selección Caal~G
Co 1 or (DAcho í ce )
@Í7,Q1 Desplegar C M&nú: J
Selección f.~faétl~&l
Color- (DCaja )
&19..O1 Desplegar L Marcos:]
fi nSe 1 &cc i on
Color- fP_ffonoAl)
Retornar- •( , T. )
Función Conf±r_Col
Dec l&r-ar' Va.r-±Sihl& Privadas Res,
Res = .T.
Eje&ut* AxBox Ctw» JG+SO, 13*53
Color (P_Ac-holcfe)
&17,,£3 Rromp I Aceptar J
SI 7> 31 Prcotp I Ganc&laj* J
&1 7f 31 PjYSfflfp f Aít&ptaj* Itefaifl t J
M&nu TSJ La
SJ
DlfflERSQ
I3HSNSAJS = [N/WiNsW
ffllGHL = f»*/1i»Nf<
VCAJA = F_NC*J&iAL
DACHOICE =
D2NVERSQ -
SAJS
EH1GHL
IJCAJA
IXACHQJGE
FinSi
Re- tornar {£'&& )
•V Programa EdcCon.Prg
*'•/ Función Editor de consultorios
Procedimiento ConOOOO
Variables de ambiente
Color (P_Normal)
Declarar Variable Privadas
Variables de Búsqueda
Declarar Variable Privadas
Definición de variables de búsqueda
Inicial izar Variables
Variable de regresión
Declarar Variable Privadas LId_e?mf>
Af i 11( Abierta. - P. )
Si Abrir(CCTAGQN], CMDCTACQN, DBF], fSJ, 17)
»O79O3 Limpiar 22.75
Ejecute DefCon
aJtxu* Cuta {Gcui}* -F. *HGauu,.J£taa*}iTJtr
f fCTACONj }
s t3&
SJ íJfacL. -? ocJf ( 5 )
K&ybaa.r-d escape
Si No
Asignar Valores de J¿? Ufase & Memoria
FinSi
Procedimi en to Rpl Con
Asignar Valor&si de Memoria a Ja h
Si ÍModSHca
Si JiÍL_&ir(XCamin0f .T- )<>2
G_ CamifSí.T' = Al 1 Trim(XCajaino )
SJec-ute Ge
SeJec-t CtaCon
Sifto
Menaaj f fErr&r eJ &i&t&Ba no pudo LT-
íiir&cf torio íte tía t&&. - ~ f j , O)
UnLock
Ejecute El±_R&g
F±nS±
<5_ Camino - A 1 1 TrimfXCamino )+ f\J
ífjt? tornar
ftaff&ara tfe Ja pantalla
JSJec-ut* AxBnx- Con O7, 05, 5í?, 75
8 Itesp>l&&ar f fiambre del Consultorio; J
QS*G7 Re&pl&gar fltis J
&J.OS Ite&ple/g&r [Vbic-ac-ión d& los datos; J
@10, 21 Desplegar- [Dirección: ]
&11,21 Desplegar [Teléfonos:]
@12,14 Desplegar [Dirección postal: ]
&13,27 Desplegar [Fax: ]
@ÍSf 13 Desplegar [Nombre del Bjecutector: }
@16,1S Desplegar [Especialidad: ]
@17.,O8 Desplegar [Dirección Ejecutemici liaría: ]
®18.r'21 Desplegar [Teléfonos: J
($19,14 Desplegar [Dirección postal: ]
&2O,27 rte&plegar [Fax: ]
@21,2O Desplegar [Referencia: ]
Color (P^fformal}
Retornar
Procedimiento DetGon
Presentar los campos en 1&. pantalla
Color (P_Normal)
&&»&&& cít? Ist JSa^fte? e/J Pantalla
' G&tGon
2 && g&ts¡ e» 1& pantalla
To
. To
^ Get
Eva 3. ua ( f J£'7<i_JBtap=7tÍ_JSBp7 ;
GQ9,,3£ Get XCamdno ValJd VaJCamJ(XCaatj/io)
Var-JafoJesr ¿?«?
Si Sn_get
c-u t&
0 Bu&Gan
Hzu teatJ c- i
BPaatall
O* 3S Ifa&pl&Sar- SFaxl
Bftefer-
tí<?
Stfec-ute
SJ !
t* [Geutstult J, f^J, . T. , fC])+
, ($J* -F. f fC])+;
ífe tornar
CrdCon
Tope = O7
Crollzq = 03
fondo = 22
ColDer = 7O
Contitin = Tof«&
Retornar
Procedimiento SliCon
Ejecute El±_Reg
Retornar
Función VincGon
Validar1 Inclusiones
Re tornar (.T. )
[Camino},. 1$},. .F. ,
.F. > [C})+f
_ _ r £$},. .F. , [
Cb_ Con { BE^Jec-u ten?tar > [£j&i?u t&c- Jtar- J
ejecutar &MODULO.
Ejecutar Gana_Box
Ejecutar APAGAR
OPCIÓN = 4
Retornar( 2)
OPCIÓN _ 5
retornar(3)
OPCIÓN = 6
ejecutar &MODULO.
FinSelección
Retornar
Fuñe ion V&1±Con
Vail±ds.r Eliminaciones
retornar(. T. )
#/ Programa EDCDIR.Prg
*X Función Editor- de Directorio
Procedimiento DirOOOO
Variables de Ambiente
Set Color To (P_Normal)
Declarar Variable Privadas
Declare Variables Privadas de Busgueda
Inicialice Variables de Búsqueda.
Si Abr±r(CGTADIR], tMDCTADIR. DBF], [S] ', 17)
&07.O8 Limpiar 21,74
Sj&&ut& Editor- Coa [Dir3* ~ F- vHGeun1.}QSasi*HTitv - F.
C&rrar-tlCtaBlr-l ')
FinSi
Retornar
Procedimiento DefDir
Definición de variable® de ambiente
Definir Variables de Memoria
Retornar
Procedimiento AsgDir
Si !R&c^_ lock (5 )
Keyboard escape
SiNo
a
Ra tomar
Procedimiento RplDir-
S&lect CtSLDir-
Gf*at>&r- Vaj*J&bJe& tí<? Memería e-n Ja
Retornar
? Ja
AxBox
Ejecute SxBax- Con G&*O9vO9f73
[Código: J
J
je&uteMJc-JJJaria; 7
[ Teléfonos: }
[Fax: J
?&-Ján Po&t&J
G-¿a: J
MISBCTORIO }fO7fO
Color (P_t9orma2}
Retomar
Color (P_
Desplegar Gstvpa& tíe Ja £%&&&
Ke tornar
Stors- .T. To Eíy Get
Ejecute prender
Ejecute Mientras Sn_Get
Store .F. To Sn_Get
Aceptar Campos en Pantalla
Leer
FinEjecute
Ejecute Apagar
Retornar
Procedimiento BusDir
Declarar Variable Privadas Bf^ondicion
Desspl egar BCodDi r
De&pl egar BNomhre
Ejecute prender
Aceptar- Variables de Búsqueda
Leer
Ejecute* Apagar-
Si f£s&apaj*( )
toáI>*rv [Cod&ir 7
e* fN&ubfw}* f$J* .F. , [C3)
Localice &
= O7
fondo - SO
Con tLin = Tope
Procedimiento EliDir-
Ejecute Eli_^Reg
Retornar
Función VIncDir
Validar Inclusiones
Retornar(. T, )
Función VEliDir
Validar Eliminaciones
Retornar ( '. T. )
*¿ T * £37 *
C £ IXN&EXIffJ *¿ f * ¿",27
"9 r * ££7
*¿ r *
*$r "
TV
•#X Fundan Promesas! de Indexaclon y de reconstrucción
•*X de archivos del sistema
Procedimiento AmHed
ffansajdRean&anlsando archivos del Médicos Ver l.OJ)
Kjeewfce Indexa Con CmfflAIWS3r[miGTimX13f[CaEtíEM]v16
Ejecuta Jnd&va Con ffffJCTAPAC}y [HDCypAXU* f COBPACJ* 16
EJ&cuta Jnttexa Con fmffiNCGONJ»
Ejecute- Jnttexa Con [MIWCttW]*
Ejecuta Ináaxa Con {MlWmmFJ* {mWRmSl}* {TIPt:&m]ME2KJ'J, 18
Ejecute Jndaxa Con fffl*CTAmF}f {MDGTSJiXlJ* í GODE39FJ,, 1?
Ejecute Jndax-a Con fMl.m&Mm'tJ, [tSKFKBNXl J» f T1P&+NUMERO},1£
Ejecute Indaxa Con
Ejecute Index* Con
Ejecute Indaxa Con ffSBCTAftE&J r [MDGmBXl J, /"aíííWEÍO, 17
Mansa J( f Compactando archivos de Médico! - - , 3 )
Ejecute AsTer-Ix
Color (IL,&oj*wal .)
SI AorlrffCTASlNJ* [HDCTASIN.IfflF},. f£3fl 7)
Borrar- Fl&Ic&aiente
SI AbrIr([CTAl1SR3* fMBCTAlKSR-XMF]* ÍEJ* 1 7)
Borrar Físicamente
SI Abr-lr(fGTAmSJf IfflJCTAimSJ,. {E?, 18,
Borrar Físicamente
SI Ahrtr([CTAPAC3* [ÍSDCTAPAC3 „ fEJf 1&, [MDG3TAX13)
Físicamente
FinSi
G&rrar({TKAMEDJ
FinSi
Cerrar
FinSi
Cerrar
FinSi
Cerrar (fCTAJSKFJ )
FinSJ
FinSi
«»^ra/»C [JENCCONJ )
FinSi
eerr&r( [GTAPACJ )
FinSi
(termr-ffCTAl&SJ )
FinSi
FinSA
( fCTASlftJ
SJt ! Usada ( £ GTACGNJ )
SI AkrJrffCTACONJ,. [ MIlCTACdN . KHFJ f ÍE]r 1 7)
Borrar Fi&S
G&rrart [CTACCÜ9J
FinSJ.
FinSi
»24f4O Itespl&gar [ J
Retomar
Pr-oo&dimi&nto
Ejecute Mensaje Con f Generando archivos de Médicos,
espere un otoñen to por
Ejecute GenFilex Con
Ejecute GenFilea Coa fMRREHEMEZ>7, J7
Ejecute GeaFiJes Coa fftDCTADIRJ9J7
Ejecute GeaFiles Coa [MEENCCQN3* 1&
Ejecute GenFiles Coa rfSDENGMQVJf16
Ejecute GeaFiJes Coa [MI.*TmME&}f16:
Ejecute GeaFiles Coa lMI.*TfiASIN3 , 18
Ejecute GeaFÍJ&& Coa fMIZFRAENFJ, 1&
Ejecute GenFiJear Con (MDCTACAM3V17
Ejecute GenFiles Coa fHl^CTACC^J,. 17
Ejecute GeaFiles Con fMECTADBSJrJ6
Ejecute GeaFíJes Con [HÍ)CTAS3tF3>17
Ejecute GeaFiJest Cten [m&3*AMm*3 f 17
Ejecute G&aFiJes Coa [MDCTAPAC3rl&
Ejecute GetsFiles Coa [MDCTASIN3*17
Ejecute GeaFiles Coa fMI.¡CTAUSRJ,.17
Ejecute GeaFiJes Coa
Ejecute GeaFiles Cten f M&1KENFO3 , 1 7
Ejecute G&aFiJes Coa fMIMEWUS< * 1 7
Ejecute
Retornar
Procetlijni en to Genfi 1 es
Has* IZCaat
VarJabJe Privadas I.
S± i File (DBase)
Ejecute Gre_Afvh Con DBa&* VCato
FinSÍ
Si !F±le(DBas€f)
Ejecuta Gr&__Att?h Con ¿¿Base
•*/ Programa. Acttfect. Prg
*X Fun&ion Actualización de Medicamentos (Ejecútetele)
etito ActOOOO
Col or (P_Nonoal )
&Ü£*OO Limpiar- To 33*79
Iteclarar Variable Pr-iimáa& d& Búsqueda
r& para
* Vai*jab2& Pi*Jvada& para ArfrbJvaai BuJFf&r-&
Bu&qu&da
Si Abrir ([CTAHS&l* [MRCTAfíE&.IffiFJ* {SJr17f
Creac-ia/i ii& 2os Buff&rs
Copiar Stru&tura a ABuff&ra.
Sí Abrlr-( {fflt&82$F},Bi*ff&ra „ [£3 , Jf 7)
S&l&c-t EncCta
filtrar tf i entras Tipo - Jítlpo
ir al inic-io
MJec-ute Itef'Ac-t
&ut& Editor Con
C&rrar-
FinSi
C&rrar( fCTAMEDJ )
F±nS±
Retornar
Procedimiento EtefAct
Va.T-is.hlts Fr-ivacfets de
Inicial izar- Variables de Memoria
Retornar-
Procedimiento A&gTr-a
Asignación cíe base &. memoria
Si !Rec_lock(5)
Keybostrd escape
Si No
Asignar VariabJe& ¿te Ja Ba&& a
Retomar
Grabar- VarJabJtesr <íe tteaorJa && 1&
Borrar
Si
Ap&f2t3Í2;f3' Ja jVj/tv»ja¿>j£?/í tíe J¿s l*a&& >&r-Jigiaa2 a Ja
ha£t& Buff&r
SJ edite
EJec-ute BeíJt&jr ¿to/i [Enf]f .T- fRGaa1.maiBtr KTlt* .F.
2o& registros originales y
ti&J Buff&r
ff& tornar
Procedimiento Ma
Ejecute AXBox Con O6\ 23, 78
Ejecuta SXBox Con 1O,O1.1O,77
Ejecute SXBox Con 13*01*13,77
Ejecute AXBox Con 21,01,21,77
Ejecute AXBox C-on 11,39,20,39
Desplegar- [Código: ]
Desplegar [Paciente : ]
Desplegar [Fecha:]
Desplegar [Número: J+XTipo+C-J
£)esplegar [Á&oci&r: J
Desplegar [Motivo: }
Desplegar CBNFEBtíEDAD]
J«MF tJ tu José tf*?J edJtoj* Ej&&ut&bJ& o
Retornar-
Coll&v =10
fondo -
Con tH n = Tope
fte tornar
G&Ior (f*_Norma2)
Col l
Procedimiento LtetTra
Color (P_Normal )
@ O7, 14 Desplegar flodPac
& O7,4Ü Desplegar Nombre ( CodPac )
@ O8,14 Ztesplegar Fec_Tra
<& OS, 43 Desplegar Muirtero
& OB, 87 Ztespl&gSLr A&ociaEjecute
@ O9,14 ttesplegar Motivo
Almacene Numero a XNumero
Ejecute Dis_Keg Con [TRAENF], XTif*o+XNumero
Retornar
Procedimiento GetTra
Almacene . T. To Sn_Get
Ejecute Mientras En_Get
Almacene . F. To En_Get
Aceptar Variables de Memoria por Pantalla
Leer
Si En_Get
Ejecute getdohle
FinSi
FinEjecute
Retornar
Procedimiento BusTr-a
Declarar Variable Privadas BC&ndicion
Aceptar Variables de Bu&queda
Ejecute prender
Leer
Ejecute
SI !£scapar( )
r {CbdPac }„ /"#J, . T. ,
Inclusiones
( - T- )
Función
Retornar f.T. )
Función
* -F. , [C3
líeclarar VarJable Privadas ^&?£E> IfltAJlas
mtAlias = S&2&ct()
Seleccione CtaPac
Buscar Código
Rea = Sl
-d on Val Cotí
Si No
&&&= .F.
FinSi
St? J e-c-c-i &oaj* ( UJ tA J j
Re to
Valítuot
Si .N&t. F&imd( .)
í^s = .T.
SiNo
JReis= .F.
M&n&aje({Núff}e¿*& ya
FAnSi
Re tomar (fíes )
Tr-aBnf
Bu&crar- JfTlpo+Jfí
Sal tar-
nEj&cu te
sel &cwJ catar-
un
& a Ja
EJec-ute ffJefst¿*a& No Se-a Fin de
a J t
&c-u te
BufEnf
d&
Tr&JStof
Grabar Gaat&ost de Ja Memoria a Ja
-JOJJ&J* BtífBtlf
tai*
Bcu*i*ar- Todos -los Da tosa
Retornar-
Base-
/' Programa
Procedimiento ASG_TME
Definir Variables PubliaB
A&igancion de Ofxziones a Vectoret
FPC6CO1] = .T.
FPC6C02] = .T.
FPC6C03] = -T.
FPC6CO4] - .T.
FPC6C05] = .T.
FPC6CO8] = .T.
FPC6CO7] - .2".
FPC6CO8] - .T.
FPC6CO9] = . T.
FPC6C10] = ,T,
FPCGLLl] = .T.
MFfMCZJ = 15
MDERC3J = 77
Margen Isquierdo 58 Varios
OPC7C1] = C Mantenimiento J
FPC7C1] = ,r.
MFQNC4J = OS
MDERC4] = 75
Retornar
•* Programa : SelEnf.Prg
•* Función' Selección de Enfermedades
Procedimiento SelEnf
Declarar Variable Privadas XAlias
Ejecute Af>ag&.r
XAli&£¡=Beleccionar( )
Si AbrtrfCCTABNF], [MDCTABNFJ .. CSJ. 16)
Si se lectores (CCaoípo, CMasrc* CTit, 1Q, 2O, O6, SO,
[SELEtXWR DE ENFERMEDADES]) = 13
KeyBoard CodBnf
FinSi
Cefrrar( [CTA&NFJ )
FinSi
Retornar
* Programa. SelMed.Prg
•* Función Selección de Medicamentos
Procedimiento SelPre
Declarar Variable Privadas XAliaB
Ejecute Apagar
XA lias= seleccionare )
Si Abrir (CCTAMEDJ, CMDtJTAMBD]* CS3, 16)
Si se lectores (CCamm, CMasc, tJTit, 1O, 20, 06, 60,
CSELE(?TVR DE MEDICAMENTOS}) = 13
KeyBoard C-odMed
FinSi
C&rrar( [CTAMSRJ )
FinSi
Retornar
/ Programa TfaCon , Prg
>' Función Transacciones d& Gan&ul t-as
to TraOOOO
Col or (P_ítorma2 )
Ifec-lajrar Variable Privadas
Itec-larar Variable f'rivadasi cíe fí&moria
Variables para usa- ¿í<? arc-hiv&s Buff&r& para
AJjtia&etj*? {COJ To XTipo
Jni&iali&ar Variabl&s tít? Bii£
Ijjic-iaJi&ar Wariabl&& de
Si Abrir(fCTAPACJf [MKCTAPAGJ* [S]f 16, [MDCTPAX13}
Si Ahrir(f£J9CX3OftJf fHD£39COCJ9t.HBFJ9 fSJ,
Si Ahrir(£CTAEESJ* fMDCTAIXESJ, lSJfl&, [MÜCTDEX 1 7 )
Si
Abrir([TRAE&F3 r [MirTRAENF- IffiFJ , fSJ , 1 7, fMKTKENXl } )
Greac-iGn d& 1&& Buffers
Copiar Structura a &Buffera.
Si Abrir f ffWFE&FJ r Suffera f f£J , 1 7}
Si Abrir ( {CTAS&FJ , {ffíJCTAJBNF. DBFJ , fSJ ,
i AbrSrW TRAMES*] *[MÜFRAMED3r
Creac-ion de- Jos Buffers
Copiar S truc- tura a jfátufferb
Si Abrir
Si A
, [E] „ 1 7, {fSDCJMEXl J
Enc-C&n
Filtrar mientras Tipo = Xtipo
Ir al InS.de> de la Base
Ejecute ItefTra
&OGr OO Limpiar 23 f 78
Ejecute Skiitor Con
[TraJ* .F. ,/ft3w,/£fo£r,/*7*j¿, .F.
FinSi
Cerrar ( [BUFMED1 )
FinSi
Cerrar f f TRAME!.*} )
FinSi
Cerrar t f CTAENFJ )
Fin-Si
Cerrar ( [&UFENFJ )
FinSi
Cerrar ( [TKAENFJ )
FinSi
Cerrar ( [ CTAEES3 ?
FinSi
Cerrar ( (ENCCGNJ }
FinSi
Cerrar ( fCTAPACJ }
FinSi
Retornar
Ini&iali&ar Variables de
Retornar
Procedimiento AsgTra
Si !Rec_lock(5)
Keyboa.rd escape
Si No
AJmac-&nar Campos <fe 1& Basf& a Ja
&&1 accionar
Busctar
FinSi
Ra tornar-
r Tocios Jos Datas t1& Ja Base
SI ffodlflca
Todas Jas fía tas tle J¿* Ba&&
SJ Madjflca
i&o Ja Jafaraac-dojj tfe Ja ina^re origín&l a Ja
Buffer
cute App^_Enfi,A
FinSi
BufSnf
Jo tí<? Ja
tor Coa
&o la Información d& la l*a&& original a Ja
Ejecute App_Etif_C
FinSi
£telecc-iomé»i* Bufíi&d
3x* ¿»J Inicio íi& la
EJevute Etilt&r Oün
Blimina&ion d& los s^&giatrtxst oj-iginal&st y
FiftSi
& GbdHem Coa
StJ* Coa
EacCoa
XBax Con O6,.(Wf£3f78
EJ&c-ute SXBax Con 1O+ Oí „ JOV 77
oute SXBox- Con JT5,Í>J, J^f, 77
te AXBox Con 21 , OJ , 21 , 77
AXBox Con Uf3&r£Of3S
& O7fOG iJUff&pl&ffaj* f Código; }
@ 07, 3O Efespl&gar [Paciente;]
& 08,07 Desplegar [Fecha:]
& O8,32 Desplegar [Número: ]+XTipo+[-]
@ O9,OG Desplegar [Motivo:]
& 11,15 Desplegar [ENFERMEDAD]
Ej e c ute CrdEn f
Co 1 or ( £L Inverso )
Desplegar Ha.z__Sub(RTit )
Color (P_Norm&l)
é* Tope-J,, Col 1 3*3. D&stpl&g-ar-
[PKSSCR2FR1ÜN]
Color- (P_Nom>al )
Col or- (P_ Jn ve/*j3o )
& 12\31 Ite&pl&gar- Has^Su
Col or- ?I'_fÍomtal J
<* Tope- 1 r. C&l ls«i Jte^rpJ &gar- Jí'i?£>2 J tra fe ( /"- 7 „ C&llter- Col Izi-t- 1 .,'
SJ&c-ute' CrdTr-a
Hít? t-or-nar-
Tope = O7
ColJsq = 1O
fondo = 18
CoJR&r- - 61
GontLin = Tope
R& tomar
Procedimiento DetTra
Color (P^Nonaal)
Se 1 ecdonar EncCon
Desplegar CodP&c
Desplegar SubStr( Nombre (CodPac ), 1, 25)
Desplegar Fec_Tra
Desplegar Nuyiero
Desplegar Motivo
Almacene Numero en XNumex'O
Retornar
Procedimiento GetTra
Almacene . T. To Sn_Get
Ejecute Mientras En_Get
Almacene ,F. To En_Get
Aceptar XGodP&c Valid ValCod(XCodPac)
Aceptar XFec_Tra
Aceptar XNumero Valid ValNum(XtIumero)
Aceptar XMotivo Pict "&!"
Leer Datos
Si Sn_Get
Ejecute getdoble
FinSi
FinEjecute
Retornar
Procedimiento Bu&Tra
Declarar Variable Privadas BCondicion
Aceptar Variables d& búsqueda
Ejecute; prender
EJ&c-uta Apagar
J» f$}* .F. , [G] )+
otJv&J, f$J* .F. , [GJ)
Lo c-a 2 i zar &EtCünd¿ t
( -T. )
* Privada*
lUtAliaiat = sterl&c&ionar-O
GtaPac-
Buscar C<od
R&s = SJ(
Func-icm Val Co
Privadas A'e-3, U2tA2J.a&
Gt&Pac-
Si En&u&rt tr&
Re& = .T.
Slfto
FinSl
sel &c-vi (
l on Va 2Num
ff
SI No
Res - .T.
Mensa je ( [Número ya existe J, O)
FinSi
Retornar' (Res)
Procedimiento Ápp_Enf_A
se 1 eccion&r TraEnf
Buscar XTipo+Xttumero
Ejecute Mientras; Aft> sea Fin de Archivo
seleccionar BufSnf
Añadir un Esf>acio en Blanco en la Base
Con XFec_Tr-a
(Jon XTipo
Con XNumero
Con TraEn£->CodEnf
Reemplace
Reemplace Tipo
Reemplace Numero
Reemplace Cc>dEnt~
seleccionar TraEnf
saltar
FinEjecute
Retornar
-ut& Mientras
03 1 t
Fin tte
aJ Jnic-ic* ííe Ja
Ejecute Mientr-as No sea Fin de Archivo
seleccionar Tr-aSnf
Reemplace Fec_Tra Con XFec_Tr&
Reeiqplace Tipo Con XTipo
Reesff*lace Numero Con XNum&ro
Reemplace tJodBrif Con BafBn±'->€odEnf
seleccionar BufSnf
saltar
FinSjecute
seleccionar- BufSnf
Borra.r Todos los Datos de la. Ba.se
Retornar-
un M&ptct&jc* &j-s BJ-an&o &n J-a
r& Can JíF&c-_Tr
Con JZTJpo
NZ&dJiMtf en to
seleccionar TraMed
Bascar XTipo+XNumero
Ejecute Mientras No Sea Fin efe Archivo
Ejecute Eli__Reg
saltar
FinEjecute
seleccionar- BufMed
Borrar Físicamente
Ir al Inicio de? la Base
Ejecute Mientras No Sea Fin de Archivo
seleccionar TraMed
Reemplace Fec_Tra Con XFec_Tra
Reemplace Tifxy Con XTipo
Reemplace Numero Con Xtfumero
Reemplace CodMed Con BufMed->CodMed
seleccionar BüfMed
saltar
FinEjecute
seleccionar BufMed
Borrar Todos los Datos de la Base
Retornar
Procedimiento Cap_M&m
Declarar Variable Privadas XPan_Mento
Salve Pantalla en XPan_Memo
Mensaje
&!Or17 Limpiar
tie
Liberar- Variable XPan__Me-mo
Color (P_N&rmal)
fíetor-n&r
*y' Nombr& del Programa.: Tra.Dia.Prg
*•/ Función: Transacciones efe Diagnósticos
Procedimiento DiaOOOO
Declarar Variable: Privadas de Memoria
Declarar Variable Privadas de Búsqueda
Almacene seleccionare.} To Ult_Alias
Declarar Variable Privadas de Buffer-
A Imacene se 1 ecc i ornar ( ) To Ul t_A 1 i as
Si Abrir (CTRAMSDJ. CHDTRAMED], [S], 16% [MDTRMEI1 ] )
Copie St rúe tura a &Buffer.
Si AbrirítBfJFFER], BUFF&R, [S], 1 7)
Borrar Todos los Datos de la Base
Si Abrir (CTRAENF]r CMDTRAENF], CSJ* 16% [MDTRENI1])
Copie St rúe tura a &Baf~fer2.
Si Abrir(CBfJFFER2], BUFFER, CE], 1 7)
Borrar Todos los Datos de la Base
Si
Abrir ( {ENC3&LWJ , [tffWfCMOVJ „ fSJ , J 8, [ft&ECMOJl J .
JSJec-ute
Col or (f^_fto
& OGrJ4 Lla&iar 21
Ej&crut& Editor Oón
Currar ( fINCfíOV} }
Cerrar (CBUFFER21)
FinSi
Cerrar ( [ TKASHF3 )
FinSi
Cerrar
FinSi
Cerrar ( [TRAME&3 )
FinSi
sel acvi curar ( V2 t_A 2 3. && )
Retom&r
&d i mi &si to Jac-Ití a
Buffer
Borrar Toti&s 2o& Ifatcus ¿$& J-a
Si !
SJNo
Tipo a
Numero -a Xfiuo&ro
A Imacene Car Seo a
Almacene CodPac a XCodPac
A Imacene Ti ene_fíov a XTi ene_Mov
Ejecute App_BDia
seleccionar- EncMov
FinSi
Retornar
Procedimiento Rf>lDia
Reemplace Fec_Tra Con Xfec^Tra
Reemplace Tif>&
Reemplace tJvcm&ro
Re emp lace Ca rSe c
Reemplace CodPac
Con XTipo
Con Xflfumero
Con XCa rSe c
Con XCodP&c
Reemplace Tiene_ftov Con XTiene__Mov
B&leccionar Baffer
Ir al Inicio de la Baae
Ejecute Editor Con [Ren]* . T. , RCeon, RMasf RTi t , . F.
Si ModSiica
seleccionar RFinia
Buscar Xt/umero
Fia d&ecrute tfJ&ntraa No
B2i_K&g
fct& cunar
sal fcaj"
FinSi
SJec-ute
Ehcffct
Retornar
Procedimiento MasDia
Ejecute AxBox Con OO. Oí, 23, 79
Desplegar C Código: J
Desplegar [Paciente : J
Desplegar (Fecha: ]
Despl egar [Número : ]
Desplegar [Asociar: ]
Desplegar [Motivo : J
Color (P_Normal)
Ejecute CrdRen
Color (P_Inverso )
Desplegar Haz_Sub ( RTit )
Color (P_Normal )
é> Tope- lr Col l&
Tape = O7
= 2O
= 6O
C&ntLin = Tope
Desplegar CodPac
Lfestfom(CadPac )
Despl egar Tipo
Desplegar Numero
Desplegar1 ABOC'
Despl egar Ho t i v&
EJec-u t& XU jS
Ti?
&n& -J*1. To
JfCodPac-
&£?u te-
Ej&&ut& ItobJ&Ctet Con
FlnSi
Almacene - T, To En__Get
Retornar
Procedimiento BosDia.
Declarar Va.r±a.hl& Privadle BCondicion
Desplegar BCodP&c
Ejecute prender
Aceptar BOcydPaiG
Ejecute prender
Leer Datos
Ejecute Apag&r
Almacene , T. en En__flet
Si í ESCAPAR ()
on = Cb^Con(BCodP&ef /CocífaeJ, [$Jf , T. , [C3)
-& XBGcuKli cti ot/i .
PinSi
Ra tornar-
Función
Ite&larar Var-la_bl& Privadas
JSJtea = .T.
Re tornar (Xüte&)
Fíinc-ion VJnc-IMa
Variable Privadas
XRes = -T.
Re t ornar (XRes)
Función DesNom
Pa.raxn&tr-os Código
fesr, U2tA2ía&
CtaP&c-
Re t&
Fltnc-J&n
s&af* Código
SJNo
FlnSJ
( IU tA 2 J &s
#/" Nombre del Programa; RenEnf.prg
*'/ Punción; Realiza los Renglones del Enfermedades
Procedimiento IncRen
Inicializar Variables de Búsqueda
Retornar
Procedimiento &e£Ren
Inicializar Variables de Memoria
Retornar
Procedimiento A&gRen
Asiganar Campos de la Base a Memoria
Retornar
Procedimiento RplRen
Reemplace Fec_Tra Con XFec_Tra
Reemplace Tipo Con KTipo
Reemplace Numero Con Xflfumero
Reemplace Carsec Con XCarsec
Reemplace God&hf Con XCodSnf
Reemplace Porcentaje Con XPorcentage
Retornar
Procedimiento Ma&Ren
Color (P_Inv<erso)
Desplegar Haz_Sub(RTit )
Color (P_ttormal)
£» Topa-lr Goll&ij. fiestpl&gar- R&plicste< [- J, CQlDer-Co2I&q+1)
Procedimiento BasRen
Declarar- Variable Privadas BCondicion
Aceptar- BCodSnf
Ejecute prender
Leer Datos
Ejecute Apagar
Almacene . T. en En_(3&t
Si .'ESCAPAR ()
BCondicion = Cb_Cbn(BGodEnff [GodEnfJ* C$]r . T. , fCJ)
FinSi
Ejecute E21_Jteg
Retornar-
Func-J on VEJ J A*e/7
Dec2aj*aj* V&j~jab2e Privadas XJtest
XKffs = .T.
Re tornar (XKea .,'
XX&£t = .T.
R& tornar (XJtffB }
R& tornar
Procedimiento App_BDia
seleccionar Buffer
Borrar Todos los Datos de la Base
seleccionar TraEnf
Buscar XNumero
Ejecute Mientras ?Eof() . Ana.
seleccionar Buffer
Añadir un Espacio en Blanco en la Base
Numero Con
TJpnut Con
Con
Con JfanNut->Und
Cantidad Con RenNut-:>Cantidad
RenNut
£*a 1
CtaNut
7/% al Inicio de la Base
Ejecute Mientras !Eof()
seJ&&c-Jonajt* Ji'enffut
ReempJa&e Niuttej*o
Reemplace Tiptiut
Reewpla&e
e Un ti
Con JfNunejr&
Con Buffet*->Tipnut
Con Suff&i*
Con Buffer->Und
^f Cantidad Con Buffet1-.^'Cantidad
s&l&cc- ion&r
saltar
FinEjecute
se 1 eec-ionar- CtaNut
rs
t?
¿r'csJ '
QOOO&T
Procedimiento
Ejecute AXBox Con OS, 17,21,82
Ejecuta SXBox Con 11,18,11,81
Desplegar CSINTOMATQLQGIA}
Color ( P__ Inverso )
Desplegar ffstz_Sub ( RT± t )
Color- (P_Nonaal)
Jfaplloat&ff
Tope = 12
C&llsq = 19
fondo = 13
Collter = BO
GontLin =
Retornar
Color (P^Nonoal )
&outff &J&_Jteg Con íCtTASlfl}? GbdSJn
JR& tornar
Función VlncSin
Validar Inclusiones
Re t ornar f . r, )
Función VEliSin
Va.lida.r- Eliminaciones
Retornar ( _ T, )
Función ValCod
ParametrosB Código
Declarar- Variable Privadas Res, UltAlias
UltAlias = selecci
seleccionar CtaSin
Buscar Código
Si No le Encuentra
Res= .F,
no
FinSJ.
S ¿vi
I* N
Si No Eü
Jte& - .T.
SiNo
= .F.
Mensa j&([ Código ya existe],. O)
FinSi
Re tornar- íftea )
TraSin
Buscar XCodSin
Mientras Jtft? Sea Fin de Arc-hívo
un B&pac-Jo en B3&nt?o en 2a
Reemplace Fec^Tra Con £Fec_Tr
Reemplace TJjx» Con XTdpo
tttíjae**o (ten AWijffje-j'o
&c& CodíSín Con XCotfSin
¿sa 1 tas*
FinEjeoute
Retomar
TraSJn
Eje&ute MJ&ntr&ff No Sea Fin de Archivo
Ejecute Eli_Reg
saJ tar
FinEjeoute
seleodonar BiifEnf
Borrar Fi&ioaox*nte
Ir a2 InJ&Jo de Ja Base
Ejecute Mientras No Sea Fin de Archivo
seleccionar- TraEnf
Reemplace Fec_Tra Con XFec__Tra
Reemplace Tipo Con XTipo
Reemplace! Numero C-on XNumero
Reemplace CodEnf Con But'Enf->CodEnf
Reemplace Porcentaje Con BufEnf->Por-centaje
seleccionar BufEnf
saltar
FinEjecute
seleccionar BufEnf
Borrar Todos los Datos de la Base
Retornar
•*/' Recorte: Lista.Bjeout& d& Pacientes
Procedimiento HodO401
Declarar Variables Privadas de Ambiente
Almacene 1 a Opc_Rej>
Almacene CRSPMQDQ1] To NomRep
Almacene SO To Ancho
Declai-e Variables Privadas para selección
Declare Variables Privadas para recorrido
Traer los parámetros de selección
Ejecute PModOl
Si LastKey()=27
Retornar
FinSi
Condicrl =C3b_ Con (XGtxM , [CodPacJ *(.">=J,.T,V [CJ )
Si LasttK&y()=37
R& tornar
FinSi
A f ¿22 (Abierta* .F. )
Si AbrirffGTAPACJ* [fflCTAPACJ* [S}*1&*
SjGC-ute Imprimir Con Opct_Jtejpf fOJJ* JfcunTfep, Ancho
Cerrar ([CTAPAC3 )
FinSi
Retornar
Procedimiento
Captura de la Selección del reporte
@7,2 Limpiar 11,39
Ejecute AxBox Con 7,3,11,39
Desplegar [SELECCIÓN DEL REPORTE]
Desplegar [DESDE HASTA]
Desplegar C Código : ]
Ejecute; prender
Aceptar XCodl Pict [@K! ]
Aceptar XCod2 Pict C®K¡ ] Valid XCod2>=XCodl
Leer Datos
Ejecute Apagar
Retornar
Procedimiento HModOl
Ejecute Escribe Con G_EMPRESA
Ejecute Escribe Con Replicate( [-], Ancho)
Ejecute Escribe Con C CÓDIGO \ \
Ejecute Escribe Con Replícate ( C~] '* Ancho)
Retornar
Procedimiento DffodOl
Impresión del cuerpo del reporte
Ir al Inicio de la Base
Ejecute Mientras !Sof()
Si &Condicl.
Si_datos ~ . T.
Ejecute Ssr&jrJbe C&& GodFac-t-f
FinSi
sal t
Retornar
#/' Reporta - L±st¿tEjec!Ut& d& Historias clín±c-.SL£¡
Procedimiento HodO4O2
de Ambienta
Variable Privadas Opc-_Repr NomRep» Ancho,
BCondl c- 1 o/i
Almacene 7 TÍ? <3pcí_Jtep
í.Téí/j¿í [KEF9IOIW2] a
c&fie 35Ct To Ancho
Declarar Variable Privadas XCodlf XC&d£
Alittac&ne- Spac&(J&) a
Variahl&& para r&£?&r
Declarar Vari ahí e Privadas f tendí el
Traer los paraos tros de selección
Ejecute ItfodO£
Si La&tKey()=27
Retornar
FlnSl
Candi e J =Ck_ Can (XGodl , f ftedPac} f {*=}*. T. , f C'J ) -
Gb_Can(XGad£r [Co-dPacJf [<=3V.F. , fCJ)
Seleclon salida del reporte
Si LaatXey()=37
Retornar
Declare Ult_fíevfl5Jv lUt_JndflSJf AblertaflSJ
Si Abrlr([CTAPAG]» fffl!CTAPAÜ3v [S3,l&, [MHCTPAX13)
Ejecute Imprimir Cten Opc^_Repf [G13* N&osR&p, Ancho
Cerrar ([CTAPAC3 )
FinSi
Retornar
Procedimiento PModOS
Captura de la. Selección del
@7,2 Limpiar 11,39
Ejecute AxBox Con 7,2,11,39
Desplegar [SELECCIÓN DEL REPORTE]
Desplegar CDESDE HASTA}
Desplegar CCódigo: ]
Ejecute prender
Aceptar- XCodl Pict C&K! ]
Aceptar XCod2 Pict [®K! ] Valid XCod2>=XCodl
Leer Datos
Ejecute Apagar
Retomar
Procedimiento HModO2
Impresión de la cabecera del reporte
Ejecute Escrita C<tn G_EMPRBSA
Ejecute Escribe Con Replic&.te(C-J,Ancho)
Ejecute Escribe Con fOOP/tíD j NOMBRE \
FECHA \ CIVIL \ \ | TIPO S. J
Ejecute Escribe Con Replic&te(C-J,Ancho)
Retornar
Procedimiento DModO2
Impresión del cuerpo del reporte
Ir al Inicio de la Base
Ejecute Mientras No Sea Fin de Archivo
Sí &Condt c- 1 ,
Si_d*toB = , r.
Ejecute fee-fufre £t*n CodPac^-f }+No/fílTJ*&-f [ J+Rirecl-t-f
FinSi
Fj/íEJec-ute
Retornar-
FinSi
Re tornar
Procedimiento Pt1od02
Captura, de la Selección del reporte
f$>7,2 Limpiar 11*39
Ejecute. AxBox Con 7,2,11,39
Desplegar- [SELECCIÓN DEL REPORTE]
Desplegar CDESDE HASTA]
Desplegar CCodigo: ]
Ejecute prender
Aceptar XCodl Pict [&K! ]
Aceptar XCod2 Pict C&K! ] Valid XCod2>=XCodl
Leer Datos
Ejecute Apagar
Retornar
Procedimiento HModO'2
Impresión d& la cabecera del reporte
Ejecute Escribe Con G_BMPRESA
Ejecute Escribe Con Replicate(C~]* Ancho)
Ejecute Escribe Con C CÓDIGO \ \
FECHA | EST, CIVIL \ S. ]
Ejecute Escribe Con Replícate(£-],Ancho)
Retornar
Procedimiento Dtíod02
Impresión d&l cuerpo del reporte
Ir al Inicio de la Base
Ejecute Mientras No Sea. Fin de Archivo
Si &Condicl.
Si__dato& = -I*.
Ejecute Escribe Coa GoáPac+[
FlnSi
*/ Programa.
Procedimiento Cre_Arch
Parámetros Origen, Dír
Declarar Variable Privadas D_Ot, D_O2, Ult_Sel
Ult^Sel = selecc±onar( )
D_0l = Camino {Dir) + Origen + [.DBF]
D_O2 = Origen + C-DBT]
Origen = Origen + [.ORO]
Emftezair Sec-u&ncia
Ejecute Cre_Buf Con Origen
Ejecute Use_F±le Con Origen, CORG], [E]
Copie St rúe tur a. a (D_01)
seleccionar Org
Use
Fin
Bor^re Are* i vo (Origen)
Si
Bor-fft Archivo (D_O2)
FinSí
Retornar
NArc? = XArc-
FinSJ.
XNom = [TMPARC]+t3_ld+[-DBF]
seleccionar- O
Ejecute Mi&ntras . T.
Sí !NetErr()
Use Salir-
FinSi
FinSjecute
Ejecute U&e_Fi2e Con XNon* [XXTEMP3* [EJ
Ejecute Use_Fi2e Con [HED3r[QiR631.[E]1.[tSEDJ
Buscar (XArc )
Ejecute HientJT-ast Archíifa=XArc .And. !Eof()
r un Espacie- en Blanco en 2& Base
Con
Con
FJ. &1 d_ Len Con
c-u te
Use se2ecci&nar O
Créate ANWjtT, Kram ¿tX
Usté Itel&t& Fi2e (XNooi)
Retornar
*/ Nombre: MK_DIR
Función tfK_DIR
Par aune tros PATff* FLAG
ZteeJArar ifarJa¿Je ÍVurarfas EKROR* F&Sr I, CUR_1*1R\
PATH = TK¡M(LTR1H(PATH))
ERhVJf = 1
CUR.DJR = DIJ&9AHSO
Si VALGAMl(FATH)
EffMtR = O
Si !FLAG
ERRWi = XHKCHANGE(FATH)
Fí'fS =13
Haverltestde 1 = 1 TO LEN(FATH)
P&S = Si(SHBSTR(FA7Hrl,l) = f\J, JXtS -t-
f2)f POS)
POS
I = LENffVS.)
CÜNT - 3
Ejec-ute Md&ntrast ERR&R = O
PATH_ = SWBSTR(FAJH* 1 , VAL(SUBSJJt(FQS
ERRQR = DIRCHANGE(PATH^)
Sí BMPTY( ERROR)
CONT = GONT + 2
FinSi
FinEjecute
V' Nombre: VALCAMI
Función VALCAMI
Parámetros VCAMINO
VCAMINO- TRIM( VCAMINO)
Retomara(C ]$VCAMINO .OR,
SUBSTR(VCAMINO, I, L)$C123456789O+*-J .QR. [\\]$VCAMINO
. OR. SUBSTRCVCAMINQ, LEN(VGAMINQ). I )-[\J) )
*/ Función Evalúa
Función Evalúa
Paítame tros JSCoitdí trJ on f Jfdco- , JSJndJ c-
I*et?2arar Variab2& Privadas XXR&&r Afej?, YJndio
A2macTffae - T. «o XXJtes
SI Cfor(La£itX&y()} = Arriba
J?& tornar JÍXfíe&
Fi/tSl
A2aKt&&n& Itecmo() To Jf&g
SI PCbutttO = 3
YJjidíc- - IndexQrd( )
Set Ord&r ¿?/J X
FinSJ.
Ir a 2 1 ni crio d& 2a
Si PGountO >~ 2
Buetc-ar JfGandía-Ja
SiNo
Loc-a2 i €•& jüfC
FinSi
Si
Si (Enc-u&ntra() y Jtegi&tro <'.>&&£j
tt&naaje(fJ£rror de2 operador reffJjgttro ya exJate2*O)
A2aia&ej3G -f. To XXRea
FiwSi
SiNoSi Etis.-?u&fjtr&
ror de2 operador r&jfJ&tro ya exJ&te}rO)
ea& .F. To XXlfajBt
FinSi
JS
*X Nombre del Programa: Dis_reg
Procedimiento Dis^retg
ParametroBB El_Alia&, La_Clave, La_Condi + Inic
Declarar Variable Privadas XTope? , Xt'ondo , XCol I
XColfter, XContLin,
YCoritLin* Alias* ;
Cord, Deta
Almacene seleccionarí ) To Alias
Cord - CCRDJ+rnic
Deta = [D8T}+lnic
X fondo = fondo
XColIzcj - Gollsq
XColÜer = ColDer
YContLin - GontLin
XContLin - Tope
Ejecute &Cord.
GG cunar
Buscar La_C2a\-'&
Ejecuta W U '<so tras ft&
= C&ntLifi -t-
sal tar
para Ja utj.2i&a&ioa ti& r&xtg2on&st
s&2 e&cti &nar (Ali as )
R& tornar
*/ Pr-og.rB.ma. :
{$M $800, O, O}
Uses
Ejecute;
El InAt - 1 Primera ves -
JCA : GIKX5 {fes t fot* UsfuarAo Opc-jon Sub&pc-Son )
Var
Frac- : StringíllJ;
: Byte;
BegAn
Jnit
Jt'epi t-a
c-fPr&c-* Jni t ) ;
Salir : ~ SJec-ute£^a2JrCofíeí
Entero := ~1*
MA&jntrast (Salir > O)
Fin.
•*/ Programa _Ut±l
•*/' Fuñe- ion Han&jQ d& rutinas:- ejüt? HQ& s¡ofs
*'
Fimo ion VALFECT
FSCJNJ
mal j/jgíií?jsatící j*&iris¡e &J manual J
FinSi
FinSi
Función FVFBCHA
Parame trosts J^C.'H
-¿?j"¿?j" VarJabJe PrJ s-'a-cía^ .ERES, FECA1 , FECA3
FSCA2 - G^
Si CZroD(F
XKES - Si
SiNo
*/Nombre : VALMA YOR
Función VALMAYOR
Parámetros MAYOR. MENOR
Declarar Variable Privadas RES, RESl
RESl - Tyi«s([MAYOR])<>[DJ
RES = Si (RESl, . T, , VALFS€R( MAYOR, . F. ) )
RESl = Si (í RESl,. T., MAYOR o C=J>
Si RES .And. Ghr(LastKey())#ARRIBA .And. !Empty(MAYOR.)
Si RESl
Si MAYOR<MENOR
KeyBoa.rd Chr(25)
RES - .F.
FinSi
S±No
Si MENOR o [=3
MAyOR = MENOR
X&yBoartf AKR2BA+ABAJO
FinSi
FinSJ.
FinSi
*/ Función
Función
-éir V&ri&ble Privadas' XRes, XA1Í&.&
Almaicen& s& lecc ionar { ) To XA lias
XRes = ,T.
seleccionar &El_Alias^
Ir- sil Inicio de la Base
Local ice &La_Cla.ve .
Ejecute Mientras No Seta Fin de Ar-chivo
Si Ti en&_ tío v <"> C 3
M&jJíB&J ( fN& ¿se putHÍ&jj &3 imAnar-
aovimientost! - - - J?, O)
XRea = -F.
- » S1_A2 íast
2& Privadas JfJte&> XA2J.a&
&&2&GC-lcnnar( ) To
XRea = .T.
Zr al InAc-Ao de la Base-
Loc-ate Ha(?&jrlte£td&
Mientras tío .Sea Fin de Archivt
Ejecute Eli^Reg
Continué
FinEJecute
Retamar
*/ Nombre; CHKWP
Función CKKDUP
Parámetros TULCLAVE. DUP_MBft
Declarar Variable Privadas D_REG*NO_DUP9XCLAVB
D_REG=RECNO( )
Buscar ( TU_CLA VE)
NO_L>fJP = !DTJPLIGA(DUP_JfBN)
Si NQ__DfJP
si SVBST
XGLAVE -
Buacar(XGLA VE)
FínSi.
FinSi
Vaya a £_]
SiNoSi SltBSTR(ni_ClAVEfLffl(TRlM(nLC3*AVE))f !)<>[. 3
XCLAVS =
Buscar- (XGLA VE)
*/ Nombre: CHKSEC
Función CHKSEC
Parámetros CHfd_COlfOf DUP_MSN
Declarar Varia.ble Privadas D_RBG*NO_DUP
NO_DUP=.T.
Si CHR(LASTKEyO) o ARRIBA
a
GOTO D_RB
FinSi
*/ Nombre; DUPLICA
Función DUPLICA
Declar-ar- V&ria.bl€t Privadas RES
RSS = FOUNDO .AND. ( D_REG = -1 , ¿W. (O_REG != -1 .AND.
RECNOO != D_RBG))
Si RES
MENSA JE ( [La Itif&í*íi$a&i 0/3 »2i¿e jji t&n fca ¿n troduc-if* ya
existe
o &&
Retamar- (RES)
3*7
LISTADOS
*/*/ Nombre:*/ DB&cripctián:.*/-*y* Teroti natío /#•/ Autor:
V&r. l.O•*/ Sintaxis:*/ Argumentos:*/ Retorno:
3NIPRQL1BO&.PRGPrograma principal tlel sistematie&de el si&tejoa Pastea J..££'- ftj - J #¿?5Silvia V&ia&tegui A JavJer
Identifieador tie 2a empresaNo retorna ningún valor,
Parame ters PP1PRIMERA = (VaKPPl) - O)Se t fíate BritSetCanoeK.F. iSet Key 28 ToSet SC&RE OffSet Wrap OnSet EOK! OffSet líele te OnSet EVC-IU&JV& Off
Public_ _ _ _ __ C
ARSAL, ,-/L CAKBOX. P_ CARPAN y P_ IMPRESOR* P_PUERTO. P^AMBIENTE. P^AMBCL1PB,G_PROGPublic
AtiAHf
BRA.GKEYOFFPublieG_l*FE, G_G_N1V
, G_TIPCOS* GL
. G^MCff^ fiLOPC7ÍW, GLSUBQFCJQN* G_1NJCJO, G_CIERRE.
G^EMPRESA , <?_ IILSMP* G,FEt':JNl , 6-
, G_HAY_GES, GL
, G_ ID. G__AGG* G^FECHA , G
ENCÍAPublic
^USU» G_GLIPBO
* U1CAL, G_
* TECLAS DE CONTROL *ISQUlEfflm = Chr(DERECHA = Chrf
ARRIBA - Chrf 5)ABAJO = Chr(24)SALIDA = Chrfl3)Escapa = Chr(27)PGUP = ChrflS)
PGDN = Chr( 3)HOME = Chr( 1)END_ = Chrf 6)DEL - Chrf 7)INS = Chr(22)
* CONTROL *CT^HOHS = Chr(29)CT_END = €hr(23)CVLPGVP = Chr(31)
= Ghr(3Q)= Ohví 2)
CT_IZQ = Chr(26)
= (SJSJ&c-utar
ifeAaír Fion&r <? 1 jnuja&ro tlel
LOCAL = {Tter&erMOBULQ - [ }
tfav&r<'l£nt&r.> = £SeJetTtTjÉo/ja^ | <Eacr> - Saldr }
QPCW
G^PltStore .F. To
?lhEK_
— f ~>
AFill (IND1C&S, [ })
*X Entrada &1 joótluJo ti& ctcuatrol d& acttea& y &&rf.n&j.pal*>'' Si 2a varíabJ» ccmt && jnayor *jí/e «ios J adietaré -gi/t?
hacer- la v&rdfJcacflóa tfe Ja pro£ecfeJ^n,. cargar
Befau2t (JM parque aíi« no st& conoce al u&uar-fo) y ll&narlast
aJ
menú principal.*-**********##*^^ENV1 = GETKdCLJPPERJ)ENV2 -JJSKV3 - J >-
J
Do SET_tfCWOG_MREC£ - 2 &&& Val(PPl)G_VERSJCW = f
CLPRIffKRA = ,T.Star» O Te* GStore .F- To _Stor& {CWJ To OXEKR = .T.If PRIMERA
If >£NV3Da> MENSAJ With [Configura ¿MÍ computador con S&t
OXEKR = .F.
Elst&lf Eu>pty(E3WS)lk? MENSA J Vith [Configura &u tTívopí/t-atto/- para indicar
laUnidad a bu&c&r Cooíinand.Coai}* O
XERR = .F.
Do CLAVESEndlfIf ÍXEKR
altdf)
Do Pr&nd&rG_PROG = [00 JRETQRNO(99)
Do TRAE_SMPKEStore J To OPCIÓN vHELIlJiGR* G_OPC1CWStore 1 To SUBOFCiaii+MELP_aPC* GLSUBOPCIÜNDo SST_COL ttithS&t Color To (P_H1GHL)
E1&&G_ID - SDo SET_COL Vith
¿testare fram (P_AMBlEfiTB) Additiv*S&t Color To (P_HJGHL)
Type-Ckr(13)+Chr(13)
EndlfPP1 , PRIMERA
Store [VSN] To GESTIÓN, G_GESID_EMPRB - Tr-imfG_ID_EMP + OBSECUENCIA)Do Gsna^BoxStore .T, To G_HAY_StiP* G_HAY_GESG__PROG - COOJA? PANTALLARoturn
OPCIONESDo Caae
Ca&e OPCIÓN = 1Set K&y 3O2 To CANCELARPrívate G_PANT
av-&Scv**enfOCS,W.*,24^79) To G_PANTAPAGAR
Set X&y 28 To H&2pSet K*y -3O To1*0-
3O2 ToDo APAGAR
Caá» OPCIÓN = 2 .Or. OPGJON - 3RETtJRNOd )
Ca&& OPCIÓN = 4KETORNO(2)
Cáete OPCIÓN = 5KETORNO( 3)
Case OPCIÓN = eIto AMOIVLO.
EndCaseR&turn
*•/*X ID:*
#X*/ Autor*X V&r. l.O*/ Slntaxia•*'/ Argumentos:-#X Retorno:*/*•./
I, JBt M . PPGprlnc-J&al tl&l &J&tama
fio
V&la&t&guJ SJ
Parsm&t&ny PP1SetGanc&lf - -F- )
S&t SCORE OffS#t JKrap OnSet ECHO OffS&t D&2&t& OnSet Ext?luarjv& Off
*' TECLAS DE CONTROL *JZ^IERHíA - Chrfl&fDERECHA = Chrf 4)ARRIBA = Chr( 5)ABAJO = Gbr(24)
= ChrflSt)
PGUPPGBNHOMESND_DELJNS
í* CONTROL
Chr(18)Chrf 3f
- Chrf 7)
CT_PGUP= Chr(3G>)
CT_DER
Public-P_ INVERSO* P_NC.H&ÍAL,P__MENSAJ£:. P_H1GHL*P_ CAJA , P_ACHO1CE, P_ CARSAL, ,'/*_ CARBCXX* /L í 4AR4 , /!_ lMPRE^tR^P_FiJSJÍTC^ P^AMBIEWTE* P_AMBCL1PB,G^PROGPublicG_ CAMOCM* &_ CAMBAN* G_ CMffCX.W* &i_ CAMPAG* G_ CAtWEN, GT_ CAMCMB, G__ CAHALH
* G_CAHNCJH, GLCAMFKO* G_GAMAGT* G^TJPJNV, G_T1FCOS* G^NIMPIN* G
SUP, G_PRIMERA, G^KEYOFFPublic
\ GiJfQM* GLGFGJfJN* GLSUBQFCION* G_INICIO* G__CIERKE,
SL*CACR, GLFB&iA, G^SECUBNGIAPiib2icG_G£ST1C#1, G_MAY_SMP, GLHAY^GES,. G_CAMINQ* G_HAY_USU9 GLCLIPBOAR&, G_ VERSIÓN* G_DIRECC, im*I€!ES[3O] , MHTIT[83, HHPOS[8J, MFt.W[4J, H
Poner e2 /jtMíísj'e tíeJ Uti2it~ario a SJeoutarG_PJÍC.»G - [Oí J &&& Pon&r e2 ñamareMQWLQ = [ }MR"W P — í^^hí*/ " *7 't-i f 7-*f"3i^»/ *?£t í-^ f 7-^/T?**»/ **ií Í-*A 7-#í7íi^/ S !-£/" ~J3JC« T J ~" l.i 'íJ I ^ if f i T Jf J r^ V-'JjJ I *•*-•• t™ f ^ ^ t _í * •L.«* í J f *!• TÍff f^r £ J ^^ vJFfA I +Lt-^** f *^ £ —~
'IL_OPC = 4OPCfí = 2
- 1= -T.
Store -F- To> EN_PEO,
S t o r e f J T oCLIPB&AR&T. G_ GL2FBOfim»* BUKAMm, GESTIÓN* LA__ GESTIÓNAFill( ÍNDICES, I J)
*>'* Entrada aJ wót1ul& tie &&ntj*&2 de*X SJ Ja vaj~Jafo2e i^ojit es
£&& es=et& entrando aj sJ&tema porJo tanto hay •gue hat?&¿* 2a if&j%Jf2£facjá>a tie 2a
^^aj~ Jtssr cojor»» Itefau2t (TH poique aun no&e conoce a2 u&uai*Jo) y 21&ísaj" Ja¿r
Iniciales,. luego cede control a2 asenú principa 2.
Zto SET_MONQG_ID -Do SET^COL With [ INSTALJ-t&_IIte{ .
Reatare FTG» tP_AMBl£NTB) AddítíveSet Co2ar To (P_JHGHL)
Type
Re2ease PP1Store [VEN} To fíESTlCW;. 8_OESIIL.EHPRE = Trim(G_ID_£MP + G^SEOVENCIA)
-T. ToPANTALLA
Return
Proc&dure OPCIONESDo Cas©
Caate OPCIÓN = 1SETCRNOfO)
Case OPCIÓN = 2 .fír- OPCIÓN = 3Set Key 3G2 To CANCELAR
te GLPANTveSeme&n ( OO > OO, 24, 79 ) To G_ PANT
Do APAGARIto &MQDUÜQ.Re£?tStwen{(*&7. OOr 24+ 79» GLPANT)Do GsoML-SoxReléase GLPANTSet Key 3O2 To/t> APAGAR
Ca&e OPCIÓN = 4RETOJa9O(2)
C^se OPCIÓN = 5
Case QFGICJN = &
EndCaseReturn
*/ ID:*/ Nombre:*/ Descripción*/
*/ Autor:*/ Ver, l.O*/ Sintaxis:•*'/ Argumant&a:#/ Retorno:
LIBO2. PRGPrograma principal del sistema,desde el sistema. Pascal.
Silvia Velaste&ui & Javier Peres
etador- de-va J
PP1
Itet* BritS&t Key 38 ToSet SGQRB OffS&t Mrap O«S&t ECHO OffS&t Itel&t& OnS&t Ex&lU3iS\r& Off
* TBKLAS DEI3&L11EWXA =EEKBCHA =ARRIBAABAJO =SALJIUA =
4)5!
= Chr(27)PGUPPGIWHOMEJEKILDELINS
3!1 íG)
= Chrf 7)
* CONTROL -*•
CT_S3iDCT^PGUP
= Chf(23)= Chr(31)
CT_DER = Chr( 2)
Public-P, INVERSO* P^NORMAL , P_M£NSAJE. P__H1GHL r P_ CAJA , P^ACUOl CE, P_ CARSAL, P_CARBC*X,P^CARF*AN* /^IWPRESCíR, /LJMERKJ, F_AtiBJENTE, P^AHBCLJPB,
AMALM
SUP, G^PRJHERA > GLKPublic-
G_DFE,
EL, G_ACC* G_fS3CHA , GLSB&UtSNGIAPublic-G_GESTICW, Cí_HAY_Sfff^ &_HAY_&ES^ G^CAHIHCf, G_HAY_V^J, G__CL1PBOAR&. G_ VERSIÓN» GL&IWCC* imiCBS[lOJ»MHTlT[8}*fflP&S[8J ,
Public KK_OPMODULO = f }
Movea*1 -£F1L_OPCOPCH
* \> - Salir- }
^ = .T.Store .F, Te*ENLCAR* EN_ , SNLfWC** GLXSYOFF
S t *>GL1PB&AR&,STORE* O 3TAFllKlNfflGES.F 1)¿VARIABLES PARA KSP&RTES
ara TPJ&'9*PT[S3 , OW.*EN£S{11J „ DJSPCs*i
.^
Prívate
SALPTOPrívate
STPrívate
Prl va t&CONTPAG» OCWTL1N,
, XX_fÜfi* SALTAR_PAGr RR_OW®N, OFS
RJ.Jffi^C^*}^
MC.WPANCRI „ XGKB* X&EB* C3CWT_
SARANGO* CZW_J¿EN&\ CQNRJC1 „ OCmtfGS, CRITERIO* LA_GST1ON
Prívate
XMSNUPrívate
NDPrívate
SW_AR(31 , XSC
* 1_IH1CIO, I_SAL1ISA , COHPRIMB* SXPA
S* XOFFSETP, XOFRSETI , XQFFSE
TLISTAC!_NC,9f_HTI = [SAD3 &&& Poner elUtilitario a EjecutarG__FHKXS = [OS] &£& Ponen* el /niñero del ProgramaTL1STA = [ 3QPCH = 7FIZ^OFC = 4CVALFUN = (S3
= [*3= .T.
del
1 TU _ _ _ _GLOFGION To OPCIÓN <.HSUPJHOR
Store O To
.F, ToEN_AYU* SK,ODPANCR1 , £W_
JEKL KB», J3ILART, EN^CLI , EN_AER, H
f j T o
TPRÜMPTflJTPRC9iPT{£3TPRCMPTfS]TTffí£»iPT[43TPRCMFTfSJORBENESflJOKBENBSISJ
QRDENES[$J
QRDENSSÍ8JOW)SNES[9]OKRBNESflQ}OKI*ENES[11J&ISPOSITIVO[13D1SP&SIT1VOCS3DJSFOSITI VO[3JHUSFOSlTIVOf43RlSPOSITIVOfSJ&o SET_MONOG_1D =
SET^CXtL With
f Eteitir i /t forme elegido ]f Modificarf Bi&po&itjif Ordenf Factorf Códigof Fecha{ Húmerofffffffff Pantalla[ Impresorf Iliacof Modemf Extendida
parame t^^os }•'0 }
3J
3333JJJ3333
33333
flNSTALJ+G_ll>+f.MEM}
Restore From (I^AMBISS^TE) AddltiveSet Color To (P_HIGHL)ClearXeyBoardJtelea&e PP1Store {VENJ To &BSTICW. &_
Store .T. To G_HAY_Btff'*fío PANTALLA
Return
OPCIONESfío Case
Ca&& OPCIÓN = 1KETORNOfO)
Case OPCIÓN = 4Set S#y 3O2 To CANCELARPrívate G_PANTStot*e SavaSf?f&ea(0O*GO*24»70) To G_PANTI*o APAGARfío &MGHULQ.
?-*„ 7&T.G_PANT)
Releas& G_PANTSet Key 3O5? Tofío APAGAR
Case OPCIÓN = 2 -Or. OPCIÓN - 3RETORNO (1 )
Cas& OPCIÓN - ÍRETORNO* 3)
Ca&# OPCIÓN = 6fío A
EndCaseR&turn
*/
# '
*X' Ver-, l.O#;/ Sintaxis;#>'' Ax*guw&ttt&&:.*-,/
I NI PROL1BO3.PRB
prin&ipal ti&l sistema , invocado
tle Ja> jv torna ningún ira Jo/
. )Set Date Br-itSet Xay £8 ToSfft SCC-tRE OffS&t Mrap Cto
ECWC.' Off-IiffJet& Qn
S&t Exclusive Off
*' TECLASIZQUIEWtA -DERECHAAJÍRIR4ABAJOSALI&A
= Chr( 4)= Chr( 5)
FGUFFGBNHLfnlí
3)= Chrf 1)
Ghr( 7)INS•*• CONTROL
CT_FGUP
2)
PublicP_ARSAL, P_ CAKBCtX* P_ CARPAN, P_ IMPRESOR* P_PUERTO, P^AMBIENTE, P__AMSCLIPB*
* P_ CAJA , F^AGOQIGB* P__ C
Publiv* a_ CAMBAN* <í_ * GL C
AMALM
, G__PRJMERA , GLKSyPublic-
:, GLGES* «_wca>, G-ÚPCJON* GLSUBOFCION* ^INICIO* GLCIERRB,G_N1V
CK,1?_.FECMA, kJsECZJSNCIA
ARl^G
= [SADJ
G__PROG = [033HOLVLO = 13M&NP =
el
i* 3*1L_OPC
OPCH
G__PIC3VJm = ,Stoi*& -F. ToEN_ CAR, SNLABR,,SN_CLIS tCLIPB&AR&, G_
* G_£EYOFF
JT & { 3 TBUFCAHPQ* GESTIÓN* LA_ GESTIÓN
o
SST_COL Vith
Restar* Froos (P_ANB1SNTE)X&2eas& PP1S&t Color- To (P_HIGHL)
Jesse PP1, RIKBfL.USUA* PR1MER.4[VSN3 To tSESTJCW, G_GES
E = Trim(GLlHL.3MP -t- 6-SBCUENCIA ).T. To &_HA¥_SHP. GLHAY__GBS
PANTALLAR&turn
Procedure OPCIONESDo Cas&
Ca&& OPCIÓN = 1
as& OPCIÓN = 5S&t K&y 3Q2 To CANCELAR
GLPANTTo
Z*o APAGAR
, G_PANT)DoRe2e&£te G_PANTS&t K&y 3O£ ToDo APAGAR
C&ae OPCIÓN = 2 . Ür. OPCIÓN = 3RETORNO(1)
Case OPCIÓN = 4RETORNO(2)
Case OPCIÓN = &Do &MQDUW.
EndCa.seReturn
/ Función P¿*&gjt**uaa t1& pJt^&CT&tlimi&nt&st pa^*a eJ aiotiulo OO
JaModOlOl
l*oJReturn
Ja
ConOOOOReturn
&! ds- Jos UsuariosModOJOS
UarQOOQReturn
-*X CbJíSJv-?» definidosi pof* eJ Usuario
Do CoIOOOORetur-n
Ito ttedQOOORe tura
*X SiProc&Do SinOQOO
*>'Procedía** ModOlO7/to EnfOOOO
do DdrOOOORetur-n
Pracedure Va lk&yF4Páramete? P1.P2,P3Prívate Cop_LenIf Tppe(P3)=CCJ
Cop_Len = Len(&P3. )Do Case
Case P3 == fBVSYJ#*# Proct&dJMj&Mto A
EndCaseEndlfXM&m = Meoor-y(O)Return
Oí-*X Autor JairJ&j* Pé-j*&& y Silvia V&last&giti*/ Ifejr. J - O•*X Facha d& Finalización £&-Ol-ff5
Cuentas
ConOOOlReturn
*X Opción MovimientosProcedure ModOSOlDo TraOOOQReturn
*Zto DiaQOQO
*x•*x•*x/uneJdn
jr& ti& linea.exjpG3(F3) = fioj&hf** ti& 1& variable.
= AIst&CTenét &1 largo cíeJ= No £f& utlll&a.? <?J caujpo tiontit? fue Invocado
otenga un oon&ultoj* asooiado,, de sej* a^j',.
•#X cede control*X * éste. ¿>j /it? ti&ne consultor asociado y
variable es de tipo c-arac-ter
Procedur-e VÓL 2 keyF4Parameter- Pl,P2,P3Pr-ivaíe Cop_LenIf Type(P3)=CCJ
Coi^JjGn = Letn(&P3.)Do Case
Caste P3 -= [XCODPAG3Ito S&lPac*** Procedimiento A JSJecutar
SndC&seEndlf
XMem - Memor-y(O)Return
*" Procesos** F MK^DIR** F VALGAMI
*X JZ>-*X Nombra: MK_D1R*X Be&crl pu-f cS» r H&cer «» tí J j"«?t? tari o o ww J jflf ca *•
UfM» í?^J"a, /7O pU&»JJ t&M&I* Utí
f\J al*y final d&l strlngr ti&b&n t&ner Ja unidad ¿fe tliscra.#X Sintaxis; tMSC&RAf expGl 9 axpLS )•#X Argum*uít0£t: &jrpC?l(PA7Jit - Camino pa/>a ha^&r overi fi car*S&xpL3(FLAG) - . T . Hac&r- el dlr&c-torlo .F. Verificar laexistencia d&l PATH*•'/ Retamo:•*X # "-^ Sí -^a v&rlflcaclan o elaboraciónfue-*X efectl va*X J --> Sí <?J JÍ4IH tiene problemassin tac ti cois*X -21 -•> Pr&bJeitjas en la elaboración deldi t»&& torl o*X Ambiente:•*X Variables; EKRCXR = Cualquier error ocurrido dentrode*X -í* validación o elaboración del PATH#/ TOS*•/ CQNT*'/ I - Contadores dentí*o de la fundón•*X €ZJ!R_DIR - /íj£?tro donde £te esta ubicado'#X Uso: Creación de empresta* Jülac&up*'/ Funciones: 1/ALCAMI•*X Procesos:*/ Terminado; 2£>.,>aa.s'l&&4•*X Modificado:*/
fUNCTION MX_l»IJi'PARAMETERS PATH, FLAGPRÍVATE ERROR* POS* 1, €MR_I»Jft» CGNTPATH - TRlMtLTRltí(PATH))ERRC.W = 1CUft_mR = mfWAMEf!IF VALGAMl(PATH)
ERROR - OJF !FLAG
ERROR - DlRC3ÍANaE(PATH)ELSE
POS = £ ]POR I = 1 TfJ LEN(PATH)
POS = 1F(SUBSTR(PATH*1*1 )
POS)
f\J* PC*S
POS =IVS = TWM(L!TR1M(POS))I = LSN(PQS)CQNT = 3IV ffllLE ERROR = O
PATH_ = StfflSTRtPAJH. 1 , VAL(SUBSTR(PC*S, GQNT*£) ) -1)ERRCtR = DIF EMFTY(ERHOR)
CVNT = CfJNT +ENDJF
IJO mi LE CX!NT < 1PATH_ = SUBSTRfFATH* 1 > VAL(SUBSTR(POSf CXH9Tr2)) -1)ERRQR - mRMAKE(PAim_ )JF ERK&R = -5
EXITELSE
OC.9ÍT = C&NT + 2END1F
ENDDOEIWIF
KEIUfa9(JF( ERROR = O, ERROR* 1F(ERROR = 1* 1*2)))
*/#
*'/ validos*X Sintaxis
•#X Auibi&nte:*>•' Varíateles:tíeJa validac-ion*X*/•#X*X#/*'/ Uso:•*X Funciones:•#X Procesos:#/ Terminado:*/ Modificado
VALCAHJun
&& un PATfí,. valida
VALGAHIf expCl í&xpGl(VGAMlNO) = Camino a v&rificar-T- ~ Si el c-anino &ff &nc'U<&ntj*a bien
&Q figurado sintacrtic-aoenta .
ERfSOR - GualquJ&r error oc-urrldo dentro
POSelaborac-ion tfeJ PATH
- Contadores dentro de la función= Itiscx) donde se esta
Creación d& empresa* Bac-lmp
25/1OS1994
FLINCTION VALCAMIPARAMETER VCAMINOVCAMINO=TRIM( VCAMINO )RETVXN(!([ J$VCA*SINa . O RSWSTRf VGAM1NO* 1 „ 1 )$[1£3456739&+*- J. O R . [ \ \ ] $ V C A H 1 N Q . O R
#X Programa. __L±bO3*/ Función Pro&r-euua de procedimientos pana <?J jnoduío O3#X Autor Silvia Velasta&uj & Javier P&re& V&r, 3. .O*/ Fecha tí
X Opc-Jon Varios
Priva te La_Qpc;=lDo AxSox Wi th O&, 33. O&, 52Do Wii2& .T.
Color To (P^A&hoice)34 Promtp £ G&M&rar Archivos }
f 34 Proaip [ Keorgani&ar }Menú To La^OpcJf La^Opc = O
Exi tEl ¿sel f La_Opc = 1
EJae-Do
Endlf
EndDoJteturn
#/ Funaian*'/ Autor Javier P&r&z; ár Silvia V&la&ttegui•*/ Fecha 28/1O/94#X Fuo&íon Evalúa códigos coa Índice o secuencia}*/
Fun&tion SvaJuaPajT^anetera XCandJejainT XctePrívate ,«.¥Jífe?^, Re&9 Ylndic-Store .T, T¿> XXReaIf ChríLastíSeyO) = Arriba
Re tura JCVfitesEtidlfStore Revm>() To ftegJf PGountO - 3
YIndic = JndexOráOSet Order To X Jodie-
SnálfGo TopIf I*Cteutjt{) >- 2
S&ek XCoadic-ioa
t?&t& Por AXCondidon,EndlfJf Modifica
If (Foundf ) .Asstl. JKec-nof )<*RoaJ ( f Error tfej operador registro ya existe} r O)
.F, To XXftestSndJf
Slself Found()ffeosaj(f Error tíeJ operador registro yaStore .F. To XXR&&
EttálfIf PCountO - 3
Set Order To Y Jodie-Go Top
EtidlfGoTo RegRe tura (XXR&s )
*'/ Nombra d&l Programa: JtAja•#X Flmc-Jon; tfua&tra los raagloaas aso&Jados a unaoabacara•#/' Autor: SilvJa Velafft&gw-i A Ja v Jar•*•/ Fe&ha: 2O/12/94•*-/'*>' Parama tros:•*'/ EJ_AU&s --- > AJJ-*'/ La_G2&v» --- > La c-
r&c&rrido
Inic-Privata XTop& rXfbndo *XCtolJ&i3» XC&lIter» XGontLin»YC-ontLin*
Star* S&l&&t() To Al Jas
I*etaXTop»XFtondo
- C&llterYContLia = CtentLínXContLln = Top&
ACórd.oll&q C-lsar Tct
Saleo t A£l_Allas.Sff&k La_Claval*o íftiile í£üf() .A/id- ALa_Gündi- .And, CtentLín <= Fondo
Zto ADeta.ContLin = GontLin -9- 1Skip
EnditoTope = XTopaFondo - XFondo
Collter = XGolIterContLln = YContLinSalact(AIias)R&turn
UsesDos;
{ Termina cuantío retorna con errorlev&l o OEl Init = 1 Primera ves .ICA : GMOS Gestión U&uar-io Opción Subctpcion }
VarProc : String[llJ;Jni fc, Tmp : String[23íSalir : Byte;
BeginHetm[Q:$4F&] := O;Init := 'O';
* Ttop) ;Proc := "MSir + Tmp* '.EXE';ExGc(ProGi. I ni t);Salir := ZtoaEInit := *1~
Ontil (Salir > O)End.
*X Programa _Ut±l•#X Función Mafit&Ja de rutinas •qu& nos &on coatunes entrelibrer-ias•*X Autor- Silvia V&lasttegui y Javier-*/' Fecha d& Finali&ac-ion O5/1O/94
Function VALFEC3"Par-ameter- CHK_F£CIf Chr(LaatKey())<>AKRlBAIf
R&tur-n .F.Sndlf
Endlf
. Qr.
Manual] f O)
•*
*X Sintaxis;txtst:
rna :
*y
tle
FVfSCHAConstruye Ja fecha d&l ¿> ultimo
££/
£f& d&&&<3 l&J* tÍJ-ct
cualquier otro valor si es el ultimoÜÍ&S
&& menor- que- GLFECIN1 y1 devuelve G_FBC1]91.
&& mayor- que &LFECCIE y• 1 d&vtt&lve €v_FECZ'IE,
G_FEGINI
lopr-ioej* dia
dia de
del sii&t&BiaG_FSC'IN3 = Fecha d& inicio d&l ejerc-lcio.
F&cha final d&l ejercicio.XKSS = Resultado d& 1& función
ssi para fundones d&cr-i t&r-ios
r&parte&.*X Futj(?ion&&: FIN MES
*X Terminado:*X Modificado:*/Fbnction FtfFECHAParameters FBCHPrívate XjFBCA1 = G_FBGHAFECA2 = G^If
XRES - If
y
ElseX R E S = I f
(FECM=1, CZToIH [Oí J-tStfBSTt'FSOAl, 3, &) ) „ FINCHES'( CTaü(FBGA2 i ) )EndlfReturn(XXBS)
*/*X 2D.~#/ Hombre: VAIHAYOR#X JfíescfnJpc-JÓJi: Va2¿dat?lon pana 2os panametrost
e e2 primenc?-a mayor- o J^iifí2 <jue e2 segundo.
*X «S'-í e2 segundo paname tro es Jg*ja2 -a un [ ~]*>'* entonces e2 se
Kvp'?l( MAYOR) = Puet1&#/ tipo y se osantent1n& ctojno e3 Jtiayon t1e Jos panamo tnoa.$•'/ E\£>'?lfíÍEN££R) = Tiene ^i/<? se¿* pasado pon í*&fej*ení?ia-*X pafa «3"« ^M í-'a^oj* pi^ette sen juot$JfJc-a en craso cíe sen#X uw signo f=J* tle Jo cfOJttnanJo soJo se wnJfJc-ana•*yf que su val cu* sea átenos* t* JguaJ aí pnJmetna panaa»&tno.•#X Jfetct/wor JKfi*? - -T. auf ei pnJjo&n panajoetro es mayor-*'/ que el a»gutxio -F- tle sen 2o oontnanJo.-*/' AjnbJente: ARRIBA#/* VanJab2e&; RES - Retonnana e 2 ne&u 2 tetio cié 2a•*X w» J -s tíat^i on•#X RES1 - Tjfpt» tfe J*>» parámetros#/ Vato: En todas 2as *ra21t1¿tcrjones fíe rangos*/ dentro de 2os ñapantes &ste Jna &n va2Jdac-2on de2*X segundo c-Jnten^o*X <feJ nango*X Füm? Jones; VALFKCR•*X Procesos;#/ Terminada: 31/1Q/1&94•*>'' tfodlflc-ado;*/
Funotlon VALMAYORPanameten MAYOR, MEN&RPnlvate RES.KBS1RES1 = Type( [MAYOR] )<.->[&]RES = IffRESl ,.T.f VALfECR(MAYGR* .F.))RES1 = IfdXBSlv.T.iMAYOR o f-7^Jf RES .And. t$ir(LastK&sf())#ARRlBA .And. ÍSmpty(MAYOR)If RES1
Jf ftAYOR&iENaRXeyBoand Chr(£5)RES = .F.
If ttfNOR o f~JMAYOR - MENORKeyBo&rd ARRIBA+ABAJÜ
EtidlfEnálf
EndlfReturn(RES)
*/#/ Fuñe- dan Va2_E2i*X Autor- JavA&r- Peres A Silvia*/ F&cha 33/13/94*'/ Flux? fon
•*'/
Fun&tion
Pri va t& Xf£&s! , XA 1 i stssStoi*# Se2&vt() ToXRes = ,T.S&l&ct &Bl_Go Top
fío Whil& !Sof()If TJen&__ffov <-> [ }
Man&aJ f I No s&& fw&tfen &JI JJUJJMJ* j^stngl one roía vía i&n tosí . . - 7 „ O)
a = .F.t
EndlfContinué
va t& XJR&& y XA 2 i asSto¿*e S&2&vt( ) ToXReat = .T.
Go TopLócate Fot*fío While íEof()
fío E2iContinué
JEndfío
R&turn
*-/ ID:*/ -
•*X Sintaxis; CHXHtfft(<expCJ>1¡ <expG3¿)#X Argumentojat: expGl (TtJLGLAVB) ~ Clave d& búsqueda.*X expGl(I&J!P_tíBN) = Mensaje (claverepetida f .•*X Retoma:
*/ XGLAVB = Clave d&!ÉL' J Hr r*1."T* T tf^+tiiflf+St f fm f I*í _ 7 / u
r**.,^ A* LfjJÍ.. J. CV/tTíí * ¿,^-ff J-t J Vií/l
*X Terminada: 1S/O9/94
FUNCT10N GHXDUPPARAMSTER Ti^C^PRÍVATE I.L
=. T.
NO_IVP =IF NQ_W
1 F S Í ^ _ .y
SEEKfXCLAVE)
ELSE1FXCLAVE =SESK(XCLAVE)NGLffVP = ÍBL1PL2GA(IMP_JSEN)
END1FEND1FGOTO D_REG
*/*/ ID:#/ Nombre: C3JKSEC*/' IHestcripcicsn: Verifica J-FJ Ja trJíapí? esté duplicada &*X «»
UíT"*TÍ *" J* VJCTtfr / í t-fftt í 3f Jjfwíí1 J ~"" í jT^ÍJíj í í"* í íHíT íí*3
»' . ^**a ff^ia í j j» 1^' XTI-Tjt-flC. £.-^ C/-C1 T ,
#X JfefcoJVMi- -F- CZaviP duplicada,
•<X NC3LWP — Almacena el resultado.*/' Funciones: WPL1CA.*•,/
FUNCTION CHKSECPARAMETER CHK_CONtorIMPLENPRÍVATE &_RBG1.NOL.WP
NO_DÜP=.T.IF aHR(LASJKSrO) <> ARRIBA
GO TQPLÓGATE fOR
GOTO ILRE&ENDIF
*/•*;/ ID:*/ Nombre: WPLICA
-T- SI Ja t?#•'/ (secu&n&ístl o ináe/xada ) .-*X Var-i ableos: RES - Almacena*'/ Procesos: HSNERROR•*
fllNCTJQN IMPLICAPRÍVATE RESRES = FdmDO -AAO>- ^ XL-SS?? - -JT -Off. (IL.RES != -1 .AND,RECNCH ) ! = I3LJWG) .)IF RES
MENSAJ([Lst Infojrmac-Jó/2 que -iVíte/ífca Jatr&du&li* ya existeo estaENDIF
*'/ Pragr&ioa AatTttt&.Prs*'/ Fim&ícM Pr&G&st&s tf<? Jjxfetxac-Jaa y•*'/ de anejir i vos d&2
#/* Autoj* «7avJ«r Pé¿*&& y Sil ir Ja*X*/
* P/t?í.Tíf£5¿>£f efe J
Aoifíe-tiM#d Jetos V&2* 1-OJ)
JWí* fm^Al^},[Mr>>CTI.>EX}Jf{C&Z*tEMJ*16Inttexa 9fJth fWCTAPAC},. fm.»GTPAXlJr fCOItPAC], 16Index* tfith
lío Indexa Kffcfr
Ind&xa Vith (MVCTASNFJ, [fffX3*EWUJf fOífíEWFJ, J7J^rfe.va Kltó [MLm^m*3y[fflíTlffimi]f[TlPCí+Nl9iEI
Do Jnetexa JWfcft (MDKS&MED3, {MIJCTENX1J, ÍOMJEKFJ, J7ZltJ J/jrfeA-a HUÍADo Ind&xa VJth
Afi22 (AbJ&rtar . F, )M&naaj ( [ GcuBi&a&tando archJvoa d& ffédi&oí. . . 3)Do A&TerJx
To (P_
Jf AbrJr-ífGTASINJ,. [MIX:?TAS2N.DEF3* [E], 1 7)PacteIf AbrJr( [CTAUSJtJ* ffff.»CTAl?SR. /«HFJ , í^7 - 1 7)
PaekJf AhrJr ([CTA&ESJ* [Hl^CTAI^ESJ, [£],!
P&Gk2f AbrJHICTAPACJ» [H&CTAPAC}* [E], 1S, ftílXZTPAXl J )
J jfAbr±r(CBNCOQN], CMDENCOQNJ. [E], 16, CMDENGQX13. [MDENCOX23)
PackI f
Abrir (CTRAENF3, [MDTRAENF], CEJ, 16, CMDTRENX13)PacA
J fAbrir (CCTAENF3, CMDCTAENP.DBF], CE], 17, CMDCTENX13)
Pack1 f
Abrir ( [CTAMED3 , [MDTRAMED3, CEJ, 16, CMDTRENX13)Pack
J fAbrir(CRENMBD3, CMDRENHED,DBF}, [S3, 17,
Pack
IfAbrir([TRAMEDJ, CMDTRAMED}. [EJ, 16, [MBTRMEX1])
PackIf
Abrir ([(JTAMKDJ, CMDCTAMED-DBF] ', CE], 17, CMDCTMEX1])PackCerrar ( [CTAHBD3 )
EndlfCerrar ( [TRAMED3 )
EndlfCerrar ( {JFtBNME&J )
EndlfCerrar ( [CZTAMED3 )
EndlfCerrar ([GTAENF3)
EndlfCerrar ( [TKAENF3 )
EíidlfCerrar ( {&9CCONJ )
EndlfCerrar ([CTAPAC3 )
EndlfGarrar-( fCTAUSSJ )
Cerrar (fCTAUSRJ)EtidlfCerrar ( [CTASINJ )
EndlfIf ¡Votada ([CTACQN])
If Abr-lr-dCTACGNJ* {MBCTACON. iPackGerrar([CTACQNJ )
EndlfEndlfQS4f40 Say { ]fieturn
[E], 17)
ProcedureDo Mensa j Wití] {Generando archivóse cteun aicjifaent& por f a vori ___ 7/*D GenFllest Kítí»De» GenFJlea WJthLio GenFAles ttith [MDCTAD1R3* 17Do GenFilea With
GenFiles WithGenFUes Wíth [MI.rTRAME£.*3*l&
Do GenFiJesi Vith [MIXTRASIN],1GDo GenFi2&& WJíth {m*FRAENFJf26¡Jto GenFJles Wth {MDCTACAM3,17Do GenFA2&s With {Mr.*CTACf*N},17Zte» GenFlles Wth {MDCTADESJ,1SDo GenFJleef With {fa.*CTABNFJy17Do GenFiles tfJth ffff.)CTAtiEDJ,17Do GenFiles Mth [MDCZTAPACJ , 1&Do GenFilea tflth [MDCTASIN],17Do GenFilex Wth {MUCTAUSKJ , 17
e&pere
Do G&nF±les W±th [MDENC&OR3 , 1 7Do GenFiles With CMDIR8NFO3. 17Do GenFiles With CMDMENUSR] , 1 7Do AmMedReturn
G&n filesfíBast* DGaat
Prlvata ISBasta
If ÍFile(DBase)I)o Oe_Art?& Kifcfc
EtnUf
*/*X Programa EDGDIR.Prg*X Fundón Editor ¿te Directorios•*'/ Autoras Javier F&re& y Silvia Vela&tegui*/ Fecha Q1/O8S1994
Procedure DlrOOOO•* Variables ti& AoibJ&at&S&t Color To (E_Normal)PrJrafce XGodDJr* JEf^Mvfere^ XDJrettJ „ XT&l&fl , XT&2&f2f
XF&x,
•*' Variabl&& efPrívate BCódDlr* 8N&oibí*&i.£r.*lj*&tfl fBT*2efl > BT&lefS* BFax,
BT1 &jw
* DetflnlGlon d& variables tte
BCodDArBNonbre
ToTU-Te* BT&l&fl,. BT&lef£i. Bfax
-#' Variable tít?Prívate LGodfilrDeclare Ult_Re*[ló3* mt_Int1[15]v Ahlerta[153A f 112 (Abierta* ,f. )Declare HTit[SJ* HMaai[£3* HCam[£3HTltflJ = f Código}HTlt[23 = [Nombre del Doctor!HMasflJ =
HCawfl! - [CodDirl
If Abrir ([CTAD1R1+ [MDCTADIR.DBF], [S3,l 7)8O7f08 Clear To £J*74Do Editor Vith fDirl* -F. yHC~asjvHMasfaTitf .F.Cerrar ([CtaDir! )
Endlt'Return
* Definición de variables de ambienteXCodDir = SpaceflO)XNombre = Space(31)XDirecl - Space(31)Store Space(l) To XTiene^Hov, XM&rcaStore Spa,ce(31) To XDirec2
Store Space(lS) To XTelefl* XTele£2, XFaxReturn
AsgDir* Asignación de base a memoria
Keyboard EscapeSlae
XCodDir = CódDirXNoofore ~ <fttew»fc/t?XDirecl ~ Di redYTlií ^^ irf 1 ^™ JTíí ^*^**"*í"JfrJ\£'JL J^Cft"*£* -— J.S-I XTCTC--i-
JTTeJ*í/ = TeleflY*I*¿* 7 «a Í 'T'* — *I\* 1 «a ''T-'vi Jt tsj. CfJ, j — J erj c j. .
JTF&v - Fax
EndlfRotura
deCtaDir
CodDir- Vi th XCodDirNoofore Wi thftirevl Wi th
Replane DirecS Wi thTelefl Wi th XTeleflTelefS With
Replaoe Fax With XFaxReplacte Tiene__Mov WithJteplacre Marca Wi thReturn
Mascara í1& -Za Pantalla
SxBox Wí fcA Off „ O9, 09, 75[Código: J{Nombre; }
Say {DlreccrJón Ztaa»ic-J2Jaria; JSay [T&2&fcmoa: 3
9 13,48 Say [-}é» 15*29 Say [Fax: }& 17*17 Say {Itír&ttíon Posttal: J& 19, 23 Say [Referencia: J$et CoJor- T& (Centrad DIRECTORIOSet Color- to (P_Norma2)Return
DetDlr
& 08^8 Say CodDi'r 'Pict , __. „é* O5f,3S Say Jtowhre Pict [GKÍJ
@ 11,34 Say D±r&cl@ 13,34 Say Telefl@ 13,49 Say Te le f2@ 15,34 Say Fax@ 17,34 Say D±rec2@ 19, 34 say MarcaRe turn
Procedure GetDir•* Realiza los gets &n la pantallaStore .T. To En_GetDo PrenderDo Wi±le En__Get
Store ,F, To En_Get& OSfl& Get XGadRAr
a8f38 Get XNambr*
PlctGoáI'ívt
[&! })[&! J
-í G&t& 13,49 Gfft XT&lefZ& 25,34 Get XFax* 17,34 G&t XtoirectS& I&f34 G&t
EnditoZto ApaganJR&tum
•*'Prívate@ OSrl& Say BGodDir& O8f38 SayLÍO Prenden*& O£t,18 G&t& O8f38
Ja pantalla
Do ApagaIf ¡
* - T. , [.F. , [C3)
Fot*EndlfRettum
TopeColl&yFondoCbJIUtwrGantLln
GrdDir= O7= 15= 2O= £5= Tope
Do Eli^ftegffeturn
Fuñetion VIncDir# Validar InclusionesReturnf.T. )
Function VEliDir* Validar- EliminacioneReturn (.T.)
vira
«wra
e
¿ r " f ¿
CXXXXXXXXXXJ =
/'*-/#
X*/#/#/*
Do Sxbox W±th 11,18,11,61Centra([ENFERMEDADES7,O9,34, 46) &&14 61Set Color To (P^fnverso)@ 10,18 Say Has_Sub(HT±t)Set Color To (P^Normal)@ Tope—lf Gollzq Say Replia&te([— ]., ColDer-Return
Procedure CrdEnfTope = 12Collzg - 18Fondo = 2OColDer = 61ContLin = TopeReturn
Proc&dure DetEnf@ContLin,l& Say C-odEnf@GontLin,3O Say NombreReturn
Procedure GetEnfStore . T. To En_(3etDo Whíle En_Get
Store -F. To Sn_GetG&t X(tef}Et3f Valia *&opty(XCodEfjf) .And.
&C<vitLJnf3O G&t JSWcswfoí-e /'jet fGÍJ Val id
ReadJf
Endlflto
Retitrn
Bu&Enf
Pi* i va t& BCondi &i on&ContLin,19 &et BC&dEnf8GontUt»r3O G&tDoR&adDoJf
[CodEnf 7> f^7, - T. , [C3[Noufore]» ($3* ~F. , [C])
at& fbr- á&Gto/td¿&dan.Etidlf
Procedure BliEnfDo Eli_R&£Ratura
Function VIncEnf* Validar InclusionesReturn(.T. )
Function VSliEnf* Validar- EliminacionesReturn (.T. )
*/*X Programa Bd&Med.Prg*/' Función Sditor del Plan de Cuantas de•*X Autor Javier P&re& y Silvia Vela&tegui•*X Fe&ha 1O/O9/84
Do Editor Vith fttedj, -T-
SndlfR&turn
It&fMedStore Space(lO) To XCodMedStore Spaca(3J) To XNcuabreR&turn
Prooeditr& AsgH&d*' A&lgna&iofj deIf
SlsteStore Codfíed To XCodHedStore Mawfene To
e MedOOOOSet Color ToPrívate ECtodMed, BWowfctj^ePrívate XCodMed* XNoojbrePrívate LOodMedStore Space(lO) To BGtoe&ÍeniStore Spac?e(31$ ToDeolar& lflt_Jí&c-[lff3Afill(Abierta, ,F. )£*eolar& MTJtfSJ*HTitfl} =HTit[2J =HMa&il] = fXXXXXXXXXXJHMa&[3] = Repl i c-a te ( [X] f 31)HCajafl] = fCodffedJfíCam[23 = ftfojabrej
Clear To £!.&£
Rotura
Procedure RplHedVith Jl
Jfeplac-e Maoihr» Vith XNombreKeturn
Proctedure Ma&MedDo AXBox Vith 08*17*21*62I)o Sxbox Vith 11
Centra( [MEDICAMENTOS }, 09, 34, 46) &&14 6Set Color To (P_Inverso)@ 1O,18 Say Haz_Sab(HTit)Set Color To (P_Normal )@ Tope-l9ColIzg S&y Repl icate ( [- J , ColDer-CRe tur n
Procedure CrdMedTope = 12Collzg = 18Fondo = 2OColDer = 61ContLin = TopeRe tur n
D&tM&d@ContLin,19 Say CodMed®ContL±n,3O Say NombreReturn
Procederé GetMedStore .T. ToDo Wiile
Store .F. To En_GetGet XC&dM&á Valitl !Empty(XC&dH&d) .Ana
&ContLJnf 3í> Ctefc XNtvnhr* PJet [&!J
Jf
Enálflio
Return
*' JfeaJ^^a l&si kuaquedase &n laPri va t& BGoadJ e j onGGontLinr29 G&t BGadMed6OantLin*9Q G&tDo
DoIf ! Escapar ()
. T. ,, .F. , [G])
LócateSndJf
EliH&dDo EllR&turn
Function VIncM&d*" Validar- Inclu&ion&sReturn(.T. )
Function VEliMed* Validar1 EliminacionesReturn (.T. )
*/*'/' Programa JSdc-Sjji. Prg•*'/ Función Editor del Plan de Cuentas para Sintonías*/' Autor Javier Peres: y Silvia*/ Fecha 1&/O&/94.#-/
SlnGQOQSet Color To (P^Noratal )Prívate BCbdSJM» ENomhrePri va te XGodSln, XflombrePrívate LGodSinStore Spacf#(lO) To BC&dSinStore SpacefSl) To Wioohre£*e&lare Ul t_Rec-fl5JT Ul t_^lnd[l£>3* Abierta[153Af 111 (Abierta, .F. )lieclare HTitf^J, HMaa[2]r HGamfZJHTitflJ = Pad([ Código]r2Q)HTit(£J = Pad([Nombre del SjntomaJ*31)HMaa[lJ = fXXXXXXXXXX}HMaa[2J = Jteplit?ate( fXJ.31)HCamflJ ~ [CodSinJHCam[2] = fNombreJIf Abrir? fCTASINJ* [HDCTASIN.DBFJ* fS}f 17)
eO8r17 Clear To 31r62Do DefSinIto Editor Vith [SlNJy.T-fHCam*HMa&T.HTit*.F.Cerrar ( fCTASIN} }
EntilfReturn
Pi*oc&dureStore Spacfff(lO} To XCodSlnStore SpactefSl') To XNombreR&turn
P2*oe-edure* A&igtja&ion de base aIf /Jtec
KeyboardElse
Store GodSin To XCodSinStore Nombre To JS
Return
Pro&edureItepla&e CodSin With XCodSinReplane Noiabre With XüoohreReturn
ProcedureDo AXBox With 08,17.21,62Do Sxbox ffith 11.18,11.61Centr&([SINTQMATOLOGIA], O9, 34, 46) &&14 62Set Color- To (P_Inverso)@ 1O.18 Say Haz^SubíHTit)Set fJolor To ( P_Norma.l )@ Tope-l,C-olIsq Say Ref>l±c<ate( C-] , (lolDer-Col Isg+1 )Return
Procedur-e Cr-dSinTope = 12Collzq = 18Fondo = 2OColDer = 61ContLin - Tof*&Return
Procedure DetSin@ContL±n, 19 Say CodSin@ContL±n.,3O Say NombreReturn
Procedure G&tSinStore ,T. To En^GetDo Sfhile Sn_Get
Store -F. To En_Get&CantLin,l& Get XCtetfSJn I/aJjrf fEtBpty(XO.-*t1Sln ) .and.
Jn} )Valid
Jf &]_/V?
Endlf
# /?tf¿»Jj^a lasPri va t& BCondl ci on&ContLin*19 G&t BCodSAn
O G&t
e/t Ja pantalla
R&adl*oIf
f [CodSin , - T. ,, -F. » [ CJ
Lócate FQJ*EndlfJtetum
Procedure EliSinDo Eli_Re?gR&turn
Function VIncSin* Validar InclusionesRBturn(,T. )
Function VEliSín* Validar- EliminacionesReturn (\T. )
*/*X Programa#/' Fuac-lon*'/' Autor*-/ Fecha.*,/
Editor del Plan íle Guantas de usuariosJavier Peres y Silvia Ve2a&t&gul14/O8/94
Procedure UarOOOOSet Co2or To _Prívate XCtJXey*Prívate BCtllr&y*Prívate LCtlkey
XNojobre*Biombre,
XI dBJti
Space(3O)f JStore
Declare U2t_Rec[15>JA f 122 (Abierta* ,F. )2tee2areHTltflJ = f Clave JHTltfSJ = Pad( {NombreHTlt[33 = [Nivel J
T& JSGtJJteyTo ENombreTo Slá
Ult_lnd[lSJ, Abierta f 15}
HGamfSJ
UauarloJr3O)
HMa&[3] = [XX]HCam{l} = [CtlXeyJ
HCa»[33 = [2d3If Abrir ( fCTAUSR} , [HDCTAVSK. DBF3 , [S3 ,17)
*C*P,J5 Olear To 29*62Do DefUaaUto Btfltor Wlth [UaaJ* -T. *fJCa*t*f&Ías^HTlt. .F.Cerrar ( [CTAVSR3 )
EndlfRotura
Store Space(S) To XGt2JreyStore Space(3O) To XNombreStoi-e f J To XRotura
Pracedure
IfKeyboard
Store CtlífeyStore NombreStore Id
EndlfRe tura
To XCt2*eyTo XNombreTo Xld
Procedure RplU&BReplaee Ctlkey With XCtlkeyRepláioe Nombre W±th XNombreReplaee Id With XldReturn
Procedure MasU&sDo AXBox Vith 09,16,19,62Centra ( ' C CONTROL DE USUARIOS], 1O, 16, 62)Set Color To (P_Inverso )@ 11,17 SaSet Color To@ Top&~l,CalIzq Say Ref>licate( C-J *ColDer-Gol ZR&turn
Proc&dure CrdU&sTope =13Collzq =17Fondo = 18ColDer = 61Con tLin = TopeReturn
Procedure BetUss@ContL±n,18 Say CtlKey@ContLin,24 Say Nombre@ContLin,57 Say IdReturn
Proc&dure GetUssStore -T. To En_(3etDo While Sn_Get
Store .F. To En_Get&ContLinr18 Get XCtlK&y pJt-^^ {»>} VaHd
!Hbpty(XGtlKey) .Ana. Evalúa ([XCt2Key=Gt2Xey3)GGon tLin v 24 G& t XNon¡br& pJc-t f&!J val J. tí
9GontLinr&7 G&t XldEteIf
G&tDobleEndJf
EndDo
# A'eaJJ.sa Ja£r bu&qu&flajBt &n Ja pantallaPs*J va t& BGandl &i onGGontLinr28 Get SCtlXey
7 G&t BIdDoR&ad
Do Apagar-ía ! SBC Apar ( )
, -T.
Fuñe ti on VJacOstst
Funotion VS2SV&ot#' Va2Jdai* &JReturn (.T.)
» -F. , [GJ)Lócate F&J*
EndJfR&turn
E2AU&&
#/#X Pragraata Ac-tHed.Prg'*X FujKrlon ActualIsac-lon de Medícrajif&ntos-*X Autor Silvia VeJa&t&guJi y Javier•#X -PetTÍja O7/O9/94#/
Procedure ActOOOQSet Color TU (P_Norma2 )GO5*OO C2ear To 23,79Prl va t&Prívate XGodMed* X _*'/* Varabl&st para u&o> de- arc-hlvoot Btíffer& paraPrívate BufferA* BufferB* BufferCBuff&rA =JSufferB -BufferC = i£WFERC3-fC!_lIt+[ . DBF]*
Store Spat-**(lÜ) ToStore &pac(31¿ To BNooihreStore Spatte(l) To BTlene_jtov* BHarc-aIteclare UJt_ltec[lSJ, Ult_lndfl5J» AblertaflSJA f 121 (Abierta,. .F. )Declare HTltlZJ* HHaa(S>3* HCam[23Iteclare KTlt[23* JHMaa[23* RC'son[2JHTdtflJ = f Código JHTit[2J = {Nombre tfeJ joedlcanento}HMast[13 = fXXXXXXXXXXJHMasCZJ = R»pllcate([X3*31)HCawflJ = fGodMed}HCam[23 = [Nombre]If Abrir ([CTAMS&3* fMDCTAMB&.IWFJ» [S3*17f [M&CTMEX13)
*" Cr&a&lon de Jos BufferaCopy Stnsc To ABuffera.If Abrlr(r&L?FENFJ}.Buff&ra,fEJ,17)
S&l&ot En&CtaSet Fllter to Tipo = XtlpoGo Topfio DafAettto Editor VI th
[ActJ, ,Ce
Endlf
SndlfReturn
Procetdure D&fActPrl va te BGodMetl* BNoahre , BT1 ene_Jto v, EMarcaStore Spaoe(lO) To XCodPac-Sto¿*e Spa(xt(5O) To XHotlvoStore Space(}} To XA&o&lado
Store! 3p&ce(8) To XNumeroReturn
Proc&dure AsgTr-&* Asignación de b&se a memoriaIf ÍRec_lock(5)
Keyboard EscapeSise
Fbd_Tra To ATFec_TraGodPac- To XCodPac
Stoi*e Motivo To XMotlvo
Store Asoc-iatioEndlfJReturn
ToTo XA&o&i
ff ti& a Ja base
GodPace Motivo
VI th XGodPac-Vith XMotiv&Vi th
& Asociado Vith* Tipo Vith JfTJpo
S&lect BufEnf
If* App&ndi&o Ja AnforataGAon tle Ja ba&e original a Ja
ba&e Buff&rJ*t? App_Etíf_A
EntilfSele&t BufEnfGo TopDo Sditor Wth [Enf], .T. *RCaoi*J&fa&*KTit,.F.
dedel Buffe
y
l^o App_Etif__BSelect EücGon
tia&Trafio AXBov 9fith 06Do SXBox mth lOr Oí 9 1O*77Do SXBnx With 13 f Oí* 13, 77
AXBox tfith 21*01*21*77AXBox With 11*39*20*39
& O7*OG Say [Código:]& G7.3O Say (Paciente;]# OS*O7 Say [Feeha,-}é* OS* 32 Say [Núwe**o: J+JlTipo+f-J& OS* 53 Say [Aaociar: ]& Off*O6 Say [MotAvo:]& 11,15 Say [£NliERMEÍ.>tADJ
* Mofftr-ar- lo& títulos d&l editor- DtofoJe o de JtengloneaCrdBhf Jtítít Tama las Cordeladas ttel editor-
Set Color- To (P_lnver-ao)# 12* O2 Say Has^Su'b(RritS&t Color- TÍT (P_Normal?é» Tope-l*CalI&*i Say
Do CCrrfJjra Alfc*
Prooedune CrdTraTope = O7Collw =1OFondo = 18ColDer = GlCofítLln = TopeR&turn
cortteoada& ti&l editor
S&t Color- To (P__Normal)& G7.14 Say GodPac# 07, 4O Say& 08914 Say# O8r 43 Say& O8*G7 Say && 09,14 Say MotivoStoj%& Numero To XDo I*l&_Jteg VI th
JRotura
Proc&dur» CtetTraStow .T- To Eti_GetIXc* tthlle Efj_Get
XT1 po+JWuuero
é» 07f14 &&t XCoáPav Valld Valdod(XCüdPac)» 08*14 Get XF&*_Tra# 08r43 Get XNuaier& Valla V*ltiuB(JWuae'ro)& O£ir&7 &&t XAooolado& O9,14 G&t X
If _Do G&tBobl&
EtuilfEndDoRe tura
* R&alJjsa la&Pr-1 va t& SCoadl &1 on& 07,14 Get BGodPac-& Offf14 Get BFffc-_Trí» 08, 43 Gfft &9unero
la pantalla
& O8.67 Get BAsociado@ 09,14 (3et BMotivoDo Prender"Re ¿idDo ApagarIf !EscaLf>ar-( )
C^_Con(BCodPe»c^ fCodPac 7> f$J* - T. , [Cb_Con(BF*c__Tr-af [Fee^TraJ, [$}* .F. ,
ner&J, f$Jr -F. , { CJ )f [ Asociad! }„ f$J* -F. > fCJ)
Uv&J, f$Jf -F, , [CJ)Lócate
Bndlf
SliTx-aDo EliJteturn
Fuñe t ion* Va 2 i dar
Ftín&tion VS2iTra•*' Valida** S2iminaciojoefsIteturn ( -T. )
Fuñe t ion# Función «ai/e d&iru&2v« &1 Noo&uv d&l Paci&nt*Pajt%ajt*&t&j*£t CotiPriva t» Jte&, LUtAHasVltAlias = Sel&etOSeleet CtaPacSe&k CodRes = If(F0und()
t(U2 tA2iaa)
Fuñe ti on Va 2 Cod•*' Función para va2idax* <&ue e2 Código etxifftaParame t&rai CódigoPriva te /&?.»„ LUtAliasU2tA2iaa = S&2&et()Seiect CtaPacSe&k CódigoIf Foundf ^
& 07*40 Say Notabi**&( Código)Bise
Mensa j([Paei&nte no ftegÍ£ttratia>J»O)Endlf
Re turn (Res .?
Fanction#' Fun&i&n para va22daj*Paraateters NPrívate
Res = .7.El se
ya &xEndlf
Selevt
ÍSof() .AndSele&t BttfEnfAppend Bl&nkRep-lace
t?J ¿tunero ¿se
Seleot TraJSaf
Se2eotSeeJf
SJrip
W/fc/i JKKííAWj tto TraEnf- ¿Porcan taje
Selevt BufEnf
Go TopDo Uhile !Sof()
ct TraEnf
GodStofReplaneSe 2 ex t BufEnfSklp
Se2e&t BufEnf
Wlth XTipo
Kffchtfj th BiifEtif- >Par&eut taje
*'/ Programa Sditor-.Prg•*X Flwc-ion Editor ti& conaultor-ioa*>'' Autor Javier- Peres y Silvia*X Fec-ha O1/O8S1394
Procedure GonOOQl•*' Variables fíe AmbienteSet Color- To (P^Normal)Pri rar t& XCodPaG , XNonhr* , JíFeo. Tra
XFec-haf XSdadXQc-upa ,
XT&lefl ,
XTelc*f3r X2ona3 , XSeguro*** XfíemoSt
XS&xo , XC1 vJ 1 „
Xln&trtic»
XZonal > XZonaS*
Segr XRafer-,
Prl va te Bítod R»e, ci, ?>-a
Urwl, &&Jr*K?£* BTelefl* STelefZ,ottibr&l ,
l&fZ!* BZonaS >
BCí vi J „
Blnatruc*
BZonal*
Blnatr-itc-*
BNoutone -= Spa&&(B)
fíat» () ToStor& Spattt(l) To BSaxo*
SHar&a2O) To BLugar-r
Stor& Spac&(31) To JSEtí Jr-etrJStore O To E&ktetl* SE&t&tura, EP&soStore Spat?&(T) To BT& l&fl , BTelefZ, BTelefSSto¿*& Space(G) To RZonal, BZ&naS* BZonaa* SKeferStore SpatteflS) To
Pr-lvate LCodPac-
A fillf Abierta» .F.DeclareHTitflJ =HTlt[2J = Pat1( {Nombre 3*4O)Htia&flJ = {XXXXXXXXXXJ
NGam[23 =If A
If AbriJf [til,*CTAPACJ „ [S
y ffff.iCTAI.iESJ,. fSJ9 7é5, {tff.*C3*l.*EXl J )
a*&f Jl
(OS)
OO '9O&
XT±p_Seg =XNom_SGg =XRefer = Kefer
XMa.rca = AfercaSel&ct GtaDe0Seek XCodPacXMauoStr- = If(Faund()rMGatGStr9Spac*(lQ) )S&Iect C
BndlfRetur-n
JRpJCoa
GadPac-
SexoCivil
P&&O
Jas truc-Oc-upa
TeJefl
Zonal
JffotwhreJ
f .RtejfefCtaJtes
If .'
Endlf
¿t
Wi thWithWithWithWithWithWithWi thWithWi thWi thWithWithWithWi thWi thWithWithWithWithWithWithWithWithWi thWith
& tfeto&Stj* With J
ZtoJteturn
XC&dPac
&&__TraXSsxoJSCivi2XLugarXFachaX&áadXP»ao
JXEatatura
XOGupa
XDJj?ect£XT&l&fJ
XZonalXZonaSXNojnhrel
k»k*k4k*k*k*k ik*k*k»r \ ¡> .
Oí-, -i -i i -t -t -i tÍJlk4k*lt^k*Qsl^k<
tú Oí Oí ít} Oí os to O
& Sp SP fr SP ft fc &'H j y j a i ü í y j a j y i S í
ka N H Cs? g g ÍTfcw h» *s 5$ íj¡ $ "5TJ p £ *p*t l-_5 ^4
ít to
* >r> Eü
'•íÍT
k.,
!T
Ha1tu
•jt
Ch
k.f-.
N. QjK. tU
> i ac*
ft teÑ. ^J
KJ. K.K. íj
ti
ítí!
í
cf
93
ÍÜ ÍDM- C+-C
r^ •( fi * *t» I*-É í**^ rv iti ^> í*^ r^ iK ^^ r^ *t* í" ¡ .1. r^ FI**** ~ •- ^»* "A " * "s 1 Vj *t% - ^ -* i VJ¿ Hi \.* SJj K*fc \ x^ *Jj s,*,* %Jf
C K-, Oj Oí Oj t-0 Oi O; t--¿ t-0 Oí Oí t--o Oi M t-0 ^0 dí O
*^f ^ iO j t ' jC f jC i jC i jCí i t i jCOiCi jCí j t i j t ^ t í j t i jCoOjCi jte te te te te te w te te w te te te te te te te w
QO
*s.
te tev¡j yj
ft Ce pt-j Qj t'v
te te te%t¡ y¡ x
t ^ 3 ^ t Í í N * i b í Í ! C b O « O í l í h l D í b í b K Í ' * C 1 3 E S i '
5£ ib' táj í C ib' ílK Ey O te %-. O" te ítí t->« ib *5 rt- teO ' Í C T * 1 H 1 ' ' f t e f * N í t e < » N i Q . í l w í 1 c t( T ! ' . h J £ i . C ! ' . í ' i b t f i '-ÍJ. ' - l O r s C Ctí íli fh i i ( , l~i L . fS L . •-< kj. LJ. Ti N
h«
te et
te
O
o bi bi o t£Ñ« S ü Ñ« ' ite " '. Q,
a ^
6 Si,CL
0 0
N Co N
Oj Cij tíjte te te
ib B ttt (b (f
te o a-a. • • teo •.
Crft!te 1
K <
* K K 01 Of
§ÍÍ8&M X 3 *i
Cij te (6
te ^ *X S ffi o. rt- rt- (b te
D * * &0^ O O te QG. Oj O; 3M.* •* »tj9tl O O te5 K c a'. '* * «•
Qj Cu « * K."O "O tecoto
te
@ 16,53 Say@ 15.68 Say@ 16,68 Say@ 19,14 Say& 19,53 Say@ 19,67 Say@ 21,11 Say@ 21,29 Sayf® 21,59 Say& 22,11 SayRetur-n
Telef2Zona.!ZoTia.2Nombre 1Tele f 3Zona3SeguroT±f*_SegNoto^S&gRefer-
Pict [&!J
Procedure Get Con* Realiza los? gets en la pantallaStore . T. To En_GetDo PrenderDo While En_Get
Store ,F. To En_Get» O7rlO G&t XGlodP*c _Pic-t f#ÍJ Valid íEtoptyfJSCódFat?}
BvaluaffCtat"'» t>7,35 G&t& 0&J.1B G&t@ ¿ÍP, 43 G&t XS&X&
xa
1O,43 G&t XF&clG&t
Pic-t f&*J Valid S&x0&()Picft f&!} V&lid Civil ( }
Plttt {OS®} Valid (XSdad>O -And.
& 11,15 G&t XPeso
@ 11,43 G&t& 11,68 Get
@ 12.15 Get& 12,43 G&t@ 15,15 flet& 18,15 Get& 15,53 Get& 16,53 Get& 15,68 Get& 16,68 Get@ 19,14 Get@ 19,53 tííet& 19,67 (Jet& 31fll G&t& 21*29 G&t@ 21V59 G&t& 22V11 G&tft&adJf EnGat
Pict Valid XP&sc»0)=Arrib,=L
XEstatura Pict [999.99] Va.l±dXEsstaLtur-siL <22OXlnstvuc Pict f<»/7 V&l±d Instruí )
XtHreclXDirecZXTeleflXTelet'2XZonalXZona.2Xtfombr&lXTelet'3XZon&3
Plc-t [&.*} Valid
SndDol*o A&R&turn
Procedure Ei±ConDo Eli_RegR&tur-n
Pro&edurePriva te XPan_fíemoSave Sc-reen Tu«POS» OO Glear To 23* 79C&atra([HlST&KlA CÍLIN1CAJ* O&y iK>f 79)XftemoStr =
Set Color TÍ?
Prívate XP¿m_tfemo* JCSINoXSiNo = fSJSave Sc-reen To XPao^ffeMoJto AxSox VI th 22*65*33,79GS2*67 Say 'lapirljoe [ J '#22*76 &*t XSIJto PJc-t f#K!J Val Id XSJI.*o PrenderReadZto ApagarIf !Sscapar-() .And. XSdNo=[S3*** Aquí Irán losr fuvt&edlmJentosr para Imprimir lac-1 laicaEndlfIteator» Stereen From XPao^tfamo
Jtetura
& ti on*' ValidarReturnf.T. ,)
Ftwctlon VBllGan# ValidarRe tura ( .T. )
Functtion Sex&&* Validar el seexoPrívate Re&Res = .T.If Chr(LaatttoeyO) = Arriba
Re turn (R&& )EndlfIf >XSexo${MF}
M»n0aJ(fSetxo Inválido (H ó F)3*O)Res - .F.
Elseé» 9*44 Say Jf(XS&XQ=[tf3* fa&c-ulla&J» [eaoenlno })
EndlfRe turn (Res .)
Function Civil* Validar el Estado CivilPrívate BesRes = .T.If Chr(Laatt3nay()) = Arriba
Re tura (Res )EnálfIf !XGivil$[SGvWJ
Mensa -j( [Estado Civil Inválido (SfCf
Res = .F.Bl&e
# S,fi9 SaySndlfReturn(Resf)
fitnctlonParame t&r& XxPriva te XJtesXRes = fIf PcountO = O
Xx = .F.Endlf
Case XCiviJ = fS}XHe& = lf(Xx^[ Sol tero J*[o2t&i*& })
Case XCivil - fC}XRea - I f(Xx*[ Gastado J, [asado })
Case XCivil = fVJXJtes = lf(Xx* f Viudo J^fiudo 3)
Ca&e XGivil = [D3XRes = lf(Xx1t[Divorc-iadoJ^[ivorciado3'í
Ctese XGivil = fU3s = lf(Xx* [Unión }ffnión 3)
Return(XReB)
Fuñe tion Inst ru* Validar el Nivel dePriva-te ResRes = . T.If Chr(LaatJf&y()) = Arriba
EndlfIf ÍXJnsttruvflFMSNJ
Hens&j( [Instrucción no validaRes ~ .F.
E 2 se& 13* 1G Say
Endlf
func-tion Noat_Inait* Ttevu&lwB el noatore íte JaParéunetersse XxPrívate XftesXRaa = f 7
If Pcount() - OXx = .F.
SndlfDo Case
Case Xlnsttruc = [PJXftest = lf(Xx* [Primaria 3 t.[ri»aria 3)
Caste Xln&truc == [HJXJtea = IffXxrfHadia }*f&t1ia J)XJnsttruG = fSJ
Case Xlaatruc- = fNJXJtes = I f(X.v*[ Ninguna J»[inguna
EndCaseReturn(XRes)
Fuñe t ion Seguros# Valida si ti.en& o no segurosPrívate ResStore . I\o ResIf Chr-(Let3tkey()) = Arriba
Re t urn (Res )SndlfRes=.F.If
Res=.T.If
Keyboard Abajo+Abajo15)2O )
EndlfEndlfReturn (Res)
Function ReferenciaIf Chr(La&tkey( } ) = Arriba
If XS&guro=[N]JCeyBoard Arr-iba-f-Arriba.
EndlfEndlfReturn (.T. )
•*' Fundón: Selección tfe Empresta•*' Autor: Silvia Vela&tegui y Javier*/
Prívate
Vedare lUt_JtectlSJ. mt_Ind[lSJ» Abierta f 15}Af 111 (Abierta, ,F. )Declare XMaacfStJ* f£Tit[3], RGampa[3}
ZJ = [ Cónsul t]= fCaotino}
XTltflJ
RTlt[33 = Pad( [Ubicación ]*RffaavflJ ~ [XXJ
masctSl =2f Abrir ([GTACXWJ, [MI*CTAGÜN.DBFJ, fSJ,17)
[SELECttffi ZW COK£¿JtLTOKIC¿SJ) - 13G__ Camino = All Trim( Camino )+[\]G_J£mp>r&sa - SubStrf Con&ul trl,32)
BndlfCerrar ( [CTACON] )
Sndlf
Retum
*/* Programa: Se2£bf.Prg* Fim&iotf: $»10&c-JoM tie Enfermedades•#' Autor: SJ2i-'J& Ve2a&te¿giií y Javier Péreí
XAliasDo Apagar
Declare mt_Rev[15J* U2t_Jnd[15J,A fJ22 (Abierta, .F. )Dec2are CMaac£2]r CTAt[2Jr CCampo[2]CCampofJJ =CCampo[23 =CTJtflJ = P*á( [Código] *CTit[2] = P*ti( [Nombre de 2a Enfemedad]v31)CMa¿sc[13 = fXXXXXXXXXXJCMa£tc[2] = fte&2ioate([X3,31)If Abrir (fCTASNFJ* [íff.>CTAENF] f fSJ* 26)
If Se2evtarest(CGaapof Ctte&v. CTlt*{SELECTOR Jtff SNFERMEDADES3 ) = 1XeyBoard
EtidlfCerrar ( [CTAENF3
Do PrenderS&2ectReturn
*/
•*' Función S&2ec~c-ion t1e*' Autor Silvia \felast&gui y Javier Pér&¿-*,/
Prívate XA 2 i asiDo
t_Jtei?{15Jy V2t_lnd[lS3* Abierta f 15 JA fi22( Abierta * -F. )
CCaa>po[lJ = fGodPa&JOGanpofSJ = ftfombr&JCTit[lJ = P*d([GódigoCTit[2J - Pat1( I Nombre
= fXXXXXXXXXXJ
If Abrir (fCTAPACJ, [Mf.»CTAPAC} , fSJ.lS)If Selevt&rea(CCaitipaf Cttese* CTitf 1O, 2O* 12, 6S.
[SELECT&R IXS PACIENTES}) = 13K&yBoard CodPaa
EndlfCerrar ([CTAPAC3 )
EndlfDo PrenderSe2ect(XA2ia&)Return
*/•*'•*' Pluic-ian S&J&c&Jan tí*?* Autor JavJ»jr J^jres y ¿
Doissc-S&2ect()
5}* Abie
CTltfl}
= {XXXXXXXXXXJ
If AbrÍJ»(fCTAtm.*Jf (MUCTAMEDJ r {SJ,If S&2e^tof-&&(CC£uop&^ CMa^e, CTf t, JO, 2O9 Q6* GO,
[SELECTQR l*E MEI*ICAM$NT&S] ) = 13CoáM&ti
DoSeRe tura
*/'*/*/ Fuño ion#/ Autor*/ Feoha.*,/
TraGon.PrgTranss&c^iones de Consultas (Múltipla)Javier Pére& y Silvia Vela&tegulO4/O9/94
XMotlvo, Xttiaa&ro* XTipo
Procedure TraftOCWSet Color To (P^Nonua 1)Prívate BFec^Tra* BC&dPaePrívate XFex^Tra* XCodPaoPrívate XCodEnf* XCoiltfed,.Prívate XMejooStr*/# V&rables para uso tie archivos Buffers para renglonesPrívate BufferAr BufferB* BufferCBufferA = [&L1FERA ]+&_!!>+[ .DBF]BufferB = [BUFERBJ+a_lD+[ .DBF]BufferC = [BUFERC]+G_ll>+[ .DBF]*/
Store [C&J To XTipoStore fía te ( ) To BPec_T2*aStore Spaoe(JO) To BCodPaeStore SpacefSOj To BMotivo*Stot*e Spaoe(l) ToStore Spa&e(8} To BNiutieroStore Spat?e(31) To XNo¿obr&Iteolare Ult__Jteo[J5J^ Ult_lndfl5J, AbiertaflS]Afill(Abierta, .F. )Deolare HTitfSJ* HMasfS},Deolare KTit[2J.Deolare LTit{2]HTltflJ =
- [Feoha ]= fNivn&ro J= txxxxxxxxxxj- [D3= fXXXXXXXX}= [GodPac}= [Fec_Tra]= f Numero}
LCam[2J
HTit[3]HTit[3]HMasflJ
HMas[3]HCa&[l]
RTitfl] -KTit[2] = f Hombre de JaJ94a&[JJ = ÍXXXXXXVLXXJ
LTitCULTit[2]
LMa&[2} =
[Código J{Notfbre fiel MedioaxentofXXXXXXXXXXJ
LCamtl] = [CodMed]LCam[2] = [NomMed(CodMed ) ]
If Abrir fCf^APACJ, CMDCTAPAC] , [S], 16, [MDCTPAX1])
I fAbrir([ENCCÜN], [MDENC&JN-DBF], [SJ,17, [MDENCOX1], [MDENCOX2])
If Abrir ([CTADBS3* [MUCTAf&SJ , {SJ,1G, [MDCT&EX13 )1 f
Abrir([TRAENF], [MDTRAENF. DBF], C$3, 17, [MDTRENX1])* Creación efe los BaffersCopy Struc To &Buffera.If Abrir(CBUFENF], Buffera, [E], 1 7)
I fAbrir ([(ZTAENF3* [MDCTAENF, DBF], CE], 1 7, [MDCTENXl])
I fAbrir (CTRAMED], [MDTRAMED], [S], 16, [MDTRMEX1})
* Creación de los BaffersCopy Struc To ABufferb.If Abrir([BUFMED],Bufferb, [E], 17)
I fAbrir([CTAMED], [MDCTAMED.DBF] , [S], 17, [MDCTMEXl])
Se lee t EncConSet Filter to Tipo = XtipoGo TopDo DefTra@06,OO Clear To 23,78Do Editor W±th[TraJ, . F, , HCam, HMas, HTi t, .F.Cerrar ( [CTAMED] )
EndlfCerrar ( [BLJFHEB3 )
EndlfCerrar ( [TRAME&3 )
EndlfCerrar ( fCTAWFJ )
FndlfCerrar ( [MJFENF] )
EndlfCerrar ([TRAENFJ )
EndlfC&rrar( [CTADBS3 )
Endlf0&rrar( [ENCCXM] )
EndlfCerrar ( fCTAPACJ )
EndlfRe tura
Store l*ate( ) TG>Store Spat-te(lO) ToStore Spa&e(5O,) To XMotivo
Store Sp&cetf&) To XNumeroStore SpOLc(lO) To XMemoStrReturn
Procedure•* Asignación de base a. memorialIf !Rec
KeyboardEl se
Store Fec^Tra To XFac^TraStore GodPacStom MotivoStore Nuojej*oSelevt Ctaltest
To XCodPacTo XMotivoTo
e camposfteplac*
CtodPacc& Motivo
t& Tipo
If Modifica#
With XCodPacWith XffotivoWi th XtiumeroVi th XTipo
2a Anformación t1& J¿» IT&S& original a 1&
Do App_Etif_ASndlfS&2&ct BufEnfGo Topl*o Editor WithSe2ect Buftí&dZapJf Modifica
*' Appendi&o Ja información d&ha&& Buffer-
Do App_Et3f_CBndJfS&l&ct BufM&dGo TopZío Editor Vith [Pr&3f.T,,.L£aBtfLMa£i*LTi,*' E2 iminaci on de 2 o&Appendi&acion d&2 BufferDo App_Enf_BJ*o App_Enf_fíSelect CtaDesIf .'Modifica
ba&e or-iginal a 2a
Do Cap_M&mReplane GodM&n With XCodPavReplane ítemoStr With XHeooStrSel&ot EncGonKeturn
Procedure ffa&TraDo AXBox ttlth OS* 00, 23* 78Do SXBox tfith 1O*Q1 + 1O*77Lio SXBox With 13VO1,13,77I.*o AXBox tílth 21rOl921r77Do AXBax Vith 11 1 39*20*39é* O7VO€> Say [Código: 3& O7,3Cf Say@ 08*07 Say& O8r32 Say@ O9,O6 Say [Motivo:]@ JJÍ,JS Say [SNFERMEZMI*]*• Moatr-ax* Jo» titulos d&l Gditor- Roble o tleDo Ct*t1Etif &$r& Toma las £oi*d&naáas tl&l editor tfe
Set Color To (P_ Inverso)& 12+O3 Say Ha&_Suh(JiTit}Set Color To (F^Noraial)& Tope-lyColJ&v Say Jteplioatef [-]Do CrdPre &&& Toona last Cordenadajs íi&l edl tor t1&renglonesSet Color To (P_Jilshl )@ 11,54 Say [PRESCRIPCIÓN]Set Color To (P_Normal)Set Color To (P_Inverao)@ 12*41 Say Jía^_Sub(LTit)Set Ctelor To fP_Norwal)& Tope-l*Ctell&*z Say Replii?at&(f-]!.C&li:t&r-&*ll2;<3+l!Do CniTra &K& Rec-upera la& cortlenatlas del editorprinoipalReturn
Procedur» CrdTraTope = O7Collsq = 1OFondo ~ 18ColDer = &1ContLin - TopeJReturn
Procedur» DetTraSet C&lor To (P_Nonoal )Se le EncCon& O7f14 Say CodPac-& O7r4O Say SubStr(NouibrG(GadPao)rl925)@ OSf14 Say Fec^Traé» O8*43 Say Nuuero& O9*14 Say MotivoStore Numero To XNimeroReturn
Procedure tíe? 1 2V<aStore . T. ToDo While
Store .F, To En^Get@ 07,14 títet XCodP&c Valid ValCod(XCodPa.c)@ 08,14 Get XFec^Tra.@ Q8.43 G&t XNvaaero Vstlid Va.lNum(XNumero)@ O9.14 G&t X&otivo Pict "@!"ReadI? En__Get
Do Get DobleEndlf
EndDoReturn
Procedure BasTr&*' R&alisa las huP/*JÍ iw t& BGondi c-Jé> 07*14 Get BCodPac@ O8V14 G&t& 08*43 G&t@ Ü9f14 Get SHotivoDo Pi*&nt1eí*ReadDo ApagarIf
Ja
fdodPac- 7, Í^J, - T.
Cb__Gan(EMotJivv* * .F, , [C])Lo&ate
EndlfReturn
Do Eli_RegRetur-n
Fuño t ion
Funotion VBliTra* Validar- Elia>j.naoion&sReturn (.T.)
Fiinotion Nombre*' Fuño Jo/3 qu& denfuetlv& el Noabr& tft?JParame terst CoaPrívate fíes* UltAllastUltAli&s - SelectoSeleot CtaPaoSe&k CoaRes = If(Founá()*NoaibrG*Pad([NG Registrado] * £5) )
Function VetlGód•*" Función para validar <gwe «?.2 Código existaParame tera C&digQPrívate Res,, UltAli&sUltAliaa = SalectOSelect CtaPacSe&k CódigoIf Foundf ?
Res - ,T.@ 07*40 S&y SubStr( Nombre (Código), 1*25)
El seK&s= -F,Mensa j([Pac-ien te no Registrado] *Q)
Etidlf
JRe tura (R&& )
Fuño ti on•*" FunciónPar¿un&t&rs NPrívate RG&SeeJt NIf .Not. Fauna ()
Res = _T.
validar g«e? ftiuu&r& no se repita
&= .F.M&ns£tj([Núot&ra
EndJfReturn(Res)
exlate}, O)
Selevt TraBnf
Vhlle *S&le&t BufEtifAppentf Blank
fteplacr& TipoReplace Nton&roR&plact& CodEafSelectSkip
Return
With XFec_TraWith XTlpoWitb XNimeroVI th
JSTlpo+XNunero!Eof() .And
Endito
Select BufEnfPackGo TopDo Wh±le !Sof()
Select TrstEnfAddi_Rec(O)
F&c_Tra WJfcA JfFec^TraTipo tfith XTipo
Rep2ace Niooef^o With XNuneroRepisen C&dEtif VJth BufEnf->CodEnfS&l&ot BttfEtjfSkip
EtidltoS&lect BufEnfZapReturn
TraMedS&ek XTipo+Do Whi2& !Eof() .Ana.
Select BufftedApp&nd Bl&nk
ftec-_Tra WithTipc* VithNumero WithCodMed With TraMed- >GodMed
Select TraMedSkip
EndDo
App_Enf_L*S&l&ct Traffed
DoSkip
EndDoSel&ot BufMedPaokGo TopDo While !Eof()
Select TraM&d
R&plaoe TJpo Wlth XTipoNtooero tfJth XNiao&í^oCto&ted Wíth BufMed- >OodMed
Se2ec-t BufMedSkip
EnditoBufM&d
Jíeturn
Procedure Cap__(4emPrívate XPan_MemoSa.ve Soreen To XPan_MemoMensajCC J*O)@10,17 Olear To 19,59Centra([TRATAMIENTO], 1O, 31,44)XMemoStr = (ZstMemo(XMemoStr, 11,18, 19, 59, . T. )Restore Scr&ern From XPan_MemoReléase XPan_MemoSet Color To (P_Normal)Return
*/*'/ Nombre de 2 Programa: TraI,*la,Pr&*'/ Fundón- Transacciones tie#/ Autor: Javier Peres y Ve2astegui Silvia*/ Fecha.' O9/O1/94
DiaOOOOPrl va te XVI t^XCtodPac* XTieaJPrl va te XParcf&Ji tag& ,Prl va te BU1 t_A2 i as f
XFec_Tra* XTlpo» XNumero, XCarSec.
XCódSftfBFec^Tra» BTipo,
BC&dEnfPrívateStore Selecto To lUt_AliasDeolare UJt^RevflSJ* mt_Intffl5}>A fi22( Abierta, -F. )Declare HTitfS}, HMa&[4], HGam[4JHTit[lJ = [Fectha]HTit[23 =HTltfSJ =HMastil] =HM&&Í2] = fXXXXXXXXXX}HMast[3] = [XX]HMasfJJ = fXXXXXXXXJHCaoiflJ - fFec_TraJHCam[2] = [CodPac]HCam[3] = [Tipo]HCam[4] ~ f Numero}Prívate BufferBuffer = [BUFFER]-*G_2I.*+[.l*BF]Store SetleetO To Vlt_JUiaaDeclare Ult^fiecflS]»A f 112 f Abierta, .F, )
Abierta [15]
DeclareRTitfl]RTitiS]RTitíS]J9ta£t[l]&taa[2}RMast[3]RCatoil]RCatn[2]RCam[3]
KCaaj[3],KTit[3]
Pad( [Nombre][Porc.]fXXXXXXXXXX}Replícate ([X[999-99]fdodSnf]f fiambre }f Porcentaje}
3O)
A f 122 (Abierta, .F. )
LTitíl]LTltfZ]LTit[3]
= Pati([Cád],4)= Pad(f Nombre} f 30)= fPorc.}- fXXXXXXXXXX]
LCaaifl]LCam[2]LCam[3]
= [999.99]= [GodMed]- [Nombre]= [Porcentaje]
If Abrir ([TRAMEDJ, CMDTRAMED], CSJ, 16. [MDTRMEI1])Copy Struc To &Bu±'±~er.If Abrir([BTJFFER],B(JFFER,[E].17)
ZapIf AhrlrtfTmSNFJ* {WrTRAENFJ * fSJrlG
Copy Struc- To ABufferS.If Abrir ( fSUFFERZJ „ BUF&BR* [B3 , 1 7)
ZapIfAbrirUfENC&CWJ, {MRENCM&VJ , fSJ,16, [MDECMQ113)
Do DefRenZto InoKenI.*o Def&ial*o InvDlaS&t Color To (ILNoratal)& O6f14 CJear To 21*66l*o Editor VI th{Día 7, .ferrar ( [ENCMCW3 )
BndlfCerrar ( [&LJFFER23 )
EndlfCerrar( [TKAENFJ )
SndlfCerrare [BLJFFER3 )
SndlfCerrar
END1F
Return
Proo&dureStore dat&( )StoreStoreStoreStoreStoreReturn
To ^To BTlpoToToTo BGtodPac-To
DafDlaStore dat&(jStore ¿$Store SStore Space(l)Store SStore SSele&t Buffet*Z&pSe2et?tRotura
To XFec^TraTo XTlpoTo XNuoteroTo JSCarSeoTo JfCodPac-To XTleneffov
Procedure A&gDia.If ¡Rec_Lock(5)
KeyBoardSlSB
TipoStoreStoreStoreStore
CarSecGodPac
ToToTO
ToToTo
XGarSec-XCodPac-
SeJeot EtJcMo\rEndlf
Probadura
TJpo
GarSec-C&dPac-
WdthWitf*VithWSthmtbWlth
[R&nl f.T.
lío While !Eo>f() .And.f.»o Eli^R&gSeJ&ot R&nl*iaSkip
BndDoEndlfDo AppSeleotRe turn
BufferGo TopIto Editor WlthJf Modlfloa
RenDla
XF&c-^TraXTJpoXNtmeroXCarSecXGodPac
af KTi t , . F.
= XNumero
MaatDla*' Ka£st?¿t a tíe Ja PantallaDo AxBox VI th 00*01*23*79@ O7tOB Say [Código: }& O7*3O Say fPaol&nt&: J# O8.O7 Say [F*c-ha: }& O8*3S Say fNüm&^t: }& O8f58 Say [Asociar: ]& O9,O6 Say [Motivo: }Set Color- toDo CrdKonSet Color To& 13* OS Say Ha&_Sub(KTlt)Set Color To (F_Nonaal)® Tope- 1» Col J&q SayDo CrdDlaReturn
Procedure CrdDiaTope = O 7Fondo = 22Collzg = 2OColDer = SOContLin = TopeReturn
Procedure DetDia* Presentar los campos en pantallaXtfumero ~ Numero@ 07,14 Say CodPac& O7.4Ü Say Des Nom( CodPac )@ O8, 14 Say Fec_Tra@ OS94O Say Tipo@ 08,43 say Numeroé? 08, 67 say Asociado@ O9, 14 say MotivoDo Di a_fteg Mí th [RENENF] , JKWune.ro
Do DisL-Regl Mítfr [RENMEt>}f
[Reñí 1Return
Store .T. ToCle&r G&tsDo
& O7f14 Get XGodPac Valid Va2God(XGodPav)# Q3,14 G&t XFec& O8,4O Get XTdpo
& OS , 57 Get XAaociado® Q9,14 Get XMotivofíead
Do ItobleGet WAth 1Bndlf
EndDoStore .T. To E/t_GetReturn
PrJ va te BCbndJ &Clear G&ts& Q7r£l Say BCódPac-Do Prender@ O7r22 Get BGodPac-Do Prender
Do ApagarStore .T, To En_Gat
*/*/ Nombre del Programa:*X Ftujoion; Editor de Colores para Usuarios•*/ Autor: Javier Peres A Silvia Velastegul*/ Fecrha: 2£-Ol-19£f5
ColOOOOPrívate Itfnversof IWormal* DGaJa,
Abierta f 15 JA f 121 (Abierta* .F. )2f Abrir (f CTAUSRJ* fMDCTAUSR.tiBF}, {SJ> 1 7)
Loc-ate ForIf
Remplaza en la base
Aag_Cbl && Asigna 2&& valoresPantalla de Cblorea
_ Jteali&a losIf
IfBo Itp2_Gbl
EndlfEtidlfUnLo&k
SndlfCerrar ( f GTAUSRJ )
SndlfReturn
Procedure As£_ColStore £ln verso T& Din versoStore ZKorjnal To IWorwalStore £Men£taje To ¿MensajeStore ZHighl To ffllghlStore Z&ijft To ItZajaStore JSAchoice To IXA&hoi&efíeturn
Pi*ocedureKeplaoe Slnverso Vith DJnversoRe place gNorotal With ENormalReplace ^Mensaje Witfy IWen&ajeReplaoe SHlghl With IWi&hlJteplaw Stetja Vith BCaJaJteplacte £A&hoit?e tflth IHAoholceStore ^Inverso To P_lnversoStore SNorttal To P_NormalStore ZMenssaje To P_MensajeStore ZHlghl To P_HighlStore ZGaja To P_CajaStore ZAcholoe To P_Acthoi*?eSet C&lw ToOlear
Do £7ana_Bc»xDo
Procedure Pant^ColSet Co2or To f006,00 C2ear To 20*79Do AxBox Vith OBrOO*£O*79
SXMGJGN COLORES USUARIO ]+AllTrlm(Noatbre)+[
S&t Color To (P_Jtenaaje)#O7,O1 Say Space(7a}607*03 Say [Función Patrón]&O7,34 Say [Color]#07,47 Say [Mapa}#CJ7*S5 Say&O7, 74 SaySet Color To#Cf3,Ol To OSf7SSOS t Oí Say [ Normal : 1Sil* Oí Say [Inverso:]»13*O1 Say [Hanoaje:]»15,O1 Say [Títulos:]&17,O1 Say [ Menú:]
1 SayIf
ar;¿?>(5^ Say fM»gro N]&1O.34 Say [A&ul B]Sil. 34 Say [Vet*d& GJSIS. 34 Say [Clano BG]S13*34 Say fJtojo R]&14+34 Say fMagn&ta RB]&1&T.34 Say fCa&tafio GRJSIS* 34 Say fBlaaeo W3&17,34 Say [Gris N+]&18934 Say [Amarillo GR+]&19V34 Say [Video Inverso 2J
Say [A&ul Brillante &+JSay [Vertte Bt-J liante G+JSay [Glano Sibilante BG+J
613*55 Say [Jfojo Brillante R+3SI 4* 55 Say ftíagneta Mt*122aate RB+JSI 6. 55 Say {B2ancx> Bt*j liante 1 7
El&e&O9f34 Say [tíegro N]S1O.34 Say [Subrayado BJ&11,34 Say {Blanco G}&1£,34 Say [Blanco BG]#13*34 Say [Blanco R]&14.34 Say [Blanco RB]615,34 Say [Blanco GR]616*34 Say [Blanco W]617*34 Say [Negro N+}613*34 Say [Blanco Brlll. GR+J619*34 Say [Video Inverso I]61O*55 Say [Subrayado Brlll. &+]
@11,55 Say C Blanco Brillante G+J812,55 Say [Blanco Brillante BG+J@13,55 Say [Blanco Brillante R+}@Í4,S5 Say [Blanco Brillante RB+]@16,55 S&y [Blanco Brillante W+]
EndlfReturn
G&t IWorotal PAct [8!] Valí ti DGolor(l)811,10 Gfft fílnv»rao Pdct (8! J Valiti
Get JWe/JASje PJct f#íjGet I.9U£hJ Pict [#!]
«17, JO G&t RAchoJc* Pltft (&!] VaJJrf SCo2or-(S)819* 1O Get ZJCaJa f*Jct {#!} Valid IXSalor(6)Do Pt*end&ríteadDo Apagar
Funetion DOoloHCual)Do Cast&
Set Color To&O9.O1 Say f
Case Cua2~2S&t Color To811, Oí Say fljjv&rato;J
Caa& Cual =3S&t Gol cu* To (IWenaaje)#J3*OJ Say [Men&aJ&:]
Case Cual =4S&t Color To (EHlghl)81óf Oí Say f Títulos:}
Cast& Cual =5S&t Golcu* To (ZMcthoJctG)817. Oí Say f Menú:}
Case Cual=&lS&t CoJor To (DCaJa)819, Oí Say f Marcos;}
Set Color To (P_Normal )
Prívate Jfas,fíes = .T.Do AxBox VI th IG, SO, 18*58S&t Color To (P^Acholc^)817,21 Fromp f Atzeptar }817,31 Promp [ Cancelar }817, -41 Prornp f Aceptar Itefault Jttenu To La_OpcRes = La_Opo=l .Or.If La_OPc = 3
If üoColorO
DINVERSC* -DNQRMAL = CW/N.N/W.N}DMENSAJB =DHIGHL -DCAJA =DACHOICS - [N/W,W/N,N]
EI seDINVERSQ =IWOfMAL -MENSAJE =IW1GHL =KAJA =IMOKMCE =
EíidlfEndlfRe tiim (R&£f)
*/'•*•/ Programa SdcCon.Prg*'/' Fundón JEtfjfco./* tíe consultorios*•/ Autor Javier Pares y Silvia Velastegui*/ Fecha 3O/O7/1994*'/
Píx>e<?rfiwe OanQQQQ•*" Variables tle aa>bi&nt&S&t Color To (F_N0j**tal}Prívate Xl<$_emp* XGansultr XCamlno* XDlreccion*XTelefS* XPo&taí, XFaxr ;
XPostall* Xffaxl,;XSec-ueac-la* XGon_tranaef XMar&a* XJtefer
Prl va t& BJtí_e«p, BGtonaul t „ BCantirto > BDirocc-i on f BT&l efl f
BTelefS, BPo&tel* BFax, ;Bltoctor* BEspeeJaJJ, BZScswJeJ, BT&lef3y
BPo& tal 1 , BFaxl » ;cl a , BCb/j_ trans „ jBKfeuva > BRefervariables t1& buaqueda
BConault =BCamlno = Space(4O)
Store Spat-tt(lS) T& BTel&fJ^ BTelefS* BFax*Bfaxlpac*?(31 ) To ERos-tal „ BRo&tor*BPostall
[ 3 To BSevu&n&ia* BGon^trajts* BMarcaBKofer -
# Variable t1& regresiónPrívate Llct_eap
AbieA f 111 (Abierta* ,F. )
& HTit[33*. Jffte&f3J. HCam[33HTitfl} = [Id]HTit[23 = PaddC&nsul torio} ,3O)HTit{3} = Pad([Doctor}* 31)HMa&flJ ~ [XX}HMas(2} = Jtapllcate({X},3Q)HHasfSJ =HCamdJ =HCao)[3} = f Cónsul tjHCaot[3} = {Dirección}If Abrir([CTAOCW}* {MZ»C3'ACON.ltBF}7. [S},17)
éW, OS Cl&ar To 22* 75Ito DefCon
Do Sdltar Vith fC^n}..F.rÍÍC^mf}ÍMas^HTit,,F.* ,' / ; ; ; ;- si esconsultar a Editor# * f í Arreglosrevisar* / /Tipo de Editor.* / Nombres de los Procedimientos
Cerrar ( [ CTACQN3 )SndlfReturn
Procedure DefCon
' = ( J
cus-J on =Store Space (15) To
Store Space(31 f To XPostal, Xfloc-taj*» XEspeoialiXDomic-1 ? XPostallStore f } To XSec-uenc-la* XCon_t¿XK&fer =Jteturn
AogCon* Asiginacrian deIf *Jtec_l&vls(5)
JCeyboartl l£s&ape
XConsult - Cónsul tXCamino = CaminoXDirec&ion = DirecciónXTelefl = Telefl
XPostal = PostalXFax = FaxXltoctor = DoctorXE&peciali =
XT&lef3 = TelefSXTeJef-t = Telef-4XPostall = PostallXFaxl = Faxl
XCan_trans - Con-1ransXfiai*ca = MarcaXJÍ&f&r = Kefer
SndlfReturn
Pr&cedure JíplGon# R&emplaso de Memoria a base de datos
ff líi-emp Mítíi Xldi^empCónsult Mí th XGonault
Replace Camino With XCaminoReplace Dirección With XDireceionReplace Telefl With XTeleflReplace Tele f2 With XTelef2Replace Po&tal With XPostalReplace Fax With XFaxReplaee Doctor With XDoctorReplace E&p&ciali With XEsf^cialiRetplace Domici With XDomiciReplace Telef3 With XTelefSKeplace Tele±~4 With XTele±'4Replace Postal 1 With XPostallReplace Faxl With XFaxlReplace Secuencia With XSecuenciaReplace Con_trans With XGon_tranBReplace Marca With XMarcaReplace Ref&r With XReferIf /Modifica
if mDoS&l&ct CtaC&n
BiseM&nstaj ( [Sfcrcur- el &J & testa no pudo crr&aj* el
o tie dato», . . ÍJ-,.0)
Do Eli_RegSndJf
Entilf
Jteturn
Ma&Gon*' Maaca -a de Ja pantallalío AxSox VI th O7*O3922*7S
Say INerttm del Consultarlo; }Say [Id: J
&O3,,O8 Say {Ifbj&adán d& lo& datóse: J»¿Qr£l Say fltí rece Jan: }&llr£l Say {Teléfonos: J&l£f!4 Say [Dirección postal: J»13r£7 Say {Fax: J&15f13 Say {Nombre del Doctor: J®16,18 Say [Especialidad: J&17VO8 Say [Dirección Doai&iliaria: }GIS, 21 Say [Teléfonos: J®19f14 Say [Dirección postal: }830,27 Say [Fax: J621 f£O Say [Referencia: JSet C&lor To (I^Norma 1 )Jfeturn
Procedure*' Presentar los c-tuupos en la pantallaSet Color To (P_Noroal)
2 Say Cónsul t
@Q8, 71 Say ld_Emp@09,32 Say [email protected] Say SubStr( Dirección, 1 ,3O)911,32 Say Telsfl@11,48 Say Te le f '2912,32 Say Postal@13,32 Say Fax@15,32 Say Doctor@18,32 Say Sopee ±&1±917,32 Say /temici918.32 Say Telef3@18,48 Say T&lef4919 f 32 Say Postall@2O,32 Say F&xl921,32 Say ReferRe tur n
Procedure* R&alisa los gets en la pantallaStore . T. To Sn_G&tDo PrenderDo While En_Get
Store. .F. To En^_Get&O8*3£ Get XGonault Valla !3bpty(XGQnstult)If íftodjfjv*
, 71 a&t Xltf_£bp
G&t XCsuoíno Va lid Va2Caml(XGamino>)
? G&t Xmim&Jcw Pict®llr32 G&t XT&l&fl®11748 G&t XTel&fZ#12,33 Gfft XPoatal®13*32 G&t XFax@15,33 d&t&1&+32 Ctet»17933 G&t XE&nici»18*3£ G&t XT&lefS&13,4£t G&t XTelef4819*32 G&t XPo&tallSSO f 33 Get XFaxl031*33Reati
Do
Snd&oZto ApagarRetur-n
BuaGon•*' Jt&£t2J&& 2as bu&Quetlas &n la pantalla
613,33 Say Bfkx616,33 Say BEsf817,33 Say BDomlc-i
&18@18,@19@2Q
32483232
S&ySstySay£ay
&21,32
Do Prender
BTele£3BTele±~4BPoBta.llBFaxlBRet'er-
@08.32&O8. 71@O9f32&1O.32&11.32&11.48&12.32
GetGet(jetGetGetGetGet
@15.32 GetReadDo Apa.ga.r-If ¡Escapa.* ()
BConaultBId_JSatf>BCaminoBD±r&co±onBTelet'lBTelet'2BPostalBDoctor
P±ct [&KS3Q]
J
[Camino 3»
. T. ,.F. , [GJ)+.F. , [C3)+
* [ItoctorJ.F. >.F. „ f C J )
Etidlf
Proct&clureTop& = O7Cali 3*2 = OSFondo = 32Collar = 7OGantLín = TopeRe tura
Fuiícti&n Vln&Conar- lnc:2u&-T. )
VEliCon
*******£Uitor de fitaferawcíarfes********/*/ Noaibre del Programa: R&nEnf.&rg*'/ Función: Realiza lo& Renglones del Enfenoedades*/ jíí/fctv,' Javier Peres y Silvia V&lastegui*/ Fevba: O2/O9/94*•/
Prooedure JncJfenStot-e SStoreSto**e OJt&turn
To B&odMedTo XNombre
OStoreReturn
ToToTo
XCodMeóc&a taffe
StoreStoreStos*e Por&ent&geJReturn
ToToTo
XCodtfetlXNomhre
Prooetlure
Jf&plaoeReplaoe
Return
TipoNumero
CodStof
Witb XF&c_TraWith XTipoWith XNuasei^oVith XGar&ecVith XCodEnf
Poroentage Vith XPorcantas&
Pro&editre HasRenSet Color To (P__lnv*rao)
S&t Color To (P_Noraíal)Say Replioatef [Say
Return
Tope
Coll&qOol&er
CrdRen= 14- SO
= 39ContLin = TopeRetitrn
Proo&du2*e ItetRt@ContLin»2 Say CodEnf
Say BeseNoart ( CodEnf )Return
Procedure GetKenStore . T. To En^GetOlear GetBDo Wh±le EnjGet,
Store .F, To8GontLin*2 G&t XCodEnf Valia Va2Oodl(XGoáEnf)Read
If En_GetJte Vakl&G&t ttith 1
BndlfEndDoStar* .T. To Sn_Re tura
Bu&R&n
SContLla^S GetDo Px^ender-R&sdDo ApagarStore -T. ToIf ¡ESCAPARO
-Jon = C&L_Gan(BGodEnf1, [GodSnfJr. f$J* -T, „ fCJ)For A&CSomdJ crian.
EndlfR&tum
EliRenDo Eli_R&gReturn
Fuño t ion VE2iJtenPt*ivate
= .T.
Function VIncrR&nPrívate XftesXRes = -T.
return
Sel&ot BufferZapSeleot TraEnfSe&k XNwB&roDo While !Bof() .And. fiíuoer&^XNunero
Select Buffet*Blank
Nwtt&Jt*o Vith* Tipnut Vith
With
Repla.ce Und With RenNut ->UndReplztce Cantidad With Rentfut-->C¿tntidadSelect RenNntSkip
EndDoSelect CtaAfatR&turn
S&le&tPaokGo Top
ct RanNut
VI. thTlpnut Vitb Buffar->Tipnut
Undftepl&c* Cantidad With Buff»r->GantidadSel&xt Buffet*Skip
EndDoSel&vtJfaturn
*/*'/ Programa TraEnf.Prg*'/ Función Editor Secundario tle Consultas
*'/ Autor Silvia V&la&t&gui y Javi&r Pere*/ Fecha O4/O9/94*•/'
Store Spa<?e(3l,} To XStore SpaceiflO} Ti? XCódShf*'Store O ToReturn
A&gEnfStore CbdEnf To XCodSnf*'Store Parc&JttaJ& To XPorcentaJeReturn
Prooedure RplEnfReplace Fec__Tra WAth XFe&_TraRepJace Tipo Vith XTipoRe place Numero tfith XfíuoíeroRepise* CtodSof Vith XCodEnf*Replace Porcentaje With XPorcentajeReturn
Procetlure MastEnfSet Color To (P^Inv&rso)& 13rO2 Say Hax_Sub(ftTit)S&t Color To (P_Norsial)* Tope-l*CojÍ2jsq SayR&turn
Procedure CrtllZnfTope - 14Collzq = OSFondo = SOCol&er = 37ContLin = TopeR&turn
ayn1.14 Say
Return
ProceáureStore .T. To En_Do Whil& Eti_&et
Stor& .F- To@ContLinT,O3 Get XC*wtEnf Valia XG&d&hfRead
If En_GetDo Ge t Doble
BndlfEndDoReturn
Procedur-e Bu&Enf* R&slisa las búsquedas en 2a pantallaPrívate BCoiKÍdcJLOfiQGontLinrO3 Get C&dEtif V&lid JÍCodEnf <>
Do
Z>t? Apagar-If fEfxraparO
L&ttte Fctr-EndlfKeturn
DoReturn
Fuñe ti on*' Validar In&lusi&n&s
Function VEliEnf•*' Validar Bliosina&ion&sReturn ( .T. )
Fuño t ion•*• Fun&i&n qu& ti&w&l v& &1 Nombre d& la enfermedad
Prívate Res,. VltAli&aVltAllaat = SelectoSelwt CtaSnfS&ete Cod
Res = SuhStr( Jf(Found( ) „ Nombre , Pad( [NoRegistrada] , ¿'-5 ) ) „ 1 , ?5 )Seleet(UltAliast)
*/#/ Programa*•/ Función Editor Sec-undario ¿fe Consultas-#X (Pre&c-ripc-ion)•#>••' Autor Silvia Velasitegui y Javier Peres#•/ Feeha
Store SpaeetlO} T& XC&Stof*& O To XPor&entajeRetur-n
To XCodHedje To JSPor&entaje
Vith }SFec-_TraWith XTipo
Replane Numero til th XNumeroReplane- C&dfted Wj th XCodffedReturn
ProoetiureSet Color To (P_JMveraoJ& 12,.41 Say Has_SulT(LTit)Set Color To (P_Norojal)í» Tope-1* Col lx<i Say Repli<?ate({-}» Col£»er~Coll&<f+l )Return
Procedure CrdPreTope =14y-t •» 7 T j-r •• — *íí
Fondo - SOCollter - 7é?ContLin - TopeReturn
Procedió*» ItetPre€K.'ontLin,.42 Say Pad(CodHedv3)&Con tLin, 54 Say SuliStr (NomPre < Codfted )*1* 2O )Return
Prooedure GetPreStore .T. To Eti^GetDo Uhile En_Get
Store ,F. To En_Get&ContLinf41 Get XC&dMed Valid JReadIf En_Get
Do GetDobleEndlf
EndDoRe tur n
Procedur-e BusPre* R&ali&a las bu&qufftfasr e/í la pantallaPri va te BGoncH c- i on
2 Get GodM#d Val id XCtodMená or52 Say
ReadI.*o ApagarIf ÍE
Lócate For-EndlfR&tur-n
Fünc ti on*
Fuñe t ion* ValidarRe turn (-T. )
*PPrívate Jte&, UltAliaa
sf = SaCtaHed
SeeJfRea = Sub$tr(lf(Faund( )Registrado] ,.£5) )*2, 25)S&lGvtdU tAliasi.)Rettirn(Res)
*/*X Programa TraSia.Prg*'/ Función Transacciones tí*? Cb/7£s«I fca.3 (fíu2tip2&)*'/ Autor Si2\-ri& Ve2aat&gui y Javier Peres;*X Fecha 11/O9/94
Proc&dure SinOOOOSet Colar- To (P_Norma2)
To £3> 7&
XGodSijir J£ToTo
RTit[2J, ffrias[£}. RCam[2]KTitil] - f Código 7KTit[23 = fNaasbj-* del Sin toma}KMasil] - fXXXXXXXXXX}RMasfZJ - Jfop2 ica te ( fXJ , 31 )RCajo[13 = fCodSin}KCaafS} =If Anrlr
l"o Editor- With [Cerrar (f CTASJfi} )
Endlf
Froc&dure*' Astignac-ian de ha&& aIf !
Stor* CodSin To XCStor& Noiobr& To
Endlf
Procedure Rp2Sin*' JRe&wp2a&o d& *?aotpo& tfe jo&jooria a 2aR&p2at?e CbdSin tfi th XGodSinRep2£»w //twiiw-í? WithR&tum
Do AXBox With 08+17*21*62Do SXBox With ll^lS^ll^&l& O9*33 Say [SINTÜMATC.»I¿)GIA]* Hosctrar los títulos de 2 editor I*ob2& o de-Set Co2or To (P__Jnvar-a0)& 12* O£ Say Hax_Sub(KTit)Set Color- To (P_Noratal )
Say R&p2iv&te( f-J* Gol Da
Do CrdSln &&& Recupera 1&& cordenadaae dej editorprincipalReturn
Procetiure CrdSlnTope = 12Collzq = 19Fondo = 18ColDer = GOContLln = TopeReturn
Procedure ItetSinSet C&2or To {P__Ni.wnal}Do DiaL.Reg Vith [CTASINJ, GodSJa» fCoKffturn
Do
FUne-tían Vln&Sin#' Validaí* IReturnf.T. )
Function VEHSín*' ValJdaí* 2£2¿MJÍJiRetum (-T. )
FunctAon V^2God•* Fundan paj-a validar- qu& &J Código <»xi&taPaj*£uoet&j*£i CódigoPrívate Rea* V2tA3.1asLUtAliase = Set2Gct()Res=. T.Seleot CtaSlnSe&k CódigoIf *Foimd()
Mensa j([SFr£»c-l ente no Registrado Jr O)EndlfSele&Return(lfast)
ti onsste
PrívateSeeJt NIf .Not.
Res = ,T.El&e
Res= .F.Hen0aJ([C&digo ya
BndlfReturn(Kes)
Select Tra.SinSeek XCodSinIto KbJJ* iBof() -And.
App&nd BlankReplac& Fec^Tra Witb
Tipa Wdth XTipof ttun&ro KztJrf CZotfSJia ttithTraSin
SkdpEnditoR& tum
App_Sin_B&t TraSínXCodSin
Do
SkipEndito
Go Top
With?e TJpo With XTipo
Vith XNuBieroVJth BufSnf-*GodEnf
S&l&ct BufEnfSkip
S&le&tZap
-t-
til
'X' ='X' =
'X' = c&oJgodá'X' ~ti, —
fc
*a &p apv?fff? J = t£O393dQ7
3 =
fí- = C338SOH90 =
X' = Cl393d£} = CS} -
9£ = ClJX&Offgo -X' =
3 =
O'fX*X*
*X*
FPC8CÍO] = -T.FPC8C11J = -T.MFONC3] =15MDBRC33 - 77
* Margen Isgui&rdo 58 Var-iosOPC7C1] = [ Mantenimiento JFPC7C1] = .T.MFONC4] = 05MDER[4] = 75Return
*/•*X Reporto*; Listado d&*'/ Autor- : Javier f'ére^ y Silvia Velastegui*/ F&oha : 14 de Sn&ro de J3Í95
Pro&edure ModO4Ql
•#' V&rl&blesEf tfep» Ancho* BCondidon
1 To Opc-^JKffp[KEFHCHL^IJ To
Stor& 8O To Ancho
selecciónXGodS
Spac*<lO) To XGodl* XCodS
*' Variafoles para recorridoPri\rat& Gandid
* Traer Jo¿r parame tro& tie selecciónDo PMadQl
IfR&turn
EtitllfCundid =Cb_Gc*n(XG!adl* fC^dPacJ, [>=]*. T. , fC})+;
* {<=J, ~F. , (GJ)
Se2ecion salida del reporte
If LasttKey()=27Return
EtniJfIteclare Ult^JtecflSJ* lUt_lnd{15J* Abierta f 15]Af 111 (Abierta* .F. )If Abrirf [CTAPACJ* fm*C¿TAPACJ* fSJ* 1&* [MDCTPAX1] )
I*o Imprimir With Opc_Jtep+ fOl}* NowKep^ AnchoGerrar([GTAPAG])
BndlfReturn
P¿*ocedure FtfodOl*' Captura de la Selección del reporte97*2 Clear To 11,39Do AxBox With 7*2*11,39&Q8, OS SAY [SELECCIÓN I.1EL
SAY [imSIffi HASTA]SAY [Código: J
Prender
1 G&t XCodl Piot [@K<]&1Q.23 Get XCod2 Pict t@K! J Va.lid XCod2>=XCodlReadDo ApsLg&rReturn
Procedure HModOl*' Implosión de la &afo&ver& tielZto JEsftT/-jÍ*t? With fVs JaDo Bscr-db& Vi th G_EMPRESADo Bacr-dbe VI th R&pHDo Esterjb0 JWfcft [CÓDIGO \fK9tBRE
\Do Baoribe Kffcfc fteplioat&(f-J*Ancho)
EModOl* Imp>**&siJion tíeJGo Top
While !Sof()If ACondicl.
WitbEndlf
*/*/ Reporta; Listado de Historias clínicas*'/ Autor: Javier Pares y Silvia V&lastegul•V Atábate*: J-í tío Enero de 1995*/
Procedure HodO4O2
•*' Variables de AmbientePri va te Qpo__Rep , NomRep , Ancho , BCondi ci onStore 1 To Opc_RepStore [REFMQDO2J To NojofíepStore 25O To Ancho
* Variables pana selecciónPri va te XGodl* XCtodgStore SpaceflO} To XGexM, XCodS
*' Variables para recorridoPrívate Gandid
* Traer los par&faetr&£t de selecciónI.*o FModOS
Jf LasttKey()=27Return
Endlf
** Selecion salida del reporta
Jf LastKey()=27Return
Endlfl*ecl&™ Ult_Rac[153* lUt,IndflSJ* Abierta f 15}Afill( Abierta f ,^_ )If AbrinffCTAPACJ» {tff>»CTAPACJ , {S}, 16, [Ml*CTPAXl])
Do Imprimir Vitn Opc_Kepf fOJJ* NomRep* AnchoCerrar ([CTAPAC3 )
EndlfJfatum
Pr&cedurt* PHodOS* Captura d& la S&l&c^don d&l j-epo-rfce
,2 Cle&r To Ily3&AxBox With 7*3*11*39
SAY {SELECK10N DEL REPORTE JSAY [ISESDE HASTA J
#1QVO3 SAY [Código: 7Do Prender«20, JJ G&t XCtodl Pict [&K!J€flOf£3 G&t XGodS Pict fGXÍJ Valid
ReadDo Apagar-Retur-n
Pr-ocedure HModO2# Impi^&síon í1& Ja o-ab&cejra d&I*¿XT E>íba VJth flía JaDo EavrJb* Kífcfcl*o Escriba WithDo Escriba Kffcfc [CXWIGÜ \
DIRECCIÓN \ \ CIVIL ITJPO S. J
Mi ¿A AtepJ l&ataff-},, Ancho)
\E
*' JoiprefrJcui cíei ¿M/ejrpo ¿tejGfo Top
WjiJe *Sof()If &Cünd¿cl.
- -T.Kí fcíí CbdEftEKHt f J+Nanabr&+ f }+&iiwl + f
SkípEnditoRetuf-a
3.8 DISEÑO DE
PANTALLAS V
SECO» CÍA. LTDft.
Médicos Ver. i.C
Copyright le) 1.995Fecha de hoy: 19/05/95
Hora: 05:33:04
Silvia Velastequí ft Javier PérezAiíbato - Ecuador
Inórese Su Ciave:
Ver . 1,0
CLÍNICA Í9-fíavD-Í995Actualizar Cuentas Moviaientos fteoortes Procesos Terainar
o r¡
CLÍNICAActualizar Cuentas
Escoger ConsultorioConsultoriosControl de UsuariosConfiguraciónMedícasentos
j SintoaistoioijíaI EnfermedadesPí Directorio! Cambiar Fecha
Médicos Ver, 1.0Í9-Havo-í995
HovUientos Repartes Procesos Terainar
CLÍNICAActualizar Cuentas
I Escoger Consultorio |Í Consultorios tja ií Cont ro l de Usuarios ]
dedicas Ver . 1,0Í9-Havc-1995
Novifflientos Reportes Procesos Tersinar
Hedí
SintiEnfeDireí
Canib'
IDIConsultoriot
Q2JCLINICA
10JHEDICOS ASOCIADOS
i¡Ubicación
j¡C:\EXE\HED\CU/C:\El(E\flED\«EDICOS !i iii
Médicos Ver . 1.0CLÍNICA 19-HavActualizar Cuentas Movimientos Reportes Procesos Terainar
Escoger ConsultorioConsultoriosControl de Usuarios 'Con fMedia IDIConsultono
p iSintl ,EnfeJ 02ÍCÜNICADireIJ 10 IMEIHCüS ASOCIADOSCsfsbl
Escoger Consultorio: !Permite seleccionar e! consultorio !icon el que se va atrabajar. 1
e c c i o n a r
Médicos Ver, 1.0CLÍNICA 19-Havo-í995
Incluir Nodificar Eímsinar Revisar Buscar
Escoger ConsultorioConsultoriosCentro! de Usuarios
Nombre de! Consultorio;ubicación de los datos:
Dirección!Teléfonos;
Dirección postal:Fax;
Nombre del Doctor;Escecialidati:
Dirección Domiciliaria;Teléfonos;
Dirección postal:Fax;
Referencia:
I M o v e r f t e S e l e c c i o f í a r
Médicos Ver. 1.0CLÍNICA 19-HaYD-1995
Incluir Modificar El minar Revisar Buscar
jj Escoger Consultorioi ConsultoriosI Control de Usuarios
C,Consultorios:Permite crear un nuevo consultorio.
Nombre del Consultorio: CLÍNICA i sodificar, eliminar, buscar, oiubicación de los datos: C : \ E X E \ H i revisar el
Dirección: ITeléfonos: !
Dirección pos ta l ; i
de! Doctor:Especialidad:
Dirección Domiciliaria:Teléfonos;
Dirección costal:Fax;
Referencia:
d o v e r E n t e r S e l e c c i o n a r
r
CLÍNICAIncluir
Médicos Ver, 1,0
Modificar Eliiinar Revisar Buscar
Escoger ConsultorioI ConsultoriosI Control de Usuarios
¡ConfiguraciónMedicamentos| SintoíistoiooiaI EnfersedadesI Directorioi\ Cambiar Fecha
CONTROL DE USUARIOSClave i Nombre del Usuario
7Í564 VELASTE6UI SILVIAUSERÍ JAVIER PÉREZ
e c c o n a r
CLÍNICAIncluir
Médicos Ver. 1.0
1Modificar Elisinar Revisar Buscar
Escoger ConsultorioConsultoriosControl de UsuariosConfiguraciónMedicamentos
Control de UsuariosPensite crear los usuarios oue
ti tendrán acceso ai siste*a
I Enfermedades I CONTROL DE |i i ii Directorio | ClaveiNoabre del Usuar!
Cambiar Fecha71564 VELfiSTEGUI SILVIUSER1 JAVIER PÉREZUSER2 USUARIO NUHERO 3
e c c i o r ¡ a r
CLÍNICAActualizar Cuentas
Hédicos Ver. 1.019-May0-l<?<?5
Hovimientos Reportes Procesos Terninar
Escoger ConsultorioConsultorios
FOT
Norial: U/N
Inverso: N/U
Mensaje: *K
Titulos; »+/N,N/M
f Menú! B6+1í fiarcos: H/N.N/U.N
NeqroSubrayado 6Blanco SBlanco BGPlaneo RBlanco RBBlanco 6RSÍ anco tiNeqro N+Blanco Brill, GRt-video Inverso í
Subrayado Brili. B+ |Sianco Srillaníe G+ IBlanco finlla^te B6+ [Blanco Brillante IH jBlanco Brillante RB+ I
n
¡Blanco Brillante M+ I
e c c i o n a r
CUNICftActualizar Cuentas
Escoger ConsultorioConsultorios
Función Patrón
Médicos Ver, 1.0
Hovisientcs Recorte:19-Mavo-1995
Procesos Terminar
ColorConf igu rac ión ;Permite seleccionar los colores con
iNorial! H/Ni
1Inverso: N/W
Mensaje: W+
Títulos: W+/N.N/M
Henú: BG+íMarcos: N/N.N/K.N
Neqro 1 dependiendo del tipo de rconitor. i1 !
Subrayj fBlanco)' íi iBlanco! ii iBlanco) \) '
í !
Blanco! it iBlancol i•- iMeara ! it iBlancal I
! 1Video i i
i i1 1liftlfflHtlltiiHHlHIHtltltlllllHffIlf ;
mmmmiiiiimiim= b e i e c c i o n a r
CLÍNICAincluir
Médicos Ver, 1.0
Modificar Eliminar19-Havc-m5
Revisar Buscar
Escoger ConsultorioConsultoriosControl de UsuariosConfiguraciónHedicaientosSintoítatoÍDQía ;EnfermedadesDirectorioCambiar Fecha
o v e r e c c i o
Nédicos Ver, 1.0CLÍNICA Í9-Mavo-1995
Incluir Modificar Elitinar Revisar Buscar
Escoger Consultorio ¡Consultorios j
\l de usuarios í
Configuración !Nedicaneníos . .•:_._•..
nSintoiaíoioqía 8EnfermedadesDirectorioCambiar Fecha
Hedicamentos:Esta opcicn oer*ite generar una
I lista de los «editasentos en ia
CódiaoMEDICA cual ud. puede ir jerarquizando coni
I eí carácter (.!,
CLÍNICAIncluir
Médicos Ver. i.Ú
Hodificar Eliminar Revisar Buscar
Escoger ConsultorioConsultoriosControl de UsuariosConf¿curaciónMedicamentosSintomatolcQíe IEnfermedades | CodicioDirectorioCambiar Fecha
SINTDHftTOLOGIAe del Síntoma
DOLOR DE CflBEZADOLOR DE COLUMNA
e c c i o r t s r
CLÍNICAincluir Modificar
Médicos ver. í.O
Eliminar
1 Escoger Consultorio
Í Consultor iosControl de Usuarios
ai! Configuración
Í Nedicaserttos r^—-SintoftatoÍDqía í
1 Enfermedades
H-Havo-l^SRevisar Buscar
Sinto»atologiaiEsta opción persite registrar todoslos sintoias que pueden presentarse
S DirectorioI Cambiar Fecha
CodicioSINTQNi en un diagnostico.
iNoubre del!
DOLOR DE C]DOLOR DE Ci '
e c c
CLÍNICAincluir Modificar Eüpifiar
i9-Havo-1995Revisar Buscar
Escoger ConsultorioConsultoriosControl de UsuariosConfiguraciónHedicaisentosSintoiatologiaEnferiedadesDirectorioCambiar Fecha
Nosbre de ía Enfermedad
APENGECITISAPENDICITIS SIMPLEftPENDiCITIS ftGÜDA
ULCERA
o v e r
Médicos Ver. i.OCLÍNICA 19-Havo-í995
Incluir Hodificar ElUinar Revisar Buscar
Escoger ConsultorioConsultoriosControl de usuariosConfiguraciónMedicamentos F STuSirttosiatoíogía fjEnfermedadesDirectorioCaubiar Fecha
CódicoENFERHÍre de
DE ENFERHEDADESEnfernieóades:Persite el ingreso en toreacsíegcriíacia de las enferitetíadesaue servirán coso oían de cuentaspara las opciones de fliovi*iefitos
APENDICITí! tiene las opciones de incluir.APENDICIT!APENDICITII buscar.
ULCERA
ificar, eliminar, revisar y
Médicos Ver, 1.0CLÍNICA
Incluir Codificar Eliminar19-Hevo-H95
Revisar Buscar
íl rÜ Escocer Consultorioí "it Consultorios
Control ce Usuarios
Medica Códiqo: 0000000001 Nombre: DR. MISURSinto»|Efifertfi
MDirectS Dirección 0onciliaria¡ ftv. ftiasones v Roca
Telefonos: 513-555 455-Í93
F a x :
Dirección Postal ;xyz
Referencia:
miimmmmmiHHmmjmumiiiHmmuimmiimlJ Conforie, «Tsc» Cancelar ¡
Médicos Ver. 1,0CLÍNICA Í9-Kayc-1995
Incluir Hodificsr Elminar Revisar Buscar
Escoger ConsultorioHü Consultorios1 Control de UsuariosConfio.
I Medical Código; 0000000001 No«bre: DR! Permite el inórese de los datos« S ti! Siníogil 1 personales D refenciales de los¡t H !s EnferiBl ! isédicos.I " 'it Directü Dirección Doiiciliaries A v . Am!
i|
Teléfonos: 5Í3-55ÍI
Fax; iífi
Dirección Postal: Y: Ii
Referencia: I
CLÍNICAActualizar Cuentas
Médicos Ver. 1,0
Movisien tos Reportesi9-Havo-1995
Procesos Tersinar
Escoger ConsultorioConsultoriosControl de UsuariosConfiguraciónHedícasentosSintoffiatología
e c c i o n
CLSNiCftActualizar Cuentas
i " ~~~~"~ ::~: íI Escocer Consultorio flp - i!I lonsultonosContro! de UsuariosConfiguración sHedicatentos
1 Enferfltedadesn1 Directorio
Cambiar Fecha
Hedí eos Ver, i.O
rtovisientos Reportes19-Mavo-!995
Procesos Ternnar
PeriBite reoistrar la fecha actual
I! Fecha de Hoy: 19/0I
E s
ClINICAActualizar Cuentas
Médicos Ver. 1,0
Movimientos Recortes19-Havo-19?5
Procesos Terminar
e c c
CLÍNICAIncluir
Médicos Ver, 1.0
Nodificar Eliminar Revisar Buscar
MODULO DE CUENTAS DE PAC ENTES
Fecha: 04/05/95Lugar Nací*: ANBATG
Peso: 150,00Instrucción; Superior
Tico
DirecciónResidencia: Lft PENÍNSULA
Trabajo: CALLE BOLÍVAR
En caso de Urgencia avisar a:Nombre: SILVIA VELASTESU!
Seguro: N Tipo de Seguro;Reíer:
Sex! Este module tiene por objetivoFechj diseñar la ficha clínica del
de Sanar! paciente, la missa oue contendráOcupacióí datos personales del misto, adesás
! oodra llenar 1 historia clínica deltI iisso, periitiendo aue ÍOE datos de! la ficha sean isprescs en papel.
J Conforme, «Esc» Cancelar
CHUICAIncluir
Médicos Ver, 1,0
Hodificar EhíiinarÍ9-H3VO-Í995
Revisar Buscar
I Código: i.1 Nofbre: JAVIER PÉREZ
Fecha: 04/05/95Lugar Nacín: ARBATG
Peso: 150.00Instrucción: Superior
Sexo: Masculino Estado Civil: CasadoFecha: 04/05/95 Edad: 26
Tipo de Sanare: AR+ Estatura: IfrS.OOOcupación! BCO.FOHENTO
DirecciónResidencia: LA PENÍNSULA
Trabaje: CACLE BOLÍVAR
En caso de Urgencia avisar a;Nosbre: SILVIA VELASTEGUI
Seguro: X Tipo de Seguro!Refer;
Teléf¡ 854222 Zona:Teléf: 828026 Zona:
Teíéf: 854222 Refer:
Aseguradora:
Médicos Ver, 1.0CLÍNICA
Incluir Modificar Eliminar19-ha*o-1995
Revisar Buscar
Código: 1.1 : JAVIER PÉREZ
HISTORIA CLÍNICA
i El paciente Sr.O padece de las siguientes enferaedades:i gripe, tos, dolor de cabera,i Adeías tiene faisiliares con otros sicjnos cono son Diabetes, etc
CLÍNICAIncluir
Médicos Ver. 1.0
Modificar Eliainar19-Hayo-1995
Revisar Buscar
Código: i.l fíosbre: JAVIER PÉREZ
Fecha: 04/05/95Lunar Necis: AMBATO
Peso: 150.00Instrucción: Superior
Sexo: Masculino Estado Civil: CasadoFecha: 04/05/95 Edad: 26
Tico de Ssnqre: AR+ Estatura: 165.00Ocupación: BCG.FOMENTO
DirecciónResidencia: LA PENÍNSULA
Trabajo: CALLE BOLÍVAR
En caso de Urgencia avisar a:Moriré: SILVIA VELASTE6U!
Seguro: N Tipo de Seguro:Refer:
I Grabando esoere un Bonenío por favor
Teléf: 854222 Zona:Teiéf: 828026 Zona:
Teléf: 854222 Refer:
Aseguradora: r==Í53
Ficha Clínica
Códiqo: 1.1
Fecha; 04/05/95Lugar Nacía; AMBATO
Peso: 150,00Instrucción: Sueerior
toabre: JAVIER PÉREZ
Sexo;Fecha:
ríascuiino04/05/95
Tipo de Sanare: ARt
Estado Civil: Casadotdad: 26
Estatura: ÍÓ5.00Ücucación: BCG.FOMENTO
DirecciónResidencia; Lft PENÍNSULA
Trabajo: CALLE BOLÍVAR
En caso de Llrqefícia avisar a:Nonbre; SILVIA VELASTEBUI
Seguro: N Tipo de Seguro:Refer:
Teléf: 854222 Zona:Teiéf: 82802o
Telefs 854222 Referí
Aseguradora:
CLÍNICAIncluir
Médicos Ver. 1.0
Modificar Eiiíainari9-Mayo-1995
Revisar Buscar
Código; 1.1Fecha; 12/05/95
Motivo: toz
Paciente: JAVIER PÉREZNúmero: Cu-uno
CódigoENFERMEDADNombre de la Enfermedad Código
PRESCRIPCIÓN(Nombre del Medicamento
No RegistradoNo RegistrarteNo Reaisírado
M o v e r < E n t e r S e 1 e c c i
CLINICftIncluir Hodificar
Hédicos Ver. i.O
Eíminar Revisar19-Havo-i995
Buscar
u
u..
Código; 1,1Fecha: 12/05/95
Motivo: íoz
Paciente: íNúsero: !
ii1
CódigoENFERHEDAD
(Nombre de la Enfenedad
No RegistradoNo RegistradoNo fieqistrado
OPCIÓN CONSÜLTñS:
Esta opción pensite el ingreso deloacierite mediante un códiqo, e!mÍ5«o oue sera verificada del plande cuentas , una ve; hecho esto,desplegaré el noabre en eí caiporespectivo, lueoo pasarÉ airecuadro de enfermedad y luego airecuadro de prescripción,ftaui se puede ayudar con la teclaF4
J Conforme, Cancelar
CLÍNICA
I n c l u i r
Médicos Ver. 1,0
ftodificar Eliminar
19-H6VO-1995
Revisar Buscar
Código: l.iFecha: 19/05/95
ilativo:
ENCódiqo
H o
Paciente: JAVIER PÉREZNúmero: Cü-
HISTORIfi
El paciente Sr.O padece de ¡assiguientes enfermedades; qripe, tos,dolor de cabeza.Atieias tiene familiares con otrossionos cono son Diabetes, etcEl día de hoy fue atendido y sufre deun fuerte resfriado
, IPC¡QNiIdel Metí i canterito
e r E n t e I e c c
CLÍNICAíktuahzsr Cuentas
Médicos Ver, i.í!9-Havo-i995
HovUientos Reoortes Procesos Tersinar
Listado de PacientesHistorias clínicas
! Listado de consultasfListado de Diagnósticoslistado de sintotasListado de erifer«edadesListado de (Bedicaeentos
o n
CLÍNICAActualizar Cuentas
flécheos Ver. i,O
Moví»ientos ReportesÍ?-Havo-19(í5
Procesos Terminar
Listado de Pacientes
OPCIÓN REPORTES, jEsta oDcion persute obtener tres }itipos de reportes por cada una de ilas suboDCÍDnes. que son: iPantalla ¡
i! Impresora IDisco 'i
n t e r
Médicos Ver, 1,0CLÍNICAActualizar Cuentas Movimientos Reportes
í9-davo-1995Procesos
i Lisiado ce PacientesHistorias clínicasListado <Je consultasListado de Diactnostícoslistado de síntomasListado de enfermedadesListado de sedícasentos
SELECCIÓN ÜEL REPORTEDESDE «ftSTA
Códioo:
CLÍNICAActualizar Cuentas
Médicos Ver. 1.0
Hovistientos Reportes Procesos Tena mar
Listado de PacientesHisterias clínicasListado de consultasListado de Diagnósticos
i listado deiListado de enfermedades
i Listado de ledicasentos
SELECCIÓN DEL REPORTEDESDE HASTfi
Código:
PantanaImpresora
! Disco
ifcsc» lancelar
Va laCLÍNICA
CÓDIGO [NOMBRE I DIRECCIÓNi i
1.1 JAVIER PÉREZ Lft PENÍNSULA1.2 AAA1.3 8BB1.4 VELfiSTEGUl SILVIA La Península
Utilice las Flechas de cursor oara «overse y Esc para salir I
Médicos ver, i,O19-«ayo-1995
Actualizar Cuentas ttovimientes Recortes Proceses Terminar
Listado de PacientesHistorias clínicasListado cíe consultasListado de Diagnosticaslistado de síntomasListado de enfermedadesListado de aiedicafflentos
SELECCIÓN DEL REPORTEDESDE HASTA
1Código;n
PantallaIipresoraDisco
repare impresora y presione Tnter o Esc cara cancelar
Va Ía espresa
CGDÍSO [NOMBRE
í.l JAVIER PÉREZ1.2 AAA1.3 S8B1.4 VELASTESU! SILVIA
DIRECCIÓN
LA PENÍNSULA
La Península
Médicos Ver. 1.019-Mavo-l995
Actualizar Cuentas Hoviiientos Recortes Procesos Tersinar
Listado de PacientesHistorias clínicas
I Listado de consultasiListado de Diagnósticos
i listado de sintosasListado de enfermedadesListado de tedicasentos
SELECCIÓN DEL REPORTEDESDE HftSTft
8iCódioo;
Pantalla iInteresaraDisco
Ingrese noabre del Archivo; PfiüEBflE
Actualizar Cuentas
Médicos Ver. 1.019-Hayo-l?95
Movimientos Reportes Procesos Terminar
e c c i o n a
Actualizar Cuentas
Médicos Ver. 1.019-Havo-Í995
Recortes Procesos TeriinarHovieientos
Esta opciorr peralte darj santenimiento a ÍDB archivos dej datos con los que se trabaja, estoi i! se io hará cada vez que el usuario
!Q requiera.
Hanteniiiento
uimiiiimme l e c c i ó n a r
HédicGs Ver. 1.01
Actualizar Cuentas Hovi»ientos Reportes Procesos Terminar
Generar ArchivosReorganizar
ontorise, «tsc» unceiar i
Actualizar Cuentas
Hédicos Ver. 1.019-Hayo-1995
Hovisientos Reportes Procesos Teriinar
OPCIÓN MANTENIMIENTO.SenerReorql Esta opción persite dar
i ianteniíiento a los archivos deidatos con los que se trabaja, estose lo hará cada vez que el usuario
j lo requiera.
Mantenimiento
Esta opción tiene dos subopciones[ que son,1
Generar Archivo yReorganizar firchivos
i o n a
Actualizar Cuentas
flécheos Ver. 1,0
Hovifflíentos Reportes19~hayo-1995
Procesos Ter«iriar
Generar ArchivosReorganizar
^rocessnoo esoere por favor!.,.,i
Actualizar Cuentas
Hedí eos Ver, 1.0i
Hoviaientos Reportes Procesos Termnar
Generar ArchivosReoroanizar
i Reoroaniianco archivos del Séoicos ver í.y 1
Médicos Ver. 1,0l9-«avo-1995
Actualizar Cuentas Movimientos Recortes Procesos Tereinar
HédiCGS ver. i.O19-Mayo-1995
Actualizar Cuentas Hovisrientos Reportes Procesos Terminar
í OPCIÓN TERMINAR
Esta opción permite finalizar laejecuacion del Sistema Redice Ver,1.0 y salir al directorio raí:.
«Esc» Cancelar
CARÁTULA
DEDICATORIA
AGRADECIMIENTO
INTRODUCCIÓN
JUSTIFICACIÓN
1 ANÁLISIS PREVIO
1.1 PLANIFICACIÓN
1.2 ACTIVIDADES V ESTRUCTURA DE LA EMPRESA
1.3 RECOPILACIÓN DE LA INFORMACIÓN
1.4 ANÁLISIS DE LA INFORMACIÓN
1.5 DISECO DEL SISTEMA
1.5.1 DEMOSTRATIVO
1.5.2 ENCUESTAS
1.5.3 DETERMINACIÓN DE OBJETIVOS
1.5.4 ESTUDIO DE RECURSOS
1.5.4.1 PERSONAL
1.5.4.2 MEDIOS MATERIALES
1.5.4.3 TIEMPOS DE REALIZACIÓN
1.5.4.4 COSTES DE REALIZACIÓN
2 ANÁLISIS FUNCIONAL
2.1 PLANIFICACIÓN DE ACTIVIDADES
2.2 DESCRIPCIÓN DEL NUEVO SISTEMA
2.2.1 OBJETIVOS DEL SISTEMA
2.2.2 NECESIDADES DEL SISTEMA
2.2.3 LIMITACIONES DEL SISTEMA
2.3 DISECO DEL NUEVO SISTEMA
2.3.1 DISEÑO DEL FLUJO DE INFORMACIÓN
2.3.2 DESCRIPCIÓN DE TABLAS DE
ÍNDICES
2.3.3 VALIDACIONES
ANÁLISIS ORGÁNICO
3.i PLANIFICACIÓN
.3.2 ASIGNACIÓN DE CÓDIGOS
3.3 SELECCIÓN DEL LENGUAJE DE PROGRAMACIÓN
3.4 DESCRIPCIÓN ORGÁNICA DE FICHEROS
3.5 CUADERNOS DE CARGA
3.ó SEUDOCODIGOS
3.7 LISTADOS
3.8 DISEÑO DE PANTALLAS V CORRIDOS