K IBXDATA N Z F Z=1,2 I $P($G(IBXSAVE("OINM",Z)),U,3)'="" S IBXDATA(Z)=$P(IBXSAVE("OINM",Z),U,3)
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 middle name is output.