*                      < ADDITION OF ROOM RECORD >
CLOSE ALL
CLEAR ALL
SET ECHO OFF
SET TALK OFF
SET STAT OFF
SET SCOR OFF
SET SAFE OFF
CLEA
USE ROOM
INDEX ON R_NO TO ROOM
DO WHILE .T.
CLEA
ROOM_NO1=0
TYPE1= SPACE(8)
LOC1= SPACE(8)
STAT1= SPACE(1)
P_CODE1= SPACE(6)
R_AMM1=0
@ 3,7 to 19,75 DOUBL
@ 1,6 to 21,76 DOUBL
SET COLO TO *G
@ 2,30 SAY " ADDITION OF ROOM RECORDS "
SET COLO TO
@ 20,20 SAY " PRESS ENTER TO EXIT "  
@ 5,15 SAY "ENTER ROOM NO--------->" GET ROOM_NO1
READ
SEEK ROOM_NO1
IF ROOM_NO1=0
RETURN
ENDIF
IF FOUND()
SET COLO TO *R
@ 10,25 SAY "THIS NO IS ALREADY EXIST-------"
SET COLO TO
WAIT
LOOP
ELSE
@ 6,15 SAY "TYPE         --------->" GET TYPE1 PICT "@!"
@ 7,15 SAY "LOCATION     --------->" GET LOC1 PICT "@!"
@ 8,15 SAY "STATUS       --------->" GET STAT1 PICT "@!"
@ 9,15 SAY "PATIENT CODE --------->" GET P_CODE1 PICT "@!"
@ 10,15 SAY "ROOM CHARGES---------->" GET R_AMM1 
READ                                    
APPEND BLANK
REPL R_NO WITH ROOM_NO1
REPL TYPE WITH TYPE1
REPL LOC WITH LOC1
REPL STAT WITH STAT1
REPL P_CODE WITH P_CODE1
REPL R_AMM WITH R_AMM1 
ENDIF
CH=space(1)
@ 20,20 SAY "DO YOU WANT TO CONTINUE ( Y / N )..." GET CH
READ
IF CH = "Y" .oR. CH = "y"
LOOP
ELSE
RETURN
ENDIF
ENDDO