| Name | Value |
|---|---|
| NCPDP FIELD NUMBER | 401 |
| NAME | DATE OF SERVICE |
| FORMAT | NUMERIC |
| ID | D1 |
| LENGTH | 8 |
| D0 LENGTH | 8 |
| D0 FORMAT | NUMERIC |
| GET CODE |
S BPS("X")=$G(BPS("NCPDP","DOS"))
|
| REQUEST SEGMENT | TRANSACTION HEADER |
| D0 FORMAT CODE |
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),8)
|
| RESPONSE SEGMENT | RESPONSE HEADER |
| SET CODE |
S $P(^BPSC(BPS(9002313.02),401),U,1)=BPS("X")
|
| FORMAT CODE |
S BPS("X")=$$NFF^BPSECFM($G(BPS("X")),8)
|