| EXTRACT CODE |
N Z,Z1,Z2 F Z=1:1:3 I $S(Z=1:1,1:$D(^DGCR(399,IBXIEN,"I"_Z))) S Z2=$$ESGHPNL^IBCEF21(IBXIEN,Z),Z1=$P(Z2,U,2,999) S:'Z2 Z1=$$INSEMPL^IBCEF(IBXIEN,Z) S IBXDATA(Z)=Z1 |
| DESCRIPTION |
Extracts the primary, secondary, and tertiary insurance company insured's
employment info into the IBXDATA(1),(2),(3) array for bill entry IBXIEN.
Format is employer name^city^state abbreviation^state ien^street address 1.
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).
|
