*                  <--- LIST OF BILL PRINT--- >
CLOSE ALL
CLEAR ALL
SET ECHO OFF
SET TALK OFF
SET STAT OFF
SET SCOR OFF
SET SAFE OFF
CLEA
USE TREATMEN
INDEX ON PCOD TO TREATMEN
DO WHILE .T.
P_CODE1=SPACE(6)
MTOT=0
CLEA
@ 3,7 to 19,75 DOUBL
@ 1,6 to 21,76 DOUBL
SET COLO TO *G
@ 2,30 SAY " DISPLAY & PRINT BILL PATIENT WISE "
SET COLO TO
@ 20,20 SAY " PRESS ENTER TO EXIT "  
@ 7,15 SAY "ENTER PATIENT CODE ------------>" GET P_CODE1 
READ
SEEK P_CODE1
IF P_CODE1= " "
RETURN
ENDIF
IF .NOT. FOUND()
SET COLO TO *G
WAIT " RECORD NOT FOUND PLEASE CHECK........"
SET COLO TO
LOOP
ELSE
@ 8,15 SAY "MEDICINE AMOUNT --------------->" GET MEDA
@ 9,15 SAY "LAB TEST AMOUNT --------------->" GET LABT
@ 10,15 SAY "X-RAY AMOUNT    --------------->" GET XRAY
@ 11,15 SAY "OTHER CHARGES   --------------->" GET OTHE
@ 12,15 SAY "ROOM CHARGES   ---------------->" GET RCH
@ 13,15 SAY "DOCTOR FEES    ---------------->" GET DFEE
@ 14,15 SAY "TOTAL AMOUNT   ---------------->" GET TOT
CLEAR GETS 
AS=SPACE(1)
@ 20,20 SAY "DO YOU WANT PRINT OF THIS RECORD Y/N" GET AS
READ
IF AS="Y" .OR. AS="y"
SET PRINT ON
?
?CHR(14)+SPACE(8)+"PRINT BILL PATIENT WISE"
?SPACE(16)+"***************************************************"
?CHR(18)+SPACE(55)+"DATE"+DTOC (DATE())
?
?
?SPACE(20)+"PATIENT CODE   ------------>        "+PCOD
?CHR(18)+SPACE(19)+"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)+"ROOM CHARGES   ------------>"+STR(RCH)
?SPACE(20)+"DOCTOR FEES    ------------>"+STR(DFEE)
?
?
?
?
?
@ 20,16  SAY REPLI("*",50)
?SPACE(20)+"TOTAL AMOUNT    ===========>"+STR(TOT)
@ 23,16 SAY REPLI("*",50)
?
?
?
SET PRINT OFF
CLEA
LOOP
ELSE
RETURN
ENDIF
ENDIF
ENDDO