INFORMATICA - aplicatie utila informatizarii activitatii unui cabinet medical

 

PREZENTARE GENERALA

Aplicatia "CABINET MEDICAL" are o larga utilitate practica, cu precadere dupa punerea in practica a noii reforme din domeniu sanitar privind medicina de familie, urmarind usurarea activitatii desfasurata in cadrul unui cabinet medical, din punct de vedere al evidentei pacientilor si al consultatiilor prestate acestora.

MOTIVUL ALEGERII TEMEI

Utilitatea practica a acestei aplicatii m-a determinat sa aleg aceasta tema, care ofera facilitate in utilizare si o evidenta, in timp real, privind evolutia bolii unui pacient si tratamentele prescrise pentru vindecarea acestuia.

MOTIVUL ALEGERII SOFT-ULUI

"CABINET MEDICAL" fiind o aplicatie de evidenta, a necesitat folosirea unui limbaj de programare din categoria sistemelor de gestiune a bazelor de date. FOXPRO apartine unui asemenea sistem si a fost studiat si aprofundat in cadrul orelor de informatica.

Acest limbaj ofera numeroase facilitati cum ar fi:

q  crearea de interfete utilizator, placute si usor de realizat folosind generatorul de ecrane;

q  crearea rapoartelor sau situatiilor, rapid, si intr-o forma usor de interpretat, folosind generatorul de rapoarte;

q  posibilitatea unificarii tuturor componentelor aplicatiei (ecrane, rapoarte, meniu principal, program principal) in cadrul unui proiect;

q  posibilitatea crearii unei aplicatii executabile, fara a mai fi necesar suportul soft-ware, cu ajutorul caruia a fost realizata aceasta.

UTILITATEA PROGRAMULUI

Aplicatia se poate utiliza in activitatea oricarui cabinet de medicina de familie, necesitand pentru folosirea lui un volum minim de cunostiinte de operare pe calculator. Aceasta prezinta usurinta in completarea datelor de evidenta a pacientilor inscrisi la un medic de familie, cuprinzand si antecedentele privind starea sanatatii acestora, precum si evidenta tuturor consultatiilor efectuate de medic, cu stabilirea diagosnicului si prescrierea tratamentului pentru fiecare pacient. Astfel, in orice moment se pot consulta sau lista fisa oricarui pacient, prin specificarea numarului de fise, numarul consultatiilor specificand o anumita perioada, bolile cu frecventa mai mare pentru un anumit interval de timp.

PREZENTAREA APLICATIEI

IESIRE

CLASIFICAREA PE CATEGORII DE VARSTA

NUMAR CONSULTATII

FISA PACIENT

SITUATII

STATISTICA DUPA DIAGNOSTIC

CONSUL-TATII

EVIDENTA

MENIU PRINCIPAL

Proiectul contine:

un program principal;

un meniu;

doua ecrane pentru inserarea, editarea, consultarea si selectarea datelor;

mai multe rapoarte folosite in cadrul optiunii "Situatii" ale meniului principal.

Au fost folosite doua baze de date: PACIENTI.DBF utilizata pentru pastrarea datelor personale ale pacientilor inscrisi (nume, adresa, data nasterii, starea civila si antecedente privind sanatatea acestuia) si CONSULT.DBF necesara evidentei tuturor consultatiilor efectuate. Cheia de legatura intre cele baze de date se realizeaza prin numarul de fisa, unic pentru fiecare pacient inscris.

Structura bazelor de date folosite in cadrul aplicatiei este urmatoarea:

PACIENTI.DBF CONSULT.DBF

nr_fisa N 4 - fisa N 4

nume C 15 - numep C 15

prenume    C 15 - prenumep C 15

cnp N 13 - data_cons D

tel  C 9 - diagnostic N 1

sex C 1 - tratament M

data_nast D

st_civila    L

st_sanat M

Situatiile care se pot consulta sau lista prin intermediul aplicatiei, la cerere, sunt:

intocmirea fisei unui pacient, putandu-se urmarii evolutia sanatatii acestuia si tratamentele prescrise pentru diferitele boli;

