Name | Value |
---|---|
FORM FIELD REFERENCE | LEGACY UB-92 |
SECURITY LEVEL | NATIONAL,NO EDIT |
DATA ELEMENT | N-GET FROM PREVIOUS EXTRACT |
PAD CHARACTER | NO PAD REQUIRED |
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. |