N Z,IBZ,IBZ0 S IBZ0=$S($$FT^IBCEF(IBXIEN)=3:4,1:3) D GETPRV^IBCEU(IBXIEN,IBZ0,.IBZ) S IBXDATA=IBZ0 F Z=1:1:3 Q:'$D(^DGCR(399,IBXIEN,"I"_Z)) S IBXDATA=IBXDATA_U_$S($G(IBZ(IBZ0,1,Z))'="":IBZ(IBZ0,1,Z),1:$P($G(IBZ(IBZ0)),U,2))
DESCRIPTION
Extracts the id numbers for all insurance companies for the attending
(UB92) or rendering (HCFA 1500) provider.
