B59 (505)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER B59
F6 LENGTH 20
NAME LAST KNOWN CARDHOLDER ID
F6 FORMAT ALPHANUMERIC
ID 3H
D0 LENGTH 20
D0 FORMAT ALPHANUMERIC
VISTA FIELD NUMBER 2059
GET CODE
S BPS("X")=""
REQUEST SEGMENT LAST KNOWN 4RX
D0 FORMAT CODE
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),20)
SET CODE
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),"B50"),U,9)=BPS("X")
F6 FORMAT CODE
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),20)