| Name | Value |
|---|---|
| ASSIGNED DATA NAME | E-CONTACT ZIP |
| DATA KEY | I;20A.6 |
| ACTIVE | ACTIVE |
| VERSION # | 1.0 |
| TRANSFORM | S EASRTR=$$ZIP^EASEZT2(EZDATA) |
| MAP-TO FILE | 2 |
| MAP-TO SUB-FILE | 2 |
| MAP-TO FIELD | .2201 |
| DISPLAY NAME | E-Cont. Zip |
| DIR(0) | S DIR(0)="FO^5:10^S XX=$TR(X,""-"","""") I XX'?5N,(XX'?9N) K X" |