From 1e98fe7212adcae1687e2c6b5f611826825730ee Mon Sep 17 00:00:00 2001
From: sam <sam>
Date: Tue, 9 Apr 2013 20:07:33 +0000
Subject: [PATCH] Moved routines, exported globals as ZWR format

---
 rxnorm/trunk/globals/F176.001.ZWR      | 268 ++++++++++++++++++++++++
 rxnorm/trunk/globals/F176.002.ZWR      | 227 ++++++++++++++++++++
 rxnorm/trunk/globals/F176.003.ZWR      | 277 +++++++++++++++++++++++++
 rxnorm/trunk/globals/F176.004.ZWR      |  74 +++++++
 rxnorm/trunk/globals/F176.005.ZWR      | 173 +++++++++++++++
 rxnorm/trunk/globals/F176.006.ZWR      |  62 ++++++
 rxnorm/trunk/globals/F50D176.001.ZWR   |  13 ++
 rxnorm/trunk/{ => routines}/C0CRXNLK.m |   0
 rxnorm/trunk/{ => routines}/C0CRXNRD.m |   0
 9 files changed, 1094 insertions(+)
 create mode 100644 rxnorm/trunk/globals/F176.001.ZWR
 create mode 100644 rxnorm/trunk/globals/F176.002.ZWR
 create mode 100644 rxnorm/trunk/globals/F176.003.ZWR
 create mode 100644 rxnorm/trunk/globals/F176.004.ZWR
 create mode 100644 rxnorm/trunk/globals/F176.005.ZWR
 create mode 100644 rxnorm/trunk/globals/F176.006.ZWR
 create mode 100644 rxnorm/trunk/globals/F50D176.001.ZWR
 rename rxnorm/trunk/{ => routines}/C0CRXNLK.m (100%)
 rename rxnorm/trunk/{ => routines}/C0CRXNRD.m (100%)

