Changeset 247 for ccr/trunk/p/GPLALER2.m


Ignore:
Timestamp:
Oct 28, 2008, 8:34:04 PM (16 years ago)
Author:
George Lilly
Message:

fix for Alerts in GPLRIMA

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLALER2.m

    r246 r247  
    7979 . I ACVUID'="" D  ; IF VUID IS NOT NULL
    8080 . . S @ALTVMAP@("ALERTAGENTPRODUCTCODESYSTEM")="VUID"
     81 . E  D  ; IF REACTANT CODE VALUE IS NULL
     82 . . S @ALTVMAP@("ALERTAGENTPRODUCTCODESYSTEM")=""
     83 . . S @ALTVMAP@("ALERTAGENTPRODUCTCODEVALUE")=""
    8184 . ; REACTIONS - THIS SHOULD BE MULTIPLE, IS SINGLE NOW
    8285 . N ARTMP,ARIEN,ARDES,ARVUID
    … …  
    101104 . I ALTCNT>1 D INSINNER^GPLXPATH(ALTOUTXML,ALTARYTMP)
    102105 . S ALTCNT=ALTCNT+1
     106 S @ALTTVMAP@(0)=ALTCNT-1 ; RECORD THE NUMBER OF ALERTS
    103107 Q
    104108PRSGLB(INGLB) ; EXTRINSIC TO PARSE GLOBALS AND RETURN THE FILE NUMBER
Note: See TracChangeset for help on using the changeset viewer.