Changeset 762


Ignore:
Timestamp:
May 18, 2010, 12:43:49 PM (15 years ago)
Author:
George Lilly
Message:

updates for deidentification

Location:
ccr/trunk/p
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CACTOR.m

    r754 r762  
    9191 K @AMAP
    9292 D PEXTRACT(AMAP,AIEN,AOID) ;EXTRACT THE PATIENT ACTOR
     93 I $P($$SITE^VASITE(),U,2)="OROVILLE HOSPITAL" S C0CDE=1
     94 I $G(C0CDE)'="" D DEIDENT(AMAP,AIEN) ; DEIDENTIFY THE CCR
    9395 D MAP(INXML,AMAP,OUTXML) ;MAP TO XML
    9496 K @AMAP ; CLEAN UP BEHIND US
     97 Q
     98 ;
     99DEIDENT(GPL,ZDFN) ; QUICK WAY TO DEIDENTIFY THE CCR
     100 S @GPL@("ACTORADDRESSCITY")="ALTON"
     101 S @GPL@("ACTORADDRESSLINE1")="1234 Somewhere Lane"
     102 S @GPL@("ACTORADDRESSLINE2")=""
     103 S @GPL@("ACTORADDRESSSOURCEID")="ACTORPATIENT_"_ZDFN
     104 S @GPL@("ACTORADDRESSSTATE")="KANSAS"
     105 S @GPL@("ACTORADDRESSTYPE")="Home"
     106 S @GPL@("ACTORADDRESSZIPCODE")=67623
     107 S @GPL@("ACTORCELLTEL")=""
     108 S @GPL@("ACTORCELLTELTEXT")=""
     109 S @GPL@("ACTORDATEOFBIRTH")="1957-12-25"
     110 S @GPL@("ACTOREMAIL")=""
     111 S @GPL@("ACTORFAMILYNAME")="ZZ PATIENT"_ZDFN
     112 S @GPL@("ACTORGENDER")="MALE"
     113 S @GPL@("ACTORGIVENNAME")="TEST"_ZDFN
     114 S @GPL@("ACTORIEN")=2
     115 S @GPL@("ACTORMIDDLENAME")="TWO"
     116 S @GPL@("ACTOROBJECTID")="ACTORPATIENT_"_ZDFN
     117 S @GPL@("ACTORRESTEL")="888-555-1212"
     118 S @GPL@("ACTORRESTELTEXT")="Residential Telephone"
     119 S @GPL@("ACTORSOURCEID")="ACTORSYSTEM_1"
     120 S @GPL@("ACTORSSN")="769122557P"
     121 S @GPL@("ACTORSSNSOURCEID")="ACTORPATIENT_"_ZDFN
     122 S @GPL@("ACTORSSNTEXT")="SSN"
     123 S @GPL@("ACTORSUFFIXNAME")=""
     124 S @GPL@("ACTORWORKTEL")="888-121-1212"
     125 S @GPL@("ACTORWORKTELTEXT")="Work Telephone"
    95126 Q
    96127 ;
  • ccr/trunk/p/C0CCCR.m

    r754 r762  
    191191 N I,J,K,L
    192192 K @ACTRTN ; CLEAR RETURN ARRAY
     193 F I=1:1:@AXML@(0) D  ; FIRST FIX MISSING LINKS
     194 . I @AXML@(I)?.E1"_<".E D  ;
     195 . . N ZA,ZB
     196 . . S ZA=$P(@AXML@(I),">",1)_">"
     197 . . S ZB="<"_$P(@AXML@(I),"<",3)
     198 . . S @AXML@(I)=ZA_"ACTORORGANIZATION_1"_ZB
    193199 F I=1:1:@AXML@(0) D  ; SCAN ALL LINES
    194200 . I @AXML@(I)?.E1"<ActorID>".E D  ; THERE IS AN ACTOR THIS LINE
    195201 . . S J=$P($P(@AXML@(I),"<ActorID>",2),"</ActorID>",1)
    196  . . I DEBUG W "<ActorID>=>",J,!
     202 . . I $G(LINKDEBUG) W "<ActorID>=>",J,!
     203 . . I J'="" S K(J)="" ; HASHING ACTOR
     204 . I @AXML@(I)?.E1"<LinkID>".E D  ; THERE IS AN ACTOR THIS LINE
     205 . . S J=$P($P(@AXML@(I),"<LinkID>",2),"</LinkID>",1)
     206 . . I $G(LINKDEBUG) W "<LinkID>=>",J,!
    197207 . . I J'="" S K(J)="" ; HASHING ACTOR
    198208 . . ;  TO GET RID OF DUPLICATES
  • ccr/trunk/p/C0CPROBS.m

    r601 r762  
    108108 . S @VMAP@("PROBLEMOBJECTID")="PROBLEM"_J ; UNIQUE OBJID FOR PROBLEM
    109109 . S @VMAP@("PROBLEMIEN")=$P(PTMP,U,1)
    110  . S @VMAP@("PROBLEMSTATUS")=$S($P(PTMP,U,2)="A":"Active",1:"")
     110 . S @VMAP@("PROBLEMSTATUS")=$S($P(PTMP,U,2)="A":"Active",$P(PTMP,U,2)="I":"Inactive",1:"")
     111 . N ZPRIOR S ZPRIOR=$P(PTMP,U,14) ;PRIORITY FLAG
     112 . S @VMAP@("PROBLEMSTATUS")=@VMAP@("PROBLEMSTATUS")_$S(ZPRIOR="A":"/Acute",ZPRIOR="C":"/Chronic",1:"") ; append Chronic and Accute to Status
    111113 . S @VMAP@("PROBLEMDESCRIPTION")=$P(PTMP,U,3)
    112114 . S @VMAP@("PROBLEMCODINGVERSION")=""
Note: See TracChangeset for help on using the changeset viewer.