*                     < LIST OF ROOM RECORDS PRINT >
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
@ 2,10 TO 20,60 DOUBL
SET COLO TO *G
@ 3,20 to 5,50 
@ 4,25 say "PRINT OF ROOM RECORDS"
SET COLO TO
@ 19,20 SAY "Press Enter To Exit.." 
ROOM_NO1=0
@ 7,15 SAY "ENTER ROOM NO    -------->" GET ROOM_NO1
READ
SEEK ROOM_NO1
IF ROOM_NO1= 0
RETURN
ENDIF
IF .NOT. FOUND()
SET COLO TO /*G
WAIT"       Record Is Not Found  ---->   Press Any Key To Continue "
SET COLO TO
LOOP
ENDIF
@ 8,15 SAY "TYPE             -------->" GET TYPE
@ 9,15 SAY "LOCATION         -------->" GET LOC
@ 10,15 SAY "STATUS           -------->" GET STAT 
@ 11,15 SAY "PATIENT'S CODE   -------->" GET P_CODE
@ 12,15 SAY "ROOM CHARGES     -------->" GET R_AMM
CLEAR GETS
MS=SPACE(1)
@ 19,20 SAY " DO U WANT PRINT OF THIS RECORD Y/N" GET MS
READ
IF MS="Y" .OR. MS="y"
SET PRINT ON
?
?
?
?
?CHR(14)+SPACE(14)+" ROOM RECORDS "
?SPACE(16)+"****************************************************"
?CHR(18)+SPACE(55)+"DATE"+ DTOC (DATE ())
?
?
?
?
?CHR(18)+SPACE(25)+"ROOM NO        ---------->"+STR(R_NO)
?SPACE(25)+"TYPE            ---------->"+TYPE
?SPACE(25)+"LOCATION        ---------->"+LOC
?SPACE(25)+"STATUS          ---------->"+STAT
?SPACE(25)+"PATIENT'S CODE  ---------->"+P_CODE
?SPACE(25)+"ROOM CHARGES    ---------->"+STR(R_AMM)
?
?
?
?
?
?
?
?
SET PRINT OFF
ELSE
LOOP
ENDIF
ENDIF
ENDDO