B59 (505)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER B59
NAME LAST KNOWN CARDHOLDER ID
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")