Changeset 229 for ccr


Ignore:
Timestamp:
Oct 26, 2008, 3:55:36 PM (16 years ago)
Author:
George Lilly
Message:

alter provider null fix

File:
1 edited

Legend:

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

    r228 r229  
    5151 . S @ALTVMAP@("ALERTCODESYSTEM")="ALERT CODE SYSTEM"
    5252 . S @ALTVMAP@("ALERTSTATUSTEXT")="ALERT STATUS TEXT"
    53  . S @ALTVMAP@("ALERTSOURCEID")="ACTORPROVIDER_"_$P(^GMR(120.8,ALTTMP,0),U,5)
     53 . N ALTPROV S ALTPROV=$P(^GMR(120.8,ALTTMP,0),U,5) ; SOURCE PROVIDER IEN
     54 . I ALTPROV'="" D  ; PROVIDER PROVIDEED
     55 . . S @ALTVMAP@("ALERTSOURCEID")="ACTORPROVIDER_"_ALTPROV
     56 . E  S @ALTVMAP@("ALERTSOURCEID")="" ; SOURCE NULL - SHOULD NOT HAPPEN
    5457 . W "RUNNING ALERTS, PROVIDER: ",@ALTVMAP@("ALERTSOURCEID"),!
    5558 . S @ALTVMAP@("ALERTAGENTPRODUCTOBJECTID")="PRODUCTOBJID"
Note: See TracChangeset for help on using the changeset viewer.