| FORMAT CODE |
N Z,IBZ M IBZ=IBXDATA K IBXDATA K IBXSAVE("FL56") F Z=1:1:4 S IBXSAVE("FL56",Z+1)=$E(IBZ,14*Z,(14*(Z+1)-1)) I Z=1 S IBXDATA=$E(" ",+$G(^TMP("IBXSAVE",$J,"RM")))_$E(IBZ,1,13) |
| FORMAT CODE DESCRIPTION |
If this data element returns a value other than null, it can be output on
5 lines where characters 1-13 print on line 1, 14-27 print on line 2, 28-41
print on line 3, 42-55 print on line 4 and 56-69 print on line 5.
Save off characters 14-69 in IBXSAVE("FL56",line #) array and set value of
this data element to the first 13 characters. If the right margin is 81
instead of 80, move the field over 1 space. The rest of IBXSAVE("FL56")
will be printed at a later time.
If the Form Locator 56 field has no data then the Prior Bills will be used.
|
