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

Timestamp:

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

Author:

George Lilly

Message:

more extraneous write cleanup

File:

• ccr/trunk/p/GPLCCR.m (modified) (4 diffs)

ccr/trunk/p/GPLCCR.m

@@ -94 +94 @@
     . ; W OXML,!
     . S CALL="D "_TAG_"^"_RTN_"(IXML,DFN,OXML)" ; SETUP THE CALL
-    . W "RUNNING ",CALL,!
+    . I DEBUG W "RUNNING ",CALL,!
     . X CALL
     . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
@@ -107 +107 @@
     F TRIMI=0:0 D  Q:DONE  ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE
     . S J=$$TRIM^GPLXPATH(CCRGLO) ; DELETE EMPTY ELEMENTS
-    . W "TRIMMED",J,!
+    . I DEBUG W "TRIMMED",J,!
     . I J=0 S DONE=1 ; DONE WHEN TRIM RETURNS FALSE
     Q
@@ -113 +113 @@
 INITSTPS(TAB)  ; INITIALIZE CCR PROCESSING STEPS
     ; TAB IS PASSED BY NAME
-    W "TAB= ",TAB,!
+    I DEBUG W "TAB= ",TAB,!
     ; ORDER FOR CCR IS PROBLEMS,FAMILYHISTORY,SOCIALHISTORY,MEDICATIONS,VITALSIGNS,RESULTS,HEALTHCAREPROVIDERS
     D PUSH^GPLXPATH(TAB,"EXTRACT;GPLPROBS;//ContinuityOfCareRecord/Body/Problems;^TMP(""GPLCCR"",$J,DFN,""PROBLEMS"")")
@@ -153 +153 @@
     . I @AXML@(I)?.E1"<ActorID>".E D  ; THERE IS AN ACTOR THIS LINE
     . . S J=$P($P(@AXML@(I),"<ActorID>",2),"</ActorID>",1)
-    . . W "<ActorID>=>",J,!
+    . . I DEBUG W "<ActorID>=>",J,!
     . . I J'="" S K(J)="" ; HASHING ACTOR
     . . ;  TO GET RID OF DUPLICATES