VistA Analysis » VistA Reference » RPCs » ORWUX SYMTAB

ORWUX SYMTAB

Returns the contents of the current session’s symbol table.

Properties

Property	Value
Label	SYMTAB
MUMPS Implementation	ORWUX
Return Type	GLOBAL ARRAY

MUMPS Method Description

Property Value

Method SYMTAB^ORWUX

Method Comment Return the current symbol table

Code

Property	Value
Method	SYMTAB^ORWUX
Method Comment	Return the current symbol table
Code	N X K ^TMP($J,"SAV"),^TMP($J,"SND") S X="^TMP($J,""SAV""," D DOLRO^%ZOSV N N,I,L S X="^TMP($J,""SAV"")",L=0 S L=L+1,^TMP($J,"SND",L)="$I="_$I_" $J="_$J_" $S="_$S S L=L+1,^TMP($J,"SND",L)="" ;must send two lines per entry F S X=$Q(@X) Q:$QL(X)<3 Q:$QS(X,1)'=$J Q:$QS(X,2)'="SAV" D . S N=$QS(X,3) . I $QL(X)=3 D Q . . S L=L+1,^TMP($J,"SND",L)=N . . S L=L+1,^TMP($J,"SND",L)=@X . E D . . S N=N_"(" F I=4:1:$QL(X) S N=N_$QS(X,I)_"," . . S N=$E(N,1,$L(N)-1)_")" . . S L=L+1,^TMP($J,"SND",L)=N . . S L=L+1,^TMP($J,"SND",L)=@X S REF=$NA(^TMP($J,"SND"))

 N X K ^TMP($J,"SAV"),^TMP($J,"SND")
 S X="^TMP($J,""SAV""," D DOLRO^%ZOSV
 N N,I,L S X="^TMP($J,""SAV"")",L=0
 S L=L+1,^TMP($J,"SND",L)="$I="_$I_"  $J="_$J_"  $S="_$S
 S L=L+1,^TMP($J,"SND",L)=""  ;must send two lines per entry
 F  S X=$Q(@X) Q:$QL(X)<3  Q:$QS(X,1)'=$J  Q:$QS(X,2)'="SAV"  D
 . S N=$QS(X,3)
 . I $QL(X)=3 D  Q
 . . S L=L+1,^TMP($J,"SND",L)=N
 . . S L=L+1,^TMP($J,"SND",L)=@X
 . E  D
 . . S N=N_"(" F I=4:1:$QL(X) S N=N_$QS(X,I)_","
 . . S N=$E(N,1,$L(N)-1)_")"
 . . S L=L+1,^TMP($J,"SND",L)=N
 . . S L=L+1,^TMP($J,"SND",L)=@X
 S REF=$NA(^TMP($J,"SND"))

CPRS

File Type	Description
Pascal File	rMisc.pas

Document generated on August 31st 2022, 2:55:43 pm