B29 (488)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER B29
F6 LENGTH 40
NAME PURCHASER STREET ADDRESS LINE1
F6 FORMAT ALPHANUMERIC
ID 7W
D0 LENGTH 40
D0 FORMAT ALPHANUMERIC
VISTA FIELD NUMBER 2029
STANDARD NCPDP FIELD NAME PURCHASER STREET ADDRESS LINE 1
GET CODE
S BPS("X")=""
REQUEST SEGMENT PURCHASER
D0 FORMAT CODE
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),40)
SET CODE
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),"B20"),U,9)=BPS("X")
F6 FORMAT CODE
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),40)