| EXTRACT CODE |
K IBXSAVE(1) N Z,C,D,Q S Z=$P($G(^DGCR(399,IBXIEN,0)),U,21) I $D(^("I2"))!$D(^("I3")) S IBXSAVE(1)=Z,Q=$S("P"[Z:"23","S"[Z:"13",1:"12") F C=1,2 S D=$E(Q,C),IBXDATA(C)=$E("PST",D) S:$D(^DGCR(399,IBXIEN,"I"_D)) IBXSAVE(1,D)=IBXDATA(C) |
| DESCRIPTION |
The sequence (P)rimary, (S)econdary, (T)ertiary indicators for all other
insurance for bill entry IBXIEN. This is a group element and up to
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
sequence indicators are returned. If the secondary insurance is the
current responsible, the primary and tertiary insurance sequence indicators
are returned. If the tertiary insurance is the current responsible, the
primary and secondary insurance sequence indicators are returned.
|
