Index: ccr/trunk/p/GPLALER2.m
===================================================================
--- ccr/trunk/p/GPLALER2.m	(revision 246)
+++ ccr/trunk/p/GPLALER2.m	(revision 247)
@@ -79,4 +79,7 @@
  . I ACVUID'="" D  ; IF VUID IS NOT NULL
  . . S @ALTVMAP@("ALERTAGENTPRODUCTCODESYSTEM")="VUID"
+ . E  D  ; IF REACTANT CODE VALUE IS NULL
+ . . S @ALTVMAP@("ALERTAGENTPRODUCTCODESYSTEM")=""
+ . . S @ALTVMAP@("ALERTAGENTPRODUCTCODEVALUE")=""
  . ; REACTIONS - THIS SHOULD BE MULTIPLE, IS SINGLE NOW
  . N ARTMP,ARIEN,ARDES,ARVUID
@@ -101,4 +104,5 @@
  . I ALTCNT>1 D INSINNER^GPLXPATH(ALTOUTXML,ALTARYTMP)
  . S ALTCNT=ALTCNT+1
+ S @ALTTVMAP@(0)=ALTCNT-1 ; RECORD THE NUMBER OF ALERTS
  Q
 PRSGLB(INGLB) ; EXTRINSIC TO PARSE GLOBALS AND RETURN THE FILE NUMBER
Index: ccr/trunk/p/GPLRIMA.m
===================================================================
--- ccr/trunk/p/GPLRIMA.m	(revision 246)
+++ ccr/trunk/p/GPLRIMA.m	(revision 247)
@@ -117,5 +117,5 @@
     . I ZR(0)>0 D  ; VAR LOOKUP WAS GOOD, CHECK FOR NON=NULL RETURN
     . . F ZI=1:1:ZR(0) D  ; LOOP THROUGH RETURNED VAR^VALUE PAIRS
-    . . . I $P(ZR(ZI),"^",2)'="" D APOST("SATTR","RIMTBL","ALERTSSCODE") ;CODES
+    . . . I $P(ZR(ZI),"^",2)'="" D APOST("SATTR","RIMTBL","ALERTSCODE") ;CODES
     ; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
     W "ATTRIBUTES: ",SATTR,!
@@ -396,5 +396,5 @@
     N ZZGI
     I WHICH="ALL" D  ; VARIABLES FROM ALL SECTIONS
-    . F ZZGI="PROBLEMS","VITALS","MEDS" D  ; FOR EACH SECTION
+    . F ZZGI="PROBLEMS","VITALS","MEDS","ALERTS" D  ; FOR EACH SECTION
     . . D ZGVWRK(ZZGI) ; DO EACH SECTION
     E  D ZGVWRK(WHICH) ; ONLY ONE SECTION ASKED FOR