Changeset 155 for ccr/trunk/p/GPLRIMA.m

Timestamp:

Sep 21, 2008, 5:10:51 PM (16 years ago)

Author:

George Lilly

Message:

added DPATV^{GPLRIMA and supporting routines to display patient variables}

File:

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

ccr/trunk/p/GPLRIMA.m

@@ -365 +365 @@
     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" OR "MEDS" OR "VITALS" OR "PROBLEMS" OR "ALERTS" OR "LABS"
+    ; 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="PROBLEMS","VITALS","MEDS" D  ; FOR EACH SECTION
+    . . D ZGVWRK(ZZGI) ; DO EACH SECTION
+    E  D ZGVWRK(WHICH) ; ONLY ONE SECTION ASKED FOR
+    Q
+    ;
+ZGVWRK(ZWHICH) ; DO ONE SECTION FOR RPCGV
+    ;
+    N ZZGN ; NAME FOR SECTION VARIABLES
+    S ZZGN=$NA(@ZVBASE@(DFN,ZWHICH)) ; BASE OF VARS FOR SECTION
+    I '$D(@ZZGN@(0)) Q ; NO VARS FOR THIS SECTION
+    E  D  ; VARS EXIST
+    . N ZGVI
+    . F ZGVI=1:1:@ZZGN@(0) D  ; FOR EACH MULTIPLE IN SECTION
+    . . K ZZGA N ZZGA ; TEMP ARRAY FOR SECTION VARS
+    . . K ZZGN2 N ZZGN2 ; NAME FOR MULTIPLE
+    . . S ZZGN2=$NA(@ZZGN@(ZGVI))
+    . . ; W ZZGN2,!,$O(@ZZGN2@("")),!
+    . . D H2ARY^GPLXPATH("ZZGA",ZZGN2) ; CONVERT HASH TO ARRAY
+    . . ; D PARY^GPLXPATH("ZZGA")
+    . . D PUSHA^GPLXPATH("RTN","ZZGA") ; PUSH ARRAY INTO RETURN
+    Q
+    ;
+DPATV(DFN,IWHICH) ; DISPLAY VARS FOR PATIENT DFN THAT ARE MAINTAINED IN GPLRIM
+    ; ALONG WITH SAMPLE VALUES.
+    ; IWHICH IS "ALL" OR "MEDS" OR "VITALS" OR "PROBLEMS" OR "ALERTS" OR "LABS"
+    N GTMP
+    D RPCGV(.GTMP,DFN,IWHICH)
+    D PARY^GPLXPATH("GTMP")
+    Q
+    ;