FORMAT CODE |
N Z,IBZ S Z="" F S Z=$O(IBXSAVE("OIEMP",Z)) K:'Z IBXSAVE("OIEMP") Q:'Z S IBZ=$P(IBXSAVE("OIEMP",Z),U,2),IBZ=IBZ_$S(IBZ'="":", ",1:"")_$P(IBXSAVE("OIEMP",Z),U,3),IBXDATA(Z)=$E($P(IBXSAVE("OIEMP",Z),U,5),1,36-$L(IBZ)-1)_" "_IBZ |
FORMAT CODE DESCRIPTION |
This data element relies on the existence of the IBXSAVE("OIEMP") array
extracted previously. The output here is as much of the street address (5th
piece) that will fit if the whole city and state are printed, then the
second piece (city), a comma if city not null, and the third piece for the
state abbreviation.
|