meds debugging

2008-08-28 17:45:45 +00:00 · 2008-08-28 17:45:45 +00:00 · dce2f8faac
parent e939fb0e7d
commit dce2f8faac
1 changed files with 1 additions and 0 deletions
--- a/p/GPLMEDS.m
+++ b/p/GPLMEDS.m
@ -32,6 +32,7 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
   . S @MEDOUTXML@(0)=0
   . Q
   I DEBUG ZWR MEDRSLT
+   M GPLMEDS=MEDRSLT
   S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS"))
   S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
   K @MEDTVMAP,@MEDTARYTMP