<cfset myArr = ArrayNew(1) />

 <cfquery  name="myQuery" datasource="#Application.DataSrc#" >
		select Agency_Login from #Request.prefix_db_lookup#.Agency where status='active'

	</cfquery>
   <cfoutput query='myQuery'>
   <cfscript>
    ArrayAppend(myArr,#Agency_Login#);
   </cfscript>
</cfoutput>
<cfsetting requesttimeout="66000">
<cfloop from="1" to="#arraylen(myArr)#" index="REF">
<cftry>
<cfquery  name="SN_pain"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,a.Freq_of_Pain_M0420,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID and (Visit_Type like '%Skilled Nursing%' or Visit_Type like '%SN%') )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and (s.Visit_Type like '%SN%' or s.Visit_Type like '%Skilled Nursing%')
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%pain%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>
							<cfquery  name="SN_medication"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,a.Oral_Meds_M0780,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID and (Visit_Type like '%Skilled Nursing%' or Visit_Type like '%SN%') )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and (s.Visit_Type like '%SN%' or s.Visit_Type like '%Skilled Nursing%')
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%medication%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>
							<cfquery  name="SN_stroke"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,MAX(d.severity) as Diag_sev,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID  )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa,
								#Request.prefix_db_agency#.Diagnosis d
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and a.Assessment_ID = d.Assessment_ID
								and d.M0230_Link is not null
								and d.ICD like '436%'
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%stroke%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>

							<cfquery  name="SN_copd"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,MAX(d.severity) as Diag_sev,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID  )


								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa,
								#Request.prefix_db_agency#.Diagnosis d
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and a.Assessment_ID = d.Assessment_ID
								and d.M0230_Link is not null
								and d.ICD like '491%'
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%cop%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>

							<cfquery  name="SN_heartfailure"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,MAX(d.severity) as Diag_sev,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID  )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa,
								#Request.prefix_db_agency#.Diagnosis d
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and a.Assessment_ID = d.Assessment_ID
								and d.M0230_Link is not null
								and d.ICD like '428%'
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%heart%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>
							<cfquery  name="SN_surgical"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,a.Surgical_Wound_Status_M0488,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID and (Visit_Type like '%Skilled Nursing%' or Visit_Type like '%SN%') )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and (s.Visit_Type like '%SN%' or s.Visit_Type like '%Skilled Nursing%')
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%surgical%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>

							<cfquery  name="SN_behavioral"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,MAX(d.severity) as Diag_sev,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID  )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa,
								#Request.prefix_db_agency#.Pathway_Details pd,#Request.prefix_db_agency#.Diagnosis d
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and a.Assessment_ID = pd.Assessment_ID
								and a.Assessment_ID = d.Assessment_ID
								and (d.Pathway_Type like '%crazy')
								and d.M0230_Link is not null
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>

							<cfquery  name="PT_ambulat"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,a.Ambulation_M0700,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID and (Visit_Type like '%PT%' or Visit_Type like '%physical%') )
								as PT_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and (s.Visit_Type like '%PT%' or s.Visit_Type like '%physical%')
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%ambul%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>
							<cfquery  name="PT_transfer"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,a.Transferring_M0690,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID and (Visit_Type like '%PT%' or Visit_Type like '%physical%') )
								as PT_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and (s.Visit_Type like '%PT%' or s.Visit_Type like '%physical%')
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%transfer%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>

							<cfquery  name="SN_cancer"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,MAX(d.severity) as Diag_sev,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID  )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa,
								#Request.prefix_db_agency#.Diagnosis d
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and a.Assessment_ID = d.Assessment_ID
								and d.M0230_Link is not null
								and d.ICD between '140' and '239'
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>
							<cfquery  name="SN_gi"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,MAX(d.severity) as Diag_sev,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa,
								#Request.prefix_db_agency#.Pathway_Details pd,#Request.prefix_db_agency#.Diagnosis d
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and d.Assessment_ID = a.Assessment_ID
								and a.Assessment_ID = pd.Assessment_ID
								and (d.Pathway_Type like 'gastr%')
								and d.M0230_Link is not null
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>
							<cfquery  name="SN_malnutrition"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,MAX(d.severity) as Diag_sev,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a,
								#Request.prefix_db_agency#.Pathway_Details pd, #Request.prefix_db_agency#.Diagnosis d
								, #Request.prefix_db_agency#.patient pa
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and d.Assessment_ID = a.Assessment_ID
								and a.Assessment_ID = pd.Assessment_ID
								and (d.Pathway_Type = "can't chew" or d.Pathway_Type = 'underweight bonafide')
								and d.M0230_Link is not null
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>
							<cfquery  name="SN_urinary"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,MAX(d.severity) as Diag_sev,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID  )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa,
								#Request.prefix_db_agency#.Diagnosis d
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and a.Assessment_ID = d.Assessment_ID
								and d.M0230_Link is not null
								and d.ICD like '599%'
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%urinary%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>
							<cfquery  name="SN_thrombob"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,MAX(d.severity) as Diag_sev,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa,
								#Request.prefix_db_agency#.Diagnosis d
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and a.Assessment_ID = d.Assessment_ID
								and d.M0230_Link is not null
								and d.ICD like '453%'
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%deep vein%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>
							<cfquery  name="SN_pressureulcer"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,MAX(d.severity) as Diag_sev,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID  )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa,
								#Request.prefix_db_agency#.Pathway_Details pd,#Request.prefix_db_agency#.Diagnosis d
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and a.Assessment_ID = pd.Assessment_ID
								and a.Assessment_ID = d.Assessment_ID
								and pd.Care_Pathway = '34'
								and d.M0230_Link is not null
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%pressure ulcer%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>

							<cfquery  name="SN_stasis"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,MAX(d.severity) as Diag_sev,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID  )
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa,
								#Request.prefix_db_agency#.Pathway_Details pd,#Request.prefix_db_agency#.Diagnosis d
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and a.Assessment_ID = pd.Assessment_ID
								and a.Assessment_ID = d.Assessment_ID
								and pd.Care_Pathway = '39'
								and d.M0230_Link is not null
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%stasis ulcer%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>

							<cfquery  name="SN_caregiversupport"  datasource="#Application.DataSrc#">
								SELECT MAX(p.Progress_Details_ID),
								s.Visit_Type,pa.Last_Name_M0040,pa.First_Name_M0040,p.Patient_ID,MAX(p.severity) as severity,MAX(d.severity) as Diag_sev,a.Start_of_Care_M0030,
								(select count(Visit_Date) from #Request.prefix_db_agency#.ScheduleItems where
								Patient_Id = p.Patient_ID)
								as SN_Visits, a.Start_of_Care_M0030, MAX(s.Visit_Date) as Visit_Date,
								DATEDIFF(MAX(s.Visit_Date),a.Start_of_Care_M0030) as Diff_visit,1
								FROM #Request.prefix_db_agency#.PatientVisitDetails p, #Request.prefix_db_agency#.ScheduleItems s, #Request.prefix_db_agency#.Assessment_New a, #Request.prefix_db_agency#.patient pa,
								#Request.prefix_db_agency#.Pathway_Details pd,#Request.prefix_db_agency#.Diagnosis d
								where p.Agency_ID = #myArr[REF]#
								and p.ScheduleItems_ID = s.ScheduleItems_ID
								and pa.Patient_ID = p.Patient_ID
								and pa.status = 'active'
								and s.Assessment_ID = a.Assessment_ID
								and a.Assessment_ID = pd.Assessment_ID
								and a.Assessment_ID = d.Assessment_ID
								and pd.Care_Pathway = '5'
								and s.Progress_Note = 'Yes'
								and p.Type = 'symptom'
								and p.Description like '%limited care%'
								and s.Deleted = 0
								group by p.Patient_ID
								order by p.Patient_ID
							</cfquery>

							<cfset SN_pain_same=0 />
							<cfset SN_pain_worse=0 />
							<cfset SN_pain_Better=0 />
							<cfset result = 0 />


