Changeset 83

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:

• ccr/trunk/p/GPLMEDS.m (modified) (1 diff)

ccr/trunk/p/GPLMEDS.m

@@ -28 +28 @@
           N MEDRSLT,J,K,MEDPTMP,X,MEDVMAP,TBUF
           D ACTIVE^ORWPS(.MEDRSLT,DFN)
-          ZWR MEDRSLT
           I '$D(MEDRSLT(1)) W "ERROR RUNNINIG MEDICATIONS RPC",! Q
+          IF DEBUG ZWR MEDRSLT
           S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS"))
           S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))