UB-04 (1368)    IB FORM FIELD CONTENT (364.7)

Name Value
FORM FIELD REFERENCE UB-04
SECURITY LEVEL NATIONAL,NO EDIT
DATA ELEMENT N-GET FROM PREVIOUS EXTRACT
PAD CHARACTER NO PAD REQUIRED
FORMAT CODE N Z,IBZ D:'$D(IBXSAVE("OIEMP")) F^IBCEF("N-ALL INSURED EMPLOYER INFO","IBZ",,IBXIEN) K IBXDATA M:$O(IBZ("")) IBXSAVE("OIEMP")=IBZ F Z=1:1:3 I $D(IBXSAVE("OIEMP",Z)) S IBXDATA(Z)=$P(IBXSAVE("OIEMP",Z),U)
FORMAT CODE DESCRIPTION
If the array IBXSAVE("OIEMP") doesn't already exist, extract it.  For each
insured on the bill, extract the first piece of the data element for output
in this field.