| Name | Value |
|---|---|
| NCPDP FIELD NUMBER | 319 |
| NAME | EMPLOYER ZIP/POSTAL ZONE |
| FORMAT | ALPHA/NUMERIC |
| ID | CJ |
| LENGTH | 15 |
| D0 LENGTH | 15 |
| D0 FORMAT | ALPHANUMERIC |
| GET CODE |
S BPS("X")=$G(BPS("Employer","Zip Code"))
|
| REQUEST SEGMENT | WORKER'S COMPENSATION |
| D0 FORMAT CODE |
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),15)
|
| SET CODE |
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),310),U,9)=BPS("X")
|
| FORMAT CODE |
S BPS("X")=$$ANFF^BPSECFM(BPS("X"),15)
|