[1643] | 1 | KIDS Distribution saved on Jul 22, 2014@15:00:36
|
---|
| 2 | 2.3 to fix a bug reported by Scott Presnell
|
---|
| 3 | **KIDS**:RXNORM FOR VISTA 2.3^
|
---|
| 4 |
|
---|
| 5 | **INSTALL NAME**
|
---|
| 6 | RXNORM FOR VISTA 2.3
|
---|
| 7 | "BLD",9316,0)
|
---|
| 8 | RXNORM FOR VISTA 2.3^RXNORM FOR VISTA^0^3140722^y
|
---|
| 9 | "BLD",9316,1,0)
|
---|
| 10 | ^^35^35^3140722^
|
---|
| 11 | "BLD",9316,1,1,0)
|
---|
| 12 | This build and install is (C) Sam Habiel 2013. Distributed
|
---|
| 13 | "BLD",9316,1,2,0)
|
---|
| 14 | by the VISTA Expertise Network.
|
---|
| 15 | "BLD",9316,1,3,0)
|
---|
| 16 |
|
---|
| 17 | "BLD",9316,1,4,0)
|
---|
| 18 | Questions and Support: sam.habiel@vistaexpertise.net
|
---|
| 19 | "BLD",9316,1,5,0)
|
---|
| 20 |
|
---|
| 21 | "BLD",9316,1,6,0)
|
---|
| 22 | See accompanying License Terms for the terms of using this software.
|
---|
| 23 | "BLD",9316,1,7,0)
|
---|
| 24 |
|
---|
| 25 | "BLD",9316,1,8,0)
|
---|
| 26 | RxNorm is a vocabulary set and tables maintained by the National Library
|
---|
| 27 | "BLD",9316,1,9,0)
|
---|
| 28 | of Medicine. From the Website
|
---|
| 29 | "BLD",9316,1,10,0)
|
---|
| 30 | (http://www.nlm.nih.gov/research/umls/rxnorm/index.html):
|
---|
| 31 | "BLD",9316,1,11,0)
|
---|
| 32 |
|
---|
| 33 | "BLD",9316,1,12,0)
|
---|
| 34 | <<<
|
---|
| 35 | "BLD",9316,1,13,0)
|
---|
| 36 | RxNorm provides normalized names for clinical drugs and links its names to
|
---|
| 37 | "BLD",9316,1,14,0)
|
---|
| 38 | many of the drug vocabularies commonly used in pharmacy management and
|
---|
| 39 | "BLD",9316,1,15,0)
|
---|
| 40 | drug interaction software, including those of First Databank, Micromedex,
|
---|
| 41 | "BLD",9316,1,16,0)
|
---|
| 42 | MediSpan, Gold Standard, and Multum. By providing links between these
|
---|
| 43 | "BLD",9316,1,17,0)
|
---|
| 44 | vocabularies, RxNorm can mediate messages between systems not using the
|
---|
| 45 | "BLD",9316,1,18,0)
|
---|
| 46 | same software and vocabulary.
|
---|
| 47 | "BLD",9316,1,19,0)
|
---|
| 48 |
|
---|
| 49 | "BLD",9316,1,20,0)
|
---|
| 50 | RxNorm now includes the National Drug File - Reference Terminology
|
---|
| 51 | "BLD",9316,1,21,0)
|
---|
| 52 | (NDF-RT) from the Veterans Health Administration. NDF-RT is a terminology
|
---|
| 53 | "BLD",9316,1,22,0)
|
---|
| 54 | used to code clinical drug properties, including mechanism of action,
|
---|
| 55 | "BLD",9316,1,23,0)
|
---|
| 56 | physiologic effect, and therapeutic category.
|
---|
| 57 | "BLD",9316,1,24,0)
|
---|
| 58 | >>>
|
---|
| 59 | "BLD",9316,1,25,0)
|
---|
| 60 |
|
---|
| 61 | "BLD",9316,1,26,0)
|
---|
| 62 | This build consists of the data dictionaries for 6 files and 3 routines,
|
---|
| 63 | "BLD",9316,1,27,0)
|
---|
| 64 | one of them being the loader routine for the data.
|
---|
| 65 | "BLD",9316,1,28,0)
|
---|
| 66 |
|
---|
| 67 | "BLD",9316,1,29,0)
|
---|
| 68 | This build needs Fileman 22.2 for editing global nodes up to 16,000.
|
---|
| 69 | "BLD",9316,1,30,0)
|
---|
| 70 | You don't need Fileman 22.2 to read the data.
|
---|
| 71 | "BLD",9316,1,31,0)
|
---|
| 72 |
|
---|
| 73 | "BLD",9316,1,32,0)
|
---|
| 74 | On the M Virtual Machine, Global Nodes need to be 16,000 or more.
|
---|
| 75 | "BLD",9316,1,33,0)
|
---|
| 76 |
|
---|
| 77 | "BLD",9316,1,34,0)
|
---|
| 78 | On Fileman 22.2, to edit the global definitions or the data, you need to
|
---|
| 79 | "BLD",9316,1,35,0)
|
---|
| 80 | have ^DD("STRING_LIMIT")=16000 (needs to be manually set).
|
---|
| 81 | "BLD",9316,4,0)
|
---|
| 82 | ^9.64PA^50.68^8
|
---|
| 83 | "BLD",9316,4,50,0)
|
---|
| 84 | 50
|
---|
| 85 | "BLD",9316,4,50,2,0)
|
---|
| 86 | ^9.641^50^1
|
---|
| 87 | "BLD",9316,4,50,2,50,0)
|
---|
| 88 | DRUG (File-top level)
|
---|
| 89 | "BLD",9316,4,50,2,50,1,0)
|
---|
| 90 | ^9.6411^176.002^2
|
---|
| 91 | "BLD",9316,4,50,2,50,1,176.001,0)
|
---|
| 92 | RXNCUI
|
---|
| 93 | "BLD",9316,4,50,2,50,1,176.002,0)
|
---|
| 94 | RXN SCD NAME
|
---|
| 95 | "BLD",9316,4,50,222)
|
---|
| 96 | y^y^p^^^^n^^n
|
---|
| 97 | "BLD",9316,4,50,224)
|
---|
| 98 |
|
---|
| 99 | "BLD",9316,4,50.68,0)
|
---|
| 100 | 50.68
|
---|
| 101 | "BLD",9316,4,50.68,2,0)
|
---|
| 102 | ^9.641^50.68^1
|
---|
| 103 | "BLD",9316,4,50.68,2,50.68,0)
|
---|
| 104 | VA PRODUCT (File-top level)
|
---|
| 105 | "BLD",9316,4,50.68,2,50.68,1,0)
|
---|
| 106 | ^9.6411^176.001^1
|
---|
| 107 | "BLD",9316,4,50.68,2,50.68,1,176.001,0)
|
---|
| 108 | COMPUTED GCNSEQNO
|
---|
| 109 | "BLD",9316,4,50.68,222)
|
---|
| 110 | y^y^p^^^^n^^n
|
---|
| 111 | "BLD",9316,4,50.68,224)
|
---|
| 112 |
|
---|
| 113 | "BLD",9316,4,176.001,0)
|
---|
| 114 | 176.001
|
---|
| 115 | "BLD",9316,4,176.001,222)
|
---|
| 116 | y^y^f^^^^n
|
---|
| 117 | "BLD",9316,4,176.002,0)
|
---|
| 118 | 176.002
|
---|
| 119 | "BLD",9316,4,176.002,222)
|
---|
| 120 | y^y^f^^^^n
|
---|
| 121 | "BLD",9316,4,176.003,0)
|
---|
| 122 | 176.003
|
---|
| 123 | "BLD",9316,4,176.003,222)
|
---|
| 124 | y^y^f^^^^n
|
---|
| 125 | "BLD",9316,4,176.004,0)
|
---|
| 126 | 176.004
|
---|
| 127 | "BLD",9316,4,176.004,222)
|
---|
| 128 | y^y^f^^^^n
|
---|
| 129 | "BLD",9316,4,176.005,0)
|
---|
| 130 | 176.005
|
---|
| 131 | "BLD",9316,4,176.005,222)
|
---|
| 132 | y^y^f^^^^n
|
---|
| 133 | "BLD",9316,4,176.006,0)
|
---|
| 134 | 176.006
|
---|
| 135 | "BLD",9316,4,176.006,222)
|
---|
| 136 | y^y^f^^^^n
|
---|
| 137 | "BLD",9316,4,"APDD",50,50)
|
---|
| 138 |
|
---|
| 139 | "BLD",9316,4,"APDD",50,50,176.001)
|
---|
| 140 |
|
---|
| 141 | "BLD",9316,4,"APDD",50,50,176.002)
|
---|
| 142 |
|
---|
| 143 | "BLD",9316,4,"APDD",50.68,50.68)
|
---|
| 144 |
|
---|
| 145 | "BLD",9316,4,"APDD",50.68,50.68,176.001)
|
---|
| 146 |
|
---|
| 147 | "BLD",9316,4,"B",50,50)
|
---|
| 148 |
|
---|
| 149 | "BLD",9316,4,"B",50.68,50.68)
|
---|
| 150 |
|
---|
| 151 | "BLD",9316,4,"B",176.001,176.001)
|
---|
| 152 |
|
---|
| 153 | "BLD",9316,4,"B",176.002,176.002)
|
---|
| 154 |
|
---|
| 155 | "BLD",9316,4,"B",176.003,176.003)
|
---|
| 156 |
|
---|
| 157 | "BLD",9316,4,"B",176.004,176.004)
|
---|
| 158 |
|
---|
| 159 | "BLD",9316,4,"B",176.005,176.005)
|
---|
| 160 |
|
---|
| 161 | "BLD",9316,4,"B",176.006,176.006)
|
---|
| 162 |
|
---|
| 163 | "BLD",9316,6.3)
|
---|
| 164 | 16
|
---|
| 165 | "BLD",9316,"ABPKG")
|
---|
| 166 | n
|
---|
| 167 | "BLD",9316,"KRN",0)
|
---|
| 168 | ^9.67PA^779.2^20
|
---|
| 169 | "BLD",9316,"KRN",.4,0)
|
---|
| 170 | .4
|
---|
| 171 | "BLD",9316,"KRN",.401,0)
|
---|
| 172 | .401
|
---|
| 173 | "BLD",9316,"KRN",.402,0)
|
---|
| 174 | .402
|
---|
| 175 | "BLD",9316,"KRN",.403,0)
|
---|
| 176 | .403
|
---|
| 177 | "BLD",9316,"KRN",.5,0)
|
---|
| 178 | .5
|
---|
| 179 | "BLD",9316,"KRN",.84,0)
|
---|
| 180 | .84
|
---|
| 181 | "BLD",9316,"KRN",3.6,0)
|
---|
| 182 | 3.6
|
---|
| 183 | "BLD",9316,"KRN",3.8,0)
|
---|
| 184 | 3.8
|
---|
| 185 | "BLD",9316,"KRN",9.2,0)
|
---|
| 186 | 9.2
|
---|
| 187 | "BLD",9316,"KRN",9.8,0)
|
---|
| 188 | 9.8
|
---|
| 189 | "BLD",9316,"KRN",9.8,"NM",0)
|
---|
| 190 | ^9.68A^3^3
|
---|
| 191 | "BLD",9316,"KRN",9.8,"NM",1,0)
|
---|
| 192 | C0CRXNRD^^0^B42158088
|
---|
| 193 | "BLD",9316,"KRN",9.8,"NM",2,0)
|
---|
| 194 | C0CRXNLK^^0^B99704419
|
---|
| 195 | "BLD",9316,"KRN",9.8,"NM",3,0)
|
---|
| 196 | C0CRXNAD^^0^B18747982
|
---|
| 197 | "BLD",9316,"KRN",9.8,"NM","B","C0CRXNAD",3)
|
---|
| 198 |
|
---|
| 199 | "BLD",9316,"KRN",9.8,"NM","B","C0CRXNLK",2)
|
---|
| 200 |
|
---|
| 201 | "BLD",9316,"KRN",9.8,"NM","B","C0CRXNRD",1)
|
---|
| 202 |
|
---|
| 203 | "BLD",9316,"KRN",19,0)
|
---|
| 204 | 19
|
---|
| 205 | "BLD",9316,"KRN",19,"NM",0)
|
---|
| 206 | ^9.68A^^
|
---|
| 207 | "BLD",9316,"KRN",19.1,0)
|
---|
| 208 | 19.1
|
---|
| 209 | "BLD",9316,"KRN",101,0)
|
---|
| 210 | 101
|
---|
| 211 | "BLD",9316,"KRN",409.61,0)
|
---|
| 212 | 409.61
|
---|
| 213 | "BLD",9316,"KRN",771,0)
|
---|
| 214 | 771
|
---|
| 215 | "BLD",9316,"KRN",779.2,0)
|
---|
| 216 | 779.2
|
---|
| 217 | "BLD",9316,"KRN",870,0)
|
---|
| 218 | 870
|
---|
| 219 | "BLD",9316,"KRN",8989.51,0)
|
---|
| 220 | 8989.51
|
---|
| 221 | "BLD",9316,"KRN",8989.52,0)
|
---|
| 222 | 8989.52
|
---|
| 223 | "BLD",9316,"KRN",8994,0)
|
---|
| 224 | 8994
|
---|
| 225 | "BLD",9316,"KRN","B",.4,.4)
|
---|
| 226 |
|
---|
| 227 | "BLD",9316,"KRN","B",.401,.401)
|
---|
| 228 |
|
---|
| 229 | "BLD",9316,"KRN","B",.402,.402)
|
---|
| 230 |
|
---|
| 231 | "BLD",9316,"KRN","B",.403,.403)
|
---|
| 232 |
|
---|
| 233 | "BLD",9316,"KRN","B",.5,.5)
|
---|
| 234 |
|
---|
| 235 | "BLD",9316,"KRN","B",.84,.84)
|
---|
| 236 |
|
---|
| 237 | "BLD",9316,"KRN","B",3.6,3.6)
|
---|
| 238 |
|
---|
| 239 | "BLD",9316,"KRN","B",3.8,3.8)
|
---|
| 240 |
|
---|
| 241 | "BLD",9316,"KRN","B",9.2,9.2)
|
---|
| 242 |
|
---|
| 243 | "BLD",9316,"KRN","B",9.8,9.8)
|
---|
| 244 |
|
---|
| 245 | "BLD",9316,"KRN","B",19,19)
|
---|
| 246 |
|
---|
| 247 | "BLD",9316,"KRN","B",19.1,19.1)
|
---|
| 248 |
|
---|
| 249 | "BLD",9316,"KRN","B",101,101)
|
---|
| 250 |
|
---|
| 251 | "BLD",9316,"KRN","B",409.61,409.61)
|
---|
| 252 |
|
---|
| 253 | "BLD",9316,"KRN","B",771,771)
|
---|
| 254 |
|
---|
| 255 | "BLD",9316,"KRN","B",779.2,779.2)
|
---|
| 256 |
|
---|
| 257 | "BLD",9316,"KRN","B",870,870)
|
---|
| 258 |
|
---|
| 259 | "BLD",9316,"KRN","B",8989.51,8989.51)
|
---|
| 260 |
|
---|
| 261 | "BLD",9316,"KRN","B",8989.52,8989.52)
|
---|
| 262 |
|
---|
| 263 | "BLD",9316,"KRN","B",8994,8994)
|
---|
| 264 |
|
---|
| 265 | "BLD",9316,"QUES",0)
|
---|
| 266 | ^9.62^^
|
---|
| 267 | "BLD",9316,"REQB",0)
|
---|
| 268 | ^9.611^^
|
---|
| 269 | "FIA",50)
|
---|
| 270 | DRUG
|
---|
| 271 | "FIA",50,0)
|
---|
| 272 | ^PSDRUG(
|
---|
| 273 | "FIA",50,0,0)
|
---|
| 274 | 50I
|
---|
| 275 | "FIA",50,0,1)
|
---|
| 276 | y^y^p^^^^n^^n
|
---|
| 277 | "FIA",50,0,10)
|
---|
| 278 |
|
---|
| 279 | "FIA",50,0,11)
|
---|
| 280 |
|
---|
| 281 | "FIA",50,0,"RLRO")
|
---|
| 282 |
|
---|
| 283 | "FIA",50,0,"VR")
|
---|
| 284 | 2.3^RXNORM FOR VISTA
|
---|
| 285 | "FIA",50,50)
|
---|
| 286 | 1
|
---|
| 287 | "FIA",50,50,176.001)
|
---|
| 288 |
|
---|
| 289 | "FIA",50,50,176.002)
|
---|
| 290 |
|
---|
| 291 | "FIA",50.68)
|
---|
| 292 | VA PRODUCT
|
---|
| 293 | "FIA",50.68,0)
|
---|
| 294 | ^PSNDF(50.68,
|
---|
| 295 | "FIA",50.68,0,0)
|
---|
| 296 | 50.68
|
---|
| 297 | "FIA",50.68,0,1)
|
---|
| 298 | y^y^p^^^^n^^n
|
---|
| 299 | "FIA",50.68,0,10)
|
---|
| 300 |
|
---|
| 301 | "FIA",50.68,0,11)
|
---|
| 302 |
|
---|
| 303 | "FIA",50.68,0,"RLRO")
|
---|
| 304 |
|
---|
| 305 | "FIA",50.68,0,"VR")
|
---|
| 306 | 2.3^RXNORM FOR VISTA
|
---|
| 307 | "FIA",50.68,50.68)
|
---|
| 308 | 1
|
---|
| 309 | "FIA",50.68,50.68,176.001)
|
---|
| 310 |
|
---|
| 311 | "FIA",176.001)
|
---|
| 312 | RXNORM CONCEPT NAMES AND SOURCES
|
---|
| 313 | "FIA",176.001,0)
|
---|
| 314 | ^C0CRXN(176.001,
|
---|
| 315 | "FIA",176.001,0,0)
|
---|
| 316 | 176.001I
|
---|
| 317 | "FIA",176.001,0,1)
|
---|
| 318 | y^y^f^^^^n
|
---|
| 319 | "FIA",176.001,0,10)
|
---|
| 320 |
|
---|
| 321 | "FIA",176.001,0,11)
|
---|
| 322 |
|
---|
| 323 | "FIA",176.001,0,"RLRO")
|
---|
| 324 |
|
---|
| 325 | "FIA",176.001,0,"VR")
|
---|
| 326 | 2.3^RXNORM FOR VISTA
|
---|
| 327 | "FIA",176.001,176.001)
|
---|
| 328 | 0
|
---|
| 329 | "FIA",176.002)
|
---|
| 330 | RXNORM SIMPLE CONCEPT AND ATOM ATTRIBUTES
|
---|
| 331 | "FIA",176.002,0)
|
---|
| 332 | ^C0CRXN(176.002,
|
---|
| 333 | "FIA",176.002,0,0)
|
---|
| 334 | 176.002I
|
---|
| 335 | "FIA",176.002,0,1)
|
---|
| 336 | y^y^f^^^^n
|
---|
| 337 | "FIA",176.002,0,10)
|
---|
| 338 |
|
---|
| 339 | "FIA",176.002,0,11)
|
---|
| 340 |
|
---|
| 341 | "FIA",176.002,0,"RLRO")
|
---|
| 342 |
|
---|
| 343 | "FIA",176.002,0,"VR")
|
---|
| 344 | 2.3^RXNORM FOR VISTA
|
---|
| 345 | "FIA",176.002,176.002)
|
---|
| 346 | 0
|
---|
| 347 | "FIA",176.003)
|
---|
| 348 | RXNORM SOURCE INFORMATION
|
---|
| 349 | "FIA",176.003,0)
|
---|
| 350 | ^C0CRXN(176.003,
|
---|
| 351 | "FIA",176.003,0,0)
|
---|
| 352 | 176.003I
|
---|
| 353 | "FIA",176.003,0,1)
|
---|
| 354 | y^y^f^^^^n
|
---|
| 355 | "FIA",176.003,0,10)
|
---|
| 356 |
|
---|
| 357 | "FIA",176.003,0,11)
|
---|
| 358 |
|
---|
| 359 | "FIA",176.003,0,"RLRO")
|
---|
| 360 |
|
---|
| 361 | "FIA",176.003,0,"VR")
|
---|
| 362 | 2.3^RXNORM FOR VISTA
|
---|
| 363 | "FIA",176.003,176.003)
|
---|
| 364 | 0
|
---|
| 365 | "FIA",176.004)
|
---|
| 366 | RXNORM SEMANTIC TYPES
|
---|
| 367 | "FIA",176.004,0)
|
---|
| 368 | ^C0CRXN(176.004,
|
---|
| 369 | "FIA",176.004,0,0)
|
---|
| 370 | 176.004I
|
---|
| 371 | "FIA",176.004,0,1)
|
---|
| 372 | y^y^f^^^^n
|
---|
| 373 | "FIA",176.004,0,10)
|
---|
| 374 |
|
---|
| 375 | "FIA",176.004,0,11)
|
---|
| 376 |
|
---|
| 377 | "FIA",176.004,0,"RLRO")
|
---|
| 378 |
|
---|
| 379 | "FIA",176.004,0,"VR")
|
---|
| 380 | 2.3^RXNORM FOR VISTA
|
---|
| 381 | "FIA",176.004,176.004)
|
---|
| 382 | 0
|
---|
| 383 | "FIA",176.005)
|
---|
| 384 | RXNORM RELATED CONCEPTS
|
---|
| 385 | "FIA",176.005,0)
|
---|
| 386 | ^C0CRXN(176.005,
|
---|
| 387 | "FIA",176.005,0,0)
|
---|
| 388 | 176.005
|
---|
| 389 | "FIA",176.005,0,1)
|
---|
| 390 | y^y^f^^^^n
|
---|
| 391 | "FIA",176.005,0,10)
|
---|
| 392 |
|
---|
| 393 | "FIA",176.005,0,11)
|
---|
| 394 |
|
---|
| 395 | "FIA",176.005,0,"RLRO")
|
---|
| 396 |
|
---|
| 397 | "FIA",176.005,0,"VR")
|
---|
| 398 | 2.3^RXNORM FOR VISTA
|
---|
| 399 | "FIA",176.005,176.005)
|
---|
| 400 | 0
|
---|
| 401 | "FIA",176.006)
|
---|
| 402 | RXNORM DOCUMENTATION FOR ABBREVIATED VALUES
|
---|
| 403 | "FIA",176.006,0)
|
---|
| 404 | ^C0CRXN(176.006,
|
---|
| 405 | "FIA",176.006,0,0)
|
---|
| 406 | 176.006I
|
---|
| 407 | "FIA",176.006,0,1)
|
---|
| 408 | y^y^f^^^^n
|
---|
| 409 | "FIA",176.006,0,10)
|
---|
| 410 |
|
---|
| 411 | "FIA",176.006,0,11)
|
---|
| 412 |
|
---|
| 413 | "FIA",176.006,0,"RLRO")
|
---|
| 414 |
|
---|
| 415 | "FIA",176.006,0,"VR")
|
---|
| 416 | 2.3^RXNORM FOR VISTA
|
---|
| 417 | "FIA",176.006,176.006)
|
---|
| 418 | 0
|
---|
| 419 | "IX",176.001,176.001,"B",0)
|
---|
| 420 | 176.001^B^Regular B Index^R^^F^IR^I^176.001^^^^^LS
|
---|
| 421 | "IX",176.001,176.001,"B",1)
|
---|
| 422 | S ^C0CRXN(176.001,"B",X,DA)=""
|
---|
| 423 | "IX",176.001,176.001,"B",2)
|
---|
| 424 | K ^C0CRXN(176.001,"B",X,DA)
|
---|
| 425 | "IX",176.001,176.001,"B",2.5)
|
---|
| 426 | K ^C0CRXN(176.001,"B")
|
---|
| 427 | "IX",176.001,176.001,"B",11.1,0)
|
---|
| 428 | ^.114IA^1^1
|
---|
| 429 | "IX",176.001,176.001,"B",11.1,1,0)
|
---|
| 430 | 1^F^176.001^.01^^1^F
|
---|
| 431 | "IX",176.001,176.001,"B",11.1,1,3)
|
---|
| 432 |
|
---|
| 433 | "IX",176.001,176.001,"CODE",0)
|
---|
| 434 | 176.001^CODE^Code Index^R^^F^IR^I^176.001^^^^^LS
|
---|
| 435 | "IX",176.001,176.001,"CODE",1)
|
---|
| 436 | S ^C0CRXN(176.001,"CODE",X,DA)=""
|
---|
| 437 | "IX",176.001,176.001,"CODE",2)
|
---|
| 438 | K ^C0CRXN(176.001,"CODE",X,DA)
|
---|
| 439 | "IX",176.001,176.001,"CODE",2.5)
|
---|
| 440 | K ^C0CRXN(176.001,"CODE")
|
---|
| 441 | "IX",176.001,176.001,"CODE",11.1,0)
|
---|
| 442 | ^.114IA^1^1
|
---|
| 443 | "IX",176.001,176.001,"CODE",11.1,1,0)
|
---|
| 444 | 1^F^176.001^.14^^1^F
|
---|
| 445 | "IX",176.001,176.001,"CODE",11.1,1,3)
|
---|
| 446 |
|
---|
| 447 | "IX",176.001,176.001,"STC",0)
|
---|
| 448 | 176.001^STC^Source Term Type Code Index^MU^^R^IR^I^176.001^^^^^LS
|
---|
| 449 | "IX",176.001,176.001,"STC",.1,0)
|
---|
| 450 | ^^11^11^3130304^
|
---|
| 451 | "IX",176.001,176.001,"STC",.1,1,0)
|
---|
| 452 | Use this index to do compound searches on RxNorm Concepts.
|
---|
| 453 | "IX",176.001,176.001,"STC",.1,2,0)
|
---|
| 454 |
|
---|
| 455 | "IX",176.001,176.001,"STC",.1,3,0)
|
---|
| 456 | Examples:
|
---|
| 457 | "IX",176.001,176.001,"STC",.1,4,0)
|
---|
| 458 | SAB="NDDF", TTY="CDC", CODE={GCN} will give you the entry a clinical drug
|
---|
| 459 | "IX",176.001,176.001,"STC",.1,5,0)
|
---|
| 460 | in First Database with GCN Code {GCN}.
|
---|
| 461 | "IX",176.001,176.001,"STC",.1,6,0)
|
---|
| 462 |
|
---|
| 463 | "IX",176.001,176.001,"STC",.1,7,0)
|
---|
| 464 | SAB="RXNORM", TTY="SCD", CODE={RXNORM} will give you the entry that is
|
---|
| 465 | "IX",176.001,176.001,"STC",.1,8,0)
|
---|
| 466 | the Semantic Clinical Drug for the RxNorm code.
|
---|
| 467 | "IX",176.001,176.001,"STC",.1,9,0)
|
---|
| 468 |
|
---|
| 469 | "IX",176.001,176.001,"STC",.1,10,0)
|
---|
| 470 | SAB="VANDF", TTY="CD", CODE={VUID} will give you a drug that has that
|
---|
| 471 | "IX",176.001,176.001,"STC",.1,11,0)
|
---|
| 472 | VUID.
|
---|
| 473 | "IX",176.001,176.001,"STC",1)
|
---|
| 474 | S ^C0CRXN(176.001,"STC",X(1),X(2),X(3),DA)=X(4)
|
---|
| 475 | "IX",176.001,176.001,"STC",2)
|
---|
| 476 | K ^C0CRXN(176.001,"STC",X(1),X(2),X(3),DA)
|
---|
| 477 | "IX",176.001,176.001,"STC",2.5)
|
---|
| 478 | K ^C0CRXN(176.001,"STC")
|
---|
| 479 | "IX",176.001,176.001,"STC",11.1,0)
|
---|
| 480 | ^.114IA^4^4
|
---|
| 481 | "IX",176.001,176.001,"STC",11.1,1,0)
|
---|
| 482 | 1^F^176.001^.12^^1^F
|
---|
| 483 | "IX",176.001,176.001,"STC",11.1,1,3)
|
---|
| 484 |
|
---|
| 485 | "IX",176.001,176.001,"STC",11.1,2,0)
|
---|
| 486 | 2^F^176.001^.13^^2^F
|
---|
| 487 | "IX",176.001,176.001,"STC",11.1,2,3)
|
---|
| 488 |
|
---|
| 489 | "IX",176.001,176.001,"STC",11.1,3,0)
|
---|
| 490 | 3^F^176.001^.14^^3^F
|
---|
| 491 | "IX",176.001,176.001,"STC",11.1,3,3)
|
---|
| 492 |
|
---|
| 493 | "IX",176.001,176.001,"STC",11.1,4,0)
|
---|
| 494 | 4^F^176.001^.01^^^F
|
---|
| 495 | "IX",176.001,176.001,"STC",11.1,4,3)
|
---|
| 496 |
|
---|
| 497 | "IX",176.001,176.001,"STR",0)
|
---|
| 498 | 176.001^STR^String Lookup Index^R^^F^IR^I^176.001^^^^^LS
|
---|
| 499 | "IX",176.001,176.001,"STR",1)
|
---|
| 500 | S ^C0CRXN(176.001,"STR",$E(X,1,30),DA)=""
|
---|
| 501 | "IX",176.001,176.001,"STR",2)
|
---|
| 502 | K ^C0CRXN(176.001,"STR",$E(X,1,30),DA)
|
---|
| 503 | "IX",176.001,176.001,"STR",2.5)
|
---|
| 504 | K ^C0CRXN(176.001,"STR")
|
---|
| 505 | "IX",176.001,176.001,"STR",11.1,0)
|
---|
| 506 | ^.114IA^1^1
|
---|
| 507 | "IX",176.001,176.001,"STR",11.1,1,0)
|
---|
| 508 | 1^F^176.001^.15^30^1^F
|
---|
| 509 | "IX",176.001,176.001,"STR",11.1,1,2)
|
---|
| 510 | S X=$$UP^XLFSTR(X)
|
---|
| 511 | "IX",176.001,176.001,"STR",11.1,1,3)
|
---|
| 512 |
|
---|
| 513 | "IX",176.001,176.001,"STR",11.1,1,4)
|
---|
| 514 | S X=$$UP^XLFSTR(X)
|
---|
| 515 | "IX",176.001,176.001,"STX",0)
|
---|
| 516 | 176.001^STX^Source Term Type RxCUI Code Index^MU^^R^IR^I^176.001^^^^^LS
|
---|
| 517 | "IX",176.001,176.001,"STX",.1,0)
|
---|
| 518 | ^^5^5^3130305^
|
---|
| 519 | "IX",176.001,176.001,"STX",.1,1,0)
|
---|
| 520 | Use this index as a reverse of the STC index.
|
---|
| 521 | "IX",176.001,176.001,"STX",.1,2,0)
|
---|
| 522 |
|
---|
| 523 | "IX",176.001,176.001,"STX",.1,3,0)
|
---|
| 524 | The STC index will give you an entry if you know the source and the type
|
---|
| 525 | "IX",176.001,176.001,"STX",.1,4,0)
|
---|
| 526 | and the code. This index will give you the codes if you know the source,
|
---|
| 527 | "IX",176.001,176.001,"STX",.1,5,0)
|
---|
| 528 | the type, but not the code, but rather the RxNorm code.
|
---|
| 529 | "IX",176.001,176.001,"STX",1)
|
---|
| 530 | S ^C0CRXN(176.001,"STX",X(1),X(2),X(3),DA)=X(4)
|
---|
| 531 | "IX",176.001,176.001,"STX",2)
|
---|
| 532 | K ^C0CRXN(176.001,"STX",X(1),X(2),X(3),DA)
|
---|
| 533 | "IX",176.001,176.001,"STX",2.5)
|
---|
| 534 | K ^C0CRXN(176.001,"STX")
|
---|
| 535 | "IX",176.001,176.001,"STX",11.1,0)
|
---|
| 536 | ^.114IA^4^4
|
---|
| 537 | "IX",176.001,176.001,"STX",11.1,1,0)
|
---|
| 538 | 1^F^176.001^.12^^1^F
|
---|
| 539 | "IX",176.001,176.001,"STX",11.1,1,3)
|
---|
| 540 |
|
---|
| 541 | "IX",176.001,176.001,"STX",11.1,2,0)
|
---|
| 542 | 2^F^176.001^.13^^2^F
|
---|
| 543 | "IX",176.001,176.001,"STX",11.1,2,3)
|
---|
| 544 |
|
---|
| 545 | "IX",176.001,176.001,"STX",11.1,3,0)
|
---|
| 546 | 3^F^176.001^.01^^3^F
|
---|
| 547 | "IX",176.001,176.001,"STX",11.1,3,3)
|
---|
| 548 |
|
---|
| 549 | "IX",176.001,176.001,"STX",11.1,4,0)
|
---|
| 550 | 4^F^176.001^.14^^^F
|
---|
| 551 | "IX",176.001,176.001,"STX",11.1,4,3)
|
---|
| 552 |
|
---|
| 553 | "IX",176.002,176.002,"ANDFRT",0)
|
---|
| 554 | 176.002^ANDFRT^RxNorm NDFRT Index^R^^R^IR^I^176.002^^^^^S
|
---|
| 555 | "IX",176.002,176.002,"ANDFRT",1)
|
---|
| 556 | S ^C0CRXN(176.002,"ANDFRT",X(1),$E(X(3),1,30),$E(X(4),1,30),DA)=""
|
---|
| 557 | "IX",176.002,176.002,"ANDFRT",1.4)
|
---|
| 558 | S X=X(2)="NDFRT"
|
---|
| 559 | "IX",176.002,176.002,"ANDFRT",2)
|
---|
| 560 | K ^C0CRXN(176.002,"ANDFRT",X(1),$E(X(3),1,30),$E(X(4),1,30),DA)
|
---|
| 561 | "IX",176.002,176.002,"ANDFRT",2.4)
|
---|
| 562 | S X=X(2)="NDFRT"
|
---|
| 563 | "IX",176.002,176.002,"ANDFRT",2.5)
|
---|
| 564 | K ^C0CRXN(176.002,"ANDFRT")
|
---|
| 565 | "IX",176.002,176.002,"ANDFRT",11.1,0)
|
---|
| 566 | ^.114IA^4^4
|
---|
| 567 | "IX",176.002,176.002,"ANDFRT",11.1,1,0)
|
---|
| 568 | 1^F^176.002^.09^^1^F
|
---|
| 569 | "IX",176.002,176.002,"ANDFRT",11.1,1,3)
|
---|
| 570 |
|
---|
| 571 | "IX",176.002,176.002,"ANDFRT",11.1,2,0)
|
---|
| 572 | 2^F^176.002^.1^^^F
|
---|
| 573 | "IX",176.002,176.002,"ANDFRT",11.1,2,3)
|
---|
| 574 |
|
---|
| 575 | "IX",176.002,176.002,"ANDFRT",11.1,3,0)
|
---|
| 576 | 3^F^176.002^.01^30^2^F
|
---|
| 577 | "IX",176.002,176.002,"ANDFRT",11.1,3,3)
|
---|
| 578 |
|
---|
| 579 | "IX",176.002,176.002,"ANDFRT",11.1,4,0)
|
---|
| 580 | 4^F^176.002^.11^30^3^F
|
---|
| 581 | "IX",176.002,176.002,"ANDFRT",11.1,4,3)
|
---|
| 582 |
|
---|
| 583 | "IX",176.002,176.002,"ASAA",0)
|
---|
| 584 | 176.002^ASAA^SAB (Source) ATN (Attribute Name) ATV (Value) Index^MU^^R^IR^I^176.002^^^^^S
|
---|
| 585 | "IX",176.002,176.002,"ASAA",1)
|
---|
| 586 | S ^C0CRXN(176.002,"ASAA",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)=X(4)
|
---|
| 587 | "IX",176.002,176.002,"ASAA",2)
|
---|
| 588 | K ^C0CRXN(176.002,"ASAA",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)
|
---|
| 589 | "IX",176.002,176.002,"ASAA",2.5)
|
---|
| 590 | K ^C0CRXN(176.002,"ASAA")
|
---|
| 591 | "IX",176.002,176.002,"ASAA",11.1,0)
|
---|
| 592 | ^.114IA^4^4
|
---|
| 593 | "IX",176.002,176.002,"ASAA",11.1,1,0)
|
---|
| 594 | 1^F^176.002^.1^^1^F
|
---|
| 595 | "IX",176.002,176.002,"ASAA",11.1,1,3)
|
---|
| 596 |
|
---|
| 597 | "IX",176.002,176.002,"ASAA",11.1,2,0)
|
---|
| 598 | 2^F^176.002^.01^30^2^F
|
---|
| 599 | "IX",176.002,176.002,"ASAA",11.1,2,3)
|
---|
| 600 |
|
---|
| 601 | "IX",176.002,176.002,"ASAA",11.1,3,0)
|
---|
| 602 | 3^F^176.002^.11^30^3^F
|
---|
| 603 | "IX",176.002,176.002,"ASAA",11.1,3,3)
|
---|
| 604 |
|
---|
| 605 | "IX",176.002,176.002,"ASAA",11.1,4,0)
|
---|
| 606 | 4^F^176.002^.09^^^F
|
---|
| 607 | "IX",176.002,176.002,"ASAA",11.1,4,3)
|
---|
| 608 |
|
---|
| 609 | "IX",176.002,176.002,"ASAR",0)
|
---|
| 610 | 176.002^ASAR^SAB (Source) ATN (Attribute Name) RxCUI Index^MU^^R^IR^I^176.002^^^^^S
|
---|
| 611 | "IX",176.002,176.002,"ASAR",1)
|
---|
| 612 | S ^C0CRXN(176.002,"ASAR",X(1),$E(X(2),1,30),X(3),DA)=X(4)
|
---|
| 613 | "IX",176.002,176.002,"ASAR",2)
|
---|
| 614 | K ^C0CRXN(176.002,"ASAR",X(1),$E(X(2),1,30),X(3),DA)
|
---|
| 615 | "IX",176.002,176.002,"ASAR",2.5)
|
---|
| 616 | K ^C0CRXN(176.002,"ASAR")
|
---|
| 617 | "IX",176.002,176.002,"ASAR",11.1,0)
|
---|
| 618 | ^.114IA^4^4
|
---|
| 619 | "IX",176.002,176.002,"ASAR",11.1,1,0)
|
---|
| 620 | 1^F^176.002^.1^^1^F
|
---|
| 621 | "IX",176.002,176.002,"ASAR",11.1,1,3)
|
---|
| 622 |
|
---|
| 623 | "IX",176.002,176.002,"ASAR",11.1,2,0)
|
---|
| 624 | 2^F^176.002^.01^30^2^F
|
---|
| 625 | "IX",176.002,176.002,"ASAR",11.1,2,3)
|
---|
| 626 |
|
---|
| 627 | "IX",176.002,176.002,"ASAR",11.1,3,0)
|
---|
| 628 | 3^F^176.002^.09^^3^F
|
---|
| 629 | "IX",176.002,176.002,"ASAR",11.1,3,3)
|
---|
| 630 |
|
---|
| 631 | "IX",176.002,176.002,"ASAR",11.1,4,0)
|
---|
| 632 | 4^F^176.002^.11^^^F
|
---|
| 633 | "IX",176.002,176.002,"ASAR",11.1,4,3)
|
---|
| 634 |
|
---|
| 635 | "IX",176.002,176.002,"RXCUI",0)
|
---|
| 636 | 176.002^RXCUI^RXCUI Index^R^^F^IR^I^176.002^^^^^LS
|
---|
| 637 | "IX",176.002,176.002,"RXCUI",1)
|
---|
| 638 | S ^C0CRXN(176.002,"RXCUI",X,DA)=""
|
---|
| 639 | "IX",176.002,176.002,"RXCUI",2)
|
---|
| 640 | K ^C0CRXN(176.002,"RXCUI",X,DA)
|
---|
| 641 | "IX",176.002,176.002,"RXCUI",2.5)
|
---|
| 642 | K ^C0CRXN(176.002,"RXCUI")
|
---|
| 643 | "IX",176.002,176.002,"RXCUI",11.1,0)
|
---|
| 644 | ^.114IA^1^1
|
---|
| 645 | "IX",176.002,176.002,"RXCUI",11.1,1,0)
|
---|
| 646 | 1^F^176.002^.09^^1^F
|
---|
| 647 | "IX",176.005,176.005,"B",0)
|
---|
| 648 | 176.005^B^Compound Index for RXCUI1/RELA/RXCUI2^R^^R^IR^I^176.005^^^^^LS
|
---|
| 649 | "IX",176.005,176.005,"B",1)
|
---|
| 650 | S ^C0CRXN(176.005,"B",X(1),X(2),X(3),DA)=""
|
---|
| 651 | "IX",176.005,176.005,"B",2)
|
---|
| 652 | K ^C0CRXN(176.005,"B",X(1),X(2),X(3),DA)
|
---|
| 653 | "IX",176.005,176.005,"B",2.5)
|
---|
| 654 | K ^C0CRXN(176.005,"B")
|
---|
| 655 | "IX",176.005,176.005,"B",11.1,0)
|
---|
| 656 | ^.114IA^3^3
|
---|
| 657 | "IX",176.005,176.005,"B",11.1,1,0)
|
---|
| 658 | 1^F^176.005^.11^^1^F
|
---|
| 659 | "IX",176.005,176.005,"B",11.1,1,3)
|
---|
| 660 |
|
---|
| 661 | "IX",176.005,176.005,"B",11.1,2,0)
|
---|
| 662 | 2^F^176.005^.08^^2^F
|
---|
| 663 | "IX",176.005,176.005,"B",11.1,2,3)
|
---|
| 664 |
|
---|
| 665 | "IX",176.005,176.005,"B",11.1,3,0)
|
---|
| 666 | 3^F^176.005^.05^^3^F
|
---|
| 667 | "IX",176.005,176.005,"B",11.1,3,3)
|
---|
| 668 |
|
---|
| 669 | "MBREQ")
|
---|
| 670 | 0
|
---|
| 671 | "PKG",221,-1)
|
---|
| 672 | 1^1
|
---|
| 673 | "PKG",221,0)
|
---|
| 674 | RXNORM FOR VISTA^C0CR^RxNorm data dictionaries and loading routines for VISTA
|
---|
| 675 | "PKG",221,20,0)
|
---|
| 676 | ^9.402P^^
|
---|
| 677 | "PKG",221,22,0)
|
---|
| 678 | ^9.49I^1^1
|
---|
| 679 | "PKG",221,22,1,0)
|
---|
| 680 | 2.3^3140722
|
---|
| 681 | "PKG",221,22,1,1,0)
|
---|
| 682 | ^^35^35^3140722
|
---|
| 683 | "PKG",221,22,1,1,1,0)
|
---|
| 684 | This build and install is (C) Sam Habiel 2013. Distributed
|
---|
| 685 | "PKG",221,22,1,1,2,0)
|
---|
| 686 | by the VISTA Expertise Network.
|
---|
| 687 | "PKG",221,22,1,1,3,0)
|
---|
| 688 |
|
---|
| 689 | "PKG",221,22,1,1,4,0)
|
---|
| 690 | Questions and Support: sam.habiel@vistaexpertise.net
|
---|
| 691 | "PKG",221,22,1,1,5,0)
|
---|
| 692 |
|
---|
| 693 | "PKG",221,22,1,1,6,0)
|
---|
| 694 | See accompanying License Terms for the terms of using this software.
|
---|
| 695 | "PKG",221,22,1,1,7,0)
|
---|
| 696 |
|
---|
| 697 | "PKG",221,22,1,1,8,0)
|
---|
| 698 | RxNorm is a vocabulary set and tables maintained by the National Library
|
---|
| 699 | "PKG",221,22,1,1,9,0)
|
---|
| 700 | of Medicine. From the Website
|
---|
| 701 | "PKG",221,22,1,1,10,0)
|
---|
| 702 | (http://www.nlm.nih.gov/research/umls/rxnorm/index.html):
|
---|
| 703 | "PKG",221,22,1,1,11,0)
|
---|
| 704 |
|
---|
| 705 | "PKG",221,22,1,1,12,0)
|
---|
| 706 | <<<
|
---|
| 707 | "PKG",221,22,1,1,13,0)
|
---|
| 708 | RxNorm provides normalized names for clinical drugs and links its names to
|
---|
| 709 | "PKG",221,22,1,1,14,0)
|
---|
| 710 | many of the drug vocabularies commonly used in pharmacy management and
|
---|
| 711 | "PKG",221,22,1,1,15,0)
|
---|
| 712 | drug interaction software, including those of First Databank, Micromedex,
|
---|
| 713 | "PKG",221,22,1,1,16,0)
|
---|
| 714 | MediSpan, Gold Standard, and Multum. By providing links between these
|
---|
| 715 | "PKG",221,22,1,1,17,0)
|
---|
| 716 | vocabularies, RxNorm can mediate messages between systems not using the
|
---|
| 717 | "PKG",221,22,1,1,18,0)
|
---|
| 718 | same software and vocabulary.
|
---|
| 719 | "PKG",221,22,1,1,19,0)
|
---|
| 720 |
|
---|
| 721 | "PKG",221,22,1,1,20,0)
|
---|
| 722 | RxNorm now includes the National Drug File - Reference Terminology
|
---|
| 723 | "PKG",221,22,1,1,21,0)
|
---|
| 724 | (NDF-RT) from the Veterans Health Administration. NDF-RT is a terminology
|
---|
| 725 | "PKG",221,22,1,1,22,0)
|
---|
| 726 | used to code clinical drug properties, including mechanism of action,
|
---|
| 727 | "PKG",221,22,1,1,23,0)
|
---|
| 728 | physiologic effect, and therapeutic category.
|
---|
| 729 | "PKG",221,22,1,1,24,0)
|
---|
| 730 | >>>
|
---|
| 731 | "PKG",221,22,1,1,25,0)
|
---|
| 732 |
|
---|
| 733 | "PKG",221,22,1,1,26,0)
|
---|
| 734 | This build consists of the data dictionaries for 6 files and 3 routines,
|
---|
| 735 | "PKG",221,22,1,1,27,0)
|
---|
| 736 | one of them being the loader routine for the data.
|
---|
| 737 | "PKG",221,22,1,1,28,0)
|
---|
| 738 |
|
---|
| 739 | "PKG",221,22,1,1,29,0)
|
---|
| 740 | This build needs Fileman 22.2 for editing global nodes up to 16,000.
|
---|
| 741 | "PKG",221,22,1,1,30,0)
|
---|
| 742 | You don't need Fileman 22.2 to read the data.
|
---|
| 743 | "PKG",221,22,1,1,31,0)
|
---|
| 744 |
|
---|
| 745 | "PKG",221,22,1,1,32,0)
|
---|
| 746 | On the M Virtual Machine, Global Nodes need to be 16,000 or more.
|
---|
| 747 | "PKG",221,22,1,1,33,0)
|
---|
| 748 |
|
---|
| 749 | "PKG",221,22,1,1,34,0)
|
---|
| 750 | On Fileman 22.2, to edit the global definitions or the data, you need to
|
---|
| 751 | "PKG",221,22,1,1,35,0)
|
---|
| 752 | have ^DD("STRING_LIMIT")=16000 (needs to be manually set).
|
---|
| 753 | "PKG",221,"DEV")
|
---|
| 754 | SAM HABIEL/VEN
|
---|
| 755 | "PKG",221,"VERSION")
|
---|
| 756 | 2.3
|
---|
| 757 | "QUES","XPF1",0)
|
---|
| 758 | Y
|
---|
| 759 | "QUES","XPF1","??")
|
---|
| 760 | ^D REP^XPDH
|
---|
| 761 | "QUES","XPF1","A")
|
---|
| 762 | Shall I write over your |FLAG| File
|
---|
| 763 | "QUES","XPF1","B")
|
---|
| 764 | YES
|
---|
| 765 | "QUES","XPF1","M")
|
---|
| 766 | D XPF1^XPDIQ
|
---|
| 767 | "QUES","XPF2",0)
|
---|
| 768 | Y
|
---|
| 769 | "QUES","XPF2","??")
|
---|
| 770 | ^D DTA^XPDH
|
---|
| 771 | "QUES","XPF2","A")
|
---|
| 772 | Want my data |FLAG| yours
|
---|
| 773 | "QUES","XPF2","B")
|
---|
| 774 | YES
|
---|
| 775 | "QUES","XPF2","M")
|
---|
| 776 | D XPF2^XPDIQ
|
---|
| 777 | "QUES","XPI1",0)
|
---|
| 778 | YO
|
---|
| 779 | "QUES","XPI1","??")
|
---|
| 780 | ^D INHIBIT^XPDH
|
---|
| 781 | "QUES","XPI1","A")
|
---|
| 782 | Want KIDS to INHIBIT LOGONs during the install
|
---|
| 783 | "QUES","XPI1","B")
|
---|
| 784 | NO
|
---|
| 785 | "QUES","XPI1","M")
|
---|
| 786 | D XPI1^XPDIQ
|
---|
| 787 | "QUES","XPM1",0)
|
---|
| 788 | PO^VA(200,:EM
|
---|
| 789 | "QUES","XPM1","??")
|
---|
| 790 | ^D MG^XPDH
|
---|
| 791 | "QUES","XPM1","A")
|
---|
| 792 | Enter the Coordinator for Mail Group '|FLAG|'
|
---|
| 793 | "QUES","XPM1","B")
|
---|
| 794 |
|
---|
| 795 | "QUES","XPM1","M")
|
---|
| 796 | D XPM1^XPDIQ
|
---|
| 797 | "QUES","XPO1",0)
|
---|
| 798 | Y
|
---|
| 799 | "QUES","XPO1","??")
|
---|
| 800 | ^D MENU^XPDH
|
---|
| 801 | "QUES","XPO1","A")
|
---|
| 802 | Want KIDS to Rebuild Menu Trees Upon Completion of Install
|
---|
| 803 | "QUES","XPO1","B")
|
---|
| 804 | NO
|
---|
| 805 | "QUES","XPO1","M")
|
---|
| 806 | D XPO1^XPDIQ
|
---|
| 807 | "QUES","XPZ1",0)
|
---|
| 808 | Y
|
---|
| 809 | "QUES","XPZ1","??")
|
---|
| 810 | ^D OPT^XPDH
|
---|
| 811 | "QUES","XPZ1","A")
|
---|
| 812 | Want to DISABLE Scheduled Options, Menu Options, and Protocols
|
---|
| 813 | "QUES","XPZ1","B")
|
---|
| 814 | NO
|
---|
| 815 | "QUES","XPZ1","M")
|
---|
| 816 | D XPZ1^XPDIQ
|
---|
| 817 | "QUES","XPZ2",0)
|
---|
| 818 | Y
|
---|
| 819 | "QUES","XPZ2","??")
|
---|
| 820 | ^D RTN^XPDH
|
---|
| 821 | "QUES","XPZ2","A")
|
---|
| 822 | Want to MOVE routines to other CPUs
|
---|
| 823 | "QUES","XPZ2","B")
|
---|
| 824 | NO
|
---|
| 825 | "QUES","XPZ2","M")
|
---|
| 826 | D XPZ2^XPDIQ
|
---|
| 827 | "RTN")
|
---|
| 828 | 3
|
---|
| 829 | "RTN","C0CRXNAD")
|
---|
| 830 | 0^3^B18747982
|
---|
| 831 | "RTN","C0CRXNAD",1,0)
|
---|
| 832 | C0CRXNAD ; VEN/SMH - Add a drug to VISTA from RxNorm;2013-04-19 5:39 PM
|
---|
| 833 | "RTN","C0CRXNAD",2,0)
|
---|
| 834 | ;;2.3;RXNORM FOR VISTA;;Jul 22, 2014;Build 16
|
---|
| 835 | "RTN","C0CRXNAD",3,0)
|
---|
| 836 | ; (C) 2013 Sam Habiel
|
---|
| 837 | "RTN","C0CRXNAD",4,0)
|
---|
| 838 | ; Proprietary Code. Don't use if license terms aren't supplied.
|
---|
| 839 | "RTN","C0CRXNAD",5,0)
|
---|
| 840 | ;
|
---|
| 841 | "RTN","C0CRXNAD",6,0)
|
---|
| 842 | ADDDRUG(RXN,NDC,BARCODE) ; Public Proc; Add Drug to Drug File
|
---|
| 843 | "RTN","C0CRXNAD",7,0)
|
---|
| 844 | ; Input: RXN - RxNorm Semantic Clinical Drug CUI by Value. Required.
|
---|
| 845 | "RTN","C0CRXNAD",8,0)
|
---|
| 846 | ; Input: NDC - Drug NDC by Value. Optional. Pass in 11 digit format without dashes.
|
---|
| 847 | "RTN","C0CRXNAD",9,0)
|
---|
| 848 | ; Input: BARCODE - Wand Barcode. Optional. Pass exactly as wand reads minus control characters.
|
---|
| 849 | "RTN","C0CRXNAD",10,0)
|
---|
| 850 | ; Output: Internal Entry Number
|
---|
| 851 | "RTN","C0CRXNAD",11,0)
|
---|
| 852 | ;
|
---|
| 853 | "RTN","C0CRXNAD",12,0)
|
---|
| 854 | ; Prelim Checks
|
---|
| 855 | "RTN","C0CRXNAD",13,0)
|
---|
| 856 | I '$G(RXN) S $EC=",U1," ; Required
|
---|
| 857 | "RTN","C0CRXNAD",14,0)
|
---|
| 858 | I $L($G(NDC)),$L(NDC)'=11 S $EC=",U1,"
|
---|
| 859 | "RTN","C0CRXNAD",15,0)
|
---|
| 860 | ;
|
---|
| 861 | "RTN","C0CRXNAD",16,0)
|
---|
| 862 | N PSSZ S PSSZ=1 ; Needed for the drug file to let me in!
|
---|
| 863 | "RTN","C0CRXNAD",17,0)
|
---|
| 864 | ;
|
---|
| 865 | "RTN","C0CRXNAD",18,0)
|
---|
| 866 | ; If RXN refers to a brand drug, get the generic instead.
|
---|
| 867 | "RTN","C0CRXNAD",19,0)
|
---|
| 868 | I $$ISBRAND^C0CRXNLK(RXN) S RXN=$$BR2GEN^C0CRXNLK(RXN)
|
---|
| 869 | "RTN","C0CRXNAD",20,0)
|
---|
| 870 | W !,"(debug) RxNorm is "_RXN,!
|
---|
| 871 | "RTN","C0CRXNAD",21,0)
|
---|
| 872 | ;
|
---|
| 873 | "RTN","C0CRXNAD",22,0)
|
---|
| 874 | ; Get first VUID for this RxNorm drug
|
---|
| 875 | "RTN","C0CRXNAD",23,0)
|
---|
| 876 | N VUID S VUID=+$$RXN2VUI^C0CRXNLK(RXN)
|
---|
| 877 | "RTN","C0CRXNAD",24,0)
|
---|
| 878 | Q:'VUID
|
---|
| 879 | "RTN","C0CRXNAD",25,0)
|
---|
| 880 | W "(debug) VUID for RxNorm CUI "_RXN_" is "_VUID,!
|
---|
| 881 | "RTN","C0CRXNAD",26,0)
|
---|
| 882 | ;
|
---|
| 883 | "RTN","C0CRXNAD",27,0)
|
---|
| 884 | ; IEN in 50.68
|
---|
| 885 | "RTN","C0CRXNAD",28,0)
|
---|
| 886 | N C0XVUID ; For Searching Compound Index
|
---|
| 887 | "RTN","C0CRXNAD",29,0)
|
---|
| 888 | S C0XVUID(1)=VUID
|
---|
| 889 | "RTN","C0CRXNAD",30,0)
|
---|
| 890 | S C0XVUID(2)=1
|
---|
| 891 | "RTN","C0CRXNAD",31,0)
|
---|
| 892 | N F5068IEN S F5068IEN=$$FIND1^DIC(50.68,"","XQ",.C0XVUID,"AMASTERVUID")
|
---|
| 893 | "RTN","C0CRXNAD",32,0)
|
---|
| 894 | Q:'F5068IEN
|
---|
| 895 | "RTN","C0CRXNAD",33,0)
|
---|
| 896 | W "F 50.68 IEN (debug): "_F5068IEN,!
|
---|
| 897 | "RTN","C0CRXNAD",34,0)
|
---|
| 898 | ;
|
---|
| 899 | "RTN","C0CRXNAD",35,0)
|
---|
| 900 | ; FDA Array
|
---|
| 901 | "RTN","C0CRXNAD",36,0)
|
---|
| 902 | N C0XFDA
|
---|
| 903 | "RTN","C0CRXNAD",37,0)
|
---|
| 904 | ;
|
---|
| 905 | "RTN","C0CRXNAD",38,0)
|
---|
| 906 | ; Name, shortened
|
---|
| 907 | "RTN","C0CRXNAD",39,0)
|
---|
| 908 | S C0XFDA(50,"+1,",.01)=$E($$GET1^DIQ(50.68,F5068IEN,.01),1,40)
|
---|
| 909 | "RTN","C0CRXNAD",40,0)
|
---|
| 910 | ;
|
---|
| 911 | "RTN","C0CRXNAD",41,0)
|
---|
| 912 | ; File BarCode as a Synonym for BCMA
|
---|
| 913 | "RTN","C0CRXNAD",42,0)
|
---|
| 914 | I $L($G(BARCODE)) D
|
---|
| 915 | "RTN","C0CRXNAD",43,0)
|
---|
| 916 | . S C0XFDA(50.1,"+2,+1,",.01)=BARCODE
|
---|
| 917 | "RTN","C0CRXNAD",44,0)
|
---|
| 918 | . S C0XFDA(50.1,"+2,+1,",1)="Q"
|
---|
| 919 | "RTN","C0CRXNAD",45,0)
|
---|
| 920 | ;
|
---|
| 921 | "RTN","C0CRXNAD",46,0)
|
---|
| 922 | ; Brand Names
|
---|
| 923 | "RTN","C0CRXNAD",47,0)
|
---|
| 924 | N BNS S BNS=$$RXN2BNS^C0CRXNLK(RXN) ; Brands
|
---|
| 925 | "RTN","C0CRXNAD",48,0)
|
---|
| 926 | I $L(BNS) N I F I=1:1:$L(BNS,U) D
|
---|
| 927 | "RTN","C0CRXNAD",49,0)
|
---|
| 928 | . N IENS S IENS=I+2
|
---|
| 929 | "RTN","C0CRXNAD",50,0)
|
---|
| 930 | . S C0XFDA(50.1,"+"_IENS_",+1,",.01)=$$UP^XLFSTR($E($P(BNS,U,I),1,40))
|
---|
| 931 | "RTN","C0CRXNAD",51,0)
|
---|
| 932 | . S C0XFDA(50.1,"+"_IENS_",+1,",1)="T"
|
---|
| 933 | "RTN","C0CRXNAD",52,0)
|
---|
| 934 | ;
|
---|
| 935 | "RTN","C0CRXNAD",53,0)
|
---|
| 936 | ; NDC (string)
|
---|
| 937 | "RTN","C0CRXNAD",54,0)
|
---|
| 938 | I $G(NDC) S C0XFDA(50,"+1,",31)=$E(NDC,1,5)_"-"_$E(NDC,6,9)_"-"_$E(NDC,10,11)
|
---|
| 939 | "RTN","C0CRXNAD",55,0)
|
---|
| 940 | ;
|
---|
| 941 | "RTN","C0CRXNAD",56,0)
|
---|
| 942 | ; Dispense Unit (string)
|
---|
| 943 | "RTN","C0CRXNAD",57,0)
|
---|
| 944 | S C0XFDA(50,"+1,",14.5)=$$GET1^DIQ(50.68,F5068IEN,"VA DISPENSE UNIT")
|
---|
| 945 | "RTN","C0CRXNAD",58,0)
|
---|
| 946 | ;
|
---|
| 947 | "RTN","C0CRXNAD",59,0)
|
---|
| 948 | ; National Drug File Entry (pointer to 50.6)
|
---|
| 949 | "RTN","C0CRXNAD",60,0)
|
---|
| 950 | S C0XFDA(50,"+1,",20)="`"_$$GET1^DIQ(50.68,F5068IEN,"VA GENERIC NAME","I")
|
---|
| 951 | "RTN","C0CRXNAD",61,0)
|
---|
| 952 | ;
|
---|
| 953 | "RTN","C0CRXNAD",62,0)
|
---|
| 954 | ; VA Product Name (string)
|
---|
| 955 | "RTN","C0CRXNAD",63,0)
|
---|
| 956 | S C0XFDA(50,"+1,",21)=$E($$GET1^DIQ(50.68,F5068IEN,.01),1,70)
|
---|
| 957 | "RTN","C0CRXNAD",64,0)
|
---|
| 958 | ;
|
---|
| 959 | "RTN","C0CRXNAD",65,0)
|
---|
| 960 | ; PSNDF VA PRODUCT NAME ENTRY (pointer to 50.68)
|
---|
| 961 | "RTN","C0CRXNAD",66,0)
|
---|
| 962 | S C0XFDA(50,"+1,",22)="`"_F5068IEN
|
---|
| 963 | "RTN","C0CRXNAD",67,0)
|
---|
| 964 | ;
|
---|
| 965 | "RTN","C0CRXNAD",68,0)
|
---|
| 966 | ; DEA, SPECIAL HDLG (string)
|
---|
| 967 | "RTN","C0CRXNAD",69,0)
|
---|
| 968 | D ; From ^PSNMRG
|
---|
| 969 | "RTN","C0CRXNAD",70,0)
|
---|
| 970 | . N CS S CS=$$GET1^DIQ(50.68,F5068IEN,"CS FEDERAL SCHEDULE","I")
|
---|
| 971 | "RTN","C0CRXNAD",71,0)
|
---|
| 972 | . S CS=$S(CS?1(1"2n",1"3n"):+CS_"C",+CS=2!(+CS=3)&(CS'["C"):+CS_"A",1:CS)
|
---|
| 973 | "RTN","C0CRXNAD",72,0)
|
---|
| 974 | . S C0XFDA(50,"+1,",3)=CS
|
---|
| 975 | "RTN","C0CRXNAD",73,0)
|
---|
| 976 | ;
|
---|
| 977 | "RTN","C0CRXNAD",74,0)
|
---|
| 978 | ; NATIONAL DRUG CLASS (pointer to 50.605) (triggers VA Classification field)
|
---|
| 979 | "RTN","C0CRXNAD",75,0)
|
---|
| 980 | S C0XFDA(50,"+1,",25)="`"_$$GET1^DIQ(50.68,F5068IEN,"PRIMARY VA DRUG CLASS","I")
|
---|
| 981 | "RTN","C0CRXNAD",76,0)
|
---|
| 982 | ;
|
---|
| 983 | "RTN","C0CRXNAD",77,0)
|
---|
| 984 | ; Right Now, I don't file the following which ^PSNMRG does (cuz I don't need them)
|
---|
| 985 | "RTN","C0CRXNAD",78,0)
|
---|
| 986 | ; - Package Size (derived from NDC/UPN file)
|
---|
| 987 | "RTN","C0CRXNAD",79,0)
|
---|
| 988 | ; - Package Type (ditto)
|
---|
| 989 | "RTN","C0CRXNAD",80,0)
|
---|
| 990 | ; - CMOP ID (from $$PROD2^PSNAPIS)
|
---|
| 991 | "RTN","C0CRXNAD",81,0)
|
---|
| 992 | ; - National Formulary Indicator (from 50.68)
|
---|
| 993 | "RTN","C0CRXNAD",82,0)
|
---|
| 994 | ;
|
---|
| 995 | "RTN","C0CRXNAD",83,0)
|
---|
| 996 | ; Next Step is to kill Old OI if Dosage Form doesn't match
|
---|
| 997 | "RTN","C0CRXNAD",84,0)
|
---|
| 998 | ; Won't do that here as it's assumed any drugs that's added is new.
|
---|
| 999 | "RTN","C0CRXNAD",85,0)
|
---|
| 1000 | ; This happens at ^PSNPSS
|
---|
| 1001 | "RTN","C0CRXNAD",86,0)
|
---|
| 1002 | ;
|
---|
| 1003 | "RTN","C0CRXNAD",87,0)
|
---|
| 1004 | ; Now add drug to drug file, as we need the IEN for the dosages call.
|
---|
| 1005 | "RTN","C0CRXNAD",88,0)
|
---|
| 1006 | N C0XERR,C0XIEN
|
---|
| 1007 | "RTN","C0CRXNAD",89,0)
|
---|
| 1008 | D UPDATE^DIE("E","C0XFDA","C0XIEN","C0XERR")
|
---|
| 1009 | "RTN","C0CRXNAD",90,0)
|
---|
| 1010 | S:$D(C0XERR) $EC=",U1,"
|
---|
| 1011 | "RTN","C0CRXNAD",91,0)
|
---|
| 1012 | ;
|
---|
| 1013 | "RTN","C0CRXNAD",92,0)
|
---|
| 1014 | ; Next Step: Kill off old doses and add new ones.
|
---|
| 1015 | "RTN","C0CRXNAD",93,0)
|
---|
| 1016 | D EN2^PSSUTIL(C0XIEN(1))
|
---|
| 1017 | "RTN","C0CRXNAD",94,0)
|
---|
| 1018 | ;
|
---|
| 1019 | "RTN","C0CRXNAD",95,0)
|
---|
| 1020 | ; Mark uses for the Drug; use the undocumented Silent call in PSSGIU
|
---|
| 1021 | "RTN","C0CRXNAD",96,0)
|
---|
| 1022 | N PSIUDA,PSIUX ; Expected Input variables
|
---|
| 1023 | "RTN","C0CRXNAD",97,0)
|
---|
| 1024 | S PSIUDA=C0XIEN(1),PSIUX="O^Outpatient Pharmacy" D ENS^PSSGIU
|
---|
| 1025 | "RTN","C0CRXNAD",98,0)
|
---|
| 1026 | S PSIUDA=C0XIEN(1),PSIUX="U^Unit Dose" D ENS^PSSGIU
|
---|
| 1027 | "RTN","C0CRXNAD",99,0)
|
---|
| 1028 | S PSIUDA=C0XIEN(1),PSIUX="X^Non-VA Med" D ENS^PSSGIU
|
---|
| 1029 | "RTN","C0CRXNAD",100,0)
|
---|
| 1030 | ;
|
---|
| 1031 | "RTN","C0CRXNAD",101,0)
|
---|
| 1032 | ; Get VA Generic text and VA Product pointer for Orderable Item creation plus dosage form information
|
---|
| 1033 | "RTN","C0CRXNAD",102,0)
|
---|
| 1034 | N VAGENP S VAGENP=$P(^PSDRUG(C0XIEN(1),"ND"),U) ; VA Generic Pointer
|
---|
| 1035 | "RTN","C0CRXNAD",103,0)
|
---|
| 1036 | N VAGEN S VAGEN=$$VAGN^PSNAPIS(VAGENP) ; VA Generic Full name
|
---|
| 1037 | "RTN","C0CRXNAD",104,0)
|
---|
| 1038 | N VAPRODP S VAPRODP=$P(^PSDRUG(C0XIEN(1),"ND"),U,3) ; VA Product Pointer
|
---|
| 1039 | "RTN","C0CRXNAD",105,0)
|
---|
| 1040 | N DOSAGE S DOSAGE=$$PSJDF^PSNAPIS(0,VAPRODP) ; IEN of dose form in 50.606 ^ Text
|
---|
| 1041 | "RTN","C0CRXNAD",106,0)
|
---|
| 1042 | N DOSEPTR S DOSEPTR=$P(DOSAGE,U) ; ditto
|
---|
| 1043 | "RTN","C0CRXNAD",107,0)
|
---|
| 1044 | N DOSEFORM S DOSEFORM=$P(DOSAGE,U,2) ;ditto
|
---|
| 1045 | "RTN","C0CRXNAD",108,0)
|
---|
| 1046 | ;
|
---|
| 1047 | "RTN","C0CRXNAD",109,0)
|
---|
| 1048 | ; Get the (possibly new) Orderable Item Text
|
---|
| 1049 | "RTN","C0CRXNAD",110,0)
|
---|
| 1050 | N VAG40 S VAG40=$E(VAGEN,1,40) ; Max length of .01 field
|
---|
| 1051 | "RTN","C0CRXNAD",111,0)
|
---|
| 1052 | ;
|
---|
| 1053 | "RTN","C0CRXNAD",112,0)
|
---|
| 1054 | ; See if there is an existing orderable item already. If so, populate the Pharmacy Orderable item on drug file.
|
---|
| 1055 | "RTN","C0CRXNAD",113,0)
|
---|
| 1056 | N OI S OI=$O(^PS(50.7,"ADF",VAG40,DOSEPTR,""))
|
---|
| 1057 | "RTN","C0CRXNAD",114,0)
|
---|
| 1058 | ;
|
---|
| 1059 | "RTN","C0CRXNAD",115,0)
|
---|
| 1060 | ; Otherwise, add a new one. (See MCHAN+12^PSSPOIMN)
|
---|
| 1061 | "RTN","C0CRXNAD",116,0)
|
---|
| 1062 | I 'OI D
|
---|
| 1063 | "RTN","C0CRXNAD",117,0)
|
---|
| 1064 | . N C0XFDA,C0XERR
|
---|
| 1065 | "RTN","C0CRXNAD",118,0)
|
---|
| 1066 | . S C0XFDA(50.7,"+1,",.01)=VAG40
|
---|
| 1067 | "RTN","C0CRXNAD",119,0)
|
---|
| 1068 | . S C0XFDA(50.7,"+1,",.02)=DOSEPTR
|
---|
| 1069 | "RTN","C0CRXNAD",120,0)
|
---|
| 1070 | . D UPDATE^DIE("",$NA(C0XFDA),$NA(OI),$NA(C0XERR))
|
---|
| 1071 | "RTN","C0CRXNAD",121,0)
|
---|
| 1072 | . I $D(C0XERR) S $EC=",U1,"
|
---|
| 1073 | "RTN","C0CRXNAD",122,0)
|
---|
| 1074 | . S OI=OI(1) ; For ease of use...
|
---|
| 1075 | "RTN","C0CRXNAD",123,0)
|
---|
| 1076 | . ; Next two statements: See FIN^PSSPOIM1 and MF^PSSDEE.
|
---|
| 1077 | "RTN","C0CRXNAD",124,0)
|
---|
| 1078 | . D EN^PSSPOIDT(OI) ; Update Indexes; activations, etc.
|
---|
| 1079 | "RTN","C0CRXNAD",125,0)
|
---|
| 1080 | . D EN2^PSSHL1(OI,"MUP") ; Send HL7 message to CPRS
|
---|
| 1081 | "RTN","C0CRXNAD",126,0)
|
---|
| 1082 | ;
|
---|
| 1083 | "RTN","C0CRXNAD",127,0)
|
---|
| 1084 | ; Finally, add the orderable Item to the drug file.
|
---|
| 1085 | "RTN","C0CRXNAD",128,0)
|
---|
| 1086 | N C0XFDA,C0XERR S C0XFDA(50,C0XIEN(1)_",",2.1)=OI ; Orderable Item
|
---|
| 1087 | "RTN","C0CRXNAD",129,0)
|
---|
| 1088 | D FILE^DIE("",$NA(C0XFDA),$NA(C0XERR))
|
---|
| 1089 | "RTN","C0CRXNAD",130,0)
|
---|
| 1090 | S:$D(C0XERR) $EC=",U1,"
|
---|
| 1091 | "RTN","C0CRXNAD",131,0)
|
---|
| 1092 | ;
|
---|
| 1093 | "RTN","C0CRXNAD",132,0)
|
---|
| 1094 | EX QUIT C0XIEN(1)
|
---|
| 1095 | "RTN","C0CRXNLK")
|
---|
| 1096 | 0^2^B99704419
|
---|
| 1097 | "RTN","C0CRXNLK",1,0)
|
---|
| 1098 | C0CRXNLK ; VEN/SMH - RxNorm Lookup Utilities ;2014-07-22 2:27 PM
|
---|
| 1099 | "RTN","C0CRXNLK",2,0)
|
---|
| 1100 | ;;2.3;RXNORM FOR VISTA;;Jul 22, 2014;Build 16
|
---|
| 1101 | "RTN","C0CRXNLK",3,0)
|
---|
| 1102 | ;(c) Sam Habiel 2013
|
---|
| 1103 | "RTN","C0CRXNLK",4,0)
|
---|
| 1104 | ; See accompanying license. Don't use otherwise.
|
---|
| 1105 | "RTN","C0CRXNLK",5,0)
|
---|
| 1106 | ;
|
---|
| 1107 | "RTN","C0CRXNLK",6,0)
|
---|
| 1108 | S IO=$P
|
---|
| 1109 | "RTN","C0CRXNLK",7,0)
|
---|
| 1110 | N DIQUIET S DIQUIET=1
|
---|
| 1111 | "RTN","C0CRXNLK",8,0)
|
---|
| 1112 | D DT^DICRW
|
---|
| 1113 | "RTN","C0CRXNLK",9,0)
|
---|
| 1114 | D EN^XTMUNIT($T(+0),1)
|
---|
| 1115 | "RTN","C0CRXNLK",10,0)
|
---|
| 1116 | QUIT
|
---|
| 1117 | "RTN","C0CRXNLK",11,0)
|
---|
| 1118 | ;
|
---|
| 1119 | "RTN","C0CRXNLK",12,0)
|
---|
| 1120 | EXIST(RXN) ; $$ Public - Does this RxNorm CUI exist?
|
---|
| 1121 | "RTN","C0CRXNLK",13,0)
|
---|
| 1122 | ; Input: RxNorm CUI by value
|
---|
| 1123 | "RTN","C0CRXNLK",14,0)
|
---|
| 1124 | ; Output: Extrinsic
|
---|
| 1125 | "RTN","C0CRXNLK",15,0)
|
---|
| 1126 | Q ''$D(^C0CRXN(176.001,"B",RXN))
|
---|
| 1127 | "RTN","C0CRXNLK",16,0)
|
---|
| 1128 | ;
|
---|
| 1129 | "RTN","C0CRXNLK",17,0)
|
---|
| 1130 | GCN2RXN(GCN) ; $$ Public - Get RxNorm CUI using GCN
|
---|
| 1131 | "RTN","C0CRXNLK",18,0)
|
---|
| 1132 | ; Input: GCN by Value
|
---|
| 1133 | "RTN","C0CRXNLK",19,0)
|
---|
| 1134 | ; Output: Extrinsic
|
---|
| 1135 | "RTN","C0CRXNLK",20,0)
|
---|
| 1136 | S GCN=$$RJ^XLFSTR(GCN,6,0) ; pad to six digits by zeros (123 becomes 000123)
|
---|
| 1137 | "RTN","C0CRXNLK",21,0)
|
---|
| 1138 | N IEN S IEN=$O(^C0CRXN(176.001,"STC","NDDF","CDC",GCN,"")) ; Get Entry
|
---|
| 1139 | "RTN","C0CRXNLK",22,0)
|
---|
| 1140 | Q ^(IEN)
|
---|
| 1141 | "RTN","C0CRXNLK",23,0)
|
---|
| 1142 | ;
|
---|
| 1143 | "RTN","C0CRXNLK",24,0)
|
---|
| 1144 | GCN2RXNT ; @TEST - Test Get RxNorm CUI using GCN
|
---|
| 1145 | "RTN","C0CRXNLK",25,0)
|
---|
| 1146 | Q:'$D(^C0CRXN(176.001,"STC","NDDF"))
|
---|
| 1147 | "RTN","C0CRXNLK",26,0)
|
---|
| 1148 | N L F L=1:1 N LN S LN=$T(GCN2RXND+L) Q:LN["<<END>>" Q:LN="" D
|
---|
| 1149 | "RTN","C0CRXNLK",27,0)
|
---|
| 1150 | . N GCN S GCN=$P(LN,";",3)
|
---|
| 1151 | "RTN","C0CRXNLK",28,0)
|
---|
| 1152 | . N RXN S RXN=$P(LN,";",4)
|
---|
| 1153 | "RTN","C0CRXNLK",29,0)
|
---|
| 1154 | . D CHKEQ^XTMUNIT($$GCN2RXN(GCN),RXN,"Translation from GCN to RXCUI failed")
|
---|
| 1155 | "RTN","C0CRXNLK",30,0)
|
---|
| 1156 | QUIT
|
---|
| 1157 | "RTN","C0CRXNLK",31,0)
|
---|
| 1158 | ;
|
---|
| 1159 | "RTN","C0CRXNLK",32,0)
|
---|
| 1160 | GCN2RXND ; @DATA - Data for Tests ;;GCN;EXPECTED RXNCUI
|
---|
| 1161 | "RTN","C0CRXNLK",33,0)
|
---|
| 1162 | ;;16033;991632
|
---|
| 1163 | "RTN","C0CRXNLK",34,0)
|
---|
| 1164 | ;;8208;310429
|
---|
| 1165 | "RTN","C0CRXNLK",35,0)
|
---|
| 1166 | ;;1275;628953
|
---|
| 1167 | "RTN","C0CRXNLK",36,0)
|
---|
| 1168 | ;;18;197604
|
---|
| 1169 | "RTN","C0CRXNLK",37,0)
|
---|
| 1170 | ;;346;884173
|
---|
| 1171 | "RTN","C0CRXNLK",38,0)
|
---|
| 1172 | ;;<<END>>
|
---|
| 1173 | "RTN","C0CRXNLK",39,0)
|
---|
| 1174 | ;
|
---|
| 1175 | "RTN","C0CRXNLK",40,0)
|
---|
| 1176 | ;
|
---|
| 1177 | "RTN","C0CRXNLK",41,0)
|
---|
| 1178 | ;
|
---|
| 1179 | "RTN","C0CRXNLK",42,0)
|
---|
| 1180 | RXN2GCN(RXNCUI) ; $$ Public - Get GCN(s) given an RxNorm Number
|
---|
| 1181 | "RTN","C0CRXNLK",43,0)
|
---|
| 1182 | ; Input: RXNCUI by Value
|
---|
| 1183 | "RTN","C0CRXNLK",44,0)
|
---|
| 1184 | ; Output: Caret delimited Extrinsic
|
---|
| 1185 | "RTN","C0CRXNLK",45,0)
|
---|
| 1186 | N GCNS S GCNS=""
|
---|
| 1187 | "RTN","C0CRXNLK",46,0)
|
---|
| 1188 | N I S I=""
|
---|
| 1189 | "RTN","C0CRXNLK",47,0)
|
---|
| 1190 | F S I=$O(^C0CRXN(176.001,"STX","NDDF","CDC",RXNCUI,I)) Q:I="" S GCNS=GCNS_+^(I)_U ; + b/c we want the GCN w/o leading zeros
|
---|
| 1191 | "RTN","C0CRXNLK",48,0)
|
---|
| 1192 | S GCNS=$E(GCNS,1,$L(GCNS)-1) ; remove trailing ^
|
---|
| 1193 | "RTN","C0CRXNLK",49,0)
|
---|
| 1194 | Q GCNS
|
---|
| 1195 | "RTN","C0CRXNLK",50,0)
|
---|
| 1196 | ;
|
---|
| 1197 | "RTN","C0CRXNLK",51,0)
|
---|
| 1198 | RXN2GCNT ; @TEST - Test Get GCN from RXNCUI
|
---|
| 1199 | "RTN","C0CRXNLK",52,0)
|
---|
| 1200 | Q:'$D(^C0CRXN(176.001,"STX","NDDF"))
|
---|
| 1201 | "RTN","C0CRXNLK",53,0)
|
---|
| 1202 | N L F L=1:1 N LN S LN=$T(RXN2GCND+L) Q:LN["<<END>>" Q:LN="" D
|
---|
| 1203 | "RTN","C0CRXNLK",54,0)
|
---|
| 1204 | . N RXN S RXN=$P(LN,";",3)
|
---|
| 1205 | "RTN","C0CRXNLK",55,0)
|
---|
| 1206 | . N GCN S GCN=$P(LN,";",4)
|
---|
| 1207 | "RTN","C0CRXNLK",56,0)
|
---|
| 1208 | . D CHKEQ^XTMUNIT($$RXN2GCN(RXN),GCN,"Translation from RXCUI to GCN failed")
|
---|
| 1209 | "RTN","C0CRXNLK",57,0)
|
---|
| 1210 | QUIT
|
---|
| 1211 | "RTN","C0CRXNLK",58,0)
|
---|
| 1212 | ;
|
---|
| 1213 | "RTN","C0CRXNLK",59,0)
|
---|
| 1214 | ;
|
---|
| 1215 | "RTN","C0CRXNLK",60,0)
|
---|
| 1216 | RXN2GCND ; @DATA - Data for Tests ;;RXNORM CUI;Expected GCN; Human Readable Drug name for dear reader
|
---|
| 1217 | "RTN","C0CRXNLK",61,0)
|
---|
| 1218 | ;;998689;5145;Acetabulol 200mg tab
|
---|
| 1219 | "RTN","C0CRXNLK",62,0)
|
---|
| 1220 | ;;745679;5037;Albuterol Inhaler
|
---|
| 1221 | "RTN","C0CRXNLK",63,0)
|
---|
| 1222 | ;;197320;2536;Allopurinol 300mg tab
|
---|
| 1223 | "RTN","C0CRXNLK",64,0)
|
---|
| 1224 | ;;993691;3948^46236;Bupropion 75mg tab
|
---|
| 1225 | "RTN","C0CRXNLK",65,0)
|
---|
| 1226 | ;;197591;3768;Diazepam 5mg tab
|
---|
| 1227 | "RTN","C0CRXNLK",66,0)
|
---|
| 1228 | ;;<<END>>
|
---|
| 1229 | "RTN","C0CRXNLK",67,0)
|
---|
| 1230 | ;
|
---|
| 1231 | "RTN","C0CRXNLK",68,0)
|
---|
| 1232 | ;
|
---|
| 1233 | "RTN","C0CRXNLK",69,0)
|
---|
| 1234 | ;
|
---|
| 1235 | "RTN","C0CRXNLK",70,0)
|
---|
| 1236 | RXN2VUI(RXNCUI) ; $$ Public - Get VUID(s) for given RXNCUI for Clinical Drug
|
---|
| 1237 | "RTN","C0CRXNLK",71,0)
|
---|
| 1238 | ; Input: RXNCUI by Value
|
---|
| 1239 | "RTN","C0CRXNLK",72,0)
|
---|
| 1240 | ; Output: Caret delimited extrinsic. Should not be more than 2 entries.
|
---|
| 1241 | "RTN","C0CRXNLK",73,0)
|
---|
| 1242 | N C0PVUID S C0PVUID=""
|
---|
| 1243 | "RTN","C0CRXNLK",74,0)
|
---|
| 1244 | N I S I=""
|
---|
| 1245 | "RTN","C0CRXNLK",75,0)
|
---|
| 1246 | F S I=$O(^C0CRXN(176.001,"STX","VANDF","CD",RXNCUI,I)) Q:I="" S C0PVUID=C0PVUID_^(I)_U
|
---|
| 1247 | "RTN","C0CRXNLK",76,0)
|
---|
| 1248 | S C0PVUID=$E(C0PVUID,1,$L(C0PVUID)-1) ; remove trailing ^
|
---|
| 1249 | "RTN","C0CRXNLK",77,0)
|
---|
| 1250 | ; TODO: Return only the quantified form using:
|
---|
| 1251 | "RTN","C0CRXNLK",78,0)
|
---|
| 1252 | ; I $O(^C0CRXN(176.005,"RXCUIREL",RXN,"has_quantified_form","")) N QF S QF=$O(^("")) Q $O(^C0CRXN(176.001,"RXN2VUID",QF,""))
|
---|
| 1253 | "RTN","C0CRXNLK",79,0)
|
---|
| 1254 | Q C0PVUID
|
---|
| 1255 | "RTN","C0CRXNLK",80,0)
|
---|
| 1256 | ;
|
---|
| 1257 | "RTN","C0CRXNLK",81,0)
|
---|
| 1258 | RXN2VUIT ; @TEST - Get VUIDs given RxNorm values
|
---|
| 1259 | "RTN","C0CRXNLK",82,0)
|
---|
| 1260 | N L F L=1:1 N LN S LN=$T(RXN2VUID+L) Q:LN["<<END>>" Q:LN="" D
|
---|
| 1261 | "RTN","C0CRXNLK",83,0)
|
---|
| 1262 | . N RXN S RXN=$P(LN,";",3)
|
---|
| 1263 | "RTN","C0CRXNLK",84,0)
|
---|
| 1264 | . N VUIDS S VUIDS=$P(LN,";",4)
|
---|
| 1265 | "RTN","C0CRXNLK",85,0)
|
---|
| 1266 | . D CHKEQ^XTMUNIT($$RXN2VUI(RXN),VUIDS,"Translation from RXNCUI to VUID failed")
|
---|
| 1267 | "RTN","C0CRXNLK",86,0)
|
---|
| 1268 | QUIT
|
---|
| 1269 | "RTN","C0CRXNLK",87,0)
|
---|
| 1270 | ;
|
---|
| 1271 | "RTN","C0CRXNLK",88,0)
|
---|
| 1272 | RXN2VUID ; @DATA - Data items for previous test
|
---|
| 1273 | "RTN","C0CRXNLK",89,0)
|
---|
| 1274 | ;;991632;4006455
|
---|
| 1275 | "RTN","C0CRXNLK",90,0)
|
---|
| 1276 | ;;310429;4002369^4013941
|
---|
| 1277 | "RTN","C0CRXNLK",91,0)
|
---|
| 1278 | ;;628953;4000874^4000856^4013966^4015798^4015799
|
---|
| 1279 | "RTN","C0CRXNLK",92,0)
|
---|
| 1280 | ;;197604;4003335^4015937
|
---|
| 1281 | "RTN","C0CRXNLK",93,0)
|
---|
| 1282 | ;;884173;4002469^4013919
|
---|
| 1283 | "RTN","C0CRXNLK",94,0)
|
---|
| 1284 | ;;<<END>>
|
---|
| 1285 | "RTN","C0CRXNLK",95,0)
|
---|
| 1286 | ;
|
---|
| 1287 | "RTN","C0CRXNLK",96,0)
|
---|
| 1288 | ;
|
---|
| 1289 | "RTN","C0CRXNLK",97,0)
|
---|
| 1290 | ;
|
---|
| 1291 | "RTN","C0CRXNLK",98,0)
|
---|
| 1292 | VUI2VAP(VUID) ; $$ Public - Get VA Product IEN(s) from VUID
|
---|
| 1293 | "RTN","C0CRXNLK",99,0)
|
---|
| 1294 | ; Input VUID by Value
|
---|
| 1295 | "RTN","C0CRXNLK",100,0)
|
---|
| 1296 | ; Output: Extrinsic
|
---|
| 1297 | "RTN","C0CRXNLK",101,0)
|
---|
| 1298 | D FIND^DIC(50.68,,"@","QP",VUID,,"AVUID") ; Find all in VUID index
|
---|
| 1299 | "RTN","C0CRXNLK",102,0)
|
---|
| 1300 | N O S O="" ; Output
|
---|
| 1301 | "RTN","C0CRXNLK",103,0)
|
---|
| 1302 | N I F I=0:0 S I=$O(^TMP("DILIST",$J,I)) Q:'I S O=O_^(I,0)_U ; Concat results together
|
---|
| 1303 | "RTN","C0CRXNLK",104,0)
|
---|
| 1304 | S O=$E(O,1,$L(O)-1) ; remove trailing ^
|
---|
| 1305 | "RTN","C0CRXNLK",105,0)
|
---|
| 1306 | Q O
|
---|
| 1307 | "RTN","C0CRXNLK",106,0)
|
---|
| 1308 | ;
|
---|
| 1309 | "RTN","C0CRXNLK",107,0)
|
---|
| 1310 | VUI2VAPT ; @TEST - Get VA Product IEN from VUID
|
---|
| 1311 | "RTN","C0CRXNLK",108,0)
|
---|
| 1312 | N L F L=1:1 N LN S LN=$T(VUI2VAPD+L) Q:LN["<<END>>" Q:LN="" D
|
---|
| 1313 | "RTN","C0CRXNLK",109,0)
|
---|
| 1314 | . N VUID S VUID=$P(LN,";",3)
|
---|
| 1315 | "RTN","C0CRXNLK",110,0)
|
---|
| 1316 | . N VAP S VAP=$P(LN,";",4)
|
---|
| 1317 | "RTN","C0CRXNLK",111,0)
|
---|
| 1318 | . D CHKEQ^XTMUNIT($$VUI2VAP(VUID),VAP,"Translation from VUID to VA PRODUCT failed")
|
---|
| 1319 | "RTN","C0CRXNLK",112,0)
|
---|
| 1320 | QUIT
|
---|
| 1321 | "RTN","C0CRXNLK",113,0)
|
---|
| 1322 | ;
|
---|
| 1323 | "RTN","C0CRXNLK",114,0)
|
---|
| 1324 | VUI2VAPD ; @DATA - Data for above test
|
---|
| 1325 | "RTN","C0CRXNLK",115,0)
|
---|
| 1326 | ;;4006455;5932
|
---|
| 1327 | "RTN","C0CRXNLK",116,0)
|
---|
| 1328 | ;;4002369;1784
|
---|
| 1329 | "RTN","C0CRXNLK",117,0)
|
---|
| 1330 | ;;4000874;252
|
---|
| 1331 | "RTN","C0CRXNLK",118,0)
|
---|
| 1332 | ;;4003335;2756
|
---|
| 1333 | "RTN","C0CRXNLK",119,0)
|
---|
| 1334 | ;;4002469;1884
|
---|
| 1335 | "RTN","C0CRXNLK",120,0)
|
---|
| 1336 | ;;4009488;9046^10090
|
---|
| 1337 | "RTN","C0CRXNLK",121,0)
|
---|
| 1338 | ;;<<END>>
|
---|
| 1339 | "RTN","C0CRXNLK",122,0)
|
---|
| 1340 | ;
|
---|
| 1341 | "RTN","C0CRXNLK",123,0)
|
---|
| 1342 | ;
|
---|
| 1343 | "RTN","C0CRXNLK",124,0)
|
---|
| 1344 | ;
|
---|
| 1345 | "RTN","C0CRXNLK",125,0)
|
---|
| 1346 | VAP2MED(VAPROD) ; $$ Public - Get Drug(s) using VA Product IEN
|
---|
| 1347 | "RTN","C0CRXNLK",126,0)
|
---|
| 1348 | ; Un-Unit-testable: Drug files differ between sites.
|
---|
| 1349 | "RTN","C0CRXNLK",127,0)
|
---|
| 1350 | ; Input: VA Product IEN By Value
|
---|
| 1351 | "RTN","C0CRXNLK",128,0)
|
---|
| 1352 | ; OUtput: Caret delimited extrinsic
|
---|
| 1353 | "RTN","C0CRXNLK",129,0)
|
---|
| 1354 | ; This code inspired from PSNAPIs
|
---|
| 1355 | "RTN","C0CRXNLK",130,0)
|
---|
| 1356 | ; WHY THE HELL WOULD I USE A TEXT INDEX?
|
---|
| 1357 | "RTN","C0CRXNLK",131,0)
|
---|
| 1358 | ; It's my only option. Creating new xrefs on the drug file doesn't help
|
---|
| 1359 | "RTN","C0CRXNLK",132,0)
|
---|
| 1360 | ; as they are not filled out when adding a drug (IX[ALL]^DIK isn't called).
|
---|
| 1361 | "RTN","C0CRXNLK",133,0)
|
---|
| 1362 | N MEDS S MEDS="" ; result
|
---|
| 1363 | "RTN","C0CRXNLK",134,0)
|
---|
| 1364 | N PN,PN1 ; Product Name, abbreviated product name.
|
---|
| 1365 | "RTN","C0CRXNLK",135,0)
|
---|
| 1366 | S PN=$P(^PSNDF(50.68,VAPROD,0),"^"),PN1=$E(PN,1,30)
|
---|
| 1367 | "RTN","C0CRXNLK",136,0)
|
---|
| 1368 | N P50 S P50=0 ; looper through VAPN index which is DRUG file entry
|
---|
| 1369 | "RTN","C0CRXNLK",137,0)
|
---|
| 1370 | F S P50=$O(^PSDRUG("VAPN",PN1,P50)) Q:'P50 D ; for each text match
|
---|
| 1371 | "RTN","C0CRXNLK",138,0)
|
---|
| 1372 | . I $P(^PSDRUG(P50,"ND"),"^",3)=VAPROD S MEDS=$G(MEDS)_P50_U ; check that the VA PRODUCT pointer is the same as ours.
|
---|
| 1373 | "RTN","C0CRXNLK",139,0)
|
---|
| 1374 | S:MEDS MEDS=$E(MEDS,1,$L(MEDS)-1) ; remove trailing ^
|
---|
| 1375 | "RTN","C0CRXNLK",140,0)
|
---|
| 1376 | Q MEDS
|
---|
| 1377 | "RTN","C0CRXNLK",141,0)
|
---|
| 1378 | ;
|
---|
| 1379 | "RTN","C0CRXNLK",142,0)
|
---|
| 1380 | ;
|
---|
| 1381 | "RTN","C0CRXNLK",143,0)
|
---|
| 1382 | RXN2MEDS(RXNCUI) ; $$ Public - Convert RxNorm value to currently existing drugs in File 50.
|
---|
| 1383 | "RTN","C0CRXNLK",144,0)
|
---|
| 1384 | ; Input: SCD RXNCUI
|
---|
| 1385 | "RTN","C0CRXNLK",145,0)
|
---|
| 1386 | ; Output; Caret delimited extrinsic
|
---|
| 1387 | "RTN","C0CRXNLK",146,0)
|
---|
| 1388 | ; Un-unit testable
|
---|
| 1389 | "RTN","C0CRXNLK",147,0)
|
---|
| 1390 | N VUIDS S VUIDS=$$RXN2VUI(RXNCUI) ; Get VUID from RXNCUI (multiple VUIDs per CUI)
|
---|
| 1391 | "RTN","C0CRXNLK",148,0)
|
---|
| 1392 | Q:'VUIDS ""
|
---|
| 1393 | "RTN","C0CRXNLK",149,0)
|
---|
| 1394 | N MEDS S MEDS=""
|
---|
| 1395 | "RTN","C0CRXNLK",150,0)
|
---|
| 1396 | N DONE S DONE=0
|
---|
| 1397 | "RTN","C0CRXNLK",151,0)
|
---|
| 1398 | N I F I=1:1:$L(VUIDS,U) D Q:DONE
|
---|
| 1399 | "RTN","C0CRXNLK",152,0)
|
---|
| 1400 | . N VUID S VUID=$P(VUIDS,U,I)
|
---|
| 1401 | "RTN","C0CRXNLK",153,0)
|
---|
| 1402 | . N VAPRODS S VAPRODS=$$VUI2VAP(VUID) ; Get VA Product from VUID (multiple products per VUID)
|
---|
| 1403 | "RTN","C0CRXNLK",154,0)
|
---|
| 1404 | . I '$L(VAPRODS) S $ECODE=",U-NO-VA-PRODUCT-CORRUPT-NDF," ; MUST EXIST. Every VUID must have a product to go with it.
|
---|
| 1405 | "RTN","C0CRXNLK",155,0)
|
---|
| 1406 | . N J F J=1:1:$L(VAPRODS,U) D Q:DONE
|
---|
| 1407 | "RTN","C0CRXNLK",156,0)
|
---|
| 1408 | . . N VAPROD S VAPROD=$P(VAPRODS,U,J)
|
---|
| 1409 | "RTN","C0CRXNLK",157,0)
|
---|
| 1410 | . . S MEDS=$$VAP2MED(VAPROD) ; Get Meds from VA Product
|
---|
| 1411 | "RTN","C0CRXNLK",158,0)
|
---|
| 1412 | . . I $L(MEDS) S DONE=1
|
---|
| 1413 | "RTN","C0CRXNLK",159,0)
|
---|
| 1414 | QUIT MEDS
|
---|
| 1415 | "RTN","C0CRXNLK",160,0)
|
---|
| 1416 | ;
|
---|
| 1417 | "RTN","C0CRXNLK",161,0)
|
---|
| 1418 | FDI2RXN(BASE) ; $$ Public - Get RxNorm CUI for FDB Ingredient/Base
|
---|
| 1419 | "RTN","C0CRXNLK",162,0)
|
---|
| 1420 | ; ^C0CRXN(176.001,"STC","NDDF","IN","014739",1000870)=1362160
|
---|
| 1421 | "RTN","C0CRXNLK",163,0)
|
---|
| 1422 | ; Input: BASE By Value
|
---|
| 1423 | "RTN","C0CRXNLK",164,0)
|
---|
| 1424 | ; Output: RxNorm CUI
|
---|
| 1425 | "RTN","C0CRXNLK",165,0)
|
---|
| 1426 | S BASE=$$RJ^XLFSTR(BASE,6,0) ; pad to six digits by zeros (123 becomes 000123)
|
---|
| 1427 | "RTN","C0CRXNLK",166,0)
|
---|
| 1428 | N IEN S IEN=$O(^C0CRXN(176.001,"STC","NDDF","IN",BASE,"")) Q ^(IEN)
|
---|
| 1429 | "RTN","C0CRXNLK",167,0)
|
---|
| 1430 | ;
|
---|
| 1431 | "RTN","C0CRXNLK",168,0)
|
---|
| 1432 | FDI2RXNT ; @TEST - Test Get RxNorm CUI for FDB Ingredient/Base
|
---|
| 1433 | "RTN","C0CRXNLK",169,0)
|
---|
| 1434 | Q:'$D(^C0CRXN(176.001,"STC","NDDF"))
|
---|
| 1435 | "RTN","C0CRXNLK",170,0)
|
---|
| 1436 | D CHKEQ^XTMUNIT($$FDI2RXN(14739),1362160,"$$FDI2RXN failed")
|
---|
| 1437 | "RTN","C0CRXNLK",171,0)
|
---|
| 1438 | QUIT
|
---|
| 1439 | "RTN","C0CRXNLK",172,0)
|
---|
| 1440 | ;
|
---|
| 1441 | "RTN","C0CRXNLK",173,0)
|
---|
| 1442 | ;
|
---|
| 1443 | "RTN","C0CRXNLK",174,0)
|
---|
| 1444 | ;
|
---|
| 1445 | "RTN","C0CRXNLK",175,0)
|
---|
| 1446 | RXN2VIN(RXNCUI) ; $$ Public - Get VUID Ingredient for RxNorm CUI
|
---|
| 1447 | "RTN","C0CRXNLK",176,0)
|
---|
| 1448 | ; ^C0CRXN(176.001,"STX","VANDF","IN",1366467,1008555)=4031768
|
---|
| 1449 | "RTN","C0CRXNLK",177,0)
|
---|
| 1450 | ; Input: RXNCUI By Value
|
---|
| 1451 | "RTN","C0CRXNLK",178,0)
|
---|
| 1452 | ; Output: VUID
|
---|
| 1453 | "RTN","C0CRXNLK",179,0)
|
---|
| 1454 | N IEN S IEN=$O(^C0CRXN(176.001,"STX","VANDF","IN",RXNCUI,"")) Q ^(IEN)
|
---|
| 1455 | "RTN","C0CRXNLK",180,0)
|
---|
| 1456 | ;
|
---|
| 1457 | "RTN","C0CRXNLK",181,0)
|
---|
| 1458 | RXN2VINT ; @TEST - Test Get VUID Ingredient for RxNorm CUI
|
---|
| 1459 | "RTN","C0CRXNLK",182,0)
|
---|
| 1460 | D CHKEQ^XTMUNIT($$RXN2VIN(1366467),4031768,"$$RXN2VIN failed")
|
---|
| 1461 | "RTN","C0CRXNLK",183,0)
|
---|
| 1462 | QUIT
|
---|
| 1463 | "RTN","C0CRXNLK",184,0)
|
---|
| 1464 | ;
|
---|
| 1465 | "RTN","C0CRXNLK",185,0)
|
---|
| 1466 | ;
|
---|
| 1467 | "RTN","C0CRXNLK",186,0)
|
---|
| 1468 | ;
|
---|
| 1469 | "RTN","C0CRXNLK",187,0)
|
---|
| 1470 | VIN2VAG(VUID) ; $$ Public - Get VA Generic for VUID Ingredient
|
---|
| 1471 | "RTN","C0CRXNLK",188,0)
|
---|
| 1472 | ; Input: VUID By Value
|
---|
| 1473 | "RTN","C0CRXNLK",189,0)
|
---|
| 1474 | ; Output: IEN^VA Generic Name (i.e. .01 field value)
|
---|
| 1475 | "RTN","C0CRXNLK",190,0)
|
---|
| 1476 | N C0PIEN S C0PIEN=$$FIND1^DIC(50.6,"","QX",VUID,"AVUID")
|
---|
| 1477 | "RTN","C0CRXNLK",191,0)
|
---|
| 1478 | N C0P01 S C0P01=$$GET1^DIQ(50.6,C0PIEN,.01)
|
---|
| 1479 | "RTN","C0CRXNLK",192,0)
|
---|
| 1480 | Q C0PIEN_"^"_C0P01
|
---|
| 1481 | "RTN","C0CRXNLK",193,0)
|
---|
| 1482 | ;
|
---|
| 1483 | "RTN","C0CRXNLK",194,0)
|
---|
| 1484 | VIN2VAGT ; @TEST - Test Get VA Generic for VUID Ingredient
|
---|
| 1485 | "RTN","C0CRXNLK",195,0)
|
---|
| 1486 | D CHKEQ^XTMUNIT(+$$VIN2VAG(4023636),2832,"$$VIN2VAG failed")
|
---|
| 1487 | "RTN","C0CRXNLK",196,0)
|
---|
| 1488 | QUIT
|
---|
| 1489 | "RTN","C0CRXNLK",197,0)
|
---|
| 1490 | ;
|
---|
| 1491 | "RTN","C0CRXNLK",198,0)
|
---|
| 1492 | ;
|
---|
| 1493 | "RTN","C0CRXNLK",199,0)
|
---|
| 1494 | ;
|
---|
| 1495 | "RTN","C0CRXNLK",200,0)
|
---|
| 1496 | FDI2VAG(BASE) ; $$ Public - Get VA Generic for FDB Ingredient/Base
|
---|
| 1497 | "RTN","C0CRXNLK",201,0)
|
---|
| 1498 | ; TODO:Not tested...
|
---|
| 1499 | "RTN","C0CRXNLK",202,0)
|
---|
| 1500 | ; Input: BASE By Value
|
---|
| 1501 | "RTN","C0CRXNLK",203,0)
|
---|
| 1502 | ; Output: IEN^VA Generic Name (i.e. .01 field value)
|
---|
| 1503 | "RTN","C0CRXNLK",204,0)
|
---|
| 1504 | Q $$VIN2VAG($$RXN2VIN($$FDI2RXN(BASE)))
|
---|
| 1505 | "RTN","C0CRXNLK",205,0)
|
---|
| 1506 | ;
|
---|
| 1507 | "RTN","C0CRXNLK",206,0)
|
---|
| 1508 | VIN2DIN(VUID) ; $$ Public - Get Drug Ingredient for VUID Ingredient
|
---|
| 1509 | "RTN","C0CRXNLK",207,0)
|
---|
| 1510 | ; TODO:Not tested...
|
---|
| 1511 | "RTN","C0CRXNLK",208,0)
|
---|
| 1512 | ; Input: VUID By Value
|
---|
| 1513 | "RTN","C0CRXNLK",209,0)
|
---|
| 1514 | ; Output: IEN^Drug Ingredient Name (i.e. .01 field value)
|
---|
| 1515 | "RTN","C0CRXNLK",210,0)
|
---|
| 1516 | N C0PIEN S C0PIEN=$$FIND1^DIC(50.416,"","QX",VUID,"AVUID")
|
---|
| 1517 | "RTN","C0CRXNLK",211,0)
|
---|
| 1518 | N C0P01 S C0P01=$$GET1^DIQ(50.416,C0PIEN,.01)
|
---|
| 1519 | "RTN","C0CRXNLK",212,0)
|
---|
| 1520 | Q C0PIEN_"^"_C0P01
|
---|
| 1521 | "RTN","C0CRXNLK",213,0)
|
---|
| 1522 | ;
|
---|
| 1523 | "RTN","C0CRXNLK",214,0)
|
---|
| 1524 | FDI2DIN(BASE) ; $$ Public - Get Drug Ingredient for FDB Ingredient/Base
|
---|
| 1525 | "RTN","C0CRXNLK",215,0)
|
---|
| 1526 | ; TODO:Not tested...
|
---|
| 1527 | "RTN","C0CRXNLK",216,0)
|
---|
| 1528 | ; Input: BASE By Value
|
---|
| 1529 | "RTN","C0CRXNLK",217,0)
|
---|
| 1530 | ; Output: IEN^Drug Ingredient Name (i.e. .01 field value)
|
---|
| 1531 | "RTN","C0CRXNLK",218,0)
|
---|
| 1532 | Q $$VIN2DIN($$RXN2VIN($$FDI2RXN(BASE)))
|
---|
| 1533 | "RTN","C0CRXNLK",219,0)
|
---|
| 1534 | ;
|
---|
| 1535 | "RTN","C0CRXNLK",220,0)
|
---|
| 1536 | VUI2RXN(VUID) ; $$ Public - Get RXNCUI for VUID (any VUID type)
|
---|
| 1537 | "RTN","C0CRXNLK",221,0)
|
---|
| 1538 | ; Input: VUID By Value
|
---|
| 1539 | "RTN","C0CRXNLK",222,0)
|
---|
| 1540 | ; Output: RXNCUIs delimited by ^
|
---|
| 1541 | "RTN","C0CRXNLK",223,0)
|
---|
| 1542 | ; Get all entries whose code is the VUID and are in the VA NDF which are clinical drugs
|
---|
| 1543 | "RTN","C0CRXNLK",224,0)
|
---|
| 1544 | D FIND^DIC(176.001,,"@;.01","PQX",VUID,,"CODE","I $P(^(0),U,12,13)=""VANDF^CD""")
|
---|
| 1545 | "RTN","C0CRXNLK",225,0)
|
---|
| 1546 | ; Deserialise it into a single string
|
---|
| 1547 | "RTN","C0CRXNLK",226,0)
|
---|
| 1548 | ; ^TMP("DILIST",4844,0)="1^*^0^"
|
---|
| 1549 | "RTN","C0CRXNLK",227,0)
|
---|
| 1550 | ; ^TMP("DILIST",4844,0,"MAP")="IEN^.01"
|
---|
| 1551 | "RTN","C0CRXNLK",228,0)
|
---|
| 1552 | ; ^TMP("DILIST",4844,1,0)="1006351^1364462"
|
---|
| 1553 | "RTN","C0CRXNLK",229,0)
|
---|
| 1554 | N RXNS S RXNS=""
|
---|
| 1555 | "RTN","C0CRXNLK",230,0)
|
---|
| 1556 | N I F I=0:0 S I=$O(^TMP("DILIST",$J,I)) Q:'I S RXNS=RXNS_$P(^(I,0),U,2)_U
|
---|
| 1557 | "RTN","C0CRXNLK",231,0)
|
---|
| 1558 | S RXNS=$E(RXNS,1,$L(RXNS)-1)
|
---|
| 1559 | "RTN","C0CRXNLK",232,0)
|
---|
| 1560 | QUIT RXNS
|
---|
| 1561 | "RTN","C0CRXNLK",233,0)
|
---|
| 1562 | ;
|
---|
| 1563 | "RTN","C0CRXNLK",234,0)
|
---|
| 1564 | VUI2GCN(VUID) ; $$ Public - Get GCNs for a given VUID (any VUID type)
|
---|
| 1565 | "RTN","C0CRXNLK",235,0)
|
---|
| 1566 | ; Input: VUID by Value
|
---|
| 1567 | "RTN","C0CRXNLK",236,0)
|
---|
| 1568 | ; Output: GCNs delimited by ^
|
---|
| 1569 | "RTN","C0CRXNLK",237,0)
|
---|
| 1570 | ; TODO: Unit Test
|
---|
| 1571 | "RTN","C0CRXNLK",238,0)
|
---|
| 1572 | N RXNS S RXNS=$$VUI2RXN(VUID)
|
---|
| 1573 | "RTN","C0CRXNLK",239,0)
|
---|
| 1574 | Q:RXNS="" "" ; VUID not a drug or ingredient (can be food)
|
---|
| 1575 | "RTN","C0CRXNLK",240,0)
|
---|
| 1576 | N GCNS S GCNS=""
|
---|
| 1577 | "RTN","C0CRXNLK",241,0)
|
---|
| 1578 | N I F I=1:1:$L(RXNS,U) S GCNS=GCNS_$$RXN2GCN($P(RXNS,U,I))_U
|
---|
| 1579 | "RTN","C0CRXNLK",242,0)
|
---|
| 1580 | S GCNS=$E(GCNS,1,$L(GCNS)-1)
|
---|
| 1581 | "RTN","C0CRXNLK",243,0)
|
---|
| 1582 | QUIT GCNS
|
---|
| 1583 | "RTN","C0CRXNLK",244,0)
|
---|
| 1584 | ;
|
---|
| 1585 | "RTN","C0CRXNLK",245,0)
|
---|
| 1586 | MED2RXN(DA) ; $$ Public - Get RxNorm CUI for Drug
|
---|
| 1587 | "RTN","C0CRXNLK",246,0)
|
---|
| 1588 | ; Input: DA - Medication IEN
|
---|
| 1589 | "RTN","C0CRXNLK",247,0)
|
---|
| 1590 | ; Output: RXNCUIs delimited by ^
|
---|
| 1591 | "RTN","C0CRXNLK",248,0)
|
---|
| 1592 | N ND S ND=$G(^PSDRUG(DA,"ND")) ; ND Node
|
---|
| 1593 | "RTN","C0CRXNLK",249,0)
|
---|
| 1594 | N VAP S VAP=$P(ND,U,3) ; VA Product Pointer
|
---|
| 1595 | "RTN","C0CRXNLK",250,0)
|
---|
| 1596 | Q:'VAP "" ; quit if empty
|
---|
| 1597 | "RTN","C0CRXNLK",251,0)
|
---|
| 1598 | N VUID S VUID=+^PSNDF(50.68,VAP,"VUID") ; Get VUID
|
---|
| 1599 | "RTN","C0CRXNLK",252,0)
|
---|
| 1600 | I 'VUID S $EC=",U1," ; Must exist
|
---|
| 1601 | "RTN","C0CRXNLK",253,0)
|
---|
| 1602 | Q $$VUI2RXN(VUID)
|
---|
| 1603 | "RTN","C0CRXNLK",254,0)
|
---|
| 1604 | ;
|
---|
| 1605 | "RTN","C0CRXNLK",255,0)
|
---|
| 1606 | MED2SCDN(DA) ; $$ Public - Medication to Semantic Clinical Drug Name
|
---|
| 1607 | "RTN","C0CRXNLK",256,0)
|
---|
| 1608 | ; Input: DA - Medication IEN
|
---|
| 1609 | "RTN","C0CRXNLK",257,0)
|
---|
| 1610 | ; Output: The Canonical Semantic Clinical Drug name
|
---|
| 1611 | "RTN","C0CRXNLK",258,0)
|
---|
| 1612 | N RXNCUI S RXNCUI=$$MED2RXN(DA)
|
---|
| 1613 | "RTN","C0CRXNLK",259,0)
|
---|
| 1614 | Q:'RXNCUI ""
|
---|
| 1615 | "RTN","C0CRXNLK",260,0)
|
---|
| 1616 | N IEN S IEN=$O(^C0CRXN(176.001,"STC","RXNORM","SCD",RXNCUI,"")) ; Let's try generic drug
|
---|
| 1617 | "RTN","C0CRXNLK",261,0)
|
---|
| 1618 | I 'IEN S IEN=$O(^C0CRXN(176.001,"STC","RXNORM","SBD",RXNCUI,"")) ; Let's try non-bioequivalent Brands then
|
---|
| 1619 | "RTN","C0CRXNLK",262,0)
|
---|
| 1620 | I 'IEN S IEN=$O(^C0CRXN(176.001,"STC","RXNORM","GPCK",RXNCUI,"")) ; Let's try a Generic combination package
|
---|
| 1621 | "RTN","C0CRXNLK",263,0)
|
---|
| 1622 | I 'IEN S IEN=$O(^C0CRXN(176.001,"STC","RXNORM","SCDF",RXNCUI,"")) ; Let's try a Clinical Drug and Form (Like Metamucil)
|
---|
| 1623 | "RTN","C0CRXNLK",264,0)
|
---|
| 1624 | Q:'IEN "" ; Apparently not every VUID has a corresponding RXNCUI SCD.
|
---|
| 1625 | "RTN","C0CRXNLK",265,0)
|
---|
| 1626 | Q $P(^C0CRXN(176.001,IEN,0),U,15)
|
---|
| 1627 | "RTN","C0CRXNLK",266,0)
|
---|
| 1628 | ;
|
---|
| 1629 | "RTN","C0CRXNLK",267,0)
|
---|
| 1630 | RXN2NDI(RXNCUI) ; $$ Public - Get NDDF Ingredient for RXNCUI
|
---|
| 1631 | "RTN","C0CRXNLK",268,0)
|
---|
| 1632 | ; Input: RXNCUI By Value
|
---|
| 1633 | "RTN","C0CRXNLK",269,0)
|
---|
| 1634 | ; Output: NDDF Base code
|
---|
| 1635 | "RTN","C0CRXNLK",270,0)
|
---|
| 1636 | ; TODO:Not tested...
|
---|
| 1637 | "RTN","C0CRXNLK",271,0)
|
---|
| 1638 | N IEN S IEN=$O(^C0CRXN(176.001,"STX","NDDF","IN",RXNCUI,"")) Q ^(IEN)
|
---|
| 1639 | "RTN","C0CRXNLK",272,0)
|
---|
| 1640 | ;
|
---|
| 1641 | "RTN","C0CRXNLK",273,0)
|
---|
| 1642 | VIN2NDI(VUID) ; $$ Public - Get NDDF Ingredient for VUID
|
---|
| 1643 | "RTN","C0CRXNLK",274,0)
|
---|
| 1644 | ; NB: WILL ONLY WORK IF VUID IS AN INGREDIENT VUID, NOT A CLINICAL DRUG
|
---|
| 1645 | "RTN","C0CRXNLK",275,0)
|
---|
| 1646 | ; Input: VUID By Value
|
---|
| 1647 | "RTN","C0CRXNLK",276,0)
|
---|
| 1648 | ; Output: NDDF Base code
|
---|
| 1649 | "RTN","C0CRXNLK",277,0)
|
---|
| 1650 | ; TODO:Not tested...
|
---|
| 1651 | "RTN","C0CRXNLK",278,0)
|
---|
| 1652 | Q $$RXN2NDI($$VUI2RXN(VUID))
|
---|
| 1653 | "RTN","C0CRXNLK",279,0)
|
---|
| 1654 | ;
|
---|
| 1655 | "RTN","C0CRXNLK",280,0)
|
---|
| 1656 | ; ---
|
---|
| 1657 | "RTN","C0CRXNLK",281,0)
|
---|
| 1658 | ;
|
---|
| 1659 | "RTN","C0CRXNLK",282,0)
|
---|
| 1660 | NDC2RXN(NDC) ; $$ Public - Get RxCUI given the NDC
|
---|
| 1661 | "RTN","C0CRXNLK",283,0)
|
---|
| 1662 | ; NB: Will only work if passed NDC is in 5-4-2 format.
|
---|
| 1663 | "RTN","C0CRXNLK",284,0)
|
---|
| 1664 | ; Input: NDC By Value in 5-4-2 Format
|
---|
| 1665 | "RTN","C0CRXNLK",285,0)
|
---|
| 1666 | ; Output: RxNorm Code.
|
---|
| 1667 | "RTN","C0CRXNLK",286,0)
|
---|
| 1668 | S NDC=$TR(NDC,"-")
|
---|
| 1669 | "RTN","C0CRXNLK",287,0)
|
---|
| 1670 | N IEN S IEN=$O(^C0CRXN(176.002,"ASAA","RXNORM","NDC",NDC,"")) Q ^(IEN)
|
---|
| 1671 | "RTN","C0CRXNLK",288,0)
|
---|
| 1672 | ;
|
---|
| 1673 | "RTN","C0CRXNLK",289,0)
|
---|
| 1674 | NDC2RXNT ; @TEST - Test Get RxCUI given the NDC
|
---|
| 1675 | "RTN","C0CRXNLK",290,0)
|
---|
| 1676 | D CHKEQ^XTMUNIT($$NDC2RXN("30142-0917-71"),198439,"$$NDC2RXN failed")
|
---|
| 1677 | "RTN","C0CRXNLK",291,0)
|
---|
| 1678 | QUIT
|
---|
| 1679 | "RTN","C0CRXNLK",292,0)
|
---|
| 1680 | ;
|
---|
| 1681 | "RTN","C0CRXNLK",293,0)
|
---|
| 1682 | ; ---
|
---|
| 1683 | "RTN","C0CRXNLK",294,0)
|
---|
| 1684 | ;
|
---|
| 1685 | "RTN","C0CRXNLK",295,0)
|
---|
| 1686 | ISBRAND(RXN) ; $$ Public - Is this RxCUI for a brand drug?
|
---|
| 1687 | "RTN","C0CRXNLK",296,0)
|
---|
| 1688 | ; Input: RxCUI
|
---|
| 1689 | "RTN","C0CRXNLK",297,0)
|
---|
| 1690 | ; Output: 0 or 1
|
---|
| 1691 | "RTN","C0CRXNLK",298,0)
|
---|
| 1692 | Q ''$D(^C0CRXN(176.001,"STC","RXNORM","SBD",RXN))
|
---|
| 1693 | "RTN","C0CRXNLK",299,0)
|
---|
| 1694 | ISBRANDT ; @TEST - Test Is this RxCUI for a brand drug?
|
---|
| 1695 | "RTN","C0CRXNLK",300,0)
|
---|
| 1696 | D CHKEQ^XTMUNIT($$ISBRAND(205535),1,"$$ISBRAND failed") ; Brand Prozac
|
---|
| 1697 | "RTN","C0CRXNLK",301,0)
|
---|
| 1698 | D CHKEQ^XTMUNIT($$ISBRAND(310384),0,"$$ISBRAND failed") ; Generic Fluoxetine
|
---|
| 1699 | "RTN","C0CRXNLK",302,0)
|
---|
| 1700 | QUIT
|
---|
| 1701 | "RTN","C0CRXNLK",303,0)
|
---|
| 1702 | ;
|
---|
| 1703 | "RTN","C0CRXNLK",304,0)
|
---|
| 1704 | ; ---
|
---|
| 1705 | "RTN","C0CRXNLK",305,0)
|
---|
| 1706 | ;
|
---|
| 1707 | "RTN","C0CRXNLK",306,0)
|
---|
| 1708 | BR2GEN(RXN) ; $$ Public - Convert Brand RxCUI to Generic RxCUI (many to 1)
|
---|
| 1709 | "RTN","C0CRXNLK",307,0)
|
---|
| 1710 | ; Input: RxCUI of Brand
|
---|
| 1711 | "RTN","C0CRXNLK",308,0)
|
---|
| 1712 | ; Output: RxCUI of Generic
|
---|
| 1713 | "RTN","C0CRXNLK",309,0)
|
---|
| 1714 | Q $O(^C0CRXN(176.005,"B",RXN,"has_tradename",""))
|
---|
| 1715 | "RTN","C0CRXNLK",310,0)
|
---|
| 1716 | BR2GENT ; @TEST - Test Convert Brand RxCUI to Generic RxCUI (many to 1)
|
---|
| 1717 | "RTN","C0CRXNLK",311,0)
|
---|
| 1718 | D CHKEQ^XTMUNIT($$BR2GEN(205535),310384,"$$BR2GEN failed")
|
---|
| 1719 | "RTN","C0CRXNLK",312,0)
|
---|
| 1720 | QUIT
|
---|
| 1721 | "RTN","C0CRXNLK",313,0)
|
---|
| 1722 | ;
|
---|
| 1723 | "RTN","C0CRXNLK",314,0)
|
---|
| 1724 | ; ---
|
---|
| 1725 | "RTN","C0CRXNLK",315,0)
|
---|
| 1726 | ;
|
---|
| 1727 | "RTN","C0CRXNLK",316,0)
|
---|
| 1728 | GEN2BR(RXN) ; $$ Public - Convert Generic RxCUI to Brand RxCUIs (1 to many).
|
---|
| 1729 | "RTN","C0CRXNLK",317,0)
|
---|
| 1730 | N RTN S RTN="" ; Return
|
---|
| 1731 | "RTN","C0CRXNLK",318,0)
|
---|
| 1732 | N I S I="" F S I=$O(^C0CRXN(176.005,"B",RXN,"tradename_of",I)) Q:'I S RTN=RTN_I_U
|
---|
| 1733 | "RTN","C0CRXNLK",319,0)
|
---|
| 1734 | S RTN=$E(RTN,1,$L(RTN)-1)
|
---|
| 1735 | "RTN","C0CRXNLK",320,0)
|
---|
| 1736 | Q RTN
|
---|
| 1737 | "RTN","C0CRXNLK",321,0)
|
---|
| 1738 | ;
|
---|
| 1739 | "RTN","C0CRXNLK",322,0)
|
---|
| 1740 | GEN2BRT ; @TEST - Test Convert Generic RxCUI to Brand RxCUIs (1 to many).
|
---|
| 1741 | "RTN","C0CRXNLK",323,0)
|
---|
| 1742 | D CHKTF^XTMUNIT($$GEN2BR(310384)[205535,"$$GEN2BR failed")
|
---|
| 1743 | "RTN","C0CRXNLK",324,0)
|
---|
| 1744 | QUIT
|
---|
| 1745 | "RTN","C0CRXNLK",325,0)
|
---|
| 1746 | ;
|
---|
| 1747 | "RTN","C0CRXNLK",326,0)
|
---|
| 1748 | ; ---
|
---|
| 1749 | "RTN","C0CRXNLK",327,0)
|
---|
| 1750 | ;
|
---|
| 1751 | "RTN","C0CRXNLK",328,0)
|
---|
| 1752 | RXN2BNS(RXN) ; $$ Public - Get all Brand Names associated with an RXN
|
---|
| 1753 | "RTN","C0CRXNLK",329,0)
|
---|
| 1754 | N BNS S BNS=""
|
---|
| 1755 | "RTN","C0CRXNLK",330,0)
|
---|
| 1756 | I $$ISBRAND(RXN) S RXN=$$BR2GEN(RXN)
|
---|
| 1757 | "RTN","C0CRXNLK",331,0)
|
---|
| 1758 | N ALLBN S ALLBN=$$GEN2BR(RXN)
|
---|
| 1759 | "RTN","C0CRXNLK",332,0)
|
---|
| 1760 | Q:ALLBN="" ""
|
---|
| 1761 | "RTN","C0CRXNLK",333,0)
|
---|
| 1762 | N BNNO F BNNO=1:1:$L(ALLBN,U) D
|
---|
| 1763 | "RTN","C0CRXNLK",334,0)
|
---|
| 1764 | . N EACHBN S EACHBN=$P(ALLBN,U,BNNO)
|
---|
| 1765 | "RTN","C0CRXNLK",335,0)
|
---|
| 1766 | . N BNRXCUI S BNRXCUI=$O(^C0CRXN(176.005,"B",EACHBN,"ingredient_of",""))
|
---|
| 1767 | "RTN","C0CRXNLK",336,0)
|
---|
| 1768 | . Q:BNRXCUI=""
|
---|
| 1769 | "RTN","C0CRXNLK",337,0)
|
---|
| 1770 | . N BNIEN S BNIEN=$O(^C0CRXN(176.001,"B",BNRXCUI,""))
|
---|
| 1771 | "RTN","C0CRXNLK",338,0)
|
---|
| 1772 | . S BNS=BNS_$P(^C0CRXN(176.001,BNIEN,0),U,15)_U
|
---|
| 1773 | "RTN","C0CRXNLK",339,0)
|
---|
| 1774 | QUIT $E(BNS,1,$L(BNS)-1)
|
---|
| 1775 | "RTN","C0CRXNLK",340,0)
|
---|
| 1776 | RXN2BNST ; @TEST - Test Get all Brand Names associated with an RXN
|
---|
| 1777 | "RTN","C0CRXNLK",341,0)
|
---|
| 1778 | D CHKTF^XTMUNIT($$RXN2BNS(205535)["Prozac","$$RXN2BNS failed")
|
---|
| 1779 | "RTN","C0CRXNLK",342,0)
|
---|
| 1780 | QUIT
|
---|
| 1781 | "RTN","C0CRXNLK",343,0)
|
---|
| 1782 | ;
|
---|
| 1783 | "RTN","C0CRXNLK",344,0)
|
---|
| 1784 | ; ---
|
---|
| 1785 | "RTN","C0CRXNLK",345,0)
|
---|
| 1786 | ;
|
---|
| 1787 | "RTN","C0CRXNLK",346,0)
|
---|
| 1788 | RXN2NDC(RXN) ; Get NDC codes for RxNorm code
|
---|
| 1789 | "RTN","C0CRXNLK",347,0)
|
---|
| 1790 | N NDCS S NDCS=""
|
---|
| 1791 | "RTN","C0CRXNLK",348,0)
|
---|
| 1792 | N I F I=0:0 S I=$O(^C0CRXN(176.002,"ASAR","RXNORM","NDC",RXN,I)) Q:'I S NDCS=NDCS_^(I)_"^"
|
---|
| 1793 | "RTN","C0CRXNLK",349,0)
|
---|
| 1794 | S $E(NDCS,$L(NDCS))=""
|
---|
| 1795 | "RTN","C0CRXNLK",350,0)
|
---|
| 1796 | QUIT NDCS
|
---|
| 1797 | "RTN","C0CRXNLK",351,0)
|
---|
| 1798 | RXN2NDCT ; @TEST - Test Get NDC codes for RxNorm code
|
---|
| 1799 | "RTN","C0CRXNLK",352,0)
|
---|
| 1800 | D CHKTF^XTMUNIT($$RXN2NDC(197379)["^"_16714003309,"$$RXN2NDC failed")
|
---|
| 1801 | "RTN","C0CRXNLK",353,0)
|
---|
| 1802 | QUIT
|
---|
| 1803 | "RTN","C0CRXNRD")
|
---|
| 1804 | 0^1^B42158088
|
---|
| 1805 | "RTN","C0CRXNRD",1,0)
|
---|
| 1806 | C0CRXNRD ; VEN/SMH - RxNorm Utilities: Routine to Read RxNorm files;2013-11-14 1:23 PM
|
---|
| 1807 | "RTN","C0CRXNRD",2,0)
|
---|
| 1808 | ;;2.3;RXNORM FOR VISTA;;Jul 22, 2014;Build 16
|
---|
| 1809 | "RTN","C0CRXNRD",3,0)
|
---|
| 1810 | ; (C) Sam Habiel 2013
|
---|
| 1811 | "RTN","C0CRXNRD",4,0)
|
---|
| 1812 | ; See license for terms of use.
|
---|
| 1813 | "RTN","C0CRXNRD",5,0)
|
---|
| 1814 | ;
|
---|
| 1815 | "RTN","C0CRXNRD",6,0)
|
---|
| 1816 | W "No entry from top" Q
|
---|
| 1817 | "RTN","C0CRXNRD",7,0)
|
---|
| 1818 | IMPORT(PATH,RESTRICTED) ; PUBLIC ENTRY POINT. Rest are private
|
---|
| 1819 | "RTN","C0CRXNRD",8,0)
|
---|
| 1820 | I PATH="" QUIT
|
---|
| 1821 | "RTN","C0CRXNRD",9,0)
|
---|
| 1822 | S RESTRICTED=$G(RESTRICTED,0)
|
---|
| 1823 | "RTN","C0CRXNRD",10,0)
|
---|
| 1824 | S U="^"
|
---|
| 1825 | "RTN","C0CRXNRD",11,0)
|
---|
| 1826 | N STARTTIME S STARTTIME=$P($H,",")*24*60*60+$P($H,",",2)
|
---|
| 1827 | "RTN","C0CRXNRD",12,0)
|
---|
| 1828 | N SABS
|
---|
| 1829 | "RTN","C0CRXNRD",13,0)
|
---|
| 1830 | D SAB(PATH,.SABS) ; Load restriction values into SAB. ; 176.006
|
---|
| 1831 | "RTN","C0CRXNRD",14,0)
|
---|
| 1832 | D CONSO(PATH,.SABS,RESTRICTED),SAT(PATH,.SABS,RESTRICTED) ; 176.001,176.002
|
---|
| 1833 | "RTN","C0CRXNRD",15,0)
|
---|
| 1834 | D STY(PATH),REL(PATH),DOC(PATH) ; 176.003-5
|
---|
| 1835 | "RTN","C0CRXNRD",16,0)
|
---|
| 1836 | N ENDTIME S ENDTIME=$P($H,",")*24*60*60+$P($H,",",2)
|
---|
| 1837 | "RTN","C0CRXNRD",17,0)
|
---|
| 1838 | W !,(ENDTIME-STARTTIME)/60_" minutes elapsed"
|
---|
| 1839 | "RTN","C0CRXNRD",18,0)
|
---|
| 1840 | QUIT
|
---|
| 1841 | "RTN","C0CRXNRD",19,0)
|
---|
| 1842 | ;
|
---|
| 1843 | "RTN","C0CRXNRD",20,0)
|
---|
| 1844 | ; Everything is private from down on...
|
---|
| 1845 | "RTN","C0CRXNRD",21,0)
|
---|
| 1846 | DELFILED(FN) ; Delete file data; PEP procedure; only for RxNorm files
|
---|
| 1847 | "RTN","C0CRXNRD",22,0)
|
---|
| 1848 | ; FN is Filenumber passed by Value
|
---|
| 1849 | "RTN","C0CRXNRD",23,0)
|
---|
| 1850 | QUIT:$E(FN,1,3)'=176 ; Quit if not RxNorm files
|
---|
| 1851 | "RTN","C0CRXNRD",24,0)
|
---|
| 1852 | N ROOT S ROOT=$$ROOT^DILFD(FN,"",1) ; global root
|
---|
| 1853 | "RTN","C0CRXNRD",25,0)
|
---|
| 1854 | N ZERO S ZERO=@ROOT@(0) ; Save zero node
|
---|
| 1855 | "RTN","C0CRXNRD",26,0)
|
---|
| 1856 | S $P(ZERO,U,3,9999)="" ; Remove entry # and last edited
|
---|
| 1857 | "RTN","C0CRXNRD",27,0)
|
---|
| 1858 | K @ROOT ; Kill the file -- so sad!
|
---|
| 1859 | "RTN","C0CRXNRD",28,0)
|
---|
| 1860 | S @ROOT@(0)=ZERO ; It riseth again!
|
---|
| 1861 | "RTN","C0CRXNRD",29,0)
|
---|
| 1862 | QUIT
|
---|
| 1863 | "RTN","C0CRXNRD",30,0)
|
---|
| 1864 | GETLINES(PATH,FILENAME) ; Get number of lines in a file
|
---|
| 1865 | "RTN","C0CRXNRD",31,0)
|
---|
| 1866 | N POP
|
---|
| 1867 | "RTN","C0CRXNRD",32,0)
|
---|
| 1868 | D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
|
---|
| 1869 | "RTN","C0CRXNRD",33,0)
|
---|
| 1870 | Q:POP
|
---|
| 1871 | "RTN","C0CRXNRD",34,0)
|
---|
| 1872 | U IO
|
---|
| 1873 | "RTN","C0CRXNRD",35,0)
|
---|
| 1874 | N I,LINE
|
---|
| 1875 | "RTN","C0CRXNRD",36,0)
|
---|
| 1876 | F I=1:1 R LINE:0 Q:$$STATUS^%ZISH
|
---|
| 1877 | "RTN","C0CRXNRD",37,0)
|
---|
| 1878 | D CLOSE^%ZISH("FILE")
|
---|
| 1879 | "RTN","C0CRXNRD",38,0)
|
---|
| 1880 | Q I-1
|
---|
| 1881 | "RTN","C0CRXNRD",39,0)
|
---|
| 1882 | CONSO(PATH,SABS,RESTRICTED) ; Open and read concepts file: RXNCONSO.RRF
|
---|
| 1883 | "RTN","C0CRXNRD",40,0)
|
---|
| 1884 | ; PATH ByVal, path of RxNorm files
|
---|
| 1885 | "RTN","C0CRXNRD",41,0)
|
---|
| 1886 | ; SABS ByRef, arrays of SABS(SAB)=restriction level
|
---|
| 1887 | "RTN","C0CRXNRD",42,0)
|
---|
| 1888 | ; RESTRICTED ByVal, include restricted sources. 1 for yes, 0 for no
|
---|
| 1889 | "RTN","C0CRXNRD",43,0)
|
---|
| 1890 | I PATH="" QUIT
|
---|
| 1891 | "RTN","C0CRXNRD",44,0)
|
---|
| 1892 | N FILENAME S FILENAME="RXNCONSO.RRF"
|
---|
| 1893 | "RTN","C0CRXNRD",45,0)
|
---|
| 1894 | D DELFILED(176.001) ; delete data
|
---|
| 1895 | "RTN","C0CRXNRD",46,0)
|
---|
| 1896 | N LINES S LINES=$$GETLINES(PATH,FILENAME)
|
---|
| 1897 | "RTN","C0CRXNRD",47,0)
|
---|
| 1898 | N POP
|
---|
| 1899 | "RTN","C0CRXNRD",48,0)
|
---|
| 1900 | D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
|
---|
| 1901 | "RTN","C0CRXNRD",49,0)
|
---|
| 1902 | IF POP D EN^DDIOL("Error reading file..., Please check...") G EX
|
---|
| 1903 | "RTN","C0CRXNRD",50,0)
|
---|
| 1904 | N C0CCOUNT
|
---|
| 1905 | "RTN","C0CRXNRD",51,0)
|
---|
| 1906 | F C0CCOUNT=1:1 D Q:$$STATUS^%ZISH
|
---|
| 1907 | "RTN","C0CRXNRD",52,0)
|
---|
| 1908 | . U IO
|
---|
| 1909 | "RTN","C0CRXNRD",53,0)
|
---|
| 1910 | . N LINE R LINE:0
|
---|
| 1911 | "RTN","C0CRXNRD",54,0)
|
---|
| 1912 | . IF $$STATUS^%ZISH QUIT
|
---|
| 1913 | "RTN","C0CRXNRD",55,0)
|
---|
| 1914 | . I '(C0CCOUNT#1000) U $P W C0CCOUNT," of ",LINES," read ",! U IO ; update every 1000
|
---|
| 1915 | "RTN","C0CRXNRD",56,0)
|
---|
| 1916 | . ;
|
---|
| 1917 | "RTN","C0CRXNRD",57,0)
|
---|
| 1918 | . ; Deal with restriction level
|
---|
| 1919 | "RTN","C0CRXNRD",58,0)
|
---|
| 1920 | . N SAB S SAB=$P(LINE,"|",12)
|
---|
| 1921 | "RTN","C0CRXNRD",59,0)
|
---|
| 1922 | . I 'RESTRICTED,SABS(SAB) QUIT ; If not include restricted, and SABS(SAB) is not zero, quit
|
---|
| 1923 | "RTN","C0CRXNRD",60,0)
|
---|
| 1924 | . ;
|
---|
| 1925 | "RTN","C0CRXNRD",61,0)
|
---|
| 1926 | . ; Save data
|
---|
| 1927 | "RTN","C0CRXNRD",62,0)
|
---|
| 1928 | . S ^C0CRXN(176.001,C0CCOUNT,0)=$TR(LINE,"|^","^|")
|
---|
| 1929 | "RTN","C0CRXNRD",63,0)
|
---|
| 1930 | EX D CLOSE^%ZISH("FILE")
|
---|
| 1931 | "RTN","C0CRXNRD",64,0)
|
---|
| 1932 | N DIK S DIK="^C0CRXN(176.001," D IXALL^DIK
|
---|
| 1933 | "RTN","C0CRXNRD",65,0)
|
---|
| 1934 | QUIT
|
---|
| 1935 | "RTN","C0CRXNRD",66,0)
|
---|
| 1936 | ;
|
---|
| 1937 | "RTN","C0CRXNRD",67,0)
|
---|
| 1938 | ;
|
---|
| 1939 | "RTN","C0CRXNRD",68,0)
|
---|
| 1940 | SAT(PATH,SABS,RESTRICTED) ; Open and read Concept and Atom attributes: RXNSAT.RRF
|
---|
| 1941 | "RTN","C0CRXNRD",69,0)
|
---|
| 1942 | ; PATH ByVal, path of RxNorm files
|
---|
| 1943 | "RTN","C0CRXNRD",70,0)
|
---|
| 1944 | ; SABS ByRef, arrays of SABS(SAB)=restriction level
|
---|
| 1945 | "RTN","C0CRXNRD",71,0)
|
---|
| 1946 | ; RESTRICTED ByVal, include restricted sources. 1 for yes, 0 for no
|
---|
| 1947 | "RTN","C0CRXNRD",72,0)
|
---|
| 1948 | I PATH="" QUIT
|
---|
| 1949 | "RTN","C0CRXNRD",73,0)
|
---|
| 1950 | N FILENAME S FILENAME="RXNSAT.RRF"
|
---|
| 1951 | "RTN","C0CRXNRD",74,0)
|
---|
| 1952 | D DELFILED(176.002) ; delete data
|
---|
| 1953 | "RTN","C0CRXNRD",75,0)
|
---|
| 1954 | N LINES S LINES=$$GETLINES(PATH,FILENAME)
|
---|
| 1955 | "RTN","C0CRXNRD",76,0)
|
---|
| 1956 | N POP
|
---|
| 1957 | "RTN","C0CRXNRD",77,0)
|
---|
| 1958 | D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
|
---|
| 1959 | "RTN","C0CRXNRD",78,0)
|
---|
| 1960 | IF POP W "Error reading file..., Please check...",! G EX2
|
---|
| 1961 | "RTN","C0CRXNRD",79,0)
|
---|
| 1962 | N C0CCOUNT F C0CCOUNT=1:1 Q:$$STATUS^%ZISH D
|
---|
| 1963 | "RTN","C0CRXNRD",80,0)
|
---|
| 1964 | . U IO
|
---|
| 1965 | "RTN","C0CRXNRD",81,0)
|
---|
| 1966 | . N LINE R LINE:0
|
---|
| 1967 | "RTN","C0CRXNRD",82,0)
|
---|
| 1968 | . IF $$STATUS^%ZISH QUIT
|
---|
| 1969 | "RTN","C0CRXNRD",83,0)
|
---|
| 1970 | . I '(C0CCOUNT#1000) U $P W C0CCOUNT," of ",LINES," read ",! U IO ; update every 1000
|
---|
| 1971 | "RTN","C0CRXNRD",84,0)
|
---|
| 1972 | . ;
|
---|
| 1973 | "RTN","C0CRXNRD",85,0)
|
---|
| 1974 | . ; We switch around the fields .01 and .09 because the .01 isn't always present; where as .09 is required
|
---|
| 1975 | "RTN","C0CRXNRD",86,0)
|
---|
| 1976 | . N RXCUI1,ATN9
|
---|
| 1977 | "RTN","C0CRXNRD",87,0)
|
---|
| 1978 | . S RXCUI1=$P(LINE,"|",1)
|
---|
| 1979 | "RTN","C0CRXNRD",88,0)
|
---|
| 1980 | . S ATN9=$P(LINE,"|",9)
|
---|
| 1981 | "RTN","C0CRXNRD",89,0)
|
---|
| 1982 | . S $P(LINE,"|",1)=ATN9
|
---|
| 1983 | "RTN","C0CRXNRD",90,0)
|
---|
| 1984 | . S $P(LINE,"|",9)=RXCUI1
|
---|
| 1985 | "RTN","C0CRXNRD",91,0)
|
---|
| 1986 | . ;
|
---|
| 1987 | "RTN","C0CRXNRD",92,0)
|
---|
| 1988 | . ; Deal with restricted sources
|
---|
| 1989 | "RTN","C0CRXNRD",93,0)
|
---|
| 1990 | . N SAB S SAB=$P(LINE,"|",10)
|
---|
| 1991 | "RTN","C0CRXNRD",94,0)
|
---|
| 1992 | . I 'RESTRICTED,SABS(SAB) QUIT ; If not include restricted, and SABS(SAB) is not zero, quit
|
---|
| 1993 | "RTN","C0CRXNRD",95,0)
|
---|
| 1994 | . ;
|
---|
| 1995 | "RTN","C0CRXNRD",96,0)
|
---|
| 1996 | . ; Save off
|
---|
| 1997 | "RTN","C0CRXNRD",97,0)
|
---|
| 1998 | . S ^C0CRXN(176.002,C0CCOUNT,0)=$TR(LINE,"|^","^|")
|
---|
| 1999 | "RTN","C0CRXNRD",98,0)
|
---|
| 2000 | EX2 D CLOSE^%ZISH("FILE")
|
---|
| 2001 | "RTN","C0CRXNRD",99,0)
|
---|
| 2002 | N DIK S DIK="^C0CRXN(176.002," D IXALL^DIK
|
---|
| 2003 | "RTN","C0CRXNRD",100,0)
|
---|
| 2004 | QUIT
|
---|
| 2005 | "RTN","C0CRXNRD",101,0)
|
---|
| 2006 | ;
|
---|
| 2007 | "RTN","C0CRXNRD",102,0)
|
---|
| 2008 | ;
|
---|
| 2009 | "RTN","C0CRXNRD",103,0)
|
---|
| 2010 | SAB(PATH,SABS) ; Open the read RxNorm Sources file: RXNSAB.RRF
|
---|
| 2011 | "RTN","C0CRXNRD",104,0)
|
---|
| 2012 | I PATH="" QUIT
|
---|
| 2013 | "RTN","C0CRXNRD",105,0)
|
---|
| 2014 | N FILENAME S FILENAME="RXNSAB.RRF"
|
---|
| 2015 | "RTN","C0CRXNRD",106,0)
|
---|
| 2016 | D DELFILED(176.003) ; delete data
|
---|
| 2017 | "RTN","C0CRXNRD",107,0)
|
---|
| 2018 | N POP
|
---|
| 2019 | "RTN","C0CRXNRD",108,0)
|
---|
| 2020 | D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
|
---|
| 2021 | "RTN","C0CRXNRD",109,0)
|
---|
| 2022 | IF POP W "Error reading file..., Please check...",! G EX3
|
---|
| 2023 | "RTN","C0CRXNRD",110,0)
|
---|
| 2024 | N I F I=1:1 Q:$$STATUS^%ZISH D
|
---|
| 2025 | "RTN","C0CRXNRD",111,0)
|
---|
| 2026 | . U IO
|
---|
| 2027 | "RTN","C0CRXNRD",112,0)
|
---|
| 2028 | . N LINE R LINE:0
|
---|
| 2029 | "RTN","C0CRXNRD",113,0)
|
---|
| 2030 | . IF $$STATUS^%ZISH QUIT
|
---|
| 2031 | "RTN","C0CRXNRD",114,0)
|
---|
| 2032 | . U $P W I,! U IO ; Write I to the screen, then go back to reading the file
|
---|
| 2033 | "RTN","C0CRXNRD",115,0)
|
---|
| 2034 | . ; Switch pieces 1 and 4 because 4 is always defined. Goes into .01 field.
|
---|
| 2035 | "RTN","C0CRXNRD",116,0)
|
---|
| 2036 | . N VCUI S VCUI=$P(LINE,"|",1)
|
---|
| 2037 | "RTN","C0CRXNRD",117,0)
|
---|
| 2038 | . N RSAB S RSAB=$P(LINE,"|",4)
|
---|
| 2039 | "RTN","C0CRXNRD",118,0)
|
---|
| 2040 | . S $P(LINE,"|",1)=RSAB
|
---|
| 2041 | "RTN","C0CRXNRD",119,0)
|
---|
| 2042 | . S $P(LINE,"|",4)=VCUI
|
---|
| 2043 | "RTN","C0CRXNRD",120,0)
|
---|
| 2044 | . S ^C0CRXN(176.003,I,0)=$TR(LINE,"^|","|^")
|
---|
| 2045 | "RTN","C0CRXNRD",121,0)
|
---|
| 2046 | EX3 D CLOSE^%ZISH("FILE")
|
---|
| 2047 | "RTN","C0CRXNRD",122,0)
|
---|
| 2048 | N DIK S DIK="^C0CRXN(176.003," D IXALL^DIK
|
---|
| 2049 | "RTN","C0CRXNRD",123,0)
|
---|
| 2050 | N C0CI F C0CI=0:0 S C0CI=$O(^C0CRXN(176.003,C0CI)) Q:'C0CI D
|
---|
| 2051 | "RTN","C0CRXNRD",124,0)
|
---|
| 2052 | . S SABS($$GET1^DIQ(176.003,C0CI,.01))=$$GET1^DIQ(176.003,C0CI,"SRL")
|
---|
| 2053 | "RTN","C0CRXNRD",125,0)
|
---|
| 2054 | QUIT
|
---|
| 2055 | "RTN","C0CRXNRD",126,0)
|
---|
| 2056 | STY(PATH) ; Open and read RxNorm Semantic types file: RXNSTY.RRF
|
---|
| 2057 | "RTN","C0CRXNRD",127,0)
|
---|
| 2058 | I PATH="" QUIT
|
---|
| 2059 | "RTN","C0CRXNRD",128,0)
|
---|
| 2060 | N FILENAME S FILENAME="RXNSTY.RRF"
|
---|
| 2061 | "RTN","C0CRXNRD",129,0)
|
---|
| 2062 | D DELFILED(176.004) ; delete data
|
---|
| 2063 | "RTN","C0CRXNRD",130,0)
|
---|
| 2064 | N LINES S LINES=$$GETLINES(PATH,FILENAME) ; Get # of lines
|
---|
| 2065 | "RTN","C0CRXNRD",131,0)
|
---|
| 2066 | N POP
|
---|
| 2067 | "RTN","C0CRXNRD",132,0)
|
---|
| 2068 | D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
|
---|
| 2069 | "RTN","C0CRXNRD",133,0)
|
---|
| 2070 | IF POP W "Error reading file..., Please check...",! G EX4
|
---|
| 2071 | "RTN","C0CRXNRD",134,0)
|
---|
| 2072 | N I F I=1:1 Q:$$STATUS^%ZISH D
|
---|
| 2073 | "RTN","C0CRXNRD",135,0)
|
---|
| 2074 | . U IO
|
---|
| 2075 | "RTN","C0CRXNRD",136,0)
|
---|
| 2076 | . N LINE R LINE:0
|
---|
| 2077 | "RTN","C0CRXNRD",137,0)
|
---|
| 2078 | . IF $$STATUS^%ZISH QUIT
|
---|
| 2079 | "RTN","C0CRXNRD",138,0)
|
---|
| 2080 | . I '(I#1000) U $P W I," of ",LINES," read ",! U IO ; update every 1000
|
---|
| 2081 | "RTN","C0CRXNRD",139,0)
|
---|
| 2082 | . S ^C0CRXN(176.004,I,0)=$TR(LINE,"^|","|^")
|
---|
| 2083 | "RTN","C0CRXNRD",140,0)
|
---|
| 2084 | EX4 D CLOSE^%ZISH("FILE")
|
---|
| 2085 | "RTN","C0CRXNRD",141,0)
|
---|
| 2086 | N DIK S DIK="^C0CRXN(176.004," D IXALL^DIK
|
---|
| 2087 | "RTN","C0CRXNRD",142,0)
|
---|
| 2088 | QUIT
|
---|
| 2089 | "RTN","C0CRXNRD",143,0)
|
---|
| 2090 | ;
|
---|
| 2091 | "RTN","C0CRXNRD",144,0)
|
---|
| 2092 | REL(PATH) ; Open and read RxNorm Relationships file: RXNREL.RRF
|
---|
| 2093 | "RTN","C0CRXNRD",145,0)
|
---|
| 2094 | I PATH="" QUIT
|
---|
| 2095 | "RTN","C0CRXNRD",146,0)
|
---|
| 2096 | N FILENAME S FILENAME="RXNREL.RRF"
|
---|
| 2097 | "RTN","C0CRXNRD",147,0)
|
---|
| 2098 | D DELFILED(176.005) ; delete data
|
---|
| 2099 | "RTN","C0CRXNRD",148,0)
|
---|
| 2100 | N LINES S LINES=$$GETLINES(PATH,FILENAME) ; Get # of lines
|
---|
| 2101 | "RTN","C0CRXNRD",149,0)
|
---|
| 2102 | N POP
|
---|
| 2103 | "RTN","C0CRXNRD",150,0)
|
---|
| 2104 | D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
|
---|
| 2105 | "RTN","C0CRXNRD",151,0)
|
---|
| 2106 | IF POP W "Error reading file..., Please check...",! G EX5
|
---|
| 2107 | "RTN","C0CRXNRD",152,0)
|
---|
| 2108 | N I F I=1:1 Q:$$STATUS^%ZISH D
|
---|
| 2109 | "RTN","C0CRXNRD",153,0)
|
---|
| 2110 | . U IO
|
---|
| 2111 | "RTN","C0CRXNRD",154,0)
|
---|
| 2112 | . N LINE R LINE:0
|
---|
| 2113 | "RTN","C0CRXNRD",155,0)
|
---|
| 2114 | . IF $$STATUS^%ZISH QUIT
|
---|
| 2115 | "RTN","C0CRXNRD",156,0)
|
---|
| 2116 | . I '(I#1000) U $P W I," of ",LINES," read ",! U IO ; update every 1000
|
---|
| 2117 | "RTN","C0CRXNRD",157,0)
|
---|
| 2118 | . ; swap RXCUI1 location with SAB b/c SAB is required so can be .01 field
|
---|
| 2119 | "RTN","C0CRXNRD",158,0)
|
---|
| 2120 | . N RXCUI1 S RXCUI1=$P(LINE,"|",1)
|
---|
| 2121 | "RTN","C0CRXNRD",159,0)
|
---|
| 2122 | . N SAB S SAB=$P(LINE,"|",11)
|
---|
| 2123 | "RTN","C0CRXNRD",160,0)
|
---|
| 2124 | . S $P(LINE,"|",1)=SAB
|
---|
| 2125 | "RTN","C0CRXNRD",161,0)
|
---|
| 2126 | . S $P(LINE,"|",11)=RXCUI1
|
---|
| 2127 | "RTN","C0CRXNRD",162,0)
|
---|
| 2128 | . S ^C0CRXN(176.005,I,0)=$TR(LINE,"^|","|^")
|
---|
| 2129 | "RTN","C0CRXNRD",163,0)
|
---|
| 2130 | EX5 D CLOSE^%ZISH("FILE")
|
---|
| 2131 | "RTN","C0CRXNRD",164,0)
|
---|
| 2132 | N DIK S DIK="^C0CRXN(176.005," D IXALL^DIK
|
---|
| 2133 | "RTN","C0CRXNRD",165,0)
|
---|
| 2134 | QUIT
|
---|
| 2135 | "RTN","C0CRXNRD",166,0)
|
---|
| 2136 | DOC(PATH) ; Open the read RxNorm Abbreviation Documentation file: RXNDOC.RRF
|
---|
| 2137 | "RTN","C0CRXNRD",167,0)
|
---|
| 2138 | I PATH="" QUIT
|
---|
| 2139 | "RTN","C0CRXNRD",168,0)
|
---|
| 2140 | N FILENAME S FILENAME="RXNDOC.RRF"
|
---|
| 2141 | "RTN","C0CRXNRD",169,0)
|
---|
| 2142 | D DELFILED(176.006) ; delete data
|
---|
| 2143 | "RTN","C0CRXNRD",170,0)
|
---|
| 2144 | N LINES S LINES=$$GETLINES(PATH,FILENAME) ; Get # of lines
|
---|
| 2145 | "RTN","C0CRXNRD",171,0)
|
---|
| 2146 | N POP
|
---|
| 2147 | "RTN","C0CRXNRD",172,0)
|
---|
| 2148 | D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
|
---|
| 2149 | "RTN","C0CRXNRD",173,0)
|
---|
| 2150 | IF POP W "Error reading file..., Please check...",! G EX6
|
---|
| 2151 | "RTN","C0CRXNRD",174,0)
|
---|
| 2152 | N I F I=1:1 Q:$$STATUS^%ZISH D
|
---|
| 2153 | "RTN","C0CRXNRD",175,0)
|
---|
| 2154 | . U IO
|
---|
| 2155 | "RTN","C0CRXNRD",176,0)
|
---|
| 2156 | . N LINE R LINE:0
|
---|
| 2157 | "RTN","C0CRXNRD",177,0)
|
---|
| 2158 | . IF $$STATUS^%ZISH QUIT
|
---|
| 2159 | "RTN","C0CRXNRD",178,0)
|
---|
| 2160 | . I '(I#1000) U $P W I," of ",LINES," read ",! U IO ; update every 1000
|
---|
| 2161 | "RTN","C0CRXNRD",179,0)
|
---|
| 2162 | . S ^C0CRXN(176.006,I,0)=$TR(LINE,"^|","|^")
|
---|
| 2163 | "RTN","C0CRXNRD",180,0)
|
---|
| 2164 | EX6 D CLOSE^%ZISH("FILE")
|
---|
| 2165 | "RTN","C0CRXNRD",181,0)
|
---|
| 2166 | N DIK S DIK="^C0CRXN(176.006," D IXALL^DIK
|
---|
| 2167 | "RTN","C0CRXNRD",182,0)
|
---|
| 2168 | QUIT
|
---|
| 2169 | "SEC","^DD",176.001,176.001,50,9)
|
---|
| 2170 |
|
---|
| 2171 | "SEC","^DIC",176.001,176.001,0,"AUDIT")
|
---|
| 2172 |
|
---|
| 2173 | "SEC","^DIC",176.001,176.001,0,"DD")
|
---|
| 2174 | @
|
---|
| 2175 | "SEC","^DIC",176.001,176.001,0,"DEL")
|
---|
| 2176 |
|
---|
| 2177 | "SEC","^DIC",176.001,176.001,0,"LAYGO")
|
---|
| 2178 |
|
---|
| 2179 | "SEC","^DIC",176.001,176.001,0,"RD")
|
---|
| 2180 |
|
---|
| 2181 | "SEC","^DIC",176.001,176.001,0,"WR")
|
---|
| 2182 | @
|
---|
| 2183 | "SEC","^DIC",176.002,176.002,0,"AUDIT")
|
---|
| 2184 | @
|
---|
| 2185 | "SEC","^DIC",176.002,176.002,0,"DD")
|
---|
| 2186 | @
|
---|
| 2187 | "SEC","^DIC",176.002,176.002,0,"DEL")
|
---|
| 2188 | @
|
---|
| 2189 | "SEC","^DIC",176.002,176.002,0,"LAYGO")
|
---|
| 2190 | @
|
---|
| 2191 | "SEC","^DIC",176.002,176.002,0,"RD")
|
---|
| 2192 |
|
---|
| 2193 | "SEC","^DIC",176.002,176.002,0,"WR")
|
---|
| 2194 | @
|
---|
| 2195 | "SEC","^DIC",176.003,176.003,0,"AUDIT")
|
---|
| 2196 | @
|
---|
| 2197 | "SEC","^DIC",176.003,176.003,0,"DD")
|
---|
| 2198 | @
|
---|
| 2199 | "SEC","^DIC",176.003,176.003,0,"DEL")
|
---|
| 2200 | @
|
---|
| 2201 | "SEC","^DIC",176.003,176.003,0,"LAYGO")
|
---|
| 2202 | @
|
---|
| 2203 | "SEC","^DIC",176.003,176.003,0,"RD")
|
---|
| 2204 |
|
---|
| 2205 | "SEC","^DIC",176.003,176.003,0,"WR")
|
---|
| 2206 | @
|
---|
| 2207 | "SEC","^DIC",176.004,176.004,0,"AUDIT")
|
---|
| 2208 | @
|
---|
| 2209 | "SEC","^DIC",176.004,176.004,0,"DD")
|
---|
| 2210 | @
|
---|
| 2211 | "SEC","^DIC",176.004,176.004,0,"DEL")
|
---|
| 2212 | @
|
---|
| 2213 | "SEC","^DIC",176.004,176.004,0,"LAYGO")
|
---|
| 2214 | @
|
---|
| 2215 | "SEC","^DIC",176.004,176.004,0,"RD")
|
---|
| 2216 |
|
---|
| 2217 | "SEC","^DIC",176.004,176.004,0,"WR")
|
---|
| 2218 | @
|
---|
| 2219 | "SEC","^DIC",176.005,176.005,0,"AUDIT")
|
---|
| 2220 | @
|
---|
| 2221 | "SEC","^DIC",176.005,176.005,0,"DD")
|
---|
| 2222 | @
|
---|
| 2223 | "SEC","^DIC",176.005,176.005,0,"DEL")
|
---|
| 2224 | @
|
---|
| 2225 | "SEC","^DIC",176.005,176.005,0,"LAYGO")
|
---|
| 2226 | @
|
---|
| 2227 | "SEC","^DIC",176.005,176.005,0,"RD")
|
---|
| 2228 |
|
---|
| 2229 | "SEC","^DIC",176.005,176.005,0,"WR")
|
---|
| 2230 | @
|
---|
| 2231 | "SEC","^DIC",176.006,176.006,0,"AUDIT")
|
---|
| 2232 | @
|
---|
| 2233 | "SEC","^DIC",176.006,176.006,0,"DD")
|
---|
| 2234 | @
|
---|
| 2235 | "SEC","^DIC",176.006,176.006,0,"DEL")
|
---|
| 2236 | @
|
---|
| 2237 | "SEC","^DIC",176.006,176.006,0,"LAYGO")
|
---|
| 2238 | @
|
---|
| 2239 | "SEC","^DIC",176.006,176.006,0,"RD")
|
---|
| 2240 |
|
---|
| 2241 | "SEC","^DIC",176.006,176.006,0,"WR")
|
---|
| 2242 | @
|
---|
| 2243 | "VER")
|
---|
| 2244 | 8.0^22.0
|
---|
| 2245 | "^DD",50,50,176.001,0)
|
---|
| 2246 | RXNCUI^Cp176.001^^ ; ^S X=$$MED2RXN^C0CRXNLK(D0)
|
---|
| 2247 | "^DD",50,50,176.001,.1)
|
---|
| 2248 | RXNORM CUI
|
---|
| 2249 | "^DD",50,50,176.001,9.01)
|
---|
| 2250 |
|
---|
| 2251 | "^DD",50,50,176.001,9.1)
|
---|
| 2252 | S X=$$MED2RXN^C0CRXNLK(D0)
|
---|
| 2253 | "^DD",50,50,176.001,"DT")
|
---|
| 2254 | 3130708
|
---|
| 2255 | "^DD",50,50,176.002,0)
|
---|
| 2256 | RXN SCD NAME^CJ250^^ ; ^S X=$$MED2SCDN^C0CRXNLK(D0)
|
---|
| 2257 | "^DD",50,50,176.002,9.01)
|
---|
| 2258 |
|
---|
| 2259 | "^DD",50,50,176.002,9.1)
|
---|
| 2260 | S X=$$MED2SCDN^C0CRXNLK(D0)
|
---|
| 2261 | "^DD",50,50,176.002,"DT")
|
---|
| 2262 | 3130408
|
---|
| 2263 | "^DD",50.68,50.68,176.001,0)
|
---|
| 2264 | COMPUTED GCNSEQNO^CJ25^^ ; ^S X=$$VUI2GCN^C0CRXNLK(+$G(^PSNDF(50.68,D0,"VUID")))
|
---|
| 2265 | "^DD",50.68,50.68,176.001,9.01)
|
---|
| 2266 |
|
---|
| 2267 | "^DD",50.68,50.68,176.001,9.1)
|
---|
| 2268 | S X=$$VUI2GCN^C0CRXNLK(+$G(^PSNDF(50.68,D0,"VUID")))
|
---|
| 2269 | "^DD",50.68,50.68,176.001,"DT")
|
---|
| 2270 | 3130625
|
---|
| 2271 | "^DD",176.001,176.001,0)
|
---|
| 2272 | FIELD^^50^19
|
---|
| 2273 | "^DD",176.001,176.001,0,"DIK")
|
---|
| 2274 | C0CRXN1
|
---|
| 2275 | "^DD",176.001,176.001,0,"DIKOLD")
|
---|
| 2276 | C0CRXN1
|
---|
| 2277 | "^DD",176.001,176.001,0,"DT")
|
---|
| 2278 | 3130410
|
---|
| 2279 | "^DD",176.001,176.001,0,"ID",.12)
|
---|
| 2280 | W " ",$P(^(0),U,12)
|
---|
| 2281 | "^DD",176.001,176.001,0,"ID",.13)
|
---|
| 2282 | W " ",$P(^(0),U,13)
|
---|
| 2283 | "^DD",176.001,176.001,0,"ID",.14)
|
---|
| 2284 | W " ",$P(^(0),U,14)
|
---|
| 2285 | "^DD",176.001,176.001,0,"ID",.15)
|
---|
| 2286 | W " ",$P(^(0),U,15)
|
---|
| 2287 | "^DD",176.001,176.001,0,"NM","RXNORM CONCEPT NAMES AND SOURCES")
|
---|
| 2288 |
|
---|
| 2289 | "^DD",176.001,176.001,0,"VRPK")
|
---|
| 2290 | RXNORM FOR VISTA
|
---|
| 2291 | "^DD",176.001,176.001,.01,0)
|
---|
| 2292 | RXCUI^RFJ8^^0;1^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X
|
---|
| 2293 | "^DD",176.001,176.001,.01,1,0)
|
---|
| 2294 | ^.1^^0
|
---|
| 2295 | "^DD",176.001,176.001,.01,3)
|
---|
| 2296 | Answer must be 1-8 characters in length.
|
---|
| 2297 | "^DD",176.001,176.001,.01,21,0)
|
---|
| 2298 | ^^1^1^3130225^
|
---|
| 2299 | "^DD",176.001,176.001,.01,21,1,0)
|
---|
| 2300 | RxNorm Unique identifier for concept (concept ID)
|
---|
| 2301 | "^DD",176.001,176.001,.01,"DT")
|
---|
| 2302 | 3130305
|
---|
| 2303 | "^DD",176.001,176.001,.02,0)
|
---|
| 2304 | LAT^RFJ3^^0;2^K:$L(X)>3!($L(X)<1) X
|
---|
| 2305 | "^DD",176.001,176.001,.02,3)
|
---|
| 2306 | Answer must be 1-3 characters in length.
|
---|
| 2307 | "^DD",176.001,176.001,.02,21,0)
|
---|
| 2308 | ^^1^1^3130225^
|
---|
| 2309 | "^DD",176.001,176.001,.02,21,1,0)
|
---|
| 2310 | Language of Term
|
---|
| 2311 | "^DD",176.001,176.001,.02,"DT")
|
---|
| 2312 | 3130225
|
---|
| 2313 | "^DD",176.001,176.001,.03,0)
|
---|
| 2314 | TS^FJ1^^0;3^K:$L(X)>1!($L(X)<1) X
|
---|
| 2315 | "^DD",176.001,176.001,.03,3)
|
---|
| 2316 | Answer must be 1 character in length.
|
---|
| 2317 | "^DD",176.001,176.001,.03,21,0)
|
---|
| 2318 | ^^1^1^3130225^
|
---|
| 2319 | "^DD",176.001,176.001,.03,21,1,0)
|
---|
| 2320 | Term status (no value provided)
|
---|
| 2321 | "^DD",176.001,176.001,.03,"DT")
|
---|
| 2322 | 3130225
|
---|
| 2323 | "^DD",176.001,176.001,.04,0)
|
---|
| 2324 | LUI^FJ8^^0;4^K:$L(X)>8!($L(X)<1) X
|
---|
| 2325 | "^DD",176.001,176.001,.04,3)
|
---|
| 2326 | Answer must be 1-8 characters in length.
|
---|
| 2327 | "^DD",176.001,176.001,.04,21,0)
|
---|
| 2328 | ^^1^1^3130225^
|
---|
| 2329 | "^DD",176.001,176.001,.04,21,1,0)
|
---|
| 2330 | Unique identifier for term (no value provided)
|
---|
| 2331 | "^DD",176.001,176.001,.04,"DT")
|
---|
| 2332 | 3130225
|
---|
| 2333 | "^DD",176.001,176.001,.05,0)
|
---|
| 2334 | STT^FJ3^^0;5^K:$L(X)>3!($L(X)<1) X
|
---|
| 2335 | "^DD",176.001,176.001,.05,3)
|
---|
| 2336 | Answer must be 1-3 characters in length.
|
---|
| 2337 | "^DD",176.001,176.001,.05,21,0)
|
---|
| 2338 | ^^1^1^3130225^
|
---|
| 2339 | "^DD",176.001,176.001,.05,21,1,0)
|
---|
| 2340 | String type (no value provided)
|
---|
| 2341 | "^DD",176.001,176.001,.05,"DT")
|
---|
| 2342 | 3130225
|
---|
| 2343 | "^DD",176.001,176.001,.06,0)
|
---|
| 2344 | SUI^FJ8^^0;6^K:$L(X)>8!($L(X)<1) X
|
---|
| 2345 | "^DD",176.001,176.001,.06,3)
|
---|
| 2346 | Answer must be 1-8 characters in length.
|
---|
| 2347 | "^DD",176.001,176.001,.06,21,0)
|
---|
| 2348 | ^^1^1^3130225^
|
---|
| 2349 | "^DD",176.001,176.001,.06,21,1,0)
|
---|
| 2350 | Unique identifier for string (no value provided)
|
---|
| 2351 | "^DD",176.001,176.001,.06,"DT")
|
---|
| 2352 | 3130225
|
---|
| 2353 | "^DD",176.001,176.001,.07,0)
|
---|
| 2354 | ISPREF^FJ1^^0;7^K:$L(X)>1!($L(X)<1) X
|
---|
| 2355 | "^DD",176.001,176.001,.07,3)
|
---|
| 2356 | Answer must be 1 character in length.
|
---|
| 2357 | "^DD",176.001,176.001,.07,21,0)
|
---|
| 2358 | ^^2^2^3130225^
|
---|
| 2359 | "^DD",176.001,176.001,.07,21,1,0)
|
---|
| 2360 | Atom status - preferred (Y) or not (N) for this string within this
|
---|
| 2361 | "^DD",176.001,176.001,.07,21,2,0)
|
---|
| 2362 | concept (no value provided)
|
---|
| 2363 | "^DD",176.001,176.001,.07,"DT")
|
---|
| 2364 | 3130225
|
---|
| 2365 | "^DD",176.001,176.001,.08,0)
|
---|
| 2366 | RXAUI^RFJ8^^0;8^K:$L(X)>8!($L(X)<1) X
|
---|
| 2367 | "^DD",176.001,176.001,.08,3)
|
---|
| 2368 | Answer must be 1-8 characters in length.
|
---|
| 2369 | "^DD",176.001,176.001,.08,21,0)
|
---|
| 2370 | ^^1^1^3130225^
|
---|
| 2371 | "^DD",176.001,176.001,.08,21,1,0)
|
---|
| 2372 | Unique identifier for atom (RxNorm Atom ID)
|
---|
| 2373 | "^DD",176.001,176.001,.08,"DT")
|
---|
| 2374 | 3130225
|
---|
| 2375 | "^DD",176.001,176.001,.09,0)
|
---|
| 2376 | SAUI^FJ50^^0;9^K:$L(X)>50!($L(X)<1) X
|
---|
| 2377 | "^DD",176.001,176.001,.09,3)
|
---|
| 2378 | Answer must be 1-50 characters in length.
|
---|
| 2379 | "^DD",176.001,176.001,.09,21,0)
|
---|
| 2380 | ^^1^1^3130225^
|
---|
| 2381 | "^DD",176.001,176.001,.09,21,1,0)
|
---|
| 2382 | Source asserted atom identifier [optional]
|
---|
| 2383 | "^DD",176.001,176.001,.09,"DT")
|
---|
| 2384 | 3130225
|
---|
| 2385 | "^DD",176.001,176.001,.1,0)
|
---|
| 2386 | SCUI^FJ50^^0;10^K:$L(X)>50!($L(X)<1) X
|
---|
| 2387 | "^DD",176.001,176.001,.1,3)
|
---|
| 2388 | Answer must be 1-50 characters in length.
|
---|
| 2389 | "^DD",176.001,176.001,.1,21,0)
|
---|
| 2390 | ^^1^1^3130225^
|
---|
| 2391 | "^DD",176.001,176.001,.1,21,1,0)
|
---|
| 2392 | Source asserted concept identifier [optional]
|
---|
| 2393 | "^DD",176.001,176.001,.1,"DT")
|
---|
| 2394 | 3130225
|
---|
| 2395 | "^DD",176.001,176.001,.11,0)
|
---|
| 2396 | SDUI^FJ50^^0;11^K:$L(X)>50!($L(X)<1) X
|
---|
| 2397 | "^DD",176.001,176.001,.11,3)
|
---|
| 2398 | Answer must be 1-50 characters in length.
|
---|
| 2399 | "^DD",176.001,176.001,.11,21,0)
|
---|
| 2400 | ^^1^1^3130225^
|
---|
| 2401 | "^DD",176.001,176.001,.11,21,1,0)
|
---|
| 2402 | Source asserted descriptor identifier [optional] (no value provided)
|
---|
| 2403 | "^DD",176.001,176.001,.11,"DT")
|
---|
| 2404 | 3130225
|
---|
| 2405 | "^DD",176.001,176.001,.12,0)
|
---|
| 2406 | SAB^RFJ20^^0;12^K:$L(X)>20!($L(X)<1) X
|
---|
| 2407 | "^DD",176.001,176.001,.12,3)
|
---|
| 2408 | Answer must be 1-20 characters in length.
|
---|
| 2409 | "^DD",176.001,176.001,.12,21,0)
|
---|
| 2410 | ^^1^1^3130225^
|
---|
| 2411 | "^DD",176.001,176.001,.12,21,1,0)
|
---|
| 2412 | Source abbreviation
|
---|
| 2413 | "^DD",176.001,176.001,.12,"DT")
|
---|
| 2414 | 3130305
|
---|
| 2415 | "^DD",176.001,176.001,.13,0)
|
---|
| 2416 | TTY^RFJ20^^0;13^K:$L(X)>20!($L(X)<1) X
|
---|
| 2417 | "^DD",176.001,176.001,.13,3)
|
---|
| 2418 | Answer must be 1-20 characters in length.
|
---|
| 2419 | "^DD",176.001,176.001,.13,21,0)
|
---|
| 2420 | ^^1^1^3130225^
|
---|
| 2421 | "^DD",176.001,176.001,.13,21,1,0)
|
---|
| 2422 | Term type in source
|
---|
| 2423 | "^DD",176.001,176.001,.13,"DT")
|
---|
| 2424 | 3130305
|
---|
| 2425 | "^DD",176.001,176.001,.14,0)
|
---|
| 2426 | CODE^RFJ50^^0;14^K:$L(X)>50!($L(X)<1) X
|
---|
| 2427 | "^DD",176.001,176.001,.14,3)
|
---|
| 2428 | Answer must be 1-50 characters in length.
|
---|
| 2429 | "^DD",176.001,176.001,.14,21,0)
|
---|
| 2430 | ^^3^3^3130225^
|
---|
| 2431 | "^DD",176.001,176.001,.14,21,1,0)
|
---|
| 2432 | "Most useful" source asserted identifier (if the source vocabulary has
|
---|
| 2433 | "^DD",176.001,176.001,.14,21,2,0)
|
---|
| 2434 | more than one identifier), or a Metathesaurus-generated source entry
|
---|
| 2435 | "^DD",176.001,176.001,.14,21,3,0)
|
---|
| 2436 | identifier (if the source vocabulary has none.)
|
---|
| 2437 | "^DD",176.001,176.001,.14,"DT")
|
---|
| 2438 | 3130305
|
---|
| 2439 | "^DD",176.001,176.001,.15,0)
|
---|
| 2440 | STR^RFJ3000^^0;15^K:$L(X)>3000!($L(X)<1) X
|
---|
| 2441 | "^DD",176.001,176.001,.15,1,0)
|
---|
| 2442 | ^.1^^0
|
---|
| 2443 | "^DD",176.001,176.001,.15,3)
|
---|
| 2444 | Answer must be 1-3000 characters in length.
|
---|
| 2445 | "^DD",176.001,176.001,.15,21,0)
|
---|
| 2446 | ^^1^1^3130225^
|
---|
| 2447 | "^DD",176.001,176.001,.15,21,1,0)
|
---|
| 2448 | String
|
---|
| 2449 | "^DD",176.001,176.001,.15,"DT")
|
---|
| 2450 | 3130227
|
---|
| 2451 | "^DD",176.001,176.001,.16,0)
|
---|
| 2452 | SRL^FJ10^^0;16^K:$L(X)>10!($L(X)<1) X
|
---|
| 2453 | "^DD",176.001,176.001,.16,3)
|
---|
| 2454 | Answer must be 1-10 characters in length.
|
---|
| 2455 | "^DD",176.001,176.001,.16,21,0)
|
---|
| 2456 | ^^1^1^3130225^
|
---|
| 2457 | "^DD",176.001,176.001,.16,21,1,0)
|
---|
| 2458 | Source Restriction Level (no value provided)
|
---|
| 2459 | "^DD",176.001,176.001,.16,"DT")
|
---|
| 2460 | 3130225
|
---|
| 2461 | "^DD",176.001,176.001,.17,0)
|
---|
| 2462 | SUPPRESS^FJ1^^0;17^K:$L(X)>1!($L(X)<1) X
|
---|
| 2463 | "^DD",176.001,176.001,.17,3)
|
---|
| 2464 | Answer must be 1 character in length.
|
---|
| 2465 | "^DD",176.001,176.001,.17,21,0)
|
---|
| 2466 | ^^4^4^3130225^
|
---|
| 2467 | "^DD",176.001,176.001,.17,21,1,0)
|
---|
| 2468 | Suppressible flag. Values = N or O. N - not suppressible. O - Specific
|
---|
| 2469 | "^DD",176.001,176.001,.17,21,2,0)
|
---|
| 2470 | Individual names (atoms) set as Obsolete because the name is no longer
|
---|
| 2471 | "^DD",176.001,176.001,.17,21,3,0)
|
---|
| 2472 | provided by the original source. NLM strongly recommends that users not
|
---|
| 2473 | "^DD",176.001,176.001,.17,21,4,0)
|
---|
| 2474 | alter editor-assigned suppressibility.
|
---|
| 2475 | "^DD",176.001,176.001,.17,"DT")
|
---|
| 2476 | 3130225
|
---|
| 2477 | "^DD",176.001,176.001,.18,0)
|
---|
| 2478 | CVF^FJ50^^0;18^K:$L(X)>50!($L(X)<1) X
|
---|
| 2479 | "^DD",176.001,176.001,.18,3)
|
---|
| 2480 | Answer must be 1-50 characters in length.
|
---|
| 2481 | "^DD",176.001,176.001,.18,21,0)
|
---|
| 2482 | ^^1^1^3130225^
|
---|
| 2483 | "^DD",176.001,176.001,.18,21,1,0)
|
---|
| 2484 | Content view flag
|
---|
| 2485 | "^DD",176.001,176.001,.18,"DT")
|
---|
| 2486 | 3130225
|
---|
| 2487 | "^DD",176.001,176.001,50,0)
|
---|
| 2488 | COMPUTED DRUGS^Cmp50^^ ; ^N V S V=$$RXN2MEDS^C0CRXNLK($P(^C0CRXN(176.001,D0,0),U)) Q:V="" N D F D=1:1:$L(V,U) N D0 S D0=$P(V,U,D),X=$P(^PSDRUG(D0,0),U) X DICMX Q:'$D(D)
|
---|
| 2489 | "^DD",176.001,176.001,50,9.01)
|
---|
| 2490 |
|
---|
| 2491 | "^DD",176.001,176.001,50,9.1)
|
---|
| 2492 | N V S V=$$RXN2MEDS^C0CRXNLK($P(^C0CRXN(176.001,D0,0),U)) Q:V="" N D F D=1:1:$L(V,U) N D0 S D0=$P(V,U,D),X=$P(^PSDRUG(D0,0),U) X DICMX Q:'$D(D)
|
---|
| 2493 | "^DD",176.001,176.001,50,"DT")
|
---|
| 2494 | 3130410
|
---|
| 2495 | "^DD",176.002,176.002,0)
|
---|
| 2496 | FIELD^^.13^13
|
---|
| 2497 | "^DD",176.002,176.002,0,"DIK")
|
---|
| 2498 | C0CRXN2
|
---|
| 2499 | "^DD",176.002,176.002,0,"DIKOLD")
|
---|
| 2500 | C0CRXN2
|
---|
| 2501 | "^DD",176.002,176.002,0,"DT")
|
---|
| 2502 | 3130301
|
---|
| 2503 | "^DD",176.002,176.002,0,"ID",.1)
|
---|
| 2504 | W " ",$P(^(0),U,10)
|
---|
| 2505 | "^DD",176.002,176.002,0,"ID",.11)
|
---|
| 2506 | W " ",$P(^(0),U,11)
|
---|
| 2507 | "^DD",176.002,176.002,0,"IX","XATN",176.002,.01)
|
---|
| 2508 |
|
---|
| 2509 | "^DD",176.002,176.002,0,"IX","XATV",176.002,.11)
|
---|
| 2510 |
|
---|
| 2511 | "^DD",176.002,176.002,0,"NM","RXNORM SIMPLE CONCEPT AND ATOM ATTRIBUTES")
|
---|
| 2512 |
|
---|
| 2513 | "^DD",176.002,176.002,0,"VRPK")
|
---|
| 2514 | RXNORM FOR VISTA
|
---|
| 2515 | "^DD",176.002,176.002,.01,0)
|
---|
| 2516 | ATN^RFJ1000^^0;1^K:$L(X)>1000!($L(X)<1)!'(X'?1P.E) X
|
---|
| 2517 | "^DD",176.002,176.002,.01,1,0)
|
---|
| 2518 | ^.1
|
---|
| 2519 | "^DD",176.002,176.002,.01,1,1,0)
|
---|
| 2520 | 176.002^XATN
|
---|
| 2521 | "^DD",176.002,176.002,.01,1,1,1)
|
---|
| 2522 | S ^C0CRXN(176.002,"XATN",$E(X,1,30),DA)=""
|
---|
| 2523 | "^DD",176.002,176.002,.01,1,1,2)
|
---|
| 2524 | K ^C0CRXN(176.002,"XATN",$E(X,1,30),DA)
|
---|
| 2525 | "^DD",176.002,176.002,.01,1,1,3)
|
---|
| 2526 | ATN INDEX
|
---|
| 2527 | "^DD",176.002,176.002,.01,1,1,"DT")
|
---|
| 2528 | 3130301
|
---|
| 2529 | "^DD",176.002,176.002,.01,3)
|
---|
| 2530 | Answer must be 1-1000 characters in length.
|
---|
| 2531 | "^DD",176.002,176.002,.01,21,0)
|
---|
| 2532 | ^^2^2^3130301^^
|
---|
| 2533 | "^DD",176.002,176.002,.01,21,1,0)
|
---|
| 2534 | Attribute name. Possible values appear in RXNDOC.RRF and are described on
|
---|
| 2535 | "^DD",176.002,176.002,.01,21,2,0)
|
---|
| 2536 | the UMLS Attribute Names page.
|
---|
| 2537 | "^DD",176.002,176.002,.01,"DT")
|
---|
| 2538 | 3130307
|
---|
| 2539 | "^DD",176.002,176.002,.02,0)
|
---|
| 2540 | LUI^FJ8^^0;2^K:$L(X)>8!($L(X)<1) X
|
---|
| 2541 | "^DD",176.002,176.002,.02,3)
|
---|
| 2542 | Answer must be 1-8 characters in length.
|
---|
| 2543 | "^DD",176.002,176.002,.02,21,0)
|
---|
| 2544 | ^^1^1^3130301^^
|
---|
| 2545 | "^DD",176.002,176.002,.02,21,1,0)
|
---|
| 2546 | Unique identifier for term (no value provided)
|
---|
| 2547 | "^DD",176.002,176.002,.02,"DT")
|
---|
| 2548 | 3130301
|
---|
| 2549 | "^DD",176.002,176.002,.03,0)
|
---|
| 2550 | SUI^FJ8^^0;3^K:$L(X)>8!($L(X)<1) X
|
---|
| 2551 | "^DD",176.002,176.002,.03,3)
|
---|
| 2552 | Answer must be 1-8 characters in length.
|
---|
| 2553 | "^DD",176.002,176.002,.03,21,0)
|
---|
| 2554 | ^^1^1^3130301^
|
---|
| 2555 | "^DD",176.002,176.002,.03,21,1,0)
|
---|
| 2556 | Unique identifier for string (no value provided)
|
---|
| 2557 | "^DD",176.002,176.002,.03,"DT")
|
---|
| 2558 | 3130301
|
---|
| 2559 | "^DD",176.002,176.002,.04,0)
|
---|
| 2560 | RXAUI^FJ8^^0;4^K:$L(X)>8!($L(X)<1) X
|
---|
| 2561 | "^DD",176.002,176.002,.04,3)
|
---|
| 2562 | Answer must be 1-8 characters in length.
|
---|
| 2563 | "^DD",176.002,176.002,.04,21,0)
|
---|
| 2564 | ^^1^1^3130301^
|
---|
| 2565 | "^DD",176.002,176.002,.04,21,1,0)
|
---|
| 2566 | RxNorm atom identifier (RXAUI) or RxNorm relationship identifier (RUI).
|
---|
| 2567 | "^DD",176.002,176.002,.04,"DT")
|
---|
| 2568 | 3130301
|
---|
| 2569 | "^DD",176.002,176.002,.05,0)
|
---|
| 2570 | STYPE^FJ50^^0;5^K:$L(X)>50!($L(X)<1) X
|
---|
| 2571 | "^DD",176.002,176.002,.05,3)
|
---|
| 2572 | Answer must be 1-50 characters in length.
|
---|
| 2573 | "^DD",176.002,176.002,.05,21,0)
|
---|
| 2574 | ^^2^2^3130301^
|
---|
| 2575 | "^DD",176.002,176.002,.05,21,1,0)
|
---|
| 2576 | The name of the column in RXNCONSO.RRF or RXNREL.RRF that contains the
|
---|
| 2577 | "^DD",176.002,176.002,.05,21,2,0)
|
---|
| 2578 | identifier to which the attribute is attached, e.g., CUI, AUI.
|
---|
| 2579 | "^DD",176.002,176.002,.05,"DT")
|
---|
| 2580 | 3130301
|
---|
| 2581 | "^DD",176.002,176.002,.06,0)
|
---|
| 2582 | CODE^FJ50^^0;6^K:$L(X)>50!($L(X)<1) X
|
---|
| 2583 | "^DD",176.002,176.002,.06,3)
|
---|
| 2584 | Answer must be 1-50 characters in length.
|
---|
| 2585 | "^DD",176.002,176.002,.06,21,0)
|
---|
| 2586 | ^^2^2^3130301^^
|
---|
| 2587 | "^DD",176.002,176.002,.06,21,1,0)
|
---|
| 2588 | "Most useful" source asserted identifier (if the source vocabulary
|
---|
| 2589 | "^DD",176.002,176.002,.06,21,2,0)
|
---|
| 2590 | contains more than one).
|
---|
| 2591 | "^DD",176.002,176.002,.06,"DT")
|
---|
| 2592 | 3130301
|
---|
| 2593 | "^DD",176.002,176.002,.07,0)
|
---|
| 2594 | ATUI^FJ11^^0;7^K:$L(X)>11!($L(X)<1) X
|
---|
| 2595 | "^DD",176.002,176.002,.07,3)
|
---|
| 2596 | Answer must be 1-11 characters in length.
|
---|
| 2597 | "^DD",176.002,176.002,.07,21,0)
|
---|
| 2598 | ^^1^1^3130301^
|
---|
| 2599 | "^DD",176.002,176.002,.07,21,1,0)
|
---|
| 2600 | Unique identifier for attribute.
|
---|
| 2601 | "^DD",176.002,176.002,.07,"DT")
|
---|
| 2602 | 3130301
|
---|
| 2603 | "^DD",176.002,176.002,.08,0)
|
---|
| 2604 | SATUI^FJ50^^0;8^K:$L(X)>50!($L(X)<1) X
|
---|
| 2605 | "^DD",176.002,176.002,.08,3)
|
---|
| 2606 | Answer must be 1-50 characters in length.
|
---|
| 2607 | "^DD",176.002,176.002,.08,21,0)
|
---|
| 2608 | ^^1^1^3130301^
|
---|
| 2609 | "^DD",176.002,176.002,.08,21,1,0)
|
---|
| 2610 | Source asserted attribute identifier (optional - present if it exists).
|
---|
| 2611 | "^DD",176.002,176.002,.08,"DT")
|
---|
| 2612 | 3130301
|
---|
| 2613 | "^DD",176.002,176.002,.09,0)
|
---|
| 2614 | RXCUI^FJ8^^0;9^K:$L(X)>8!($L(X)<1) X
|
---|
| 2615 | "^DD",176.002,176.002,.09,3)
|
---|
| 2616 | Answer must be 1-8 characters in length.
|
---|
| 2617 | "^DD",176.002,176.002,.09,21,0)
|
---|
| 2618 | ^^1^1^3130301^
|
---|
| 2619 | "^DD",176.002,176.002,.09,21,1,0)
|
---|
| 2620 | Unique identifier for concept (concept id).
|
---|
| 2621 | "^DD",176.002,176.002,.09,"DT")
|
---|
| 2622 | 3130307
|
---|
| 2623 | "^DD",176.002,176.002,.1,0)
|
---|
| 2624 | SAB^RFJ20^^0;10^K:$L(X)>20!($L(X)<1) X
|
---|
| 2625 | "^DD",176.002,176.002,.1,3)
|
---|
| 2626 | Answer must be 1-20 characters in length.
|
---|
| 2627 | "^DD",176.002,176.002,.1,21,0)
|
---|
| 2628 | ^^2^2^3130301^
|
---|
| 2629 | "^DD",176.002,176.002,.1,21,1,0)
|
---|
| 2630 | Abbreviation of the source of the attribute. Possible values appear in
|
---|
| 2631 | "^DD",176.002,176.002,.1,21,2,0)
|
---|
| 2632 | RXNSAB.RRF and are listed on the UMLS Source Vocabularies page.
|
---|
| 2633 | "^DD",176.002,176.002,.1,"DT")
|
---|
| 2634 | 3130307
|
---|
| 2635 | "^DD",176.002,176.002,.11,0)
|
---|
| 2636 | ATV^FJ4000^^0;11^K:$L(X)>4000!($L(X)<1) X
|
---|
| 2637 | "^DD",176.002,176.002,.11,1,0)
|
---|
| 2638 | ^.1
|
---|
| 2639 | "^DD",176.002,176.002,.11,1,1,0)
|
---|
| 2640 | 176.002^XATV
|
---|
| 2641 | "^DD",176.002,176.002,.11,1,1,1)
|
---|
| 2642 | S ^C0CRXN(176.002,"XATV",$E(X,1,30),DA)=""
|
---|
| 2643 | "^DD",176.002,176.002,.11,1,1,2)
|
---|
| 2644 | K ^C0CRXN(176.002,"XATV",$E(X,1,30),DA)
|
---|
| 2645 | "^DD",176.002,176.002,.11,1,1,3)
|
---|
| 2646 | ATV INDEX
|
---|
| 2647 | "^DD",176.002,176.002,.11,1,1,"DT")
|
---|
| 2648 | 3130301
|
---|
| 2649 | "^DD",176.002,176.002,.11,3)
|
---|
| 2650 | Answer must be 1-4000 characters in length.
|
---|
| 2651 | "^DD",176.002,176.002,.11,21,0)
|
---|
| 2652 | ^^4^4^3130301^
|
---|
| 2653 | "^DD",176.002,176.002,.11,21,1,0)
|
---|
| 2654 | Attribute value described under specific attribute name on the UMLS
|
---|
| 2655 | "^DD",176.002,176.002,.11,21,2,0)
|
---|
| 2656 | Attribute Names page. A few attribute values exceed 1,000 characters.
|
---|
| 2657 | "^DD",176.002,176.002,.11,21,3,0)
|
---|
| 2658 | Many of the abbreviations used in attribute values are explained in
|
---|
| 2659 | "^DD",176.002,176.002,.11,21,4,0)
|
---|
| 2660 | RXNDOC.RRF and included UMLS Abbreviations Used in Data Elements page.
|
---|
| 2661 | "^DD",176.002,176.002,.11,"DT")
|
---|
| 2662 | 3130307
|
---|
| 2663 | "^DD",176.002,176.002,.12,0)
|
---|
| 2664 | SUPPRESS^FJ1^^0;12^K:$L(X)>1!($L(X)<1) X
|
---|
| 2665 | "^DD",176.002,176.002,.12,3)
|
---|
| 2666 | Answer must be 1 character in length.
|
---|
| 2667 | "^DD",176.002,176.002,.12,21,0)
|
---|
| 2668 | ^^3^3^3130301^
|
---|
| 2669 | "^DD",176.002,176.002,.12,21,1,0)
|
---|
| 2670 | Suppressible flag. Values = O, Y, or N. Reflects the suppressible status
|
---|
| 2671 | "^DD",176.002,176.002,.12,21,2,0)
|
---|
| 2672 | of the attribute. N - Attribute is not suppressed. O - Attribute is
|
---|
| 2673 | "^DD",176.002,176.002,.12,21,3,0)
|
---|
| 2674 | suppressed at source level. Y - Attribute is suppressed by RxNorm editors.
|
---|
| 2675 | "^DD",176.002,176.002,.12,"DT")
|
---|
| 2676 | 3130301
|
---|
| 2677 | "^DD",176.002,176.002,.13,0)
|
---|
| 2678 | CVF^FJ50^^0;13^K:$L(X)>50!($L(X)<1) X
|
---|
| 2679 | "^DD",176.002,176.002,.13,3)
|
---|
| 2680 | Answer must be 1-50 characters in length.
|
---|
| 2681 | "^DD",176.002,176.002,.13,21,0)
|
---|
| 2682 | ^^1^1^3130301^
|
---|
| 2683 | "^DD",176.002,176.002,.13,21,1,0)
|
---|
| 2684 | Content view flag
|
---|
| 2685 | "^DD",176.002,176.002,.13,"DT")
|
---|
| 2686 | 3130301
|
---|
| 2687 | "^DD",176.003,176.003,0)
|
---|
| 2688 | FIELD^^.25^25
|
---|
| 2689 | "^DD",176.003,176.003,0,"DT")
|
---|
| 2690 | 3130301
|
---|
| 2691 | "^DD",176.003,176.003,0,"ID",.05)
|
---|
| 2692 | W " ",$P(^(0),U,5)
|
---|
| 2693 | "^DD",176.003,176.003,0,"ID",.14)
|
---|
| 2694 | W " ",$P(^(0),U,14)
|
---|
| 2695 | "^DD",176.003,176.003,0,"IX","B",176.003,.01)
|
---|
| 2696 |
|
---|
| 2697 | "^DD",176.003,176.003,0,"NM","RXNORM SOURCE INFORMATION")
|
---|
| 2698 |
|
---|
| 2699 | "^DD",176.003,176.003,0,"VRPK")
|
---|
| 2700 | RXNORM FOR VISTA
|
---|
| 2701 | "^DD",176.003,176.003,.01,0)
|
---|
| 2702 | RSAB^RFJ20^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X
|
---|
| 2703 | "^DD",176.003,176.003,.01,.1)
|
---|
| 2704 | ROOT SOURCE ABBREVIATION
|
---|
| 2705 | "^DD",176.003,176.003,.01,1,0)
|
---|
| 2706 | ^.1
|
---|
| 2707 | "^DD",176.003,176.003,.01,1,1,0)
|
---|
| 2708 | 176.003^B
|
---|
| 2709 | "^DD",176.003,176.003,.01,1,1,1)
|
---|
| 2710 | S ^C0CRXN(176.003,"B",$E(X,1,30),DA)=""
|
---|
| 2711 | "^DD",176.003,176.003,.01,1,1,2)
|
---|
| 2712 | K ^C0CRXN(176.003,"B",$E(X,1,30),DA)
|
---|
| 2713 | "^DD",176.003,176.003,.01,3)
|
---|
| 2714 | Answer must be 1-20 characters in length.
|
---|
| 2715 | "^DD",176.003,176.003,.01,21,0)
|
---|
| 2716 | ^^1^1^3130301^
|
---|
| 2717 | "^DD",176.003,176.003,.01,21,1,0)
|
---|
| 2718 | The root source abbreviation, for a source e.g. NDDF
|
---|
| 2719 | "^DD",176.003,176.003,.01,"DT")
|
---|
| 2720 | 3130301
|
---|
| 2721 | "^DD",176.003,176.003,.02,0)
|
---|
| 2722 | RCUI^FJ8^^0;2^K:$L(X)>8!($L(X)<1) X
|
---|
| 2723 | "^DD",176.003,176.003,.02,.1)
|
---|
| 2724 | ROOT CUI
|
---|
| 2725 | "^DD",176.003,176.003,.02,3)
|
---|
| 2726 | Answer must be 1-8 characters in length.
|
---|
| 2727 | "^DD",176.003,176.003,.02,21,0)
|
---|
| 2728 | ^^1^1^3130301^
|
---|
| 2729 | "^DD",176.003,176.003,.02,21,1,0)
|
---|
| 2730 | CUI of the root SRC concept for a source
|
---|
| 2731 | "^DD",176.003,176.003,.02,"DT")
|
---|
| 2732 | 3130301
|
---|
| 2733 | "^DD",176.003,176.003,.03,0)
|
---|
| 2734 | VSAB^FJ40^^0;3^K:$L(X)>40!($L(X)<1) X
|
---|
| 2735 | "^DD",176.003,176.003,.03,.1)
|
---|
| 2736 | VERSIONED SOURCE ABBREVIATION
|
---|
| 2737 | "^DD",176.003,176.003,.03,3)
|
---|
| 2738 | Answer must be 1-20 characters in length.
|
---|
| 2739 | "^DD",176.003,176.003,.03,21,0)
|
---|
| 2740 | ^^1^1^3130301^
|
---|
| 2741 | "^DD",176.003,176.003,.03,21,1,0)
|
---|
| 2742 | The versioned source abbreviation for a source, e.g., NDDF_2004_11_03
|
---|
| 2743 | "^DD",176.003,176.003,.03,"DT")
|
---|
| 2744 | 3130301
|
---|
| 2745 | "^DD",176.003,176.003,.04,0)
|
---|
| 2746 | VCUI^FJ8^^0;4^K:$L(X)>8!($L(X)<1) X
|
---|
| 2747 | "^DD",176.003,176.003,.04,.1)
|
---|
| 2748 | CUI
|
---|
| 2749 | "^DD",176.003,176.003,.04,3)
|
---|
| 2750 | Answer must be 1-8 characters in length.
|
---|
| 2751 | "^DD",176.003,176.003,.04,21,0)
|
---|
| 2752 | ^^1^1^3130301^
|
---|
| 2753 | "^DD",176.003,176.003,.04,21,1,0)
|
---|
| 2754 | CUI of the versioned SRC concept for a source
|
---|
| 2755 | "^DD",176.003,176.003,.04,"DT")
|
---|
| 2756 | 3130301
|
---|
| 2757 | "^DD",176.003,176.003,.05,0)
|
---|
| 2758 | SON^FJ3000^^0;5^K:$L(X)>3000!($L(X)<1) X
|
---|
| 2759 | "^DD",176.003,176.003,.05,.1)
|
---|
| 2760 | OFFICIAL NAME
|
---|
| 2761 | "^DD",176.003,176.003,.05,3)
|
---|
| 2762 | Answer must be 1-3000 characters in length.
|
---|
| 2763 | "^DD",176.003,176.003,.05,21,0)
|
---|
| 2764 | ^^1^1^3130301^^
|
---|
| 2765 | "^DD",176.003,176.003,.05,21,1,0)
|
---|
| 2766 | The official name for a source
|
---|
| 2767 | "^DD",176.003,176.003,.05,"DT")
|
---|
| 2768 | 3130301
|
---|
| 2769 | "^DD",176.003,176.003,.06,0)
|
---|
| 2770 | SF^FJ20^^0;6^K:$L(X)>20!($L(X)<1) X
|
---|
| 2771 | "^DD",176.003,176.003,.06,.1)
|
---|
| 2772 | SOURCE FAMILY
|
---|
| 2773 | "^DD",176.003,176.003,.06,3)
|
---|
| 2774 | Answer must be 1-20 characters in length.
|
---|
| 2775 | "^DD",176.003,176.003,.06,21,0)
|
---|
| 2776 | ^^1^1^3130301^
|
---|
| 2777 | "^DD",176.003,176.003,.06,21,1,0)
|
---|
| 2778 | The Source Family for a source
|
---|
| 2779 | "^DD",176.003,176.003,.06,"DT")
|
---|
| 2780 | 3130301
|
---|
| 2781 | "^DD",176.003,176.003,.07,0)
|
---|
| 2782 | SVER^FJ20^^0;7^K:$L(X)>20!($L(X)<1) X
|
---|
| 2783 | "^DD",176.003,176.003,.07,.1)
|
---|
| 2784 | VERSION
|
---|
| 2785 | "^DD",176.003,176.003,.07,3)
|
---|
| 2786 | Answer must be 1-20 characters in length.
|
---|
| 2787 | "^DD",176.003,176.003,.07,21,0)
|
---|
| 2788 | ^^1^1^3130301^
|
---|
| 2789 | "^DD",176.003,176.003,.07,21,1,0)
|
---|
| 2790 | The source version, e.g., 2001
|
---|
| 2791 | "^DD",176.003,176.003,.07,"DT")
|
---|
| 2792 | 3130301
|
---|
| 2793 | "^DD",176.003,176.003,.08,0)
|
---|
| 2794 | VSTART^FJ10^^0;8^K:$L(X)>10!($L(X)<1) X
|
---|
| 2795 | "^DD",176.003,176.003,.08,.1)
|
---|
| 2796 | META START DATE
|
---|
| 2797 | "^DD",176.003,176.003,.08,3)
|
---|
| 2798 | Answer must be 1-10 characters in length.
|
---|
| 2799 | "^DD",176.003,176.003,.08,21,0)
|
---|
| 2800 | ^^1^1^3130301^
|
---|
| 2801 | "^DD",176.003,176.003,.08,21,1,0)
|
---|
| 2802 | The date a source became active, e.g., 2001_04_03
|
---|
| 2803 | "^DD",176.003,176.003,.08,"DT")
|
---|
| 2804 | 3130301
|
---|
| 2805 | "^DD",176.003,176.003,.09,0)
|
---|
| 2806 | VEND^FJ10^^0;9^K:$L(X)>10!($L(X)<1) X
|
---|
| 2807 | "^DD",176.003,176.003,.09,.1)
|
---|
| 2808 | META END DATE
|
---|
| 2809 | "^DD",176.003,176.003,.09,3)
|
---|
| 2810 | Answer must be 1-10 characters in length.
|
---|
| 2811 | "^DD",176.003,176.003,.09,21,0)
|
---|
| 2812 | ^^1^1^3130301^
|
---|
| 2813 | "^DD",176.003,176.003,.09,21,1,0)
|
---|
| 2814 | The date a source ceased to be active, e.g., 2001_05_10
|
---|
| 2815 | "^DD",176.003,176.003,.09,"DT")
|
---|
| 2816 | 3130301
|
---|
| 2817 | "^DD",176.003,176.003,.1,0)
|
---|
| 2818 | IMETA^FJ10^^0;10^K:$L(X)>10!($L(X)<1) X
|
---|
| 2819 | "^DD",176.003,176.003,.1,.1)
|
---|
| 2820 | META INSERT VERSION
|
---|
| 2821 | "^DD",176.003,176.003,.1,3)
|
---|
| 2822 | Answer must be 1-10 characters in length.
|
---|
| 2823 | "^DD",176.003,176.003,.1,21,0)
|
---|
| 2824 | ^^1^1^3130301^^
|
---|
| 2825 | "^DD",176.003,176.003,.1,21,1,0)
|
---|
| 2826 | The version of the Metathesaurus a source first appeared, e.g., 2001AB
|
---|
| 2827 | "^DD",176.003,176.003,.1,"DT")
|
---|
| 2828 | 3130301
|
---|
| 2829 | "^DD",176.003,176.003,.11,0)
|
---|
| 2830 | RMETA^FJ10^^0;11^K:$L(X)>10!($L(X)<1) X
|
---|
| 2831 | "^DD",176.003,176.003,.11,.1)
|
---|
| 2832 | META REMOVE VERSION
|
---|
| 2833 | "^DD",176.003,176.003,.11,3)
|
---|
| 2834 | Answer must be 1-10 characters in length.
|
---|
| 2835 | "^DD",176.003,176.003,.11,21,0)
|
---|
| 2836 | ^^1^1^3130301^
|
---|
| 2837 | "^DD",176.003,176.003,.11,21,1,0)
|
---|
| 2838 | The version of the Metathesaurus a source was removed, e.g., 2001AC
|
---|
| 2839 | "^DD",176.003,176.003,.11,"DT")
|
---|
| 2840 | 3130301
|
---|
| 2841 | "^DD",176.003,176.003,.12,0)
|
---|
| 2842 | SLC^FJ1000^^0;12^K:$L(X)>1000!($L(X)<1) X
|
---|
| 2843 | "^DD",176.003,176.003,.12,.1)
|
---|
| 2844 | SOURCE LICENSE CONTACT
|
---|
| 2845 | "^DD",176.003,176.003,.12,3)
|
---|
| 2846 | Answer must be 1-1000 characters in length.
|
---|
| 2847 | "^DD",176.003,176.003,.12,21,0)
|
---|
| 2848 | ^^4^4^3130301^
|
---|
| 2849 | "^DD",176.003,176.003,.12,21,1,0)
|
---|
| 2850 | The source license contact information. A semi-colon separated list
|
---|
| 2851 | "^DD",176.003,176.003,.12,21,2,0)
|
---|
| 2852 | containing the following fields: Name; Title; Organization; Address 1;
|
---|
| 2853 | "^DD",176.003,176.003,.12,21,3,0)
|
---|
| 2854 | Address 2; City; State or Province; Country; Zip or Postal Code;
|
---|
| 2855 | "^DD",176.003,176.003,.12,21,4,0)
|
---|
| 2856 | Telephone; Contact Fax; Email; URL
|
---|
| 2857 | "^DD",176.003,176.003,.12,"DT")
|
---|
| 2858 | 3130301
|
---|
| 2859 | "^DD",176.003,176.003,.13,0)
|
---|
| 2860 | SCC^FJ1000^^0;13^K:$L(X)>1000!($L(X)<1) X
|
---|
| 2861 | "^DD",176.003,176.003,.13,.1)
|
---|
| 2862 | SOURCE CONTENT CONTACT
|
---|
| 2863 | "^DD",176.003,176.003,.13,3)
|
---|
| 2864 | Answer must be 1-1000 characters in length.
|
---|
| 2865 | "^DD",176.003,176.003,.13,21,0)
|
---|
| 2866 | ^^4^4^3130301^
|
---|
| 2867 | "^DD",176.003,176.003,.13,21,1,0)
|
---|
| 2868 | The source content contact information. A semi-colon separated list
|
---|
| 2869 | "^DD",176.003,176.003,.13,21,2,0)
|
---|
| 2870 | containing the following fields: Name; Title; Organization; Address 1;
|
---|
| 2871 | "^DD",176.003,176.003,.13,21,3,0)
|
---|
| 2872 | Address 2; City; State or Province; Country; Zip or Postal Code;
|
---|
| 2873 | "^DD",176.003,176.003,.13,21,4,0)
|
---|
| 2874 | Telephone; Contact Fax; Email; URL
|
---|
| 2875 | "^DD",176.003,176.003,.13,"DT")
|
---|
| 2876 | 3130301
|
---|
| 2877 | "^DD",176.003,176.003,.14,0)
|
---|
| 2878 | SRL^NJ10,0^^0;14^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
|
---|
| 2879 | "^DD",176.003,176.003,.14,.1)
|
---|
| 2880 | SOURCE RESTRICTION LEVEL
|
---|
| 2881 | "^DD",176.003,176.003,.14,3)
|
---|
| 2882 | Type a number between 0 and 9999999999, 0 decimal digits.
|
---|
| 2883 | "^DD",176.003,176.003,.14,21,0)
|
---|
| 2884 | ^^1^1^3130301^
|
---|
| 2885 | "^DD",176.003,176.003,.14,21,1,0)
|
---|
| 2886 | 0,1,2,3,4 - explained in the License Agreement.
|
---|
| 2887 | "^DD",176.003,176.003,.14,"DT")
|
---|
| 2888 | 3130301
|
---|
| 2889 | "^DD",176.003,176.003,.15,0)
|
---|
| 2890 | TFR^NJ10,0^^0;15^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
|
---|
| 2891 | "^DD",176.003,176.003,.15,.1)
|
---|
| 2892 | TERM FREQUENCY
|
---|
| 2893 | "^DD",176.003,176.003,.15,3)
|
---|
| 2894 | Type a number between 0 and 9999999999, 0 decimal digits.
|
---|
| 2895 | "^DD",176.003,176.003,.15,21,0)
|
---|
| 2896 | ^^2^2^3130301^
|
---|
| 2897 | "^DD",176.003,176.003,.15,21,1,0)
|
---|
| 2898 | The number of terms for this source in RXNCONSO.RRF, e.g., 12343 (not
|
---|
| 2899 | "^DD",176.003,176.003,.15,21,2,0)
|
---|
| 2900 | implemented yet)
|
---|
| 2901 | "^DD",176.003,176.003,.15,"DT")
|
---|
| 2902 | 3130301
|
---|
| 2903 | "^DD",176.003,176.003,.16,0)
|
---|
| 2904 | CFR^NJ10,0^^0;16^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
|
---|
| 2905 | "^DD",176.003,176.003,.16,.1)
|
---|
| 2906 | CUI FREQUENCY
|
---|
| 2907 | "^DD",176.003,176.003,.16,3)
|
---|
| 2908 | Type a number between 0 and 9999999999, 0 decimal digits.
|
---|
| 2909 | "^DD",176.003,176.003,.16,21,0)
|
---|
| 2910 | ^^2^2^3130301^
|
---|
| 2911 | "^DD",176.003,176.003,.16,21,1,0)
|
---|
| 2912 | The number of CUIs associated with this source, e.g., 10234 (not
|
---|
| 2913 | "^DD",176.003,176.003,.16,21,2,0)
|
---|
| 2914 | implemented yet)
|
---|
| 2915 | "^DD",176.003,176.003,.16,"DT")
|
---|
| 2916 | 3130301
|
---|
| 2917 | "^DD",176.003,176.003,.17,0)
|
---|
| 2918 | CXTY^FJ50^^0;17^K:$L(X)>50!($L(X)<1) X
|
---|
| 2919 | "^DD",176.003,176.003,.17,.1)
|
---|
| 2920 | CONTEXT TYPE
|
---|
| 2921 | "^DD",176.003,176.003,.17,3)
|
---|
| 2922 | Answer must be 1-50 characters in length.
|
---|
| 2923 | "^DD",176.003,176.003,.17,21,0)
|
---|
| 2924 | ^^1^1^3130301^
|
---|
| 2925 | "^DD",176.003,176.003,.17,21,1,0)
|
---|
| 2926 | The type of relationship label (Section 2.4.2 of UMLS Reference Manual)
|
---|
| 2927 | "^DD",176.003,176.003,.17,"DT")
|
---|
| 2928 | 3130301
|
---|
| 2929 | "^DD",176.003,176.003,.18,0)
|
---|
| 2930 | TTYL^FJ300^^0;18^K:$L(X)>300!($L(X)<1) X
|
---|
| 2931 | "^DD",176.003,176.003,.18,.1)
|
---|
| 2932 | TERM TYPE LIST
|
---|
| 2933 | "^DD",176.003,176.003,.18,3)
|
---|
| 2934 | Answer must be 1-300 characters in length.
|
---|
| 2935 | "^DD",176.003,176.003,.18,21,0)
|
---|
| 2936 | ^^1^1^3130301^
|
---|
| 2937 | "^DD",176.003,176.003,.18,21,1,0)
|
---|
| 2938 | Term type list from source, e.g., MH,EN,PM,TQ
|
---|
| 2939 | "^DD",176.003,176.003,.18,"DT")
|
---|
| 2940 | 3130301
|
---|
| 2941 | "^DD",176.003,176.003,.19,0)
|
---|
| 2942 | ATNL^FJ1000^^0;19^K:$L(X)>1000!($L(X)<1) X
|
---|
| 2943 | "^DD",176.003,176.003,.19,.1)
|
---|
| 2944 | ATTRIBUTE NAME LIST
|
---|
| 2945 | "^DD",176.003,176.003,.19,3)
|
---|
| 2946 | Answer must be 1-1000 characters in length.
|
---|
| 2947 | "^DD",176.003,176.003,.19,21,0)
|
---|
| 2948 | ^^1^1^3130301^
|
---|
| 2949 | "^DD",176.003,176.003,.19,21,1,0)
|
---|
| 2950 | The attribute name list, e.g., MUI,RN,TH,...
|
---|
| 2951 | "^DD",176.003,176.003,.19,"DT")
|
---|
| 2952 | 3130301
|
---|
| 2953 | "^DD",176.003,176.003,.2,0)
|
---|
| 2954 | LAT^FJ3^^0;20^K:$L(X)>3!($L(X)<1) X
|
---|
| 2955 | "^DD",176.003,176.003,.2,.1)
|
---|
| 2956 | LANGUAGE
|
---|
| 2957 | "^DD",176.003,176.003,.2,3)
|
---|
| 2958 | Answer must be 1-3 characters in length.
|
---|
| 2959 | "^DD",176.003,176.003,.2,21,0)
|
---|
| 2960 | ^^1^1^3130301^
|
---|
| 2961 | "^DD",176.003,176.003,.2,21,1,0)
|
---|
| 2962 | The language of the terms in the source
|
---|
| 2963 | "^DD",176.003,176.003,.2,"DT")
|
---|
| 2964 | 3130301
|
---|
| 2965 | "^DD",176.003,176.003,.21,0)
|
---|
| 2966 | CENC^FJ20^^0;21^K:$L(X)>20!($L(X)<1) X
|
---|
| 2967 | "^DD",176.003,176.003,.21,.1)
|
---|
| 2968 | CHARACTER ENCODING
|
---|
| 2969 | "^DD",176.003,176.003,.21,3)
|
---|
| 2970 | Answer must be 1-20 characters in length.
|
---|
| 2971 | "^DD",176.003,176.003,.21,21,0)
|
---|
| 2972 | ^^2^2^3130301^
|
---|
| 2973 | "^DD",176.003,176.003,.21,21,1,0)
|
---|
| 2974 | Character set as specified by the IANA official names for character
|
---|
| 2975 | "^DD",176.003,176.003,.21,21,2,0)
|
---|
| 2976 | assignments http://www.iana.org/assignments/character-sets
|
---|
| 2977 | "^DD",176.003,176.003,.21,"DT")
|
---|
| 2978 | 3130301
|
---|
| 2979 | "^DD",176.003,176.003,.22,0)
|
---|
| 2980 | CURVER^FJ1^^0;22^K:$L(X)>1!($L(X)<1) X
|
---|
| 2981 | "^DD",176.003,176.003,.22,.1)
|
---|
| 2982 | CURRENT VERSION
|
---|
| 2983 | "^DD",176.003,176.003,.22,3)
|
---|
| 2984 | Answer must be 1 character in length.
|
---|
| 2985 | "^DD",176.003,176.003,.22,21,0)
|
---|
| 2986 | ^^2^2^3130301^
|
---|
| 2987 | "^DD",176.003,176.003,.22,21,1,0)
|
---|
| 2988 | A Y or N flag indicating whether or not this row corresponds to the
|
---|
| 2989 | "^DD",176.003,176.003,.22,21,2,0)
|
---|
| 2990 | current version of the named source
|
---|
| 2991 | "^DD",176.003,176.003,.22,"DT")
|
---|
| 2992 | 3130301
|
---|
| 2993 | "^DD",176.003,176.003,.23,0)
|
---|
| 2994 | SABIN^FJ1^^0;23^K:$L(X)>1!($L(X)<1) X
|
---|
| 2995 | "^DD",176.003,176.003,.23,.1)
|
---|
| 2996 | SOURCE IN SUBSET
|
---|
| 2997 | "^DD",176.003,176.003,.23,3)
|
---|
| 2998 | Answer must be 1 character in length.
|
---|
| 2999 | "^DD",176.003,176.003,.23,21,0)
|
---|
| 3000 | ^^3^3^3130301^
|
---|
| 3001 | "^DD",176.003,176.003,.23,21,1,0)
|
---|
| 3002 | A Y or N flag indicating whether or not this row is represented in the
|
---|
| 3003 | "^DD",176.003,176.003,.23,21,2,0)
|
---|
| 3004 | current MetamorphoSys subset. Initially always Y where CURVER is Y, but
|
---|
| 3005 | "^DD",176.003,176.003,.23,21,3,0)
|
---|
| 3006 | later is recomputed by MetamorphoSys.
|
---|
| 3007 | "^DD",176.003,176.003,.23,"DT")
|
---|
| 3008 | 3130301
|
---|
| 3009 | "^DD",176.003,176.003,.24,0)
|
---|
| 3010 | SSN^FJ3000^^0;24^K:$L(X)>3000!($L(X)<1) X
|
---|
| 3011 | "^DD",176.003,176.003,.24,.1)
|
---|
| 3012 | SOURCE SHORT NAME
|
---|
| 3013 | "^DD",176.003,176.003,.24,3)
|
---|
| 3014 | Answer must be 1-3000 characters in length.
|
---|
| 3015 | "^DD",176.003,176.003,.24,21,0)
|
---|
| 3016 | ^^1^1^3130301^
|
---|
| 3017 | "^DD",176.003,176.003,.24,21,1,0)
|
---|
| 3018 | The short name of a source as used by the NLM Knowledge Source Server.
|
---|
| 3019 | "^DD",176.003,176.003,.24,"DT")
|
---|
| 3020 | 3130301
|
---|
| 3021 | "^DD",176.003,176.003,.25,0)
|
---|
| 3022 | SCIT^FJ4000^^0;25^K:$L(X)>4000!($L(X)<1) X
|
---|
| 3023 | "^DD",176.003,176.003,.25,.1)
|
---|
| 3024 | SOURCE CITATION
|
---|
| 3025 | "^DD",176.003,176.003,.25,3)
|
---|
| 3026 | Answer must be 1-4000 characters in length.
|
---|
| 3027 | "^DD",176.003,176.003,.25,21,0)
|
---|
| 3028 | ^^6^6^3130301^
|
---|
| 3029 | "^DD",176.003,176.003,.25,21,1,0)
|
---|
| 3030 | Citation information for a source. A semi-colon separated list containing
|
---|
| 3031 | "^DD",176.003,176.003,.25,21,2,0)
|
---|
| 3032 | the following fields: Author(s); Author(s) address; Author(s)
|
---|
| 3033 | "^DD",176.003,176.003,.25,21,3,0)
|
---|
| 3034 | organization; Editor(s); Title; Content Designator; Medium Designator;
|
---|
| 3035 | "^DD",176.003,176.003,.25,21,4,0)
|
---|
| 3036 | Edition; Place of Publication; Publisher; Date of Publication/copyright;
|
---|
| 3037 | "^DD",176.003,176.003,.25,21,5,0)
|
---|
| 3038 | Date of revision; Location; Extent; Series; Availability Statement (URL);
|
---|
| 3039 | "^DD",176.003,176.003,.25,21,6,0)
|
---|
| 3040 | Language; Notes
|
---|
| 3041 | "^DD",176.003,176.003,.25,"DT")
|
---|
| 3042 | 3130301
|
---|
| 3043 | "^DD",176.004,176.004,0)
|
---|
| 3044 | FIELD^^.06^6
|
---|
| 3045 | "^DD",176.004,176.004,0,"DIK")
|
---|
| 3046 | C0CRXN4
|
---|
| 3047 | "^DD",176.004,176.004,0,"DIKOLD")
|
---|
| 3048 | C0CRXN4
|
---|
| 3049 | "^DD",176.004,176.004,0,"DT")
|
---|
| 3050 | 3130301
|
---|
| 3051 | "^DD",176.004,176.004,0,"ID",.02)
|
---|
| 3052 | W " ",$P(^(0),U,2)
|
---|
| 3053 | "^DD",176.004,176.004,0,"ID",.03)
|
---|
| 3054 | W " ",$P(^(0),U,3)
|
---|
| 3055 | "^DD",176.004,176.004,0,"ID",.04)
|
---|
| 3056 | W " ",$P(^(0),U,4)
|
---|
| 3057 | "^DD",176.004,176.004,0,"IX","B",176.004,.01)
|
---|
| 3058 |
|
---|
| 3059 | "^DD",176.004,176.004,0,"NM","RXNORM SEMANTIC TYPES")
|
---|
| 3060 |
|
---|
| 3061 | "^DD",176.004,176.004,0,"VRPK")
|
---|
| 3062 | RXNORM FOR VISTA
|
---|
| 3063 | "^DD",176.004,176.004,.01,0)
|
---|
| 3064 | RXNCUI^RFJ8^^0;1^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X
|
---|
| 3065 | "^DD",176.004,176.004,.01,1,0)
|
---|
| 3066 | ^.1
|
---|
| 3067 | "^DD",176.004,176.004,.01,1,1,0)
|
---|
| 3068 | 176.004^B
|
---|
| 3069 | "^DD",176.004,176.004,.01,1,1,1)
|
---|
| 3070 | S ^C0CRXN(176.004,"B",$E(X,1,30),DA)=""
|
---|
| 3071 | "^DD",176.004,176.004,.01,1,1,2)
|
---|
| 3072 | K ^C0CRXN(176.004,"B",$E(X,1,30),DA)
|
---|
| 3073 | "^DD",176.004,176.004,.01,3)
|
---|
| 3074 | Answer must be 1-8 characters in length.
|
---|
| 3075 | "^DD",176.004,176.004,.01,21,0)
|
---|
| 3076 | ^^1^1^3130301^
|
---|
| 3077 | "^DD",176.004,176.004,.01,21,1,0)
|
---|
| 3078 | Unique identifier of concept (concept id)
|
---|
| 3079 | "^DD",176.004,176.004,.01,"DT")
|
---|
| 3080 | 3130301
|
---|
| 3081 | "^DD",176.004,176.004,.02,0)
|
---|
| 3082 | TUI^FJ4^^0;2^K:$L(X)>4!($L(X)<1) X
|
---|
| 3083 | "^DD",176.004,176.004,.02,3)
|
---|
| 3084 | Answer must be 1-4 characters in length.
|
---|
| 3085 | "^DD",176.004,176.004,.02,21,0)
|
---|
| 3086 | ^^1^1^3130301^
|
---|
| 3087 | "^DD",176.004,176.004,.02,21,1,0)
|
---|
| 3088 | Unique identifier of Semantic Type
|
---|
| 3089 | "^DD",176.004,176.004,.02,"DT")
|
---|
| 3090 | 3130301
|
---|
| 3091 | "^DD",176.004,176.004,.03,0)
|
---|
| 3092 | STN^FJ100^^0;3^K:$L(X)>100!($L(X)<1) X
|
---|
| 3093 | "^DD",176.004,176.004,.03,3)
|
---|
| 3094 | Answer must be 1-100 characters in length.
|
---|
| 3095 | "^DD",176.004,176.004,.03,21,0)
|
---|
| 3096 | ^^1^1^3130301^
|
---|
| 3097 | "^DD",176.004,176.004,.03,21,1,0)
|
---|
| 3098 | Semantic Type tree number
|
---|
| 3099 | "^DD",176.004,176.004,.03,"DT")
|
---|
| 3100 | 3130301
|
---|
| 3101 | "^DD",176.004,176.004,.04,0)
|
---|
| 3102 | STY^FJ50^^0;4^K:$L(X)>50!($L(X)<1) X
|
---|
| 3103 | "^DD",176.004,176.004,.04,3)
|
---|
| 3104 | Answer must be 1-50 characters in length.
|
---|
| 3105 | "^DD",176.004,176.004,.04,21,0)
|
---|
| 3106 | ^^1^1^3130301^
|
---|
| 3107 | "^DD",176.004,176.004,.04,21,1,0)
|
---|
| 3108 | Semantic Type. The valid values are defined in the Semantic Network.
|
---|
| 3109 | "^DD",176.004,176.004,.04,"DT")
|
---|
| 3110 | 3130301
|
---|
| 3111 | "^DD",176.004,176.004,.05,0)
|
---|
| 3112 | ATUI^FJ11^^0;5^K:$L(X)>11!($L(X)<1) X
|
---|
| 3113 | "^DD",176.004,176.004,.05,3)
|
---|
| 3114 | Answer must be 1-11 characters in length.
|
---|
| 3115 | "^DD",176.004,176.004,.05,21,0)
|
---|
| 3116 | ^^1^1^3130301^
|
---|
| 3117 | "^DD",176.004,176.004,.05,21,1,0)
|
---|
| 3118 | Unique identifier for attribute
|
---|
| 3119 | "^DD",176.004,176.004,.05,"DT")
|
---|
| 3120 | 3130301
|
---|
| 3121 | "^DD",176.004,176.004,.06,0)
|
---|
| 3122 | CVF^FJ50^^0;6^K:$L(X)>50!($L(X)<1) X
|
---|
| 3123 | "^DD",176.004,176.004,.06,3)
|
---|
| 3124 | Answer must be 1-50 characters in length.
|
---|
| 3125 | "^DD",176.004,176.004,.06,21,0)
|
---|
| 3126 | ^^1^1^3130301^
|
---|
| 3127 | "^DD",176.004,176.004,.06,21,1,0)
|
---|
| 3128 | Content view flag
|
---|
| 3129 | "^DD",176.004,176.004,.06,"DT")
|
---|
| 3130 | 3130301
|
---|
| 3131 | "^DD",176.005,176.005,0)
|
---|
| 3132 | FIELD^^.16^16
|
---|
| 3133 | "^DD",176.005,176.005,0,"DIK")
|
---|
| 3134 | C0CRXN5
|
---|
| 3135 | "^DD",176.005,176.005,0,"DIKOLD")
|
---|
| 3136 | C0CRXN5
|
---|
| 3137 | "^DD",176.005,176.005,0,"DT")
|
---|
| 3138 | 3130301
|
---|
| 3139 | "^DD",176.005,176.005,0,"NM","RXNORM RELATED CONCEPTS")
|
---|
| 3140 |
|
---|
| 3141 | "^DD",176.005,176.005,0,"VRPK")
|
---|
| 3142 | RXNORM FOR VISTA
|
---|
| 3143 | "^DD",176.005,176.005,.01,0)
|
---|
| 3144 | SAB^RFJ20^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X
|
---|
| 3145 | "^DD",176.005,176.005,.01,1,0)
|
---|
| 3146 | ^.1^^0
|
---|
| 3147 | "^DD",176.005,176.005,.01,3)
|
---|
| 3148 | Answer must be 1-20 characters in length.
|
---|
| 3149 | "^DD",176.005,176.005,.01,21,0)
|
---|
| 3150 | ^^1^1^3130301^
|
---|
| 3151 | "^DD",176.005,176.005,.01,21,1,0)
|
---|
| 3152 | Abbreviation of the source of relationship
|
---|
| 3153 | "^DD",176.005,176.005,.01,"DT")
|
---|
| 3154 | 3130301
|
---|
| 3155 | "^DD",176.005,176.005,.02,0)
|
---|
| 3156 | RXAUI1^FJ8^^0;2^K:$L(X)>8!($L(X)<1) X
|
---|
| 3157 | "^DD",176.005,176.005,.02,3)
|
---|
| 3158 | Answer must be 1-8 characters in length.
|
---|
| 3159 | "^DD",176.005,176.005,.02,21,0)
|
---|
| 3160 | ^^1^1^3130301^
|
---|
| 3161 | "^DD",176.005,176.005,.02,21,1,0)
|
---|
| 3162 | Unique identifier for first atom
|
---|
| 3163 | "^DD",176.005,176.005,.02,"DT")
|
---|
| 3164 | 3130301
|
---|
| 3165 | "^DD",176.005,176.005,.03,0)
|
---|
| 3166 | STYPE1^FJ50^^0;3^K:$L(X)>50!($L(X)<1) X
|
---|
| 3167 | "^DD",176.005,176.005,.03,3)
|
---|
| 3168 | Answer must be 1-50 characters in length.
|
---|
| 3169 | "^DD",176.005,176.005,.03,21,0)
|
---|
| 3170 | ^^3^3^3130301^
|
---|
| 3171 | "^DD",176.005,176.005,.03,21,1,0)
|
---|
| 3172 | The name of the column in RXNCONSO.RRF that contains the identifier used
|
---|
| 3173 | "^DD",176.005,176.005,.03,21,2,0)
|
---|
| 3174 | for the first concept or first atom in source of the relationship (e.g.,
|
---|
| 3175 | "^DD",176.005,176.005,.03,21,3,0)
|
---|
| 3176 | 'AUI' or 'CUI').
|
---|
| 3177 | "^DD",176.005,176.005,.03,"DT")
|
---|
| 3178 | 3130301
|
---|
| 3179 | "^DD",176.005,176.005,.04,0)
|
---|
| 3180 | REL^FJ4^^0;4^K:$L(X)>4!($L(X)<1) X
|
---|
| 3181 | "^DD",176.005,176.005,.04,3)
|
---|
| 3182 | Answer must be 1-4 characters in length.
|
---|
| 3183 | "^DD",176.005,176.005,.04,21,0)
|
---|
| 3184 | ^^1^1^3130301^
|
---|
| 3185 | "^DD",176.005,176.005,.04,21,1,0)
|
---|
| 3186 | Relationship of second concept or atom to first concept or atom
|
---|
| 3187 | "^DD",176.005,176.005,.04,"DT")
|
---|
| 3188 | 3130301
|
---|
| 3189 | "^DD",176.005,176.005,.05,0)
|
---|
| 3190 | RXCUI2^FJ8^^0;5^K:$L(X)>8!($L(X)<1) X
|
---|
| 3191 | "^DD",176.005,176.005,.05,3)
|
---|
| 3192 | Answer must be 1-8 characters in length.
|
---|
| 3193 | "^DD",176.005,176.005,.05,21,0)
|
---|
| 3194 | ^^1^1^3130301^
|
---|
| 3195 | "^DD",176.005,176.005,.05,21,1,0)
|
---|
| 3196 | Unique identifier of second concept
|
---|
| 3197 | "^DD",176.005,176.005,.05,"DT")
|
---|
| 3198 | 3130301
|
---|
| 3199 | "^DD",176.005,176.005,.06,0)
|
---|
| 3200 | RXAUI2^FJ8^^0;6^K:$L(X)>8!($L(X)<1) X
|
---|
| 3201 | "^DD",176.005,176.005,.06,3)
|
---|
| 3202 | Answer must be 1-8 characters in length.
|
---|
| 3203 | "^DD",176.005,176.005,.06,21,0)
|
---|
| 3204 | ^^1^1^3130301^
|
---|
| 3205 | "^DD",176.005,176.005,.06,21,1,0)
|
---|
| 3206 | Unique identifier for second atom
|
---|
| 3207 | "^DD",176.005,176.005,.06,"DT")
|
---|
| 3208 | 3130301
|
---|
| 3209 | "^DD",176.005,176.005,.07,0)
|
---|
| 3210 | STYPE2^FJ50^^0;7^K:$L(X)>50!($L(X)<1) X
|
---|
| 3211 | "^DD",176.005,176.005,.07,3)
|
---|
| 3212 | Answer must be 1-50 characters in length.
|
---|
| 3213 | "^DD",176.005,176.005,.07,21,0)
|
---|
| 3214 | ^^3^3^3130301^
|
---|
| 3215 | "^DD",176.005,176.005,.07,21,1,0)
|
---|
| 3216 | The name of the column in RXNCONSO.RRF that contains the identifier used
|
---|
| 3217 | "^DD",176.005,176.005,.07,21,2,0)
|
---|
| 3218 | for the second concept or second atom in the source of the relationship
|
---|
| 3219 | "^DD",176.005,176.005,.07,21,3,0)
|
---|
| 3220 | (e.g., 'AUI' or 'CUI').
|
---|
| 3221 | "^DD",176.005,176.005,.07,"DT")
|
---|
| 3222 | 3130301
|
---|
| 3223 | "^DD",176.005,176.005,.08,0)
|
---|
| 3224 | RELA^FJ100^^0;8^K:$L(X)>100!($L(X)<1) X
|
---|
| 3225 | "^DD",176.005,176.005,.08,3)
|
---|
| 3226 | Answer must be 1-100 characters in length.
|
---|
| 3227 | "^DD",176.005,176.005,.08,21,0)
|
---|
| 3228 | ^^1^1^3130301^
|
---|
| 3229 | "^DD",176.005,176.005,.08,21,1,0)
|
---|
| 3230 | Additional (more specific) relationship label (optional)
|
---|
| 3231 | "^DD",176.005,176.005,.08,"DT")
|
---|
| 3232 | 3130301
|
---|
| 3233 | "^DD",176.005,176.005,.09,0)
|
---|
| 3234 | RUI^FJ10^^0;9^K:$L(X)>10!($L(X)<1) X
|
---|
| 3235 | "^DD",176.005,176.005,.09,3)
|
---|
| 3236 | Answer must be 1-10 characters in length.
|
---|
| 3237 | "^DD",176.005,176.005,.09,21,0)
|
---|
| 3238 | ^^1^1^3130301^^
|
---|
| 3239 | "^DD",176.005,176.005,.09,21,1,0)
|
---|
| 3240 | Unique identifier for relationship
|
---|
| 3241 | "^DD",176.005,176.005,.09,"DT")
|
---|
| 3242 | 3130301
|
---|
| 3243 | "^DD",176.005,176.005,.1,0)
|
---|
| 3244 | SRUI^FJ50^^0;10^K:$L(X)>50!($L(X)<1) X
|
---|
| 3245 | "^DD",176.005,176.005,.1,3)
|
---|
| 3246 | Answer must be 1-50 characters in length.
|
---|
| 3247 | "^DD",176.005,176.005,.1,21,0)
|
---|
| 3248 | ^^1^1^3130301^
|
---|
| 3249 | "^DD",176.005,176.005,.1,21,1,0)
|
---|
| 3250 | Source asserted relationship identifier, if present (no value provided)
|
---|
| 3251 | "^DD",176.005,176.005,.1,"DT")
|
---|
| 3252 | 3130301
|
---|
| 3253 | "^DD",176.005,176.005,.11,0)
|
---|
| 3254 | RXCUI1^FJ8^^0;11^K:$L(X)>8!($L(X)<1) X
|
---|
| 3255 | "^DD",176.005,176.005,.11,3)
|
---|
| 3256 | Answer must be 1-8 characters in length.
|
---|
| 3257 | "^DD",176.005,176.005,.11,21,0)
|
---|
| 3258 | ^^1^1^3130301^
|
---|
| 3259 | "^DD",176.005,176.005,.11,21,1,0)
|
---|
| 3260 | Unique identifier of first concept
|
---|
| 3261 | "^DD",176.005,176.005,.11,"DT")
|
---|
| 3262 | 3130301
|
---|
| 3263 | "^DD",176.005,176.005,.12,0)
|
---|
| 3264 | SL^FJ1000^^0;12^K:$L(X)>1000!($L(X)<1) X
|
---|
| 3265 | "^DD",176.005,176.005,.12,3)
|
---|
| 3266 | Answer must be 1-1000 characters in length.
|
---|
| 3267 | "^DD",176.005,176.005,.12,21,0)
|
---|
| 3268 | ^^1^1^3130301^
|
---|
| 3269 | "^DD",176.005,176.005,.12,21,1,0)
|
---|
| 3270 | Source of relationship labels (no value provided)
|
---|
| 3271 | "^DD",176.005,176.005,.12,"DT")
|
---|
| 3272 | 3130301
|
---|
| 3273 | "^DD",176.005,176.005,.13,0)
|
---|
| 3274 | DIR^FJ1^^0;13^K:$L(X)>1!($L(X)<1) X
|
---|
| 3275 | "^DD",176.005,176.005,.13,3)
|
---|
| 3276 | Answer must be 1 character in length.
|
---|
| 3277 | "^DD",176.005,176.005,.13,21,0)
|
---|
| 3278 | ^^4^4^3130301^
|
---|
| 3279 | "^DD",176.005,176.005,.13,21,1,0)
|
---|
| 3280 | Source asserted directionality flag. (no value provided) Y indicates that
|
---|
| 3281 | "^DD",176.005,176.005,.13,21,2,0)
|
---|
| 3282 | this is the direction of the relationship in its source; N indicates that
|
---|
| 3283 | "^DD",176.005,176.005,.13,21,3,0)
|
---|
| 3284 | it is not; a blank indicates that it is not important or has not yet been
|
---|
| 3285 | "^DD",176.005,176.005,.13,21,4,0)
|
---|
| 3286 | determined.
|
---|
| 3287 | "^DD",176.005,176.005,.13,"DT")
|
---|
| 3288 | 3130301
|
---|
| 3289 | "^DD",176.005,176.005,.14,0)
|
---|
| 3290 | RG^FJ10^^0;14^K:$L(X)>10!($L(X)<1) X
|
---|
| 3291 | "^DD",176.005,176.005,.14,3)
|
---|
| 3292 | Answer must be 1-10 characters in length.
|
---|
| 3293 | "^DD",176.005,176.005,.14,21,0)
|
---|
| 3294 | ^^1^1^3130301^
|
---|
| 3295 | "^DD",176.005,176.005,.14,21,1,0)
|
---|
| 3296 | Machine generated and unverified indicator (optional)
|
---|
| 3297 | "^DD",176.005,176.005,.14,"DT")
|
---|
| 3298 | 3130301
|
---|
| 3299 | "^DD",176.005,176.005,.15,0)
|
---|
| 3300 | SUPPRESS^FJ1^^0;15^K:$L(X)>1!($L(X)<1) X
|
---|
| 3301 | "^DD",176.005,176.005,.15,3)
|
---|
| 3302 | Answer must be 1 character in length.
|
---|
| 3303 | "^DD",176.005,176.005,.15,21,0)
|
---|
| 3304 | ^^3^3^3130301^
|
---|
| 3305 | "^DD",176.005,176.005,.15,21,1,0)
|
---|
| 3306 | Suppressible flag. Values = Y, E, or N. Reflects the suppressible status
|
---|
| 3307 | "^DD",176.005,176.005,.15,21,2,0)
|
---|
| 3308 | of the relationship; not yet in use. See also SUPPRESS in MRCONSO.RRF and
|
---|
| 3309 | "^DD",176.005,176.005,.15,21,3,0)
|
---|
| 3310 | MRDEF.RRF and MRREL.RRF in the UMLS Reference Manual.
|
---|
| 3311 | "^DD",176.005,176.005,.15,"DT")
|
---|
| 3312 | 3130301
|
---|
| 3313 | "^DD",176.005,176.005,.16,0)
|
---|
| 3314 | CVF^FJ50^^0;16^K:$L(X)>50!($L(X)<1) X
|
---|
| 3315 | "^DD",176.005,176.005,.16,3)
|
---|
| 3316 | Answer must be 1-50 characters in length.
|
---|
| 3317 | "^DD",176.005,176.005,.16,21,0)
|
---|
| 3318 | ^^1^1^3130301^
|
---|
| 3319 | "^DD",176.005,176.005,.16,21,1,0)
|
---|
| 3320 | Content view flag
|
---|
| 3321 | "^DD",176.005,176.005,.16,"DT")
|
---|
| 3322 | 3130301
|
---|
| 3323 | "^DD",176.006,176.006,0)
|
---|
| 3324 | FIELD^^.04^4
|
---|
| 3325 | "^DD",176.006,176.006,0,"DT")
|
---|
| 3326 | 3130301
|
---|
| 3327 | "^DD",176.006,176.006,0,"ID",.02)
|
---|
| 3328 | W " ",$P(^(0),U,2)
|
---|
| 3329 | "^DD",176.006,176.006,0,"ID",.03)
|
---|
| 3330 | W " ",$P(^(0),U,3)
|
---|
| 3331 | "^DD",176.006,176.006,0,"ID",.04)
|
---|
| 3332 | W " ",$P(^(0),U,4)
|
---|
| 3333 | "^DD",176.006,176.006,0,"IX","B",176.006,.01)
|
---|
| 3334 |
|
---|
| 3335 | "^DD",176.006,176.006,0,"NM","RXNORM DOCUMENTATION FOR ABBREVIATED VALUES")
|
---|
| 3336 |
|
---|
| 3337 | "^DD",176.006,176.006,0,"VRPK")
|
---|
| 3338 | RXNORM FOR VISTA
|
---|
| 3339 | "^DD",176.006,176.006,.01,0)
|
---|
| 3340 | DOCKEY^RFJ50^^0;1^K:$L(X)>50!($L(X)<1)!'(X'?1P.E) X
|
---|
| 3341 | "^DD",176.006,176.006,.01,1,0)
|
---|
| 3342 | ^.1
|
---|
| 3343 | "^DD",176.006,176.006,.01,1,1,0)
|
---|
| 3344 | 176.006^B
|
---|
| 3345 | "^DD",176.006,176.006,.01,1,1,1)
|
---|
| 3346 | S ^C0CRXN(176.006,"B",$E(X,1,30),DA)=""
|
---|
| 3347 | "^DD",176.006,176.006,.01,1,1,2)
|
---|
| 3348 | K ^C0CRXN(176.006,"B",$E(X,1,30),DA)
|
---|
| 3349 | "^DD",176.006,176.006,.01,3)
|
---|
| 3350 | Answer must be 1-50 characters in length.
|
---|
| 3351 | "^DD",176.006,176.006,.01,21,0)
|
---|
| 3352 | ^^1^1^3130301^
|
---|
| 3353 | "^DD",176.006,176.006,.01,21,1,0)
|
---|
| 3354 | Data element or attribute
|
---|
| 3355 | "^DD",176.006,176.006,.01,"DT")
|
---|
| 3356 | 3130301
|
---|
| 3357 | "^DD",176.006,176.006,.02,0)
|
---|
| 3358 | VALUE^FJ1000^^0;2^K:$L(X)>1000!($L(X)<1) X
|
---|
| 3359 | "^DD",176.006,176.006,.02,3)
|
---|
| 3360 | Answer must be 1-1000 characters in length.
|
---|
| 3361 | "^DD",176.006,176.006,.02,21,0)
|
---|
| 3362 | ^^1^1^3130301^
|
---|
| 3363 | "^DD",176.006,176.006,.02,21,1,0)
|
---|
| 3364 | Abbreviation that is one of its values
|
---|
| 3365 | "^DD",176.006,176.006,.02,"DT")
|
---|
| 3366 | 3130301
|
---|
| 3367 | "^DD",176.006,176.006,.03,0)
|
---|
| 3368 | TYPE^FJ50^^0;3^K:$L(X)>50!($L(X)<1) X
|
---|
| 3369 | "^DD",176.006,176.006,.03,3)
|
---|
| 3370 | Answer must be 1-50 characters in length.
|
---|
| 3371 | "^DD",176.006,176.006,.03,21,0)
|
---|
| 3372 | ^^1^1^3130301^
|
---|
| 3373 | "^DD",176.006,176.006,.03,21,1,0)
|
---|
| 3374 | Type of information in EXPL column
|
---|
| 3375 | "^DD",176.006,176.006,.03,"DT")
|
---|
| 3376 | 3130301
|
---|
| 3377 | "^DD",176.006,176.006,.04,0)
|
---|
| 3378 | EXPL^FJ1000^^0;4^K:$L(X)>1000!($L(X)<1) X
|
---|
| 3379 | "^DD",176.006,176.006,.04,3)
|
---|
| 3380 | Answer must be 1-1000 characters in length.
|
---|
| 3381 | "^DD",176.006,176.006,.04,21,0)
|
---|
| 3382 | ^^1^1^3130301^
|
---|
| 3383 | "^DD",176.006,176.006,.04,21,1,0)
|
---|
| 3384 | Explanation of VALUE
|
---|
| 3385 | "^DD",176.006,176.006,.04,"DT")
|
---|
| 3386 | 3130301
|
---|
| 3387 | "^DIC",176.001,176.001,0)
|
---|
| 3388 | RXNORM CONCEPT NAMES AND SOURCES^176.001
|
---|
| 3389 | "^DIC",176.001,176.001,0,"GL")
|
---|
| 3390 | ^C0CRXN(176.001,
|
---|
| 3391 | "^DIC",176.001,176.001,"%",0)
|
---|
| 3392 | ^1.005^^0
|
---|
| 3393 | "^DIC",176.001,176.001,"%D",0)
|
---|
| 3394 | ^^10^10^3130225^
|
---|
| 3395 | "^DIC",176.001,176.001,"%D",1,0)
|
---|
| 3396 | File = RXNCONSO.RRF
|
---|
| 3397 | "^DIC",176.001,176.001,"%D",2,0)
|
---|
| 3398 |
|
---|
| 3399 | "^DIC",176.001,176.001,"%D",3,0)
|
---|
| 3400 | This file follows the general format of the MRCONSO.RRF file of the
|
---|
| 3401 | "^DIC",176.001,176.001,"%D",4,0)
|
---|
| 3402 | Metathesaurus. Some of the Metathesaurus fields are not provided by
|
---|
| 3403 | "^DIC",176.001,176.001,"%D",5,0)
|
---|
| 3404 | RxNorm and are marked as "(no value provided)". There is exactly one row
|
---|
| 3405 | "^DIC",176.001,176.001,"%D",6,0)
|
---|
| 3406 | in this file for each atom (each occurrence of each unique string or
|
---|
| 3407 | "^DIC",176.001,176.001,"%D",7,0)
|
---|
| 3408 | concept name within each source vocabulary) in RxNorm, i.e., there is
|
---|
| 3409 | "^DIC",176.001,176.001,"%D",8,0)
|
---|
| 3410 | exactly one row for each unique RXAUI in RxNorm. Every string or concept
|
---|
| 3411 | "^DIC",176.001,176.001,"%D",9,0)
|
---|
| 3412 | name in RxNorm appears in this file, connected to its language, source
|
---|
| 3413 | "^DIC",176.001,176.001,"%D",10,0)
|
---|
| 3414 | vocabularies, and its concept identifier (RXCUI).
|
---|
| 3415 | "^DIC",176.001,"B","RXNORM CONCEPT NAMES AND SOURCES",176.001)
|
---|
| 3416 |
|
---|
| 3417 | "^DIC",176.002,176.002,0)
|
---|
| 3418 | RXNORM SIMPLE CONCEPT AND ATOM ATTRIBUTES^176.002
|
---|
| 3419 | "^DIC",176.002,176.002,0,"GL")
|
---|
| 3420 | ^C0CRXN(176.002,
|
---|
| 3421 | "^DIC",176.002,176.002,"%",0)
|
---|
| 3422 | ^1.005^^0
|
---|
| 3423 | "^DIC",176.002,176.002,"%D",0)
|
---|
| 3424 | ^^9^9^3130301^
|
---|
| 3425 | "^DIC",176.002,176.002,"%D",1,0)
|
---|
| 3426 | File: RXNSAT.RRF
|
---|
| 3427 | "^DIC",176.002,176.002,"%D",2,0)
|
---|
| 3428 |
|
---|
| 3429 | "^DIC",176.002,176.002,"%D",3,0)
|
---|
| 3430 | This file follows the general format of the MRSAT.RRF file of the
|
---|
| 3431 | "^DIC",176.002,176.002,"%D",4,0)
|
---|
| 3432 | Metathesaurus. Some of the Metathesaurus fields are not provided by
|
---|
| 3433 | "^DIC",176.002,176.002,"%D",5,0)
|
---|
| 3434 | RxNorm and are marked as "(no value provided)". There is exactly one row
|
---|
| 3435 | "^DIC",176.002,176.002,"%D",6,0)
|
---|
| 3436 | in this table for each concept, atom, or relationship attribute that does
|
---|
| 3437 | "^DIC",176.002,176.002,"%D",7,0)
|
---|
| 3438 | not have a sub-element structure. Not all RxNorm concepts or RxNorm
|
---|
| 3439 | "^DIC",176.002,176.002,"%D",8,0)
|
---|
| 3440 | relationships have entries in this file. This file includes all source
|
---|
| 3441 | "^DIC",176.002,176.002,"%D",9,0)
|
---|
| 3442 | vocabulary attributes that do not fit into other categories.
|
---|
| 3443 | "^DIC",176.002,"B","RXNORM SIMPLE CONCEPT AND ATOM ATTRIBUTES",176.002)
|
---|
| 3444 |
|
---|
| 3445 | "^DIC",176.003,176.003,0)
|
---|
| 3446 | RXNORM SOURCE INFORMATION^176.003
|
---|
| 3447 | "^DIC",176.003,176.003,0,"GL")
|
---|
| 3448 | ^C0CRXN(176.003,
|
---|
| 3449 | "^DIC",176.003,176.003,"%",0)
|
---|
| 3450 | ^1.005^^0
|
---|
| 3451 | "^DIC",176.003,176.003,"%D",0)
|
---|
| 3452 | ^^11^11^3130301^
|
---|
| 3453 | "^DIC",176.003,176.003,"%D",1,0)
|
---|
| 3454 | File RXNSAB.RRF
|
---|
| 3455 | "^DIC",176.003,176.003,"%D",2,0)
|
---|
| 3456 |
|
---|
| 3457 | "^DIC",176.003,176.003,"%D",3,0)
|
---|
| 3458 | This file contains the sources for each of the RxNorm files and their
|
---|
| 3459 | "^DIC",176.003,176.003,"%D",4,0)
|
---|
| 3460 | restriction levels.
|
---|
| 3461 | "^DIC",176.003,176.003,"%D",5,0)
|
---|
| 3462 |
|
---|
| 3463 | "^DIC",176.003,176.003,"%D",6,0)
|
---|
| 3464 | This file follows the general format of the MRSAB.RRF file of the
|
---|
| 3465 | "^DIC",176.003,176.003,"%D",7,0)
|
---|
| 3466 | Metathesaurus. Please refer to the UMLS Reference Manual for more
|
---|
| 3467 | "^DIC",176.003,176.003,"%D",8,0)
|
---|
| 3468 | specific information regarding this file.
|
---|
| 3469 | "^DIC",176.003,176.003,"%D",9,0)
|
---|
| 3470 |
|
---|
| 3471 | "^DIC",176.003,176.003,"%D",10,0)
|
---|
| 3472 | There is one row in this file for every source in RxNorm that is
|
---|
| 3473 | "^DIC",176.003,176.003,"%D",11,0)
|
---|
| 3474 | represented in this RxNorm release.
|
---|
| 3475 | "^DIC",176.003,"B","RXNORM SOURCE INFORMATION",176.003)
|
---|
| 3476 |
|
---|
| 3477 | "^DIC",176.004,176.004,0)
|
---|
| 3478 | RXNORM SEMANTIC TYPES^176.004
|
---|
| 3479 | "^DIC",176.004,176.004,0,"GL")
|
---|
| 3480 | ^C0CRXN(176.004,
|
---|
| 3481 | "^DIC",176.004,176.004,"%",0)
|
---|
| 3482 | ^1.005^^0
|
---|
| 3483 | "^DIC",176.004,176.004,"%D",0)
|
---|
| 3484 | ^^7^7^3130301^
|
---|
| 3485 | "^DIC",176.004,176.004,"%D",1,0)
|
---|
| 3486 | File = RXNSTY.RRF
|
---|
| 3487 | "^DIC",176.004,176.004,"%D",2,0)
|
---|
| 3488 |
|
---|
| 3489 | "^DIC",176.004,176.004,"%D",3,0)
|
---|
| 3490 | This file follows the general format of the MRSTY.RRF file of the
|
---|
| 3491 | "^DIC",176.004,176.004,"%D",4,0)
|
---|
| 3492 | Metathesaurus. There is exactly one row in this file for each Semantic
|
---|
| 3493 | "^DIC",176.004,176.004,"%D",5,0)
|
---|
| 3494 | Type assigned to each concept. All RxNorm concepts have at least one
|
---|
| 3495 | "^DIC",176.004,176.004,"%D",6,0)
|
---|
| 3496 | entry in this file. Many have more than one entry. The TUI, STN, and STY
|
---|
| 3497 | "^DIC",176.004,176.004,"%D",7,0)
|
---|
| 3498 | are all direct links to the UMLS Semantic Network.
|
---|
| 3499 | "^DIC",176.004,"B","RXNORM SEMANTIC TYPES",176.004)
|
---|
| 3500 |
|
---|
| 3501 | "^DIC",176.005,176.005,0)
|
---|
| 3502 | RXNORM RELATED CONCEPTS^176.005
|
---|
| 3503 | "^DIC",176.005,176.005,0,"GL")
|
---|
| 3504 | ^C0CRXN(176.005,
|
---|
| 3505 | "^DIC",176.005,176.005,"%",0)
|
---|
| 3506 | ^1.005^^0
|
---|
| 3507 | "^DIC",176.005,176.005,"%D",0)
|
---|
| 3508 | ^^15^15^3130301^
|
---|
| 3509 | "^DIC",176.005,176.005,"%D",1,0)
|
---|
| 3510 | File = RXNREL.RRF
|
---|
| 3511 | "^DIC",176.005,176.005,"%D",2,0)
|
---|
| 3512 |
|
---|
| 3513 | "^DIC",176.005,176.005,"%D",3,0)
|
---|
| 3514 | This file follows the general format of the MRREL.RRF file of the
|
---|
| 3515 | "^DIC",176.005,176.005,"%D",4,0)
|
---|
| 3516 | Metathesaurus. Some of the Metathesaurus fields are not provided by
|
---|
| 3517 | "^DIC",176.005,176.005,"%D",5,0)
|
---|
| 3518 | RxNorm and are marked as "(no value provided)". There is one row in this
|
---|
| 3519 | "^DIC",176.005,176.005,"%D",6,0)
|
---|
| 3520 | table for each relationship between concepts or atoms known to RxNorm. In
|
---|
| 3521 | "^DIC",176.005,176.005,"%D",7,0)
|
---|
| 3522 | addition, explicit SY RELs are provided which give the UMLS Metathesaurus
|
---|
| 3523 | "^DIC",176.005,176.005,"%D",8,0)
|
---|
| 3524 | CUI and AUI as the RXCUI2 and RXAUI2 fields.
|
---|
| 3525 | "^DIC",176.005,176.005,"%D",9,0)
|
---|
| 3526 |
|
---|
| 3527 | "^DIC",176.005,176.005,"%D",10,0)
|
---|
| 3528 | Note that for asymmetrical relationships there is one row for each
|
---|
| 3529 | "^DIC",176.005,176.005,"%D",11,0)
|
---|
| 3530 | direction of the relationship. Note also the direction of REL - the
|
---|
| 3531 | "^DIC",176.005,176.005,"%D",12,0)
|
---|
| 3532 | relationship which the SECOND concept or atom (with Concept Unique
|
---|
| 3533 | "^DIC",176.005,176.005,"%D",13,0)
|
---|
| 3534 | Identifier RXCUI2 and Atom Unique Identifier RXAUI2) HAS TO the FIRST
|
---|
| 3535 | "^DIC",176.005,176.005,"%D",14,0)
|
---|
| 3536 | concept or atom (with Concept Unique Identifier RXCUI1 and Atom Unique
|
---|
| 3537 | "^DIC",176.005,176.005,"%D",15,0)
|
---|
| 3538 | Identifier RXAUI1).
|
---|
| 3539 | "^DIC",176.005,"B","RXNORM RELATED CONCEPTS",176.005)
|
---|
| 3540 |
|
---|
| 3541 | "^DIC",176.006,176.006,0)
|
---|
| 3542 | RXNORM DOCUMENTATION FOR ABBREVIATED VALUES^176.006
|
---|
| 3543 | "^DIC",176.006,176.006,0,"GL")
|
---|
| 3544 | ^C0CRXN(176.006,
|
---|
| 3545 | "^DIC",176.006,176.006,"%",0)
|
---|
| 3546 | ^1.005^^0
|
---|
| 3547 | "^DIC",176.006,176.006,"%D",0)
|
---|
| 3548 | ^^9^9^3130301^
|
---|
| 3549 | "^DIC",176.006,176.006,"%D",1,0)
|
---|
| 3550 | File = RXNDOC.RRF
|
---|
| 3551 | "^DIC",176.006,176.006,"%D",2,0)
|
---|
| 3552 |
|
---|
| 3553 | "^DIC",176.006,176.006,"%D",3,0)
|
---|
| 3554 | This file follows the format of the Metathesaurus MRDOC.RRF file. At this
|
---|
| 3555 | "^DIC",176.006,176.006,"%D",4,0)
|
---|
| 3556 | time, this file contains all of the data contained in the UMLS MRDOC.RRF
|
---|
| 3557 | "^DIC",176.006,176.006,"%D",5,0)
|
---|
| 3558 | file. In the future, the contents of this file may be tailored to the
|
---|
| 3559 | "^DIC",176.006,176.006,"%D",6,0)
|
---|
| 3560 | RxNorm subset of data only. There is exactly one row in this table for
|
---|
| 3561 | "^DIC",176.006,176.006,"%D",7,0)
|
---|
| 3562 | each allowed value of selected data elements or attributes that have a
|
---|
| 3563 | "^DIC",176.006,176.006,"%D",8,0)
|
---|
| 3564 | finite number of abbreviations as allowed values. Examples of such data
|
---|
| 3565 | "^DIC",176.006,176.006,"%D",9,0)
|
---|
| 3566 | elements include TTY, ATN, TS, STT, REL, RELA.
|
---|
| 3567 | "^DIC",176.006,"B","RXNORM DOCUMENTATION FOR ABBREVIATED VALUES",176.006)
|
---|
| 3568 |
|
---|
| 3569 | **END**
|
---|
| 3570 | **END**
|
---|