|
Last change
on this file since 623 was 623, checked in by George Lilly, 14 years ago |
|
revised back to 6/30/08 version
|
|
File size:
403 bytes
|
| Line | |
|---|
| 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.