situatia privind activitatea cabinetului medical intr-o anumita perioada de timp: luna, semestru sau an;

clasificarea pacientilor pe categorii de varsta, necesara diferitelor raportari lunare catre Casa de Asigurari de Sanatate;

statistica diagnosticelor, utila pentru depistarea diferitelor epidemii.

Aplicatia a fost astfel proiectata incat ea poate fi imbunatatita si completata cu noi module. Astfel, pentru a nu limita lista de diagnostice, se poate realiza o alta baza de date pentru evidenta bolilor existente in nomenclatorul de specialitate.

Interfetele pentru inserarea, modificarea, consultarea si selectarea informatiilor din bazele de date folosite

CODUL SURSA AL PROGRAMULUI PRINCIPAL

public iesire,dl

m.tip=0

close all

set talk off

set echo off

set exact on

set ansi on

set safety off

set date to british

set century on

PUSH MENU _MSYSMENU

menu=SET('SYSMENU')

SET SYSMENU AUTOMATIC

iesire = .F.

modify window screen fill file circles.bmp

@16,35,21,70 BOX REPLICATE(CHR(177),9)

@18,41 say 'Meirosu Aurel Cls. XIIi2'

do meniu.mpr

read valid exitp()

POP MENU _MSYSMENU

SET SYSMENU &menu

function exitp

if iesire

return .T.

endif

return .f.

procedure listare

dl=0

DEFINE WINDOW listare FROM 16, 35 TO 25,72 ;

title 'Doriti listare ? ' nofloat noclose system font 'arial',12

ACTIVATE WINDOW listare

@ 2,7 GET dl ;

PICTURE '@*HN <Da' ;

SIZE 1,6,1 ;

style 'B' ;

DEFAULT 1 ;

VALID imp()

@ 2,24 GET nu ;

PICTURE '@*HT <Nu' ;

SIZE 1,6,1 ;

style 'B' ;

DEFAULT 1 ;

valid ecran()

read cycle

procedure imp

dl=1

deactivate window listare

release window listare

procedure ecran

dl=2

deactivate window listare

release window listare

CODUL SURSA AL MENIULUI PRINCIPAL

** ** ** ** ** ** ** ** *

*

* 05/17/02 MENIU.MPR 19:35:14

*

** ** ** ** ** ** ** ** *

*

* Author's Name

*

* Copyright (c) 2002 Company Name

* Address

* City, Zip

*

* Description:

* This program was automatically generated by GENMENU.

*

** ** ** ** ** ** ** ** *

** ** ** ** ** ** ** ** *

*

* Menu Definition

*

** ** ** ** ** ** ** ** *

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD ev OF _MSYSMENU PROMPT '<Evidenta' COLOR SCHEME 3 ;

KEY ALT+E, 'ALT+E'

DEFINE PAD cons OF _MSYSMENU PROMPT '<Consultatii' COLOR SCHEME 3 ;

KEY ALT+C, 'ALT+C'

DEFINE PAD sit OF _MSYSMENU PROMPT '<Situatii' COLOR SCHEME 3 ;

KEY ALT+S, 'ALT+S'

DEFINE PAD ies OF _MSYSMENU PROMPT '<Iesire' COLOR SCHEME 3 ;

KEY ALT+I, 'ALT+I'

ON SELECTION PAD ev OF _MSYSMENU ;

DO _0o715zdf6 ;

IN LOCFILE('AURELMENIU' ,'MPX;MPR|FXP;PRG' ,'Where is MENIU?')

ON SELECTION PAD cons OF _MSYSMENU ;

DO _0o715zdf8 ;

IN LOCFILE('AURELMENIU' ,'MPX;MPR|FXP;PRG' ,'Where is MENIU?')

ON PAD sit OF _MSYSMENU ACTIVATE POPUP situatii

ON SELECTION PAD ies OF _MSYSMENU ;

DO _0o715zdfa ;

IN LOCFILE('AURELMENIU' ,'MPX;MPR|FXP;PRG' ,'Where is MENIU?')

DEFINE POPUP situatii MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF situatii PROMPT '<Fisa pacient'

