*                     < LIST OF BILL DATE WISE >  
CLOSE ALL
CLEAR ALL
SET ECHO OFF
SET TALK OFF
SET STAT OFF
SET SCOR OFF
SET SAFE OFF
CLEA
USE TREATMENT
INDEX ON DATE TO TREATMENT
DO WHILE .T.
CLEA
@ 3,7 to 19,75 DOUBL
@ 1,6 to 21,76 DOUBL
SET COLO TO *G
@ 2,30 SAY " PRINT BILL DATE WISE "
SET COLO TO
@ 20,20 SAY " PRESS ENTER TO EXIT "  
DAT = CTOD("  /  /  ")
@ 5,15 SAY "ENTER DATE  (MM-DD-YY)--------->" GET DAT 
READ
LOCATE ALL FOR DAT=DATE
IF DAT=CTOD("  /  /  ") 
RETURN
ENDIF
IF .NOT. found()
? " ERCORD NOT FOUND"
WAIT
CLEA
LOOP
ELSE
DO WHILE .NOT. EOF()
@ 3,7 TO 19,75 DOUB
@ 1,6 TO 21,76 DOUB
SET COLO TO *G
@ 2,30 SAY "PRINT BILL DATE WISE"
SET COLO TO
@ 20,20 SAY "PRESS ENTER TO EXIT"
@ 7,15 SAY "PATIENT CODE   ---------------->" GET PCOD
@ 8,15 SAY "DOCTOR FEES    ---------------->" GET DFEE
@ 9,15 SAY "ROOM CHARGES   ---------------->" GET RCH
@ 10,15 SAY "MEDICINE AMOUNT---------------->" GET MEDA
@ 11,15 SAY "LAB TEST AMOUNT---------------->" GET LABT
@ 12,15 SAY "X-RAY AMOUNT   ---------------->" GET XRAY
@ 13,15 SAY "OTHER CHARGES  ---------------->" GET OTHE
@ 14,15 SAY "TOTAL AMOUNT  ----------------->" GET TOT
CLEAR GETS 
AS=SPACE(1)
@ 20,20 SAY "WHAT DO YOU WANT TO DO Print / Next / Stop..." GET AS
READ
IF AS="P" .OR. AS="p"
SET PRINT ON
?CHR(14)
?SPACE(16)+"SHAHAB HOSPITAL"
?SPACE(16)+"PRINT BILL DATE WISE"
?SPACE(16)+"**********************"
?CHR(18)
?SPACE(55)+"DATE-->"+DTOC (DATE())
?
?
?CHR(18)+SPACE(19)+"PATIENT CODE    --------------------->         "+PCOD
?SPACE(20)+"DOCTOR FEES     --------------------->"+STR(DFEE)
?SPACE(20)+"ROOM CHARGES    --------------------->"+STR(RCH)  
?SPACE(20)+"MEDICINE AMOUNT --------------------->"+STR(MEDA)  
?SPACE(20)+"LAB TEST AMOUNT --------------------->"+STR(LABT)
?SPACE(20)+"X-RAY AMOUNT    --------------------->"+STR(XRAY)
?SPACE(20)+"OTHER CHARGES   --------------------->"+STR(OTHE)
?
?
?SPACE(20)+"TOTAL AMOUNT    =====================>"+STR(TOT)  
?
EJECT
SET PRINT OFF
CLEA
LOOP
ENDIF
IF AS="N" .OR. AS="n" 
CONTINUE
ELSE
RETURN
ENDIF
ENDIF
ENDDO
ENDDO