Changeset 248 for ccr/trunk/p/GPLRIMA.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/GPLRIMA.m (modified) (1 diff)

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