DEFINE BAR 2 OF situatii PROMPT '<Numar consultatii'

DEFINE BAR 3 OF situatii PROMPT '<Clasificare pe categorii de varsta'

DEFINE BAR 4 OF situatii PROMPT '<Statistica dupa diagnostic'

ON SELECTION BAR 1 OF situatii ;

DO _0o715zdff ;

IN LOCFILE('AURELMENIU' ,'MPX;MPR|FXP;PRG' ,'Where is MENIU?')

ON SELECTION BAR 2 OF situatii ;

DO _0o715zdfh ;

IN LOCFILE('AURELMENIU' ,'MPX;MPR|FXP;PRG' ,'Where is MENIU?')

ON SELECTION BAR 3 OF situatii ;

DO _0o715zdfj ;

IN LOCFILE('AURELMENIU' ,'MPX;MPR|FXP;PRG' ,'Where is MENIU?')

ON SELECTION BAR 4 OF situatii ;

DO _0o715zdfl ;

IN LOCFILE('AURELMENIU' ,'MPX;MPR|FXP;PRG' ,'Where is MENIU?')

** ** ** ** ** ** ** ** *

*

* _0O715ZDF6 ON SELECTION PAD

*

* Procedure Origin:

*

* From Menu: MENIU.MPR, Record: 3

* Called By: ON SELECTION PAD

* Prompt: Evidenta

* Snippet: 1

*

** ** ** ** ** ** ** ** *

PROCEDURE _0o715zdf6

set skip of pad ev of _msysmenu .t.

set skip of pad cons of _msysmenu .t.

set skip of pad sit of _msysmenu .t.

set skip of pad ies of _msysmenu .t.

use pacienti

do evidenta.spr

use

set skip of pad ev of _msysmenu .f.

set skip of pad cons of _msysmenu .f.

set skip of pad sit of _msysmenu .f.

set skip of pad ies of _msysmenu .f.

** ** ** ** ** ** ** ** *

*

* _0O715ZDF8 ON SELECTION PAD

*

* Procedure Origin:

*

* From Menu: MENIU.MPR, Record: 4

* Called By: ON SELECTION PAD

* Prompt: Consultatii

* Snippet: 2

*

** ** ** ** ** ** ** ** *

PROCEDURE _0o715zdf8

set skip of pad ev of _msysmenu .t.

set skip of pad cons of _msysmenu .t.

set skip of pad sit of _msysmenu .t.

set skip of pad ies of _msysmenu .t.

sele 1

use pacienti

sele 2

use consult

do cons.spr

close all

set skip of pad ev of _msysmenu .f.

set skip of pad cons of _msysmenu .f.

set skip of pad sit of _msysmenu .f.

set skip of pad ies of _msysmenu .f.

** ** ** ** ** ** ** ** *

*

* _0O715ZDFA ON SELECTION PAD

*

* Procedure Origin:

*

* From Menu: MENIU.MPR, Record: 11

* Called By: ON SELECTION PAD

* Prompt: Iesire

* Snippet: 3

*

** ** ** ** ** ** ** ** *

PROCEDURE _0o715zdfa

iesire=.T.

CLEAR READ ALL

close all

*quit

** ** ** ** ** ** ** ** *

*

* _0O715ZDFF ON SELECTION BAR 1 OF POPUP situatii

*

* Procedure Origin:

*

* From Menu: MENIU.MPR, Record: 7

* Called By: ON SELECTION BAR 1 OF POPUP situatii

* Prompt: Fisa pacient

* Snippet: 4

*

** ** ** ** ** ** ** ** *

PROCEDURE _0o715zdff

set skip of pad ev of _msysmenu .t.

set skip of pad cons of _msysmenu .t.

set skip of pad sit of _msysmenu .t.

set skip of pad ies of _msysmenu .t.

sele 1

use consult

create table fisa (nm c(15),pr c(15),dc d,diag c(15), trat m)

use

sele 2

use fisa

define window cauta from 16,35 to 22,72 system shadow

activate window cauta

m.cc=0

@1,2 say 'Numarul fisei pacientului:'

