<!---
This file is Copyright © 1998-2009 by Home Care Business Services. This work may not be reproduced, in whole or in part, 
using any medium, including, but not limited to, electronic transmission, CD-ROM or published in print, without the express 
permission of Home Care Business Services.

$Revision: 1.6 $
$Id: build_patient_declining_status.cfm,v 1.6 2010/05/05 17:46:13 arlen Exp $
$Date: 2010/05/05 17:46:13 $
DELETE FROM #Request.prefix_db_lookup#.rpt_patientdecliningstatus
--->

<cfsetting RequestTimeout = "86400"> 

<cfquery  datasource="#Application.DataSrc#" name="Temp">
DELETE FROM #Request.prefix_db_lookup#.rpt_patientdecliningstatus
</cfquery>


<cfquery  datasource="#Application.DataSrc#" name="PatientList">
	SELECT patient.Patient_ID, patient.Last_Name_M0040, patient.First_Name_M0040, patient.Agency_ID
	FROM #Request.prefix_db_agency#.patient
	WHERE patient.Status = 'Active' 
	ORDER BY patient.Agency_ID,patient.Patient_ID
</cfquery>

<cfset results="Updating Reporting Table for Patients with Declining Status Since Previous Visit<br>">

<cfset patientsToUse=''>

	<cfif patientsToUse eq "">
		<cfset startdate=dateadd('D',-90,now())>
		<cfquery  datasource="#Application.DataSrc#" name="PatientList">
			SELECT patient.Patient_ID, patient.Last_Name_M0040, patient.First_Name_M0040, patient.Agency_ID
			FROM #Request.prefix_db_agency#.patient
			WHERE patient.Status = 'Active'
			GROUP BY patient.Agency_ID,patient.Patient_ID
			ORDER BY patient.Agency_ID,patient.Patient_ID
		</cfquery>
		<cfset indx=1>
		<cfloop query="PatientList">
			<cfset theagencyid=#Agency_ID#>
			<cfquery  datasource="#Application.DataSrc#" name="VisitList">
				SELECT pd.Assessment_ID, pd.Skill, pd.Type,pd.Description, pd.Created_By, pd.Record_Creation_Date,pd.M0_Answer,
				pd.Pathway_Details_ID,pd.Assessment_Tracker_ID,si.Visit_Date,pvd.Patient_ID,
				pvd.Description as pvd_description,pvd.Performed,pvd.Severity,pvd.Notes,pvd.Reading1,pvd.Type as pvd_type,pvd.Reading2,pvd.Progress_Details_ID
				FROM #Request.prefix_db_agency#.PatientVisitDetails pvd
				LEFT OUTER JOIN #Request.prefix_db_agency#.Pathway_Details pd on pvd.Pathway_Details_ID = pd.Pathway_Details_ID
				LEFT OUTER JOIN #Request.prefix_db_agency#.ScheduleItems si on pvd.ScheduleItems_ID = si.ScheduleItems_ID
				WHERE pvd.Patient_ID = #PatientList.Patient_ID#
				AND pd.Deleted is null
				AND pd.Resolved_Date is null
				AND pvd.Type in ('Wound','Vital Sign','symptom','Laboratory')
				AND LENGTH(pd.Description) != 0
				AND si.Visit_Date >= #CreateODBCDate(startdate)#
				ORDER BY pd.M0_Answer,pd.Skill,pd.Description,si.Visit_Date DESC
			</cfquery>
			<cfif VisitList.recordcount>
				<cfset patientdisplay=1>
				<cfset lastname='#PatientList.Last_Name_M0040#'>
				<cfset firstname='#PatientList.First_Name_M0040#'>
				<cfset vcount=0>
				<cfset lastskill=''>
				<cfset lastdescription=''>
				<cfset lastdate=''>
				<cfset prevdate=''>
				<cfset currentseverity=''>
				<cfset lastseverity=''>
				<cfloop query=VisitList>
					<cfif skill eq lastskill and description eq lastdescription>
						<cfset vcount=vcount+1>
						<cfif vcount eq 2>
							<cfset lastseverity=#severity#>
							<cfset prevdate=#lastdate#>
							<cfset patientName="#lastname#, #firstname#">
							<cfset patientVisit="#DateFormat(Visit_Date,"MM/DD/YY")#">
							<cfset patientPrevVisit="#DateFormat(prevdate,"MM/DD/YY")#">
							<cfquery  datasource="#Application.DataSrc#" name="updatetable">
							INSERT INTO #Request.prefix_db_lookup#.rpt_patientdecliningstatus 
							(pds_id,GraphURL,Name,Visit,PVisit,Diagnosis,Skill,Type,Description,Severity,PDID,PID,AGID,AID,ATID,Delta)
							VALUES
							(#indx#,"page=patient&cat=careplan&AID=#assessment_id#&ATID=#assessment_tracker_ID#&PID=#Patient_ID#&code=#skill#&detail=#type#",
							"#patientName#", "#patientPrevVisit#", "#patientVisit#", "#M0_Answer#", "#skill#", "#type#",
							"#Description#", #currentseverity#, #Progress_Details_ID#, #Patient_ID#,
							#theagencyid#, #assessment_ID#, '#assessment_tracker_ID#', #evaluate((currentseverity-lastseverity)*25)#)
							</cfquery>
							<cfset results="#results#Inserting #theagencyid#,#Patient_ID#,#patientName#,[#M0_Answer# #skill# #type#] #patientVisit#,#currentseverity#,#patientPrevVisit#,#lastseverity# #description#<br>">
							<cfset vcount=0>
							<cfset indx=indx+1>
						<cfelseif vcount eq 1>
							<cfset currentseverity=#severity#>
						</cfif>
					<cfelseif lastskill eq '' and lastdescription eq ''>
						<cfset vcount=1>
						<cfset lastskill=#skill#>
						<cfset lastdescription=#description#>
						<cfset lastdate=#Visit_Date#>
						<cfset currentseverity=#severity#>
						<cfset lastseverity=''>
					<cfelse>
						<cfset vcount=1>
						<cfset lastskill=#skill#>
						<cfset lastdescription=#description#>
						<cfset lastdate=#Visit_Date#>
						<cfset lastseverity=''>
						<cfset currentseverity=#severity#>
					</cfif>
				</cfloop>
			</cfif>
		</cfloop> 
	<cfelse>
		<cfset results="No Data Available<br>">
	</cfif>	
<!---
<cfelse>
	<cfset results="No Data Available<br>">
</cfif>
--->
<cfmail to="#application.admintoemail#" from="#application.adminemail#"  subject="MHB Report Generation" type="html">
	<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
	#results#
	</font>
</cfmail>

<cfoutput>
#results#
</cfoutput>
