Changeset 141 for ccr/trunk

Timestamp:

Sep 5, 2008, 3:26:09 PM (16 years ago)

Author:

George Lilly

Message:

removed debugging writes and check for Merged Patients

Location:

ccr/trunk/p

Files:

• CCR_1_0_3_T1_CACHE.KID (added)
• GPLMEDS.m (modified) (1 diff)
• GPLRIMA.m (modified) (1 diff)

ccr/trunk/p/GPLMEDS.m

@@ -29 +29 @@
    D ACTIVE^ORWPS(.MEDRSLT,DFN)
    I '$D(MEDRSLT(1)) D  ; NO MEDS FOR THIS PATIENT, EXIT
-   . W "ERROR RUNNINIG MEDICATIONS RPC",!
+   . I DEBUG W "MEDICATIONS RPC RETURNED NULL",!
    . S @MEDOUTXML@(0)=0
    . Q

ccr/trunk/p/GPLRIMA.m

@@ -59 +59 @@
     . ;
     . 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
     . ;