Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORWUX

ORWUX.m

Go to the documentation of this file.
ORWUX ; SLC/KCM - Development Utilities
 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
SYMTAB(REF) ; Return the current symbol table
 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"))
 Q