481 (139)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER 481
F6 LENGTH 11
NAME REGULATORY FEE AMT SUBMITTED
FORMAT SIGNED NUMERIC
F6 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)
F6 FORMAT CODE
S BPS("X")=$$DFF^BPSECFM($G(BPS("X")),11)