From 8bb7f131c2c4782a16a8ca96a54bf469140ab765 Mon Sep 17 00:00:00 2001
From: george <george>
Date: Tue, 7 Oct 2008 14:33:52 +0000
Subject: [PATCH] meds merge bug

---
 p/CCRMEDS.m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/p/CCRMEDS.m b/p/CCRMEDS.m
index 41f41c2..7af6fc9 100644
--- a/p/CCRMEDS.m
+++ b/p/CCRMEDS.m
@@ -57,7 +57,7 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
  M GPLMEDS=MEDRSLT
  S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
  S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
- K @MEDTVMAP,@MEDTARYTMP
+ I 'HASOP K @MEDTVMAP,@MEDTARYTMP
  ; FIRST GO THROUGH MEDRSLT ARRAY AND COUNT MEDS AND LINES IN MEDS
  ; ZA(0) IS TOTAL NUMBER OF MEDS ZA(ZI) IS LINES IN MED ZI
  N ZA,ZI,ZJ,ZK,ZN S (ZI,ZJ,ZK,ZN)=0 ; ZI IS MED NUMBER, ZJ IS LINE IN MED