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

Timestamp:

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

Author:

George Lilly

Message:

updates for deidentification

File:

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

ccr/trunk/p/C0CPROBS.m

@@ -108 +108 @@
  . S @VMAP@("PROBLEMOBJECTID")="PROBLEM"_J ; UNIQUE OBJID FOR PROBLEM
  . S @VMAP@("PROBLEMIEN")=$P(PTMP,U,1)
- . S @VMAP@("PROBLEMSTATUS")=$S($P(PTMP,U,2)="A":"Active",1:"")
+ . S @VMAP@("PROBLEMSTATUS")=$S($P(PTMP,U,2)="A":"Active",$P(PTMP,U,2)="I":"Inactive",1:"")
+ . N ZPRIOR S ZPRIOR=$P(PTMP,U,14) ;PRIORITY FLAG
+ . S @VMAP@("PROBLEMSTATUS")=@VMAP@("PROBLEMSTATUS")_$S(ZPRIOR="A":"/Acute",ZPRIOR="C":"/Chronic",1:"") ; append Chronic and Accute to Status
  . S @VMAP@("PROBLEMDESCRIPTION")=$P(PTMP,U,3)
  . S @VMAP@("PROBLEMCODINGVERSION")=""