source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWUX.m@ 1489

Last change on this file since 1489 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 711 bytes
Line 
1ORWUX ; SLC/KCM - Development Utilities
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3SYMTAB(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
Note: See TracBrowser for help on using the repository browser.