Changeset 247 for ccr/trunk


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

fix for Alerts in GPLRIMA

Location:
ccr/trunk/p
Files:
2 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
  • ccr/trunk/p/GPLRIMA.m

    r246 r247  
    117117    . I ZR(0)>0 D  ; VAR LOOKUP WAS GOOD, CHECK FOR NON=NULL RETURN
    118118    . . F ZI=1:1:ZR(0) D  ; LOOP THROUGH RETURNED VAR^VALUE PAIRS
    119     . . . I $P(ZR(ZI),"^",2)'="" D APOST("SATTR","RIMTBL","ALERTSSCODE") ;CODES
     119    . . . I $P(ZR(ZI),"^",2)'="" D APOST("SATTR","RIMTBL","ALERTSCODE") ;CODES
    120120    ; D APOST("SATTR","RIMTBL","NOTEXTRACTED") ; OUTPUT NOT YET PRODUCED
    121121    W "ATTRIBUTES: ",SATTR,!
     
    396396    N ZZGI
    397397    I WHICH="ALL" D  ; VARIABLES FROM ALL SECTIONS
    398     . F ZZGI="PROBLEMS","VITALS","MEDS" D  ; FOR EACH SECTION
     398    . F ZZGI="PROBLEMS","VITALS","MEDS","ALERTS" D  ; FOR EACH SECTION
    399399    . . D ZGVWRK(ZZGI) ; DO EACH SECTION
    400400    E  D ZGVWRK(WHICH) ; ONLY ONE SECTION ASKED FOR
Note: See TracChangeset for help on using the changeset viewer.