Changeset 83 for ccr/trunk


Ignore:
Timestamp:
Aug 5, 2008, 9:41:05 PM (16 years ago)
Author:
George Lilly
Message:

fixed bug in Meds due to null return of meds RPC

File:
1 edited

Legend:

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

    r82 r83  
    2828          N MEDRSLT,J,K,MEDPTMP,X,MEDVMAP,TBUF
    2929          D ACTIVE^ORWPS(.MEDRSLT,DFN)
    30           ZWR MEDRSLT
    3130          I '$D(MEDRSLT(1)) W "ERROR RUNNINIG MEDICATIONS RPC",! Q
     31          IF DEBUG ZWR MEDRSLT
    3232          S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS"))
    3333          S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
Note: See TracChangeset for help on using the changeset viewer.