Changeset 431


Ignore:
Timestamp:
Apr 3, 2009, 12:11:29 PM (16 years ago)
Author:
George Lilly
Message:

support for checksums

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CCCR.m

    r419 r431  
    4141 S OARY=$NA(^TMP("C0CCCR",$J,DFN,"CCR",1))
    4242 S ONAM=UFN
    43  I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_20.xml"
     43 I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_21.xml"
    4444 S ODIRGLB=$NA(^TMP("C0CCCR","ODIR"))
    4545 I $D(^TMP("GPLCCR","ODIR")) S @ODIRGLB=^TMP("GPLCCR","ODIR")

  • ccr/trunk/p/C0CRNF.m

    r404 r431  
    3737 . . ;I C0CFN="STR" W C0CFN," ",C0CFJ,!
    3838 . . I $D(@C0CFRTN@(C0CFN)) D  ; IS THIS A DUPLICATE?
    39  . . . W "DUPLICATE FOUND! ",C0CFJ," ",C0CFI," ",C0CFN,!,@C0CFRTN@(C0CFN),!
     39 . . . I DEBUG D  ;
     40 . . . . W "DUPLICATE FOUND! ",C0CFJ," ",C0CFI," ",C0CFN,!,@C0CFRTN@(C0CFN),!
    4041 . . . S @C0CFRTN@(C0CFN_"_"_C0CFJ)=C0CFJ_"^"_C0CFI
    4142 . . E  S @C0CFRTN@(C0CFN)=C0CFJ_"^"_C0CFI
Note: See TracChangeset for help on using the changeset viewer.