Changeset 431 for ccr/trunk

Timestamp:

Apr 3, 2009, 12:11:29 PM (16 years ago)

Author:

George Lilly

Message:

support for checksums

Location:

ccr/trunk/p

Files:

• C0CCCR.m (modified) (1 diff)
• C0CRNF.m (modified) (1 diff)

ccr/trunk/p/C0CCCR.m

@@ -41 +41 @@
  S OARY=$NA(^TMP("C0CCCR",$J,DFN,"CCR",1))
  S ONAM=UFN
- I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_20.xml"
+ I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_21.xml"
  S ODIRGLB=$NA(^TMP("C0CCCR","ODIR"))
  I $D(^TMP("GPLCCR","ODIR")) S @ODIRGLB=^TMP("GPLCCR","ODIR")

ccr/trunk/p/C0CRNF.m

@@ -37 +37 @@
  . . ;I C0CFN="STR" W C0CFN," ",C0CFJ,!
  . . I $D(@C0CFRTN@(C0CFN)) D  ; IS THIS A DUPLICATE?
- . . . W "DUPLICATE FOUND! ",C0CFJ," ",C0CFI," ",C0CFN,!,@C0CFRTN@(C0CFN),!
+ . . . I DEBUG D  ;
+ . . . . W "DUPLICATE FOUND! ",C0CFJ," ",C0CFI," ",C0CFN,!,@C0CFRTN@(C0CFN),!
  . . . S @C0CFRTN@(C0CFN_"_"_C0CFJ)=C0CFJ_"^"_C0CFI
  . . E  S @C0CFRTN@(C0CFN)=C0CFJ_"^"_C0CFI