Changeset 974 for ccr/trunk/p/C0CMED3.m

Timestamp:

Oct 4, 2010, 1:46:18 PM (14 years ago)

Author:

George Lilly

Message:

modifications to clean up temp storage after processing

File:

• ccr/trunk/p/C0CMED3.m (modified) (2 diffs)

ccr/trunk/p/C0CMED3.m

@@ -105 +105 @@
  . . . S NDFIEN=$P(NDFDATA(20),U)
  . . . S VAPROD=$P(NDFDATA(22),U)
+ . . . S @MAP@("MEDPRODUCTNAMETEXT")=$$GET1^DIQ(50.68,VAPROD,.01) ;
+ . . ; GPL - RESET THE NAME TO THE REAL NAME OF THE DRUG NOW THAT WE
+ . . ;   HAVE IT. 
  . . ;
  . . ; NDFIEN is not necessarily defined; it won't be if the drug
@@ -256 +259 @@
  . W "MEDICATION MISSING ",!
  . F MEDI=1:1:MEDTMP(0) W MEDTMP(MEDI),!
- N ZI
- S ZI=$NA(^TMP("C0CCCR",$J,"MEDMAP"))
- M ^TMP("C0CRIM","VARS",DFN,"MEDS")=@ZI ; PERSIST MEDS VARIABLES
  Q
  ;