E12 (246)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER E12
F6 LENGTH 25
NAME PRESCRIBER MIDDLE NAME
F6 FORMAT ALPHANUMERIC
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")
F6 FORMAT CODE
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),25)