source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSCEN14.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1YSCEN14 ;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
7A ;
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="?"
162 ;
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),"'"
22END ;
23 W:YSR5 $C(7) K YSR1,YSR2,YSR3,YSR4,YSR5,YSR11,YSR99 Q
24TEST ;
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
Note: See TracBrowser for help on using the repository browser.