<cfoutput query="SN_pain">
							<cfif isnumeric(Left(Freq_of_Pain_M0420,1))>
							<cfif severity eq #numberformat(Left(Freq_of_Pain_M0420,1))#>
	                         <cfset SN_pain_same = SN_pain_same+1>
                              <cfelseif severity gt #numberformat(Left(Freq_of_Pain_M0420,1))#>
	                            <cfset SN_pain_worse =SN_pain_worse+1>
                               <cfelseif severity lt #numberformat(Left(Freq_of_Pain_M0420,1))#>
	                            <cfset SN_pain_Better = SN_pain_Better+1>
							 </cfif>
                                <cfelse>
                           		 	<cfset result = ''>
                           			</cfif>
								</cfoutput>

								<cfset SN_medication_same=0 />
							     <cfset SN_medication_worse=0 />
							      <cfset SN_medication_Better=0 />
																<cfoutput query="SN_medication">
								                        	<cfif isnumeric(Left(Oral_Meds_M0780,1))>
									                       		<cfif severity eq #numberformat(Left(Oral_Meds_M0780,1))#>
		                                                        	<cfset SN_medication_same = SN_medication_same+1>
	                                							<cfelseif severity gt #numberformat(Left(Oral_Meds_M0780,1))#>
		                               						   		<cfset SN_medication_worse = SN_medication_worse+1>
	                                							<cfelseif severity lt #numberformat(Left(Oral_Meds_M0780,1))#>
		                               								<cfset SN_medication_Better = SN_medication_Better+1>
                                								</cfif>
                            								<cfelse>
                           		 								<cfset result = ''>
                           									</cfif>
															</cfoutput>

										<cfset SN_stroke_same=0 />
							     <cfset SN_stroke_worse=0 />
							      <cfset SN_stroke_Better=0 />
															<cfoutput query="SN_stroke">
														<cfif isnumeric(Diag_sev)>
								                       		 <cfif severity eq #numberformat(Diag_sev)#>
                                                        	<cfset SN_stroke_same = SN_stroke_same+1>
															<cfelseif severity gt #numberformat(Diag_sev)#>
                               						   		<cfset SN_stroke_worse = SN_stroke_worse+1>
                                							<cfelseif severity lt #numberformat(Diag_sev)#>
                               								<cfset SN_stroke_Better = SN_stroke_Better+1>
															</cfif>
                            								<cfelse>
                           		 							<cfset result = ''>
                           								</cfif>
														</cfoutput>


								<cfset SN_copd_same=0 />
							     <cfset SN_copd_worse=0 />
							      <cfset SN_copd_Better=0 />
															<cfoutput query="SN_copd">
														<cfif isnumeric(Diag_sev)>
								                       		 <cfif severity eq #numberformat(Diag_sev)#>
                                                        	<cfset SN_copd_same = SN_copd_same+1>
															<cfelseif severity gt #numberformat(Diag_sev)#>
                               						   		<cfset SN_copd_worse = SN_copd_worse+1>
                                							<cfelseif severity lt #numberformat(Diag_sev)#>
                               								<cfset SN_copd_Better = SN_copd_Better+1>
															</cfif>
                            								<cfelse>
                           		 							<cfset result = ''>
                           								</cfif>
														</cfoutput>



								<cfset SN_heartfailure_same=0 />
							     <cfset SN_heartfailure_worse=0 />
							      <cfset SN_heartfailure_Better=0 />
															<cfoutput query="SN_heartfailure">
														<cfif isnumeric(Diag_sev)>
								                       		 <cfif severity eq #numberformat(Diag_sev)#>
                                                        	<cfset SN_heartfailure_same = SN_heartfailure_same+1>
															<cfelseif severity gt #numberformat(Diag_sev)#>
                               						   		<cfset SN_heartfailure_worse = SN_heartfailure_worse+1>
                                							<cfelseif severity lt #numberformat(Diag_sev)#>
                               								<cfset SN_heartfailure_Better = SN_heartfailure_Better+1>
															</cfif>
                            								<cfelse>
                           		 							<cfset result = ''>
                           								</cfif>
														</cfoutput>

							<cfset SN_surgical_same=0 />
							<cfset SN_surgical_worse=0 />
							<cfset SN_surgical_Better=0 />

														<cfoutput query="SN_surgical">
								      <cfif isnumeric(Left(Surgical_Wound_Status_M0488,1))>
									      <cfif severity eq #numberformat(Left(Surgical_Wound_Status_M0488,1))#>
		                                   <cfset SN_surgical_same = SN_surgical_same+1>
							<cfelseif severity gt #numberformat(Left(Surgical_Wound_Status_M0488,1))#>
		                              <cfset SN_surgical_worse = SN_surgical_worse+1>
									  	<cfelseif severity lt #numberformat(Left(Surgical_Wound_Status_M0488,1))#>
		                               			<cfset SN_surgical_Better = SN_surgical_Better+1>
	                                		</cfif>
                            	     <cfelse>
                           		 		<cfset result = ''>
                           				 </cfif>
											</cfoutput>


									<cfset SN_behavioral_same=0 />
							     <cfset SN_behavioral_worse=0 />
							      <cfset SN_behavioral_Better=0 />
															<cfoutput query="SN_behavioral">
														<cfif isnumeric(Diag_sev)>
								                       		 <cfif severity eq #numberformat(Diag_sev)#>
                                                        	<cfset SN_behavioral_same = SN_behavioral_same+1>
															<cfelseif severity gt #numberformat(Diag_sev)#>
                               						   		<cfset SN_behavioral_worse = SN_behavioral_worse+1>
                                							<cfelseif severity lt #numberformat(Diag_sev)#>
                               								<cfset SN_behavioral_Better = SN_behavioral_Better+1>
															</cfif>
                            								<cfelse>
                           		 							<cfset result = ''>
                           								</cfif>
														</cfoutput>



											<cfset PT_ambulat_same=0 />
							                <cfset PT_ambulat_worse=0 />
							               <cfset PT_ambulat_Better=0 />
												<cfoutput query="PT_ambulat">
								                        	<cfif isnumeric(Left(Ambulation_M0700,1))>
									                       		<cfif severity eq #numberformat(Left(Ambulation_M0700,1))#>
	                                                        	<cfset PT_ambulat_same = PT_ambulat_same+1>
	                                							<cfelseif severity gt #numberformat(Left(Ambulation_M0700,1))#>
	                               						   		<cfset PT_ambulat_worse = PT_ambulat_worse+1>
	                                							<cfelseif severity lt #numberformat(Left(Ambulation_M0700,1))#>
	                               								<cfset PT_ambulat_Better = PT_ambulat_Better+1>
																</cfif>
                            								<cfelse>
                           		 								<cfset result = ''>
                           									</cfif>
															</cfoutput>



											<cfset PT_transfer_same=0 />
							                <cfset PT_transfer_worse=0 />
							               <cfset PT_transfer_Better=0 />

											<cfoutput query="PT_transfer">
						                        	<cfif isnumeric(Left(Transferring_M0690,1))>
							                       		<cfif severity eq #numberformat(Left(Transferring_M0690,1))#>
		                                                	<cfset PT_transfer_same = PT_transfer_same+1>
	                        							<cfelseif severity gt #numberformat(Left(Transferring_M0690,1))#>
			                       						   		<cfset PT_transfer_worse = PT_transfer_worse+1>
	                        							<cfelseif severity lt #numberformat(Left(Transferring_M0690,1))#>
	                       									<cfset PT_transfer_Better = PT_transfer_Better+1>
	                        							</cfif>
                    								<cfelse>
                   		 								<cfset result = ''>
                   									</cfif>
												</cfoutput>

								<cfset SN_cancer_same=0 />
							     <cfset SN_cancer_worse=0 />
							      <cfset SN_cancer_Better=0 />
															<cfoutput query="SN_cancer">
														<cfif isnumeric(Diag_sev)>
								                       		 <cfif severity eq #numberformat(Diag_sev)#>
                                                        	<cfset SN_cancer_same = SN_cancer_same+1>
															<cfelseif severity gt #numberformat(Diag_sev)#>
                               						   		<cfset SN_cancer_worse = SN_cancer_worse+1>
                                							<cfelseif severity lt #numberformat(Diag_sev)#>
                               								<cfset SN_cancer_Better = SN_cancer_Better+1>
															</cfif>
                            								<cfelse>
                           		 							<cfset result = ''>
                           								</cfif>
														</cfoutput>

								<cfset SN_gi_same=0 />
							     <cfset SN_gi_worse=0 />
							      <cfset SN_gi_Better=0 />
															<cfoutput query="SN_gi">
														<cfif isnumeric(Diag_sev)>
								                       		 <cfif severity eq #numberformat(Diag_sev)#>
                                                        	<cfset SN_gi_same = SN_gi_same+1>
															<cfelseif severity gt #numberformat(Diag_sev)#>
                               						   		<cfset SN_gi_worse = SN_gi_worse+1>
                                							<cfelseif severity lt #numberformat(Diag_sev)#>
                               								<cfset SN_gi_Better = SN_gi_Better+1>
															</cfif>
                            								<cfelse>
                           		 							<cfset result = ''>
                           								</cfif>
														</cfoutput>


								<cfset SN_malnutrition_same=0 />
							     <cfset SN_malnutrition_worse=0 />
							      <cfset SN_malnutrition_Better=0 />
															<cfoutput query="SN_malnutrition">
														<cfif isnumeric(Diag_sev)>
								                       		 <cfif severity eq #numberformat(Diag_sev)#>
                                                        	<cfset SN_malnutrition_same = SN_malnutrition_same+1>
															<cfelseif severity gt #numberformat(Diag_sev)#>
                               						   		<cfset SN_malnutrition_worse = SN_malnutrition_worse+1>
                                							<cfelseif severity lt #numberformat(Diag_sev)#>
                               								<cfset SN_malnutrition_Better = SN_malnutrition_Better+1>
															</cfif>
                            								<cfelse>
                           		 							<cfset result = ''>
                           								</cfif>
														</cfoutput>



								<cfset SN_urinary_same=0 />
							     <cfset SN_urinary_worse=0 />
							      <cfset SN_urinary_Better=0 />
															<cfoutput query="SN_urinary">
														<cfif isnumeric(Diag_sev)>
								                       		 <cfif severity eq #numberformat(Diag_sev)#>
                                                        	<cfset SN_urinary_same = SN_urinary_same+1>
															<cfelseif severity gt #numberformat(Diag_sev)#>
                               						   		<cfset SN_urinary_worse = SN_urinary_worse+1>
                                							<cfelseif severity lt #numberformat(Diag_sev)#>
                               								<cfset SN_urinary_Better = SN_urinary_Better+1>
															</cfif>
                            								<cfelse>
                           		 							<cfset result = ''>
                           								</cfif>
														</cfoutput>



								<cfset SN_thrombob_same=0 />
							     <cfset SN_thrombob_worse=0 />
							      <cfset SN_thrombob_Better=0 />
															<cfoutput query="SN_thrombob">
														<cfif isnumeric(Diag_sev)>
								                       		 <cfif severity eq #numberformat(Diag_sev)#>
                                                        	<cfset SN_thrombob_same = SN_thrombob_same+1>
															<cfelseif severity gt #numberformat(Diag_sev)#>
                               						   		<cfset SN_thrombob_worse = SN_thrombob_worse+1>
                                							<cfelseif severity lt #numberformat(Diag_sev)#>
                               								<cfset SN_thrombob_Better = SN_thrombob_Better+1>
															</cfif>
                            								<cfelse>
                           		 							<cfset result = ''>
                           								</cfif>
														</cfoutput>



								<cfset SN_pressureulcer_same=0 />
							     <cfset SN_pressureulcer_worse=0 />
							      <cfset SN_pressureulcer_Better=0 />
															<cfoutput query="SN_pressureulcer">
														<cfif isnumeric(Diag_sev)>
								                       		 <cfif severity eq #numberformat(Diag_sev)#>
                                                        	<cfset SN_pressureulcer_same = SN_pressureulcer_same+1>
															<cfelseif severity gt #numberformat(Diag_sev)#>
                               						   		<cfset SN_pressureulcer_worse = SN_pressureulcer_worse+1>
                                							<cfelseif severity lt #numberformat(Diag_sev)#>
                               								<cfset SN_pressureulcer_Better = SN_pressureulcer_Better+1>
															</cfif>
                            								<cfelse>
                           		 							<cfset result = ''>
                           								</cfif>
														</cfoutput>




								<cfset SN_stasis_same=0 />
							     <cfset SN_stasis_worse=0 />
							      <cfset SN_stasis_Better=0 />
															<cfoutput query="SN_stasis">
														<cfif isnumeric(Diag_sev)>
								                       		 <cfif severity eq #numberformat(Diag_sev)#>
                                                        	<cfset SN_stasis_same = SN_stasis_same+1>
															<cfelseif severity gt #numberformat(Diag_sev)#>
                               						   		<cfset SN_stasis_worse = SN_stasis_worse+1>
                                							<cfelseif severity lt #numberformat(Diag_sev)#>
                               								<cfset SN_stasis_Better = SN_stasis_Better+1>
															</cfif>
                            								<cfelse>
                           		 							<cfset result = ''>
                           								</cfif>
														</cfoutput>




								<cfset SN_caregiversupport_same=0 />
							     <cfset SN_caregiversupport_worse=0 />
							      <cfset SN_caregiversupport_Better=0 />
															<cfoutput query="SN_caregiversupport">
														<cfif isnumeric(Diag_sev)>
								                       		 <cfif severity eq #numberformat(Diag_sev)#>
                                                        	<cfset SN_caregiversupport_same = SN_caregiversupport_same+1>
															<cfelseif severity gt #numberformat(Diag_sev)#>
                               						   		<cfset SN_caregiversupport_worse = SN_caregiversupport_worse+1>
                                							<cfelseif severity lt #numberformat(Diag_sev)#>
                               								<cfset SN_caregiversupport_Better = SN_caregiversupport_Better+1>
															</cfif>
                            								<cfelse>
                           		 							<cfset result = ''>
                           								</cfif>
														</cfoutput>

													<cfset total_same = 0/>
													<cfset total_worse = 0/>
													<cfset total_Better = 0/>

								<cfset total_same = SN_pain_same+SN_medication_same+SN_stroke_same+SN_copd_same+SN_heartfailure_same+SN_surgical_same+SN_behavioral_same+SN_cancer_same+SN_gi_same+SN_malnutrition_same+SN_urinary_same+SN_thrombob_same+SN_pressureulcer_same+SN_stasis_same+SN_caregiversupport_same+PT_ambulat_same+PT_transfer_same />
								<cfset total_worse = SN_pain_worse+SN_medication_worse+SN_stroke_worse+SN_copd_worse+SN_heartfailure_worse+SN_surgical_worse+SN_behavioral_worse+SN_cancer_worse+SN_gi_worse+SN_malnutrition_worse+SN_urinary_worse+SN_thrombob_worse+SN_pressureulcer_worse+SN_stasis_worse+SN_caregiversupport_worse+PT_ambulat_worse+PT_transfer_worse />
								<cfset total_Better = SN_pain_Better+SN_medication_Better+SN_stroke_Better+SN_copd_Better+SN_heartfailure_Better+SN_surgical_Better+SN_behavioral_Better+SN_cancer_Better+SN_gi_Better+SN_malnutrition_Better+SN_urinary_Better+SN_thrombob_Better+SN_pressureulcer_Better+SN_stasis_Better+SN_caregiversupport_Better+PT_ambulat_Better+PT_transfer_Better />

	<cfquery  name="Graph3" datasource="#Application.DataSrc#">
	Update #Request.prefix_db_lookup#.Agency a
	set a.UMsame=#total_same#,
	a.UMworse=#total_worse#,
	a.UMbetter=#total_Better#
	where a.Agency_Login =#myArr[REF]#
</cfquery>

<cfcatch type="any">
	<!---<cfmail to="velmurugan@myhomecarebiz.com" from="error@myhomecarebiz.com" type="html" subject="graph3 Error">
		<p><b>An error occurred on the website.</b></p>
		<cfoutput>
		Agency Login :#session.agencylogin#
		Agency Name:#session.agencyname#
		Agency ID:#session.agencyid#
		Display Name:#session.display#
		User ID:#Session.EmployeeID#
		User Name:#session.username#
		</cfoutput>
	</cfmail>--->
	</cfcatch>
</cftry>

</cfloop>