select "tabla_to_be_scanned"
SCAN
mclaim_no = paylisttotal.claim_no
mclaim_pay = paylisttotal.amt_paid
IF mclaim_no <> 0
SELECT (feesubmit+feesubmit1+feesubmit2+feesubmit3+;
feesubmit4+feesubmit5+feesubmit6) as fee_billed;
from services ;
into cursor CurrentClaim nofilter ;
where services.claim_no = mclaim_no
Update services set services.amt_paid = mclaim_pay ,;
services.paid_date = date() ,;
services.close_rec = "YES" ;
where services.claim_no = mclaim_no
IF mclaim_pay = CurrentClaim.Fee_Billed
UPDATE services set services.paid = "YES",;
services.closeclaim = "YES",;
services.closedate = DATE();
WHERE services.claim_no = mclaim_no
ENDIF
ENDIF
mclaim_no = 0
mclaim_pay = 0
ENDSCAN
>>do while not eof()
>> mclaim_no = paylisttotal.claim_no
>> mclaim_pay = paylisttotal.amt_paid
>>
>> IF mclaim_no <> 0
>> SELECT (feesubmit+feesubmit1+feesubmit2+feesubmit3+;
>> feesubmit4+feesubmit5+feesubmit6) as fee_billed;
>> from services ;
>> into cursor CurrentClaim nofilter ;
>> where services.claim_no = mclaim_no
>>
>> Update services set services.amt_paid = mclaim_pay ,;
>> services.paid_date = date() ,;
>> services.close_rec = "YES" ;
>> where services.claim_no = mclaim_no
>> IF mclaim_pay = CurrentClaim.Fee_Billed
>> UPDATE services set services.paid = "YES",;
>> services.closeclaim = "YES",;
>> services.closedate = DATE();
>> WHERE services.claim_no = mclaim_no
>> ENDIF
>> ENDIF
>> mclaim_no = 0
>> mclaim_pay = 0
>>
>> SKIP
>> if eof()
>> exit
>> else
>> loop
>> endif
>>ENDDO