K IBXDATA N Z S Z=0 F S Z=$O(IBXSAVE("OUTPT",Z)) Q:'Z S:$P(IBXSAVE("OUTPT",Z),U,13)'="" IBXDATA(Z)=$P("N^Y",U,$P(IBXSAVE("OUTPT",Z),U,13)+1)
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 extracted IBXSAVE array.
Only output the data for service lines that have data.