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

Timestamp:

Oct 28, 2008, 8:14:30 PM (16 years ago)

Author:

George Lilly

Message:

added Alerts to GPLRIMA

File:

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

ccr/trunk/p/GPLALER2.m

@@ -89 +89 @@
  . . S ARVUID=$$GET1^DIQ(120.83,ARIEN,"VUID")
  . S @ALTVMAP@("ALERTREACTIOINDESCRIPTIONTEXT")=ARDES
- . S @ALTVMAP@("ALERTREACTIONCODEVALUE")=ARVUID
- . S @ALTVMAP@("ALERTREACTIONCODESYSTEM")="VUID"
+ . I ARVUID'="" D  ; IF REACTION VUID IS NOT NULL
+ . . S @ALTVMAP@("ALERTREACTIONCODEVALUE")=ARVUID
+ . . S @ALTVMAP@("ALERTREACTIONCODESYSTEM")="VUID"
+ . E  D  ; IF IT IS NULL DON'T SET CODE SYSTEM
+ . . S @ALTVMAP@("ALERTREACTIONCODEVALUE")=""
+ . . S @ALTVMAP@("ALERTREACTIONCODESYSTEM")=""
  . S ALTARYTMP=$NA(@ALTTARYTMP@(ALTCNT))
  . K @ALTARYTMP