| 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.
|
