K IBXDATA N Z F Z=1,2 I $P($G(IBXSAVE("OINM",Z)),U,2)'="" S IBXDATA(Z)=$P(IBXSAVE("OINM",Z),U,2)
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 previously extract IBXSAVE array. If
any other insurance name data is found, the first name is output.