| Name | Value |
|---|---|
| NCPDP FIELD NUMBER | B37 |
| NAME | FACILITY COUNTRY CODE |
| ID | 1X |
| D0 LENGTH | 2 |
| D0 FORMAT | ALPHANUMERIC |
| VISTA FIELD NUMBER | 2037 |
| GET CODE |
S BPS("X")=""
|
| REQUEST SEGMENT | FACILITY |
| D0 FORMAT CODE |
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),2)
|
| SET CODE |
S $P(^BPSC(BPS(9002313.02),400,BPS(9002313.0201),"B30"),U,7)=BPS("X")
|