*                          < LIST OF PATIENT MENU > 
CLOSE ALL
CLEAR ALL
SET TALK OFF
SET ECHO OFF
SET STAT OFF
SET SCOR OFF
DO WHILE .T.
CLEA
SET COLO TO /B
@ 3,13 TO 20,65 DOUB
@ 1,11 TO 22,67 DOUB  
SET COLO TO /GR
@ 1,30 SAY "< SHAHAB HOSPITAL >"
SET COLO TO
SET COLO TO /*R
@ 17,19 TO 19,50
SET COLO TO
@ 2,12 TO 21,66 DOUBLE
SET COLO TO /*G
@ 2,29 SAY " PATIENT REGISTRATION"
SET COLO TO
SET COLO TO /G
@ 7,15 SAY "(1) .--------REGISTRATION OF PATIENT-----------"
@ 8,15 SAY "(2) .--------DISPLAY & PRINT BILL PATIENT WISE-"
@ 9,15 SAY "(3) .--------PRINT BILL DATE WISE--------------"
@ 10,15 SAY "(4) .--------TREATMENT/TEST ENTRY--------------"
@ 11,15 SAY "(5) .---------------E X I T--------------------"
CH = SPACE(1)
@ 18,20 SAY "ENTER YOUR CHOICE 1-5  ---->"GET CH
READ
SET COLO TO
DO CASE 
CASE CH = "1"
DO REGIST 
CASE CH = "2"
DO BILLPRNT
CASE CH = "3" 
DO AAA1
CASE CH = "4"
DO TREAT
CASE CH = "5"
CLEA
RETURN
ENDCASE
ENDDO