460 (81)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER 460
F6 LENGTH 10
NAME QUANTITY PRESCRIBED
FORMAT NUMERIC
F6 FORMAT NUMERIC
ID ET
LENGTH 10
D0 LENGTH 10
D0 FORMAT NUMERIC
GET CODE
S BPS("X")=$G(BPS("RX",BPS(9002313.0201),"Quantity"))*1000\1
REQUEST SEGMENT CLAIM
D0 FORMAT CODE
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),10)
SET CODE
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),450),U,10)=BPS("X")
FORMAT CODE
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),10)
F6 FORMAT CODE
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),10)