Changeset 608 for ccr

Timestamp:

Nov 22, 2009, 2:53:53 PM (15 years ago)

Author:

George Lilly

Message:

update to CCD parsing

File:

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

ccr/trunk/p/C0CMXML.m

@@ -286 +286 @@
  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)
  Q