| 1 | YSKFASIM ;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",!!
|
|---|
| 4 | DTRANGE ;
|
|---|
| 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"
|
|---|
| 9 | ENDDT 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
|
|---|
| 17 | MAILG 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")
|
|---|
| 21 | DATA 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"
|
|---|
| 26 | QUEUE ;
|
|---|
| 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
|
|---|
| 36 | ASI ;ASI
|
|---|
| 37 | I $D(ZTQUEUED) S ZTREQ="@" K ZTSK
|
|---|
| 38 | D ^YSKFASI1
|
|---|
| 39 | EXIT K YSKFBDT,YSKFEDT,YSKFTYPE,YSKFSITE,^TMP($J),^TMP("XM",$J),^TMP("XN",$J),^TMP("M",$J),YSKFMHFG,^UTILITY($J)
|
|---|
| 40 | Q
|
|---|
