*                 < LIST OF TREATMENT >
CLOSE ALL
CLEAR ALL
SET ECHO OFF
SET TALK OFF
SET STAT OFF
SET SCOR OFF
SET SAFE OFF
CLEA
DO WHILE .T.
USE TREATMENT
INDEX ON PCOD TO TREATMENT
@ 2,10 TO 20,70 DOUBL
SET COLO TO *G
@ 3,20 to 5,60
@ 4,25 say "TREATMENT / TEST ENTRY"
SET COLO TO
P_CODE1=SPACE(6)
TREAT1=SPACE(15)
D_AMM1=0
MED1=SPACE(20)
M_AMM1=0
X_AMM1=0
L_AMM1=0
R_AMM1=0
DATE1=DATE()
REM1=SPACE(30)
O_AMM1=0
TOT1=0
@ 7,15 SAY "ENTER P_CODE----------->" GET P_CODE1
READ
SEEK P_CODE1
IF P_CODE1= " "
RETURN
ENDIF
IF FOUND()
SET COLO TO /*G
@ 10,25 SAY "This Record Is Already Feeded"
SET COLO TO
WAIT
CLEAR
LOOP
ENDIF
@ 8,15 SAY "TRATMENT--------------->" GET TREAT1 PICT "@!"
@ 9,15 SAY "MEDICINE -------------->" GET MED1 PICT "@!"
@ 10,15 SAY "REMARKS  -------------->" GET REM1 PICT "@!"
@ 11,15 SAY "DATE  (MM-DD-YY)------->" GET DATE1 PICT "99-99-99"
@ 12,15 SAY "X-RAY AMOUNT  --------->" GET X_AMM1
@ 13,15 SAY "LAB TEST  ------------->" GET L_AMM1
@ 14,15 SAY "DOCTOR FEE------------->" GET D_AMM1
@ 15,15 SAY "MEDICINE AMOUNT ------->" GET M_AMM1
@ 16,15 SAY "ROOM CHARGES  --------->" GET R_AMM1    
@ 17,15 SAY "OTHER CHARGES --------->" GET O_AMM1
READ
TOT1=D_AMM1+M_AMM1+X_AMM1+L_AMM1+O_AMM1
APPEND BLANK
REPL PCOD WITH P_CODE1
REPL DFEE WITH D_AMM1
REPL MEDA WITH M_AMM1
REPL XRAY WITH X_AMM1
REPL LABT WITH L_AMM1
REPL OTHE WITH O_AMM1
REPL REMA WITH REM1
REPL TREA WITH TREAT1
REPL MEDI WITH MED1
REPL DATE WITH DATE1
REPL RCH WITH R_AMM1
REPL TOT WITH TOT1
CH = SPACE(1)
@ 19,20 SAY "DO YOU WANT CONTINUE (Y/N)................." GET CH
READ
IF CH = "Y" .oR. CH = "y"
CLEA ALL
CLOSE ALL
LOOP
ELSE
RETURN
ENDIF
ENDDO