Changeset 690 for ccr/trunk/p

Timestamp:

Jan 27, 2010, 12:18:11 PM (15 years ago)

Author:

Christopher Edwards

Message:

Added kill to temporary global

File:

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

ccr/trunk/p/C0CCCR.m

@@ -29 +29 @@
  Q
  ;
-XPAT(DFN,XPARMS,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
+XPAT(DFN,XPARMS,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
  ; DIR IS THE DIRECTORY, DEFAULTS IF NULL TO ^TMP("C0CCCR","ODIR")
  ; FN IS FILE NAME, DEFAULTS IF NULL
@@ -77 +77 @@
  ; EXAMPLE: "LABLIMIT:T-60" TO LIMIT LAB EXTRACTION TO THE LAST 60 DAYS
  ; SEE C0CPARMS FOR A COMPLETE LIST OF SUPPORTED PARAMETERS
+ K ^TMP("C0CCCR",$J) ; CLEAN UP THE GLOBAL BEFORE WE USE IT
  I '$D(DEBUG) S DEBUG=0
  S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD