source: ccr/trunk/rxnorm/tags/2.3/RXNORM_FOR_VISTA_2P3.KID

Last change on this file was 1643, checked in by Sam Habiel, 10 years ago

2.3 KIDS build

File size: 99.9 KB
Line 
1KIDS Distribution saved on Jul 22, 2014@15:00:36
22.3 to fix a bug reported by Scott Presnell
3**KIDS**:RXNORM FOR VISTA 2.3^
4
5**INSTALL NAME**
6RXNORM FOR VISTA 2.3
7"BLD",9316,0)
8RXNORM 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)
12This build and install is (C) Sam Habiel 2013. Distributed
13"BLD",9316,1,2,0)
14by the VISTA Expertise Network.
15"BLD",9316,1,3,0)
16
17"BLD",9316,1,4,0)
18Questions and Support: sam.habiel@vistaexpertise.net
19"BLD",9316,1,5,0)
20
21"BLD",9316,1,6,0)
22See accompanying License Terms for the terms of using this software.
23"BLD",9316,1,7,0)
24
25"BLD",9316,1,8,0)
26RxNorm is a vocabulary set and tables maintained by the National Library
27"BLD",9316,1,9,0)
28of 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)
36RxNorm provides normalized names for clinical drugs and links its names to
37"BLD",9316,1,14,0)
38many of the drug vocabularies commonly used in pharmacy management and
39"BLD",9316,1,15,0)
40drug interaction software, including those of First Databank, Micromedex,
41"BLD",9316,1,16,0)
42MediSpan, Gold Standard, and Multum. By providing links between these
43"BLD",9316,1,17,0)
44vocabularies, RxNorm can mediate messages between systems not using the
45"BLD",9316,1,18,0)
46same software and vocabulary.
47"BLD",9316,1,19,0)
48
49"BLD",9316,1,20,0)
50RxNorm 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)
54used to code clinical drug properties, including mechanism of action,
55"BLD",9316,1,23,0)
56physiologic effect, and therapeutic category.
57"BLD",9316,1,24,0)
58>>>
59"BLD",9316,1,25,0)
60
61"BLD",9316,1,26,0)
62This build consists of the data dictionaries for 6 files and 3 routines,
63"BLD",9316,1,27,0)
64one of them being the loader routine for the data.
65"BLD",9316,1,28,0)
66
67"BLD",9316,1,29,0)
68This build needs Fileman 22.2 for editing global nodes up to 16,000.
69"BLD",9316,1,30,0)
70You don't need Fileman 22.2 to read the data.
71"BLD",9316,1,31,0)
72
73"BLD",9316,1,32,0)
74On 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)
78On Fileman 22.2, to edit the global definitions or the data, you need to
79"BLD",9316,1,35,0)
80have ^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)
8450
85"BLD",9316,4,50,2,0)
86^9.641^50^1
87"BLD",9316,4,50,2,50,0)
88DRUG (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)
92RXNCUI
93"BLD",9316,4,50,2,50,1,176.002,0)
94RXN SCD NAME
95"BLD",9316,4,50,222)
96y^y^p^^^^n^^n
97"BLD",9316,4,50,224)
98
99"BLD",9316,4,50.68,0)
10050.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)
104VA 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)
108COMPUTED GCNSEQNO
109"BLD",9316,4,50.68,222)
110y^y^p^^^^n^^n
111"BLD",9316,4,50.68,224)
112
113"BLD",9316,4,176.001,0)
114176.001
115"BLD",9316,4,176.001,222)
116y^y^f^^^^n
117"BLD",9316,4,176.002,0)
118176.002
119"BLD",9316,4,176.002,222)
120y^y^f^^^^n
121"BLD",9316,4,176.003,0)
122176.003
123"BLD",9316,4,176.003,222)
124y^y^f^^^^n
125"BLD",9316,4,176.004,0)
126176.004
127"BLD",9316,4,176.004,222)
128y^y^f^^^^n
129"BLD",9316,4,176.005,0)
130176.005
131"BLD",9316,4,176.005,222)
132y^y^f^^^^n
133"BLD",9316,4,176.006,0)
134176.006
135"BLD",9316,4,176.006,222)
136y^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)
16416
165"BLD",9316,"ABPKG")
166n
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)
1823.6
183"BLD",9316,"KRN",3.8,0)
1843.8
185"BLD",9316,"KRN",9.2,0)
1869.2
187"BLD",9316,"KRN",9.8,0)
1889.8
189"BLD",9316,"KRN",9.8,"NM",0)
190^9.68A^3^3
191"BLD",9316,"KRN",9.8,"NM",1,0)
192C0CRXNRD^^0^B42158088
193"BLD",9316,"KRN",9.8,"NM",2,0)
194C0CRXNLK^^0^B99704419
195"BLD",9316,"KRN",9.8,"NM",3,0)
196C0CRXNAD^^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)
20419
205"BLD",9316,"KRN",19,"NM",0)
206^9.68A^^
207"BLD",9316,"KRN",19.1,0)
20819.1
209"BLD",9316,"KRN",101,0)
210101
211"BLD",9316,"KRN",409.61,0)
212409.61
213"BLD",9316,"KRN",771,0)
214771
215"BLD",9316,"KRN",779.2,0)
216779.2
217"BLD",9316,"KRN",870,0)
218870
219"BLD",9316,"KRN",8989.51,0)
2208989.51
221"BLD",9316,"KRN",8989.52,0)
2228989.52
223"BLD",9316,"KRN",8994,0)
2248994
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)
270DRUG
271"FIA",50,0)
272^PSDRUG(
273"FIA",50,0,0)
27450I
275"FIA",50,0,1)
276y^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")
2842.3^RXNORM FOR VISTA
285"FIA",50,50)
2861
287"FIA",50,50,176.001)
288
289"FIA",50,50,176.002)
290
291"FIA",50.68)
292VA PRODUCT
293"FIA",50.68,0)
294^PSNDF(50.68,
295"FIA",50.68,0,0)
29650.68
297"FIA",50.68,0,1)
298y^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")
3062.3^RXNORM FOR VISTA
307"FIA",50.68,50.68)
3081
309"FIA",50.68,50.68,176.001)
310
311"FIA",176.001)
312RXNORM CONCEPT NAMES AND SOURCES
313"FIA",176.001,0)
314^C0CRXN(176.001,
315"FIA",176.001,0,0)
316176.001I
317"FIA",176.001,0,1)
318y^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")
3262.3^RXNORM FOR VISTA
327"FIA",176.001,176.001)
3280
329"FIA",176.002)
330RXNORM SIMPLE CONCEPT AND ATOM ATTRIBUTES
331"FIA",176.002,0)
332^C0CRXN(176.002,
333"FIA",176.002,0,0)
334176.002I
335"FIA",176.002,0,1)
336y^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")
3442.3^RXNORM FOR VISTA
345"FIA",176.002,176.002)
3460
347"FIA",176.003)
348RXNORM SOURCE INFORMATION
349"FIA",176.003,0)
350^C0CRXN(176.003,
351"FIA",176.003,0,0)
352176.003I
353"FIA",176.003,0,1)
354y^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")
3622.3^RXNORM FOR VISTA
363"FIA",176.003,176.003)
3640
365"FIA",176.004)
366RXNORM SEMANTIC TYPES
367"FIA",176.004,0)
368^C0CRXN(176.004,
369"FIA",176.004,0,0)
370176.004I
371"FIA",176.004,0,1)
372y^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")
3802.3^RXNORM FOR VISTA
381"FIA",176.004,176.004)
3820
383"FIA",176.005)
384RXNORM RELATED CONCEPTS
385"FIA",176.005,0)
386^C0CRXN(176.005,
387"FIA",176.005,0,0)
388176.005
389"FIA",176.005,0,1)
390y^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")
3982.3^RXNORM FOR VISTA
399"FIA",176.005,176.005)
4000
401"FIA",176.006)
402RXNORM DOCUMENTATION FOR ABBREVIATED VALUES
403"FIA",176.006,0)
404^C0CRXN(176.006,
405"FIA",176.006,0,0)
406176.006I
407"FIA",176.006,0,1)
408y^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")
4162.3^RXNORM FOR VISTA
417"FIA",176.006,176.006)
4180
419"IX",176.001,176.001,"B",0)
420176.001^B^Regular B Index^R^^F^IR^I^176.001^^^^^LS
421"IX",176.001,176.001,"B",1)
422S ^C0CRXN(176.001,"B",X,DA)=""
423"IX",176.001,176.001,"B",2)
424K ^C0CRXN(176.001,"B",X,DA)
425"IX",176.001,176.001,"B",2.5)
426K ^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)
4301^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)
434176.001^CODE^Code Index^R^^F^IR^I^176.001^^^^^LS
435"IX",176.001,176.001,"CODE",1)
436S ^C0CRXN(176.001,"CODE",X,DA)=""
437"IX",176.001,176.001,"CODE",2)
438K ^C0CRXN(176.001,"CODE",X,DA)
439"IX",176.001,176.001,"CODE",2.5)
440K ^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)
4441^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)
448176.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)
452Use 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)
456Examples:
457"IX",176.001,176.001,"STC",.1,4,0)
458SAB="NDDF", TTY="CDC", CODE={GCN} will give you the entry a clinical drug
459"IX",176.001,176.001,"STC",.1,5,0)
460in 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)
464SAB="RXNORM", TTY="SCD", CODE={RXNORM} will give you the entry that is
465"IX",176.001,176.001,"STC",.1,8,0)
466the 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)
470SAB="VANDF", TTY="CD", CODE={VUID} will give you a drug that has that
471"IX",176.001,176.001,"STC",.1,11,0)
472VUID.
473"IX",176.001,176.001,"STC",1)
474S ^C0CRXN(176.001,"STC",X(1),X(2),X(3),DA)=X(4)
475"IX",176.001,176.001,"STC",2)
476K ^C0CRXN(176.001,"STC",X(1),X(2),X(3),DA)
477"IX",176.001,176.001,"STC",2.5)
478K ^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)
4821^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)
4862^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)
4903^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)
4944^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)
498176.001^STR^String Lookup Index^R^^F^IR^I^176.001^^^^^LS
499"IX",176.001,176.001,"STR",1)
500S ^C0CRXN(176.001,"STR",$E(X,1,30),DA)=""
501"IX",176.001,176.001,"STR",2)
502K ^C0CRXN(176.001,"STR",$E(X,1,30),DA)
503"IX",176.001,176.001,"STR",2.5)
504K ^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)
5081^F^176.001^.15^30^1^F
509"IX",176.001,176.001,"STR",11.1,1,2)
510S 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)
514S X=$$UP^XLFSTR(X)
515"IX",176.001,176.001,"STX",0)
516176.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)
520Use 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)
524The 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)
526and the code. This index will give you the codes if you know the source,
527"IX",176.001,176.001,"STX",.1,5,0)
528the type, but not the code, but rather the RxNorm code.
529"IX",176.001,176.001,"STX",1)
530S ^C0CRXN(176.001,"STX",X(1),X(2),X(3),DA)=X(4)
531"IX",176.001,176.001,"STX",2)
532K ^C0CRXN(176.001,"STX",X(1),X(2),X(3),DA)
533"IX",176.001,176.001,"STX",2.5)
534K ^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)
5381^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)
5422^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)
5463^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)
5504^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)
554176.002^ANDFRT^RxNorm NDFRT Index^R^^R^IR^I^176.002^^^^^S
555"IX",176.002,176.002,"ANDFRT",1)
556S ^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)
558S X=X(2)="NDFRT"
559"IX",176.002,176.002,"ANDFRT",2)
560K ^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)
562S X=X(2)="NDFRT"
563"IX",176.002,176.002,"ANDFRT",2.5)
564K ^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)
5681^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)
5722^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)
5763^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)
5804^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)
584176.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)
586S ^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)
588K ^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)
590K ^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)
5941^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)
5982^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)
6023^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)
6064^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)
610176.002^ASAR^SAB (Source) ATN (Attribute Name) RxCUI Index^MU^^R^IR^I^176.002^^^^^S
611"IX",176.002,176.002,"ASAR",1)
612S ^C0CRXN(176.002,"ASAR",X(1),$E(X(2),1,30),X(3),DA)=X(4)
613"IX",176.002,176.002,"ASAR",2)
614K ^C0CRXN(176.002,"ASAR",X(1),$E(X(2),1,30),X(3),DA)
615"IX",176.002,176.002,"ASAR",2.5)
616K ^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)
6201^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)
6242^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)
6283^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)
6324^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)
636176.002^RXCUI^RXCUI Index^R^^F^IR^I^176.002^^^^^LS
637"IX",176.002,176.002,"RXCUI",1)
638S ^C0CRXN(176.002,"RXCUI",X,DA)=""
639"IX",176.002,176.002,"RXCUI",2)
640K ^C0CRXN(176.002,"RXCUI",X,DA)
641"IX",176.002,176.002,"RXCUI",2.5)
642K ^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)
6461^F^176.002^.09^^1^F
647"IX",176.005,176.005,"B",0)
648176.005^B^Compound Index for RXCUI1/RELA/RXCUI2^R^^R^IR^I^176.005^^^^^LS
649"IX",176.005,176.005,"B",1)
650S ^C0CRXN(176.005,"B",X(1),X(2),X(3),DA)=""
651"IX",176.005,176.005,"B",2)
652K ^C0CRXN(176.005,"B",X(1),X(2),X(3),DA)
653"IX",176.005,176.005,"B",2.5)
654K ^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)
6581^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)
6622^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)
6663^F^176.005^.05^^3^F
667"IX",176.005,176.005,"B",11.1,3,3)
668
669"MBREQ")
6700
671"PKG",221,-1)
6721^1
673"PKG",221,0)
674RXNORM 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)
6802.3^3140722
681"PKG",221,22,1,1,0)
682^^35^35^3140722
683"PKG",221,22,1,1,1,0)
684This build and install is (C) Sam Habiel 2013. Distributed
685"PKG",221,22,1,1,2,0)
686by the VISTA Expertise Network.
687"PKG",221,22,1,1,3,0)
688
689"PKG",221,22,1,1,4,0)
690Questions and Support: sam.habiel@vistaexpertise.net
691"PKG",221,22,1,1,5,0)
692
693"PKG",221,22,1,1,6,0)
694See 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)
698RxNorm is a vocabulary set and tables maintained by the National Library
699"PKG",221,22,1,1,9,0)
700of 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)
708RxNorm provides normalized names for clinical drugs and links its names to
709"PKG",221,22,1,1,14,0)
710many of the drug vocabularies commonly used in pharmacy management and
711"PKG",221,22,1,1,15,0)
712drug interaction software, including those of First Databank, Micromedex,
713"PKG",221,22,1,1,16,0)
714MediSpan, Gold Standard, and Multum. By providing links between these
715"PKG",221,22,1,1,17,0)
716vocabularies, RxNorm can mediate messages between systems not using the
717"PKG",221,22,1,1,18,0)
718same software and vocabulary.
719"PKG",221,22,1,1,19,0)
720
721"PKG",221,22,1,1,20,0)
722RxNorm 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)
726used to code clinical drug properties, including mechanism of action,
727"PKG",221,22,1,1,23,0)
728physiologic 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)
734This build consists of the data dictionaries for 6 files and 3 routines,
735"PKG",221,22,1,1,27,0)
736one 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)
740This build needs Fileman 22.2 for editing global nodes up to 16,000.
741"PKG",221,22,1,1,30,0)
742You 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)
746On 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)
750On Fileman 22.2, to edit the global definitions or the data, you need to
751"PKG",221,22,1,1,35,0)
752have ^DD("STRING_LIMIT")=16000 (needs to be manually set).
753"PKG",221,"DEV")
754SAM HABIEL/VEN
755"PKG",221,"VERSION")
7562.3
757"QUES","XPF1",0)
758Y
759"QUES","XPF1","??")
760^D REP^XPDH
761"QUES","XPF1","A")
762Shall I write over your |FLAG| File
763"QUES","XPF1","B")
764YES
765"QUES","XPF1","M")
766D XPF1^XPDIQ
767"QUES","XPF2",0)
768Y
769"QUES","XPF2","??")
770^D DTA^XPDH
771"QUES","XPF2","A")
772Want my data |FLAG| yours
773"QUES","XPF2","B")
774YES
775"QUES","XPF2","M")
776D XPF2^XPDIQ
777"QUES","XPI1",0)
778YO
779"QUES","XPI1","??")
780^D INHIBIT^XPDH
781"QUES","XPI1","A")
782Want KIDS to INHIBIT LOGONs during the install
783"QUES","XPI1","B")
784NO
785"QUES","XPI1","M")
786D XPI1^XPDIQ
787"QUES","XPM1",0)
788PO^VA(200,:EM
789"QUES","XPM1","??")
790^D MG^XPDH
791"QUES","XPM1","A")
792Enter the Coordinator for Mail Group '|FLAG|'
793"QUES","XPM1","B")
794
795"QUES","XPM1","M")
796D XPM1^XPDIQ
797"QUES","XPO1",0)
798Y
799"QUES","XPO1","??")
800^D MENU^XPDH
801"QUES","XPO1","A")
802Want KIDS to Rebuild Menu Trees Upon Completion of Install
803"QUES","XPO1","B")
804NO
805"QUES","XPO1","M")
806D XPO1^XPDIQ
807"QUES","XPZ1",0)
808Y
809"QUES","XPZ1","??")
810^D OPT^XPDH
811"QUES","XPZ1","A")
812Want to DISABLE Scheduled Options, Menu Options, and Protocols
813"QUES","XPZ1","B")
814NO
815"QUES","XPZ1","M")
816D XPZ1^XPDIQ
817"QUES","XPZ2",0)
818Y
819"QUES","XPZ2","??")
820^D RTN^XPDH
821"QUES","XPZ2","A")
822Want to MOVE routines to other CPUs
823"QUES","XPZ2","B")
824NO
825"QUES","XPZ2","M")
826D XPZ2^XPDIQ
827"RTN")
8283
829"RTN","C0CRXNAD")
8300^3^B18747982
831"RTN","C0CRXNAD",1,0)
832C0CRXNAD ; 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)
842ADDDRUG(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)
1094EX QUIT C0XIEN(1)
1095"RTN","C0CRXNLK")
10960^2^B99704419
1097"RTN","C0CRXNLK",1,0)
1098C0CRXNLK ; 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)
1120EXIST(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)
1130GCN2RXN(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)
1144GCN2RXNT ; @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)
1160GCN2RXND ; @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)
1180RXN2GCN(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)
1198RXN2GCNT ; @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)
1216RXN2GCND ; @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)
1236RXN2VUI(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)
1258RXN2VUIT ; @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)
1272RXN2VUID ; @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)
1292VUI2VAP(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)
1310VUI2VAPT ; @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)
1324VUI2VAPD ; @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)
1346VAP2MED(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)
1382RXN2MEDS(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)
1418FDI2RXN(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)
1432FDI2RXNT ; @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)
1446RXN2VIN(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)
1458RXN2VINT ; @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)
1470VIN2VAG(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)
1484VIN2VAGT ; @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)
1496FDI2VAG(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)
1508VIN2DIN(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)
1524FDI2DIN(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)
1536VUI2RXN(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)
1564VUI2GCN(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)
1586MED2RXN(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)
1606MED2SCDN(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)
1630RXN2NDI(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)
1642VIN2NDI(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)
1660NDC2RXN(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)
1674NDC2RXNT ; @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)
1686ISBRAND(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)
1694ISBRANDT ; @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)
1708BR2GEN(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)
1716BR2GENT ; @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)
1728GEN2BR(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)
1740GEN2BRT ; @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)
1752RXN2BNS(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)
1776RXN2BNST ; @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)
1788RXN2NDC(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)
1798RXN2NDCT ; @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")
18040^1^B42158088
1805"RTN","C0CRXNRD",1,0)
1806C0CRXNRD ; 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)
1818IMPORT(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)
1846DELFILED(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)
1864GETLINES(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)
1882CONSO(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)
1930EX 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)
1940SAT(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)
2000EX2 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)
2010SAB(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)
2046EX3 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)
2056STY(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)
2084EX4 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)
2092REL(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)
2130EX5 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)
2136DOC(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)
2164EX6 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")
22448.0^22.0
2245"^DD",50,50,176.001,0)
2246RXNCUI^Cp176.001^^ ; ^S X=$$MED2RXN^C0CRXNLK(D0)
2247"^DD",50,50,176.001,.1)
2248RXNORM CUI
2249"^DD",50,50,176.001,9.01)
2250
2251"^DD",50,50,176.001,9.1)
2252S X=$$MED2RXN^C0CRXNLK(D0)
2253"^DD",50,50,176.001,"DT")
22543130708
2255"^DD",50,50,176.002,0)
2256RXN 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)
2260S X=$$MED2SCDN^C0CRXNLK(D0)
2261"^DD",50,50,176.002,"DT")
22623130408
2263"^DD",50.68,50.68,176.001,0)
2264COMPUTED 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)
2268S X=$$VUI2GCN^C0CRXNLK(+$G(^PSNDF(50.68,D0,"VUID")))
2269"^DD",50.68,50.68,176.001,"DT")
22703130625
2271"^DD",176.001,176.001,0)
2272FIELD^^50^19
2273"^DD",176.001,176.001,0,"DIK")
2274C0CRXN1
2275"^DD",176.001,176.001,0,"DIKOLD")
2276C0CRXN1
2277"^DD",176.001,176.001,0,"DT")
22783130410
2279"^DD",176.001,176.001,0,"ID",.12)
2280W " ",$P(^(0),U,12)
2281"^DD",176.001,176.001,0,"ID",.13)
2282W " ",$P(^(0),U,13)
2283"^DD",176.001,176.001,0,"ID",.14)
2284W " ",$P(^(0),U,14)
2285"^DD",176.001,176.001,0,"ID",.15)
2286W " ",$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")
2290RXNORM FOR VISTA
2291"^DD",176.001,176.001,.01,0)
2292RXCUI^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)
2296Answer 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)
2300RxNorm Unique identifier for concept (concept ID)
2301"^DD",176.001,176.001,.01,"DT")
23023130305
2303"^DD",176.001,176.001,.02,0)
2304LAT^RFJ3^^0;2^K:$L(X)>3!($L(X)<1) X
2305"^DD",176.001,176.001,.02,3)
2306Answer 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)
2310Language of Term
2311"^DD",176.001,176.001,.02,"DT")
23123130225
2313"^DD",176.001,176.001,.03,0)
2314TS^FJ1^^0;3^K:$L(X)>1!($L(X)<1) X
2315"^DD",176.001,176.001,.03,3)
2316Answer 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)
2320Term status (no value provided)
2321"^DD",176.001,176.001,.03,"DT")
23223130225
2323"^DD",176.001,176.001,.04,0)
2324LUI^FJ8^^0;4^K:$L(X)>8!($L(X)<1) X
2325"^DD",176.001,176.001,.04,3)
2326Answer 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)
2330Unique identifier for term (no value provided)
2331"^DD",176.001,176.001,.04,"DT")
23323130225
2333"^DD",176.001,176.001,.05,0)
2334STT^FJ3^^0;5^K:$L(X)>3!($L(X)<1) X
2335"^DD",176.001,176.001,.05,3)
2336Answer 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)
2340String type (no value provided)
2341"^DD",176.001,176.001,.05,"DT")
23423130225
2343"^DD",176.001,176.001,.06,0)
2344SUI^FJ8^^0;6^K:$L(X)>8!($L(X)<1) X
2345"^DD",176.001,176.001,.06,3)
2346Answer 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)
2350Unique identifier for string (no value provided)
2351"^DD",176.001,176.001,.06,"DT")
23523130225
2353"^DD",176.001,176.001,.07,0)
2354ISPREF^FJ1^^0;7^K:$L(X)>1!($L(X)<1) X
2355"^DD",176.001,176.001,.07,3)
2356Answer 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)
2360Atom status - preferred (Y) or not (N) for this string within this
2361"^DD",176.001,176.001,.07,21,2,0)
2362concept (no value provided)
2363"^DD",176.001,176.001,.07,"DT")
23643130225
2365"^DD",176.001,176.001,.08,0)
2366RXAUI^RFJ8^^0;8^K:$L(X)>8!($L(X)<1) X
2367"^DD",176.001,176.001,.08,3)
2368Answer 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)
2372Unique identifier for atom (RxNorm Atom ID)
2373"^DD",176.001,176.001,.08,"DT")
23743130225
2375"^DD",176.001,176.001,.09,0)
2376SAUI^FJ50^^0;9^K:$L(X)>50!($L(X)<1) X
2377"^DD",176.001,176.001,.09,3)
2378Answer 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)
2382Source asserted atom identifier [optional]
2383"^DD",176.001,176.001,.09,"DT")
23843130225
2385"^DD",176.001,176.001,.1,0)
2386SCUI^FJ50^^0;10^K:$L(X)>50!($L(X)<1) X
2387"^DD",176.001,176.001,.1,3)
2388Answer 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)
2392Source asserted concept identifier [optional]
2393"^DD",176.001,176.001,.1,"DT")
23943130225
2395"^DD",176.001,176.001,.11,0)
2396SDUI^FJ50^^0;11^K:$L(X)>50!($L(X)<1) X
2397"^DD",176.001,176.001,.11,3)
2398Answer 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)
2402Source asserted descriptor identifier [optional] (no value provided)
2403"^DD",176.001,176.001,.11,"DT")
24043130225
2405"^DD",176.001,176.001,.12,0)
2406SAB^RFJ20^^0;12^K:$L(X)>20!($L(X)<1) X
2407"^DD",176.001,176.001,.12,3)
2408Answer 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)
2412Source abbreviation
2413"^DD",176.001,176.001,.12,"DT")
24143130305
2415"^DD",176.001,176.001,.13,0)
2416TTY^RFJ20^^0;13^K:$L(X)>20!($L(X)<1) X
2417"^DD",176.001,176.001,.13,3)
2418Answer 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)
2422Term type in source
2423"^DD",176.001,176.001,.13,"DT")
24243130305
2425"^DD",176.001,176.001,.14,0)
2426CODE^RFJ50^^0;14^K:$L(X)>50!($L(X)<1) X
2427"^DD",176.001,176.001,.14,3)
2428Answer 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)
2434more than one identifier), or a Metathesaurus-generated source entry
2435"^DD",176.001,176.001,.14,21,3,0)
2436identifier (if the source vocabulary has none.)
2437"^DD",176.001,176.001,.14,"DT")
24383130305
2439"^DD",176.001,176.001,.15,0)
2440STR^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)
2444Answer 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)
2448String
2449"^DD",176.001,176.001,.15,"DT")
24503130227
2451"^DD",176.001,176.001,.16,0)
2452SRL^FJ10^^0;16^K:$L(X)>10!($L(X)<1) X
2453"^DD",176.001,176.001,.16,3)
2454Answer 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)
2458Source Restriction Level (no value provided)
2459"^DD",176.001,176.001,.16,"DT")
24603130225
2461"^DD",176.001,176.001,.17,0)
2462SUPPRESS^FJ1^^0;17^K:$L(X)>1!($L(X)<1) X
2463"^DD",176.001,176.001,.17,3)
2464Answer 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)
2468Suppressible flag. Values = N or O. N - not suppressible. O - Specific
2469"^DD",176.001,176.001,.17,21,2,0)
2470Individual names (atoms) set as Obsolete because the name is no longer
2471"^DD",176.001,176.001,.17,21,3,0)
2472provided by the original source. NLM strongly recommends that users not
2473"^DD",176.001,176.001,.17,21,4,0)
2474alter editor-assigned suppressibility.
2475"^DD",176.001,176.001,.17,"DT")
24763130225
2477"^DD",176.001,176.001,.18,0)
2478CVF^FJ50^^0;18^K:$L(X)>50!($L(X)<1) X
2479"^DD",176.001,176.001,.18,3)
2480Answer 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)
2484Content view flag
2485"^DD",176.001,176.001,.18,"DT")
24863130225
2487"^DD",176.001,176.001,50,0)
2488COMPUTED 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)
2492N 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")
24943130410
2495"^DD",176.002,176.002,0)
2496FIELD^^.13^13
2497"^DD",176.002,176.002,0,"DIK")
2498C0CRXN2
2499"^DD",176.002,176.002,0,"DIKOLD")
2500C0CRXN2
2501"^DD",176.002,176.002,0,"DT")
25023130301
2503"^DD",176.002,176.002,0,"ID",.1)
2504W " ",$P(^(0),U,10)
2505"^DD",176.002,176.002,0,"ID",.11)
2506W " ",$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")
2514RXNORM FOR VISTA
2515"^DD",176.002,176.002,.01,0)
2516ATN^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)
2520176.002^XATN
2521"^DD",176.002,176.002,.01,1,1,1)
2522S ^C0CRXN(176.002,"XATN",$E(X,1,30),DA)=""
2523"^DD",176.002,176.002,.01,1,1,2)
2524K ^C0CRXN(176.002,"XATN",$E(X,1,30),DA)
2525"^DD",176.002,176.002,.01,1,1,3)
2526ATN INDEX
2527"^DD",176.002,176.002,.01,1,1,"DT")
25283130301
2529"^DD",176.002,176.002,.01,3)
2530Answer 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)
2534Attribute name. Possible values appear in RXNDOC.RRF and are described on
2535"^DD",176.002,176.002,.01,21,2,0)
2536the UMLS Attribute Names page.
2537"^DD",176.002,176.002,.01,"DT")
25383130307
2539"^DD",176.002,176.002,.02,0)
2540LUI^FJ8^^0;2^K:$L(X)>8!($L(X)<1) X
2541"^DD",176.002,176.002,.02,3)
2542Answer 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)
2546Unique identifier for term (no value provided)
2547"^DD",176.002,176.002,.02,"DT")
25483130301
2549"^DD",176.002,176.002,.03,0)
2550SUI^FJ8^^0;3^K:$L(X)>8!($L(X)<1) X
2551"^DD",176.002,176.002,.03,3)
2552Answer 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)
2556Unique identifier for string (no value provided)
2557"^DD",176.002,176.002,.03,"DT")
25583130301
2559"^DD",176.002,176.002,.04,0)
2560RXAUI^FJ8^^0;4^K:$L(X)>8!($L(X)<1) X
2561"^DD",176.002,176.002,.04,3)
2562Answer 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)
2566RxNorm atom identifier (RXAUI) or RxNorm relationship identifier (RUI).
2567"^DD",176.002,176.002,.04,"DT")
25683130301
2569"^DD",176.002,176.002,.05,0)
2570STYPE^FJ50^^0;5^K:$L(X)>50!($L(X)<1) X
2571"^DD",176.002,176.002,.05,3)
2572Answer 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)
2576The name of the column in RXNCONSO.RRF or RXNREL.RRF that contains the
2577"^DD",176.002,176.002,.05,21,2,0)
2578identifier to which the attribute is attached, e.g., CUI, AUI.
2579"^DD",176.002,176.002,.05,"DT")
25803130301
2581"^DD",176.002,176.002,.06,0)
2582CODE^FJ50^^0;6^K:$L(X)>50!($L(X)<1) X
2583"^DD",176.002,176.002,.06,3)
2584Answer 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)
2590contains more than one).
2591"^DD",176.002,176.002,.06,"DT")
25923130301
2593"^DD",176.002,176.002,.07,0)
2594ATUI^FJ11^^0;7^K:$L(X)>11!($L(X)<1) X
2595"^DD",176.002,176.002,.07,3)
2596Answer 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)
2600Unique identifier for attribute.
2601"^DD",176.002,176.002,.07,"DT")
26023130301
2603"^DD",176.002,176.002,.08,0)
2604SATUI^FJ50^^0;8^K:$L(X)>50!($L(X)<1) X
2605"^DD",176.002,176.002,.08,3)
2606Answer 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)
2610Source asserted attribute identifier (optional - present if it exists).
2611"^DD",176.002,176.002,.08,"DT")
26123130301
2613"^DD",176.002,176.002,.09,0)
2614RXCUI^FJ8^^0;9^K:$L(X)>8!($L(X)<1) X
2615"^DD",176.002,176.002,.09,3)
2616Answer 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)
2620Unique identifier for concept (concept id).
2621"^DD",176.002,176.002,.09,"DT")
26223130307
2623"^DD",176.002,176.002,.1,0)
2624SAB^RFJ20^^0;10^K:$L(X)>20!($L(X)<1) X
2625"^DD",176.002,176.002,.1,3)
2626Answer 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)
2630Abbreviation of the source of the attribute. Possible values appear in
2631"^DD",176.002,176.002,.1,21,2,0)
2632RXNSAB.RRF and are listed on the UMLS Source Vocabularies page.
2633"^DD",176.002,176.002,.1,"DT")
26343130307
2635"^DD",176.002,176.002,.11,0)
2636ATV^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)
2640176.002^XATV
2641"^DD",176.002,176.002,.11,1,1,1)
2642S ^C0CRXN(176.002,"XATV",$E(X,1,30),DA)=""
2643"^DD",176.002,176.002,.11,1,1,2)
2644K ^C0CRXN(176.002,"XATV",$E(X,1,30),DA)
2645"^DD",176.002,176.002,.11,1,1,3)
2646ATV INDEX
2647"^DD",176.002,176.002,.11,1,1,"DT")
26483130301
2649"^DD",176.002,176.002,.11,3)
2650Answer 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)
2654Attribute value described under specific attribute name on the UMLS
2655"^DD",176.002,176.002,.11,21,2,0)
2656Attribute Names page. A few attribute values exceed 1,000 characters.
2657"^DD",176.002,176.002,.11,21,3,0)
2658Many of the abbreviations used in attribute values are explained in
2659"^DD",176.002,176.002,.11,21,4,0)
2660RXNDOC.RRF and included UMLS Abbreviations Used in Data Elements page.
2661"^DD",176.002,176.002,.11,"DT")
26623130307
2663"^DD",176.002,176.002,.12,0)
2664SUPPRESS^FJ1^^0;12^K:$L(X)>1!($L(X)<1) X
2665"^DD",176.002,176.002,.12,3)
2666Answer 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)
2670Suppressible flag. Values = O, Y, or N. Reflects the suppressible status
2671"^DD",176.002,176.002,.12,21,2,0)
2672of the attribute. N - Attribute is not suppressed. O - Attribute is
2673"^DD",176.002,176.002,.12,21,3,0)
2674suppressed at source level. Y - Attribute is suppressed by RxNorm editors.
2675"^DD",176.002,176.002,.12,"DT")
26763130301
2677"^DD",176.002,176.002,.13,0)
2678CVF^FJ50^^0;13^K:$L(X)>50!($L(X)<1) X
2679"^DD",176.002,176.002,.13,3)
2680Answer 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)
2684Content view flag
2685"^DD",176.002,176.002,.13,"DT")
26863130301
2687"^DD",176.003,176.003,0)
2688FIELD^^.25^25
2689"^DD",176.003,176.003,0,"DT")
26903130301
2691"^DD",176.003,176.003,0,"ID",.05)
2692W " ",$P(^(0),U,5)
2693"^DD",176.003,176.003,0,"ID",.14)
2694W " ",$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")
2700RXNORM FOR VISTA
2701"^DD",176.003,176.003,.01,0)
2702RSAB^RFJ20^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X
2703"^DD",176.003,176.003,.01,.1)
2704ROOT SOURCE ABBREVIATION
2705"^DD",176.003,176.003,.01,1,0)
2706^.1
2707"^DD",176.003,176.003,.01,1,1,0)
2708176.003^B
2709"^DD",176.003,176.003,.01,1,1,1)
2710S ^C0CRXN(176.003,"B",$E(X,1,30),DA)=""
2711"^DD",176.003,176.003,.01,1,1,2)
2712K ^C0CRXN(176.003,"B",$E(X,1,30),DA)
2713"^DD",176.003,176.003,.01,3)
2714Answer 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)
2718The root source abbreviation, for a source e.g. NDDF
2719"^DD",176.003,176.003,.01,"DT")
27203130301
2721"^DD",176.003,176.003,.02,0)
2722RCUI^FJ8^^0;2^K:$L(X)>8!($L(X)<1) X
2723"^DD",176.003,176.003,.02,.1)
2724ROOT CUI
2725"^DD",176.003,176.003,.02,3)
2726Answer 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)
2730CUI of the root SRC concept for a source
2731"^DD",176.003,176.003,.02,"DT")
27323130301
2733"^DD",176.003,176.003,.03,0)
2734VSAB^FJ40^^0;3^K:$L(X)>40!($L(X)<1) X
2735"^DD",176.003,176.003,.03,.1)
2736VERSIONED SOURCE ABBREVIATION
2737"^DD",176.003,176.003,.03,3)
2738Answer 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)
2742The versioned source abbreviation for a source, e.g., NDDF_2004_11_03
2743"^DD",176.003,176.003,.03,"DT")
27443130301
2745"^DD",176.003,176.003,.04,0)
2746VCUI^FJ8^^0;4^K:$L(X)>8!($L(X)<1) X
2747"^DD",176.003,176.003,.04,.1)
2748CUI
2749"^DD",176.003,176.003,.04,3)
2750Answer 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)
2754CUI of the versioned SRC concept for a source
2755"^DD",176.003,176.003,.04,"DT")
27563130301
2757"^DD",176.003,176.003,.05,0)
2758SON^FJ3000^^0;5^K:$L(X)>3000!($L(X)<1) X
2759"^DD",176.003,176.003,.05,.1)
2760OFFICIAL NAME
2761"^DD",176.003,176.003,.05,3)
2762Answer 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)
2766The official name for a source
2767"^DD",176.003,176.003,.05,"DT")
27683130301
2769"^DD",176.003,176.003,.06,0)
2770SF^FJ20^^0;6^K:$L(X)>20!($L(X)<1) X
2771"^DD",176.003,176.003,.06,.1)
2772SOURCE FAMILY
2773"^DD",176.003,176.003,.06,3)
2774Answer 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)
2778The Source Family for a source
2779"^DD",176.003,176.003,.06,"DT")
27803130301
2781"^DD",176.003,176.003,.07,0)
2782SVER^FJ20^^0;7^K:$L(X)>20!($L(X)<1) X
2783"^DD",176.003,176.003,.07,.1)
2784VERSION
2785"^DD",176.003,176.003,.07,3)
2786Answer 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)
2790The source version, e.g., 2001
2791"^DD",176.003,176.003,.07,"DT")
27923130301
2793"^DD",176.003,176.003,.08,0)
2794VSTART^FJ10^^0;8^K:$L(X)>10!($L(X)<1) X
2795"^DD",176.003,176.003,.08,.1)
2796META START DATE
2797"^DD",176.003,176.003,.08,3)
2798Answer 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)
2802The date a source became active, e.g., 2001_04_03
2803"^DD",176.003,176.003,.08,"DT")
28043130301
2805"^DD",176.003,176.003,.09,0)
2806VEND^FJ10^^0;9^K:$L(X)>10!($L(X)<1) X
2807"^DD",176.003,176.003,.09,.1)
2808META END DATE
2809"^DD",176.003,176.003,.09,3)
2810Answer 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)
2814The date a source ceased to be active, e.g., 2001_05_10
2815"^DD",176.003,176.003,.09,"DT")
28163130301
2817"^DD",176.003,176.003,.1,0)
2818IMETA^FJ10^^0;10^K:$L(X)>10!($L(X)<1) X
2819"^DD",176.003,176.003,.1,.1)
2820META INSERT VERSION
2821"^DD",176.003,176.003,.1,3)
2822Answer 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)
2826The version of the Metathesaurus a source first appeared, e.g., 2001AB
2827"^DD",176.003,176.003,.1,"DT")
28283130301
2829"^DD",176.003,176.003,.11,0)
2830RMETA^FJ10^^0;11^K:$L(X)>10!($L(X)<1) X
2831"^DD",176.003,176.003,.11,.1)
2832META REMOVE VERSION
2833"^DD",176.003,176.003,.11,3)
2834Answer 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)
2838The version of the Metathesaurus a source was removed, e.g., 2001AC
2839"^DD",176.003,176.003,.11,"DT")
28403130301
2841"^DD",176.003,176.003,.12,0)
2842SLC^FJ1000^^0;12^K:$L(X)>1000!($L(X)<1) X
2843"^DD",176.003,176.003,.12,.1)
2844SOURCE LICENSE CONTACT
2845"^DD",176.003,176.003,.12,3)
2846Answer 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)
2850The source license contact information. A semi-colon separated list
2851"^DD",176.003,176.003,.12,21,2,0)
2852containing the following fields: Name; Title; Organization; Address 1;
2853"^DD",176.003,176.003,.12,21,3,0)
2854Address 2; City; State or Province; Country; Zip or Postal Code;
2855"^DD",176.003,176.003,.12,21,4,0)
2856Telephone; Contact Fax; Email; URL
2857"^DD",176.003,176.003,.12,"DT")
28583130301
2859"^DD",176.003,176.003,.13,0)
2860SCC^FJ1000^^0;13^K:$L(X)>1000!($L(X)<1) X
2861"^DD",176.003,176.003,.13,.1)
2862SOURCE CONTENT CONTACT
2863"^DD",176.003,176.003,.13,3)
2864Answer 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)
2868The source content contact information. A semi-colon separated list
2869"^DD",176.003,176.003,.13,21,2,0)
2870containing the following fields: Name; Title; Organization; Address 1;
2871"^DD",176.003,176.003,.13,21,3,0)
2872Address 2; City; State or Province; Country; Zip or Postal Code;
2873"^DD",176.003,176.003,.13,21,4,0)
2874Telephone; Contact Fax; Email; URL
2875"^DD",176.003,176.003,.13,"DT")
28763130301
2877"^DD",176.003,176.003,.14,0)
2878SRL^NJ10,0^^0;14^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
2879"^DD",176.003,176.003,.14,.1)
2880SOURCE RESTRICTION LEVEL
2881"^DD",176.003,176.003,.14,3)
2882Type 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)
28860,1,2,3,4 - explained in the License Agreement.
2887"^DD",176.003,176.003,.14,"DT")
28883130301
2889"^DD",176.003,176.003,.15,0)
2890TFR^NJ10,0^^0;15^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
2891"^DD",176.003,176.003,.15,.1)
2892TERM FREQUENCY
2893"^DD",176.003,176.003,.15,3)
2894Type 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)
2898The number of terms for this source in RXNCONSO.RRF, e.g., 12343 (not
2899"^DD",176.003,176.003,.15,21,2,0)
2900implemented yet)
2901"^DD",176.003,176.003,.15,"DT")
29023130301
2903"^DD",176.003,176.003,.16,0)
2904CFR^NJ10,0^^0;16^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
2905"^DD",176.003,176.003,.16,.1)
2906CUI FREQUENCY
2907"^DD",176.003,176.003,.16,3)
2908Type 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)
2912The number of CUIs associated with this source, e.g., 10234 (not
2913"^DD",176.003,176.003,.16,21,2,0)
2914implemented yet)
2915"^DD",176.003,176.003,.16,"DT")
29163130301
2917"^DD",176.003,176.003,.17,0)
2918CXTY^FJ50^^0;17^K:$L(X)>50!($L(X)<1) X
2919"^DD",176.003,176.003,.17,.1)
2920CONTEXT TYPE
2921"^DD",176.003,176.003,.17,3)
2922Answer 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)
2926The type of relationship label (Section 2.4.2 of UMLS Reference Manual)
2927"^DD",176.003,176.003,.17,"DT")
29283130301
2929"^DD",176.003,176.003,.18,0)
2930TTYL^FJ300^^0;18^K:$L(X)>300!($L(X)<1) X
2931"^DD",176.003,176.003,.18,.1)
2932TERM TYPE LIST
2933"^DD",176.003,176.003,.18,3)
2934Answer 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)
2938Term type list from source, e.g., MH,EN,PM,TQ
2939"^DD",176.003,176.003,.18,"DT")
29403130301
2941"^DD",176.003,176.003,.19,0)
2942ATNL^FJ1000^^0;19^K:$L(X)>1000!($L(X)<1) X
2943"^DD",176.003,176.003,.19,.1)
2944ATTRIBUTE NAME LIST
2945"^DD",176.003,176.003,.19,3)
2946Answer 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)
2950The attribute name list, e.g., MUI,RN,TH,...
2951"^DD",176.003,176.003,.19,"DT")
29523130301
2953"^DD",176.003,176.003,.2,0)
2954LAT^FJ3^^0;20^K:$L(X)>3!($L(X)<1) X
2955"^DD",176.003,176.003,.2,.1)
2956LANGUAGE
2957"^DD",176.003,176.003,.2,3)
2958Answer 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)
2962The language of the terms in the source
2963"^DD",176.003,176.003,.2,"DT")
29643130301
2965"^DD",176.003,176.003,.21,0)
2966CENC^FJ20^^0;21^K:$L(X)>20!($L(X)<1) X
2967"^DD",176.003,176.003,.21,.1)
2968CHARACTER ENCODING
2969"^DD",176.003,176.003,.21,3)
2970Answer 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)
2974Character set as specified by the IANA official names for character
2975"^DD",176.003,176.003,.21,21,2,0)
2976assignments http://www.iana.org/assignments/character-sets
2977"^DD",176.003,176.003,.21,"DT")
29783130301
2979"^DD",176.003,176.003,.22,0)
2980CURVER^FJ1^^0;22^K:$L(X)>1!($L(X)<1) X
2981"^DD",176.003,176.003,.22,.1)
2982CURRENT VERSION
2983"^DD",176.003,176.003,.22,3)
2984Answer 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)
2988A Y or N flag indicating whether or not this row corresponds to the
2989"^DD",176.003,176.003,.22,21,2,0)
2990current version of the named source
2991"^DD",176.003,176.003,.22,"DT")
29923130301
2993"^DD",176.003,176.003,.23,0)
2994SABIN^FJ1^^0;23^K:$L(X)>1!($L(X)<1) X
2995"^DD",176.003,176.003,.23,.1)
2996SOURCE IN SUBSET
2997"^DD",176.003,176.003,.23,3)
2998Answer 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)
3002A Y or N flag indicating whether or not this row is represented in the
3003"^DD",176.003,176.003,.23,21,2,0)
3004current MetamorphoSys subset. Initially always Y where CURVER is Y, but
3005"^DD",176.003,176.003,.23,21,3,0)
3006later is recomputed by MetamorphoSys.
3007"^DD",176.003,176.003,.23,"DT")
30083130301
3009"^DD",176.003,176.003,.24,0)
3010SSN^FJ3000^^0;24^K:$L(X)>3000!($L(X)<1) X
3011"^DD",176.003,176.003,.24,.1)
3012SOURCE SHORT NAME
3013"^DD",176.003,176.003,.24,3)
3014Answer 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)
3018The short name of a source as used by the NLM Knowledge Source Server.
3019"^DD",176.003,176.003,.24,"DT")
30203130301
3021"^DD",176.003,176.003,.25,0)
3022SCIT^FJ4000^^0;25^K:$L(X)>4000!($L(X)<1) X
3023"^DD",176.003,176.003,.25,.1)
3024SOURCE CITATION
3025"^DD",176.003,176.003,.25,3)
3026Answer 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)
3030Citation information for a source. A semi-colon separated list containing
3031"^DD",176.003,176.003,.25,21,2,0)
3032the following fields: Author(s); Author(s) address; Author(s)
3033"^DD",176.003,176.003,.25,21,3,0)
3034organization; Editor(s); Title; Content Designator; Medium Designator;
3035"^DD",176.003,176.003,.25,21,4,0)
3036Edition; Place of Publication; Publisher; Date of Publication/copyright;
3037"^DD",176.003,176.003,.25,21,5,0)
3038Date of revision; Location; Extent; Series; Availability Statement (URL);
3039"^DD",176.003,176.003,.25,21,6,0)
3040Language; Notes
3041"^DD",176.003,176.003,.25,"DT")
30423130301
3043"^DD",176.004,176.004,0)
3044FIELD^^.06^6
3045"^DD",176.004,176.004,0,"DIK")
3046C0CRXN4
3047"^DD",176.004,176.004,0,"DIKOLD")
3048C0CRXN4
3049"^DD",176.004,176.004,0,"DT")
30503130301
3051"^DD",176.004,176.004,0,"ID",.02)
3052W " ",$P(^(0),U,2)
3053"^DD",176.004,176.004,0,"ID",.03)
3054W " ",$P(^(0),U,3)
3055"^DD",176.004,176.004,0,"ID",.04)
3056W " ",$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")
3062RXNORM FOR VISTA
3063"^DD",176.004,176.004,.01,0)
3064RXNCUI^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)
3068176.004^B
3069"^DD",176.004,176.004,.01,1,1,1)
3070S ^C0CRXN(176.004,"B",$E(X,1,30),DA)=""
3071"^DD",176.004,176.004,.01,1,1,2)
3072K ^C0CRXN(176.004,"B",$E(X,1,30),DA)
3073"^DD",176.004,176.004,.01,3)
3074Answer 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)
3078Unique identifier of concept (concept id)
3079"^DD",176.004,176.004,.01,"DT")
30803130301
3081"^DD",176.004,176.004,.02,0)
3082TUI^FJ4^^0;2^K:$L(X)>4!($L(X)<1) X
3083"^DD",176.004,176.004,.02,3)
3084Answer 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)
3088Unique identifier of Semantic Type
3089"^DD",176.004,176.004,.02,"DT")
30903130301
3091"^DD",176.004,176.004,.03,0)
3092STN^FJ100^^0;3^K:$L(X)>100!($L(X)<1) X
3093"^DD",176.004,176.004,.03,3)
3094Answer 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)
3098Semantic Type tree number
3099"^DD",176.004,176.004,.03,"DT")
31003130301
3101"^DD",176.004,176.004,.04,0)
3102STY^FJ50^^0;4^K:$L(X)>50!($L(X)<1) X
3103"^DD",176.004,176.004,.04,3)
3104Answer 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)
3108Semantic Type. The valid values are defined in the Semantic Network.
3109"^DD",176.004,176.004,.04,"DT")
31103130301
3111"^DD",176.004,176.004,.05,0)
3112ATUI^FJ11^^0;5^K:$L(X)>11!($L(X)<1) X
3113"^DD",176.004,176.004,.05,3)
3114Answer 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)
3118Unique identifier for attribute
3119"^DD",176.004,176.004,.05,"DT")
31203130301
3121"^DD",176.004,176.004,.06,0)
3122CVF^FJ50^^0;6^K:$L(X)>50!($L(X)<1) X
3123"^DD",176.004,176.004,.06,3)
3124Answer 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)
3128Content view flag
3129"^DD",176.004,176.004,.06,"DT")
31303130301
3131"^DD",176.005,176.005,0)
3132FIELD^^.16^16
3133"^DD",176.005,176.005,0,"DIK")
3134C0CRXN5
3135"^DD",176.005,176.005,0,"DIKOLD")
3136C0CRXN5
3137"^DD",176.005,176.005,0,"DT")
31383130301
3139"^DD",176.005,176.005,0,"NM","RXNORM RELATED CONCEPTS")
3140
3141"^DD",176.005,176.005,0,"VRPK")
3142RXNORM FOR VISTA
3143"^DD",176.005,176.005,.01,0)
3144SAB^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)
3148Answer 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)
3152Abbreviation of the source of relationship
3153"^DD",176.005,176.005,.01,"DT")
31543130301
3155"^DD",176.005,176.005,.02,0)
3156RXAUI1^FJ8^^0;2^K:$L(X)>8!($L(X)<1) X
3157"^DD",176.005,176.005,.02,3)
3158Answer 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)
3162Unique identifier for first atom
3163"^DD",176.005,176.005,.02,"DT")
31643130301
3165"^DD",176.005,176.005,.03,0)
3166STYPE1^FJ50^^0;3^K:$L(X)>50!($L(X)<1) X
3167"^DD",176.005,176.005,.03,3)
3168Answer 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)
3172The name of the column in RXNCONSO.RRF that contains the identifier used
3173"^DD",176.005,176.005,.03,21,2,0)
3174for 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")
31783130301
3179"^DD",176.005,176.005,.04,0)
3180REL^FJ4^^0;4^K:$L(X)>4!($L(X)<1) X
3181"^DD",176.005,176.005,.04,3)
3182Answer 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)
3186Relationship of second concept or atom to first concept or atom
3187"^DD",176.005,176.005,.04,"DT")
31883130301
3189"^DD",176.005,176.005,.05,0)
3190RXCUI2^FJ8^^0;5^K:$L(X)>8!($L(X)<1) X
3191"^DD",176.005,176.005,.05,3)
3192Answer 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)
3196Unique identifier of second concept
3197"^DD",176.005,176.005,.05,"DT")
31983130301
3199"^DD",176.005,176.005,.06,0)
3200RXAUI2^FJ8^^0;6^K:$L(X)>8!($L(X)<1) X
3201"^DD",176.005,176.005,.06,3)
3202Answer 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)
3206Unique identifier for second atom
3207"^DD",176.005,176.005,.06,"DT")
32083130301
3209"^DD",176.005,176.005,.07,0)
3210STYPE2^FJ50^^0;7^K:$L(X)>50!($L(X)<1) X
3211"^DD",176.005,176.005,.07,3)
3212Answer 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)
3216The name of the column in RXNCONSO.RRF that contains the identifier used
3217"^DD",176.005,176.005,.07,21,2,0)
3218for 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")
32223130301
3223"^DD",176.005,176.005,.08,0)
3224RELA^FJ100^^0;8^K:$L(X)>100!($L(X)<1) X
3225"^DD",176.005,176.005,.08,3)
3226Answer 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)
3230Additional (more specific) relationship label (optional)
3231"^DD",176.005,176.005,.08,"DT")
32323130301
3233"^DD",176.005,176.005,.09,0)
3234RUI^FJ10^^0;9^K:$L(X)>10!($L(X)<1) X
3235"^DD",176.005,176.005,.09,3)
3236Answer 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)
3240Unique identifier for relationship
3241"^DD",176.005,176.005,.09,"DT")
32423130301
3243"^DD",176.005,176.005,.1,0)
3244SRUI^FJ50^^0;10^K:$L(X)>50!($L(X)<1) X
3245"^DD",176.005,176.005,.1,3)
3246Answer 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)
3250Source asserted relationship identifier, if present (no value provided)
3251"^DD",176.005,176.005,.1,"DT")
32523130301
3253"^DD",176.005,176.005,.11,0)
3254RXCUI1^FJ8^^0;11^K:$L(X)>8!($L(X)<1) X
3255"^DD",176.005,176.005,.11,3)
3256Answer 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)
3260Unique identifier of first concept
3261"^DD",176.005,176.005,.11,"DT")
32623130301
3263"^DD",176.005,176.005,.12,0)
3264SL^FJ1000^^0;12^K:$L(X)>1000!($L(X)<1) X
3265"^DD",176.005,176.005,.12,3)
3266Answer 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)
3270Source of relationship labels (no value provided)
3271"^DD",176.005,176.005,.12,"DT")
32723130301
3273"^DD",176.005,176.005,.13,0)
3274DIR^FJ1^^0;13^K:$L(X)>1!($L(X)<1) X
3275"^DD",176.005,176.005,.13,3)
3276Answer 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)
3280Source asserted directionality flag. (no value provided) Y indicates that
3281"^DD",176.005,176.005,.13,21,2,0)
3282this is the direction of the relationship in its source; N indicates that
3283"^DD",176.005,176.005,.13,21,3,0)
3284it 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)
3286determined.
3287"^DD",176.005,176.005,.13,"DT")
32883130301
3289"^DD",176.005,176.005,.14,0)
3290RG^FJ10^^0;14^K:$L(X)>10!($L(X)<1) X
3291"^DD",176.005,176.005,.14,3)
3292Answer 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)
3296Machine generated and unverified indicator (optional)
3297"^DD",176.005,176.005,.14,"DT")
32983130301
3299"^DD",176.005,176.005,.15,0)
3300SUPPRESS^FJ1^^0;15^K:$L(X)>1!($L(X)<1) X
3301"^DD",176.005,176.005,.15,3)
3302Answer 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)
3306Suppressible flag. Values = Y, E, or N. Reflects the suppressible status
3307"^DD",176.005,176.005,.15,21,2,0)
3308of the relationship; not yet in use. See also SUPPRESS in MRCONSO.RRF and
3309"^DD",176.005,176.005,.15,21,3,0)
3310MRDEF.RRF and MRREL.RRF in the UMLS Reference Manual.
3311"^DD",176.005,176.005,.15,"DT")
33123130301
3313"^DD",176.005,176.005,.16,0)
3314CVF^FJ50^^0;16^K:$L(X)>50!($L(X)<1) X
3315"^DD",176.005,176.005,.16,3)
3316Answer 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)
3320Content view flag
3321"^DD",176.005,176.005,.16,"DT")
33223130301
3323"^DD",176.006,176.006,0)
3324FIELD^^.04^4
3325"^DD",176.006,176.006,0,"DT")
33263130301
3327"^DD",176.006,176.006,0,"ID",.02)
3328W " ",$P(^(0),U,2)
3329"^DD",176.006,176.006,0,"ID",.03)
3330W " ",$P(^(0),U,3)
3331"^DD",176.006,176.006,0,"ID",.04)
3332W " ",$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")
3338RXNORM FOR VISTA
3339"^DD",176.006,176.006,.01,0)
3340DOCKEY^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)
3344176.006^B
3345"^DD",176.006,176.006,.01,1,1,1)
3346S ^C0CRXN(176.006,"B",$E(X,1,30),DA)=""
3347"^DD",176.006,176.006,.01,1,1,2)
3348K ^C0CRXN(176.006,"B",$E(X,1,30),DA)
3349"^DD",176.006,176.006,.01,3)
3350Answer 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)
3354Data element or attribute
3355"^DD",176.006,176.006,.01,"DT")
33563130301
3357"^DD",176.006,176.006,.02,0)
3358VALUE^FJ1000^^0;2^K:$L(X)>1000!($L(X)<1) X
3359"^DD",176.006,176.006,.02,3)
3360Answer 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)
3364Abbreviation that is one of its values
3365"^DD",176.006,176.006,.02,"DT")
33663130301
3367"^DD",176.006,176.006,.03,0)
3368TYPE^FJ50^^0;3^K:$L(X)>50!($L(X)<1) X
3369"^DD",176.006,176.006,.03,3)
3370Answer 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)
3374Type of information in EXPL column
3375"^DD",176.006,176.006,.03,"DT")
33763130301
3377"^DD",176.006,176.006,.04,0)
3378EXPL^FJ1000^^0;4^K:$L(X)>1000!($L(X)<1) X
3379"^DD",176.006,176.006,.04,3)
3380Answer 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)
3384Explanation of VALUE
3385"^DD",176.006,176.006,.04,"DT")
33863130301
3387"^DIC",176.001,176.001,0)
3388RXNORM 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)
3396File = RXNCONSO.RRF
3397"^DIC",176.001,176.001,"%D",2,0)
3398
3399"^DIC",176.001,176.001,"%D",3,0)
3400This file follows the general format of the MRCONSO.RRF file of the
3401"^DIC",176.001,176.001,"%D",4,0)
3402Metathesaurus. Some of the Metathesaurus fields are not provided by
3403"^DIC",176.001,176.001,"%D",5,0)
3404RxNorm and are marked as "(no value provided)". There is exactly one row
3405"^DIC",176.001,176.001,"%D",6,0)
3406in this file for each atom (each occurrence of each unique string or
3407"^DIC",176.001,176.001,"%D",7,0)
3408concept name within each source vocabulary) in RxNorm, i.e., there is
3409"^DIC",176.001,176.001,"%D",8,0)
3410exactly one row for each unique RXAUI in RxNorm. Every string or concept
3411"^DIC",176.001,176.001,"%D",9,0)
3412name in RxNorm appears in this file, connected to its language, source
3413"^DIC",176.001,176.001,"%D",10,0)
3414vocabularies, 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)
3418RXNORM 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)
3426File: RXNSAT.RRF
3427"^DIC",176.002,176.002,"%D",2,0)
3428
3429"^DIC",176.002,176.002,"%D",3,0)
3430This file follows the general format of the MRSAT.RRF file of the
3431"^DIC",176.002,176.002,"%D",4,0)
3432Metathesaurus. Some of the Metathesaurus fields are not provided by
3433"^DIC",176.002,176.002,"%D",5,0)
3434RxNorm and are marked as "(no value provided)". There is exactly one row
3435"^DIC",176.002,176.002,"%D",6,0)
3436in this table for each concept, atom, or relationship attribute that does
3437"^DIC",176.002,176.002,"%D",7,0)
3438not have a sub-element structure. Not all RxNorm concepts or RxNorm
3439"^DIC",176.002,176.002,"%D",8,0)
3440relationships have entries in this file. This file includes all source
3441"^DIC",176.002,176.002,"%D",9,0)
3442vocabulary 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)
3446RXNORM 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)
3454File RXNSAB.RRF
3455"^DIC",176.003,176.003,"%D",2,0)
3456
3457"^DIC",176.003,176.003,"%D",3,0)
3458This file contains the sources for each of the RxNorm files and their
3459"^DIC",176.003,176.003,"%D",4,0)
3460restriction levels.
3461"^DIC",176.003,176.003,"%D",5,0)
3462
3463"^DIC",176.003,176.003,"%D",6,0)
3464This file follows the general format of the MRSAB.RRF file of the
3465"^DIC",176.003,176.003,"%D",7,0)
3466Metathesaurus. Please refer to the UMLS Reference Manual for more
3467"^DIC",176.003,176.003,"%D",8,0)
3468specific information regarding this file.
3469"^DIC",176.003,176.003,"%D",9,0)
3470
3471"^DIC",176.003,176.003,"%D",10,0)
3472There is one row in this file for every source in RxNorm that is
3473"^DIC",176.003,176.003,"%D",11,0)
3474represented in this RxNorm release.
3475"^DIC",176.003,"B","RXNORM SOURCE INFORMATION",176.003)
3476
3477"^DIC",176.004,176.004,0)
3478RXNORM 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)
3486File = RXNSTY.RRF
3487"^DIC",176.004,176.004,"%D",2,0)
3488
3489"^DIC",176.004,176.004,"%D",3,0)
3490This file follows the general format of the MRSTY.RRF file of the
3491"^DIC",176.004,176.004,"%D",4,0)
3492Metathesaurus. There is exactly one row in this file for each Semantic
3493"^DIC",176.004,176.004,"%D",5,0)
3494Type assigned to each concept. All RxNorm concepts have at least one
3495"^DIC",176.004,176.004,"%D",6,0)
3496entry in this file. Many have more than one entry. The TUI, STN, and STY
3497"^DIC",176.004,176.004,"%D",7,0)
3498are 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)
3502RXNORM 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)
3510File = RXNREL.RRF
3511"^DIC",176.005,176.005,"%D",2,0)
3512
3513"^DIC",176.005,176.005,"%D",3,0)
3514This file follows the general format of the MRREL.RRF file of the
3515"^DIC",176.005,176.005,"%D",4,0)
3516Metathesaurus. Some of the Metathesaurus fields are not provided by
3517"^DIC",176.005,176.005,"%D",5,0)
3518RxNorm and are marked as "(no value provided)". There is one row in this
3519"^DIC",176.005,176.005,"%D",6,0)
3520table for each relationship between concepts or atoms known to RxNorm. In
3521"^DIC",176.005,176.005,"%D",7,0)
3522addition, explicit SY RELs are provided which give the UMLS Metathesaurus
3523"^DIC",176.005,176.005,"%D",8,0)
3524CUI 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)
3528Note that for asymmetrical relationships there is one row for each
3529"^DIC",176.005,176.005,"%D",11,0)
3530direction of the relationship. Note also the direction of REL - the
3531"^DIC",176.005,176.005,"%D",12,0)
3532relationship which the SECOND concept or atom (with Concept Unique
3533"^DIC",176.005,176.005,"%D",13,0)
3534Identifier RXCUI2 and Atom Unique Identifier RXAUI2) HAS TO the FIRST
3535"^DIC",176.005,176.005,"%D",14,0)
3536concept or atom (with Concept Unique Identifier RXCUI1 and Atom Unique
3537"^DIC",176.005,176.005,"%D",15,0)
3538Identifier RXAUI1).
3539"^DIC",176.005,"B","RXNORM RELATED CONCEPTS",176.005)
3540
3541"^DIC",176.006,176.006,0)
3542RXNORM 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)
3550File = RXNDOC.RRF
3551"^DIC",176.006,176.006,"%D",2,0)
3552
3553"^DIC",176.006,176.006,"%D",3,0)
3554This file follows the format of the Metathesaurus MRDOC.RRF file. At this
3555"^DIC",176.006,176.006,"%D",4,0)
3556time, this file contains all of the data contained in the UMLS MRDOC.RRF
3557"^DIC",176.006,176.006,"%D",5,0)
3558file. In the future, the contents of this file may be tailored to the
3559"^DIC",176.006,176.006,"%D",6,0)
3560RxNorm subset of data only. There is exactly one row in this table for
3561"^DIC",176.006,176.006,"%D",7,0)
3562each allowed value of selected data elements or attributes that have a
3563"^DIC",176.006,176.006,"%D",8,0)
3564finite number of abbreviations as allowed values. Examples of such data
3565"^DIC",176.006,176.006,"%D",9,0)
3566elements include TTY, ATN, TS, STT, REL, RELA.
3567"^DIC",176.006,"B","RXNORM DOCUMENTATION FOR ABBREVIATED VALUES",176.006)
3568
3569**END**
3570**END**
Note: See TracBrowser for help on using the repository browser.