| [613] | 1 | YSCEN14 ;ALB/ASF-READER ; 10/28/88 11:26 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | ; Called from the top by routines YSCEN1, YSCEN13, YSCEN2, YSCEN21
|
|---|
| 5 | ; YSCEN22, YSCEN23, YSCEN35, YSCEN39, YSCEN4, YSCEN51, YSCEN55
|
|---|
| 6 | ; YSCEN61, YSCEN7, YSECN8
|
|---|
| 7 | A ;
|
|---|
| 8 | ;S YSR5=0,YSR11=@YSR1 I YSR11="^"!('$T) S @YSR1=-1 G END
|
|---|
| 9 | S YSR5=0,YSR11=@YSR1 I YSTOUT!YSR11="^" S @YSR1=-1 G END
|
|---|
| 10 | I YSR2?1N.N,YSR11="" S YSR11=YSR2
|
|---|
| 11 | I YSR11'?1N.N,YSR3'?1"?".E S YSR11=$E(YSR11_$S($D(YSR2):YSR2,1:"?")) S:YSR11?1L YSR11=$C($A(YSR11)-32)
|
|---|
| 12 | I YSR3'?1"?".E,YSR3?.E1AP.E,YSR3[YSR11 S @YSR1=YSR11 G END
|
|---|
| 13 | I YSR3?1"?".E,@(YSR1_YSR3) S @YSR1=YSR11 G END
|
|---|
| 14 | I YSR11?1N.N S YSR11=YSR11\1 I YSR11>0&(YSR11'>+YSR3) S @YSR1=YSR11 G END
|
|---|
| 15 | S YSR5=$S(@YSR1?1"?".E:0,1:1),@YSR1="?"
|
|---|
| 16 | 2 ;
|
|---|
| 17 | I $D(YSR4),$D(^DIC(9.2,"B",$E(YSR4,1,30))) S XQH=YSR4 D EN^XQH G END
|
|---|
| 18 | I $D(YSR4) W ! F YSR99=1:1:$L(YSR4,"!") W $P(YSR4,"!",YSR99),!
|
|---|
| 19 | I '$D(YSR4)&(YSR3?1N.N) W !,"Please enter a number from 1 to ",YSR3
|
|---|
| 20 | I '$D(YSR4)&(YSR3="YN") W !,"Please enter YES or NO " G END
|
|---|
| 21 | I '$D(YSR4)&(YSR3?.E1A.E) W !,"Please enter " F YSR99=1:1:$L(YSR3) W $S(YSR99=1:"",YSR99=$L(YSR3):" or ",1:", "),"'",$E(YSR3,YSR99),"'"
|
|---|
| 22 | END ;
|
|---|
| 23 | W:YSR5 $C(7) K YSR1,YSR2,YSR3,YSR4,YSR5,YSR11,YSR99 Q
|
|---|
| 24 | TEST ;
|
|---|
| 25 | S YSR1="YS" W !,"VARIABLE= ",YSR1 R !,"ANSWER= ",@YSR1:300
|
|---|
| 26 | R !,"DEFAULT= ",YSR2:300
|
|---|
| 27 | R !,"SET OF CORRECT ANSWERS= ",YSR3:300
|
|---|
| 28 | R !,"HELP= ",YSR4:300 K:YSR4=-1 YSR4
|
|---|
| 29 | D A W !,"VARIABLE YS= ",YS,! I 1 G TEST
|
|---|
