Changeset 693

Timestamp:

Jan 29, 2010, 10:59:08 AM (15 years ago)

Author:

George Lilly

Message:

for RPMS Labs installs

Location:

ccr/trunk/p

Files:

• C0CQRY1.m (added)
• C0CRIMA.m (modified) (1 diff)

ccr/trunk/p/C0CRIMA.m

@@ -65 +65 @@
     . I $D(^TMP("C0CCCR",$J,"PROBVALS",1)) D  ; PROBLEM VARS EXISTS
     . . M @RIMBASE@("VARS",RIMDFN,"PROBLEMS")=^TMP("C0CCCR",$J,"PROBVALS")
-    . . S @RIMBASE@("VARS",RIMDFN,"PROBLEMS",0)=^TMP("C0CCCR",$J,"PROBVALS",0)
+    . . S @RIMBASE@("VARS",RIMDFN,"PROBLEMS",0)=$O(^TMP("C0CCCR",$J,"PROBVALS",""),-1)
     . I $D(^TMP("C0CCCR",$J,"VITALS",1)) D  ; VITALS VARS EXISTS
     . . M @RIMBASE@("VARS",RIMDFN,"VITALS")=^TMP("C0CCCR",$J,"VITALS")