Sistema de Apoio ao Diagnóstico em dBASE III+
Listagem do Programa de Busca por Sintomas
O Ensino de Programação de Banco de Dados em Medicina
Cláudio R. Palombo e Renato M.E. Sabbatini
* SISTEMA DE APOIO AO DIAGNOSTICO MEDICO
* PROGRAMA: DIAGSIN.PRG
* OBJETIVO: MODULO DE BUSCA POR SINTOMAS
CHAVE1 = SPACE(30)
CHAVE2 = SPACE(30)
CLEAR
@0,1 TO 2,79 DOUBLE
SET COLOR TO GR+
@1,2 SAY ' Sistema de Auxilio ao Diagnostico em Medicina `
@8,7 SAY 'Por favor,'
@10,7 SAY 'digite os sintomas: 1. ' GET CHAVE1 PICTURE "@!"
@12,7 SAY ' 2. ' GET CHAVE2 PICTURE "@!"
READ
IF CHAVE1=SPACE(30)
DO DIAG
ENDIF
LOCATE FOR RTRIM(CHAVE1) $ST .AND. RTRIM(CHAVE2) $ST
IF .not. FOUND()
CLEAR
@10,29 SAY ' Nenhuma patologia com esse(s) sintoma(s)'
@12,29 SAY ' Tecle <<ENTER>> '
WAIT ' '
SET FILTER TO
RETURN
ENDIF
SET FILTER TO RTRIM(CHAVE1) $ST .AND. RTRIM(CHAVE2) $ST
GO TOP
DO WHILE .T.
CLEAR
@0,1 TO 2,79 DOUBLE
@1,2 SAY ' Sistema de Auxilio ao Diagnóstico em Medicina `
SET COLOR TO GR+
@5,4 SAY 'PATOLOGIA ' GET PATOLOGIA
@7,4 SAY 'REGIAO ' GET REGIAO
@9,4 SAY 'SINTOMAS ' GET SINTOM1
@11,4 SAY ' ' GET SINTOM2
CLEAR GETS
K1 = ' '
@24,51 SAY 'Proxima ficha (S/N)' GET K1 PICT "@!"
READ
IF K1 = 'S' .OR. K1 = 's'
@24,1 CLEAR
SKIP
ENDIF
IF K1 = 'N' .OR. K1 = 'n'
CLEAR
SET FILTER TO
RETURN
ENDIF
IF EOF()
CLEAR
@10,29 SAY ' Fim do arquivo '
@12,29 SAY ' Tecle <<ENTER>> '
WAIT ' '
SET FILTER TO
RETURN
ENDIF
ENDDO
ISSN 1413-0947
Copyright © 1995 Renato M.E. Sabbatini