440 (38) BPS NCPDP FIELD DEFS (9002313.91)

Name	Value
NCPDP FIELD NUMBER	440
NAME	PROFESSIONAL SERVICE CODE
FORMAT	ALPHA/NUMERIC
ID	E5
LENGTH	2
D0 LENGTH	2
D0 FORMAT	ALPHANUMERIC
GET CODE	S BPS("X")=$G(BPS("RX",BPS(9002313.0201),"DUR","DUR Intervention Code",440))
REQUEST SEGMENT	DUR/PPS
D0 FORMAT CODE	S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),2)
SET CODE	D FLD440^BPSOSSG
FORMAT CODE	S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),2)