Changeset 650 for ccr/trunk/p/C0CMXP.m


Ignore:
Timestamp:
Dec 15, 2009, 7:00:51 PM (15 years ago)
Author:
George Lilly
Message:

fixing a bug

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CMXP.m

    r649 r650  
    117117 . D DATA^C0CMXML("ZD",ZI) ;SEE IF THERE IS DATA FOR THIS NODE
    118118 . I $D(ZD(1)) D  ; IF YES
    119  . . W !,ZD(1)
     119 . . I ZI<3 B  ;W !,ZD(1)
    120120 . . K @C0CDOM@(ZI,"T") ; KILL THE DATA
    121121 . . N ZXPATH
Note: See TracChangeset for help on using the changeset viewer.