source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSKFASIP.m@ 619

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

initial load of WorldVistAEHR
File size: 4.2 KB
Line 
1YSKFASIP ;16IT/PTC - SUBSTANCE ABUSE ;8/3/01 14:07
2 ;;5.01;MENTAL HEALTH;**73**;Dec 30, 1994
3 ;CALLED FROM YSKFASIR
4 ;
5CALC ;
6 I NEW=0 S NEWPTP=" ."
7 E S NEWPTP=$S(CKCTT'=0:((NEW/CKCTT)*100),1:" .")
8 I ASI=0 S ASIP=" ."
9 E S ASIP=$S(NEW'=0:((ASI/NEW)*100),1:" .")
10 I G12=0 S G12P=" ." ;ASF 6/15/01
11 E S G12P=$S(NEW'=0:((G12/NEW)*100),1:" .") ;ASF 6/15/01
12 I NOASI=0 S NOASIP=" ."
13 E S NOASIP=$S(NEW'=0:((NOASI/NEW)*100),1:" .")
14 I MAYBE=0 S MAYBEP=" ."
15 E S MAYBEP=$S(NEW'=0:((MAYBE/NEW)*100),1:" .")
16RPT ;
17 S YSKFLCNT=0
18 S YSKFLCNT=YSKFLCNT+1,^TMP($J,YSKFLCNT)=""
19 S ^TMP($J,YSKFLCNT)=" ASI MONITOR ",YSKFLCNT=YSKFLCNT+1
20 ;S ^TMP($J,YSKFLCNT)=" "_^DD("SITE",1)_" "_^DD("SITE"),YSKFLCNT=YSKFLCNT+1
21 S ^TMP($J,YSKFLCNT)=" "_+$P($$SITE^VASITE,U)_" "_$$SITE^YSGAF3,YSKFLCNT=YSKFLCNT+1
22 S ^TMP($J,YSKFLCNT)=" FROM "_$E(YSKFBDT,4,5)_"/"_$E(YSKFBDT,6,7)_"/"_$E(YSKFBDT,2,3)_"-"_$E(YSKFEDT,4,5)_"/"_$E(YSKFEDT,6,7)_"/"_$E(YSKFEDT,2,3),YSKFLCNT=YSKFLCNT+1
23 ;S ^TMP($J,YSKFLCNT)="",YSKFLCNT=YSKFLCNT+1
24 S ^TMP($J,YSKFLCNT)="The denominator is composed of patients admitted to Substance Abuse bedsections",YSKFLCNT=YSKFLCNT+1
25 S ^TMP($J,YSKFLCNT)="27,29,72,73,74,84,86 or seen in a substance abuse clinic (513,514,523,547,560)",YSKFLCNT=YSKFLCNT+1
26 S ^TMP($J,YSKFLCNT)="and meet the inpt/outpt criteria.",YSKFLCNT=YSKFLCNT+1
27 S ^TMP($J,YSKFLCNT)="",YSKFLCNT=YSKFLCNT+1
28 S ^TMP($J,YSKFLCNT)=" Inpatients are those admitted for >24 hrs.",YSKFLCNT=YSKFLCNT+1
29 S ^TMP($J,YSKFLCNT)=" Outpatients are those with at least 3 substance abuse visits within 90 days.",YSKFLCNT=YSKFLCNT+1
30 S ^TMP($J,YSKFLCNT)=" New patients are these inpt. and outpts who have not been ",YSKFLCNT=YSKFLCNT+1
31 S ^TMP($J,YSKFLCNT)=" seen in a mental health substance abuse setting in the past 90 days.",YSKFLCNT=YSKFLCNT+1
32 S ^TMP($J,YSKFLCNT)="",YSKFLCNT=YSKFLCNT+1
33 S ^TMP($J,YSKFLCNT)=" Measure : Patients admitted to Substance Abuse Program during date range ",YSKFLCNT=YSKFLCNT+1
34 S ^TMP($J,YSKFLCNT)=" with an ASI",YSKFLCNT=YSKFLCNT+1
35 S ^TMP($J,YSKFLCNT)=" For inpt,the ASI date range is 30 days prior to admit date to 14th day ",YSKFLCNT=YSKFLCNT+1
36 S ^TMP($J,YSKFLCNT)=" of admit date",YSKFLCNT=YSKFLCNT+1
37 S ^TMP($J,YSKFLCNT)=" For outpt,the ASI date range is 30 days prior to the 1st visit",YSKFLCNT=YSKFLCNT+1
38 S ^TMP($J,YSKFLCNT)=" to 14 days after 3rd visit",YSKFLCNT=YSKFLCNT+1
39 S ^TMP($J,YSKFLCNT)="",YSKFLCNT=YSKFLCNT+1
40 S ^TMP($J,YSKFLCNT)=" BACKGROUND INFORMATION :",YSKFLCNT=YSKFLCNT+1
41 S ^TMP($J,YSKFLCNT)=" NUMBER PERCENT",YSKFLCNT=YSKFLCNT+1
42 S ^TMP($J,YSKFLCNT)=" Patients with Inpt/Outpt Criteria : "_$J(CKCTT,6),YSKFLCNT=YSKFLCNT+1
43 S ^TMP($J,YSKFLCNT)="",YSKFLCNT=YSKFLCNT+1
44 S ^TMP($J,YSKFLCNT)="",YSKFLCNT=YSKFLCNT+1
45 S ^TMP($J,YSKFLCNT)=" New Patients : "_$J(NEW,6)_" "_$J(NEWPTP,6,1),YSKFLCNT=YSKFLCNT+1
46 S ^TMP($J,YSKFLCNT)="",YSKFLCNT=YSKFLCNT+1
47 S ^TMP($J,YSKFLCNT)="",YSKFLCNT=YSKFLCNT+1
48 S ^TMP($J,YSKFLCNT)=" ASI MEASURE :",YSKFLCNT=YSKFLCNT+1
49 S ^TMP($J,YSKFLCNT)=" New patients with ASI : "_$J(ASI,6)_" "_$J(ASIP,6,1),YSKFLCNT=YSKFLCNT+1
50 S ^TMP($J,YSKFLCNT)=" New patients with G12 ASI : "_$J(G12,6)_" "_$J(G12P,6,1),YSKFLCNT=YSKFLCNT+1 ;ASF 6/15/01
51 S ^TMP($J,YSKFLCNT)=" New Patients without ASI : "_$J(NOASI,6)_" "_$J(NOASIP,6,1),YSKFLCNT=YSKFLCNT+1
52 S ^TMP($J,YSKFLCNT)=" No ASI/14th day not reached : "_$J(MAYBE,6)_" "_$J(MAYBEP,6,1),YSKFLCNT=YSKFLCNT+1
53 S ^TMP($J,YSKFLCNT)="",YSKFLCNT=YSKFLCNT+1
54 S ^TMP($J,YSKFLCNT)=" FOLLOWUP MEASURE :",YSKFLCNT=YSKFLCNT+1
55 S ^TMP($J,YSKFLCNT)=" Followups Done : "_$J(FOLLDONE,6)_" "_$J(FOLLDONP,6,1),YSKFLCNT=YSKFLCNT+1
56 S ^TMP($J,YSKFLCNT)=" Followups G12'd : "_$J(FOLLG12,6)_" "_$J(FOLLG12P,6,1),YSKFLCNT=YSKFLCNT+1 ;ASF 8/3/01
57 S ^TMP($J,YSKFLCNT)=" Followups Missed : "_$J(NOFOLLCT,6)_" "_$J(NOFOLLP,6,1),YSKFLCNT=YSKFLCNT+1
58 S ^TMP($J,YSKFLCNT)=" Followups Pending : "_$J(FOLLSHR,6)_" "_$J(FOLLSHRP,6,1),YSKFLCNT=YSKFLCNT+1
59 Q
Note: See TracBrowser for help on using the repository browser.