Changeset 248 for ccr/trunk

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}

Location:

ccr/trunk/p

Files:

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

ccr/trunk/p/GPLRIMA.m

@@ -413 +413 @@
     . . S ZZGN2=$NA(@ZZGN@(ZGVI))
     . . ; W ZZGN2,!,$O(@ZZGN2@("")),!
-    . . D H2ARY^GPLXPATH("ZZGA",ZZGN2) ; CONVERT HASH TO ARRAY
+    . . D H2ARY^GPLXPATH("ZZGA",ZZGN2,ZGVI) ; CONVERT HASH TO ARRAY
     . . ; D PARY^GPLXPATH("ZZGA")
     . . D PUSHA^GPLXPATH("RTN","ZZGA") ; PUSH ARRAY INTO RETURN

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