| 1 | ORWUX ; SLC/KCM - Development Utilities
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
|
|---|
| 3 | SYMTAB(REF) ; Return the current symbol table
|
|---|
| 4 | N X K ^TMP($J,"SAV"),^TMP($J,"SND")
|
|---|
| 5 | S X="^TMP($J,""SAV""," D DOLRO^%ZOSV
|
|---|
| 6 | N N,I,L S X="^TMP($J,""SAV"")",L=0
|
|---|
| 7 | S L=L+1,^TMP($J,"SND",L)="$I="_$I_" $J="_$J_" $S="_$S
|
|---|
| 8 | S L=L+1,^TMP($J,"SND",L)="" ;must send two lines per entry
|
|---|
| 9 | F S X=$Q(@X) Q:$QL(X)<3 Q:$QS(X,1)'=$J Q:$QS(X,2)'="SAV" D
|
|---|
| 10 | . S N=$QS(X,3)
|
|---|
| 11 | . I $QL(X)=3 D Q
|
|---|
| 12 | . . S L=L+1,^TMP($J,"SND",L)=N
|
|---|
| 13 | . . S L=L+1,^TMP($J,"SND",L)=@X
|
|---|
| 14 | . E D
|
|---|
| 15 | . . S N=N_"(" F I=4:1:$QL(X) S N=N_$QS(X,I)_","
|
|---|
| 16 | . . S N=$E(N,1,$L(N)-1)_")"
|
|---|
| 17 | . . S L=L+1,^TMP($J,"SND",L)=N
|
|---|
| 18 | . . S L=L+1,^TMP($J,"SND",L)=@X
|
|---|
| 19 | S REF=$NA(^TMP($J,"SND"))
|
|---|
| 20 | Q
|
|---|
