| Name | Value |
|---|---|
| NAME | N-ALL AUTH CODES |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| TYPE OF ELEMENT | EXTRACTED VIA CODE |
| ELEMENT CATEGORY | GROUP ELEMENT |
| BASE FILE | BILL/CLAIMS |
| EXTRACT CODE | N Z,IBZ F Z=1:1:3 I $S(Z=1:1,1:$D(^DGCR(399,IBXIEN,"I"_Z))) D F^IBCEF("N-"_$P("PRIMARY^SECONDARY^TERTIARY",U,Z)_" AUTH CODE","IBZ",,IBXIEN) S IBXDATA(Z)=IBZ K IBZ |
| DESCRIPTION | Extracts the 3 authorization codes for bill IBXIEN into IBXDATA(1), IBXDATA(2), IBXDATA(3). |