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

alter provider null fix

This commit is contained in:
george 2008-10-26 19:55:36 +00:00
parent 036bd3162c
commit 07ffd95d46
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
p/GPLALER2.m
View File

@ -50,7 +50,10 @@ EXTRACT(ALTXML,DFN,ALTOUTXML) ; EXTRACT ALERTS INTO PROVIDED XML TEMPLATE
. S @ALTVMAP@("ALERTCODEVALUE")="ALERT CODE VALUE"
. S @ALTVMAP@("ALERTCODESYSTEM")="ALERT CODE SYSTEM"
. S @ALTVMAP@("ALERTSTATUSTEXT")="ALERT STATUS TEXT"
. S @ALTVMAP@("ALERTSOURCEID")="ACTORPROVIDER_"_$P(^GMR(120.8,ALTTMP,0),U,5)
. N ALTPROV S ALTPROV=$P(^GMR(120.8,ALTTMP,0),U,5) ; SOURCE PROVIDER IEN
. I ALTPROV'="" D ; PROVIDER PROVIDEED
. . S @ALTVMAP@("ALERTSOURCEID")="ACTORPROVIDER_"_ALTPROV
. E S @ALTVMAP@("ALERTSOURCEID")="" ; SOURCE NULL - SHOULD NOT HAPPEN
. W "RUNNING ALERTS, PROVIDER: ",@ALTVMAP@("ALERTSOURCEID"),!
. S @ALTVMAP@("ALERTAGENTPRODUCTOBJECTID")="PRODUCTOBJID"
. S @ALTVMAP@("ALERTAGENTPRODUCTSOURCEID")="A"