source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSKFASIM.m@ 1710

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

initial load of WorldVistAEHR

File size: 1.8 KB
RevLine 
[613]1YSKFASIM ;16IT/PTC - SUBSTANCE ABUSE ;9/6/01 10:03
2 ;;5.01;MENTAL HEALTH;**73**;Dec 30, 1994
3 W @IOF,!,?10,"Addiction Severity Index CaseFinder",!!
4DTRANGE ;
5 W !
6 S (YSKFBDT,YSKFEDT)=0,%DT("A")="Beginning Date for Performance Measure Date Range: ",%DT="AEX" D ^%DT
7 G:+Y'>0 EXIT
8 S YSKFBDT=+Y_".000001"
9ENDDT W ! S %DT("A")="Ending Date for Performance Measure Date Range: " D ^%DT
10 G:+Y'>0 EXIT
11 S YSKFEDT=+Y_".595959"
12 I YSKFEDT<YSKFBDT S YSKF=YSKFBDT,YSKFBDT=YSKFEDT,YSKFEDT=YSKF K YSKF
13 ;
14 S YSKFTYPE=9
15 S YSKFMG="N",YSKFZZ="Y"
16 S (YSKFMHSX,YSKFMHFG)=1
17MAILG K DIR,Y
18 S DIR(0)="Y",DIR("B")="NO",DIR("A")="Do you want reports sent to the ASI PERFORMANCE MEASURES Mail group"
19 S DIR("?")="If you enter N, the reports will be sent only to your mailbox",DIR("?",1)="If you enter Y, the reports will be sent to you and all in the ASI Performance ",DIR("?",2)="Measures Mail Group" D ^DIR I $D(DIRUT) G DTRANGE
20 S YSKFMG=$S(Y=1:"Y",1:"N")
21DATA K DIR,Y
22 S DIR(0)="Y",DIR("B")="NO",DIR("A")="Do you want to generate the patient-specific reports"
23 S DIR("?")="If you enter N, only the summary report will be generated.",DIR("?",1)="If you enter Y, both the summary and patient-specific reports will be generated." D ^DIR I $D(DIRUT) G MAILG
24 S YSKFZZ=$S(Y=1:"Y",1:"N")
25 S ZTRTN="ASI^YSKFASIM",YSKFDIS="ASI"
26QUEUE ;
27 ;S U="^",YSKFSITE=^DD("SITE",1)_U_^DD("SITE")
28 S U="^",YSKFSITE=+$P($$SITE^VASITE,U)_U_$$SITE^YSGAF3
29 K IOP,ZTIO,ZTSAVE
30 S ZTIO="",ZTSAVE("YSKF*")="",ZTDESC="Performance Measure Reports and Data Sets"
31 D ^%ZTLOAD
32 I '$D(ZTSK) QUIT ;-->
33 W !!,"The ASI Performance Measure Reports has been Tasked, job# ",ZTSK,"...",!
34 D ^%ZISC
35 Q
36ASI ;ASI
37 I $D(ZTQUEUED) S ZTREQ="@" K ZTSK
38 D ^YSKFASI1
39EXIT K YSKFBDT,YSKFEDT,YSKFTYPE,YSKFSITE,^TMP($J),^TMP("XM",$J),^TMP("XN",$J),^TMP("M",$J),YSKFMHFG,^UTILITY($J)
40 Q
Note: See TracBrowser for help on using the repository browser.