446 (121)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER 446
NAME ORIGINALLY PRESCRIBED QUANTITY
FORMAT NUMERIC
ID EB
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),440),U,6)=BPS("X") ;VA
FORMAT CODE
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),10)