Changeset 1185
- Timestamp:
- May 13, 2011, 1:54:01 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CMCCD.m
r647 r1185 149 149 S ZI="" 150 150 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 154 157 Q 155 158 ;
Note:
See TracChangeset
for help on using the changeset viewer.