S IBXSAVE("BDUE")=$S(IBXDATA:$J(IBXDATA,7,2),1:"") K IBXDATA I $O(^TMP("IBXDATA",$J,IBXREC,""),-1)'>1 S IBXDATA=IBXSAVE("BDUE") K IBXSAVE("BDUE"),IBXSAVE("PTOT"),IBXSAVE("TOT")
FORMAT CODE DESCRIPTION
If not 0, output as numeric with 2 decimals in 7 characters.
Only output total on last page of form.