Changeset 55 for ccr

Timestamp:

Jul 8, 2008, 11:09:12 AM (16 years ago)

Author:

George Lilly

Message:

less debugging output from Trim, normalize 2 template lines

Location:

ccr/trunk/p

Files:

• GPLCCR.m (modified) (1 diff)
• GPLCCR0.m (modified) (2 diffs)
• GPLXPATH.m (modified) (1 diff)

ccr/trunk/p/GPLCCR.m

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

ccr/trunk/p/GPLCCR0.m

@@ -539 +539 @@
  ;;</Person>
  ;;<IDs>
- ;;<Type><Text>NPI</Text></Type>
+ ;;<Type>
+ ;;<Text>NPI</Text>
+ ;;</Type>
  ;;<ID>@@ACTORNPI@@</ID>
  ;;</IDs>
@@ -557 +559 @@
  ;;<Telephone>
  ;;<Value>@@ACTORTELEPHONE@@</Value>
- ;;<Type><Text>@@ACTORTELTYPE@@</Text></Type>
+ ;;<Type>
+ ;;<Text>@@ACTORTELTYPE@@</Text>
+ ;;</Type>
  ;;</Telephone>
  ;;<Email>

ccr/trunk/p/GPLXPATH.m

@@ -360 +360 @@
        . . 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