N Z,IBZ M IBZ=IBXDATA K IBXDATA F Z=1,2 I $D(^DGCR(399,IBXIEN,"I"_(Z+1))),$G(IBZ(Z))'="" S IBXSAVE("OIEMP",Z)=IBZ(Z)
FORMAT CODE DESCRIPTION
This is a group data element so more than 1 occurrence of a value is
possible for the data element in the IBXDATA array. If any other insurance,
the employer data is saved in the IBXSAVE array for later use.