B58 (504)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER B58
F6 LENGTH 15
NAME LAST KNOWN GROUP ID
F6 FORMAT ALPHANUMERIC
ID 3G
D0 LENGTH 15
D0 FORMAT ALPHANUMERIC
VISTA FIELD NUMBER 2058
GET CODE
S BPS("X")=""
REQUEST SEGMENT LAST KNOWN 4RX
D0 FORMAT CODE
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),15)
SET CODE
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),"B50"),U,8)=BPS("X")
F6 FORMAT CODE
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),15)