| [613] | 1 | YTTLS ;SLC/DKG,SLC/TGA-LIST CODES & TITLES OF TESTS/INTERVIEWS ;3/14/91 13:27 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**17**;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | S (YSLFT,T)=0 K Y D ENDTM^YSUTL S A=10,YSN="",B="TESTS" W @IOF D HD
|
|---|
| 5 | F ;
|
|---|
| 6 | S (F,F1)=0,YSN=$O(^YTT(601,"ATN","T",YSN)) G:YSN="" H S T=$O(^(YSN,0))
|
|---|
| 7 | 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
|
|---|
| 8 | I $Y+$S(IOST["P-":8,1:3)>IOSL D CK G:YSLFT FIN
|
|---|
| 9 | W !?5,T1 W ?12 W:F "*" W:F1 "+"
|
|---|
| 10 | I T1="NEOPI"!(T1="PAI") W ?16,N G F
|
|---|
| 11 | E W ?15,N G F
|
|---|
| 12 | H ;
|
|---|
| 13 | S T=0,A=5,YSN="",B="INTERVIEWS" I $Y+8>IOSL D CK G:YSLFT FIN G G
|
|---|
| 14 | W !! D HD
|
|---|
| 15 | G ;
|
|---|
| 16 | 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
|
|---|
| 17 | I $Y+$S(IOST["P-":8,1:3)>IOSL D CK G:YSLFT FIN
|
|---|
| 18 | W !?5,T1,?15,N G G
|
|---|
| 19 | FIN ;
|
|---|
| 20 | K A,B,F,J,I0,N,P,T,T1,X,YSN Q
|
|---|
| 21 | CK ;
|
|---|
| 22 | D:IOST?1"C-".E WAIT^YSUTL Q:YSLFT W @IOF
|
|---|
| 23 | HD ;
|
|---|
| 24 | W !!?A,"LIST OF CURRENT ",B,", ",YSDT(1),!!
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | TITLE ;
|
|---|
| 28 | S N=$P($G(^YTT(601,T,"P")),U)
|
|---|
| 29 | I N["*" S N=$TR(N,"*","-")
|
|---|
| 30 | S N=$S(N["---":$P(N,"---",2),$D(N):N,1:" TITLE MISSING")
|
|---|
| 31 | Q
|
|---|
