S IBXSAVE("TOT")=IBXDATA K IBXDATA S:IBXSAVE("TOT")'=""&($O(^TMP("IBXDATA",$J,IBXREC,""),-1)'>1) IBXDATA=$J(IBXSAVE("TOT"),10,2)
FORMAT CODE DESCRIPTION
Save the total charges in IBXSAVE array for later use. If
total is not null, output as numeric with 2 decimal places in 10 spaces.
Only output totals on last page of form.