| Name | Value |
|---|---|
| NAME | N-ALL AUTH/REFERRAL CODES |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| TYPE OF ELEMENT | EXTRACTED VIA CODE |
| ELEMENT CATEGORY | GROUP ELEMENT |
| BASE FILE | BILL/CLAIMS |
| EXTRACT CODE | 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 |