Changeset 236 for ccr/trunk/p/GPLALER2.m

Timestamp:

Oct 27, 2008, 12:08:40 PM (16 years ago)

Author:

George Lilly

Message:

fixing Alerts and skipping non-VA meds unless flag TESTMEDS is set

File:

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

ccr/trunk/p/GPLALER2.m

@@ -56 +56 @@
  . ; 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"
+ . I ALTCDE'="" D  ; IF THERE IS A CODE
+ . . S @ALTVMAP@("ALERTCODESYSTEM")="SNOMED CT"
+ . . S @ALTVMAP@("ALERTCODESYSTEMVERSION")="2008"
+ . E  D  ; SET TO NULL
+ . . S @ALTVMAP@("ALERTCODESYSTEM")=""
+ . . S @ALTVMAP@("ALERTCODESYSTEMVERSION")=""
  . S @ALTVMAP@("ALERTSTATUSTEXT")="" ; WHERE DO WE GET THIS?
  . N ALTPROV S ALTPROV=$P(^GMR(120.8,ALTTMP,0),U,5) ; SOURCE PROVIDER IEN