Index: ccr/trunk/rxnorm/trunk/globals/F176.001.ZWR
===================================================================
--- ccr/trunk/rxnorm/trunk/globals/F176.001.ZWR	(revision 1615)
+++ ccr/trunk/rxnorm/trunk/globals/F176.001.ZWR	(revision 1631)
@@ -1,4 +1,4 @@
 KBANXDD - FILE 176.001
-3130409.13243 ZWR
+3131114.151154 ZWR
 ^DIC(176.001,0)="RXNORM CONCEPT NAMES AND SOURCES^176.001"
 ^DIC(176.001,0,"AUDIT")=""
@@ -9,5 +9,5 @@
 ^DIC(176.001,0,"RD")=""
 ^DIC(176.001,0,"WR")="@"
-^DIC(176.001,"%",0)="^1.005^^"
+^DIC(176.001,"%",0)="^1.005^^0"
 ^DIC(176.001,"%D",0)="^^10^10^3130225^"
 ^DIC(176.001,"%D",1,0)="File = RXNCONSO.RRF"
@@ -21,6 +21,8 @@
 ^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)="FIELD^^50^19"
+^DD(176.001,0,"DIK")="C0CRXN1"
+^DD(176.001,0,"DIKOLD")="C0CRXN1"
+^DD(176.001,0,"DT")=3130410
 ^DD(176.001,0,"ID",.12)="W ""   "",$P(^(0),U,12)"
 ^DD(176.001,0,"ID",.13)="W ""   "",$P(^(0),U,13)"
@@ -126,5 +128,11 @@
 ^DD(176.001,.18,21,1,0)="Content view flag"
 ^DD(176.001,.18,"DT")=3130225
