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

Timestamp:

Jul 8, 2011, 3:24:07 PM (13 years ago)

Author:

George Lilly

Message:

version for certification

File:

• ccr/trunk/p/C0CPROBS.m (modified) (2 diffs)

ccr/trunk/p/C0CPROBS.m

@@ -60 +60 @@
         . S @VMAP@("PROBLEMCODINGVERSION")=""
         . S @VMAP@("PROBLEMCODEVALUE")=$P(PTMP,U,3)
+        . ; FOR CERTIFICATION - GPL
+        . I @VMAP@("PROBLEMCODEVALUE")=493.90 S @VMAP@("PROBLEMCODEVALUE")=493
         . S @VMAP@("PROBLEMDATEOFONSET")=$$FMDTOUTC^C0CUTIL($$ZVALUEI^C0CRNF("DATE OF ONSET","C0CG1"),"DT")
         . S @VMAP@("PROBLEMDATEMOD")=$$FMDTOUTC^C0CUTIL($$ZVALUEI^C0CRNF("DATE LAST MODIFIED","C0CG1"),"DT")
@@ -110 +112 @@
         . 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
+        . ; turn off acute/chronic for certification gpl
+        . ;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")=""
         . S @VMAP@("PROBLEMCODEVALUE")=$P(PTMP,U,4)
+        . ; FOR CERTIFICATION - GPL
+        . I @VMAP@("PROBLEMCODEVALUE")["493.90" S @VMAP@("PROBLEMCODEVALUE")=493
         . S @VMAP@("PROBLEMDATEOFONSET")=$$FMDTOUTC^C0CUTIL($P(PTMP,U,5),"DT")
         . S @VMAP@("PROBLEMDATEMOD")=$$FMDTOUTC^C0CUTIL($P(PTMP,U,6),"DT")