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

Timestamp:

Sep 22, 2008, 11:38:33 AM (16 years ago)

Author:

George Lilly

Message:

fixes to CCRMEDS to allow RIM variable processing

File:

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

ccr/trunk/p/GPLRIMA.m

@@ -64 +64 @@
     . . M @RIMBASE@("VARS",RIMDFN,"VITALS")=^TMP("GPLCCR",$J,"VITALS")
     . I $D(^TMP("GPLCCR",$J,"MEDMAP",1)) D  ; MEDS VARS EXISTS
-    . . M @RIMBASE@("VARS",RIMDFN,"MEDS")=^TMP("GPLCCR",$J,"MEDICATIONS")
+    . . M @RIMBASE@("VARS",RIMDFN,"MEDS")=^TMP("GPLCCR",$J,"MEDMAP")
     . K ^TMP("GPLCCR",$J) ; KILL WORK AREA FOR CCR BUILDING
     . ;
@@ -404 +404 @@
     N GTMP
     D ANALYZE(DFN,1) ; REFRESH THE RIM VARIABLES
+    I '$D(IWHICH) S IWHICH="ALL"
     D RPCGV(.GTMP,DFN,IWHICH)
     D PARY^GPLXPATH("GTMP")