Changeset 762 for ccr/trunk/p/C0CCCR.m

Timestamp:

May 18, 2010, 12:43:49 PM (14 years ago)

Author:

George Lilly

Message:

updates for deidentification

File:

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

ccr/trunk/p/C0CCCR.m

@@ -191 +191 @@
  N I,J,K,L
  K @ACTRTN ; CLEAR RETURN ARRAY
+ F I=1:1:@AXML@(0) D  ; FIRST FIX MISSING LINKS
+ . I @AXML@(I)?.E1"_<".E D  ;
+ . . N ZA,ZB
+ . . S ZA=$P(@AXML@(I),">",1)_">"
+ . . S ZB="<"_$P(@AXML@(I),"<",3)
+ . . S @AXML@(I)=ZA_"ACTORORGANIZATION_1"_ZB
  F I=1:1:@AXML@(0) D  ; SCAN ALL LINES
  . I @AXML@(I)?.E1"<ActorID>".E D  ; THERE IS AN ACTOR THIS LINE
  . . S J=$P($P(@AXML@(I),"<ActorID>",2),"</ActorID>",1)
- . . I DEBUG W "<ActorID>=>",J,!
+ . . I $G(LINKDEBUG) W "<ActorID>=>",J,!
+ . . I J'="" S K(J)="" ; HASHING ACTOR
+ . I @AXML@(I)?.E1"<LinkID>".E D  ; THERE IS AN ACTOR THIS LINE
+ . . S J=$P($P(@AXML@(I),"<LinkID>",2),"</LinkID>",1)
+ . . I $G(LINKDEBUG) W "<LinkID>=>",J,!
  . . I J'="" S K(J)="" ; HASHING ACTOR
  . . ;  TO GET RID OF DUPLICATES