Changeset 130 for ccr/trunk


Ignore:
Timestamp:
Sep 2, 2008, 2:46:32 PM (16 years ago)
Author:
George Lilly
Message:

remove the last (I hope) ZWR from MEDS

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLMEDS.m

    r126 r130  
    5050   . . S ZK=$P(ZA(ZI),U,2)+1 ; INCREMENT LINE COUNT FOR CURRENT MED
    5151   . . S $P(ZA(ZI),U,2)=ZK ; AND STORE IT IN ARRAY
    52    ZWR ZA
     52   ;ZWR ZA
    5353   F ZI=1:1:ZA(0) D  ; FOR EACH MED
    5454   . I DEBUG W "ZI IS ",ZI,!
Note: See TracChangeset for help on using the changeset viewer.