Changeset 347 for ccr/trunk/p/CCRMEDS1.m

Timestamp:

Jan 30, 2009, 1:07:28 PM (15 years ago)

Author:

George Lilly

Message:

update to support parameters .. XPAT^{GPLCCR(1,"LABSTART:T^LABLIMIT:T-5000")}

File:

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

ccr/trunk/p/CCRMEDS1.m

@@ -38 +38 @@
  ; D PARY^GPLXPATH(MINXML)
  N MEDS,MAP
- K ^TMP($J)
+ K ^TMP($J,"CCDCCR") ; PLEASE DON'T KILL ALL OF ^TMP($J) HERE!!!!
  D RX^PSO52API(DFN,"CCDCCR")
  M MEDS=^TMP($J,"CCDCCR",DFN)
@@ -80 +80 @@
  . ;
  . ; 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 
+ . ; 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 
+ . ; I get the RxNorm name and version from the RxNorm Sources (file
  . ; 176.003), by searching for "RXNORM", then get the data.
  . N MEDIEN S MEDIEN=$P(MED(6),U)
@@ -89 +89 @@
  . N NDFDATA M NDFDATA=^TMP($J,"NDF",MEDIEN)
  . N NDFIEN S NDFIEN=$P(NDFDATA(20),U)
- . N VAPROD S VAPROD=$P(NDFDATA(22),U) 
+ . N VAPROD S VAPROD=$P(NDFDATA(22),U)
  . ;
  . ; NDFIEN is not necessarily defined; it won't be if the drug