Changeset 55 for ccr


Ignore:
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:
3 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLCCR.m

    r52 r55  
    1313       S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
    1414       S ONAM="PAT_"_DFN_"_CCR_V1.xml"
    15        ;S ODIR="/home/glilly/CCROUT"
    16        S ODIR="/home/cedwards/"
    17            ;S ODIR="/opt/wv/p/"
     15       S ODIR="/home/glilly/CCROUT"
     16       ;S ODIR="/home/cedwards/"
     17       ;S ODIR="/opt/wv/p/"
    1818       D OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
    1919       Q
  • ccr/trunk/p/GPLCCR0.m

    r54 r55  
    539539 ;;</Person>
    540540 ;;<IDs>
    541  ;;<Type><Text>NPI</Text></Type>
     541 ;;<Type>
     542 ;;<Text>NPI</Text>
     543 ;;</Type>
    542544 ;;<ID>@@ACTORNPI@@</ID>
    543545 ;;</IDs>
     
    557559 ;;<Telephone>
    558560 ;;<Value>@@ACTORTELEPHONE@@</Value>
    559  ;;<Type><Text>@@ACTORTELTYPE@@</Text></Type>
     561 ;;<Type>
     562 ;;<Text>@@ACTORTELTYPE@@</Text>
     563 ;;</Type>
    560564 ;;</Telephone>
    561565 ;;<Email>
  • ccr/trunk/p/GPLXPATH.m

    r52 r55  
    360360       . . I '$D(DEL(I)) D  ; IF THE LINE IS NOT DELETED
    361361       . . . D PUSH("TMPXML",@THEXML@(I)) ; COPY TO TMPXML ARRAY
    362        . ZWR DEL
    363362       . D CP("TMPXML",THEXML) ; REPLACE THE XML WITH THE COPY
    364363       Q FOUND
    365        ;
    366 NXTCHLD(HANDLE,NODE,CUR) ; RETURNS THE NEXT CHILD OR "" IF NONE
    367        Q $$CHILD^MXMLDOM(HANDLE,NODE,CUR)
    368364       ;
    369365PARY(GLO)       ;PRINT AN ARRAY
Note: See TracChangeset for help on using the changeset viewer.