iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
sam 2014-07-22 21:03:51 +00:00
parent 567c5cdacf
commit f84628b360
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rxnorm/trunk/routines/C0CRXNAD.m
View File

@ -1,5 +1,5 @@
C0CRXNAD ; VEN/SMH - Add a drug to VISTA from RxNorm;2013-04-19 5:39 PM 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 ; (C) 2013 Sam Habiel
; Proprietary Code. Don't use if license terms aren't supplied. ; Proprietary Code. Don't use if license terms aren't supplied.
; ;

5
rxnorm/trunk/routines/C0CRXNLK.m
View File

@ -1,5 +1,5 @@
C0CRXNLK ; VEN/SMH - RxNorm Lookup Utilities ;2013-11-14 2:43 PM C0CRXNLK ; VEN/SMH - RxNorm Lookup Utilities ;2014-07-22 2:27 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 ;(c) Sam Habiel 2013
; See accompanying license. Don't use otherwise. ; 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 ^ ; Output: GCNs delimited by ^
; TODO: Unit Test ; TODO: Unit Test
N RXNS S RXNS=$$VUI2RXN(VUID) N RXNS S RXNS=$$VUI2RXN(VUID)
Q:RXNS="" "" ; VUID not a drug or ingredient (can be food)
N GCNS S GCNS="" N GCNS S GCNS=""
N I F I=1:1:$L(RXNS,U) S GCNS=GCNS_$$RXN2GCN($P(RXNS,U,I))_U 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) S GCNS=$E(GCNS,1,$L(GCNS)-1)

2
rxnorm/trunk/routines/C0CRXNRD.m
View File

@ -1,5 +1,5 @@
C0CRXNRD ; VEN/SMH - RxNorm Utilities: Routine to Read RxNorm files;2013-11-14 1:23 PM 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 ; (C) Sam Habiel 2013
; See license for terms of use. ; See license for terms of use.
; ;