| 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 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.
|