Changeset 1617 for ccr/trunk/rxnorm

Timestamp:

Apr 10, 2013, 9:52:03 PM (12 years ago)

Author:

Sam Habiel

Message:

Improvements to bugs found in RxNorm lookups

File:

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

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

@@ -1 @@
-C0CRXNLK        ; VEN/SMH - RxNorm Lookup Utilities ;2013-04-08  5:00 PM
+C0CRXNLK        ; VEN/SMH - RxNorm Lookup Utilities ;2013-04-10  7:01 PM
         ;;1.0;RX NORM;;Apr 25, 2012;Build 99
         ;(c) Sam Habiel 2013
@@ -9 +9 @@
         D EN^XTMUNIT($T(+0),1)
         QUIT
+        ;
+EXIST(RXN) ; $$ Public - Does this RxNorm CUI exist?
+        ; Input: RxNorm CUI by value
+        ; Output: Extrinsic
+        Q ''$D(^C0CRXN(176.001,"B",RXN))
         ;
 GCN2RXN(GCN)    ; $$ Public - Get RxNorm CUI using GCN
@@ -62 +67 @@
         ;
         ;
-VUI2VAP(VUID)   ; $$ Public - Get VA Product IEN from VUID
+VUI2VAP(VUID)   ; $$ Public - Get VA Product IEN(s) from VUID
         ; Input VUID by Value
         ; Output: Extrinsic
-        Q $$FIND1^DIC(50.68,"","QX",VUID,"AVUID")
+        D FIND^DIC(50.68,,"@","QP",VUID,,"AVUID") ; Find all in VUID index
+        N O S O="" ; Output
+        N I F I=0:0 S I=$O(^TMP("DILIST",$J,I)) Q:'I  S O=O_^(I,0)_U ; Concat results together
+        S O=$E(O,1,$L(O)-1) ; remove trailing ^
+        Q O
         ;
 VUI2VAPT ; @TEST - Get VA Product IEN from VUID
@@ -80 +89 @@
         ;;4003335;2756
         ;;4002469;1884
+        ;;4009488;9046^10090
         ;;<<END>>
         ;
@@ -106 +116 @@
         ; Output; Caret delimited extrinsic
         ; Un-unit testable
-        N VUIDS S VUIDS=$$RXN2VUI(RXNCUI) ; Get VUID from RXNCUI
-        ; TODO: Decide which VUID to use!
-        N VAPROD S VAPROD=$$VUI2VAP(VUIDS) ; Get VA Product from VUID
-        N MEDS S MEDS=$$VAP2MED(VAPROD) ; Get Meds from VA Product
+        N VUIDS S VUIDS=$$RXN2VUI(RXNCUI) ; Get VUID from RXNCUI (multiple VUIDs per CUI)
+        Q:'VUIDS ""
+        N MEDS S MEDS=""
+        N DONE S DONE=0
+        N I F I=1:1:$L(VUIDS,U) D  Q:DONE
+        . N VUID S VUID=$P(VUIDS,U,I)
+        . N VAPRODS S VAPRODS=$$VUI2VAP(VUID) ; Get VA Product from VUID (multiple products per VUID)
+        . I '$L(VAPRODS) S ^SAM(RXNCUI)="TELL SAM",DONE=1 QUIT  ; MUST EXIST. Every VUID must have a product to go with it.
+        . N J F J=1:1:$L(VAPRODS,U) D  Q:DONE
+        . . N VAPROD S VAPROD=$P(VAPRODS,U,J)
+        . . S MEDS=$$VAP2MED(VAPROD) ; Get Meds from VA Product
+        . . I $L(MEDS) S DONE=1
         QUIT MEDS
         ;
@@ -271 +289 @@
         I $$ISBRAND(RXN) S RXN=$$BR2GEN(RXN)
         N ALLBN S ALLBN=$$GEN2BR(RXN)
+        Q:ALLBN="" ""
         N BNNO F BNNO=1:1:$L(ALLBN,U) D
         . N EACHBN S EACHBN=$P(ALLBN,U,BNNO)