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")