477 (136)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER 477
F6 LENGTH 11
NAME PROF SERVICE FEE SUBMITTED
FORMAT SIGNED NUMERIC
F6 FORMAT SIGNED NUMERIC
ID BE
LENGTH 8
D0 LENGTH 8
D0 FORMAT SIGNED NUMERIC
STANDARD NCPDP FIELD NAME PROFESSIONAL SERVICE FEE 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),470),U,7)=BPS("X")
FORMAT CODE
S BPS("X")=$$DFF^BPSECFM($G(BPS("X")),8)
F6 FORMAT CODE
S BPS("X")=$$DFF^BPSECFM($G(BPS("X")),11)