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

ccr/trunk/p/CCRMEDS3.m

@@ -38 +38 @@
  ;
  N MEDS,MAP
- K ^TMP($J),NVA
+ K ^TMP($J,"CCDCCR") ; PLEASE DON'T KILL ALL OF ^TMP($J) HERE!!!!
+ K NVA
  D GETS^DIQ(55,DFN,"52.2*","IE","NVA") ; Output in NVA in FDA array format.
  ; If NVA does not exist, then patient has no non-VA meds
@@ -90 +91 @@
  . . ;
  . . ; 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
@@ -130 +131 @@
  . . ; These can be obtained using NDF^PSS50 (IEN,,,,,"SUBSCRIPT")
  . . ; Documented in the same manual; executed above.
- . . ; 
+ . . ;
  . . ; If a drug was not matched to NDF, then the NDFIEN is gonna be ""
  . . ; and this will crash the call. So...