Name | Value |
---|---|
FORM FIELD REFERENCE | LEGACY HCFA-1500 |
SECURITY LEVEL | NATIONAL,NO EDIT |
DATA ELEMENT | N-TOTAL CHARGES |
PAD CHARACTER | NO PAD REQUIRED |
FORMAT CODE | 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. |