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

Timestamp:

Aug 26, 2008, 8:27:36 PM (16 years ago)

Author:

George Lilly

Message:

batch CCR export support

File:

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

ccr/trunk/p/GPLPROBS.m

@@ -29 +29 @@
           ; INSERT^GPLXPATH IS USED TO APPEND THE PROBLEMS TO THE OUTPUT
           ;
-          N RPCRSLT,J,K,PTMP,X,VMAP,TBUF
+          N RPCRSLT,J,K,PTMP,X,VMAP,TBU
+          S TVMAP=$NA(^TMP("GPLCCR",$J,"PROBVALS"))
+          S TARYTMP=$NA(^TMP("GPLCCR",$J,"PROBARYTMP"))
+          K @TVMAP,@TARYTMP ; KILL OLD ARRAY VALUES
           D LIST^ORQQPL3(.RPCRSLT,DFN,"") ; CALL THE PROBLEM LIST RPC
           I '$D(RPCRSLT(1)) D  Q ; RPC RETURNS NULL
@@ -36 +39 @@
           . ; Q
           I DEBUG ZWR RPCRSLT
-          S TVMAP=$NA(^TMP("GPLCCR",$J,"PROBVALS"))
-          S TARYTMP=$NA(^TMP("GPLCCR",$J,"PROBARYTMP"))
-          K @TVMAP,@TARYTMP ; KILL OLD ARRAY VALUES
           F J=1:1:RPCRSLT(0)  D  ; FOR EACH PROBLEM IN THE LIST
           . S VMAP=$NA(@TVMAP@(J))