diff --git a/p/CCRMEDS.m b/p/CCRMEDS.m
index d6ccca8..fda9b18 100644
--- a/p/CCRMEDS.m
+++ b/p/CCRMEDS.m
@@ -83,8 +83,9 @@ EXTRACT(INXML,DFN,OUTXML)	; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
 	  . N NDFDATA M NDFDATA=^TMP($J,"CONC",MEDIEN)
 	  . N NDFIEN S NDFIEN=$P(NDFDATA(20),U)
 	  . N VAPROD S VAPROD=$P(NDFDATA(22),U)
-	  . B:NDFIEN=""
-	  . N CONCDATA S CONCDATA=$$CPRS^PSNAPIS(NDFIEN,VAPROD)
+	  . N CONCDATA
+	  . I NDFIEN="" S CONCDATA=""
+	  . E  S CONCDATA=$$CPRS^PSNAPIS(NDFIEN,VAPROD)
 	  . S @MAP@("MEDFORMTEXT")=$P(CONCDATA,U,1)
 	  . S @MAP@("MEDCONCVALUE")=$P(CONCDATA,U,3)
 	  . S @MAP@("MEDCONCUNIT")=$P(CONCDATA,U,4)