Changeset 50 for ccr/trunk/p/GPLVITALS.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/GPLVITALS.m (modified) (1 diff)

ccr/trunk/p/GPLVITALS.m

@@ -10 +10 @@
           I '$D(VITRSLT(1)) W "ERROR RUNNINIG VITALS RPC",! Q
           ; ZWR RPCRSLT
-          S VITTVMAP=$NA(^TMP($J,"VITALS"))
-          S VITTARYTMP=$NA(^TMP($J,"VITALARYTMP"))
+          S VITTVMAP=$NA(^TMP("GPLCCR",$J,"VITALS"))
+          S VITTARYTMP=$NA(^TMP("GPLCCR",$J,"VITALARYTMP"))
           F J=1:1:VITRSLT(1)  D  ; FOR EACH VITAL IN THE LIST
-          . I $D(VITRSLT(J)) D  
+          . I $D(VITRSLT(J)) D
           . . S VITVMAP=$NA(@VITTVMAP@(J))
           . . K @VITVMAP