Index: /ccr/trunk/p/C0CRIMA.m
===================================================================
--- /ccr/trunk/p/C0CRIMA.m	(revision 662)
+++ /ccr/trunk/p/C0CRIMA.m	(revision 663)
@@ -456,5 +456,5 @@
  . 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,5 +471,5 @@
     . . 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")
Index: /ccr/trunk/p/C0CXPATH.m
===================================================================
--- /ccr/trunk/p/C0CXPATH.m	(revision 662)
+++ /ccr/trunk/p/C0CXPATH.m	(revision 663)
@@ -625,7 +625,10 @@
  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
  ;