@3,9 get m.cc

read

deactivate window cauta

release window cauta

sele 1

scan for fisa=m.cc

a1=numep

a2=prenumep

a3=data_cons

a4=diagnostic

a5=tratament

sele 2

append blank

replace nm with a1 pr with a2 dc with a3 trat with a5

do case

case a4=1

replace diag with 'Amigdalita'

case a4=2

replace diag with 'Gripa'

case a4=3

replace diag with 'Hepatita'

case a4=4

replace diag with 'Hipertensiune'

case a4=5

replace diag with 'Varicela'

endcase

sele 1

endscan

sele 2

do listare in prog.prg

if dl=1

set console off

set printer on

report form rep1 to printer

set printer off

set console on

else

report form rep1 preview

endif

close all

delete file fisa.dbf

delete file fisa.fpt

set skip of pad ev of _msysmenu .f.

set skip of pad cons of _msysmenu .f.

set skip of pad sit of _msysmenu .f.

set skip of pad ies of _msysmenu .f.

** ** ** ** ** ** ** ** *

*

* _0O715ZDFH ON SELECTION BAR 2 OF POPUP situatii

*

* Procedure Origin:

*

* From Menu: MENIU.MPR, Record: 8

* Called By: ON SELECTION BAR 2 OF POPUP situatii

* Prompt: Numar consultatii

* Snippet: 5

*

** ** ** ** ** ** ** ** *

PROCEDURE _0o715zdfh

set skip of pad ev of _msysmenu .t.

set skip of pad cons of _msysmenu .t.

set skip of pad sit of _msysmenu .t.

set skip of pad ies of _msysmenu .t.

use consult

do per.spr

use

set skip of pad ev of _msysmenu .f.

set skip of pad cons of _msysmenu .f.

set skip of pad sit of _msysmenu .f.

set skip of pad ies of _msysmenu .f.

** ** ** ** ** ** ** ** *

*

* _0O715ZDFJ ON SELECTION BAR 3 OF POPUP situatii

*

* Procedure Origin:

*

* From Menu: MENIU.MPR, Record: 9

* Called By: ON SELECTION BAR 3 OF POPUP situatii

* Prompt: Clasificare pe categorii de varsta

* Snippet: 6

*

** ** ** ** ** ** ** ** *

PROCEDURE _0o715zdfj

set skip of pad ev of _msysmenu .t.

set skip of pad cons of _msysmenu .t.

set skip of pad sit of _msysmenu .t.

set skip of pad ies of _msysmenu .t.

public a1,a2,a3,a4

use pacienti

count for year(date())-year(data_nast)<=16 to a1

count for year(date())-year(data_nast)>16 and year(date())-year(data_nast)<=45 to a2

count for year(date())-year(data_nast)>45 and year(date())-year(data_nast)<=60 to a3

count for year(date())-year(data_nast)>60 to a4

do listare in prog.prg

if dl=1

set console off

set printer on

report form rep2 to printer

set printer off

set console on

else

report form rep2 preview

endif

use

set skip of pad ev of _msysmenu .f.

set skip of pad cons of _msysmenu .f.

set skip of pad sit of _msysmenu .f.

set skip of pad ies of _msysmenu .f.

** ** ** ** ** ** ** ** *

*

* _0O715ZDFL ON SELECTION BAR 4 OF POPUP situatii

*

* Procedure Origin:

*

* From Menu: MENIU.MPR, Record: 10

* Called By: ON SELECTION BAR 4 OF POPUP situatii

* Prompt: Statistica dupa diagnostic

* Snippet: 7

*

** ** ** ** ** ** ** ** *

PROCEDURE _0o715zdfl

set skip of pad ev of _msysmenu .t.

set skip of pad cons of _msysmenu .t.

set skip of pad sit of _msysmenu .t.

set skip of pad ies of _msysmenu .t.

public x1,x2,x3,x4,x5

use consult

count for diagnostic=1 to a1

count for diagnostic=2 to a2

count for diagnostic=3 to a3

count for diagnostic=4 to a4

count for diagnostic=5 to a5

a6=reccount()

