| EXTRACT CODE |
N Z,Z0,Z1,IBZ D F^IBCEF("N-ALL AUTH CODES","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 |
The ien of all other insurance companies' authorization codes for bill entry
the primary and secondary insurance co authorization codes are returned.
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
co authorization codes are returned. If the secondary insurance is the
current responsible, the primary and tertiary insurance co authorization
codes are returned. If the tertiary insurance is the current responsible,
|
