Changeset 155 for ccr/trunk/p/GPLXPATH.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/GPLXPATH.m (modified) (2 diffs)

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")