Changeset 358

Timestamp:

Feb 6, 2009, 2:07:44 PM (16 years ago)

Author:

George Lilly

Message:

fix to add IMMUNE section to DPATV("ALL")

File:

• ccr/trunk/p/GPLRIMA.m (modified) (1 diff)

ccr/trunk/p/GPLRIMA.m

@@ -410 +410 @@
     ;
 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
     ;