Changeset 1325 for ccr/branches/ohum/p/C0CMCCD.m

Timestamp:

Dec 31, 2011, 12:08:05 AM (12 years ago)

Author:

George Lilly

Message:

latest ohum update

File:

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

ccr/branches/ohum/p/C0CMCCD.m

@@ -149 +149 @@
  S ZI=""
  F  S ZI=$O(@INARY@(ZI)) Q:ZI=""  D  ; FOR EACH ELEMENT OF THE ARRAY
- . 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
+ . S ZJ=$P(ZI,"/",2) ;
+ . I ZJ="" S ZJ=$P(ZI,"/",3) ;
+ . S @OUTARY@(ZJ,ZI)=@INARY@(ZI)
  Q
  ;