Changeset 141


Ignore:
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:
1 added
2 edited

Legend:

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

    r136 r141  
    2929   D ACTIVE^ORWPS(.MEDRSLT,DFN)
    3030   I '$D(MEDRSLT(1)) D  ; NO MEDS FOR THIS PATIENT, EXIT
    31    . W "ERROR RUNNINIG MEDICATIONS RPC",!
     31   . I DEBUG W "MEDICATIONS RPC RETURNED NULL",!
    3232   . S @MEDOUTXML@(0)=0
    3333   . Q
  • ccr/trunk/p/GPLRIMA.m

    r140 r141  
    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    . ;
Note: See TracChangeset for help on using the changeset viewer.