| EXTRACT CODE |
N Z,Z0,Z1,IBZ D F^IBCEF("N-ALL INSURANCE COMPANIES","IBZ") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,"I"_Z1)) S Z0=Z0+1,IBXDATA(Z0)=$G(IBZ(Z1)) |
| DESCRIPTION |
The ien of all other insurance companies for bill entry IBXIEN.
Data is returned in an array IBXDATA(n). This is a group element and
up to 2 data elements are returned in the IBXDATA(n) array. If the primary
insurance is the current responsible, the secondary and tertiary insurance
co ien's are returned. If the secondary insurance is the current
responsible, the primary and tertiary insurance co ien's are returned. If
the tertiary insurance is the current responsible, the primary and
secondary insurance co ien's are returned.
|
