| NCPDP FIELD NUMBER |
498 |
| F6 LENGTH |
10 |
| NAME |
PRESCRIBER TELEPHONE NUMBER |
| FORMAT |
NUMERIC |
| F6 FORMAT |
NUMERIC |
| ID |
PM |
| LENGTH |
10 |
| D0 LENGTH |
10 |
| D0 FORMAT |
NUMERIC |
| GET CODE |
S BPS("X")=$TR($G(BPS("RX",BPS(9002313.0201),"Prescriber Phone #")),"#() -_*.@")
|
| REQUEST SEGMENT |
PRESCRIBER |
| D0 FORMAT CODE |
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),10)
|
| SET CODE |
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),498),U,12)=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)
|
