Index: /ccr/trunk/p/C0CMED3.m
===================================================================
--- /ccr/trunk/p/C0CMED3.m	(revision 696)
+++ /ccr/trunk/p/C0CMED3.m	(revision 697)
@@ -231,11 +231,14 @@
  . 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")
  . ;