Changeset 663 for ccr/trunk/p/C0CRIMA.m

Timestamp:

Jan 9, 2010, 11:28:57 PM (15 years ago)

Author:

George Lilly

Message:

improvements to C0CXPATH and C0CRIMA to make them quieter

File:

• ccr/trunk/p/C0CRIMA.m (modified) (2 diffs)

ccr/trunk/p/C0CRIMA.m

@@ -456 +456 @@
  . F ZZGI="HEADER","PROBLEMS","VITALS","MEDS","ALERTS","RESULTS","IMMUNE" D  ;
  . . D ZGVWRK(ZZGI) ; DO EACH SECTION
- . . W "DID ",ZZGI,!
+ . . I $G(DEBUG)'="" W "DID ",ZZGI,!
  E  D ZGVWRK(WHICH) ; ONLY ONE SECTION ASKED FOR
  Q
@@ -471 +471 @@
     . . K ZZGN2 N ZZGN2 ; NAME FOR MULTIPLE
     . . S ZZGN2=$NA(@ZZGN@(ZGVI))
-    . . W ZZGN2,!,$O(@ZZGN2@("")),!
+    . . I $G(DEBUG)'="" W ZZGN2,!,$O(@ZZGN2@("")),!
     . . D H2ARY^C0CXPATH("ZZGA",ZZGN2,ZGVI) ; CONVERT HASH TO ARRAY
     . . ; D PARY^C0CXPATH("ZZGA")