Changeset 762
- Timestamp:
- May 18, 2010, 12:43:49 PM (15 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CACTOR.m
r754 r762 91 91 K @AMAP 92 92 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 93 95 D MAP(INXML,AMAP,OUTXML) ;MAP TO XML 94 96 K @AMAP ; CLEAN UP BEHIND US 97 Q 98 ; 99 DEIDENT(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" 95 126 Q 96 127 ; -
ccr/trunk/p/C0CCCR.m
r754 r762 191 191 N I,J,K,L 192 192 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 193 199 F I=1:1:@AXML@(0) D ; SCAN ALL LINES 194 200 . I @AXML@(I)?.E1"<ActorID>".E D ; THERE IS AN ACTOR THIS LINE 195 201 . . 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,! 197 207 . . I J'="" S K(J)="" ; HASHING ACTOR 198 208 . . ; TO GET RID OF DUPLICATES -
ccr/trunk/p/C0CPROBS.m
r601 r762 108 108 . S @VMAP@("PROBLEMOBJECTID")="PROBLEM"_J ; UNIQUE OBJID FOR PROBLEM 109 109 . 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 111 113 . S @VMAP@("PROBLEMDESCRIPTION")=$P(PTMP,U,3) 112 114 . S @VMAP@("PROBLEMCODINGVERSION")=""
Note:
See TracChangeset
for help on using the changeset viewer.