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