Index: ccr/trunk/p/CCRMEDS1.m
===================================================================
--- ccr/trunk/p/CCRMEDS1.m	(revision 202)
+++ ccr/trunk/p/CCRMEDS1.m	(revision 204)
@@ -185,5 +185,5 @@
  . . . S MDZNA=$NA(@MAP@("M","DIRECTIONS",MDZ1))
  . . . D MAP^GPLXPATH(DIRXML1,MDZNA,DIRXML2)
- . . . D INSINNER^GPLXPATH(RESULT,DIRXML2)
+ . . . D INSERT^GPLXPATH(RESULT,DIRXML2,"//Medications/Medication")
  . D:MEDCOUNT=1 CP^GPLXPATH(RESULT,OUTXML) ; First one is a copy
  . D:MEDCOUNT>1 INSINNER^GPLXPATH(OUTXML,RESULT) ; AFTER THE FIRST, INSERT INNER XML
Index: ccr/trunk/p/CCRMEDS2.m
===================================================================
--- ccr/trunk/p/CCRMEDS2.m	(revision 202)
+++ ccr/trunk/p/CCRMEDS2.m	(revision 204)
@@ -204,5 +204,5 @@
  . . . S MDZNA=$NA(@MAP@("M","DIRECTIONS",MDZ1))
  . . . D MAP^GPLXPATH(DIRXML1,MDZNA,DIRXML2)
- . . . D INSINNER^GPLXPATH(RESULT,DIRXML2)
+ . . . D INSERT^GPLXPATH(RESULT,DIRXML2,"//Medications/Medication")
  . D:MEDCOUNT=1 CP^GPLXPATH(RESULT,OUTXML) ; First one is a copy
  . D:MEDCOUNT>1 INSINNER^GPLXPATH(OUTXML,RESULT) ; AFTER THE FIRST, INSERT INNER XML