Changeset 663 for ccr/trunk/p

Timestamp:

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

Author:

George Lilly

Message:

improvements to C0CXPATH and C0CRIMA to make them quieter

Location:

ccr/trunk/p

Files:

• C0CRIMA.m (modified) (2 diffs)
• C0CXPATH.m (modified) (1 diff)

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")

ccr/trunk/p/C0CXPATH.m

@@ -625 +625 @@
  Q
  ;
-PARY(GLO)             ;PRINT AN ARRAY
+PARY(GLO,ZN)          ;PRINT AN ARRAY
+ ; IF ZN=-1 NO LINE NUMBERS
  N I
- F I=1:1:@GLO@(0) W I_" "_@GLO@(I),!
+ F I=1:1:@GLO@(0) D  ;
+ . I ZN=-1 W @GLO@(I),!
+ . E  W I_" "_@GLO@(I),!
  Q
  ;