B57 (503)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER B57
NAME LAST KNOWN PROCESSOR CNTRL NUM
ID 3F
D0 LENGTH 10
D0 FORMAT ALPHANUMERIC
VISTA FIELD NUMBER 2057
STANDARD NCPDP FIELD NAME LAST KNOWN PROCESSOR CONTROL NUMBER
GET CODE
S BPS("X")=""
REQUEST SEGMENT LAST KNOWN 4RX
D0 FORMAT CODE
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),10)
SET CODE
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),"B50"),U,7)=BPS("X")