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

ccr/trunk/p/GPLXPAT0.m

@@ -190 +190 @@
  ;;>>>D INSINNER^GPLXPATH("G2","G2")
  ;;>>?G2(8)="<FIFTH>"
+ ;;><PUSHA>
+ ;;>>>K GTMP,GTMP2
+ ;;>>>N GTMP,GTMP2
+ ;;>>>D PUSH^GPLXPATH("GTMP","A")
+ ;;>>>D PUSH^GPLXPATH("GTMP2","B")
+ ;;>>>D PUSH^GPLXPATH("GTMP2","C")
+ ;;>>>D PUSHA^GPLXPATH("GTMP","GTMP2")
+ ;;>>?GTMP(3)="C"
+ ;;>>?GTMP(0)=3
+ ;;><H2ARY>
+ ;;>>>K GTMP,GTMP2
+ ;;>>>S GTMP("TEST1")=1
+ ;;>>>D H2ARY^GPLXPATH("GTMP2","GTMP")
+ ;;>>?GTMP2(0)=1
+ ;;>>?GTMP2(1)="TEST1^1"
  ;;></TEST>