| 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)
|
