Changeset 144 for ccr/trunk


Ignore:
Timestamp:
Sep 8, 2008, 3:47:51 PM (16 years ago)
Author:
George Lilly
Message:

fixed naming bug

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLRIMA.m

    r141 r144  
    5959    . ;
    6060    . I $D(^TMP("GPLCCR",$J,"PROBVALS",1)) D  ; PROBLEM VARS EXISTS
    61     . . M @RIMBASE@("VARS",RIMDFN,"PROBLEMS")=TMP("GPLCCR",$J,"PROBVALS")
     61    . . M @RIMBASE@("VARS",RIMDFN,"PROBLEMS")=^TMP("GPLCCR",$J,"PROBVALS")
    6262    . I $D(^TMP("GPLCCR",$J,"VITALS",1)) D  ; VITALS VARS EXISTS
    63     . . M @RIMBASE@("VARS",RIMDFN,"VITALS")=TMP("GPLCCR",$J,"VITALS")
     63    . . M @RIMBASE@("VARS",RIMDFN,"VITALS")=^TMP("GPLCCR",$J,"VITALS")
    6464    . I $D(^TMP("GPLCCR",$J,"MEDICATIONS",1)) D  ; MEDS VARS EXISTS
    65     . . M @RIMBASE@("VARS",RIMDFN,"MEDS")=TMP("GPLCCR",$J,"MEDICATIONS")
     65    . . M @RIMBASE@("VARS",RIMDFN,"MEDS")=^TMP("GPLCCR",$J,"MEDICATIONS")
    6666    . K ^TMP("GPLCCR",$J) ; KILL WORK AREA FOR CCR BUILDING
    6767    . ;
     
    223223    ;
    224224    N ATTR S ATTR=""
    225     I $D(^TMP("GPLRIM","ATTR",DFN)) S ATTR=^TMP("GPLRIM","ATTR",DFN)
     225    I '$D(^TMP("GPLRIM","ATTR",DFN)) D  ; RIM VARS NOT PRESENT
     226    . D ANALYZE(DFN,1) ; EXTRACT THE RIM VARIABLE FOR THIS PATIENT
     227    S ATTR=^TMP("GPLRIM","ATTR",DFN)
    226228    I ATTR="" W "THIS PATIENT NOT ANALYZED.",! Q  ;NO ATTRIBUTES FOUND
    227229    I $D(^TMP("GPLRIM","RIMTBL","CATS",ATTR)) D  ; FOUND A CAT
Note: See TracChangeset for help on using the changeset viewer.