E12 (246) BPS NCPDP FIELD DEFS (9002313.91)

Name	Value
NCPDP FIELD NUMBER	E12
NAME	PRESCRIBER MIDDLE NAME
ID	0F
D0 LENGTH	25
D0 FORMAT	ALPHANUMERIC
VISTA FIELD NUMBER	2312
STANDARD NCPDP FIELD NAME	PRESCRIBER MIDDLE NAME
GET CODE	S BPS("X")=$G(BPS("RX",BPS(9002313.0201),"Prescriber Middle Name"))
REQUEST SEGMENT	PRESCRIBER
D0 FORMAT CODE	S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),25)
SET CODE	S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),"E10"),U,2)=BPS("X")