481 (139)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER 481
NAME REGULATORY FEE AMT SUBMITTED
FORMAT SIGNED NUMERIC
ID HA
LENGTH 8
D0 LENGTH 8
D0 FORMAT SIGNED NUMERIC
STANDARD NCPDP FIELD NAME REGULATORY FEE AMOUNT SUBMITTED
GET CODE
S BPS("X")=0
REQUEST SEGMENT PRICING
D0 FORMAT CODE
S BPS("X")=$$DFF^BPSECFM($G(BPS("X")),8)
SET CODE
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),480),U,1)=$S($G(BPS("NCPDP","Version"))=51:BPS("X"),1:"")
FORMAT CODE
S BPS("X")=$$DFF^BPSECFM(BPS("X"),8)