| FORMAT CODE |
N Z,IBZ M IBZ=IBXDATA K IBXDATA,IBXSAVE("OIID") F Z=1,2 I $D(^DGCR(399,IBXIEN,"I"_(Z+1))),$G(IBZ(Z))'="" S IBZ(Z)=$$NOPUNCT^IBCEF(IBZ(Z)) I IBZ(Z)'="" S IBXDATA(Z)=IBZ(Z),IBXSAVE("OIID",Z)=1 |
| FORMAT CODE DESCRIPTION |
This is a group data element so more than 1 occurrence of a value is
possible other payers on the bill (F Z=1,2). If that other insurance
exists on the claim and the subscriber ID is not nil after stripping out
the punctuation marks, then build IBXDATA(Z) array and also save the
IBXSAVE("OIID",Z) array entry to indicate that a valid ID is being output
for this other payer Z. This is so the qualifier in OI2-11 can be output
because we have the ID#.
possible for the data element in the IBXDATA array. If any other insured
ID data is found, the data is output.
OI2-3
2330A/NM109
Merge IBZ=IBXDATA which is the list of other payer subscriber ID's
returned from data element N-OTH INSURED ID. Loop thru each of the
|
