diff --git a/p/C0CMED3.m b/p/C0CMED3.m
index f0f64ed..c451a28 100644
--- a/p/C0CMED3.m
+++ b/p/C0CMED3.m
@@ -230,13 +230,16 @@ EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT)	; Extract medications into provided xml temp
  . N MEDINT2,INTXML2 S INTXML2="MEDINT2" ; VARIABLE AND NAME VARIABLE RESULT
  . D QUERY^C0CXPATH(MINXML,"//Medications/Medication/PatientInstructions",INTXML1)
  . D REPLACE^C0CXPATH(RESULT,"","//Medications/Medication/PatientInstructions")
- . N MDI1
- . S MDI1=$NA(@MAP@("I"))
+ . ;N MDI1 ; removing the "I" which is not in the protocol gpl 1/2010
+ . ;S MDI1=$NA(@MAP@("I"))
  . ; S @MAP@("MEDPTINSTRUCTIONS","F")="52.41^105"
  . I $D(MED(10,1)) D  ;
- . . S @MAP@("I","MEDPTINSTRUCTIONS")=$P(MED(10,1),"  ",1) ; WP Field
- . E  S @MAP@("I","MEDPTINSTRUCTIONS")=""
- . D MAP^C0CXPATH(INTXML1,MDI1,INTXML2)
+ . . ;S @MAP@("I","MEDPTINSTRUCTIONS")=$P(MED(10,1),"  ",1) ; WP Field
+ . . S @MAP@("MEDPTINSTRUCTIONS")=$P(MED(10,1),"  ",1) ; WP Field
+ . E  S @MAP@("MEDPTINSTRUCTIONS")=""
+ . ;E  S @MAP@("I","MEDPTINSTRUCTIONS")=""
+ . ;D MAP^C0CXPATH(INTXML1,MDI1,INTXML2)
+ . D MAP^C0CXPATH(INTXML1,MAP,INTXML2) ; JUST MAP WORKS.. GPL
  . D INSERT^C0CXPATH(RESULT,INTXML2,"//Medications/Medication")
  . ;
  . ; FLAG HAS TO BE RESET OUTSIDE THE IF STATMENT.