| EXTRACT CODE |
N Z,Z0,Z1,IBZ D F^IBCEF("N-ALL INSURED EMPLOYER INFO","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 employer name^city^state abbreviation^state ien if the
current responsible, the primary and tertiary insurance insured employer
info are returned. If the tertiary insurance is the current responsible, the
primary and secondary insurance insured employer info are returned.
insured is the patient or the patient's spouse for bill entry IBXIEN.
If the plan is Employer Sponsored (ESGHP) then extracts Employer
Name/Location of the employer that sponsors the plan. Otherwise extracts
the insured's current employer name/location (if spouse or veteran only).
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 employer info are returned. If the secondary insurance is the
|
