Archived OASIS - Based Home Health Agency Patient Outcome and Case Mix Reports (30 measures)

<% Dim cnConnect, rsResults, sSql, lb_ERR, errItem, strConn Dim sResponse, bHasStar, qiDate, iQtr , sNewTotal(54), sLow(6), sHigh(6) Dim sQuestion_txt, sStatecodes, sFreq(54, 9), sAnswer_txt(9), sPercent, sLowPercent, sHighPercent Dim sGroup, sGroupnum, sName, sVarQi3(6), sVar_id(6), sTotal, c, add, sState, sDescription(6)%> <% if Request.Querystring("isSubmitted") = "hhaqi2" then %> <% Dim sVar, sGroup2, isSubmitted %> <% ' sGroup = Request.QueryString("group") iQtr = Request.Form("qtr") if iQtr = "" or isnull(iQtr) then iQtr = Request.QueryString("qtr") end if sSQL = "SELECT * FROM hhaqi_var_lookup" %> <% Set cnConnect = Server.CreateObject("ADODB.Connection") 'clear errors cnConnect.Errors.Clear cnConnect.Open "MDSReports","MDS_user","mdsuser" %> <% Set rsResults = cnConnect.Execute(sSQL) %>

Select a Risk-adjusted Home Health Outcome group from the selections below.

<% dim isFirst, rowStyles sGroup2 = "" isFirst = true rowStyles = "rowcolor2" Do while not rsResults.EOF sVar = rsResults("qi_var_id") sGroup = rsResults("group_name") sGroupnum = rsResults("groupnum") sName = rsResults("question") If sGroup <> sGroup2 Then If rowStyles = "rowcolor2" then rowStyles = "rowcolor1" else rowStyles = "rowcolor2" end if if not isFirst then %> <% end if %>

RA Group	Subject Areas
<% = sGroup %>	<% = sName %> <% isFirst = false Else %> <% = sName %> <% End If %> <% sGroup2 = sGroup rsResults.MoveNext Loop %>

<% 'Sitewide navigation info / do NOT edit %> <% elseif Request.Querystring("isSubmitted") = "hhaqi3" then %> <% bHasStar = false %> <% sGroupnum = Request.QueryString("group") iQtr = Request.QueryString("qtr") 'iQtr = Request.Form("qtr") %> <% Set cnConnect = Server.CreateObject("ADODB.Connection") 'clear errors cnConnect.Errors.Clear cnConnect.Open "MDSReports","MDS_user","mdsuser" %> <% sSQL = "SELECT name FROM hha_date_lookup WHERE date_id = " & formatnumber(iQtr) Set rsResults = cnConnect.Execute(sSQL) qiDate = rsResults("name") rsResults.Close() sSQL = "SELECT * FROM hhaqi_var_lookup WHERE groupnum = '" & sGroupnum & "' " Set rsResults = cnConnect.Execute(sSQL) c=0 Do while not rsResults.EOF sVarQi3(c) = rsResults("qi_var_id") sName = rsResults("question") sGroup = rsResults("group_name") sDescription(c) = rsResults("description") sVar_id(c) = rsResults("qi_var_name") sLow(c) = 500 sHigh(c) = 0 If c=0 Then %> <% End If %> <%rsResults.MoveNext c = c + 1 Loop rsResults.close %>

Risk-adjusted Home Health Outcome Report for <% = sGroup %>- <%= qiDate %>

<% = sVarQi3(c) %>: <% = sName %>

<% = sDescription(c) %>

<% For add = 0 to (c-1) If add = 0 Then sTotal = sVar_id(add) Else sTotal = sTotal & ", " & sVar_id(add) End If Next sSQL = "SELECT state, " & sTotal & " FROM hhaqi_data WHERE date_id = " & iQtr & " ORDER BY state" Set rsResults = cnConnect.Execute(sSQL) %>

<% For add = 0 to (c-1) %> <% Next %> <% Do while not rsResults.EOF sState = rsResults("state") If sState = "ZZ" Then %> <% Else %> <% End If For add = 0 to (c-1) if rsResults(sVar_id(add)) = "" or isnull(rsResults(sVar_id(add))) then bHasStar = true %> <% elseif sState <> "ZZ" then if rsResults(sVar_id(add)) < sLow(add) then sLow(add) = rsResults(sVar_id(add)) end if if rsResults(sVar_id(add)) > sHigh(add) then sHigh(add) = rsResults(sVar_id(add)) end if %> <% else sPercent = rsResults(sVar_id(add)) * 100 sLowPercent = sLow(add) * 100 sHighPercent = sHigh(add) * 100%> <% end if Next %> <% If rowStyles = "rowcolor2" then rowStyles = "rowcolor1" else rowStyles = "rowcolor2" end if rsResults.MoveNext Loop rsResults.close cnConnect.close %> <% For add = 0 to (c-1) sLowPercent = sLow(add) * 100 sHighPercent = sHigh(add) * 100%> <% Next %>

State	<% = sVarQi3(add) %>
National
<% = sState %>	*	<% sPercent = rsResults(sVar_id(add)) * 100%> <%=formatnumber(sPercent,1)%>%	<%=formatnumber(sPercent,1) & "%"%>
National Range	<%= "(" & formatnumber(sLowPercent,1) & "% - " & formatnumber(sHighPercent,1) & "%)"%>

<% if bHasStar then %> * - No Percentage Reported <% end if %>

<% else %>

Medicare-certified home health agencies are required to use a standard set of data items, known as OASIS (Outcome and Assessment Information Set) as part of a comprehensive assessment for all patients who are receiving skilled care that is reimbursed by Medicare or Medicaid. OASIS data are submitted by home health agencies to the States, and subsequently transmitted to the Centers for Medicare & Medicaid Services. These data form the basis for patient case mix profile reports and patient outcome reports that are used by home health agencies for quality improvement and quality monitoring purposes and by state survey staff in the certification process. Home health agency quality measures that appear on the CMS Home Health Compare website are also based on OASIS data, and the data are used for case-mix adjustment of per-episode payment.

This site reports state and national mean values for all outcome measures included in the Outcome-Based Quality Improvement and Outcome-Based Quality Monitoring Reports that are available to home health providers from CMS.

This site provides a State-by-State comparison of the 30 risk adjusted measures which is data from year ending 6 months ago.

Stabilization, Improvement in ADLs, IADLs, Physiological and Utilization outcomes are displayed.

Reports available on this web site include the following:

Select report date: <%sSQL = " SELECT date_id, name FROM hha_date_lookup ORDER BY date_id DESC"%> <% Set cnConnect = Server.CreateObject("ADODB.Connection") 'clear errors cnConnect.Errors.Clear cnConnect.Open "MDSReports","MDS_user","mdsuser" %> <%Set rsResults = cnConnect.Execute(sSQL) do while not rsResults.EOF if rsResults("date_id") <= 15 then %> "> <%= rsResults("name") %> <% end if rsResults.MoveNext() loop %>  

<% end if %>

*Home Health Compare Web site Refresh Schedule

Home Health Compare is refreshed quarterly; in Calendar Year 2009, the refresh will occur as follows:

Refresh Date Reporting Period

March 19, 2009 -- October 2007 – September 2008

June 18, 2009 -- January 2008 – December 2008

September 17, 2009 -- April 2008 – March 2009

December 17, 2009 -- July 2008 – June 2009