| EXTRACT CODE |
N Z,Z0,Z1,IBZ D F^IBCEF("N-ALL INSURANCE GROUP 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 other insured's group numbers for bill entry IBXIEN. The data is
current responsible, the primary and secondary insurance insured's group
numbers are returned.
extracted from the old group number field in the policy record or the
GROUP NUMBER from the GROUP INSURANCE PLAN file if no old group number is
available. 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 group numbers are returned. If the secondary
insurance is the current responsible, the primary and tertiary insurance
insured's group numbers are returned. If the tertiary insurance is the
|
