Changeset 343 for ccr/trunk/p/GPLALERT.m

Timestamp:

Jan 25, 2009, 3:29:07 PM (15 years ago)

Author:

George Lilly

Message:

improvements to Problems and Alerts, added dates, type

File:

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

ccr/trunk/p/GPLALERT.m

@@ -51 +51 @@
  . S ADT=ADT_" reaction to "_$P(@ALTG@(ALTTMP),U,2)_"."
  . S @ALTVMAP@("ALERTDESCRIPTIONTEXT")=ADT
+ . N ADTY S ADTY=$S(A2="P":"Adverse Reaction",A2="A":"Allergy",1:"") ;
+ . S @ALTVMAP@("ALERTTYPE")=ADTY ; type of allergy
  . N ALTCDE ; SNOMED CODE THE THE ALERT
  . S ALTCDE=$S(A2="P":"282100009",A2="A":"418634005",1:"") ; IF NOT ADVERSE, IT IS ALLERGIC
@@ -99 +101 @@
  . . S @ALTVMAP@("ALERTREACTIONCODESYSTEM")=""
  . S ALTARYTMP=$NA(@ALTTARYTMP@(ALTCNT))
+ . ; NOW GO TO THE GLOBAL TO GET THE DATE/TIME AND BETTER DESCRIPTION
+ . N C0CG1,C0CT ; ARRAY FOR VALUES FROM GLOBAL
+ . D GETN1^C0CRNF("C0CG1",120.8,DFN,"B") ;GET VALUES BY NAME
+ . S C0CT=$$ZVALUEI^C0CRNF("ORIGINATION DATE/TIME","C0CG1")
+ . S @ALTVMAP@("ALERTDATETIME")=$$FMDTOUTC^CCRUTIL(C0CT)
  . K @ALTARYTMP
  . D MAP^GPLXPATH(ALTXML,ALTVMAP,ALTARYTMP)