fixed bug in Meds due to null return of meds RPC

2008-08-06 01:41:05 +00:00 · 2008-08-06 01:41:05 +00:00 · a9da28e2c3
parent 1ea606a66f
commit a9da28e2c3
1 changed files with 1 additions and 1 deletions
--- a/p/GPLMEDS.m
+++ b/p/GPLMEDS.m
@ -27,8 +27,8 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
          ;
          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"))
          F J=1:3 Q:'$D(MEDRSLT(J))  D  ; FOR EACH MEDICATION IN THE LIST