I +$G(IBXSAVE("PROV2INF",IBXIEN))=0 N IBZ D PROVINF^IBCEF7(IBXIEN,2,.IBZ) S IBXSAVE("PROV2INF",IBXIEN)=IBXIEN M IBXSAVE("PROV2INF",IBXIEN)=IBZ
DESCRIPTION
Secondary ID's first are there Insurance specific secondary id's #355.9 if #399,101 primary insurance carrier =#355.9,.02
THEN #355.9,.07 is the provider id's