source:
WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTALUSE.m
Last change on this file was 623, checked in by , 15 years ago | |
---|---|
File size: 403 bytes |
Rev | Line | |
---|---|---|
[623] | 1 | YTALUSE ;ALB/ASF TEST-AUDIT ALCOHOL SCREEN ;4/30/97 09:25 |
2 | ;;5.01;MENTAL HEALTH;**31**;Dec 30, 1994 | |
3 | SCOR ; | |
4 | S X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1) | |
5 | S R=0 F I=1:1:8 S R=R+$E(X,I) | |
6 | S X1=$S($E(X,9)=1:2,$E(X,9)=2:4,1:0) S R=R+X1 | |
7 | S X1=$S($E(X,10)=1:2,$E(X,10)=2:4,1:0) S R=R+X1 | |
8 | D REPT^YTREPT | |
9 | W !!,"A score of 8 or more indicates a strong likelihood of hazardous",!,"or harmful alcohol consumption." | |
10 | QUIT |
Note:
See TracBrowser
for help on using the repository browser.