| Name | Value |
|---|---|
| NCPDP FIELD NUMBER | 326 |
| F6 LENGTH | 10 |
| NAME | PATIENT TELEPHONE NUMBER |
| FORMAT | NUMERIC |
| F6 FORMAT | NUMERIC |
| ID | CQ |
| LENGTH | 10 |
| D0 LENGTH | 10 |
| D0 FORMAT | NUMERIC |
| GET CODE |
S BPS("X")=$TR($G(BPS("Patient","Phone #")),"#() -_*.@")
|
| REQUEST SEGMENT | PATIENT |
| D0 FORMAT CODE |
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),10)
|
| SET CODE |
S $P(^BPSC(BPS(9002313.02),321),U,6)=BPS("X")
|
| FORMAT CODE |
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),10)
|
| F6 FORMAT CODE |
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),10)
|