Changeset 653 for ccr


Ignore:
Timestamp:
Dec 26, 2009, 11:51:48 PM (15 years ago)
Author:
George Lilly
Message:

non-multiples will be "1" not "0" in array:

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CMXP.m

    r652 r653  
    172172 . . S ZM=$RE($P($RE(ZK),"/",2))_ZM
    173173 . S ZL=$P(ZJ,"^",1)
    174  . I ZL="" S ZL=0
     174 . I ZL="" S ZL=1
    175175 . I $D(@OARY@(ZL,ZM)) D  ;IT'S A DUP
    176176 . . S @OARY@(ZL,ZM_"[2]")=@IARY@(ZI)
Note: See TracChangeset for help on using the changeset viewer.