- YTALUSE ;ALB/ASF TEST-AUDIT ALCOHOL SCREEN ;4/30/97 09:25
- ;;5.01;MENTAL HEALTH;**31**;Dec 30, 1994
- SCOR ;
- S X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1)
- S R=0 F I=1:1:8 S R=R+$E(X,I)
- S X1=$S($E(X,9)=1:2,$E(X,9)=2:4,1:0) S R=R+X1
- S X1=$S($E(X,10)=1:2,$E(X,10)=2:4,1:0) S R=R+X1
- D REPT^YTREPT
- W !!,"A score of 8 or more indicates a strong likelihood of hazardous",!,"or harmful alcohol consumption."
- QUIT
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYTALUSE 413 printed Jan 18, 2025@03:17:48 Page 2
- YTALUSE ;ALB/ASF TEST-AUDIT ALCOHOL SCREEN ;4/30/97 09:25
- +1 ;;5.01;MENTAL HEALTH;**31**;Dec 30, 1994
- SCOR ;
- +1 SET X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1)
- +2 SET R=0
- FOR I=1:1:8
- SET R=R+$EXTRACT(X,I)
- +3 SET X1=$SELECT($EXTRACT(X,9)=1:2,$EXTRACT(X,9)=2:4,1:0)
- SET R=R+X1
- +4 SET X1=$SELECT($EXTRACT(X,10)=1:2,$EXTRACT(X,10)=2:4,1:0)
- SET R=R+X1
- +5 DO REPT^YTREPT
- +6 WRITE !!,"A score of 8 or more indicates a strong likelihood of hazardous",!,"or harmful alcohol consumption."
- +7 QUIT