| EXTRACT CODE |
N Z,Z0,Z1,IBZ D F^IBCEF("N-ALL INSURED FULL NAMES","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 full name of all other insured for bill entry IBXIEN.
Format is free text as the user entered it into the insured's name field.
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
insured's name are returned. If the secondary insurance is the
current responsible, the primary and tertiary insurance insured's name
are returned. If the tertiary insurance is the current responsible, the
primary and secondary insurance insured's name are returned.
|
