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

Timestamp:

Jul 7, 2008, 1:30:04 AM (16 years ago)

Author:

George Lilly

Message:

Added "GPLCCR" to ^{TMP globals for SAC compliance}

File:

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

ccr/trunk/p/GPLPROBS.m

@@ -16 +16 @@
           I '$D(RPCRSLT(0)) W "ERROR CALLING LIST^ORQQPL3 ",! Q
           ZWR RPCRSLT
-          S TVMAP=$NA(^TMP($J,"PROBVALS"))
-          S TARYTMP=$NA(^TMP($J,"PROBARYTMP"))
+          S TVMAP=$NA(^TMP("GPLCCR",$J,"PROBVALS"))
+          S TARYTMP=$NA(^TMP("GPLCCR",$J,"PROBARYTMP"))
           F J=1:1:RPCRSLT(0)  D  ; FOR EACH PROBLEM IN THE LIST
           . S VMAP=$NA(@TVMAP@(J))
@@ -52 +52 @@
           . I J>1 D  ; AFTER THE FIRST, INSERT INNER XML
           . . D INSINNER^GPLXPATH(OUTXML,ARYTMP)
-          ; ZWR ^TMP($J,"PROBVALS",*)
-          ; ZWR ^TMP($J,"PROBARYTMP",*) ; SHOW THE RESULTS
+          ; ZWR ^TMP("GPLCCR",$J,"PROBVALS",*)
+          ; ZWR ^TMP("GPLCCR",$J,"PROBARYTMP",*) ; SHOW THE RESULTS
           ; ZWR @OUTXML
           ; $$HTML^DILF(