Changeset 1642 for ccr/trunk/rxnorm/trunk/routines/C0CRXNLK.m

Timestamp:

Jul 22, 2014, 5:03:51 PM (10 years ago)

Author:

Sam Habiel

Message:

Fixed a tiny bug so that invalid vuids can't try to get a GCN

File:

• ccr/trunk/rxnorm/trunk/routines/C0CRXNLK.m (modified) (2 diffs)

ccr/trunk/rxnorm/trunk/routines/C0CRXNLK.m

@@ -1 @@
-C0CRXNLK        ; VEN/SMH - RxNorm Lookup Utilities ;2013-11-14  2:43 PM
-        ;;2.2;RXNORM FOR VISTA;;Nov 14, 2013;Build 8
+C0CRXNLK        ; VEN/SMH - RxNorm Lookup Utilities ;2014-07-22  2:27 PM
+        ;;2.3;RXNORM FOR VISTA;;Jul 22, 2014;Build 10
         ;(c) Sam Habiel 2013
         ; See accompanying license. Don't use otherwise.
@@ -237 +237 @@
         ; TODO: Unit Test
         N RXNS S RXNS=$$VUI2RXN(VUID)
+        Q:RXNS="" ""  ; VUID not a drug or ingredient (can be food)
         N GCNS S GCNS=""
         N I F I=1:1:$L(RXNS,U) S GCNS=GCNS_$$RXN2GCN($P(RXNS,U,I))_U