From 4ce0205b5bbab4aecc076e7337f473eb1fc8a8ea Mon Sep 17 00:00:00 2001
From: george <george>
Date: Mon, 8 Sep 2008 19:47:51 +0000
Subject: [PATCH] fixed naming bug

---
 p/GPLRIMA.m | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/p/GPLRIMA.m b/p/GPLRIMA.m
index 4c074ba..0905812 100644
--- a/p/GPLRIMA.m
+++ b/p/GPLRIMA.m
@@ -58,11 +58,11 @@ ANALYZE(BEGDFN,DFNCNT) ; RIM COHERANCE ANALYSIS ROUTINE
     . ; COPY ALL THE VARIABLES TO THE RIM MAP AREA INDEXED BY PATIENT
     . ;
     . I $D(^TMP("GPLCCR",$J,"PROBVALS",1)) D  ; PROBLEM VARS EXISTS
-    . . M @RIMBASE@("VARS",RIMDFN,"PROBLEMS")=TMP("GPLCCR",$J,"PROBVALS")
+    . . M @RIMBASE@("VARS",RIMDFN,"PROBLEMS")=^TMP("GPLCCR",$J,"PROBVALS")
     . I $D(^TMP("GPLCCR",$J,"VITALS",1)) D  ; VITALS VARS EXISTS
-    . . M @RIMBASE@("VARS",RIMDFN,"VITALS")=TMP("GPLCCR",$J,"VITALS")
+    . . M @RIMBASE@("VARS",RIMDFN,"VITALS")=^TMP("GPLCCR",$J,"VITALS")
     . I $D(^TMP("GPLCCR",$J,"MEDICATIONS",1)) D  ; MEDS VARS EXISTS
-    . . M @RIMBASE@("VARS",RIMDFN,"MEDS")=TMP("GPLCCR",$J,"MEDICATIONS")
+    . . M @RIMBASE@("VARS",RIMDFN,"MEDS")=^TMP("GPLCCR",$J,"MEDICATIONS")
     . K ^TMP("GPLCCR",$J) ; KILL WORK AREA FOR CCR BUILDING
     . ;
     . ; EVALUATE THE VARIABLES AND CREATE AN ATTRIBUTE MAP
@@ -222,7 +222,9 @@ CPAT(CPATCAT) ; SHOW PATIENT DFNS FOR A CATEGORY CPATCAT
 PATC(DFN) ; DISPLAY THE CATEGORY FOR THIS PATIENT
     ;
     N ATTR S ATTR=""
-    I $D(^TMP("GPLRIM","ATTR",DFN)) S ATTR=^TMP("GPLRIM","ATTR",DFN)
+    I '$D(^TMP("GPLRIM","ATTR",DFN)) D  ; RIM VARS NOT PRESENT
+    . D ANALYZE(DFN,1) ; EXTRACT THE RIM VARIABLE FOR THIS PATIENT
+    S ATTR=^TMP("GPLRIM","ATTR",DFN)
     I ATTR="" W "THIS PATIENT NOT ANALYZED.",! Q  ;NO ATTRIBUTES FOUND
     I $D(^TMP("GPLRIM","RIMTBL","CATS",ATTR)) D  ; FOUND A CAT
     . N CAT