Changeset 663 for ccr


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CRIMA.m

    r579 r663  
    456456 . F ZZGI="HEADER","PROBLEMS","VITALS","MEDS","ALERTS","RESULTS","IMMUNE" D  ;
    457457 . . D ZGVWRK(ZZGI) ; DO EACH SECTION
    458  . . W "DID ",ZZGI,!
     458 . . I $G(DEBUG)'="" W "DID ",ZZGI,!
    459459 E  D ZGVWRK(WHICH) ; ONLY ONE SECTION ASKED FOR
    460460 Q
     
    471471    . . K ZZGN2 N ZZGN2 ; NAME FOR MULTIPLE
    472472    . . S ZZGN2=$NA(@ZZGN@(ZGVI))
    473     . . W ZZGN2,!,$O(@ZZGN2@("")),!
     473    . . I $G(DEBUG)'="" W ZZGN2,!,$O(@ZZGN2@("")),!
    474474    . . D H2ARY^C0CXPATH("ZZGA",ZZGN2,ZGVI) ; CONVERT HASH TO ARRAY
    475475    . . ; D PARY^C0CXPATH("ZZGA")
  • ccr/trunk/p/C0CXPATH.m

    r609 r663  
    625625 Q
    626626 ;
    627 PARY(GLO)             ;PRINT AN ARRAY
     627PARY(GLO,ZN)          ;PRINT AN ARRAY
     628 ; IF ZN=-1 NO LINE NUMBERS
    628629 N I
    629  F I=1:1:@GLO@(0) W I_" "_@GLO@(I),!
     630 F I=1:1:@GLO@(0) D  ;
     631 . I ZN=-1 W @GLO@(I),!
     632 . E  W I_" "_@GLO@(I),!
    630633 Q
    631634 ;
Note: See TracChangeset for help on using the changeset viewer.