| FORMAT CODE |
N IBZ,Z,Z0 M IBZ=IBXDATA K IBXDATA I $O(IBXSAVE(1,0)) S (Z,Z0)=0 F S Z=$O(IBXSAVE(1,Z)) Q:'Z S Z0=Z0+1,IBXDATA(Z0)=IBXSAVE(1,Z) I Z0>1 D ID^IBCEF2(Z0,"OI1 ") |
| 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. The IBXSAVE(1) variable
holds the indicator of which insurance [(P)rimary/(S)econdary/(T)ertiary] is
currently responsible for the bill. Using this data as a guide, the next
insurance for the primary is secondary, then tertiary. For secondary, it's
primary then tertiary, and for tertiary, it's primary, then secondary. For
other than the first occurrence, the RECORD ID 'OI1 ' must be output.
|
