Changeset 231 for ccr


Ignore:
Timestamp:
Oct 27, 2008, 12:31:59 AM (16 years ago)
Author:
George Lilly
Message:

improved Alerts

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLALER2.m

    r230 r231  
    7777 . ; REACTIONS - THIS SHOULD BE MULTIPLE, IS SINGLE NOW
    7878 . N ARTMP,ARIEN,ARDES,ARVUID
    79  . S ARTMP=@ALTG@(ALTTMP,"S",1)
    80  . W "REACTION:",ARTMP,!
    81  . S ARIEN=$P(ARTMP,";",2)
    82  . S ARDES=$P(ARTMP,";",1)
     79 . S (ARTMP,ARDES,ARVUID)=""
     80 . I $D(@ALTG@(ALTTMP,"S",1)) D  ; IF REACTION EXISTS
     81 . . S ARTMP=@ALTG@(ALTTMP,"S",1)
     82 . . W "REACTION:",ARTMP,!
     83 . . S ARIEN=$P(ARTMP,";",2)
     84 . . S ARDES=$P(ARTMP,";",1)
    8385 . S ARVUID=$$GET1^DIQ(120.83,ARIEN,"VUID")
    8486 . S @ALTVMAP@("ALERTREACTIOINDESCRIPTIONTEXT")=ARDES
Note: See TracChangeset for help on using the changeset viewer.