VistA-ccr/rxnorm/trunk/globals/F176.001.ZWR

277 lines
13 KiB
Plaintext

KBANXDD - FILE 176.001
3131114.151154 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^^0"
^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^^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)"
^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,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)=""
^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",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)=""