Changeset 22 for ccr/trunk/p/GPLPROBS.m

Timestamp:

Jun 26, 2008, 1:51:24 PM (16 years ago)

Author:

George Lilly

Message:

Minor code cleanup -- some test case bugs fixed

File:

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

ccr/trunk/p/GPLPROBS.m

@@ -15 +15 @@
     D LIST^ORQQPL3(.RPCRSLT,DFN,"") ; CALL THE PROBLEM LIST RPC
     I '$D(RPCRSLT(0)) W "ERROR CALLING LIST^ORQQPL3 ",! Q
-    I DEBUG ZWR RPCRSLT
+    ZWR RPCRSLT
     S TVMAP=$NA(^TMP($J,"PROBVALS"))
     S TARYTMP=$NA(^TMP($J,"PROBARYTMP"))