diff --git a/p/GPLACTOR.m b/p/GPLACTOR.m
index effb7ac..6c39b59 100644
--- a/p/GPLACTOR.m
+++ b/p/GPLACTOR.m
@@ -2,17 +2,17 @@ GPLACTOR  ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
  ;;0.4;CCDCCR;nopatch;noreleasedate
  ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
  ; General Public License See attached copy of the License.
- ; 
+ ;
  ; This program is free software; you can redistribute it and/or modify
  ; it under the terms of the GNU General Public License as published by
  ; the Free Software Foundation; either version 2 of the License, or
  ; (at your option) any later version.
- ; 
+ ;
  ; This program is distributed in the hope that it will be useful,
  ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  ; GNU General Public License for more details.
- ; 
+ ;
  ; You should have received a copy of the GNU General Public License along
  ; with this program; if not, write to the Free Software Foundation, Inc.,
  ; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
@@ -67,6 +67,7 @@ EXTRACT(IPXML,ALST,AXML) ; EXTRACT ACTOR FROM ALST INTO PROVIDED XML TEMPLATE
  . . D ORG("ATMP",AIEN,AOID,"ATMP2")
  . ;
  . D INSINNER^GPLXPATH(AXML,"ATMP2") ; INSERT INTO ROOT
+ . K ATYP,AIEN,AOID ; BE SURE TO GET THE NEXT ONE
  ;
  N ACTTMP
  D MISSING^GPLXPATH(AXML,"ACTTMP") ; SEARCH XML FOR MISSING VARS
diff --git a/p/GPLCCR.m b/p/GPLCCR.m
index 68ec2ed..51dde30 100644
--- a/p/GPLCCR.m
+++ b/p/GPLCCR.m
@@ -30,20 +30,22 @@ EXPORT   ; EXPORT ENTRY POINT FOR CCR
 XPAT(DFN,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
        ; DIR IS THE DIRECTORY, DEFAULTS IF NULL TO ^TMP("GPLCCR","ODIR")
        ; FN IS FILE NAME, DEFAULTS IF NULL
-       N CCRGLO
-       I '$D(DIR) S DIR=""
-       I '$D(FN) S FN=""
+       N CCRGLO,UDIR,UFN
+       I '$D(DIR) S UDIR=""
+       E  S UDIR=DIR
+       I '$D(FN) S UFN=""
+       E  S UFN=FN
        D CCRRPC(.CCRGLO,DFN,"CCR","","","")
        S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
-       S ONAM=FN
-       I FN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_5.xml"
+       S ONAM=UFN
+       I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_5.xml"
        S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
        I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET
        . ;S @ODIRGLB="/home/glilly/CCROUT"
        . ;S @ODIRGLB="/home/cedwards/"
        . S @ODIRGLB="/opt/wv/p/"
-       S ODIR=DIR
-       I DIR="" S ODIR=@ODIRGLB
+       S ODIR=UDIR
+       I UDIR="" S ODIR=@ODIRGLB
        N ZY
        S ZY=$$OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
        W !,$P(ZY,U,2),!
@@ -112,6 +114,7 @@ CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY)  ;RPC ENTRY POINT FOR CCR OUTPUT
     . I @OXML@(0)'=0 D  ; THERE IS A RESULT
     . . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
     . . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
+    N ACTT,ATMP,ACTT2,ATMP2 ; TEMPORARY ARRAY SYMBOLS FOR ACTOR PROCESSING
     D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
     D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","ACTT")
     D EXTRACT^GPLACTOR("ACTT",ACTGLO,"ACTT2")