320 (96) BPS NCPDP FIELD DEFS (9002313.91)

Name	Value
NCPDP FIELD NUMBER	320
NAME	EMPLOYER TELEPHONE NUMBER
FORMAT	NUMERIC
ID	CK
LENGTH	10
D0 LENGTH	10
D0 FORMAT	NUMERIC
GET CODE	S BPS("X")=$TR($G(BPS("Employer","Phone")),"#() -_*.@")
REQUEST SEGMENT	WORKER'S COMPENSATION
D0 FORMAT CODE	S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),10)
SET CODE	S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),310),U,10)=BPS("X")
FORMAT CODE	S BPS("X")=$$ANFF^BPSECFM(BPS("X"),10)