326 (79)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER 326
NAME PATIENT TELEPHONE NUMBER
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)