diff --git a/p/GPLALER2.m b/p/GPLALER2.m
index 4c98e9b..862bcee 100644
--- a/p/GPLALER2.m
+++ b/p/GPLALER2.m
@@ -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"