| EXTRACT CODE |
N Z,Z0,Z1,IBZ D F^IBCEF("N-ALL INSURANCE NUMBER","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 |
All id numbers of other insured for bill IBXIEN.
Data is returned in an array IBXDATA(n). This is a group data 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
insured's id numbers are returned. If the secondary insurance is the
current responsible, the primary and tertiary insurance insured's id numbers
are returned. If the tertiary insurance is the current responsible, the
primary and secondary insurance insured's id numbers are returned.
|
