E09 (243)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER E09
NAME PATIENT MIDDLE NAME
ID 0C
D0 LENGTH 25
D0 FORMAT ALPHANUMERIC
VISTA FIELD NUMBER 2309
STANDARD NCPDP FIELD NAME PATIENT MIDDLE NAME
GET CODE
S BPS("X")=$G(BPS("Patient","Middle Name"))
REQUEST SEGMENT PATIENT
D0 FORMAT CODE
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),25)
SET CODE
S $P(^BPSC(BPS(9002313.02),"E00"),U,9)=BPS("X")