<cfparam name="url.Agency_ID" default="0">

<cfquery name="Agencylist" datasource="#Application.DataSrc#">
		select agency_id,Agency_Login from #Request.prefix_db_lookup#.Agency where status='active'
		<cfif url.Agency_ID NEQ 0 >
			AND Agency_ID = '#url.Agency_ID#'
		</cfif>
		 ORDER BY agency_id
</cfquery>
 
<cfloop query="Agencylist">
	<cfset #Request.prefix_db_agency# = 'agency_'& Agencylist.Agency_ID />
	
	<!--- INSERT Visit date does not match assessment completion date START--->
	<cfquery  name="getallschedules"  datasource="#Application.DataSrc#">
			SELECT * FROM #Request.prefix_db_agency#.pSchedules
			WHERE  pSchedules.status =  0
			AND pSchedules.Followup_visit = 1
	</cfquery>
	<cfquery  name="getallOASIS"  datasource="#Application.DataSrc#">
		SELECT * FROM #Request.prefix_db_agency#.pAssessments
		WHERE  pAssessments.status =  0
	</cfquery>
	<cfquery  name="getalladmission"  datasource="#Application.DataSrc#">
		SELECT * FROM #Request.prefix_db_agency#.pAdmit
		JOIN #Request.prefix_db_agency#.pPatients ON pAdmit.Patient_ID = pPatients.Patient_ID
		WHERE  pAdmit.status =  0 AND pPatients.Status < 2
		GROUP BY pAdmit.Admit_ID 
	</cfquery>
	<cfloop query ="getalladmission">
		<cfset asslist ="1 - SOC - SN,4 - Recertification,PT Eval">
		<cfloop list="#asslist#" index="visit_type">
			<cfif visit_type EQ '1 - SOC - SN'>
				<cfset assessment_name = '1 - Start of care - further visits planned' />
				<cfset Header = "Start of Care M0090 Date" />
			<cfelseif visit_type EQ '4 - Recertification'>
				<cfset assessment_name = '4 - Recertification (follow-up) reassessment' />
				<cfset Header = "Recertification M0090 Date" />
			<cfelseif visit_type EQ 'PT Eval'>
				<cfset assessment_name = 'PT Adult Evaluation' />
				<cfset Header = "PT Adult Evaluation M0090 Date" />
			</cfif>
			<cfset Decription = "Visit date does not match assessment completion date">
			<cfquery  name="getOASIS"  dbtype="query">
				SELECT * FROM getallOASIS
				WHERE status =  0
				AND Admit_ID  = '#Admit_ID#'
				<!--- AND F177 >=  '#DateFormat( NOW(),"yyyy-mm-dd")#' --->
				ORDER BY F177 DESC 
			</cfquery>
			<cfquery  name="getOASISdate"  dbtype="query">
				SELECT * FROM getallOASIS
				WHERE status =  0
				AND Admit_ID  = '#Admit_ID#'
				AND F26 = '#assessment_name#'				
				AND F177 >= '#DateFormat( NOW(),"yyyy-mm-dd")#'
				ORDER BY F177 DESC 
			</cfquery>
			<!--- <cfif Patient_ID EQ 519 AND Agencylist.Agency_ID EQ 1150>
				<cfdump var="#getOASIS#">
				<cfdump var="#getOASISdate#">
			</cfif> --->
	
			<!--- Comparision with Visit date and Assessment completed date --->
			<cfif getOASISdate.recordcount gt 0 AND getOASIS.recordcount gt 0>
				<cfset assmt_ids = ""/>
				<cfset Emps_ID = getOASISdate.Record_Created_By />
				<cfoutput query="getOASIS" group="F26">
					<cfset assmt_ids = listappend(assmt_ids,#Assmt_ID#,',') />
				</cfoutput>
				<cfquery  name="getfolowupvisit"  dbtype="query">
					SELECT * FROM getallschedules
					WHERE status =  0
					AND Assmt_ID IN (#assmt_ids#)
					AND Visit_Type = '#visit_type#'
					AND Visit_Date = '#getOASISdate.F176#'
				</cfquery>
				<cfif getOASISdate.F176 NEQ ''>
					<cfset completeddate = #DateFormat(getOASISdate.F176, "yyyy-mm-dd")# />
				<cfelse>
					<cfset completeddate = #DateFormat(getOASISdate.F177, "yyyy-mm-dd")# />
				</cfif>
				<cfif getfolowupvisit.recordcount EQ 0 >
					<cfquery  name="INSERT_comparision_of_visitdate"  datasource="#Application.DataSrc#">
						INSERT INTO #Request.prefix_db_agency#.Email_Daily_QA
						(Daily_QA_Date, Emp_ID, Patient_ID, Header, Description, Created_Date)
					    VALUES ( '#completeddate#',#Emps_ID#,#Patient_ID#,'#Header#','#Decription#', NOW())
					</cfquery>
					<!--- <cfoutput>
						#Agencylist.Agency_Login# ## - #Pt_First#,#Pt_Last# - #getOASISdate.F176# <br>
					</cfoutput> --->
				</cfif>	
			</cfif>	


			<!--- Comparision with SOC certification start and  completed date --->
			<cfif visit_type EQ '1 - SOC - SN'>
				<cfquery  name="getincorrectcompletion"  dbtype="query">
					SELECT * FROM getallOASIS
					WHERE status =  0
					AND Admit_ID  = '#Admit_ID#'
					AND F26 = '#assessment_name#'				
					AND F177 != F176
					ORDER BY F177 DESC 
				</cfquery>
				<cfif getincorrectcompletion.recordcount gt 0 >
					<cfset Emps_ID = getincorrectcompletion.Record_Created_By />
					<cfif getincorrectcompletion.F176 NEQ ''>
						<cfset completeddate = #DateFormat(getincorrectcompletion.F176, "yyyy-mm-dd")# />
					<cfelse>
						<cfset completeddate = #DateFormat(getincorrectcompletion.F177, "yyyy-mm-dd")# />
					</cfif>
					<cfquery  name="INSERT_comparision_of_certdate"  datasource="#Application.DataSrc#">
						INSERT INTO #Request.prefix_db_agency#.Email_Daily_QA
						(Daily_QA_Date, Emp_ID, Patient_ID, Header, Description, Created_Date)
					    VALUES ( '#completeddate#',#Emps_ID#,#Patient_ID#,'SOC Certification Start Date','SOC Certification Start date does not match assessment completion date', NOW())
					</cfquery>
					<!--- <cfoutput>
						#Agencylist.Agency_Login# - #Patient_ID# - #Pt_First#,#Pt_Last# - #completeddate# <br>
					</cfoutput> --->
				</cfif>
			</cfif>

		</cfloop>
	</cfloop>
	<!--- INSERT Visit date does not match assessment completion date END--->






</cfloop>