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

Timestamp:

Sep 12, 2008, 10:45:03 PM (16 years ago)

Author:

chrisu

Message:

GPLALERT.m - adding small bits; awaiting CCR document for mapping
GPLUNIT.m - fixed correct QUIT statement

File:

• ccr/trunk/p/GPLUNIT.m (modified) (1 diff)

ccr/trunk/p/GPLUNIT.m

@@ -79 +79 @@
           ; . . W @NT@(J),!
           ; . . D ZTEST^GPLUNIT(@ZARY,@NT@(J))
-          I '$D(ZARY(WHICH))  D  ; TEST SECTION DOESN'T EXIST
+          I '$D(ZARY(WHICH))  D  Q ; TEST SECTION DOESN'T EXIST
           . W "ERROR -- TEST SECTION DOESN'T EXIST -> ",WHICH,!
-          . Q  ; EXIT
           N FIRST,LAST
           S FIRST=$P(ZARY(WHICH),"^",1)