Changeset 121 for ccr/trunk/p/GPLUNIT.m

Timestamp:

Aug 30, 2008, 1:29:46 PM (16 years ago)

Author:

George Lilly

Message:

XINDEX fixes, and generalized Date sort utility for Vitals SORTDT^CCRUTIL

File:

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

ccr/trunk/p/GPLUNIT.m

@@ -81 +81 @@
           I '$D(ZARY(WHICH))  D  ; TEST SECTION DOESN'T EXIST
           . W "ERROR -- TEST SECTION DOESN'T EXIST -> ",WHICH,!
-          . Q ; EXIT
+          . Q  ; EXIT
           N FIRST,LAST
           S FIRST=$P(ZARY(WHICH),"^",1)
@@ -113 +113 @@
           W !
           W "THE TESTS!",!
-          ZWR ZTMP
+          I DEBUG ZWR ZTMP
           Q
           ;