| Name | Value |
|---|---|
| NCPDP FIELD NUMBER | 334 |
| NAME | SMOKER/NONSMOKER |
| FORMAT | NUMERIC |
| ID | 1C |
| LENGTH | 1 |
| D0 LENGTH | 1 |
| D0 FORMAT | ALPHANUMERIC |
| GET CODE |
S BPS("X")=""
|
| REQUEST SEGMENT | PATIENT |
| D0 FORMAT CODE |
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),1)
|
| SET CODE |
S $P(^BPSC(BPS(9002313.02),330),U,4)=BPS("X")
|
| FORMAT CODE |
S BPS("X")=$$ANFF^BPSECFM(BPS("X"),1)
|