| FORMAT CODE |
N IBZ,IBW,Z,Z0 D F^IBCEF("N-ALL AUTH CODES","IBW") M IBZ=IBXDATA K IBXDATA I $O(IBXSAVE(1,0)) S (Z,Z0)=0 F S Z=$O(IBXSAVE(1,Z)),Z0=Z0+1 Q:'Z I Z<($F("PST",IBXSAVE(1))-1)!($G(IBW(Z))]"") S IBXDATA(Z0)=IBXSAVE(1,Z) I Z0>1 D ID^IBCEF2(Z0,"OI1A") |
| 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 'OI1A' must be output.
|
