| FORMAT CODE |
I IBXDATA'="" N Z S Z=$L(IBXDATA) S:Z>3 IBXSAVE("FL78")=$E(IBXDATA,3,5),IBXDATA=$S($G(^TMP("IBXSAVE",$J,"RM")):" ",1:"")_$E(IBXDATA,1,2) S:Z'>3 IBXSAVE("FL78")=$S($G(^TMP("IBXSAVE",$J,"RM")):" ",1:"")_IBXDATA,IBXDATA="" |
| FORMAT CODE DESCRIPTION |
If this data element returns a value other than null, it can be output on
2 lines if its length is bigger than 3 characters. If less than 3
characters in length, the text prints on line 2 and the entire text is
saved in IBXSAVE("FL78"). If the length is greater than 3, characters 1-2
print on line 1 and 3-5 print on line 2, save off characters 3-5 in
IBXSAVE("FL78") array and set value of this data element to the first 2
characters. If the right margin is 81 instead of 80, move the field over 1
space. IBXSAVE("FL78") will be printed at a later time.
|
