From 144453381b160ce3789007949050935e6453f161 Mon Sep 17 00:00:00 2001
From: cje <cje>
Date: Wed, 27 Jan 2010 17:18:11 +0000
Subject: [PATCH] Added kill to temporary global

---
 p/C0CCCR.m | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/p/C0CCCR.m b/p/C0CCCR.m
index b8ae44e..2558112 100644
--- a/p/C0CCCR.m
+++ b/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>"
  
- 
\ No newline at end of file
+