debug false multiples in ACTORS

p/GPLACTOR.m

@@ -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

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")