| NCPDP FIELD NUMBER |
325 |
| F6 LENGTH |
15 |
| NAME |
PATIENT ZIP/POSTAL ZONE |
| FORMAT |
ALPHA/NUMERIC |
| F6 FORMAT |
ALPHANUMERIC |
| ID |
CP |
| LENGTH |
15 |
| D0 LENGTH |
15 |
| D0 FORMAT |
ALPHANUMERIC |
| GET CODE |
S BPS("X")=$G(BPS("Patient","Zip"))
|
| REQUEST SEGMENT |
PATIENT |
| D0 FORMAT CODE |
S BPS("X")=$TR($G(BPS("X")),"-/._","")
S BPS("X")=$$ANFF^BPSECFM(BPS("X"),15)
|
| SET CODE |
S $P(^BPSC(BPS(9002313.02),321),U,5)=BPS("X")
|
| FORMAT CODE |
S BPS("X")=$TR(BPS("X"),"-/._","")
S BPS("X")=$$ANFF^BPSECFM(BPS("X"),9)
|
| F6 FORMAT CODE |
S BPS("X")=$TR($G(BPS("X")),"-/._","")
S BPS("X")=$$ANFF^BPSECFM(BPS("X"),15)
|
