Changeset 312 for ccr/trunk/p/CCRMEDS2.m

Timestamp:

Jan 4, 2009, 5:55:58 PM (15 years ago)

Author:

Sam Habiel

Message:

Updated all meds files to use RxNorm codes instead of NDCs.

File:

• ccr/trunk/p/CCRMEDS2.m (modified) (3 diffs)

ccr/trunk/p/CCRMEDS2.m

@@ -85 +85 @@
  . ; with that
  . N MEDIEN S MEDIEN=$P(MED(11),U)
- . I +MEDIEN>0 D 
- . . S @MAP@("MEDPRODUCTNAMECODEVALUE")=$$GET1^DIQ(50,MEDIEN,31,"E")
- . . S @MAP@("MEDPRODUCTNAMECODINGINGSYSTEM")="NDC"
- . . S @MAP@("MEDPRODUCTNAMECODEVERSION")="none"
+ . I +MEDIEN>0 D  ; start of if/else block
+ . . ; 12/30/08: I will be using RxNorm for coding...
+ . . ; 176.001 is the file for Concepts; 176.003 is the file for
+ . . ; sources (i.e. for RxNorm Version)
+ . . ;
+ . . ; We need the VUID first for the National Drug File entry first
+ . . ; We get the VUID of the drug, by looking up the VA Product entry
+ . . ; (file 50.68) using the call NDF^PSS50, returned in node 22.
+ . . ; Field 99.99 is the VUID.
+ . . ;
+ . . ; We use the VUID to look up the RxNorm in file 176.001; same idea.
+ . . ; Get IEN first using $$FIND1^DIC, then get the RxNorm number by 
+ . . ; $$GET1^DIQ.
+ . . ;
+ . . ; I get the RxNorm name and version from the RxNorm Sources (file 
+ . . ; 176.003), by searching for "RXNORM", then get the data.
+ . . D NDF^PSS50(MEDIEN,,,,,"NDF")
+ . . N NDFDATA M NDFDATA=^TMP($J,"NDF",MEDIEN)
+ . . N NDFIEN S NDFIEN=$P(NDFDATA(20),U)
+ . . N VAPROD S VAPROD=$P(NDFDATA(22),U) 
+ . . ;
+ . . ; NDFIEN is not necessarily defined; it won't be if the drug
+ . . ; is not matched to the national drug file (e.g. if the drug is
+ . . ; new on the market, compounded, or is a fake drug [blue pill].
+ . . ; To protect against failure, I will put an if/else block
+ . . N VUID,RXNIEN,RXNORM,SRCIEN,RXNNAME,RXNVER
+ . . I NDFIEN D
+ . . . S VUID=$$GET1^DIQ(50.68,VAPROD,99.99)
+ . . . S RXNIEN=$$FIND1^DIC(176.001,,,VUID,"VUID")
+ . . . S RXNORM=$$GET1^DIQ(176.001,RXNIEN,.01)
+ . . . S SRCIEN=$$FIND1^DIC(176.003,,"B","RXNORM")
+ . . . S RXNNAME=$$GET1^DIQ(176.003,SRCIEN,6)
+ . . . S RXNVER=$$GET1^DIQ(176.003,SRCIEN,7)
+ . . ;
+ . . E  S (RXNORM,RXNNAME,RXNVER)=""
+ . . ; End if/else block
+ . . S @MAP@("MEDPRODUCTNAMECODEVALUE")=RXNORM
+ . . S @MAP@("MEDPRODUCTNAMECODINGINGSYSTEM")=RXNNAME
+ . . S @MAP@("MEDPRODUCTNAMECODEVERSION")=RXNVER
+ . . ;
  . . S @MAP@("MEDBRANDNAMETEXT")=""
  . . D DOSE^PSS50(MEDIEN,,,,,"DOSE")
@@ -99 +135 @@
  . . ; NDF Entry IEN, and VA Product Name
  . . ; These can be obtained using NDF^PSS50 (IEN,,,,,"SUBSCRIPT")
- . . ; Documented in the same manual.
- . . D NDF^PSS50(MEDIEN,,,,,"CONC")
- . . N NDFDATA M NDFDATA=^TMP($J,"CONC",MEDIEN)
- . . N NDFIEN S NDFIEN=$P(NDFDATA(20),U)
- . . N VAPROD S VAPROD=$P(NDFDATA(22),U)
+ . . ; Documented in the same manual; executed above.
  . . N CONCDATA
  . . ; If a drug was not matched to NDF, then the NDFIEN is gonna be ""
@@ -134 +166 @@
  . . S @MAP@("MEDQUANTITYVALUE")=""
  . . S @MAP@("MEDQUANTITYUNIT")=""
- . ;
+ . ; end of if/else block
  . ;
  . ; --- START OF DIRECTIONS ---