N Z F Z=1:1:3 I $S(Z=1:1,1:$D(^DGCR(399,IBXIEN,"I"_Z))) S IBXDATA(Z)=$$AUTRF^IBCEF31(IBXIEN,30,Z)
DESCRIPTION
Extracts the 3 authorization codes for bill IBXIEN into IBXDATA(1),
IBXDATA(2), IBXDATA(3). If there is also a referral number, it will
include that after, separated by a space.
Possible output is: Auth code Referral # or: Auth code or:
Referral # or: null
