Changeset 347 for ccr/trunk/p/CCRMEDS2.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/CCRMEDS2.m (modified) (3 diffs)

ccr/trunk/p/CCRMEDS2.m

@@ -41 +41 @@
  ; So, most of the info is going to get pulled from 52.41.
  N MEDS,MAP
- K ^TMP($J)
+ K ^TMP($J,"CCDCCR") ; PLEASE DON'T KILL ALL OF ^TMP($J) HERE!!!!
  D PEN^PSO5241(DFN,"CCDCCR")
  M MEDS=^TMP($J,"CCDCCR",DFN)
@@ -80 +80 @@
  . ; MED(11) piece 1 has the IEN of the drug (file 50)
  . ; IEN is field 31 in the drug file.
- . ; 
+ . ;
  . ; MEDIEN (node 11 in the returned output) might not necessarily be defined
  . ; It is not defined when a dose in not chosen in CPRS. There is a long
@@ -97 +97 @@
  . . ;
  . . ; 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.
  . . 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) 
+ . . N VAPROD S VAPROD=$P(NDFDATA(22),U)
  . . ;
  . . ; NDFIEN is not necessarily defined; it won't be if the drug