Changeset 248 for ccr/trunk/p/GPLXPATH.m

Timestamp:

Oct 31, 2008, 2:04:17 PM (16 years ago)

Author:

George Lilly

Message:

enhancement to DPATV^{GPLRIMA(DFN) to provide index x}"VAR"^{value in return array}

File:

• ccr/trunk/p/GPLXPATH.m (modified) (2 diffs)

ccr/trunk/p/GPLXPATH.m

@@ -433 +433 @@
  Q
  ;
-H2ARY(IARYRTN,IHASH) ; CONVERT IHASH TO RETURN ARRAY
- ;
+H2ARY(IARYRTN,IHASH,IPRE) ; CONVERT IHASH TO RETURN ARRAY
+ ; IPRE IS OPTIONAL PREFIX FOR THE ELEMENTS. USED FOR MUPTIPLES 1^"VAR"^VALUE
+ I '$D(IPRE) S IPRE=""
  N H2I S H2I=""
  ; W $O(@IHASH@(H2I)),!
@@ -443 +444 @@
  . . W $NA(@IHASH@(H2I)),!
  . . Q  ;
- . D PUSH(IARYRTN,H2I_"^"_@IHASH@(H2I))
+ . D PUSH(IARYRTN,IPRE_"^"_H2I_"^"_@IHASH@(H2I))
  . ; W @IARYRTN@(0),!
  Q