Changeset 230 for ccr/trunk

Timestamp:

Oct 27, 2008, 12:04:27 AM (16 years ago)

Author:

George Lilly

Message:

improved Alerts

File:

• ccr/trunk/p/GPLALER2.m (modified) (3 diffs)

ccr/trunk/p/GPLALER2.m

@@ -44 +44 @@
  . K @ALTVMAP
  . 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 A3 S A3=$P(A1,U,5) ; ADVERSE FLAG
  . N ADT S ADT="Patient has an " ; X $ZINT H 5
- . S ADT=ADT_$S($P(@ALTG@(ALTTMP),U,4)=1:"ADVERSE",$P(@ALTG@(ALTTMP),U,5)=1:"ALLERGIC",1:"UNKNOWN")
+ . S ADT=ADT_$S(A1=1:"ADVERSE",A2=1:"ALLERGIC",1:"UNKNOWN")
  . S ADT=ADT_" reaction to "_$P(@ALTG@(ALTTMP),U,2)_"."
  . S @ALTVMAP@("ALERTDESCRIPTIONTEXT")=ADT
- . S @ALTVMAP@("ALERTCODEVALUE")="ALERT CODE VALUE"
- . S @ALTVMAP@("ALERTCODESYSTEM")="ALERT CODE SYSTEM"
- . S @ALTVMAP@("ALERTSTATUSTEXT")="ALERT STATUS TEXT"
+ . N ALTCDE ; SNOMED CODE THE THE ALERT
+ . S ALTCDE=$S(A2=1:"282100009",1:"418634005") ; IF NOT ADVERSE, IT IS ALLERGIC
+ . S @ALTVMAP@("ALERTCODEVALUE")=ALTCDE ;
+ . ; WILL USE 418634005 FOR ALLERGIC REACTION TO A SUBSTANCE
+ . ; AND  282100009 FOR ADVERSE REACTION TO A SUBSTANCE
+ . S @ALTVMAP@("ALERTCODESYSTEM")="SNOMED CT"
+ . S @ALTVMAP@("ALERTCODESYSTEMVERSION")="2008"
+ . S @ALTVMAP@("ALERTSTATUSTEXT")="" ; WHERE DO WE GET THIS?
  . N ALTPROV S ALTPROV=$P(^GMR(120.8,ALTTMP,0),U,5) ; SOURCE PROVIDER IEN
  . I ALTPROV'="" D  ; PROVIDER PROVIDEED
@@ -56 +64 @@
  . E  S @ALTVMAP@("ALERTSOURCEID")="" ; SOURCE NULL - SHOULD NOT HAPPEN
  . W "RUNNING ALERTS, PROVIDER: ",@ALTVMAP@("ALERTSOURCEID"),!
- . S @ALTVMAP@("ALERTAGENTPRODUCTOBJECTID")="PRODUCTOBJID"
- . S @ALTVMAP@("ALERTAGENTPRODUCTSOURCEID")="A"
- . S @ALTVMAP@("ALERTAGENTPRODUCTNAMETEXT")="B"
- . S @ALTVMAP@("ALERTAGENTPRODUCTCODEVALUE")="C"
- . S @ALTVMAP@("ALERTAGENTPRODUCTCODESYSTEM")="D"
- . S @ALTVMAP@("ALERTREACTIOINDESCRIPTIONTEXT")="E"
- . S @ALTVMAP@("ALERTREACTIONCODEVALUE")="F"
- . S @ALTVMAP@("ALERTREACTIONCODESYSTEM")="G"
+ . N ACGL1,ACGFI,ACIEN,ACVUID
+ . S ACGL1=$P(@ALTG@(ALTTMP),U,9) ; ADDRESS OF THE REACTANT XX;GLB(YY.Z,
+ . S ACGFI=$$PRSGLB($P(ACGL1,";",2)) ; FILE NUMBER
+ . S ACIEN=$P(ACGL1,";",1) ; IEN OF REACTANT
+ . S ACVUID=$$GET1^DIQ(ACGFI,ACIEN,"VUID") ; VUID OF THE REACTANT
+ . S @ALTVMAP@("ALERTAGENTPRODUCTOBJECTID")="PRODUCT_"_ACIEN ; IE OF REACTANT
+ . S @ALTVMAP@("ALERTAGENTPRODUCTSOURCEID")="" ; WHERE DO WE GET THIS?
+ . S @ALTVMAP@("ALERTAGENTPRODUCTNAMETEXT")=$P(@ALTG@(ALTTMP),U,2) ; REACTANT
+ . S @ALTVMAP@("ALERTAGENTPRODUCTCODEVALUE")=ACVUID
+ . I ACVUID'="" D  ; IF VUID IS NOT NULL
+ . . S @ALTVMAP@("ALERTAGENTPRODUCTCODESYSTEM")="VUID"
+ . ; REACTIONS - THIS SHOULD BE MULTIPLE, IS SINGLE NOW
+ . N ARTMP,ARIEN,ARDES,ARVUID
+ . S ARTMP=@ALTG@(ALTTMP,"S",1)
+ . W "REACTION:",ARTMP,!
+ . S ARIEN=$P(ARTMP,";",2)
+ . S ARDES=$P(ARTMP,";",1)
+ . S ARVUID=$$GET1^DIQ(120.83,ARIEN,"VUID")
+ . S @ALTVMAP@("ALERTREACTIOINDESCRIPTIONTEXT")=ARDES
+ . S @ALTVMAP@("ALERTREACTIONCODEVALUE")=ARVUID
+ . S @ALTVMAP@("ALERTREACTIONCODESYSTEM")="VUID"
  . S ALTARYTMP=$NA(@ALTTARYTMP@(ALTCNT))
  . K @ALTARYTMP
@@ -71 +92 @@
  . S ALTCNT=ALTCNT+1
  Q
-
+PRSGLB(INGLB) ; EXTRINSIC TO PARSE GLOBALS AND RETURN THE FILE NUMBER
+ ; INGLB IS OF THE FORM: PSNDF(50.6,
+ ; RETURN 50.6
+ Q $P($P(INGLB,"(",2),",",1)  ;