Index: ccr/trunk/p/GPLCCR.m
===================================================================
--- ccr/trunk/p/GPLCCR.m	(revision 54)
+++ ccr/trunk/p/GPLCCR.m	(revision 55)
@@ -13,7 +13,7 @@
        S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
        S ONAM="PAT_"_DFN_"_CCR_V1.xml"
-       ;S ODIR="/home/glilly/CCROUT"
-       S ODIR="/home/cedwards/"
-           ;S ODIR="/opt/wv/p/"
+       S ODIR="/home/glilly/CCROUT"
+       ;S ODIR="/home/cedwards/"
+       ;S ODIR="/opt/wv/p/"
        D OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
        Q
Index: ccr/trunk/p/GPLCCR0.m
===================================================================
--- ccr/trunk/p/GPLCCR0.m	(revision 54)
+++ ccr/trunk/p/GPLCCR0.m	(revision 55)
@@ -539,5 +539,7 @@
  ;;</Person>
  ;;<IDs>
- ;;<Type><Text>NPI</Text></Type>
+ ;;<Type>
+ ;;<Text>NPI</Text>
+ ;;</Type>
  ;;<ID>@@ACTORNPI@@</ID>
  ;;</IDs>
@@ -557,5 +559,7 @@
  ;;<Telephone>
  ;;<Value>@@ACTORTELEPHONE@@</Value>
- ;;<Type><Text>@@ACTORTELTYPE@@</Text></Type>
+ ;;<Type>
+ ;;<Text>@@ACTORTELTYPE@@</Text>
+ ;;</Type>
  ;;</Telephone>
  ;;<Email>
Index: ccr/trunk/p/GPLXPATH.m
===================================================================
--- ccr/trunk/p/GPLXPATH.m	(revision 54)
+++ ccr/trunk/p/GPLXPATH.m	(revision 55)
@@ -360,10 +360,6 @@
        . . I '$D(DEL(I)) D  ; IF THE LINE IS NOT DELETED
        . . . D PUSH("TMPXML",@THEXML@(I)) ; COPY TO TMPXML ARRAY
-       . ZWR DEL
        . D CP("TMPXML",THEXML) ; REPLACE THE XML WITH THE COPY
        Q FOUND
-       ;
-NXTCHLD(HANDLE,NODE,CUR) ; RETURNS THE NEXT CHILD OR "" IF NONE
-       Q $$CHILD^MXMLDOM(HANDLE,NODE,CUR)
        ;
 PARY(GLO)       ;PRINT AN ARRAY