diff --git a/rxnorm/trunk/globals/F176.001.ZWR b/rxnorm/trunk/globals/F176.001.ZWR
new file mode 100644
index 0000000..9ff0611
--- /dev/null
+++ b/rxnorm/trunk/globals/F176.001.ZWR
@@ -0,0 +1,268 @@
+KBANXDD - FILE 176.001
+3130409.13243 ZWR
+^DIC(176.001,0)="RXNORM CONCEPT NAMES AND SOURCES^176.001"
+^DIC(176.001,0,"AUDIT")=""
+^DIC(176.001,0,"DD")="@"
+^DIC(176.001,0,"DEL")=""
+^DIC(176.001,0,"GL")="^C0CRXN(176.001,"
+^DIC(176.001,0,"LAYGO")=""
+^DIC(176.001,0,"RD")=""
+^DIC(176.001,0,"WR")="@"
+^DIC(176.001,"%",0)="^1.005^^"
+^DIC(176.001,"%D",0)="^^10^10^3130225^"
+^DIC(176.001,"%D",1,0)="File = RXNCONSO.RRF"
+^DIC(176.001,"%D",2,0)=" "
+^DIC(176.001,"%D",3,0)="This file follows the general format of the MRCONSO.RRF file of the "
+^DIC(176.001,"%D",4,0)="Metathesaurus. Some of the Metathesaurus fields are not provided by "
+^DIC(176.001,"%D",5,0)="RxNorm and are marked as ""(no value provided)"". There is exactly one row "
+^DIC(176.001,"%D",6,0)="in this file for each atom (each occurrence of each unique string or "
+^DIC(176.001,"%D",7,0)="concept name within each source vocabulary) in RxNorm, i.e., there is "
+^DIC(176.001,"%D",8,0)="exactly one row for each unique RXAUI in RxNorm. Every string or concept "
+^DIC(176.001,"%D",9,0)="name in RxNorm appears in this file, connected to its language, source "
+^DIC(176.001,"%D",10,0)="vocabularies, and its concept identifier (RXCUI)."
+^DD(176.001,0)="FIELD^^.18^18"
+^DD(176.001,0,"DT")=3130227
+^DD(176.001,0,"ID",.12)="W ""   "",$P(^(0),U,12)"
+^DD(176.001,0,"ID",.13)="W ""   "",$P(^(0),U,13)"
+^DD(176.001,0,"ID",.14)="W ""   "",$P(^(0),U,14)"
+^DD(176.001,0,"ID",.15)="W ""   "",$P(^(0),U,15)"
+^DD(176.001,0,"NM","RXNORM CONCEPT NAMES AND SOURCES")=""
+^DD(176.001,.01,0)="RXCUI^RFJ8^^0;1^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X"
+^DD(176.001,.01,1,0)="^.1^^0"
+^DD(176.001,.01,3)="Answer must be 1-8 characters in length."
+^DD(176.001,.01,21,0)="^^1^1^3130225^"
+^DD(176.001,.01,21,1,0)="RxNorm Unique identifier for concept (concept ID)"
+^DD(176.001,.01,"DT")=3130305
+^DD(176.001,.02,0)="LAT^RFJ3^^0;2^K:$L(X)>3!($L(X)<1) X"
+^DD(176.001,.02,3)="Answer must be 1-3 characters in length."
+^DD(176.001,.02,21,0)="^^1^1^3130225^"
+^DD(176.001,.02,21,1,0)="Language of Term"
+^DD(176.001,.02,"DT")=3130225
+^DD(176.001,.03,0)="TS^FJ1^^0;3^K:$L(X)>1!($L(X)<1) X"
+^DD(176.001,.03,3)="Answer must be 1 character in length."
+^DD(176.001,.03,21,0)="^^1^1^3130225^"
+^DD(176.001,.03,21,1,0)="Term status (no value provided)"
+^DD(176.001,.03,"DT")=3130225
+^DD(176.001,.04,0)="LUI^FJ8^^0;4^K:$L(X)>8!($L(X)<1) X"
+^DD(176.001,.04,3)="Answer must be 1-8 characters in length."
+^DD(176.001,.04,21,0)="^^1^1^3130225^"
+^DD(176.001,.04,21,1,0)="Unique identifier for term (no value provided)"
+^DD(176.001,.04,"DT")=3130225
+^DD(176.001,.05,0)="STT^FJ3^^0;5^K:$L(X)>3!($L(X)<1) X"
+^DD(176.001,.05,3)="Answer must be 1-3 characters in length."
+^DD(176.001,.05,21,0)="^^1^1^3130225^"
+^DD(176.001,.05,21,1,0)="String type (no value provided)"
+^DD(176.001,.05,"DT")=3130225
+^DD(176.001,.06,0)="SUI^FJ8^^0;6^K:$L(X)>8!($L(X)<1) X"
+^DD(176.001,.06,3)="Answer must be 1-8 characters in length."
+^DD(176.001,.06,21,0)="^^1^1^3130225^"
+^DD(176.001,.06,21,1,0)="Unique identifier for string (no value provided)"
+^DD(176.001,.06,"DT")=3130225
+^DD(176.001,.07,0)="ISPREF^FJ1^^0;7^K:$L(X)>1!($L(X)<1) X"
+^DD(176.001,.07,3)="Answer must be 1 character in length."
+^DD(176.001,.07,21,0)="^^2^2^3130225^"
+^DD(176.001,.07,21,1,0)="Atom status - preferred (Y) or not (N) for this string within this "
+^DD(176.001,.07,21,2,0)="concept (no value provided)"
+^DD(176.001,.07,"DT")=3130225
+^DD(176.001,.08,0)="RXAUI^RFJ8^^0;8^K:$L(X)>8!($L(X)<1) X"
+^DD(176.001,.08,3)="Answer must be 1-8 characters in length."
+^DD(176.001,.08,21,0)="^^1^1^3130225^"
+^DD(176.001,.08,21,1,0)="Unique identifier for atom (RxNorm Atom ID)"
+^DD(176.001,.08,"DT")=3130225
+^DD(176.001,.09,0)="SAUI^FJ50^^0;9^K:$L(X)>50!($L(X)<1) X"
+^DD(176.001,.09,3)="Answer must be 1-50 characters in length."
+^DD(176.001,.09,21,0)="^^1^1^3130225^"
+^DD(176.001,.09,21,1,0)="Source asserted atom identifier [optional]"
+^DD(176.001,.09,"DT")=3130225
+^DD(176.001,.1,0)="SCUI^FJ50^^0;10^K:$L(X)>50!($L(X)<1) X"
+^DD(176.001,.1,3)="Answer must be 1-50 characters in length."
+^DD(176.001,.1,21,0)="^^1^1^3130225^"
+^DD(176.001,.1,21,1,0)="Source asserted concept identifier [optional]"
+^DD(176.001,.1,"DT")=3130225
+^DD(176.001,.11,0)="SDUI^FJ50^^0;11^K:$L(X)>50!($L(X)<1) X"
+^DD(176.001,.11,3)="Answer must be 1-50 characters in length."
+^DD(176.001,.11,21,0)="^^1^1^3130225^"
+^DD(176.001,.11,21,1,0)="Source asserted descriptor identifier [optional] (no value provided)"
+^DD(176.001,.11,"DT")=3130225
+^DD(176.001,.12,0)="SAB^RFJ20^^0;12^K:$L(X)>20!($L(X)<1) X"
+^DD(176.001,.12,3)="Answer must be 1-20 characters in length."
+^DD(176.001,.12,21,0)="^^1^1^3130225^"
+^DD(176.001,.12,21,1,0)="Source abbreviation"
+^DD(176.001,.12,"DT")=3130305
+^DD(176.001,.13,0)="TTY^RFJ20^^0;13^K:$L(X)>20!($L(X)<1) X"
+^DD(176.001,.13,3)="Answer must be 1-20 characters in length."
+^DD(176.001,.13,21,0)="^^1^1^3130225^"
+^DD(176.001,.13,21,1,0)="Term type in source"
+^DD(176.001,.13,"DT")=3130305
+^DD(176.001,.14,0)="CODE^RFJ50^^0;14^K:$L(X)>50!($L(X)<1) X"
+^DD(176.001,.14,3)="Answer must be 1-50 characters in length."
+^DD(176.001,.14,21,0)="^^3^3^3130225^"
+^DD(176.001,.14,21,1,0)="""Most useful"" source asserted identifier (if the source vocabulary has "
+^DD(176.001,.14,21,2,0)="more than one identifier), or a Metathesaurus-generated source entry "
+^DD(176.001,.14,21,3,0)="identifier (if the source vocabulary has none.)"
+^DD(176.001,.14,"DT")=3130305
+^DD(176.001,.15,0)="STR^RFJ3000^^0;15^K:$L(X)>3000!($L(X)<1) X"
+^DD(176.001,.15,1,0)="^.1^^0"
+^DD(176.001,.15,3)="Answer must be 1-3000 characters in length."
+^DD(176.001,.15,21,0)="^^1^1^3130225^"
+^DD(176.001,.15,21,1,0)="String"
+^DD(176.001,.15,"DT")=3130227
+^DD(176.001,.16,0)="SRL^FJ10^^0;16^K:$L(X)>10!($L(X)<1) X"
+^DD(176.001,.16,3)="Answer must be 1-10 characters in length."
+^DD(176.001,.16,21,0)="^^1^1^3130225^"
+^DD(176.001,.16,21,1,0)="Source Restriction Level (no value provided)"
+^DD(176.001,.16,"DT")=3130225
+^DD(176.001,.17,0)="SUPPRESS^FJ1^^0;17^K:$L(X)>1!($L(X)<1) X"
+^DD(176.001,.17,3)="Answer must be 1 character in length."
+^DD(176.001,.17,21,0)="^^4^4^3130225^"
+^DD(176.001,.17,21,1,0)="Suppressible flag. Values = N or O. N - not suppressible. O - Specific "
+^DD(176.001,.17,21,2,0)="Individual names (atoms) set as Obsolete because the name is no longer "
+^DD(176.001,.17,21,3,0)="provided by the original source. NLM strongly recommends that users not "
+^DD(176.001,.17,21,4,0)="alter editor-assigned suppressibility."
+^DD(176.001,.17,"DT")=3130225
+^DD(176.001,.18,0)="CVF^FJ50^^0;18^K:$L(X)>50!($L(X)<1) X"
+^DD(176.001,.18,3)="Answer must be 1-50 characters in length."
+^DD(176.001,.18,21,0)="^^1^1^3130225^"
+^DD(176.001,.18,21,1,0)="Content view flag"
+^DD(176.001,.18,"DT")=3130225
+^DD(176.001,"B","CODE",.14)=""
+^DD(176.001,"B","CVF",.18)=""
+^DD(176.001,"B","ISPREF",.07)=""
+^DD(176.001,"B","LAT",.02)=""
+^DD(176.001,"B","LUI",.04)=""
+^DD(176.001,"B","RXAUI",.08)=""
+^DD(176.001,"B","RXCUI",.01)=""
+^DD(176.001,"B","SAB",.12)=""
+^DD(176.001,"B","SAUI",.09)=""
+^DD(176.001,"B","SCUI",.1)=""
+^DD(176.001,"B","SDUI",.11)=""
+^DD(176.001,"B","SRL",.16)=""
+^DD(176.001,"B","STR",.15)=""
+^DD(176.001,"B","STT",.05)=""
+^DD(176.001,"B","SUI",.06)=""
+^DD(176.001,"B","SUPPRESS",.17)=""
+^DD(176.001,"B","TS",.03)=""
+^DD(176.001,"B","TTY",.13)=""
+^DD(176.001,"GL",0,1,.01)=""
+^DD(176.001,"GL",0,2,.02)=""
+^DD(176.001,"GL",0,3,.03)=""
+^DD(176.001,"GL",0,4,.04)=""
+^DD(176.001,"GL",0,5,.05)=""
+^DD(176.001,"GL",0,6,.06)=""
+^DD(176.001,"GL",0,7,.07)=""
+^DD(176.001,"GL",0,8,.08)=""
+^DD(176.001,"GL",0,9,.09)=""
+^DD(176.001,"GL",0,10,.1)=""
+^DD(176.001,"GL",0,11,.11)=""
+^DD(176.001,"GL",0,12,.12)=""
+^DD(176.001,"GL",0,13,.13)=""
+^DD(176.001,"GL",0,14,.14)=""
+^DD(176.001,"GL",0,15,.15)=""
+^DD(176.001,"GL",0,16,.16)=""
+^DD(176.001,"GL",0,17,.17)=""
+^DD(176.001,"GL",0,18,.18)=""
+^DD(176.001,"RQ",.01)=""
+^DD(176.001,"RQ",.02)=""
+^DD(176.001,"RQ",.08)=""
+^DD(176.001,"RQ",.12)=""
+^DD(176.001,"RQ",.13)=""
+^DD(176.001,"RQ",.14)=""
+^DD(176.001,"RQ",.15)=""
+^DD("IX",900,0)="176.001^STR^String Lookup Index^R^^F^IR^I^176.001^^^^^LS"
+^DD("IX",900,1)="S ^C0CRXN(176.001,""STR"",$E(X,1,30),DA)="""""
+^DD("IX",900,2)="K ^C0CRXN(176.001,""STR"",$E(X,1,30),DA)"
+^DD("IX",900,2.5)="K ^C0CRXN(176.001,""STR"")"
+^DD("IX",900,11.1,0)="^.114IA^1^1"
+^DD("IX",900,11.1,1,0)="1^F^176.001^.15^30^1^F"
+^DD("IX",900,11.1,1,2)="S X=$$UP^XLFSTR(X)"
+^DD("IX",900,11.1,1,3)=""
+^DD("IX",900,11.1,1,4)="S X=$$UP^XLFSTR(X)"
+^DD("IX",900,11.1,"AC",1,1)=""
+^DD("IX",900,11.1,"B",1,1)=""
+^DD("IX",900,11.1,"BB",1,1)=""
+^DD("IX",901,0)="176.001^B^Regular B Index^R^^F^IR^I^176.001^^^^^LS"
+^DD("IX",901,1)="S ^C0CRXN(176.001,""B"",X,DA)="""""
+^DD("IX",901,2)="K ^C0CRXN(176.001,""B"",X,DA)"
+^DD("IX",901,2.5)="K ^C0CRXN(176.001,""B"")"
+^DD("IX",901,11.1,0)="^.114IA^1^1"
+^DD("IX",901,11.1,1,0)="1^F^176.001^.01^^1^F"
+^DD("IX",901,11.1,1,3)=""
+^DD("IX",901,11.1,"AC",1,1)=""
+^DD("IX",901,11.1,"B",1,1)=""
+^DD("IX",901,11.1,"BB",1,1)=""
+^DD("IX",902,0)="176.001^STC^Source Term Type Code Index^MU^^R^IR^I^176.001^^^^^LS"
+^DD("IX",902,.1,0)="^^11^11^3130304^"
+^DD("IX",902,.1,1,0)="Use this index to do compound searches on RxNorm Concepts."
+^DD("IX",902,.1,2,0)=" "
+^DD("IX",902,.1,3,0)="Examples:"
+^DD("IX",902,.1,4,0)="SAB=""NDDF"", TTY=""CDC"", CODE={GCN} will give you the entry a clinical drug "
+^DD("IX",902,.1,5,0)="in First Database with GCN Code {GCN}."
+^DD("IX",902,.1,6,0)=" "
+^DD("IX",902,.1,7,0)="SAB=""RXNORM"", TTY=""SCD"", CODE={RXNORM} will give you the entry that is "
+^DD("IX",902,.1,8,0)="the Semantic Clinical Drug for the RxNorm code."
+^DD("IX",902,.1,9,0)=" "
+^DD("IX",902,.1,10,0)="SAB=""VANDF"", TTY=""CD"", CODE={VUID} will give you a drug that has that "
+^DD("IX",902,.1,11,0)="VUID."
+^DD("IX",902,1)="S ^C0CRXN(176.001,""STC"",X(1),X(2),X(3),DA)=X(4)"
+^DD("IX",902,2)="K ^C0CRXN(176.001,""STC"",X(1),X(2),X(3),DA)"
+^DD("IX",902,2.5)="K ^C0CRXN(176.001,""STC"")"
+^DD("IX",902,11.1,0)="^.114IA^4^4"
+^DD("IX",902,11.1,1,0)="1^F^176.001^.12^^1^F"
+^DD("IX",902,11.1,1,3)=""
+^DD("IX",902,11.1,2,0)="2^F^176.001^.13^^2^F"
+^DD("IX",902,11.1,2,3)=""
+^DD("IX",902,11.1,3,0)="3^F^176.001^.14^^3^F"
+^DD("IX",902,11.1,3,3)=""
+^DD("IX",902,11.1,4,0)="4^F^176.001^.01^^^F"
+^DD("IX",902,11.1,4,3)=""
+^DD("IX",902,11.1,"AC",1,1)=""
+^DD("IX",902,11.1,"AC",2,2)=""
+^DD("IX",902,11.1,"AC",3,3)=""
+^DD("IX",902,11.1,"B",1,1)=""
+^DD("IX",902,11.1,"B",2,2)=""
+^DD("IX",902,11.1,"B",3,3)=""
+^DD("IX",902,11.1,"B",4,4)=""
+^DD("IX",902,11.1,"BB",1,1)=""
+^DD("IX",902,11.1,"BB",2,2)=""
+^DD("IX",902,11.1,"BB",3,3)=""
+^DD("IX",902,11.1,"BB",4,4)=""
+^DD("IX",903,0)="176.001^CODE^Code Index^R^^F^IR^I^176.001^^^^^LS"
+^DD("IX",903,1)="S ^C0CRXN(176.001,""CODE"",X,DA)="""""
+^DD("IX",903,2)="K ^C0CRXN(176.001,""CODE"",X,DA)"
+^DD("IX",903,2.5)="K ^C0CRXN(176.001,""CODE"")"
+^DD("IX",903,11.1,0)="^.114IA^1^1"
+^DD("IX",903,11.1,1,0)="1^F^176.001^.14^^1^F"
+^DD("IX",903,11.1,1,3)=""
+^DD("IX",903,11.1,"AC",1,1)=""
+^DD("IX",903,11.1,"B",1,1)=""
+^DD("IX",903,11.1,"BB",1,1)=""
+^DD("IX",906,0)="176.001^STX^Source Term Type RxCUI Code Index^MU^^R^IR^I^176.001^^^^^LS"
+^DD("IX",906,.1,0)="^^5^5^3130305^"
+^DD("IX",906,.1,1,0)="Use this index as a reverse of the STC index."
+^DD("IX",906,.1,2,0)=" "
+^DD("IX",906,.1,3,0)="The STC index will give you an entry if you know the source and the type "
+^DD("IX",906,.1,4,0)="and the code. This index will give you the codes if you know the source, "
+^DD("IX",906,.1,5,0)="the type, but not the code, but rather the RxNorm code."
+^DD("IX",906,1)="S ^C0CRXN(176.001,""STX"",X(1),X(2),X(3),DA)=X(4)"
+^DD("IX",906,2)="K ^C0CRXN(176.001,""STX"",X(1),X(2),X(3),DA)"
+^DD("IX",906,2.5)="K ^C0CRXN(176.001,""STX"")"
+^DD("IX",906,11.1,0)="^.114IA^4^4"
+^DD("IX",906,11.1,1,0)="1^F^176.001^.12^^1^F"
+^DD("IX",906,11.1,1,3)=""
+^DD("IX",906,11.1,2,0)="2^F^176.001^.13^^2^F"
+^DD("IX",906,11.1,2,3)=""
+^DD("IX",906,11.1,3,0)="3^F^176.001^.01^^3^F"
+^DD("IX",906,11.1,3,3)=""
+^DD("IX",906,11.1,4,0)="4^F^176.001^.14^^^F"
+^DD("IX",906,11.1,4,3)=""
+^DD("IX",906,11.1,"AC",1,1)=""
+^DD("IX",906,11.1,"AC",2,2)=""
+^DD("IX",906,11.1,"AC",3,3)=""
+^DD("IX",906,11.1,"B",1,1)=""
+^DD("IX",906,11.1,"B",2,2)=""
+^DD("IX",906,11.1,"B",3,3)=""
+^DD("IX",906,11.1,"B",4,4)=""
+^DD("IX",906,11.1,"BB",1,1)=""
+^DD("IX",906,11.1,"BB",2,2)=""
+^DD("IX",906,11.1,"BB",3,3)=""
+^DD("IX",906,11.1,"BB",4,4)=""
diff --git a/rxnorm/trunk/globals/F176.002.ZWR b/rxnorm/trunk/globals/F176.002.ZWR
new file mode 100644
index 0000000..2c727d2
--- /dev/null
+++ b/rxnorm/trunk/globals/F176.002.ZWR
@@ -0,0 +1,227 @@
+KBANXDD - FILE 176.002
+3130409.132457 ZWR
+^DIC(176.002,0)="RXNORM SIMPLE CONCEPT AND ATOM ATTRIBUTES^176.002"
+^DIC(176.002,0,"AUDIT")="@"
+^DIC(176.002,0,"DD")="@"
+^DIC(176.002,0,"DEL")="@"
+^DIC(176.002,0,"GL")="^C0CRXN(176.002,"
+^DIC(176.002,0,"LAYGO")="@"
+^DIC(176.002,0,"RD")=""
+^DIC(176.002,0,"WR")="@"
+^DIC(176.002,"%",0)="^1.005^^"
+^DIC(176.002,"%D",0)="^^9^9^3130301^"
+^DIC(176.002,"%D",1,0)="File: RXNSAT.RRF"
+^DIC(176.002,"%D",2,0)=" "
+^DIC(176.002,"%D",3,0)="This file follows the general format of the MRSAT.RRF file of the"
+^DIC(176.002,"%D",4,0)="Metathesaurus. Some of the Metathesaurus fields are not provided by "
+^DIC(176.002,"%D",5,0)="RxNorm and are marked as ""(no value provided)"". There is exactly one row "
+^DIC(176.002,"%D",6,0)="in this table for each concept, atom, or relationship attribute that does "
+^DIC(176.002,"%D",7,0)="not have a sub-element structure. Not all RxNorm concepts or RxNorm "
+^DIC(176.002,"%D",8,0)="relationships have entries in this file. This file includes all source "
+^DIC(176.002,"%D",9,0)="vocabulary attributes that do not fit into other categories."
+^DD(176.002,0)="FIELD^^.13^13"
+^DD(176.002,0,"DT")=3130301
+^DD(176.002,0,"ID",.1)="W ""   "",$P(^(0),U,10)"
+^DD(176.002,0,"ID",.11)="W ""   "",$P(^(0),U,11)"
+^DD(176.002,0,"IX","XATN",176.002,.01)=""
+^DD(176.002,0,"IX","XATV",176.002,.11)=""
+^DD(176.002,0,"NM","RXNORM SIMPLE CONCEPT AND ATOM ATTRIBUTES")=""
+^DD(176.002,.01,0)="ATN^RFJ1000^^0;1^K:$L(X)>1000!($L(X)<1)!'(X'?1P.E) X"
+^DD(176.002,.01,1,0)="^.1"
+^DD(176.002,.01,1,1,0)="176.002^XATN"
+^DD(176.002,.01,1,1,1)="S ^C0CRXN(176.002,""XATN"",$E(X,1,30),DA)="""""
+^DD(176.002,.01,1,1,2)="K ^C0CRXN(176.002,""XATN"",$E(X,1,30),DA)"
+^DD(176.002,.01,1,1,3)="ATN INDEX"
+^DD(176.002,.01,1,1,"DT")=3130301
+^DD(176.002,.01,3)="Answer must be 1-1000 characters in length."
+^DD(176.002,.01,21,0)="^^2^2^3130301^^"
+^DD(176.002,.01,21,1,0)="Attribute name. Possible values appear in RXNDOC.RRF and are described on "
+^DD(176.002,.01,21,2,0)="the UMLS Attribute Names page."
+^DD(176.002,.01,"DT")=3130307
+^DD(176.002,.02,0)="LUI^FJ8^^0;2^K:$L(X)>8!($L(X)<1) X"
+^DD(176.002,.02,3)="Answer must be 1-8 characters in length."
+^DD(176.002,.02,21,0)="^^1^1^3130301^^"
+^DD(176.002,.02,21,1,0)="Unique identifier for term (no value provided)"
+^DD(176.002,.02,"DT")=3130301
+^DD(176.002,.03,0)="SUI^FJ8^^0;3^K:$L(X)>8!($L(X)<1) X"
+^DD(176.002,.03,3)="Answer must be 1-8 characters in length."
+^DD(176.002,.03,21,0)="^^1^1^3130301^"
+^DD(176.002,.03,21,1,0)="Unique identifier for string (no value provided)"
+^DD(176.002,.03,"DT")=3130301
+^DD(176.002,.04,0)="RXAUI^FJ8^^0;4^K:$L(X)>8!($L(X)<1) X"
+^DD(176.002,.04,3)="Answer must be 1-8 characters in length."
+^DD(176.002,.04,21,0)="^^1^1^3130301^"
+^DD(176.002,.04,21,1,0)="RxNorm atom identifier (RXAUI) or RxNorm relationship identifier (RUI)."
+^DD(176.002,.04,"DT")=3130301
+^DD(176.002,.05,0)="STYPE^FJ50^^0;5^K:$L(X)>50!($L(X)<1) X"
+^DD(176.002,.05,3)="Answer must be 1-50 characters in length."
+^DD(176.002,.05,21,0)="^^2^2^3130301^"
+^DD(176.002,.05,21,1,0)="The name of the column in RXNCONSO.RRF or RXNREL.RRF that contains the "
+^DD(176.002,.05,21,2,0)="identifier to which the attribute is attached, e.g., CUI, AUI."
+^DD(176.002,.05,"DT")=3130301
+^DD(176.002,.06,0)="CODE^FJ50^^0;6^K:$L(X)>50!($L(X)<1) X"
+^DD(176.002,.06,3)="Answer must be 1-50 characters in length."
+^DD(176.002,.06,21,0)="^^2^2^3130301^^"
+^DD(176.002,.06,21,1,0)="""Most useful"" source asserted identifier (if the source vocabulary "
+^DD(176.002,.06,21,2,0)="contains more than one)."
+^DD(176.002,.06,"DT")=3130301
+^DD(176.002,.07,0)="ATUI^FJ11^^0;7^K:$L(X)>11!($L(X)<1) X"
+^DD(176.002,.07,3)="Answer must be 1-11 characters in length."
+^DD(176.002,.07,21,0)="^^1^1^3130301^"
+^DD(176.002,.07,21,1,0)="Unique identifier for attribute."
+^DD(176.002,.07,"DT")=3130301
+^DD(176.002,.08,0)="SATUI^FJ50^^0;8^K:$L(X)>50!($L(X)<1) X"
+^DD(176.002,.08,3)="Answer must be 1-50 characters in length."
+^DD(176.002,.08,21,0)="^^1^1^3130301^"
+^DD(176.002,.08,21,1,0)="Source asserted attribute identifier (optional - present if it exists)."
+^DD(176.002,.08,"DT")=3130301
+^DD(176.002,.09,0)="RXCUI^FJ8^^0;9^K:$L(X)>8!($L(X)<1) X"
+^DD(176.002,.09,3)="Answer must be 1-8 characters in length."
+^DD(176.002,.09,21,0)="^^1^1^3130301^"
+^DD(176.002,.09,21,1,0)="Unique identifier for concept (concept id)."
+^DD(176.002,.09,"DT")=3130307
+^DD(176.002,.1,0)="SAB^RFJ20^^0;10^K:$L(X)>20!($L(X)<1) X"
+^DD(176.002,.1,3)="Answer must be 1-20 characters in length."
+^DD(176.002,.1,21,0)="^^2^2^3130301^"
+^DD(176.002,.1,21,1,0)="Abbreviation of the source of the attribute. Possible values appear in "
+^DD(176.002,.1,21,2,0)="RXNSAB.RRF and are listed on the UMLS Source Vocabularies page."
+^DD(176.002,.1,"DT")=3130307
+^DD(176.002,.11,0)="ATV^FJ4000^^0;11^K:$L(X)>4000!($L(X)<1) X"
+^DD(176.002,.11,1,0)="^.1"
+^DD(176.002,.11,1,1,0)="176.002^XATV"
+^DD(176.002,.11,1,1,1)="S ^C0CRXN(176.002,""XATV"",$E(X,1,30),DA)="""""
+^DD(176.002,.11,1,1,2)="K ^C0CRXN(176.002,""XATV"",$E(X,1,30),DA)"
+^DD(176.002,.11,1,1,3)="ATV INDEX"
+^DD(176.002,.11,1,1,"DT")=3130301
+^DD(176.002,.11,3)="Answer must be 1-4000 characters in length."
+^DD(176.002,.11,21,0)="^^4^4^3130301^"
+^DD(176.002,.11,21,1,0)="Attribute value described under specific attribute name on the UMLS "
+^DD(176.002,.11,21,2,0)="Attribute Names page. A few attribute values exceed 1,000 characters. "
+^DD(176.002,.11,21,3,0)="Many of the abbreviations used in attribute values are explained in "
+^DD(176.002,.11,21,4,0)="RXNDOC.RRF and included UMLS Abbreviations Used in Data Elements page."
+^DD(176.002,.11,"DT")=3130307
+^DD(176.002,.12,0)="SUPPRESS^FJ1^^0;12^K:$L(X)>1!($L(X)<1) X"
+^DD(176.002,.12,3)="Answer must be 1 character in length."
+^DD(176.002,.12,21,0)="^^3^3^3130301^"
+^DD(176.002,.12,21,1,0)="Suppressible flag. Values = O, Y, or N. Reflects the suppressible status "
+^DD(176.002,.12,21,2,0)="of the attribute. N - Attribute is not suppressed. O - Attribute is "
+^DD(176.002,.12,21,3,0)="suppressed at source level. Y - Attribute is suppressed by RxNorm editors."
+^DD(176.002,.12,"DT")=3130301
+^DD(176.002,.13,0)="CVF^FJ50^^0;13^K:$L(X)>50!($L(X)<1) X"
+^DD(176.002,.13,3)="Answer must be 1-50 characters in length."
+^DD(176.002,.13,21,0)="^^1^1^3130301^"
+^DD(176.002,.13,21,1,0)="Content view flag"
+^DD(176.002,.13,"DT")=3130301
+^DD(176.002,"B","ATN",.01)=""
+^DD(176.002,"B","ATUI",.07)=""
+^DD(176.002,"B","ATV",.11)=""
+^DD(176.002,"B","CODE",.06)=""
+^DD(176.002,"B","CVF",.13)=""
+^DD(176.002,"B","LUI",.02)=""
+^DD(176.002,"B","RXAUI",.04)=""
+^DD(176.002,"B","RXCUI",.09)=""
+^DD(176.002,"B","SAB",.1)=""
+^DD(176.002,"B","SATUI",.08)=""
+^DD(176.002,"B","STYPE",.05)=""
+^DD(176.002,"B","SUI",.03)=""
+^DD(176.002,"B","SUPPRESS",.12)=""
+^DD(176.002,"GL",0,1,.01)=""
+^DD(176.002,"GL",0,2,.02)=""
+^DD(176.002,"GL",0,3,.03)=""
+^DD(176.002,"GL",0,4,.04)=""
+^DD(176.002,"GL",0,5,.05)=""
+^DD(176.002,"GL",0,6,.06)=""
+^DD(176.002,"GL",0,7,.07)=""
+^DD(176.002,"GL",0,8,.08)=""
+^DD(176.002,"GL",0,9,.09)=""
+^DD(176.002,"GL",0,10,.1)=""
+^DD(176.002,"GL",0,11,.11)=""
+^DD(176.002,"GL",0,12,.12)=""
+^DD(176.002,"GL",0,13,.13)=""
+^DD(176.002,"IX",.01)=""
+^DD(176.002,"IX",.11)=""
+^DD(176.002,"RQ",.01)=""
+^DD(176.002,"RQ",.1)=""
+^DD("IX",904,0)="176.002^RXCUI^RXCUI Index^R^^F^IR^I^176.002^^^^^LS"
+^DD("IX",904,1)="S ^C0CRXN(176.002,""RXCUI"",X,DA)="""""
+^DD("IX",904,2)="K ^C0CRXN(176.002,""RXCUI"",X,DA)"
+^DD("IX",904,2.5)="K ^C0CRXN(176.002,""RXCUI"")"
+^DD("IX",904,11.1,0)="^.114IA^1^1"
+^DD("IX",904,11.1,1,0)="1^F^176.002^.09^^1^F"
+^DD("IX",904,11.1,"AC",1,1)=""
+^DD("IX",904,11.1,"B",1,1)=""
+^DD("IX",904,11.1,"BB",1,1)=""
+^DD("IX",910,0)="176.002^ASAA^SAB (Source) ATN (Attribute Name) ATV (Value) Index^MU^^R^IR^I^176.002^^^^^S"
+^DD("IX",910,1)="S ^C0CRXN(176.002,""ASAA"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)=X(4)"
+^DD("IX",910,2)="K ^C0CRXN(176.002,""ASAA"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)"
+^DD("IX",910,2.5)="K ^C0CRXN(176.002,""ASAA"")"
+^DD("IX",910,11.1,0)="^.114IA^4^4"
+^DD("IX",910,11.1,1,0)="1^F^176.002^.1^^1^F"
+^DD("IX",910,11.1,1,3)=""
+^DD("IX",910,11.1,2,0)="2^F^176.002^.01^30^2^F"
+^DD("IX",910,11.1,2,3)=""
+^DD("IX",910,11.1,3,0)="3^F^176.002^.11^30^3^F"
+^DD("IX",910,11.1,3,3)=""
+^DD("IX",910,11.1,4,0)="4^F^176.002^.09^^^F"
+^DD("IX",910,11.1,4,3)=""
+^DD("IX",910,11.1,"AC",1,1)=""
+^DD("IX",910,11.1,"AC",2,2)=""
+^DD("IX",910,11.1,"AC",3,3)=""
+^DD("IX",910,11.1,"B",1,1)=""
+^DD("IX",910,11.1,"B",2,2)=""
+^DD("IX",910,11.1,"B",3,3)=""
+^DD("IX",910,11.1,"B",4,4)=""
+^DD("IX",910,11.1,"BB",1,1)=""
+^DD("IX",910,11.1,"BB",2,2)=""
+^DD("IX",910,11.1,"BB",3,3)=""
+^DD("IX",910,11.1,"BB",4,4)=""
+^DD("IX",911,0)="176.002^ASAR^SAB (Source) ATN (Attribute Name) RxCUI Index^MU^^R^IR^I^176.002^^^^^S"
+^DD("IX",911,1)="S ^C0CRXN(176.002,""ASAR"",X(1),$E(X(2),1,30),X(3),DA)=X(4)"
+^DD("IX",911,2)="K ^C0CRXN(176.002,""ASAR"",X(1),$E(X(2),1,30),X(3),DA)"
+^DD("IX",911,2.5)="K ^C0CRXN(176.002,""ASAR"")"
+^DD("IX",911,11.1,0)="^.114IA^4^4"
+^DD("IX",911,11.1,1,0)="1^F^176.002^.1^^1^F"
+^DD("IX",911,11.1,1,3)=""
+^DD("IX",911,11.1,2,0)="2^F^176.002^.01^30^2^F"
+^DD("IX",911,11.1,2,3)=""
+^DD("IX",911,11.1,3,0)="3^F^176.002^.09^^3^F"
+^DD("IX",911,11.1,3,3)=""
+^DD("IX",911,11.1,4,0)="4^F^176.002^.11^^^F"
+^DD("IX",911,11.1,4,3)=""
+^DD("IX",911,11.1,"AC",1,1)=""
+^DD("IX",911,11.1,"AC",2,2)=""
+^DD("IX",911,11.1,"AC",3,3)=""
+^DD("IX",911,11.1,"B",1,1)=""
+^DD("IX",911,11.1,"B",2,2)=""
+^DD("IX",911,11.1,"B",3,3)=""
+^DD("IX",911,11.1,"B",4,4)=""
+^DD("IX",911,11.1,"BB",1,1)=""
+^DD("IX",911,11.1,"BB",2,2)=""
+^DD("IX",911,11.1,"BB",3,3)=""
+^DD("IX",911,11.1,"BB",4,4)=""
+^DD("IX",912,0)="176.002^ANDFRT^RxNorm NDFRT Index^R^^R^IR^I^176.002^^^^^S"
+^DD("IX",912,1)="S ^C0CRXN(176.002,""ANDFRT"",X(1),$E(X(3),1,30),$E(X(4),1,30),DA)="""""
+^DD("IX",912,1.4)="S X=X(2)=""NDFRT"""
+^DD("IX",912,2)="K ^C0CRXN(176.002,""ANDFRT"",X(1),$E(X(3),1,30),$E(X(4),1,30),DA)"
+^DD("IX",912,2.4)="S X=X(2)=""NDFRT"""
+^DD("IX",912,2.5)="K ^C0CRXN(176.002,""ANDFRT"")"
+^DD("IX",912,11.1,0)="^.114IA^4^4"
+^DD("IX",912,11.1,1,0)="1^F^176.002^.09^^1^F"
+^DD("IX",912,11.1,1,3)=""
+^DD("IX",912,11.1,2,0)="2^F^176.002^.1^^^F"
+^DD("IX",912,11.1,2,3)=""
+^DD("IX",912,11.1,3,0)="3^F^176.002^.01^30^2^F"
+^DD("IX",912,11.1,3,3)=""
+^DD("IX",912,11.1,4,0)="4^F^176.002^.11^30^3^F"
+^DD("IX",912,11.1,4,3)=""
+^DD("IX",912,11.1,"AC",1,1)=""
+^DD("IX",912,11.1,"AC",2,3)=""
+^DD("IX",912,11.1,"AC",3,4)=""
+^DD("IX",912,11.1,"B",1,1)=""
+^DD("IX",912,11.1,"B",2,2)=""
+^DD("IX",912,11.1,"B",3,3)=""
+^DD("IX",912,11.1,"B",4,4)=""
+^DD("IX",912,11.1,"BB",1,1)=""
+^DD("IX",912,11.1,"BB",2,2)=""
+^DD("IX",912,11.1,"BB",3,3)=""
+^DD("IX",912,11.1,"BB",4,4)=""
diff --git a/rxnorm/trunk/globals/F176.003.ZWR b/rxnorm/trunk/globals/F176.003.ZWR
new file mode 100644
index 0000000..5ab0e2b
--- /dev/null
+++ b/rxnorm/trunk/globals/F176.003.ZWR
@@ -0,0 +1,277 @@
+KBANXDD - FILE 176.003
+3130409.132522 ZWR
+^DIC(176.003,0)="RXNORM SOURCE INFORMATION^176.003"
+^DIC(176.003,0,"AUDIT")="@"
+^DIC(176.003,0,"DD")="@"
+^DIC(176.003,0,"DEL")="@"
+^DIC(176.003,0,"GL")="^C0CRXN(176.003,"
+^DIC(176.003,0,"LAYGO")="@"
+^DIC(176.003,0,"RD")=""
+^DIC(176.003,0,"WR")="@"
+^DIC(176.003,"%",0)="^1.005^^"
+^DIC(176.003,"%D",0)="^^11^11^3130301^"
+^DIC(176.003,"%D",1,0)="File RXNSAB.RRF"
+^DIC(176.003,"%D",2,0)=" "
+^DIC(176.003,"%D",3,0)="This file contains the sources for each of the RxNorm files and their "
+^DIC(176.003,"%D",4,0)="restriction levels."
+^DIC(176.003,"%D",5,0)=" "
+^DIC(176.003,"%D",6,0)="This file follows the general format of the MRSAB.RRF file of the"
+^DIC(176.003,"%D",7,0)="Metathesaurus. Please refer to the UMLS Reference Manual for more "
+^DIC(176.003,"%D",8,0)="specific information regarding this file."
+^DIC(176.003,"%D",9,0)=" "
+^DIC(176.003,"%D",10,0)="There is one row in this file for every source in RxNorm that is "
+^DIC(176.003,"%D",11,0)="represented in this RxNorm release."
+^DD(176.003,0)="FIELD^^.25^25"
+^DD(176.003,0,"DT")=3130301
+^DD(176.003,0,"ID",.05)="W ""   "",$P(^(0),U,5)"
+^DD(176.003,0,"ID",.14)="W ""   "",$P(^(0),U,14)"
+^DD(176.003,0,"IX","B",176.003,.01)=""
+^DD(176.003,0,"NM","RXNORM SOURCE INFORMATION")=""
+^DD(176.003,.01,0)="RSAB^RFJ20^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
+^DD(176.003,.01,.1)="ROOT SOURCE ABBREVIATION"
+^DD(176.003,.01,1,0)="^.1"
+^DD(176.003,.01,1,1,0)="176.003^B"
+^DD(176.003,.01,1,1,1)="S ^C0CRXN(176.003,""B"",$E(X,1,30),DA)="""""
+^DD(176.003,.01,1,1,2)="K ^C0CRXN(176.003,""B"",$E(X,1,30),DA)"
+^DD(176.003,.01,3)="Answer must be 1-20 characters in length."
+^DD(176.003,.01,21,0)="^^1^1^3130301^"
+^DD(176.003,.01,21,1,0)="The root source abbreviation, for a source e.g. NDDF"
+^DD(176.003,.01,"DT")=3130301
+^DD(176.003,.02,0)="RCUI^FJ8^^0;2^K:$L(X)>8!($L(X)<1) X"
+^DD(176.003,.02,.1)="ROOT CUI"
+^DD(176.003,.02,3)="Answer must be 1-8 characters in length."
+^DD(176.003,.02,21,0)="^^1^1^3130301^"
+^DD(176.003,.02,21,1,0)="CUI of the root SRC concept for a source"
+^DD(176.003,.02,"DT")=3130301
+^DD(176.003,.03,0)="VSAB^FJ20^^0;3^K:$L(X)>20!($L(X)<1) X"
+^DD(176.003,.03,.1)="VERSIONED SOURCE ABBREVIATION"
+^DD(176.003,.03,3)="Answer must be 1-20 characters in length."
+^DD(176.003,.03,21,0)="^^1^1^3130301^"
+^DD(176.003,.03,21,1,0)="The versioned source abbreviation for a source, e.g., NDDF_2004_11_03"
+^DD(176.003,.03,"DT")=3130301
+^DD(176.003,.04,0)="VCUI^FJ8^^0;4^K:$L(X)>8!($L(X)<1) X"
+^DD(176.003,.04,.1)="CUI"
+^DD(176.003,.04,3)="Answer must be 1-8 characters in length."
+^DD(176.003,.04,21,0)="^^1^1^3130301^"
+^DD(176.003,.04,21,1,0)="CUI of the versioned SRC concept for a source"
+^DD(176.003,.04,"DT")=3130301
+^DD(176.003,.05,0)="SON^FJ3000^^0;5^K:$L(X)>3000!($L(X)<1) X"
+^DD(176.003,.05,.1)="OFFICIAL NAME"
+^DD(176.003,.05,3)="Answer must be 1-3000 characters in length."
+^DD(176.003,.05,21,0)="^^1^1^3130301^^"
+^DD(176.003,.05,21,1,0)="The official name for a source"
+^DD(176.003,.05,"DT")=3130301
+^DD(176.003,.06,0)="SF^FJ20^^0;6^K:$L(X)>20!($L(X)<1) X"
+^DD(176.003,.06,.1)="SOURCE FAMILY"
+^DD(176.003,.06,3)="Answer must be 1-20 characters in length."
+^DD(176.003,.06,21,0)="^^1^1^3130301^"
+^DD(176.003,.06,21,1,0)="The Source Family for a source"
+^DD(176.003,.06,"DT")=3130301
+^DD(176.003,.07,0)="SVER^FJ20^^0;7^K:$L(X)>20!($L(X)<1) X"
+^DD(176.003,.07,.1)="VERSION"
+^DD(176.003,.07,3)="Answer must be 1-20 characters in length."
+^DD(176.003,.07,21,0)="^^1^1^3130301^"
+^DD(176.003,.07,21,1,0)="The source version, e.g., 2001"
+^DD(176.003,.07,"DT")=3130301
+^DD(176.003,.08,0)="VSTART^FJ10^^0;8^K:$L(X)>10!($L(X)<1) X"
+^DD(176.003,.08,.1)="META START DATE"
+^DD(176.003,.08,3)="Answer must be 1-10 characters in length."
+^DD(176.003,.08,21,0)="^^1^1^3130301^"
+^DD(176.003,.08,21,1,0)="The date a source became active, e.g., 2001_04_03"
+^DD(176.003,.08,"DT")=3130301
+^DD(176.003,.09,0)="VEND^FJ10^^0;9^K:$L(X)>10!($L(X)<1) X"
+^DD(176.003,.09,.1)="META END DATE"
+^DD(176.003,.09,3)="Answer must be 1-10 characters in length."
+^DD(176.003,.09,21,0)="^^1^1^3130301^"
+^DD(176.003,.09,21,1,0)="The date a source ceased to be active, e.g., 2001_05_10"
+^DD(176.003,.09,"DT")=3130301
+^DD(176.003,.1,0)="IMETA^FJ10^^0;10^K:$L(X)>10!($L(X)<1) X"
+^DD(176.003,.1,.1)="META INSERT VERSION"
+^DD(176.003,.1,3)="Answer must be 1-10 characters in length."
+^DD(176.003,.1,21,0)="^^1^1^3130301^^"
+^DD(176.003,.1,21,1,0)="The version of the Metathesaurus a source first appeared, e.g., 2001AB"
+^DD(176.003,.1,"DT")=3130301
+^DD(176.003,.11,0)="RMETA^FJ10^^0;11^K:$L(X)>10!($L(X)<1) X"
+^DD(176.003,.11,.1)="META REMOVE VERSION"
+^DD(176.003,.11,3)="Answer must be 1-10 characters in length."
+^DD(176.003,.11,21,0)="^^1^1^3130301^"
+^DD(176.003,.11,21,1,0)="The version of the Metathesaurus a source was removed, e.g., 2001AC"
+^DD(176.003,.11,"DT")=3130301
+^DD(176.003,.12,0)="SLC^FJ1000^^0;12^K:$L(X)>1000!($L(X)<1) X"
+^DD(176.003,.12,.1)="SOURCE LICENSE CONTACT"
+^DD(176.003,.12,3)="Answer must be 1-1000 characters in length."
+^DD(176.003,.12,21,0)="^^4^4^3130301^"
+^DD(176.003,.12,21,1,0)="The source license contact information. A semi-colon separated list "
+^DD(176.003,.12,21,2,0)="containing the following fields: Name; Title; Organization; Address 1; "
+^DD(176.003,.12,21,3,0)="Address 2; City; State or Province; Country; Zip or Postal Code; "
+^DD(176.003,.12,21,4,0)="Telephone; Contact Fax; Email; URL"
+^DD(176.003,.12,"DT")=3130301
+^DD(176.003,.13,0)="SCC^FJ1000^^0;13^K:$L(X)>1000!($L(X)<1) X"
+^DD(176.003,.13,.1)="SOURCE CONTENT CONTACT"
+^DD(176.003,.13,3)="Answer must be 1-1000 characters in length."
+^DD(176.003,.13,21,0)="^^4^4^3130301^"
+^DD(176.003,.13,21,1,0)="The source content contact information. A semi-colon separated list "
+^DD(176.003,.13,21,2,0)="containing the following fields: Name; Title; Organization; Address 1; "
+^DD(176.003,.13,21,3,0)="Address 2; City; State or Province; Country; Zip or Postal Code; "
+^DD(176.003,.13,21,4,0)="Telephone; Contact Fax; Email; URL"
+^DD(176.003,.13,"DT")=3130301
+^DD(176.003,.14,0)="SRL^NJ10,0^^0;14^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
+^DD(176.003,.14,.1)="SOURCE RESTRICTION LEVEL"
+^DD(176.003,.14,3)="Type a number between 0 and 9999999999, 0 decimal digits."
+^DD(176.003,.14,21,0)="^^1^1^3130301^"
+^DD(176.003,.14,21,1,0)="0,1,2,3,4 - explained in the License Agreement."
+^DD(176.003,.14,"DT")=3130301
+^DD(176.003,.15,0)="TFR^NJ10,0^^0;15^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
+^DD(176.003,.15,.1)="TERM FREQUENCY"
+^DD(176.003,.15,3)="Type a number between 0 and 9999999999, 0 decimal digits."
+^DD(176.003,.15,21,0)="^^2^2^3130301^"
+^DD(176.003,.15,21,1,0)="The number of terms for this source in RXNCONSO.RRF, e.g., 12343 (not "
+^DD(176.003,.15,21,2,0)="implemented yet)"
+^DD(176.003,.15,"DT")=3130301
+^DD(176.003,.16,0)="CFR^NJ10,0^^0;16^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
+^DD(176.003,.16,.1)="CUI FREQUENCY"
+^DD(176.003,.16,3)="Type a number between 0 and 9999999999, 0 decimal digits."
+^DD(176.003,.16,21,0)="^^2^2^3130301^"
+^DD(176.003,.16,21,1,0)="The number of CUIs associated with this source, e.g., 10234 (not "
+^DD(176.003,.16,21,2,0)="implemented yet)"
+^DD(176.003,.16,"DT")=3130301
+^DD(176.003,.17,0)="CXTY^FJ50^^0;17^K:$L(X)>50!($L(X)<1) X"
+^DD(176.003,.17,.1)="CONTEXT TYPE"
+^DD(176.003,.17,3)="Answer must be 1-50 characters in length."
+^DD(176.003,.17,21,0)="^^1^1^3130301^"
+^DD(176.003,.17,21,1,0)="The type of relationship label (Section 2.4.2 of UMLS Reference Manual)"
+^DD(176.003,.17,"DT")=3130301
+^DD(176.003,.18,0)="TTYL^FJ300^^0;18^K:$L(X)>300!($L(X)<1) X"
+^DD(176.003,.18,.1)="TERM TYPE LIST"
+^DD(176.003,.18,3)="Answer must be 1-300 characters in length."
+^DD(176.003,.18,21,0)="^^1^1^3130301^"
+^DD(176.003,.18,21,1,0)="Term type list from source, e.g., MH,EN,PM,TQ"
+^DD(176.003,.18,"DT")=3130301
+^DD(176.003,.19,0)="ATNL^FJ1000^^0;19^K:$L(X)>1000!($L(X)<1) X"
+^DD(176.003,.19,.1)="ATTRIBUTE NAME LIST"
+^DD(176.003,.19,3)="Answer must be 1-1000 characters in length."
+^DD(176.003,.19,21,0)="^^1^1^3130301^"
+^DD(176.003,.19,21,1,0)="The attribute name list, e.g., MUI,RN,TH,..."
+^DD(176.003,.19,"DT")=3130301
+^DD(176.003,.2,0)="LAT^FJ3^^0;20^K:$L(X)>3!($L(X)<1) X"
+^DD(176.003,.2,.1)="LANGUAGE"
+^DD(176.003,.2,3)="Answer must be 1-3 characters in length."
+^DD(176.003,.2,21,0)="^^1^1^3130301^"
+^DD(176.003,.2,21,1,0)="The language of the terms in the source"
+^DD(176.003,.2,"DT")=3130301
+^DD(176.003,.21,0)="CENC^FJ20^^0;21^K:$L(X)>20!($L(X)<1) X"
+^DD(176.003,.21,.1)="CHARACTER ENCODING"
+^DD(176.003,.21,3)="Answer must be 1-20 characters in length."
+^DD(176.003,.21,21,0)="^^2^2^3130301^"
+^DD(176.003,.21,21,1,0)="Character set as specified by the IANA official names for character "
+^DD(176.003,.21,21,2,0)="assignments http://www.iana.org/assignments/character-sets"
+^DD(176.003,.21,"DT")=3130301
+^DD(176.003,.22,0)="CURVER^FJ1^^0;22^K:$L(X)>1!($L(X)<1) X"
+^DD(176.003,.22,.1)="CURRENT VERSION"
+^DD(176.003,.22,3)="Answer must be 1 character in length."
+^DD(176.003,.22,21,0)="^^2^2^3130301^"
+^DD(176.003,.22,21,1,0)="A Y or N flag indicating whether or not this row corresponds to the "
+^DD(176.003,.22,21,2,0)="current version of the named source"
+^DD(176.003,.22,"DT")=3130301
+^DD(176.003,.23,0)="SABIN^FJ1^^0;23^K:$L(X)>1!($L(X)<1) X"
+^DD(176.003,.23,.1)="SOURCE IN SUBSET"
+^DD(176.003,.23,3)="Answer must be 1 character in length."
+^DD(176.003,.23,21,0)="^^3^3^3130301^"
+^DD(176.003,.23,21,1,0)="A Y or N flag indicating whether or not this row is represented in the "
+^DD(176.003,.23,21,2,0)="current MetamorphoSys subset. Initially always Y where CURVER is Y, but "
+^DD(176.003,.23,21,3,0)="later is recomputed by MetamorphoSys."
+^DD(176.003,.23,"DT")=3130301
+^DD(176.003,.24,0)="SSN^FJ3000^^0;24^K:$L(X)>3000!($L(X)<1) X"
+^DD(176.003,.24,.1)="SOURCE SHORT NAME"
+^DD(176.003,.24,3)="Answer must be 1-3000 characters in length."
+^DD(176.003,.24,21,0)="^^1^1^3130301^"
+^DD(176.003,.24,21,1,0)="The short name of a source as used by the NLM Knowledge Source Server."
+^DD(176.003,.24,"DT")=3130301
+^DD(176.003,.25,0)="SCIT^FJ4000^^0;25^K:$L(X)>4000!($L(X)<1) X"
+^DD(176.003,.25,.1)="SOURCE CITATION"
+^DD(176.003,.25,3)="Answer must be 1-4000 characters in length."
+^DD(176.003,.25,21,0)="^^6^6^3130301^"
+^DD(176.003,.25,21,1,0)="Citation information for a source. A semi-colon separated list containing "
+^DD(176.003,.25,21,2,0)="the following fields: Author(s); Author(s) address; Author(s) "
+^DD(176.003,.25,21,3,0)="organization; Editor(s); Title; Content Designator; Medium Designator; "
+^DD(176.003,.25,21,4,0)="Edition; Place of Publication; Publisher; Date of Publication/copyright; "
+^DD(176.003,.25,21,5,0)="Date of revision; Location; Extent; Series; Availability Statement (URL); "
+^DD(176.003,.25,21,6,0)="Language; Notes"
+^DD(176.003,.25,"DT")=3130301
+^DD(176.003,"B","ATNL",.19)=""
+^DD(176.003,"B","ATTRIBUTE NAME LIST",.19)=1
+^DD(176.003,"B","CENC",.21)=""
+^DD(176.003,"B","CFR",.16)=""
+^DD(176.003,"B","CHARACTER ENCODING",.21)=1
+^DD(176.003,"B","CONTEXT TYPE",.17)=1
+^DD(176.003,"B","CUI",.04)=1
+^DD(176.003,"B","CUI FREQUENCY",.16)=1
+^DD(176.003,"B","CURRENT VERSION",.22)=1
+^DD(176.003,"B","CURVER",.22)=""
+^DD(176.003,"B","CXTY",.17)=""
+^DD(176.003,"B","IMETA",.1)=""
+^DD(176.003,"B","LANGUAGE",.2)=1
+^DD(176.003,"B","LAT",.2)=""
+^DD(176.003,"B","META END DATE",.09)=1
+^DD(176.003,"B","META INSERT VERSION",.1)=1
+^DD(176.003,"B","META REMOVE VERSION",.11)=1
+^DD(176.003,"B","META START DATE",.08)=1
+^DD(176.003,"B","OFFICIAL NAME",.05)=1
+^DD(176.003,"B","RCUI",.02)=""
+^DD(176.003,"B","RMETA",.11)=""
+^DD(176.003,"B","ROOT CUI",.02)=1
+^DD(176.003,"B","ROOT SOURCE ABBREVIATION",.01)=1
+^DD(176.003,"B","RSAB",.01)=""
+^DD(176.003,"B","SABIN",.23)=""
+^DD(176.003,"B","SCC",.13)=""
+^DD(176.003,"B","SCIT",.25)=""
+^DD(176.003,"B","SF",.06)=""
+^DD(176.003,"B","SLC",.12)=""
+^DD(176.003,"B","SON",.05)=""
+^DD(176.003,"B","SOURCE CITATION",.25)=1
+^DD(176.003,"B","SOURCE CONTENT CONTACT",.13)=1
+^DD(176.003,"B","SOURCE FAMILY",.06)=1
+^DD(176.003,"B","SOURCE IN SUBSET",.23)=1
+^DD(176.003,"B","SOURCE LICENSE CONTACT",.12)=1
+^DD(176.003,"B","SOURCE RESTRICTION LEVEL",.14)=1
+^DD(176.003,"B","SOURCE SHORT NAME",.24)=1
+^DD(176.003,"B","SRL",.14)=""
+^DD(176.003,"B","SSN",.24)=""
+^DD(176.003,"B","SVER",.07)=""
+^DD(176.003,"B","TERM FREQUENCY",.15)=1
+^DD(176.003,"B","TERM TYPE LIST",.18)=1
+^DD(176.003,"B","TFR",.15)=""
+^DD(176.003,"B","TTYL",.18)=""
+^DD(176.003,"B","VCUI",.04)=""
+^DD(176.003,"B","VEND",.09)=""
+^DD(176.003,"B","VERSION",.07)=1
+^DD(176.003,"B","VERSIONED SOURCE ABBREVIATION",.03)=1
+^DD(176.003,"B","VSAB",.03)=""
+^DD(176.003,"B","VSTART",.08)=""
+^DD(176.003,"GL",0,1,.01)=""
+^DD(176.003,"GL",0,2,.02)=""
+^DD(176.003,"GL",0,3,.03)=""
+^DD(176.003,"GL",0,4,.04)=""
+^DD(176.003,"GL",0,5,.05)=""
+^DD(176.003,"GL",0,6,.06)=""
+^DD(176.003,"GL",0,7,.07)=""
+^DD(176.003,"GL",0,8,.08)=""
+^DD(176.003,"GL",0,9,.09)=""
+^DD(176.003,"GL",0,10,.1)=""
+^DD(176.003,"GL",0,11,.11)=""
+^DD(176.003,"GL",0,12,.12)=""
+^DD(176.003,"GL",0,13,.13)=""
+^DD(176.003,"GL",0,14,.14)=""
+^DD(176.003,"GL",0,15,.15)=""
+^DD(176.003,"GL",0,16,.16)=""
+^DD(176.003,"GL",0,17,.17)=""
+^DD(176.003,"GL",0,18,.18)=""
+^DD(176.003,"GL",0,19,.19)=""
+^DD(176.003,"GL",0,20,.2)=""
+^DD(176.003,"GL",0,21,.21)=""
+^DD(176.003,"GL",0,22,.22)=""
+^DD(176.003,"GL",0,23,.23)=""
+^DD(176.003,"GL",0,24,.24)=""
+^DD(176.003,"GL",0,25,.25)=""
+^DD(176.003,"IX",.01)=""
+^DD(176.003,"RQ",.01)=""
diff --git a/rxnorm/trunk/globals/F176.004.ZWR b/rxnorm/trunk/globals/F176.004.ZWR
new file mode 100644
index 0000000..1ba9a87
--- /dev/null
+++ b/rxnorm/trunk/globals/F176.004.ZWR
@@ -0,0 +1,74 @@
+KBANXDD - FILE 176.004
+3130409.132527 ZWR
+^DIC(176.004,0)="RXNORM SEMANTIC TYPES^176.004"
+^DIC(176.004,0,"AUDIT")="@"
+^DIC(176.004,0,"DD")="@"
+^DIC(176.004,0,"DEL")="@"
+^DIC(176.004,0,"GL")="^C0CRXN(176.004,"
+^DIC(176.004,0,"LAYGO")="@"
+^DIC(176.004,0,"RD")=""
+^DIC(176.004,0,"WR")="@"
+^DIC(176.004,"%",0)="^1.005^^"
+^DIC(176.004,"%D",0)="^^7^7^3130301^"
+^DIC(176.004,"%D",1,0)="File = RXNSTY.RRF"
+^DIC(176.004,"%D",2,0)=" "
+^DIC(176.004,"%D",3,0)="This file follows the general format of the MRSTY.RRF file of the"
+^DIC(176.004,"%D",4,0)="Metathesaurus. There is exactly one row in this file for each Semantic "
+^DIC(176.004,"%D",5,0)="Type assigned to each concept. All RxNorm concepts have at least one "
+^DIC(176.004,"%D",6,0)="entry in this file. Many have more than one entry. The TUI, STN, and STY "
+^DIC(176.004,"%D",7,0)="are all direct links to the UMLS Semantic Network."
+^DD(176.004,0)="FIELD^^.06^6"
+^DD(176.004,0,"DT")=3130301
+^DD(176.004,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
+^DD(176.004,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
+^DD(176.004,0,"ID",.04)="W ""   "",$P(^(0),U,4)"
+^DD(176.004,0,"IX","B",176.004,.01)=""
+^DD(176.004,0,"NM","RXNORM SEMANTIC TYPES")=""
+^DD(176.004,.01,0)="RXNCUI^RFJ8^^0;1^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X"
+^DD(176.004,.01,1,0)="^.1"
+^DD(176.004,.01,1,1,0)="176.004^B"
+^DD(176.004,.01,1,1,1)="S ^C0CRXN(176.004,""B"",$E(X,1,30),DA)="""""
+^DD(176.004,.01,1,1,2)="K ^C0CRXN(176.004,""B"",$E(X,1,30),DA)"
+^DD(176.004,.01,3)="Answer must be 1-8 characters in length."
+^DD(176.004,.01,21,0)="^^1^1^3130301^"
+^DD(176.004,.01,21,1,0)="Unique identifier of concept (concept id)"
+^DD(176.004,.01,"DT")=3130301
+^DD(176.004,.02,0)="TUI^FJ4^^0;2^K:$L(X)>4!($L(X)<1) X"
+^DD(176.004,.02,3)="Answer must be 1-4 characters in length."
+^DD(176.004,.02,21,0)="^^1^1^3130301^"
+^DD(176.004,.02,21,1,0)="Unique identifier of Semantic Type"
+^DD(176.004,.02,"DT")=3130301
+^DD(176.004,.03,0)="STN^FJ100^^0;3^K:$L(X)>100!($L(X)<1) X"
+^DD(176.004,.03,3)="Answer must be 1-100 characters in length."
+^DD(176.004,.03,21,0)="^^1^1^3130301^"
+^DD(176.004,.03,21,1,0)="Semantic Type tree number"
+^DD(176.004,.03,"DT")=3130301
+^DD(176.004,.04,0)="STY^FJ50^^0;4^K:$L(X)>50!($L(X)<1) X"
+^DD(176.004,.04,3)="Answer must be 1-50 characters in length."
+^DD(176.004,.04,21,0)="^^1^1^3130301^"
+^DD(176.004,.04,21,1,0)="Semantic Type. The valid values are defined in the Semantic Network."
+^DD(176.004,.04,"DT")=3130301
+^DD(176.004,.05,0)="ATUI^FJ11^^0;5^K:$L(X)>11!($L(X)<1) X"
+^DD(176.004,.05,3)="Answer must be 1-11 characters in length."
+^DD(176.004,.05,21,0)="^^1^1^3130301^"
+^DD(176.004,.05,21,1,0)="Unique identifier for attribute"
+^DD(176.004,.05,"DT")=3130301
+^DD(176.004,.06,0)="CVF^FJ50^^0;6^K:$L(X)>50!($L(X)<1) X"
+^DD(176.004,.06,3)="Answer must be 1-50 characters in length."
+^DD(176.004,.06,21,0)="^^1^1^3130301^"
+^DD(176.004,.06,21,1,0)="Content view flag"
+^DD(176.004,.06,"DT")=3130301
+^DD(176.004,"B","ATUI",.05)=""
+^DD(176.004,"B","CVF",.06)=""
+^DD(176.004,"B","RXNCUI",.01)=""
+^DD(176.004,"B","STN",.03)=""
+^DD(176.004,"B","STY",.04)=""
+^DD(176.004,"B","TUI",.02)=""
+^DD(176.004,"GL",0,1,.01)=""
+^DD(176.004,"GL",0,2,.02)=""
+^DD(176.004,"GL",0,3,.03)=""
+^DD(176.004,"GL",0,4,.04)=""
+^DD(176.004,"GL",0,5,.05)=""
+^DD(176.004,"GL",0,6,.06)=""
+^DD(176.004,"IX",.01)=""
+^DD(176.004,"RQ",.01)=""
diff --git a/rxnorm/trunk/globals/F176.005.ZWR b/rxnorm/trunk/globals/F176.005.ZWR
new file mode 100644
index 0000000..3d9c9fb
--- /dev/null
+++ b/rxnorm/trunk/globals/F176.005.ZWR
@@ -0,0 +1,173 @@
+KBANXDD - FILE 176.005
+3130409.132533 ZWR
+^DIC(176.005,0)="RXNORM RELATED CONCEPTS^176.005"
+^DIC(176.005,0,"AUDIT")="@"
+^DIC(176.005,0,"DD")="@"
+^DIC(176.005,0,"DEL")="@"
+^DIC(176.005,0,"GL")="^C0CRXN(176.005,"
+^DIC(176.005,0,"LAYGO")="@"
+^DIC(176.005,0,"RD")=""
+^DIC(176.005,0,"WR")="@"
+^DIC(176.005,"%",0)="^1.005^^"
+^DIC(176.005,"%D",0)="^^15^15^3130301^"
+^DIC(176.005,"%D",1,0)="File = RXNREL.RRF"
+^DIC(176.005,"%D",2,0)=" "
+^DIC(176.005,"%D",3,0)="This file follows the general format of the MRREL.RRF file of the"
+^DIC(176.005,"%D",4,0)="Metathesaurus. Some of the Metathesaurus fields are not provided by "
+^DIC(176.005,"%D",5,0)="RxNorm and are marked as ""(no value provided)"". There is one row in this "
+^DIC(176.005,"%D",6,0)="table for each relationship between concepts or atoms known to RxNorm. In "
+^DIC(176.005,"%D",7,0)="addition, explicit SY RELs are provided which give the UMLS Metathesaurus "
+^DIC(176.005,"%D",8,0)="CUI and AUI as the RXCUI2 and RXAUI2 fields."
+^DIC(176.005,"%D",9,0)=" "
+^DIC(176.005,"%D",10,0)="Note that for asymmetrical relationships there is one row for each "
+^DIC(176.005,"%D",11,0)="direction of the relationship. Note also the direction of REL - the "
+^DIC(176.005,"%D",12,0)="relationship which the SECOND concept or atom (with Concept Unique "
+^DIC(176.005,"%D",13,0)="Identifier RXCUI2 and Atom Unique Identifier RXAUI2) HAS TO the FIRST "
+^DIC(176.005,"%D",14,0)="concept or atom (with Concept Unique Identifier RXCUI1 and Atom Unique "
+^DIC(176.005,"%D",15,0)="Identifier RXAUI1)."
+^DD(176.005,0)="FIELD^^.16^16"
+^DD(176.005,0,"DT")=3130301
+^DD(176.005,0,"NM","RXNORM RELATED CONCEPTS")=""
+^DD(176.005,.01,0)="SAB^RFJ20^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
+^DD(176.005,.01,1,0)="^.1^^0"
+^DD(176.005,.01,3)="Answer must be 1-20 characters in length."
+^DD(176.005,.01,21,0)="^^1^1^3130301^"
+^DD(176.005,.01,21,1,0)="Abbreviation of the source of relationship"
+^DD(176.005,.01,"DT")=3130301
+^DD(176.005,.02,0)="RXAUI1^FJ8^^0;2^K:$L(X)>8!($L(X)<1) X"
+^DD(176.005,.02,3)="Answer must be 1-8 characters in length."
+^DD(176.005,.02,21,0)="^^1^1^3130301^"
+^DD(176.005,.02,21,1,0)="Unique identifier for first atom"
+^DD(176.005,.02,"DT")=3130301
+^DD(176.005,.03,0)="STYPE1^FJ50^^0;3^K:$L(X)>50!($L(X)<1) X"
+^DD(176.005,.03,3)="Answer must be 1-50 characters in length."
+^DD(176.005,.03,21,0)="^^3^3^3130301^"
+^DD(176.005,.03,21,1,0)="The name of the column in RXNCONSO.RRF that contains the identifier used "
+^DD(176.005,.03,21,2,0)="for the first concept or first atom in source of the relationship (e.g., "
+^DD(176.005,.03,21,3,0)="'AUI' or 'CUI')."
+^DD(176.005,.03,"DT")=3130301
+^DD(176.005,.04,0)="REL^FJ4^^0;4^K:$L(X)>4!($L(X)<1) X"
+^DD(176.005,.04,3)="Answer must be 1-4 characters in length."
+^DD(176.005,.04,21,0)="^^1^1^3130301^"
+^DD(176.005,.04,21,1,0)="Relationship of second concept or atom to first concept or atom"
+^DD(176.005,.04,"DT")=3130301
+^DD(176.005,.05,0)="RXCUI2^FJ8^^0;5^K:$L(X)>8!($L(X)<1) X"
+^DD(176.005,.05,3)="Answer must be 1-8 characters in length."
+^DD(176.005,.05,21,0)="^^1^1^3130301^"
+^DD(176.005,.05,21,1,0)="Unique identifier of second concept"
+^DD(176.005,.05,"DT")=3130301
+^DD(176.005,.06,0)="RXAUI2^FJ8^^0;6^K:$L(X)>8!($L(X)<1) X"
+^DD(176.005,.06,3)="Answer must be 1-8 characters in length."
+^DD(176.005,.06,21,0)="^^1^1^3130301^"
+^DD(176.005,.06,21,1,0)="Unique identifier for second atom"
+^DD(176.005,.06,"DT")=3130301
+^DD(176.005,.07,0)="STYPE2^FJ50^^0;7^K:$L(X)>50!($L(X)<1) X"
+^DD(176.005,.07,3)="Answer must be 1-50 characters in length."
+^DD(176.005,.07,21,0)="^^3^3^3130301^"
+^DD(176.005,.07,21,1,0)="The name of the column in RXNCONSO.RRF that contains the identifier used "
+^DD(176.005,.07,21,2,0)="for the second concept or second atom in the source of the relationship "
+^DD(176.005,.07,21,3,0)="(e.g., 'AUI' or 'CUI')."
+^DD(176.005,.07,"DT")=3130301
+^DD(176.005,.08,0)="RELA^FJ100^^0;8^K:$L(X)>100!($L(X)<1) X"
+^DD(176.005,.08,3)="Answer must be 1-100 characters in length."
+^DD(176.005,.08,21,0)="^^1^1^3130301^"
+^DD(176.005,.08,21,1,0)="Additional (more specific) relationship label (optional)"
+^DD(176.005,.08,"DT")=3130301
+^DD(176.005,.09,0)="RUI^FJ10^^0;9^K:$L(X)>10!($L(X)<1) X"
+^DD(176.005,.09,3)="Answer must be 1-10 characters in length."
+^DD(176.005,.09,21,0)="^^1^1^3130301^^"
+^DD(176.005,.09,21,1,0)="Unique identifier for relationship"
+^DD(176.005,.09,"DT")=3130301
+^DD(176.005,.1,0)="SRUI^FJ50^^0;10^K:$L(X)>50!($L(X)<1) X"
+^DD(176.005,.1,3)="Answer must be 1-50 characters in length."
+^DD(176.005,.1,21,0)="^^1^1^3130301^"
+^DD(176.005,.1,21,1,0)="Source asserted relationship identifier, if present (no value provided)"
+^DD(176.005,.1,"DT")=3130301
+^DD(176.005,.11,0)="RXCUI1^FJ8^^0;11^K:$L(X)>8!($L(X)<1) X"
+^DD(176.005,.11,3)="Answer must be 1-8 characters in length."
+^DD(176.005,.11,21,0)="^^1^1^3130301^"
+^DD(176.005,.11,21,1,0)="Unique identifier of first concept"
+^DD(176.005,.11,"DT")=3130301
+^DD(176.005,.12,0)="SL^FJ1000^^0;12^K:$L(X)>1000!($L(X)<1) X"
+^DD(176.005,.12,3)="Answer must be 1-1000 characters in length."
+^DD(176.005,.12,21,0)="^^1^1^3130301^"
+^DD(176.005,.12,21,1,0)="Source of relationship labels (no value provided)"
+^DD(176.005,.12,"DT")=3130301
+^DD(176.005,.13,0)="DIR^FJ1^^0;13^K:$L(X)>1!($L(X)<1) X"
+^DD(176.005,.13,3)="Answer must be 1 character in length."
+^DD(176.005,.13,21,0)="^^4^4^3130301^"
+^DD(176.005,.13,21,1,0)="Source asserted directionality flag. (no value provided) Y indicates that "
+^DD(176.005,.13,21,2,0)="this is the direction of the relationship in its source; N indicates that "
+^DD(176.005,.13,21,3,0)="it is not; a blank indicates that it is not important or has not yet been "
+^DD(176.005,.13,21,4,0)="determined."
+^DD(176.005,.13,"DT")=3130301
+^DD(176.005,.14,0)="RG^FJ10^^0;14^K:$L(X)>10!($L(X)<1) X"
+^DD(176.005,.14,3)="Answer must be 1-10 characters in length."
+^DD(176.005,.14,21,0)="^^1^1^3130301^"
+^DD(176.005,.14,21,1,0)="Machine generated and unverified indicator (optional)"
+^DD(176.005,.14,"DT")=3130301
+^DD(176.005,.15,0)="SUPPRESS^FJ1^^0;15^K:$L(X)>1!($L(X)<1) X"
+^DD(176.005,.15,3)="Answer must be 1 character in length."
+^DD(176.005,.15,21,0)="^^3^3^3130301^"
+^DD(176.005,.15,21,1,0)="Suppressible flag. Values = Y, E, or N. Reflects the suppressible status "
+^DD(176.005,.15,21,2,0)="of the relationship; not yet in use. See also SUPPRESS in MRCONSO.RRF and "
+^DD(176.005,.15,21,3,0)="MRDEF.RRF and MRREL.RRF in the UMLS Reference Manual."
+^DD(176.005,.15,"DT")=3130301
+^DD(176.005,.16,0)="CVF^FJ50^^0;16^K:$L(X)>50!($L(X)<1) X"
+^DD(176.005,.16,3)="Answer must be 1-50 characters in length."
+^DD(176.005,.16,21,0)="^^1^1^3130301^"
+^DD(176.005,.16,21,1,0)="Content view flag"
+^DD(176.005,.16,"DT")=3130301
+^DD(176.005,"B","CVF",.16)=""
+^DD(176.005,"B","DIR",.13)=""
+^DD(176.005,"B","REL",.04)=""
+^DD(176.005,"B","RELA",.08)=""
+^DD(176.005,"B","RG",.14)=""
+^DD(176.005,"B","RUI",.09)=""
+^DD(176.005,"B","RXAUI1",.02)=""
+^DD(176.005,"B","RXAUI2",.06)=""
+^DD(176.005,"B","RXCUI1",.11)=""
+^DD(176.005,"B","RXCUI2",.05)=""
+^DD(176.005,"B","SAB",.01)=""
+^DD(176.005,"B","SL",.12)=""
+^DD(176.005,"B","SRUI",.1)=""
+^DD(176.005,"B","STYPE1",.03)=""
+^DD(176.005,"B","STYPE2",.07)=""
+^DD(176.005,"B","SUPPRESS",.15)=""
+^DD(176.005,"GL",0,1,.01)=""
+^DD(176.005,"GL",0,2,.02)=""
+^DD(176.005,"GL",0,3,.03)=""
+^DD(176.005,"GL",0,4,.04)=""
+^DD(176.005,"GL",0,5,.05)=""
+^DD(176.005,"GL",0,6,.06)=""
+^DD(176.005,"GL",0,7,.07)=""
+^DD(176.005,"GL",0,8,.08)=""
+^DD(176.005,"GL",0,9,.09)=""
+^DD(176.005,"GL",0,10,.1)=""
+^DD(176.005,"GL",0,11,.11)=""
+^DD(176.005,"GL",0,12,.12)=""
+^DD(176.005,"GL",0,13,.13)=""
+^DD(176.005,"GL",0,14,.14)=""
+^DD(176.005,"GL",0,15,.15)=""
+^DD(176.005,"GL",0,16,.16)=""
+^DD(176.005,"RQ",.01)=""
+^DD("IX",905,0)="176.005^B^Compound Index for RXCUI1/RELA/RXCUI2^R^^R^IR^I^176.005^^^^^LS"
+^DD("IX",905,1)="S ^C0CRXN(176.005,""B"",X(1),X(2),X(3),DA)="""""
+^DD("IX",905,2)="K ^C0CRXN(176.005,""B"",X(1),X(2),X(3),DA)"
+^DD("IX",905,2.5)="K ^C0CRXN(176.005,""B"")"
+^DD("IX",905,11.1,0)="^.114IA^3^3"
+^DD("IX",905,11.1,1,0)="1^F^176.005^.11^^1^F"
+^DD("IX",905,11.1,1,3)=""
+^DD("IX",905,11.1,2,0)="2^F^176.005^.08^^2^F"
+^DD("IX",905,11.1,2,3)=""
+^DD("IX",905,11.1,3,0)="3^F^176.005^.05^^3^F"
+^DD("IX",905,11.1,3,3)=""
+^DD("IX",905,11.1,"AC",1,1)=""
+^DD("IX",905,11.1,"AC",2,2)=""
+^DD("IX",905,11.1,"AC",3,3)=""
+^DD("IX",905,11.1,"B",1,1)=""
+^DD("IX",905,11.1,"B",2,2)=""
+^DD("IX",905,11.1,"B",3,3)=""
+^DD("IX",905,11.1,"BB",1,1)=""
+^DD("IX",905,11.1,"BB",2,2)=""
+^DD("IX",905,11.1,"BB",3,3)=""
diff --git a/rxnorm/trunk/globals/F176.006.ZWR b/rxnorm/trunk/globals/F176.006.ZWR
new file mode 100644
index 0000000..42505a2
--- /dev/null
+++ b/rxnorm/trunk/globals/F176.006.ZWR
@@ -0,0 +1,62 @@
+KBANXDD - FILE 176.006
+3130409.13254 ZWR
+^DIC(176.006,0)="RXNORM DOCUMENTATION FOR ABBREVIATED VALUES^176.006"
+^DIC(176.006,0,"AUDIT")="@"
+^DIC(176.006,0,"DD")="@"
+^DIC(176.006,0,"DEL")="@"
+^DIC(176.006,0,"GL")="^C0CRXN(176.006,"
+^DIC(176.006,0,"LAYGO")="@"
+^DIC(176.006,0,"RD")=""
+^DIC(176.006,0,"WR")="@"
+^DIC(176.006,"%",0)="^1.005^^"
+^DIC(176.006,"%D",0)="^^9^9^3130301^"
+^DIC(176.006,"%D",1,0)="File = RXNDOC.RRF"
+^DIC(176.006,"%D",2,0)=" "
+^DIC(176.006,"%D",3,0)="This file follows the format of the Metathesaurus MRDOC.RRF file. At this "
+^DIC(176.006,"%D",4,0)="time, this file contains all of the data contained in the UMLS MRDOC.RRF "
+^DIC(176.006,"%D",5,0)="file. In the future, the contents of this file may be tailored to the "
+^DIC(176.006,"%D",6,0)="RxNorm subset of data only. There is exactly one row in this table for "
+^DIC(176.006,"%D",7,0)="each allowed value of selected data elements or attributes that have a "
+^DIC(176.006,"%D",8,0)="finite number of abbreviations as allowed values. Examples of such data "
+^DIC(176.006,"%D",9,0)="elements include TTY, ATN, TS, STT, REL, RELA."
+^DD(176.006,0)="FIELD^^.04^4"
+^DD(176.006,0,"DT")=3130301
+^DD(176.006,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
+^DD(176.006,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
+^DD(176.006,0,"ID",.04)="W ""   "",$P(^(0),U,4)"
+^DD(176.006,0,"IX","B",176.006,.01)=""
+^DD(176.006,0,"NM","RXNORM DOCUMENTATION FOR ABBREVIATED VALUES")=""
+^DD(176.006,.01,0)="DOCKEY^RFJ50^^0;1^K:$L(X)>50!($L(X)<1)!'(X'?1P.E) X"
+^DD(176.006,.01,1,0)="^.1"
+^DD(176.006,.01,1,1,0)="176.006^B"
+^DD(176.006,.01,1,1,1)="S ^C0CRXN(176.006,""B"",$E(X,1,30),DA)="""""
+^DD(176.006,.01,1,1,2)="K ^C0CRXN(176.006,""B"",$E(X,1,30),DA)"
+^DD(176.006,.01,3)="Answer must be 1-50 characters in length."
+^DD(176.006,.01,21,0)="^^1^1^3130301^"
+^DD(176.006,.01,21,1,0)="Data element or attribute"
+^DD(176.006,.01,"DT")=3130301
+^DD(176.006,.02,0)="VALUE^FJ1000^^0;2^K:$L(X)>1000!($L(X)<1) X"
+^DD(176.006,.02,3)="Answer must be 1-1000 characters in length."
+^DD(176.006,.02,21,0)="^^1^1^3130301^"
+^DD(176.006,.02,21,1,0)="Abbreviation that is one of its values"
+^DD(176.006,.02,"DT")=3130301
+^DD(176.006,.03,0)="TYPE^FJ50^^0;3^K:$L(X)>50!($L(X)<1) X"
+^DD(176.006,.03,3)="Answer must be 1-50 characters in length."
+^DD(176.006,.03,21,0)="^^1^1^3130301^"
+^DD(176.006,.03,21,1,0)="Type of information in EXPL column"
+^DD(176.006,.03,"DT")=3130301
+^DD(176.006,.04,0)="EXPL^FJ1000^^0;4^K:$L(X)>1000!($L(X)<1) X"
+^DD(176.006,.04,3)="Answer must be 1-1000 characters in length."
+^DD(176.006,.04,21,0)="^^1^1^3130301^"
+^DD(176.006,.04,21,1,0)="Explanation of VALUE"
+^DD(176.006,.04,"DT")=3130301
+^DD(176.006,"B","DOCKEY",.01)=""
+^DD(176.006,"B","EXPL",.04)=""
+^DD(176.006,"B","TYPE",.03)=""
+^DD(176.006,"B","VALUE",.02)=""
+^DD(176.006,"GL",0,1,.01)=""
+^DD(176.006,"GL",0,2,.02)=""
+^DD(176.006,"GL",0,3,.03)=""
+^DD(176.006,"GL",0,4,.04)=""
+^DD(176.006,"IX",.01)=""
+^DD(176.006,"RQ",.01)=""
diff --git a/rxnorm/trunk/globals/F50D176.001.ZWR b/rxnorm/trunk/globals/F50D176.001.ZWR
new file mode 100644
index 0000000..e54a1a5
--- /dev/null
+++ b/rxnorm/trunk/globals/F50D176.001.ZWR
@@ -0,0 +1,13 @@
+KBANXDD - FILE 50
+3130409.132556 ZWR
+^DD(50,176.001,0)="RXNCUI^CJ8^^ ; ^S X=$$MED2RXN^C0CRXNLK(D0)"
+^DD(50,176.001,.1)="RXNORM CUI"
+^DD(50,176.001,9)=""
+^DD(50,176.001,9.01)=""
+^DD(50,176.001,9.1)="S X=$$MED2RXN^C0CRXNLK(D0)"
+^DD(50,176.001,"DT")=3130408
+^DD(50,176.002,0)="RXN SCD NAME^CJ250^^ ; ^S X=$$MED2SCDN^C0CRXNLK(D0)"
+^DD(50,176.002,9)=""
+^DD(50,176.002,9.01)=""
+^DD(50,176.002,9.1)="S X=$$MED2SCDN^C0CRXNLK(D0)"
+^DD(50,176.002,"DT")=3130408
diff --git a/rxnorm/trunk/C0CRXNLK.m b/rxnorm/trunk/routines/C0CRXNLK.m
similarity index 100%
rename from rxnorm/trunk/C0CRXNLK.m
rename to rxnorm/trunk/routines/C0CRXNLK.m
diff --git a/rxnorm/trunk/C0CRXNRD.m b/rxnorm/trunk/routines/C0CRXNRD.m
similarity index 100%
rename from rxnorm/trunk/C0CRXNRD.m
rename to rxnorm/trunk/routines/C0CRXNRD.m