update to CCD parsing

2009-11-22 19:53:53 +00:00 · 2009-11-22 19:53:53 +00:00 · 752f5b392c
parent 9f612a1758
commit 752f5b392c
1 changed files with 1 additions and 0 deletions
--- a/p/C0CMXML.m
+++ b/p/C0CMXML.m
@ -285,6 +285,7 @@ SEPARATE(OUTARY,INARY) ; SEPARATES XPATH VARIABLES ACCORDING TO THEIR
 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)
 Q
 ;