B18 (476)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER B18
F6 LENGTH 35
NAME EMPLOYER CONTACT LAST NAME
F6 FORMAT ALPHANUMERIC
ID 7J
D0 LENGTH 35
D0 FORMAT ALPHANUMERIC
VISTA FIELD NUMBER 2018
GET CODE
S BPS("X")=""
REQUEST SEGMENT WORKER'S COMPENSATION
D0 FORMAT CODE
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),35)
SET CODE
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),"B10"),U,8)=BPS("X")
F6 FORMAT CODE
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),35)