433 (36)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER 433
F6 LENGTH 11
NAME PATIENT PAID AMOUNT REPORTED
FORMAT SIGNED NUMERIC
F6 FORMAT SIGNED NUMERIC
ID DX
LENGTH 8
D0 LENGTH 8
D0 FORMAT SIGNED NUMERIC
STANDARD NCPDP FIELD NAME PATIENT PAID AMOUNT SUBMITTED
GET CODE
S BPS("X")=$G(BPS("RX",BPS(9002313.0201),"Patient Paid Amount"))
S:BPS("X")="" BPS("X")="0.00"
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),430),U,3)=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)