Changeset 141 for ccr/trunk/p/GPLMEDS.m


Ignore:
Timestamp:
Sep 5, 2008, 3:26:09 PM (16 years ago)
Author:
George Lilly
Message:

removed debugging writes and check for Merged Patients

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