x1=round((a1*100)/a6,2)

x2=round((a2*100)/a6,2)

x3=round((a3*100)/a6,2)

x4=round((a4*100)/a6,2)

x5=round((a5*100)/a6,2)

do listare in prog.prg

if dl=1

set console off

set printer on

report form rep3 to printer

set printer off

set console on

else

report form rep3 preview

endif

use

set skip of pad ev of _msysmenu .f.

set skip of pad cons of _msysmenu .f.

set skip of pad sit of _msysmenu .f.

set skip of pad ies of _msysmenu .f.

CODUL SURSA AL ECRANULUI "EVIDENTA PACIENTI"

** ** ** ** ** ** ** ** *

*

* 06/05/2002 EVIDENTA.SPR 18:01:35

*

** ** ** ** ** ** ** ** *

*

* Author's Name

*

* Copyright (c) 2002 Company Name

* Address

* City, Zip

*

* Description:

* This program was automatically generated by GENSCRN.

*

** ** ** ** ** ** ** ** *

#REGION 0

REGIONAL m.currarea, m.talkstat, m.compstat

IF SET('TALK') = 'ON'

SET TALK OFF

m.talkstat = 'ON'

ELSE

m.talkstat = 'OFF'

ENDIF

m.compstat = SET('COMPATIBLE')

SET COMPATIBLE FOXPLUS

m.rborder = SET('READBORDER')

SET READBORDER ON

** ** ** ** ** ** ** ** *

*

* Windows Window definitions

*

** ** ** ** ** ** ** ** *

IF NOT WEXIST('evid') ;

OR UPPER(WTITLE('EVID')) == 'EVID.PJX' ;

OR UPPER(WTITLE('EVID')) == 'EVID.SCX' ;

OR UPPER(WTITLE('EVID')) == 'EVID.MNX' ;

OR UPPER(WTITLE('EVID')) == 'EVID.PRG' ;

OR UPPER(WTITLE('EVID')) == 'EVID.FRX' ;

OR UPPER(WTITLE('EVID')) == 'EVID.QPR'

DEFINE WINDOW evid ;

AT 0.000, 0.000 ;

SIZE 18.182,72.125 ;

TITLE 'Evidenta pacienti' ;

FONT 'Times New Roman', 14 ;

FLOAT ;

NOCLOSE ;

MINIMIZE ;

SYSTEM ;

FILL FILE LOCFILE('STONE.BMP','BMP|ICO|PCT|ICN', ;

'Where is stone?')

MOVE WINDOW evid CENTER

ENDIF

** ** ** ** ** ** ** ** *

*

* EVIDENTA/Windows Screen Layout

*

** ** ** ** ** ** ** ** *

#REGION 1

IF WVISIBLE('evid')

ACTIVATE WINDOW evid SAME

ELSE

ACTIVATE WINDOW evid NOSHOW

ENDIF

@ 0.227,23.875 SAY 'Nr. fisa' ;

FONT 'Times New Roman', 15 ;

STYLE 'BT' ;

COLOR RGB(128,0,0,,,,)

@ 2.000,9.875 SAY 'Nume' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 2.000,30.875 SAY 'Prenume' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 2.000,47.625 SAY 'Cod numeric personal' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 8.727,2.250 SAY 'Adresa' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 5.364,36.500 SAY 'Sex' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 7.591,55.500 SAY 'Telefon' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 5.364,2.625 SAY 'Data nastere' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 11.182,30.750 SAY 'Antecedente' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 1.545,0.125 TO 1.545,72.125 ;

PEN 2, 8 ;

STYLE '1' ;

COLOR RGB(0,0,0,0,0,0)

@ 16.182,0.000 TO 16.182,72.000 ;

PEN 2, 8 ;

STYLE '1' ;

COLOR RGB(0,0,0,0,0,0)

@ 0.273,32.750 GET nr_fisa ;

SIZE 0.958,4.889 ;

DEFAULT 0 ;

FONT 'Times New Roman', 15 ;

STYLE 'B' ;

PICTURE '@K' ;

COLOR ,RGB(128,0,0,255,255,255)

