Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: YTALUSE

YTALUSE.m

Go to the documentation of this file.
  1. YTALUSE ;ALB/ASF TEST-AUDIT ALCOHOL SCREEN ;4/30/97 09:25
  1. ;;5.01;MENTAL HEALTH;**31**;Dec 30, 1994
  1. SCOR ;
  1. S X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1)
  1. S R=0 F I=1:1:8 S R=R+$E(X,I)
  1. S X1=$S($E(X,9)=1:2,$E(X,9)=2:4,1:0) S R=R+X1
  1. S X1=$S($E(X,10)=1:2,$E(X,10)=2:4,1:0) S R=R+X1
  1. D REPT^YTREPT
  1. W !!,"A score of 8 or more indicates a strong likelihood of hazardous",!,"or harmful alcohol consumption."
  1. QUIT