N Z F Z=1:1:3 I $S(Z=1:1,1:$D(^DGCR(399,IBXIEN,"I"_Z))) S IBXDATA(Z)=$$POLICY^IBCEF(IBXIEN,2,Z)
DESCRIPTION
Extracts the primary, secondary, and tertiary subscriber ID number into
the IBXDATA(1),(2),(3) array for bill entry IBXIEN. This data is pulled
from the SUBSCRIBER ID field (field#1) in the patient insurance file.