<cfif isdefined('form.Assmt_ID')>
	<cfquery name="GetAss" datasource="#Application.DataSrc#">
		Select * from #Request.prefix_db_agency#.pAssessments where Assmt_ID='#form.Assmt_ID#'
	</cfquery>
	<cfset encautoass_id= encrypt(#Getass.AutoAssmt_ID#,#Application.enckey#,"AES","Hex") />   
	<cfset encadmit_id= encrypt(#Getass.Admit_ID#,#Application.enckey#,"AES","Hex") />
</cfif>

<cfquery datasource="#Application.DataSrc#" name="GetPatient">
	    SELECT pPatients.*,Agency.* ,pAdmit.Render_Phys_ID AS Primary_ReferringPhys_Id_M0072,
	    pAdmit.*
	    FROM   #Request.prefix_db_agency#.pPatients
	    JOIN  #Request.prefix_db_agency#.pAdmit ON  pAdmit.Patient_Id =  pPatients.Patient_Id 
	    JOIN  #Request.prefix_db_lookup#.Agency ON  Agency.Agency_Id = pPatients.Loc_ID
	    WHERE  pPatients.Patient_Id = '#session.cs.patientid#'
	    AND pPatients.status = 0
	    AND  pAdmit.status = 0
	    GROUP BY pPatients.Patient_Id 	     
</cfquery>


<cfif isdefined('form.ChkYes') and form.ChkYes eq 'Yes'>
	<cfquery name="update_Assements_created" datasource="#Application.DataSrc#">
		UPDATE #Request.prefix_db_agency#.pAssessments  SET
			Record_Created_By = '#Session.EmployeeId#' 
		where Assmt_ID = '#form.Assmt_ID#'
	</cfquery>
</cfif>

<cfif isdefined('form.Phys_ID')>
	<cfquery name="UpdatePhysicians" datasource="#Application.DataSrc#">
		Update #Request.prefix_db_lookup#.pPhysicians
		set Phys_Last='#form.txtphylastname#',
		Phys_First='#form.txtphyfirstname#',
		Phys_Street='#form.txtphyAddress#',
		Phys_City='#form.txtphyCity#',
		Phys_State='#form.txtphyState#',
		Phys_Zip='#form.txtphyMEZip#',
		Phys_Phone='#form.txtphyMEPhone#',	
		<cfif isdefined('form.txtphyFax')>
			Phys_Fax='#form.txtphyFax#',
		</cfif>
		Phys_NPI='#form.txtphyNPI#',
		Record_Mod_Date=#now()#, 
		Record_Mod_By='#Session.EmployeeId#'
		WHERE Phys_ID = '#form.Phys_ID#'
	</cfquery>
</cfif>

<cfquery name="ViewMeds" datasource="#Application.DataSrc#">
	select pPtmeds.Drug_Name, pPtmeds.Dose, pPtmeds.Dose_Units, pPtmeds.Route, pPtmeds.Freq, pPtmeds.Notes 
	from #Request.prefix_db_agency#.pPtmeds 
	where pPtmeds.Patient_ID=(Select pAssessments.Patient_ID from #Request.prefix_db_agency#.pAssessments where pAssessments.Assmt_ID='#form.Assmt_ID#')
	and pPtmeds.Status = '0'
</cfquery>

<cfset medication='' />

<cfif isdefined('ViewMeds.recordcount') and ViewMeds.recordcount gt 0>
	<cfloop query="ViewMeds">
		<cfset Temp=Drug_Name&' '&Dose&' '&Dose_Units&' '&Route&' '&Freq&' '&Notes />
		<cfif medication eq ''>
			<cfset medication=Temp />
		<cfelse>
			<cfset medication=medication&'<br>'&Temp>
		</cfif>
	</cfloop>
<cfelse>
	<cfset medication='There are no Medications for this Plan of Care' />
</cfif>
<cfdump var="#medication#"><cfabort>
<cfif isdefined('form.Assmt_ID')>
	<cfset M0230='#form.Assmt_ID#'&' M0230' />
	<cfquery name="M0230other" datasource="#Application.DataSrc#">
		SELECT  vetted_190924.ICD, vetted_190924.Diagnosis_Short AS Short_Diagnosis,vetted_190924.* FROM #Request.prefix_db_agency#.pProblem 
		JOIN #Request.prefix_db_lookup#.vetted_190924 ON vetted_190924.Diagnosis = pProblem.Description
		WHERE pProblem.Assmt_ID = <cfqueryparam value="#form.Assmt_ID#"  cfsqltype="CF_SQL_INTEGER">
		AND pProblem.M0_No like 'M1023%'
		AND pProblem.status = <cfqueryparam value="0"  cfsqltype="CF_SQL_INTEGER">
		ORDER BY RIGHT(M0_No, 1) ASC
	</cfquery>
</cfif>

<cfif isdefined('form.Assmt_ID')>
	<cfquery name="M0230diagnasis" datasource="#Application.DataSrc#">
		SELECT  vetted_190924.ICD, vetted_190924.Diagnosis_Short AS Short_Diagnosis,vetted_190924.* FROM #Request.prefix_db_agency#.pProblem 
		JOIN #Request.prefix_db_lookup#.vetted_190924 ON vetted_190924.Diagnosis = pProblem.Description
		WHERE pProblem.Assmt_ID = <cfqueryparam value="#form.Assmt_ID#"  cfsqltype="CF_SQL_INTEGER">
		AND pProblem.M0_No like 'M1021%'
		AND pProblem.status = <cfqueryparam value="0"  cfsqltype="CF_SQL_INTEGER">
		ORDER BY RIGHT(M0_No, 1) ASC
	</cfquery>
</cfif>

<!---set primary--->
<cfset primaryICD='' />
<cfif isdefined('M0230diagnasis.recordcount') and M0230diagnasis.recordcount gt 0>
	<cfloop query="M0230diagnasis">
		<cfset ICDTemp=ICD />
		<cfset primaryICD = ICDTemp>
	</cfloop>
<cfelse>
	<cfset primaryICD='' />
</cfif>
<cfset primarydiagnosis='' />
<cfif isdefined('M0230diagnasis.recordcount') and M0230diagnasis.recordcount gt 0>
	<cfloop query="M0230diagnasis">
		<cfset primaryTemp=Short_Diagnosis />
		<cfset primaryTemp= #Left(Short_Diagnosis, 25)#>
		<cfif Short_Diagnosis eq ''>
			<cfset primaryTemp=#Left(Diagnosis, 25)# />
			<cfset primaryTemp = #UCase(primaryTemp)# />
		</cfif>
		<cfset primarydiagnosis=<!---primarydiagnosis&' ,'& --->primaryTemp>
		<cfset primarydiagnosis= #Replace(primarydiagnosis, ",", "", "ALL")#>
	</cfloop>
<cfelse>
	<cfset primarydiagnosis='' />
</cfif>

<!---set other--->
<cfset otherICD='' />
<cfif isdefined('M0230other.recordcount') and M0230other.recordcount gt 0>
	<cfloop query="M0230other">
		<cfset ICDTemp=ICD />
		<cfset otherICD=otherICD&'<br/>'&ICDTemp>
	</cfloop>
<cfelse>
	<cfset otherICD='' />
</cfif>
<cfset otherdiagnosis='' />
<cfif isdefined('M0230other.recordcount') and M0230other.recordcount gt 0>
	<cfloop query="M0230other">
		<cfset otherTemp= #Left(Short_Diagnosis, 25)#>
		<cfif Short_Diagnosis eq ''>
			<cfset otherTemp =#Left(Diagnosis, 25)# />
			<cfset otherTemp = #UCase(otherTemp)# />
		</cfif>
		<cfset otherTemp= #Replace(otherTemp, ",", "", "ALL")#>
		<cfset otherdiagnosis=otherdiagnosis&'<br/>'&otherTemp>
	</cfloop>
<cfelse>
	<cfset otherdiagnosis='' />
</cfif>

<cfset dataspace=" " />
<cfset today=#DateFormat(now(),'yyyy-mm-dd')# />

<cfquery  datasource="#Application.DataSrc#" name="getassform">
	SELECT * FROM #Request.prefix_db_agency#.pCMS4857 
	WHERE Assmt_ID = <cfqueryparam value="#form.Assmt_ID#"  cfsqltype="CF_SQL_INTEGER">
	AND status = 0
</cfquery>

			<cfquery  datasource="#Application.DataSrc#" name="AddForm">
				INSERT INTO #Request.prefix_db_agency#.pCMS4857 
					(Assmt_ID, Status,Form_Type, Insured_HIC, Date_Admit, Certification_From, Certification_To, Pt_Agy_ID, Agy_CCN, Pt_First, Pt_Last, Pt_Street, Pt_City, Pt_State, Pt_Zip, Pt_Phone, Agy_Name, Agy_Street, Agy_City, Agy_State, Agy_Zip, Agy_Phone, Agy_NPI, Pt_DOB, Pt_Gender, Medications, ICD10, Description, ICD_Date, DME, Safety, Diet, Allergies, Functional_Limitations, Functional_Limits_Extra, Activities_Permitted, Activities_Permitted_Extra, Mental_Status, Mental_Status_Extra, Prognosis, Careplan_SN, Careplan_PT, Careplan_OT, Careplan_ST, Careplan_MSW, Careplan_HHA, Careplan_other, Goals_SN, Goals_PT, Goals_OT, Goals_ST, Goals_MSW, Goals_HHA, Goals_other, Rehabilitation_Potential, Discharge_Plan, Clinician_Signature, Render_Phys_ID, MD_Homebound, MD_Clinical_Condition,  Date_Create, Created_by, Date_Change, Change_by)				
				VALUES 
					(
						<cfqueryparam value = "#form.Assmt_ID#" CFSQLType ="CF_SQL_INTEGER">,
						<cfqueryparam value = "0" CFSQLType ="CF_SQL_INTEGER">,
						<cfqueryparam value = "Form 485" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#Session.Insured_HIC#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#DATEFORMAT(GetPatient.Date_Admit,'yyyy-mm-dd')#" CFSQLType ="CF_SQL_DATE">,
						<cfqueryparam value = "#GetAss.F177#" CFSQLType ="CF_SQL_DATE">,
						<cfqueryparam value = "#GetAss.F178#" CFSQLType ="CF_SQL_DATE">,
						<cfqueryparam value = "#GetPatient.Pt_Agy_ID#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.CMS_Cert_No#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Pt_First#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Pt_Last#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Pt_Street#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Pt_City#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Pt_State#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Pt_Zip#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Pt_Phone#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Agency_Name#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Agency_Address1#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Agency_City#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Agency_State#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Agency_Zip#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Agency_Contact_Phone#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Natl_Provider_ID#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#DATEFORMAT(GetPatient.Pt_DOB,'yyyy-mm-dd')#" CFSQLType ="CF_SQL_DATE">,
						<cfqueryparam value = "#GetPatient.Pt_Gender#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#medication#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#primaryICD#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#primarydiagnosis#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#DATEFORMAT(GetPatient.Date_Admit,'yyyy-mm-dd')#" CFSQLType ="CF_SQL_DATE">,
						<cfqueryparam value = "#form.txtDME#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#form.txtSafety#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#form.txtNutritional#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#Session.Allergies#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#form.hdchklimitationValue#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#form.txtFunctionalother#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#form.Chkpermitted#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#form.txtOtheractivitiesPermitted#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#form.txtothermental#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#form.hdrdPrognosisValue#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Careplan_SN#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Careplan_PT#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Careplan_OT#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Careplan_ST#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Careplan_MSW#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Careplan_HHA#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Careplan_other#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Goals_SN#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Goals_PT#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Goals_OT#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Goals_ST#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Goals_MSW#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Goals_HHA#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#getassform.Goals_other#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetAss.F260#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.Refer_Phys_ID#" CFSQLType ="CF_SQL_INTEGER">,
						<cfqueryparam value = "#GetPatient.MD_Homebound#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value = "#GetPatient.MD_Clinical_Condition#" CFSQLType ="CF_SQL_VARCHAR">,
						<cfqueryparam value="#now()#" cfsqltype="cf_sql_timestamp">,
					    <cfqueryparam value = "#session.employeeid#" CFSQLType ="CF_SQL_INTEGER">,
					    <cfqueryparam value="#now()#" cfsqltype="cf_sql_timestamp">,
					    <cfqueryparam value = "#session.employeeid#" CFSQLType ="CF_SQL_INTEGER">	
					)
			</cfquery>	
			
<cfquery name="LastID" datasource="#Application.DataSrc#">
	select LAST_INSERT_ID() as keyvalue
</cfquery>
		
<cfoutput>
    <cfset afid  = encrypt(#LastID.keyvalue#,#Application.enckey#,"AES","Hex") />
	<cflocation url="index.cfm?a=1&page=patient&px=y&cat=485update&afid=#afid#" addtoken="no">
</cfoutput>
