Changeset 135 for ccr/trunk/p/GPLACTOR.m

Timestamp:

Sep 3, 2008, 7:54:55 PM (16 years ago)

Author:

George Lilly

Message:

more extraneous write cleanup

File:

• ccr/trunk/p/GPLACTOR.m (modified) (3 diffs)

ccr/trunk/p/GPLACTOR.m

@@ -37 +37 @@
            D CP^GPLXPATH(IPXML,AXML) ; MAKE A COPY OF ACTORS XML
            D REPLACE^GPLXPATH(AXML,"","//Actors") ; DELETE THE INSIDES
-           W "PROCESSING ACTORS ",!
+           I DEBUG W "PROCESSING ACTORS ",!
            F I=1:1:@ALST@(0) D  ; PROCESS ALL ACTORS IN THE LIST
            . I @ALST@(I)["@@" Q  ; NOT A VALID ACTOR
@@ -45 +45 @@
            . I ATYP="" Q  ; NOT A VALID ACTOR
            . ;
-           . W AOID_" "_ATYP_" "_AIEN,!
+           . I DEBUG W AOID_" "_ATYP_" "_AIEN,!
            . I ATYP="PATIENT" D  ; PATIENT ACTOR TYPE
            . . D QUERY^GPLXPATH(IPXML,"//Actors/ACTOR-PATIENT","ATMP")
@@ -78 +78 @@
 PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
      ;
-     W "PROCESSING ACTOR PATIENT ",AIEN,!
+     I DEBUG W "PROCESSING ACTOR PATIENT ",AIEN,!
      N AMAP,ZX
      S AMAP=$NA(^TMP($J,"AMAP"))