iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
george 2009-02-06 19:07:44 +00:00
parent f17f45589b
commit e56ea7c52f
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
p/GPLRIMA.m
View File

@ -409,22 +409,23 @@ DCPAT(CATTR) ; DISPLAY LIST OF PATIENTS WITH ATTRIBUTE CATTR
Q
;
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
;
N ZZGN ; NAME FOR SECTION VARIABLES