Changeset 229

Timestamp:

Oct 26, 2008, 3:55:36 PM (16 years ago)

Author:

George Lilly

Message:

alter provider null fix

File:

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

ccr/trunk/p/GPLALER2.m

@@ -51 +51 @@
  . 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"