*                      < LIST OF REGISTRATION OF PATIENT >
CLOSE ALL
CLEAR ALL
SET ECHO OFF
SET TALK OFF
SET STAT OFF
SET SCOR OFF
SET SAFE OFF
CLEA
USE PATIENT
INDEX ON P_CODE TO PATIENT
DO WHILE .T.
P_CODE1=SPACE(6)
NAME1=SPACE(25)
F_NAME1=SPACE(25)
ADD1=SPACE(30)
AGE1=SPACE(6)
SEX1=SPACE(1)
DIA1=SPACE (30)
D_NAME1=SPACE (25)
TEL1=SPACE(7)
P_C1=SPACE(15)
REM1=SPACE(25)
DAT=DATE()
CLEAR
@ 3,7 to 19,75 DOUBL
@ 1,6 to 21,76 DOUBL
SET COLO TO *G
@ 2,30 SAY " REGISTRATION OF PATIENT "
SET COLO TO
@ 20,20 SAY " PRESS ENTER TO EXIT "  
@ 5,15 SAY "ENTER PATIENT CODE.........>" GET P_CODE1 
READ
SEEK P_CODE1
IF P_CODE1= " "
RETURN
ENDIF
IF FOUND()
SET COLO TO *R
@ 10,25 SAY "PLEASE CHANGE CODE-------"
SET COLO TO
WAIT
LOOP
ENDIF
@ 6,15 SAY "ENTER NAME.................>" GET NAME1 PICT "@!"
@ 7,15 SAY "ENTER FATHER'S NAME........>" GET F_NAME1 PICT "@!"
@ 8,15 SAY "ENTER ADDRESS..............>" GET ADD1 PICT "@!"
@ 9,15 SAY "ENTER AGE..................>" GET AGE1 PICT "@!"
@ 10,15 SAY "ENTER SEX..................>" GET SEX1 PICT "@!" 
@ 11,15 SAY "ENTER DOCTOR NAME..........>" GET D_NAME1 PICT "@!"
@ 12,15 SAY "DIAGNOSIS..................>" GET DIA1 PICT "@!"
@ 13,15 SAY "TELEPHONE NO...............>" GET TEL1 
@ 14,15 SAY "PRIVATE / COMPANY..........>" GET P_C1 PICT "@!"
@ 15,15 SAY "REMARKS....................>" GET REM1 PICT "@!"
@ 16,15 SAY "DATE  (MM-DD-YY)----------->" GET DAT
READ                                    
APPEND BLANK
REPL P_CODE WITH P_CODE1
REPL NAME WITH NAME1
REPL F_NAME WITH F_NAME1
REPL ADD WITH ADD1
REPL AGE WITH AGE1
REPL SEX WITH SEX1 
REPL D_NAME WITH D_NAME1
REPL DIA WITH DIA1
REPL TEL WITH TEL1
REPL P_C WITH P_C1
REPL REM WITH REM1
REPL DATE WITH DAT
CH=SPACE(1)
@ 20,20 SAY "DO YOU WANT CONTINUE ( Y/N )..." GET CH
READ
IF CH = "Y" .oR. CH = "y"
LOOP
ELSE
RETURN
ENDIF
ENDDO