| Name | Value |
|---|---|
| NCPDP FIELD NUMBER | 419 |
| NAME | PRESCRIPTION ORIGIN CODE |
| FORMAT | NUMERIC |
| ID | DJ |
| LENGTH | 1 |
| D0 LENGTH | 1 |
| D0 FORMAT | NUMERIC |
| GET CODE |
S BPS("X")=$G(BPS("RX",BPS(9002313.0201),"Origin Code"))
S:BPS("X")="" BPS("X")="0"
|
| REQUEST SEGMENT | CLAIM |
| D0 FORMAT CODE |
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),1)
|
| SET CODE |
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),400),U,19)=BPS("X")
|
| FORMAT CODE |
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),1)
|