@ 3.182,2.500 GET nume ;

SIZE 0.955,20.250 ;

DEFAULT ' ' ;

FONT 'Times New Roman', 14 ;

PICTURE '@K!' ;

COLOR ,RGB(,,,255,255,255)

@ 3.182,26.125 GET prenume ;

SIZE 0.955,18.625 ;

DEFAULT ' ' ;

FONT 'Times New Roman', 14 ;

PICTURE '@K!' ;

COLOR ,RGB(,,,255,255,255)

@ 3.182,49.125 GET cnp ;

SIZE 0.955,17.500 ;

DEFAULT 0 ;

FONT 'Times New Roman', 14 ;

PICTURE '@K' ;

COLOR ,RGB(,,,255,255,255)

@ 5.364,15.500 GET data_nast ;

SIZE 0.955,13.250 ;

DEFAULT ;

FONT 'Times New Roman', 14 ;

PICTURE '@K' ;

COLOR ,RGB(,,,255,255,255)

@ 5.364,42.125 GET sex ;

SIZE 0.955,1.625 ;

DEFAULT ' ' ;

FONT 'Times New Roman', 14 ;

PICTURE '@K!' ;

COLOR ,RGB(,,,255,255,255)

@ 5.364,52.500 GET st_civila ;

PICTURE '@*C Casatorit/a' ;

SIZE 1.000,13.875 ;

DEFAULT 0 ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR ,,,,,,,,RGB(0,0,255,255,255,255),RGB(0,0,255,255,255,255)

@ 7.591,10.500 EDIT adr ;

SIZE 2.864,31.500,150.000 ;

PICTURE '@K' ;

DEFAULT ' ' ;

FONT 'Times New Roman', 14 ;

SCROLL ;

COLOR ,RGB(,,,255,255,255)

@ 8.727,52.750 GET tel ;

SIZE 0.955,11.875 ;

DEFAULT ' ' ;

FONT 'Times New Roman', 14 ;

PICTURE '@K' ;

COLOR ,RGB(,,,255,255,255)

@ 12.591,8.875 EDIT st_sanat ;

SIZE 2.864,55.250,250.000 ;

PICTURE '@K' ;

DEFAULT ' ' ;

FONT 'Times New Roman', 14 ;

SCROLL ;

COLOR ,RGB(,,,255,255,255)

@ 16.682,7.875 GET m.buton ;

PICTURE '@*HN <Inapoi;I<nainte;Adaugare;<Stergere;<Cautare;<Revenire' ;

SIZE 1.769,11.167,1.667 ;

DEFAULT 1 ;

FONT 'MS Sans Serif', 8 ;

STYLE 'B' ;

VALID _0nw12mxi1()

IF NOT WVISIBLE('evid')

ACTIVATE WINDOW evid

ENDIF

READ CYCLE

RELEASE WINDOW evid

#REGION 0

SET READBORDER &rborder

IF m.talkstat = 'ON'

SET TALK ON

ENDIF

IF m.compstat = 'ON'

SET COMPATIBLE ON

ENDIF

** ** ** ** ** ** ** ** *

*

* _0NW12MXI1 m.buton VALID

*

* Function Origin:

*

* From Platform: Windows

* From Screen: EVIDENTA, Record Number: 23

* Variable: m.buton

* Called By: VALID Clause

* Object Type: Push Button

* Snippet Number: 1

*

** ** ** ** ** ** ** ** *

FUNCTION _0nw12mxi1 && m.buton VALID

#REGION 1

do case

case m.buton=1

if recno()<>1 or reccount()<>1

skip -1

endif

if recno()=1

wait window 'Prima inregistrare' nowait

endif

case m.buton=2

if recno()<reccount()

skip

endif

if recno()=reccount()

wait window 'Ultima inregistrare' nowait

endif

case m.buton=3

append blank

case m.buton=4

delete

pack

case m.buton=5

define window cauta from 5,20 to 12,50 system shadow in window evid

activate window cauta

m.cc=0

@1,2 say 'Numarul fisei de cautat:'

@3,9 get m.cc

read

deactivate window cauta

