% Set dbConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.RecordSet") dbConn.open Application("ConnectionString") %>
This site is designed to help bring individuals and organizations together to promote quality health care improvement. To search for local Remaking American Medicine coalitions you can join, simply select a state from the drop down state menu and type in Coalition Support in the Keywords box. You can also search for National Partners and Best Practices by selecting a state and then typing in either phrase in Keywords.
There are a variety of other ways to use this database. You can locate organizations that focus on quality issues related to home health care, technology-driven quality improvement, patient safety and other topics available in the health care issues drop down menu. You can also search for health quality organizations designed for certain audience types. Once your research results are returned, click on the details button to see more specific information.
Search results will yield:
Local coalition organizer names and contact information for groups creating grassroots activities around the country in partnership with the Remaking American Medicine outreach campaign.
National Partner organizations who can put you in touch with their local members, affiliates or chapters if you are starting a coalition or want to learn what others may be doing in the area of quality improvement. We also suggest that you visit the Resources section on this site and look for National Partner Quality Tools.
Best practices examples of quality improvement. There is much to learn from each other about improving quality. Here are some great places to start.
All of the organizations in the database have agreed to be listed. If your organization would like to be included in the database, please contact webmaster@RAMcampaign.org. All entries are subject to our privacy policy.
<%if request.form("search") = "1" then rs.cursortype = 1 SQL = "SELECT dbo.tblConnectWithOthers.*, dbo.tblHCI.HCI, dbo.tblRegions.region, dbo.tblOrganizationType.organizationType, dbo.tblAudience.audience "& _ "FROM dbo.tblConnectWithOthers INNER JOIN " &_ "dbo.tblHCI ON dbo.tblConnectWithOthers.healthCareIssuesID = dbo.tblHCI.ID INNER JOIN " &_ "dbo.tblRegions ON dbo.tblConnectWithOthers.regionID = dbo.tblRegions.ID INNER JOIN " &_ "dbo.tblOrganizationType ON dbo.tblConnectWithOthers.organizationTypeID = dbo.tblOrganizationType.ID INNER JOIN " &_ "dbo.tblAudience ON dbo.tblConnectWithOthers.audienceID = dbo.tblAudience.ID " &_ "" whereclause = "" if request.form("organization") <> "" then whereclause = "organizationName LIKE '%" & lcase(replace(request.form("organization"), "'", "''")) & "%'" end if 'if request.form("lastName") <> "" then 'if whereclause <> "" then ' whereclause = whereclause & " AND " 'end if ' whereclause = whereclause & "contactLastName LIKE '" & lcase(replace(request.form("lastName"), "'", "''")) & "%'" 'end if if request.form("city") <> "" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "city LIKE '%" & lcase(replace(request.form("city"), "'", "''")) & "%'" end if if request.form("state") <> "0" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "LOWER(state) = '" & lcase(replace(request.form("state"), "'", "''")) & "'" end if if request.form("zipCode") <> "" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "zipCode = '" & lcase(replace(request.form("zipCode"), "'", "''")) & "'" end if if request.form("region") <> "0" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "tblRegions.ID = " & request.form("region") end if if request.form("audience") <> "0" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "tblAudience.ID = " & request.form("audience") end if if request.form("organizationType") <> "0" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "tblOrganizationType.ID = " & request.form("organizationType") end if if request.form("HCI") <> "0" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "tblHCI.ID = " & request.form("HCI") end if if request.form("keywords") <> "" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "keywords LIKE '%" & lcase(replace(request.form("keywords"), "'", "''")) & "%'" end if if whereclause <> "" then SQL = SQL & " WHERE " & whereclause & " AND tblConnectWithOthers.active = 1" else SQL = SQL & " WHERE tblConnectWithOthers.active = 1" end if SQL="[sp_CWO] " & "'%" & lcase(replace(request.form("organization"), "'", "''")) & "%'" & ",'%" & lcase(replace(request.form("city"), "'", "''")) & "%'" & ",'" & request.form("state") & "'" & ",'" & request.form("zipCode") & "%'" & "," & request.form("region") & "" & ",'%" & request.form("organizationType") & "%'" & ",'%" & request.form("audience") & "%'" & ",'%" & request.form("HCI") & "%'" & ",'%" & lcase(replace(request.form("keywords"), "'", "''")) & "%'" 'response.write SQL rs.open SQL, dbConn if rs.eof then %>
No matches in the database were found.
<%= rs("organizationName") %>
<%= rs("address") %>
<%= rs("city") %>, <%= UCase(rs("state")) %> <%= rs("zipCode") %>
Phone: <%= rs("organizationPhone") %>
URL: ', 'externalSite','')}"><%= rs("URL") %>
Organization Type: <%= rs("OrgTypeList") %>
Health Care Issues: <%= rs("HCI_List") %>
<% if rs("missionStatement") <> "" then %>
Mission Statement: <%= left(rs("missionStatement"),300) %>...
<% end if %>
','connectDetails','width=560,height=500,status=no,location=no,menubar=no,scrollbars')">