Changeset 165 for ccr/trunk/p/GPLRIMA.m


Ignore:
Timestamp:
Sep 22, 2008, 12:25:53 AM (16 years ago)
Author:
George Lilly
Message:

fixes to CCRMEDS

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLRIMA.m

    r160 r165  
    6363    . I $D(^TMP("GPLCCR",$J,"VITALS",1)) D  ; VITALS VARS EXISTS
    6464    . . M @RIMBASE@("VARS",RIMDFN,"VITALS")=^TMP("GPLCCR",$J,"VITALS")
    65     . I $D(^TMP("GPLCCR",$J,"MEDICATIONS",1)) D  ; MEDS VARS EXISTS
     65    . I $D(^TMP("GPLCCR",$J,"MEDMAP",1)) D  ; MEDS VARS EXISTS
    6666    . . M @RIMBASE@("VARS",RIMDFN,"MEDS")=^TMP("GPLCCR",$J,"MEDICATIONS")
    6767    . K ^TMP("GPLCCR",$J) ; KILL WORK AREA FOR CCR BUILDING
Note: See TracChangeset for help on using the changeset viewer.