From f84628b360e6909e7d8abe38dd87394eebd1c5bf Mon Sep 17 00:00:00 2001 From: sam Date: Tue, 22 Jul 2014 21:03:51 +0000 Subject: [PATCH] Fixed a tiny bug so that invalid vuids can't try to get a GCN --- rxnorm/trunk/routines/C0CRXNAD.m | 2 +- rxnorm/trunk/routines/C0CRXNLK.m | 5 +++-- rxnorm/trunk/routines/C0CRXNRD.m | 2 +- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/rxnorm/trunk/routines/C0CRXNAD.m b/rxnorm/trunk/routines/C0CRXNAD.m index 622bd72..10e02c4 100644 --- a/rxnorm/trunk/routines/C0CRXNAD.m +++ b/rxnorm/trunk/routines/C0CRXNAD.m @@ -1,5 +1,5 @@ C0CRXNAD ; VEN/SMH - Add a drug to VISTA from RxNorm;2013-04-19 5:39 PM - ;;2.2;RXNORM FOR VISTA;;Nov 14, 2013;Build 8 + ;;2.3;RXNORM FOR VISTA;;Jul 22, 2014;Build 10 ; (C) 2013 Sam Habiel ; Proprietary Code. Don't use if license terms aren't supplied. ; diff --git a/rxnorm/trunk/routines/C0CRXNLK.m b/rxnorm/trunk/routines/C0CRXNLK.m index 04f8f1b..d33af6b 100644 --- a/rxnorm/trunk/routines/C0CRXNLK.m +++ b/rxnorm/trunk/routines/C0CRXNLK.m @@ -1,5 +1,5 @@ -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. ; @@ -236,6 +236,7 @@ VUI2GCN(VUID) ; $$ Public - Get GCNs for a given VUID (any VUID type) ; Output: GCNs delimited by ^ ; 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 S GCNS=$E(GCNS,1,$L(GCNS)-1) diff --git a/rxnorm/trunk/routines/C0CRXNRD.m b/rxnorm/trunk/routines/C0CRXNRD.m index bd7b1ae..11e993e 100644 --- a/rxnorm/trunk/routines/C0CRXNRD.m +++ b/rxnorm/trunk/routines/C0CRXNRD.m @@ -1,5 +1,5 @@ C0CRXNRD ; VEN/SMH - RxNorm Utilities: Routine to Read RxNorm files;2013-11-14 1:23 PM - ;;2.2;RXNORM FOR VISTA;;Nov 14, 2013;Build 8 + ;;2.3;RXNORM FOR VISTA;;Jul 22, 2014;Build 10 ; (C) Sam Habiel 2013 ; See license for terms of use. ;