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

Timestamp:

Nov 8, 2008, 10:58:15 PM (16 years ago)

Author:

George Lilly

Message:

persists LABS vars. try D DPATV^{GPLRIMA(1,"LABS")}

File:

• ccr/trunk/p/GPLXPATH.m (modified) (1 diff)

ccr/trunk/p/GPLXPATH.m

@@ -439 +439 @@
  ; W $O(@IHASH@(H2I)),!
  F  S H2I=$O(@IHASH@(H2I)) Q:H2I=""  D  ; FOR EACH ELEMENT OF THE HASH
- . ; W H2I_"^"_@IHASH@(H2I),!
  . I $QS(H2I,$QL(H2I))="M" D  Q  ; SPECIAL CASE FOR MULTIPLES
- . . W "GPLZZ",!
- . . W $NA(@IHASH@(H2I)),!
+ . . ;W H2I_"^"_@IHASH@(H2I),!
+ . . N IH,IHI
+ . . S IH=$NA(@IHASH@(H2I)) ;
+ . . S IH2A=$O(@IH@("")) ; SKIP OVER MULTIPLE DISCRIPTOR
+ . . S IH2=$NA(@IH@(IH2A)) ; PAST THE "M","DIRETIONS" FOR EXAMPLE
+ . . S IHI="" ; INDEX INTO "M" MULTIPLES
+ . . F  S IHI=$O(@IH2@(IHI)) Q:IHI=""  D  ; FOR EACH SUB-MULTIPLE
+ . . . ; W @IH@(IHI)
+ . . . S IH3=$NA(@IH2@(IHI))
+ . . . ; W "HEY",IH3,!
+ . . . D H2ARY(.IARYRTN,IH3,IPRE_";"_IHI) ; RECURSIVE CALL - INDENTED ELEMENTS
+ . . ; W IH,!
+ . . ; W "GPLZZ",!
+ . . ; W $NA(@IHASH@(H2I)),!
  . . Q  ;
  . D PUSH(IARYRTN,IPRE_"^"_H2I_"^"_@IHASH@(H2I))