32 lines
1.0 KiB
Mathematica
32 lines
1.0 KiB
Mathematica
YTTLS ;SLC/DKG,SLC/TGA-LIST CODES & TITLES OF TESTS/INTERVIEWS ;3/14/91 13:27 ;
|
|
;;5.01;MENTAL HEALTH;**17**;Dec 30, 1994
|
|
;
|
|
S (YSLFT,T)=0 K Y D ENDTM^YSUTL S A=10,YSN="",B="TESTS" W @IOF D HD
|
|
F ;
|
|
S (F,F1)=0,YSN=$O(^YTT(601,"ATN","T",YSN)) G:YSN="" H S T=$O(^(YSN,0))
|
|
S X=^YTT(601,T,0) G:$P(X,U,13)="N" F S T1=$P(X,U) S:$P(X,U,14)="N" F=1 S:$P(X,U,3)["Y" F1=1 D TITLE
|
|
I $Y+$S(IOST["P-":8,1:3)>IOSL D CK G:YSLFT FIN
|
|
W !?5,T1 W ?12 W:F "*" W:F1 "+"
|
|
I T1="NEOPI"!(T1="PAI") W ?16,N G F
|
|
E W ?15,N G F
|
|
H ;
|
|
S T=0,A=5,YSN="",B="INTERVIEWS" I $Y+8>IOSL D CK G:YSLFT FIN G G
|
|
W !! D HD
|
|
G ;
|
|
S YSN=$O(^YTT(601,"ATN","I",YSN)) G:YSN="" FIN S T=$O(^(YSN,0)),X=^YTT(601,T,0) G:$P(X,U,13)="N" G S T1=$P(X,U) D TITLE
|
|
I $Y+$S(IOST["P-":8,1:3)>IOSL D CK G:YSLFT FIN
|
|
W !?5,T1,?15,N G G
|
|
FIN ;
|
|
K A,B,F,J,I0,N,P,T,T1,X,YSN Q
|
|
CK ;
|
|
D:IOST?1"C-".E WAIT^YSUTL Q:YSLFT W @IOF
|
|
HD ;
|
|
W !!?A,"LIST OF CURRENT ",B,", ",YSDT(1),!!
|
|
Q
|
|
;
|
|
TITLE ;
|
|
S N=$P($G(^YTT(601,T,"P")),U)
|
|
I N["*" S N=$TR(N,"*","-")
|
|
S N=$S(N["---":$P(N,"---",2),$D(N):N,1:" TITLE MISSING")
|
|
Q
|