Index: ccr/trunk/p/C0CMCCD.m
===================================================================
--- ccr/trunk/p/C0CMCCD.m	(revision 1184)
+++ ccr/trunk/p/C0CMCCD.m	(revision 1185)
@@ -149,7 +149,10 @@
  S ZI=""
  F  S ZI=$O(@INARY@(ZI)) Q:ZI=""  D  ; FOR EACH ELEMENT OF THE ARRAY
- . S ZJ=$P(ZI,"/",2) ;
- . I ZJ="" S ZJ=$P(ZI,"/",3) ;
- . S @OUTARY@(ZJ,ZI)=@INARY@(ZI)
+ . I $P(ZI,"//",2)'="" D  ; FOR NON-BODY ENTRIES
+ . . S ZJ=$P(ZI,"/",4) ; things like From Patient Actor
+ . E  D  ; FOR BODY PARTS
+ . . S ZJ=$P(ZI,"/",2) ;
+ . . I ZJ="" S ZJ=$P(ZI,"/",3) ;
+ . S @OUTARY@(ZJ,ZI)=$G(@INARY@(ZI)) ;FIX THIS FOR MULTILINE COMMENTS
  Q
  ;