Changeset 1185 for ccr/trunk/p

Timestamp:

May 13, 2011, 1:54:01 PM (14 years ago)

Author:

George Lilly

Message:

fix for VistACom

File:

• ccr/trunk/p/C0CMCCD.m (modified) (1 diff)

ccr/trunk/p/C0CMCCD.m

@@ -149 +149 @@
  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
  ;