Changeset 155 for ccr/trunk

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}

Location:

ccr/trunk/p

Files:

• GPLRIMA.m (modified) (1 diff)
• GPLXPAT0.m (modified) (1 diff)
• GPLXPATH.m (modified) (2 diffs)

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

ccr/trunk/p/GPLXPAT0.m

@@ -190 +190 @@
  ;;>>>D INSINNER^GPLXPATH("G2","G2")
  ;;>>?G2(8)="<FIFTH>"
+ ;;><PUSHA>
+ ;;>>>K GTMP,GTMP2
+ ;;>>>N GTMP,GTMP2
+ ;;>>>D PUSH^GPLXPATH("GTMP","A")
+ ;;>>>D PUSH^GPLXPATH("GTMP2","B")
+ ;;>>>D PUSH^GPLXPATH("GTMP2","C")
+ ;;>>>D PUSHA^GPLXPATH("GTMP","GTMP2")
+ ;;>>?GTMP(3)="C"
+ ;;>>?GTMP(0)=3
+ ;;><H2ARY>
+ ;;>>>K GTMP,GTMP2
+ ;;>>>S GTMP("TEST1")=1
+ ;;>>>D H2ARY^GPLXPATH("GTMP2","GTMP")
+ ;;>>?GTMP2(0)=1
+ ;;>>?GTMP2(1)="TEST1^1"
  ;;></TEST>

ccr/trunk/p/GPLXPATH.m

@@ -50 +50 @@
  Q
  ;
+PUSHA(ADEST,ASRC) ; PUSH ASRC ONTO ADEST, BOTH PASSED BY NAME
+ ;
+ N ZGI
+ F ZGI=1:1:@ASRC@(0) D  ; FOR ALL OF THE SOURCE ARRAY
+ . D PUSH(ADEST,@ASRC@(ZGI)) ; PUSH ONE ELEMENT
+ Q
+ ;
 MKMDX(STK,RTN)  ; MAKES A MUMPS INDEX FROM THE ARRAY STK
- ; RTN IS SET TO //FIRST/SECOND/THIRD" FOR THREE ARRAY ELEMENTS
+ ; RTN IS SET TO //FIRST/SECOND/THIRD FOR THREE ARRAY ELEMENTS
  S RTN=""
  N I
@@ -420 +427 @@
  Q
  ;
+H2ARY(IARYRTN,IHASH) ; CONVERT IHASH TO RETURN ARRAY
+ ;
+ N H2I S H2I=""
+ ; W $O(@IHASH@(H2I)),!
+ F  S H2I=$O(@IHASH@(H2I)) Q:H2I=""  D  ; FOR EACH ELEMENT OF THE HASH
+ . ; W H2I_"^"_@IHASH@(H2I),!
+ . D PUSH(IARYRTN,H2I_"^"_@IHASH@(H2I))
+ . ; W @IARYRTN@(0),!
+ Q
+ ;
 TEST     ; Run all the test cases
  D TESTALL^GPLUNIT("GPLXPAT0")