| FORMAT CODE |
I IBXDATA'="" S IBXSAVE("FL31")=$E(IBXDATA,6,11),IBXDATA=$S($G(^TMP("IBXSAVE",$J,"RM")):" ",1:"")_$E(IBXDATA,1,5) |
| FORMAT CODE DESCRIPTION |
If this data element returns a value other than null, it can be output on
2 lines where characters 1-5 print on line 1 and 6-11 print on line 2.
Save off characters 6-11 in IBXSAVE("FL31") array and set value of this
data element to the first 5 characters. If the right margin is 81 instead
of 80, move the field over 1 space. IBXSAVE("FL31") will be printed at a
later time.
|
