Added kill to temporary global

p/C0CCCR.m

@@ -28,7 +28,7 @@ EXPORT	  ; EXPORT ENTRY POINT FOR CCR
  D XPAT(DFN) ; EXPORT TO A FILE
  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
  N CCRGLO,UDIR,UFN
@@ -76,6 +76,7 @@ CCRRPC(CCRGRTN,DFN,CCRPARMS,CCRPART)	 ;RPC ENTRY POINT FOR CCR OUTPUT
  ; IN THE FORM "PARM1:VALUE1^PARM2:VALUE2"
  ; 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
  I '$D(CCRPARMS) S CCRPARMS=""
@@ -248,4 +249,4 @@ TLIST	 ; LIST THE TESTS
  ;;>>>D CCRRPC^C0CCCR(.C0C,"2","ALERTS","")
  ;;>>?@C0C@(@C0C@(0))["</Alerts>"
  
- 
+