release window cauta

nrinr=recno()

locate for nr_fisa=m.cc

if !found()

wait window 'Fisa inexistenta' nowait

goto nrinr

endif

show gets

case m.buton=6

deactivate window evid.spr

release window evid.spr

endcase

show gets

CODUL SURSA AL ECRANULUI "CONSULTATII"

** ** ** ** ** ** ** ** *

*

* 06/05/2002 CONS.SPR 16:02:15

*

** ** ** ** ** ** ** ** *

*

* Author's Name

*

* Copyright (c) 2002 Company Name

* Address

* City, Zip

*

* Description:

* This program was automatically generated by GENSCRN.

*

** ** ** ** ** ** ** ** *

#REGION 0

REGIONAL m.currarea, m.talkstat, m.compstat

IF SET('TALK') = 'ON'

SET TALK OFF

m.talkstat = 'ON'

ELSE

m.talkstat = 'OFF'

ENDIF

m.compstat = SET('COMPATIBLE')

SET COMPATIBLE FOXPLUS

m.rborder = SET('READBORDER')

SET READBORDER ON

** ** ** ** ** ** ** ** *

*

* Windows Window definitions

*

** ** ** ** ** ** ** ** *

IF NOT WEXIST('cons') ;

OR UPPER(WTITLE('CONS')) == 'CONS.PJX' ;

OR UPPER(WTITLE('CONS')) == 'CONS.SCX' ;

OR UPPER(WTITLE('CONS')) == 'CONS.MNX' ;

OR UPPER(WTITLE('CONS')) == 'CONS.PRG' ;

OR UPPER(WTITLE('CONS')) == 'CONS.FRX' ;

OR UPPER(WTITLE('CONS')) == 'CONS.QPR'

DEFINE WINDOW cons ;

AT 0.000, 0.000 ;

SIZE 17.364,72.375 ;

TITLE 'Evidenta consultatiilor pacientilor' ;

FONT 'Times New Roman', 14 ;

FLOAT ;

NOCLOSE ;

MINIMIZE ;

SYSTEM ;

FILL FILE LOCFILE('STONE.BMP','BMP|ICO|PCT|ICN', ;

'Where is stone?')

MOVE WINDOW cons CENTER

ENDIF

** ** ** ** ** ** ** ** *

*

* CONS/Windows Screen Layout

*

** ** ** ** ** ** ** ** *

#REGION 1

IF WVISIBLE('cons')

ACTIVATE WINDOW cons SAME

ELSE

ACTIVATE WINDOW cons NOSHOW

ENDIF

@ 0.227,28.375 SAY 'Nr. fisa' ;

FONT 'Times New Roman', 15 ;

STYLE 'BT' ;

COLOR RGB(128,0,0,,,,)

@ 2.000,22.000 SAY 'Nume' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 2.000,43.000 SAY 'Prenume' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 5.364,17.625 SAY 'Data consultatie' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 1.545,0.125 TO 1.545,72.125 ;

PEN 2, 8 ;

STYLE '1' ;

COLOR RGB(0,0,0,0,0,0)

@ 15.045,0.000 TO 15.045,72.000 ;

PEN 2, 8 ;

STYLE '1' ;

COLOR RGB(0,0,0,0,0,0)

@ 5.364,43.000 SAY 'Diagnostic' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 9.318,27.375 SAY 'Tratament prescris' ;

FONT 'Times New Roman', 14 ;

STYLE 'T' ;

COLOR RGB(0,0,255,,,,)

@ 0.273,37.250 GET fisa ;

SIZE 0.958,4.889 ;

DEFAULT 0 ;

FONT 'Times New Roman', 15 ;

STYLE 'B' ;

PICTURE '@K' ;

VALID _0nw0ydhtz() ;

COLOR ,RGB(128,0,0,255,255,255)

@ 3.182,14.625 GET numep ;

SIZE 0.955,20.250 ;

DEFAULT ' ' ;

FONT 'Times New Roman', 14 ;

PICTURE '@K!' ;

DISABLE ;

COLOR ,RGB(,,,255,255,255)

