less debugging output from Trim, normalize 2 template lines

p/GPLCCR.m

@@ -12,8 +12,8 @@ EXPORT   ; EXPORT ENTRY POINT FOR CCR
        D CCRRPC(.CCRGLO,DFN,"CCR","","","")
        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="/home/glilly/CCROUT"
+       ;S ODIR="/home/cedwards/"
        ;S ODIR="/opt/wv/p/"
        D OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
        Q

p/GPLCCR0.m

@@ -538,7 +538,9 @@ LOAD(ARY)       ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
  ;;</Name>
  ;;</Person>
  ;;<IDs>
- ;;<Type><Text>NPI</Text></Type>
+ ;;<Type>
+ ;;<Text>NPI</Text>
+ ;;</Type>
  ;;<ID>@@ACTORNPI@@</ID>
  ;;</IDs>
  ;;<Specialty>
@@ -556,7 +558,9 @@ LOAD(ARY)       ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
  ;;</Address>
  ;;<Telephone>
  ;;<Value>@@ACTORTELEPHONE@@</Value>
- ;;<Type><Text>@@ACTORTELTYPE@@</Text></Type>
+ ;;<Type>
+ ;;<Text>@@ACTORTELTYPE@@</Text>
+ ;;</Type>
  ;;</Telephone>
  ;;<Email>
  ;;<Value>@@ACTOREMAIL@@</Value>

p/GPLXPATH.m

@@ -359,13 +359,9 @@ TRIM(THEXML) ; TAKES OUT ALL NULL ELEMENTS
        . F I=1:1:@THEXML@(0) D  ; COPY ARRAY LEAVING OUT DELELTED LINES
        . . 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
         N I
         F I=1:1:@GLO@(0) W @GLO@(I),!