402 (18)    BPS NCPDP FIELD DEFS (9002313.91)

Name Value
NCPDP FIELD NUMBER 402
NAME PRESCRIPTION/SERVICE REF NO
FORMAT NUMERIC
ID D2
LENGTH 7
D0 LENGTH 12
D0 FORMAT NUMERIC
STANDARD NCPDP FIELD NAME PRESCRIPTION/SERVICE REFERENCE NUMBER
GET CODE
S BPS("X")=$G(BPS("RX",BPS(9002313.0201),"RX IEN"))
REQUEST SEGMENT CLAIM
D0 FORMAT CODE
I $L($G(BPS("X")))>12 S BPS("X")=$E(BPS("X"),$L(BPS("X"))-11,$L(BPS("X")))
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),12)
RESPONSE SEGMENT RESPONSE CLAIM
SET CODE
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),400),U,2)=BPS("X")
FORMAT CODE
I $L(BPS("X"))>7 S BPS("X")=$E(BPS("X"),$L(BPS("X"))-6,$L(BPS("X")))
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),7)