Changeset 231 for ccr/trunk/p

Timestamp:

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

Author:

George Lilly

Message:

improved Alerts

File:

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

ccr/trunk/p/GPLALER2.m

@@ -77 +77 @@
  . ; 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 (ARTMP,ARDES,ARVUID)=""
+ . I $D(@ALTG@(ALTTMP,"S",1)) D  ; IF REACTION EXISTS
+ . . 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