| EXTRACT CODE |
N Z,Z0 S Z=$P($G(^DGCR(399,IBXIEN,0)),U,21) I $D(^("I2"))!$D(^("I3")) F Z0=1,2 S IBXDATA(Z0)=$S($D(^DGCR(399,IBXIEN,"I"_(Z0+1))):$$INSDEM^IBCEF(IBXIEN,$S("P"[Z:$P("S^T",U,Z0),Z="S":$P("P^T",U,Z0),1:$P("P^S",U,Z0))),1:"") |
| DESCRIPTION |
All other insured's birthdate^sex^phone^branch pointer^rank (sex/phone
only if insured is patient or spouse) for bill entry IBXIEN. 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's
demographics are returned. If the secondary insurance is the current
responsible, the primary and tertiary insurance insured's demographics are
returned. If the tertiary insurance is the current responsible, the
primary and secondary insurance insured's demographics are returned.
|