@ 3.182,38.250 GET prenumep ;

SIZE 0.955,18.625 ;

DEFAULT ' ' ;

FONT 'Times New Roman', 14 ;

PICTURE '@K!' ;

DISABLE ;

COLOR ,RGB(,,,255,255,255)

@ 6.636,18.375 GET data_cons ;

SIZE 0.955,13.250 ;

DEFAULT ;

FONT 'Times New Roman', 14 ;

PICTURE '@K' ;

COLOR ,RGB(,,,255,255,255)

@ 6.409,39.875 GET diagnostic ;

PICTURE '@^ Amigdalita;Gripa;Hepatita;Hipertensiune;Varicela' ;

SIZE 1.545,16.500 ;

DEFAULT 'Amigdalita' ;

FONT 'Times New Roman', 14

@ 10.682,3.000 EDIT tratament ;

SIZE 2.864,66.250,250.000 ;

PICTURE '@K' ;

DEFAULT ' ' ;

FONT 'Times New Roman', 14 ;

SCROLL ;

COLOR ,RGB(,,,255,255,255)

@ 15.682,7.875 GET m.buton ;

PICTURE '@*HN <Inapoi;I<nainte;Adaugare;<Stergere;<Cautare;<Revenire' ;

SIZE 1.769,11.167,1.667 ;

DEFAULT 1 ;

FONT 'MS Sans Serif', 8 ;

STYLE 'B' ;

VALID _0nw0ydhum()

IF NOT WVISIBLE('cons')

ACTIVATE WINDOW cons

ENDIF

READ CYCLE

RELEASE WINDOW cons

#REGION 0

SET READBORDER &rborder

IF m.talkstat = 'ON'

SET TALK ON

ENDIF

IF m.compstat = 'ON'

SET COMPATIBLE ON

ENDIF

** ** ** ** ** ** ** ** *

*

* _0NW0YDHTZ fisa VALID

*

* Function Origin:

*

* From Platform: Windows

* From Screen: CONS, Record Number: 10

* Variable: fisa

* Called By: VALID Clause

* Object Type: Field

* Snippet Number: 1

*

** ** ** ** ** ** ** ** *

FUNCTION _0nw0ydhtz && fisa VALID

#REGION 1

m.fs=fisa

sele 1

locate for nr_fisa=m.fs

if found()

m.nm=nume

m.pr=prenume

sele 2

replace numep with m.nm prenumep with m.pr

show gets

else

wait window 'Nu exista acest numar de fise' nowait

sele 2

delete

pack

show gets

endif

** ** ** ** ** ** ** ** *

*

* _0NW0YDHUM m.buton VALID

*

* Function Origin:

*

* From Platform: Windows

* From Screen: CONS, Record Number: 16

* Variable: m.buton

* Called By: VALID Clause

* Object Type: Push Button

* Snippet Number: 2

*

** ** ** ** ** ** ** ** *

FUNCTION _0nw0ydhum && m.buton VALID

#REGION 1

do case

case m.buton=1

if recno()<>1 or reccount()<>1

skip -1

endif

if recno()=1

wait window 'Prima inregistrare' nowait

endif

case m.buton=2

if recno()<reccount()

skip

endif

if recno()=reccount()

wait window 'Ultima inregistrare' nowait

endif

case m.buton=3

append blank

case m.buton=4

delete

pack

case m.buton=5

define window cauta from 5,20 to 12,50 system shadow in window cons

activate window cauta

m.cc=0

@1,2 say 'Numarul fisei de cautat:'

@3,9 get m.cc

read

deactivate window cauta

release window cauta

nrinr=recno()

locate for fisa=m.cc

if !found()

wait window 'Fisa inexistenta' nowait

else

m.nn=alltrim(numep)+space(2)+alltrim(prenumep)

set messages to '1-amigdalita; 2-gripa; 3-hepatita; 4-hipertensiune; 5-varicela'

brows fields data_cons, diagnostic, tratament for fisa=m.cc title m.nn

set messages to ''

endif

goto nrinr

show gets

case m.buton=6

deactivate window cons.spr

release window cons.spr

endcase

show gets