+^DD(176.001,50,0)="COMPUTED DRUGS^Cmp50^^ ; ^N V S V=$$RXN2MEDS^C0CRXNLK($P(^C0CRXN(176.001,D0,0),U)) Q:V=""""  N D F D=1:1:$L(V,U) N D0 S D0=$P(V,U,D),X=$P(^PSDRUG(D0,0),U) X DICMX Q:'$D(D)"
+^DD(176.001,50,9)=""
+^DD(176.001,50,9.01)=""
+^DD(176.001,50,9.1)="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)"
+^DD(176.001,50,"DT")=3130410
 ^DD(176.001,"B","CODE",.14)=""
+^DD(176.001,"B","COMPUTED DRUGS",50)=""
 ^DD(176.001,"B","CVF",.18)=""
 ^DD(176.001,"B","ISPREF",.07)=""
@@ -169,100 +177,100 @@
 ^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)=""
+^DD("IX",983,0)="176.001^B^Regular B Index^R^^F^IR^I^176.001^^^^^LS"
+^DD("IX",983,1)="S ^C0CRXN(176.001,""B"",X,DA)="""""
+^DD("IX",983,2)="K ^C0CRXN(176.001,""B"",X,DA)"
+^DD("IX",983,2.5)="K ^C0CRXN(176.001,""B"")"
+^DD("IX",983,11.1,0)="^.114IA^1^1"
+^DD("IX",983,11.1,1,0)="1^F^176.001^.01^^1^F"
+^DD("IX",983,11.1,1,3)=""
+^DD("IX",983,11.1,"AC",1,1)=""
+^DD("IX",983,11.1,"B",1,1)=""
+^DD("IX",983,11.1,"BB",1,1)=""
+^DD("IX",1020,0)="176.001^CODE^Code Index^R^^F^IR^I^176.001^^^^^LS"
+^DD("IX",1020,1)="S ^C0CRXN(176.001,""CODE"",X,DA)="""""
+^DD("IX",1020,2)="K ^C0CRXN(176.001,""CODE"",X,DA)"
+^DD("IX",1020,2.5)="K ^C0CRXN(176.001,""CODE"")"
+^DD("IX",1020,11.1,0)="^.114IA^1^1"
+^DD("IX",1020,11.1,1,0)="1^F^176.001^.14^^1^F"
+^DD("IX",1020,11.1,1,3)=""
+^DD("IX",1020,11.1,"AC",1,1)=""
+^DD("IX",1020,11.1,"B",1,1)=""
+^DD("IX",1020,11.1,"BB",1,1)=""
+^DD("IX",1021,0)="176.001^STC^Source Term Type Code Index^MU^^R^IR^I^176.001^^^^^LS"
+^DD("IX",1021,.1,0)="^^11^11^3130304^"
+^DD("IX",1021,.1,1,0)="Use this index to do compound searches on RxNorm Concepts."
+^DD("IX",1021,.1,2,0)=" "
+^DD("IX",1021,.1,3,0)="Examples:"
+^DD("IX",1021,.1,4,0)="SAB=""NDDF"", TTY=""CDC"", CODE={GCN} will give you the entry a clinical drug "
+^DD("IX",1021,.1,5,0)="in First Database with GCN Code {GCN}."
+^DD("IX",1021,.1,6,0)=" "
+^DD("IX",1021,.1,7,0)="SAB=""RXNORM"", TTY=""SCD"", CODE={RXNORM} will give you the entry that is "
+^DD("IX",1021,.1,8,0)="the Semantic Clinical Drug for the RxNorm code."
+^DD("IX",1021,.1,9,0)=" "
+^DD("IX",1021,.1,10,0)="SAB=""VANDF"", TTY=""CD"", CODE={VUID} will give you a drug that has that "
+^DD("IX",1021,.1,11,0)="VUID."
+^DD("IX",1021,1)="S ^C0CRXN(176.001,""STC"",X(1),X(2),X(3),DA)=X(4)"
+^DD("IX",1021,2)="K ^C0CRXN(176.001,""STC"",X(1),X(2),X(3),DA)"
+^DD("IX",1021,2.5)="K ^C0CRXN(176.001,""STC"")"
+^DD("IX",1021,11.1,0)="^.114IA^4^4"
+^DD("IX",1021,11.1,1,0)="1^F^176.001^.12^^1^F"
+^DD("IX",1021,11.1,1,3)=""
+^DD("IX",1021,11.1,2,0)="2^F^176.001^.13^^2^F"
+^DD("IX",1021,11.1,2,3)=""
+^DD("IX",1021,11.1,3,0)="3^F^176.001^.14^^3^F"
+^DD("IX",1021,11.1,3,3)=""
+^DD("IX",1021,11.1,4,0)="4^F^176.001^.01^^^F"
+^DD("IX",1021,11.1,4,3)=""
+^DD("IX",1021,11.1,"AC",1,1)=""
+^DD("IX",1021,11.1,"AC",2,2)=""
+^DD("IX",1021,11.1,"AC",3,3)=""
+^DD("IX",1021,11.1,"B",1,1)=""
+^DD("IX",1021,11.1,"B",2,2)=""
+^DD("IX",1021,11.1,"B",3,3)=""
+^DD("IX",1021,11.1,"B",4,4)=""
+^DD("IX",1021,11.1,"BB",1,1)=""
+^DD("IX",1021,11.1,"BB",2,2)=""
+^DD("IX",1021,11.1,"BB",3,3)=""
+^DD("IX",1021,11.1,"BB",4,4)=""
+^DD("IX",1022,0)="176.001^STR^String Lookup Index^R^^F^IR^I^176.001^^^^^LS"
+^DD("IX",1022,1)="S ^C0CRXN(176.001,""STR"",$E(X,1,30),DA)="""""
+^DD("IX",1022,2)="K ^C0CRXN(176.001,""STR"",$E(X,1,30),DA)"
+^DD("IX",1022,2.5)="K ^C0CRXN(176.001,""STR"")"
+^DD("IX",1022,11.1,0)="^.114IA^1^1"
+^DD("IX",1022,11.1,1,0)="1^F^176.001^.15^30^1^F"
+^DD("IX",1022,11.1,1,2)="S X=$$UP^XLFSTR(X)"
+^DD("IX",1022,11.1,1,3)=""
+^DD("IX",1022,11.1,1,4)="S X=$$UP^XLFSTR(X)"
+^DD("IX",1022,11.1,"AC",1,1)=""
+^DD("IX",1022,11.1,"B",1,1)=""
+^DD("IX",1022,11.1,"BB",1,1)=""
+^DD("IX",1023,0)="176.001^STX^Source Term Type RxCUI Code Index^MU^^R^IR^I^176.001^^^^^LS"
+^DD("IX",1023,.1,0)="^^5^5^3130305^"
+^DD("IX",1023,.1,1,0)="Use this index as a reverse of the STC index."
+^DD("IX",1023,.1,2,0)=" "
+^DD("IX",1023,.1,3,0)="The STC index will give you an entry if you know the source and the type "
+^DD("IX",1023,.1,4,0)="and the code. This index will give you the codes if you know the source, "
+^DD("IX",1023,.1,5,0)="the type, but not the code, but rather the RxNorm code."
+^DD("IX",1023,1)="S ^C0CRXN(176.001,""STX"",X(1),X(2),X(3),DA)=X(4)"
+^DD("IX",1023,2)="K ^C0CRXN(176.001,""STX"",X(1),X(2),X(3),DA)"
+^DD("IX",1023,2.5)="K ^C0CRXN(176.001,""STX"")"
+^DD("IX",1023,11.1,0)="^.114IA^4^4"
+^DD("IX",1023,11.1,1,0)="1^F^176.001^.12^^1^F"
+^DD("IX",1023,11.1,1,3)=""
+^DD("IX",1023,11.1,2,0)="2^F^176.001^.13^^2^F"
+^DD("IX",1023,11.1,2,3)=""
+^DD("IX",1023,11.1,3,0)="3^F^176.001^.01^^3^F"
+^DD("IX",1023,11.1,3,3)=""
+^DD("IX",1023,11.1,4,0)="4^F^176.001^.14^^^F"
+^DD("IX",1023,11.1,4,3)=""
+^DD("IX",1023,11.1,"AC",1,1)=""
+^DD("IX",1023,11.1,"AC",2,2)=""
+^DD("IX",1023,11.1,"AC",3,3)=""
+^DD("IX",1023,11.1,"B",1,1)=""
+^DD("IX",1023,11.1,"B",2,2)=""
+^DD("IX",1023,11.1,"B",3,3)=""
+^DD("IX",1023,11.1,"B",4,4)=""
+^DD("IX",1023,11.1,"BB",1,1)=""
+^DD("IX",1023,11.1,"BB",2,2)=""
+^DD("IX",1023,11.1,"BB",3,3)=""
+^DD("IX",1023,11.1,"BB",4,4)=""
Index: ccr/trunk/rxnorm/trunk/globals/F176.002.ZWR
===================================================================
--- ccr/trunk/rxnorm/trunk/globals/F176.002.ZWR	(revision 1615)
+++ ccr/trunk/rxnorm/trunk/globals/F176.002.ZWR	(revision 1631)
@@ -1,4 +1,4 @@
 KBANXDD - FILE 176.002
