Changeset 235 for ccr/trunk/p

Timestamp:

Oct 27, 2008, 11:42:09 AM (16 years ago)

Author:

George Lilly

Message:

fixing Alerts

File:

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

ccr/trunk/p/GPLALER2.m

@@ -45 +45 @@
  . S @ALTVMAP@("ALERTOBJECTID")="ALERT"_ALTCNT
  . N A1 S A1=@ALTG@(ALTTMP) ; ALL THE PIECES
- . N A2 S A2=$P(A1,U,4) ; ALLERGIC FLAG
+ . N A2 S A2=$$GET1^DIQ(120.8,ALTTMP,"MECHANISM","I") ; MECHANISM
  . N A3 S A3=$P(A1,U,5) ; ADVERSE FLAG
  . N ADT S ADT="Patient has an " ; X $ZINT H 5
- . S ADT=ADT_$S(A1=1:"ADVERSE",A2=1:"ALLERGIC",1:"UNKNOWN")
+ . S ADT=ADT_$S(A2="P":"ADVERSE",A2="A":"ALLERGIC",1:"UNKNOWN")
  . S ADT=ADT_" reaction to "_$P(@ALTG@(ALTTMP),U,2)_"."
  . S @ALTVMAP@("ALERTDESCRIPTIONTEXT")=ADT
  . N ALTCDE ; SNOMED CODE THE THE ALERT
- . S ALTCDE=$S(A2=1:"282100009",1:"418634005") ; IF NOT ADVERSE, IT IS ALLERGIC
+ . S ALTCDE=$S(A2="P":"282100009",A2="A":"418634005",1:"") ; IF NOT ADVERSE, IT IS ALLERGIC
  . S @ALTVMAP@("ALERTCODEVALUE")=ALTCDE ;
  . ; WILL USE 418634005 FOR ALLERGIC REACTION TO A SUBSTANCE