498.12 (159) BPS NCPDP FIELD DEFS (9002313.91)

Name	Value
NCPDP FIELD NUMBER	498.12
NAME	PRESCRIBER TELEPHONE NUMBER
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(BPS("X"),10)