diff --git a/p/CCRMEDS2.m b/p/CCRMEDS2.m
index 4e02f0a..3812d77 100644
--- a/p/CCRMEDS2.m
+++ b/p/CCRMEDS2.m
@@ -84,9 +84,13 @@ EXTRACT(MINXML,DFN,OUTXML)           ; EXTRACT MEDICATIONS INTO PROVIDED XML TEM
  . S @MAP@("MEDPRODUCTNAMECODEVERSION")="none"
  . S @MAP@("MEDBRANDNAMETEXT")=""
  . D DOSE^PSS50(MEDIEN,,,,,"DOSE")
- . N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN)
- . S @MAP@("MEDSTRENGTHVALUE")=DOSEDATA(901)
- . S @MAP@("MEDSTRENGTHUNIT")=$P(DOSEDATA(902),U,2)
+ . I $D(^TMP($J,"DOSE",MEDIEN)) D  ; GPL ; CALL SUCCESSFUL
+ . . N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN)
+ . . S @MAP@("MEDSTRENGTHVALUE")=DOSEDATA(901)
+ . . S @MAP@("MEDSTRENGTHUNIT")=$P(DOSEDATA(902),U,2)
+ . E  D  ; GPL CALL UNSUCCESSUFL
+ . . S @MAP@("MEDSTRENGTHVALUE")="" ; NO DOSE INFORMATION AVAILABLE
+ . . S @MAP@("MEDSTRENGTHUNIT")="" ;
  . ; Units, concentration, etc, come from another call
  . ; $$CPRS^PSNAPIS which returns dosage-form^va class^strengh^unit
  . ; This call takes nodes 1 and 3 of ^PSDRUG(D0,"ND") as parameters