Changeset 693 for ccr


Ignore:
Timestamp:
Jan 29, 2010, 10:59:08 AM (15 years ago)
Author:
George Lilly
Message:

for RPMS Labs installs

Location:
ccr/trunk/p
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CRIMA.m

    r680 r693  
    6565    . I $D(^TMP("C0CCCR",$J,"PROBVALS",1)) D  ; PROBLEM VARS EXISTS
    6666    . . M @RIMBASE@("VARS",RIMDFN,"PROBLEMS")=^TMP("C0CCCR",$J,"PROBVALS")
    67     . . S @RIMBASE@("VARS",RIMDFN,"PROBLEMS",0)=^TMP("C0CCCR",$J,"PROBVALS",0)
     67    . . S @RIMBASE@("VARS",RIMDFN,"PROBLEMS",0)=$O(^TMP("C0CCCR",$J,"PROBVALS",""),-1)
    6868    . I $D(^TMP("C0CCCR",$J,"VITALS",1)) D  ; VITALS VARS EXISTS
    6969    . . M @RIMBASE@("VARS",RIMDFN,"VITALS")=^TMP("C0CCCR",$J,"VITALS")
Note: See TracChangeset for help on using the changeset viewer.