iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improved Alerts

This commit is contained in:
george 2008-10-27 04:35:18 +00:00
parent 9771a82643
commit 976099ab26
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/GPLALER2.m
View File

@ -82,7 +82,7 @@ EXTRACT(ALTXML,DFN,ALTOUTXML) ; EXTRACT ALERTS INTO PROVIDED XML TEMPLATE
. . W "REACTION:",ARTMP,!
. . S ARIEN=$P(ARTMP,";",2)
. . S ARDES=$P(ARTMP,";",1)
. S ARVUID=$$GET1^DIQ(120.83,ARIEN,"VUID")
. . S ARVUID=$$GET1^DIQ(120.83,ARIEN,"VUID")
. S @ALTVMAP@("ALERTREACTIOINDESCRIPTIONTEXT")=ARDES
. S @ALTVMAP@("ALERTREACTIONCODEVALUE")=ARVUID
. S @ALTVMAP@("ALERTREACTIONCODESYSTEM")="VUID"