Changeset 1185


Ignore:
Timestamp:
May 13, 2011, 1:54:01 PM (13 years ago)
Author:
George Lilly
Message:

fix for VistACom

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CMCCD.m

    r647 r1185  
    149149 S ZI=""
    150150 F  S ZI=$O(@INARY@(ZI)) Q:ZI=""  D  ; FOR EACH ELEMENT OF THE ARRAY
    151  . S ZJ=$P(ZI,"/",2) ;
    152  . I ZJ="" S ZJ=$P(ZI,"/",3) ;
    153  . S @OUTARY@(ZJ,ZI)=@INARY@(ZI)
     151 . I $P(ZI,"//",2)'="" D  ; FOR NON-BODY ENTRIES
     152 . . S ZJ=$P(ZI,"/",4) ; things like From Patient Actor
     153 . E  D  ; FOR BODY PARTS
     154 . . S ZJ=$P(ZI,"/",2) ;
     155 . . I ZJ="" S ZJ=$P(ZI,"/",3) ;
     156 . S @OUTARY@(ZJ,ZI)=$G(@INARY@(ZI)) ;FIX THIS FOR MULTILINE COMMENTS
    154157 Q
    155158 ;
Note: See TracChangeset for help on using the changeset viewer.