Changeset 974 for ccr/trunk/p/C0CMED.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/C0CMED.m (modified) (2 diffs)

ccr/trunk/p/C0CMED.m

@@ -76 +76 @@
  N PEND S PEND=$NA(^TMP($J,"MED","PEND")) ; Pending Meds
  N NVA S NVA=$NA(^TMP($J,"MED","NVA")) ; non-VA Meds
+ K @HIST K @PEND K @NVA ; MAKE SURE THEY ARE EMPTY
  S @HIST@(0)=0,@PEND@(0)=0,@NVA@(0)=0 ; At first, they are all empty... (prevent undefined errors)
  ; N IPIV ; Inpatient IV Meds
@@ -94 +95 @@
  . E  D CP^C0CXPATH(NVA,MEDOUTXML) 
  . W:$G(DEBUG) "HAS NON-VA MEDS",!
+ N ZI
+ S ZI=$NA(^TMP("C0CCCR",$J,"MEDMAP"))
+ M ^TMP("C0CRIM","VARS",DFN,"MEDS")=@ZI ; PERSIST MEDS VARIABLES
+ K @ZI ; CLEAN UP MED MAP AFTER - GPL 10/10
+ K @PEND
+ K @HIST
+ K @NVA
  Q