EXTRACT CODE |
N Z,Z0,Z1,IBZ D F^IBCEF("N-ALL INSURED EMPLOY STATUS","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 other insured employment status' for bill entry IBXIEN. 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 insured's employment status are returned. If the
secondary insurance is the current responsible, the primary and tertiary
insured's employment status are returned. If the tertiary
insurance is the current responsible, the primary and secondary
insured's employment status are returned.
|