-3130409.132457 ZWR
+3131114.151203 ZWR
 ^DIC(176.002,0)="RXNORM SIMPLE CONCEPT AND ATOM ATTRIBUTES^176.002"
 ^DIC(176.002,0,"AUDIT")="@"
@@ -9,5 +9,5 @@
 ^DIC(176.002,0,"RD")=""
 ^DIC(176.002,0,"WR")="@"
-^DIC(176.002,"%",0)="^1.005^^"
+^DIC(176.002,"%",0)="^1.005^^0"
 ^DIC(176.002,"%D",0)="^^9^9^3130301^"
 ^DIC(176.002,"%D",1,0)="File: RXNSAT.RRF"
@@ -21,4 +21,6 @@
 ^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,"DIK")="C0CRXN2"
+^DD(176.002,0,"DIKOLD")="C0CRXN2"
 ^DD(176.002,0,"DT")=3130301
 ^DD(176.002,0,"ID",.1)="W ""   "",$P(^(0),U,10)"
@@ -143,85 +145,85 @@
 ^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)=""
+^DD("IX",1024,0)="176.002^ANDFRT^RxNorm NDFRT Index^R^^R^IR^I^176.002^^^^^S"
+^DD("IX",1024,1)="S ^C0CRXN(176.002,""ANDFRT"",X(1),$E(X(3),1,30),$E(X(4),1,30),DA)="""""
+^DD("IX",1024,1.4)="S X=X(2)=""NDFRT"""
+^DD("IX",1024,2)="K ^C0CRXN(176.002,""ANDFRT"",X(1),$E(X(3),1,30),$E(X(4),1,30),DA)"
+^DD("IX",1024,2.4)="S X=X(2)=""NDFRT"""
+^DD("IX",1024,2.5)="K ^C0CRXN(176.002,""ANDFRT"")"
+^DD("IX",1024,11.1,0)="^.114IA^4^4"
+^DD("IX",1024,11.1,1,0)="1^F^176.002^.09^^1^F"
+^DD("IX",1024,11.1,1,3)=""
+^DD("IX",1024,11.1,2,0)="2^F^176.002^.1^^^F"
+^DD("IX",1024,11.1,2,3)=""
+^DD("IX",1024,11.1,3,0)="3^F^176.002^.01^30^2^F"
+^DD("IX",1024,11.1,3,3)=""
+^DD("IX",1024,11.1,4,0)="4^F^176.002^.11^30^3^F"
+^DD("IX",1024,11.1,4,3)=""
+^DD("IX",1024,11.1,"AC",1,1)=""
+^DD("IX",1024,11.1,"AC",2,3)=""
+^DD("IX",1024,11.1,"AC",3,4)=""
+^DD("IX",1024,11.1,"B",1,1)=""
+^DD("IX",1024,11.1,"B",2,2)=""
+^DD("IX",1024,11.1,"B",3,3)=""
+^DD("IX",1024,11.1,"B",4,4)=""
+^DD("IX",1024,11.1,"BB",1,1)=""
+^DD("IX",1024,11.1,"BB",2,2)=""
+^DD("IX",1024,11.1,"BB",3,3)=""
+^DD("IX",1024,11.1,"BB",4,4)=""
+^DD("IX",1025,0)="176.002^ASAA^SAB (Source) ATN (Attribute Name) ATV (Value) Index^MU^^R^IR^I^176.002^^^^^S"
+^DD("IX",1025,1)="S ^C0CRXN(176.002,""ASAA"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)=X(4)"
+^DD("IX",1025,2)="K ^C0CRXN(176.002,""ASAA"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)"
+^DD("IX",1025,2.5)="K ^C0CRXN(176.002,""ASAA"")"
+^DD("IX",1025,11.1,0)="^.114IA^4^4"
+^DD("IX",1025,11.1,1,0)="1^F^176.002^.1^^1^F"
+^DD("IX",1025,11.1,1,3)=""
+^DD("IX",1025,11.1,2,0)="2^F^176.002^.01^30^2^F"
+^DD("IX",1025,11.1,2,3)=""
+^DD("IX",1025,11.1,3,0)="3^F^176.002^.11^30^3^F"
+^DD("IX",1025,11.1,3,3)=""
+^DD("IX",1025,11.1,4,0)="4^F^176.002^.09^^^F"
+^DD("IX",1025,11.1,4,3)=""
+^DD("IX",1025,11.1,"AC",1,1)=""
+^DD("IX",1025,11.1,"AC",2,2)=""
+^DD("IX",1025,11.1,"AC",3,3)=""
+^DD("IX",1025,11.1,"B",1,1)=""
+^DD("IX",1025,11.1,"B",2,2)=""
+^DD("IX",1025,11.1,"B",3,3)=""
+^DD("IX",1025,11.1,"B",4,4)=""
+^DD("IX",1025,11.1,"BB",1,1)=""
+^DD("IX",1025,11.1,"BB",2,2)=""
+^DD("IX",1025,11.1,"BB",3,3)=""
+^DD("IX",1025,11.1,"BB",4,4)=""
+^DD("IX",1026,0)="176.002^ASAR^SAB (Source) ATN (Attribute Name) RxCUI Index^MU^^R^IR^I^176.002^^^^^S"
+^DD("IX",1026,1)="S ^C0CRXN(176.002,""ASAR"",X(1),$E(X(2),1,30),X(3),DA)=X(4)"
+^DD("IX",1026,2)="K ^C0CRXN(176.002,""ASAR"",X(1),$E(X(2),1,30),X(3),DA)"
+^DD("IX",1026,2.5)="K ^C0CRXN(176.002,""ASAR"")"
+^DD("IX",1026,11.1,0)="^.114IA^4^4"
+^DD("IX",1026,11.1,1,0)="1^F^176.002^.1^^1^F"
+^DD("IX",1026,11.1,1,3)=""
+^DD("IX",1026,11.1,2,0)="2^F^176.002^.01^30^2^F"
+^DD("IX",1026,11.1,2,3)=""
+^DD("IX",1026,11.1,3,0)="3^F^176.002^.09^^3^F"
+^DD("IX",1026,11.1,3,3)=""
+^DD("IX",1026,11.1,4,0)="4^F^176.002^.11^^^F"
+^DD("IX",1026,11.1,4,3)=""
+^DD("IX",1026,11.1,"AC",1,1)=""
+^DD("IX",1026,11.1,"AC",2,2)=""
+^DD("IX",1026,11.1,"AC",3,3)=""
+^DD("IX",1026,11.1,"B",1,1)=""
+^DD("IX",1026,11.1,"B",2,2)=""
+^DD("IX",1026,11.1,"B",3,3)=""
+^DD("IX",1026,11.1,"B",4,4)=""
+^DD("IX",1026,11.1,"BB",1,1)=""
+^DD("IX",1026,11.1,"BB",2,2)=""
+^DD("IX",1026,11.1,"BB",3,3)=""
+^DD("IX",1026,11.1,"BB",4,4)=""
+^DD("IX",1027,0)="176.002^RXCUI^RXCUI Index^R^^F^IR^I^176.002^^^^^LS"
+^DD("IX",1027,1)="S ^C0CRXN(176.002,""RXCUI"",X,DA)="""""
+^DD("IX",1027,2)="K ^C0CRXN(176.002,""RXCUI"",X,DA)"
+^DD("IX",1027,2.5)="K ^C0CRXN(176.002,""RXCUI"")"
+^DD("IX",1027,11.1,0)="^.114IA^1^1"
+^DD("IX",1027,11.1,1,0)="1^F^176.002^.09^^1^F"
+^DD("IX",1027,11.1,"AC",1,1)=""
+^DD("IX",1027,11.1,"B",1,1)=""
+^DD("IX",1027,11.1,"BB",1,1)=""
Index: ccr/trunk/rxnorm/trunk/globals/F176.003.ZWR
===================================================================
--- ccr/trunk/rxnorm/trunk/globals/F176.003.ZWR	(revision 1615)
+++ ccr/trunk/rxnorm/trunk/globals/F176.003.ZWR	(revision 1631)
@@ -1,4 +1,4 @@
 KBANXDD - FILE 176.003
-3130409.132522 ZWR
+3131114.151211 ZWR
 ^DIC(176.003,0)="RXNORM SOURCE INFORMATION^176.003"
 ^DIC(176.003,0,"AUDIT")="@"
@@ -9,5 +9,5 @@
 ^DIC(176.003,0,"RD")=""
 ^DIC(176.003,0,"WR")="@"
-^DIC(176.003,"%",0)="^1.005^^"
+^DIC(176.003,"%",0)="^1.005^^0"
 ^DIC(176.003,"%D",0)="^^11^11^3130301^"
 ^DIC(176.003,"%D",1,0)="File RXNSAB.RRF"
@@ -44,5 +44,5 @@
 ^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,0)="VSAB^FJ40^^0;3^K:$L(X)>40!($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."
Index: ccr/trunk/rxnorm/trunk/globals/F176.004.ZWR
===================================================================
--- ccr/trunk/rxnorm/trunk/globals/F176.004.ZWR	(revision 1615)
+++ ccr/trunk/rxnorm/trunk/globals/F176.004.ZWR	(revision 1631)
@@ -1,4 +1,4 @@
 KBANXDD - FILE 176.004
-3130409.132527 ZWR
+3131114.151218 ZWR
 ^DIC(176.004,0)="RXNORM SEMANTIC TYPES^176.004"
 ^DIC(176.004,0,"AUDIT")="@"
@@ -9,5 +9,5 @@
 ^DIC(176.004,0,"RD")=""
 ^DIC(176.004,0,"WR")="@"
-^DIC(176.004,"%",0)="^1.005^^"
+^DIC(176.004,"%",0)="^1.005^^0"
 ^DIC(176.004,"%D",0)="^^7^7^3130301^"
 ^DIC(176.004,"%D",1,0)="File = RXNSTY.RRF"
@@ -19,4 +19,6 @@
 ^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,"DIK")="C0CRXN4"
+^DD(176.004,0,"DIKOLD")="C0CRXN4"
 ^DD(176.004,0,"DT")=3130301
 ^DD(176.004,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
Index: ccr/trunk/rxnorm/trunk/globals/F176.005.ZWR
===================================================================
--- ccr/trunk/rxnorm/trunk/globals/F176.005.ZWR	(revision 1615)
+++ ccr/trunk/rxnorm/trunk/globals/F176.005.ZWR	(revision 1631)
@@ -1,4 +1,4 @@
 KBANXDD - FILE 176.005
-3130409.132533 ZWR
+3131114.151223 ZWR
 ^DIC(176.005,0)="RXNORM RELATED CONCEPTS^176.005"
 ^DIC(176.005,0,"AUDIT")="@"
@@ -9,5 +9,5 @@
 ^DIC(176.005,0,"RD")=""
 ^DIC(176.005,0,"WR")="@"
-^DIC(176.005,"%",0)="^1.005^^"
+^DIC(176.005,"%",0)="^1.005^^0"
 ^DIC(176.005,"%D",0)="^^15^15^3130301^"
 ^DIC(176.005,"%D",1,0)="File = RXNREL.RRF"
@@ -27,4 +27,6 @@
 ^DIC(176.005,"%D",15,0)="Identifier RXAUI1)."
 ^DD(176.005,0)="FIELD^^.16^16"
+^DD(176.005,0,"DIK")="C0CRXN5"
+^DD(176.005,0,"DIKOLD")="C0CRXN5"
 ^DD(176.005,0,"DT")=3130301
 ^DD(176.005,0,"NM","RXNORM RELATED CONCEPTS")=""
@@ -152,22 +154,22 @@
 ^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)=""
+^DD("IX",1028,0)="176.005^B^Compound Index for RXCUI1/RELA/RXCUI2^R^^R^IR^I^176.005^^^^^LS"
+^DD("IX",1028,1)="S ^C0CRXN(176.005,""B"",X(1),X(2),X(3),DA)="""""
+^DD("IX",1028,2)="K ^C0CRXN(176.005,""B"",X(1),X(2),X(3),DA)"
+^DD("IX",1028,2.5)="K ^C0CRXN(176.005,""B"")"
+^DD("IX",1028,11.1,0)="^.114IA^3^3"
+^DD("IX",1028,11.1,1,0)="1^F^176.005^.11^^1^F"
+^DD("IX",1028,11.1,1,3)=""
+^DD("IX",1028,11.1,2,0)="2^F^176.005^.08^^2^F"
+^DD("IX",1028,11.1,2,3)=""
+^DD("IX",1028,11.1,3,0)="3^F^176.005^.05^^3^F"
+^DD("IX",1028,11.1,3,3)=""
+^DD("IX",1028,11.1,"AC",1,1)=""
+^DD("IX",1028,11.1,"AC",2,2)=""
+^DD("IX",1028,11.1,"AC",3,3)=""
+^DD("IX",1028,11.1,"B",1,1)=""
+^DD("IX",1028,11.1,"B",2,2)=""
+^DD("IX",1028,11.1,"B",3,3)=""
+^DD("IX",1028,11.1,"BB",1,1)=""
+^DD("IX",1028,11.1,"BB",2,2)=""
+^DD("IX",1028,11.1,"BB",3,3)=""
Index: ccr/trunk/rxnorm/trunk/globals/F176.006.ZWR
===================================================================
--- ccr/trunk/rxnorm/trunk/globals/F176.006.ZWR	(revision 1615)
+++ ccr/trunk/rxnorm/trunk/globals/F176.006.ZWR	(revision 1631)
@@ -1,4 +1,4 @@
 KBANXDD - FILE 176.006
