LEGACY UB-92 (498)    IB FORM FIELD CONTENT (364.7)

Name Value
FORM FIELD REFERENCE LEGACY UB-92
SECURITY LEVEL NATIONAL,NO EDIT
DATA ELEMENT N-UB92 FORM LOCATOR 11
PAD CHARACTER NO PAD REQUIRED
FORMAT CODE I IBXDATA'="" S IBXSAVE("FL11")=$E(IBXDATA,13,25),IBXDATA=$S($G(^TMP("IBXSAVE",$J,"RM")):" ",1:"")_$E(IBXDATA,1,12)
FORMAT CODE DESCRIPTION
If this data element returns a value other than null, it can be output on
2 lines where characters 1-12 print on line 1 and 13-25 print on line 2.
Save off characters 13-25 in IBXSAVE("FL11") array and set value of this
data element to the first 12 characters.  If the right margin is 81 instead
of 80, move the field over 1 space.  IBXSAVE("FL11") will be printed at a
later time.