Index: /ccr/trunk/p/GPLRIMA.m
===================================================================
--- /ccr/trunk/p/GPLRIMA.m	(revision 357)
+++ /ccr/trunk/p/GPLRIMA.m	(revision 358)
@@ -410,20 +410,21 @@
     ;
 RPCGV(RTN,DFN,WHICH) ; RPC GET VARS
-    ; RETURNS IN RTN (PASSED BY REFERENCE) THE VARS AND VALUES
-    ; FOUND AT INARY RTN(X)="VAR^VALUE" RTN(0) IS THE COUNT
-    ; DFN IS THE PATIENT NUMBER.
-    ; WHICH IS "ALL","MEDS","VITALS","PROBLEMS","ALERTS","RESULTS"
-    ; OR OTHER SECTIONS AS THEY ARE ADDED
-    ; THIS IS MEANT TO BE AVAILABLE AS AN RPC
-    I '$D(RIMBASE) D ASETUP ; FOR COMMAND LINE CALLS
-    S ZVBASE=$NA(@RIMBASE@("VARS")) ; BASE OF VARIABLES
-    S RTN(0)=0 ; DEFAULT NOTHING IS RETURNED
-    N ZZGI
-    I WHICH="ALL" D  ; VARIABLES FROM ALL SECTIONS
-    . F ZZGI="HEADER","PROBLEMS","VITALS","MEDS","ALERTS","RESULTS" D  ;
-    . . D ZGVWRK(ZZGI) ; DO EACH SECTION
-    E  D ZGVWRK(WHICH) ; ONLY ONE SECTION ASKED FOR
-    Q
-    ;
+ ; RETURNS IN RTN (PASSED BY REFERENCE) THE VARS AND VALUES
+ ; FOUND AT INARY RTN(X)="VAR^VALUE" RTN(0) IS THE COUNT
+ ; DFN IS THE PATIENT NUMBER.
+ ; WHICH IS "ALL","MEDS","VITALS","PROBLEMS","ALERTS","RESULTS","IMMUNE"
+ ; OR OTHER SECTIONS AS THEY ARE ADDED
+ ; THIS IS MEANT TO BE AVAILABLE AS AN RPC
+ I '$D(RIMBASE) D ASETUP ; FOR COMMAND LINE CALLS
+ S ZVBASE=$NA(@RIMBASE@("VARS")) ; BASE OF VARIABLES
+ S RTN(0)=0 ; DEFAULT NOTHING IS RETURNED
+ N ZZGI
+ I WHICH="ALL" D  ; VARIABLES FROM ALL SECTIONS
+ . F ZZGI="HEADER","PROBLEMS","VITALS","MEDS","ALERTS","RESULTS","IMMUNE" D  ;
+ . . D ZGVWRK(ZZGI) ; DO EACH SECTION
+ . . W "DID ",ZZGI,!
+ E  D ZGVWRK(WHICH) ; ONLY ONE SECTION ASKED FOR
+ Q
+ ;
 ZGVWRK(ZWHICH) ; DO ONE SECTION FOR RPCGV
     ;