| EXTRACT CODE |
N Z,Z0,Z1,IBZ D F^IBCEF("N-PRIOR PAYMENTS","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)=$S((Z1
|
| DESCRIPTION |
The prior payments made by each insurance company for bill entry IBXIEN.
Data is returned in an array IBXDATA(1-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, no prior payments are returned. If
the secondary insurance is the current responsible, the primary insurance
prior payments are returned. If the tertiary insurance is the current
responsible, the primary and secondary insurance prior payments are
returned.
|
