| EXTRACT CODE |
N Z,Z0,Z1,IBZ D F^IBCEF("N-ALL INSURANCE CO PROV NUM","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 |
This data element returns the provider numbers from bill entry IBXIEN for
If any of the insurance company's do not have this data, the site's tax
id is used.
the insurance companies on the bill that are not currently the company
responsible for the payment of the bill. 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
co #'s are returned. If the secondary insurance is the current responsible,
the primary and tertiary insurance co #'s are returned. If the tertiary
insurance is the current responsible, the primary and secondary insurance
co #'s are returned.
|