-3130409.13254 ZWR
+3131114.151228 ZWR
 ^DIC(176.006,0)="RXNORM DOCUMENTATION FOR ABBREVIATED VALUES^176.006"
 ^DIC(176.006,0,"AUDIT")="@"
@@ -9,5 +9,5 @@
 ^DIC(176.006,0,"RD")=""
 ^DIC(176.006,0,"WR")="@"
-^DIC(176.006,"%",0)="^1.005^^"
+^DIC(176.006,"%",0)="^1.005^^0"
 ^DIC(176.006,"%D",0)="^^9^9^3130301^"
 ^DIC(176.006,"%D",1,0)="File = RXNDOC.RRF"
Index: ccr/trunk/rxnorm/trunk/globals/F50.68D176.001.ZWR
===================================================================
--- ccr/trunk/rxnorm/trunk/globals/F50.68D176.001.ZWR	(revision 1631)
+++ ccr/trunk/rxnorm/trunk/globals/F50.68D176.001.ZWR	(revision 1631)
@@ -0,0 +1,6 @@
+KBANXDD - FILE 50.68
+3131114.151316 ZWR
+^DD(50.68,176.001,0)="COMPUTED GCNSEQNO^CJ25^^ ; ^S X=$$VUI2GCN^C0CRXNLK(+$G(^PSNDF(50.68,D0,""VUID"")))"
+^DD(50.68,176.001,9.01)=""
+^DD(50.68,176.001,9.1)="S X=$$VUI2GCN^C0CRXNLK(+$G(^PSNDF(50.68,D0,""VUID"")))"
+^DD(50.68,176.001,"DT")=3130625
Index: ccr/trunk/rxnorm/trunk/globals/F50D176.001.ZWR
===================================================================
--- ccr/trunk/rxnorm/trunk/globals/F50D176.001.ZWR	(revision 1615)
+++ ccr/trunk/rxnorm/trunk/globals/F50D176.001.ZWR	(revision 1631)
@@ -1,12 +1,10 @@
 KBANXDD - FILE 50
-3130409.132556 ZWR
-^DD(50,176.001,0)="RXNCUI^CJ8^^ ; ^S X=$$MED2RXN^C0CRXNLK(D0)"
+3131114.1513 ZWR
+^DD(50,176.001,0)="RXNCUI^Cp176.001^^ ; ^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.001,"DT")=3130708
 ^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)"
