Changeset 297 for ccr/trunk

Timestamp:

Dec 5, 2008, 10:47:21 AM (15 years ago)

Author:

George Lilly

Message:

fixes to FIELDS^C0CDIC

File:

• ccr/trunk/p/C0CDIC.m (modified) (1 diff)

ccr/trunk/p/C0CDIC.m

@@ -106 +106 @@
  S C0CFI=0 S C0CFJ=C0CF
  K @C0CFRTN ; CLEAR THE RETURN ARRAY
- F  Q:$P(C0CFJ,".",1)'=C0CF  D ; FOR THE C0CF FILE AND ALL SUBFILES INCLUSIVE
+ F  Q:C0CFJ'[C0CF  D ; FOR THE C0CF FILE AND ALL SUBFILES INCLUSIVE
+ . ;W "1: "_C0CFJ," ",C0CFI,!
  . F  S C0CFI=$O(^DD(C0CFJ,C0CFI)) Q:+C0CFI=0  D  ; EVERY FIELD
- . . ;W C0CFJ," ",C0CFI,!
+ . . ;W "2: "_C0CFJ," ",C0CFI,!
  . . S C0CFN=$P(^DD(C0CFJ,C0CFI,0),"^",1) ;PULL FIELD NAME FROM ^DD
+ . . ;W "N: ",C0CFN,!
  . . I $D(@C0CFRTN@(C0CFN)) D  ; IS THIS A DUPLICATE?
- . . . ;W "DUPLICATE FOUND! ",C0CFJ," ",C0CFI," ",C0CFN,!,@C0CFRTN@(C0CFN),!
+ . . . W "DUPLICATE FOUND! ",C0CFJ," ",C0CFI," ",C0CFN,!,@C0CFRTN@(C0CFN),!
  . . . S @C0CFRTN@("M",@C0CFRTN@(C0CFN),C0CFN)=C0CFJ_"^"_C0CFI
  . . E  S @C0CFRTN@(C0CFN)=C0CFJ_"^"_C0CFI