<cfcomponent  displayname="customer" output="false">
<cfinclude template='/__Security-Block.cfm' />
<cfif not isdefined('session.cs.AssessmentId')>
 <cflocation url = '/?ai=0' addtoken = 'no' />
</cfif>

    <cffunction name="startcare_insert"   access="remote" returnFormat= "JSON" >
	           <cfargument name="answers" required="yes" hint="SOC Step 1">
			   <cfargument name="wizard" required="yes" hint="SOC Step 1">
			     <cfargument name="total_wizard" default="" hint="SOC Step">
				 <cfargument name="assessment_reason" default="" hint="SOC Step">
			    <cfset count = 0 >
			     <cfif isdefined('session.cs.AssessmentId')>
						<cfset data=ArrayNew(1) />
						<cfset datalist=ArrayNew(2) />
						<cfset datalist=ListToArray(answers,"~",false,true) />
						<!---<cfdump var="#datalist#">--->
						<cfloop from="1" to="#ArrayLen(datalist)#" index="i" step="2">
						<!---<cfoutput> #(datalist[i])#  =  '#datalist[i+1]#' <br></cfoutput>--->
						<cfif #datalist[i]# EQ 'M1010updateF'> <cfset M1010updateFs = '#datalist[i+1]#' ></cfif>
						<cfif #datalist[i]# EQ 'M1016updateF'> <cfset M1016updateF = '#datalist[i+1]#' ></cfif>
						<cfif #datalist[i]# EQ 'M0230updateF'> <cfset M0230updateF = '#datalist[i+1]#' ></cfif>
						  <cfif  #datalist[i]# neq 'M1010updateF'  and    #datalist[i]# neq  'M1016updateF' and   #datalist[i]# neq  'M0230updateF'>
							 <cfoutput>
								 <cfquery  name="Update_start_of_care_assessment" datasource="#Application.DataSrc#">
									   UPDATE #Request.prefix_db_agency#.Assessment_New  SET
										 #datalist[i]#  =  <cfif  #datalist[i+1]# eq 'undefined' OR  #datalist[i+1]# eq  '$'> NULL <cfelse>"#ReplaceNoCase(datalist[i+1], """", "", "ALL")#"</cfif>
										 	<cfif wizard eq #total_wizard#>
												,AssessmentType_New = 1
												,Admission_Status='Complete'
											</cfif>
									   WHERE Assessment_ID =  '#session.cs.AssessmentId#'
								   </cfquery><!---<br>--->
							 </cfoutput>
							 </cfif>
						</cfloop>
						
						  
						   <cfquery name="get_all_answers" datasource="#Application.DataSrc#">    
								 SELECT * FROM Assessment_Answer_lookup WHERE DELETED <> 1
								   AND  assessment_reason = '#assessment_reason#'
								  GROUP BY answer_label 
							</cfquery> 
							 <cfquery name="get_all_questions" datasource="#Application.DataSrc#">    
								 SELECT * FROM Assessment_Questions_lookup
								  WHERE DELETED <> 1 
								  AND  assessment_reason = '#assessment_reason#'
							</cfquery> 
						   <cfloop query="get_all_answers">
										<cfquery  name="get_count" datasource="#Application.DataSrc#">
										 SELECT * FROM #Request.prefix_db_agency#.Assessment_New 
										  WHERE Assessment_ID =  '#session.cs.AssessmentId#'
										 AND  #get_all_answers.answer_label# IS NOT NULL
										</cfquery>
										<cfif get_count.recordcount gt 0>
										   <cfset count = count + 1 />
										</cfif>
							</cfloop>
							<cfif count gt 0>
							   <cfset count = #DecimalFormat((count/#get_all_questions.recordcount#)*100)# >
							</cfif>
						   <cfif wizard eq 1 and isdefined('M1010updateFs')>
						<cfif #M1010updateFs# NEQ ""  AND  #M1010updateFs# NEQ "M1010updateF">
								<cfif isdefined('session.cs.AssessmentId')>
										<cfquery  name="Updaterowsempty" datasource="#Application.DataSrc#">
										update #Request.prefix_db_agency#.Assessment_New set HHRG_175_Score="",HHRG_230_Score="",HHRG_250_Score="",HHRG_390_Score="",HHRG_420_Score="",HHRG_440_Score="" where assessment_id=#session.cs.AssessmentId#
										</cfquery>
								</cfif>
								<cfloop index="UpdateOrder" list ='#M1010updateFs#' delimiters="!">
								<cfset UpdateDx=0>
								<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
								<cfset UpdateDx=UpdateDx+1>
								<cfif UpdateDx EQ 1>
								<cfset UpdateID=#UpdateDescandSkill#>
								</cfif>
								<cfif UpdateDx EQ 2>
								<cfset Order=#UpdateDescandSkill#>
								</cfif>
							</cfloop>
						   <cfquery  name="UpdateDxOrder" datasource="#Application.DataSrc#">
							UPDATE #Request.prefix_db_agency#.Diagnosis SET Dx_Order = '#Order#'
							WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
							</cfquery>
		
								<cfquery  name="geticd" datasource="#Application.DataSrc#">
								select ICD from #Request.prefix_db_agency#.Diagnosis where assessment_id=#session.cs.AssessmentId# and Dx_Order = '#Order#'
								</cfquery>
							<cfif Order eq 1>
									<cfquery  name="primary" datasource="#Application.DataSrc#">
									 update #Request.prefix_db_agency#.Assessment_New set HHRG_175_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
									</cfquery>
								<cfelseif Order eq 2>
									<cfquery  name="secondary" datasource="#Application.DataSrc#">
									 update #Request.prefix_db_agency#.Assessment_New set HHRG_230_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
									</cfquery>
								<cfelseif Order eq 3>
									<cfquery  name="third" datasource="#Application.DataSrc#">
									 update #Request.prefix_db_agency#.Assessment_New set HHRG_250_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
									</cfquery>
								<cfelseif Order eq 4>
									<cfquery  name="fourth" datasource="#Application.DataSrc#">
									 update #Request.prefix_db_agency#.Assessment_New set HHRG_390_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
									</cfquery>
								<cfelseif Order eq 5>
									<cfquery  name="fifth" datasource="#Application.DataSrc#">
									 update #Request.prefix_db_agency#.Assessment_New set HHRG_420_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
									</cfquery>
								<cfelseif Order eq 6>
									<cfquery  name="sixth" datasource="#Application.DataSrc#">
									 update #Request.prefix_db_agency#.Assessment_New set HHRG_440_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
									</cfquery>
							 </cfif>
							  <cfset UpdateDx=0>
						</cfloop>
				 </cfif>
					   </cfif>
					   
					   <cfif wizard eq 2 and isdefined('M1016updateF')>
						   <cfif  #M1016updateF# NEQ "">
									<cfloop index="UpdateOrder" list ='#M1016updateF#' delimiters="!">
									<cfset UpdateDx=0 />
										<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
										<cfset UpdateDx=UpdateDx+1 />
										<cfif UpdateDx EQ 1>
										<cfset UpdateID=#UpdateDescandSkill# />
										</cfif>
										<cfif UpdateDx EQ 2>
										<cfset Order=#UpdateDescandSkill# />
										</cfif>
										</cfloop>
										<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
										UPDATE #Request.prefix_db_agency#.Diagnosis SET Dx_Order = '#Order#'
										WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
										</cfquery>
										<cfset UpdateDx=0 />
									</cfloop>
							</cfif>
					  </cfif>
					  
					   <cfif wizard eq 4 and isdefined('M0230updateF')>  
						 <cfset Id=''>
						<cfset severity=''>
						<cfset dxorder=''>
						<cfset primary=''>
						<cfset secondary=''>
					   <cfif #M0230updateF# NEQ "">
						<cfloop index="First" list="#M0230updateF#" delimiters="!">
						<cfset Secondcount=0>
						<cfloop index="Second1" list="#First#" delimiters="-">
						<cfset Secondcount=Secondcount+1>
						<cfif Secondcount eq 1>
						<cfset Id=#Second1#>
						</cfif>
						<cfif Secondcount eq 2>
						<cfset severity=#Second1#>
						</cfif>
						<cfif Secondcount eq 3>
						<cfset dxorder=#Second1#>
						</cfif>
						<cfif Secondcount eq 4>
						<cfset primary=#Second1#>
						</cfif>
						<cfif Secondcount eq 5>
						<cfset secondary=#Second1#>
						</cfif>
						</cfloop>
						
						
						<cfoutput>
						<cfquery  name="M1020upd" datasource="#Application.DataSrc#">
						UPDATE IGNORE  #Request.prefix_db_agency#.Diagnosis SET Severity='#severity#',Primary_Diagnosis='#primary#',Secondary_Diagnosis='#secondary#',
						Dx_Order = '#dxorder#' where Assessment_ID ='#session.cs.AssessmentId#' and Diagnosis_ID ='#Id#'
						</cfquery>
						</cfoutput>
						
						<cfset Secondcount=0>
						<cfset Id=''>
						<cfset severity=''>
						<cfset dxorder=''>
						<cfset primary=''>
						<cfset secondary=''>
						
						</cfloop>
					</cfif>
	               </cfif>
				   </cfif>
			      <cfset response_key={"statusCode"= 200,"statusText"= 'success',"data"= #count# } />
			<cfreturn  response_key >
</cffunction>

	<cffunction name="startcare_update_form_insert"   access="remote" returnFormat= "JSON" >
	           <cfargument name="answers" required="yes" hint="SOC Update form">
			    <cfif isdefined('session.cs.AssessmentId')>
				       <cfset soc420 = ''/>
						<cfset soc490 = ''/>
						<cfset soc520 = ''/>
						<cfset soc680 = ''/>
						<cfset soc700 = ''/>
						<cfset soc780 = ''/>
							
						<cfset data=ArrayNew(1) />
						<cfset datalist=ArrayNew(2) />
						<cfset datalist=ListToArray(answers,"~",false,true) />
						<!---<cfdump var="#datalist#">--->
						<cfloop from="1" to="#ArrayLen(datalist)#" index="i" step="2">
						<!---<cfoutput> #(datalist[i])#  =  '#datalist[i+1]#' <br></cfoutput>--->
					<!---	<cfif #datalist[i]# EQ 'Freq_of_Pain_M0420' ><cfset soc420 = left(#Freq_of_Pain_M0420#, 1) /></cfif>
						<cfif #datalist[i]# EQ 'Breathing_M0490'><cfset soc490 = left(#Breathing_M0490#, 1) /></cfif>
						<cfif #datalist[i]# EQ 'Surgical_Wound_Status_M0488'><cfset soc520 = left(#Surgical_Wound_Status_M0488#, 1) /></cfif>
						<cfif #datalist[i]# EQ 'Bathing_M0670'><cfset soc680 = left(#Bathing_M0670#, 1) /></cfif>
						<cfif #datalist[i]# EQ 'Transferring_M0690'><cfset soc690 = left(#Transferring_M0690#, 1) /></cfif>
						<cfif #datalist[i]# EQ 'Ambulation_M0700'><cfset soc700 = left(#Ambulation_M0700#, 1) /></cfif>
						<cfif #datalist[i]# EQ 'Oral_Meds_M0780'><cfset soc780 = left(#Oral_Meds_M0780#, 1) /></cfif>--->
						<cfif #datalist[i]# EQ 'M1010updateF'> <cfset M1010updateF = '#datalist[i+1]#' ></cfif>
						<cfif #datalist[i]# EQ 'M1016updateF'> <cfset M1016updateF = '#datalist[i+1]#' ></cfif>
						<cfif #datalist[i]# EQ 'M0230updateF'> <cfset M0230updateF = '#datalist[i+1]#' ></cfif>
						
						  <cfif  #datalist[i]# neq 'M1010updateF' and  #datalist[i]# neq 'M1016updateF' and #datalist[i]# neq 'M0230updateF' >
							 <cfoutput>
								 <cfquery  name="Update_start_of_care_assessment" datasource="#Application.DataSrc#">
									   UPDATE #Request.prefix_db_agency#.Assessment_New  SET
										 #datalist[i]#  =  <cfif  #datalist[i+1]# eq 'undefined' OR  #datalist[i+1]# eq  '$'> NULL <cfelse><cfqueryparam cfsqltype="cf_sql_varchar" value="#datalist[i+1]#"></cfif>
									   WHERE Assessment_ID =  '#session.cs.AssessmentId#'
								   </cfquery><!---<br>--->
							 </cfoutput>
							 </cfif>
						</cfloop>
						
						   <cfset count = 0 >
						   <cfquery name="get_all_questions" datasource="#Application.DataSrc#">    
								 SELECT * FROM Assessment_Answer_lookup WHERE DELETED <> 1 GROUP BY answer_label 
							</cfquery> 
						   <cfloop query="get_all_questions">
										<cfquery  name="get_count" datasource="#Application.DataSrc#">
										 SELECT * FROM #Request.prefix_db_agency#.Assessment_New  WHERE Assessment_ID =  '#session.cs.AssessmentId#'
										 AND  #get_all_questions.answer_label# IS NOT NULL
										</cfquery>
										<cfif get_count.recordcount gt 0>
										   <cfset count = count + 1 />
										</cfif>
							</cfloop>
							<cfif count gt 0>
							   <cfset count = #DecimalFormat((count/121)*100)# >
							</cfif>
							<!---<cfquery name="socupdate" datasource="#Application.DataSrc#">
								Update #Request.prefix_db_agency#.Assessment_New SET
								SOC_420 = '#soc420#',
								SOC_490 = '#soc490#',
								SOC_520 = '#soc520#',
								SOC_680 = '#soc680#',
								SOC_690 = '#soc690#',
								SOC_700 = '#soc700#',
								SOC_780 = '#soc780#'
								Where Assessment_ID=  '#session.cs.AssessmentId#'
							</cfquery>--->
							
							<cfquery name="AssID" datasource="#Application.DataSrc#">
                              Select Assessment_Tracker_ID,Patient_ID,Agency_ID From #Request.prefix_db_agency#.Assessment_New 
							  where Assessment_ID= '#session.cs.AssessmentId#'
                            </cfquery>

							<cfif IsDefined("cookie.PathwayID")>
								<cfif cookie.PathwayID NEQ "">
										<cfquery name="DeletePathwayID" datasource="#Application.DataSrc#">
										<cfsetting requesttimeout="30">
										update #Request.prefix_db_agency#.Pathway_Details set deleted = 'yes' 
										where Pathway_Details.Assessment_ID= '#session.cs.AssessmentId#'
										and Pathway_Details.Pathway_Details_ID not in(#cookie.PathwayID#)
										</cfquery>
								</cfif>
							</cfif>

							<cfif IsDefined("cookie.PathwayDescription")>
											<cfif cookie.PathwayDescription NEQ "">
											<cfsetting requesttimeout="30">
													<cfloop index="Description" list =#cookie.PathwayDescription# delimiters=",">
													    <cfset Skillcount=0 />
														 <cfloop index="DescandSkill" list=#Description# delimiters="*~*">
														 <cfset Skillcount=Skillcount+1 />
														 <cfif Skillcount EQ 1>
														 <cfset Desc=#DescandSkill# />
														 </cfif>
														 <cfif Skillcount EQ 2>
														 <cfset Skill=#DescandSkill# />
														 </cfif>
														 </cfloop>
													
														 <cfquery name="InsertPathway" datasource="#Application.DataSrc#">
														 INSERT INTO #Request.prefix_db_agency#.Pathway_Details
														 (Agency_ID,Patient_ID,Assessment_Tracker_ID,Assessment_ID,Skill,Description) 
														 VALUES
														 ('#AssID.Agency_ID#','#AssID.Patient_ID#','#AssID.Assessment_Tracker_ID#',
														 '#session.cs.AssessmentId#','<cfif isdefined('Skill')>#Skill#</cfif>','#Desc#')
														 </cfquery>
														 <cfset Skillcount=0 />
													</cfloop>
											</cfif>
							</cfif>

						    <cfif IsDefined("cookie.PathwayUpdate")>
							  <cfif cookie.PathwayUpdate NEQ "">
								 <cfsetting requesttimeout="30">
										<cfloop index="UpdateDescription" list =#cookie.PathwayUpdate# delimiters=",">
										   <cfset UpdateSkillcount=0 />
												 <cfloop index="UpdateDescandSkill" list=#UpdateDescription# delimiters="*~*">
													 <cfset UpdateSkillcount=UpdateSkillcount+1 />
													 <cfif UpdateSkillcount EQ 1>
													 <cfset UpdateDesc=#UpdateDescandSkill# />
													 </cfif>
													 <cfif UpdateSkillcount EQ 2>
													 <cfset UpdateID=#UpdateDescandSkill# />
													 </cfif>
													 <cfif UpdateSkillcount EQ 3>
													 <cfset UpdateSkill=#UpdateDescandSkill# />
													 </cfif>
												 </cfloop>
												  <cfif isdefined("UpdateID")>
													 <cfquery name="UpdatePathway" datasource="#Application.DataSrc#">
													  UPDATE #Request.prefix_db_agency#.Pathway_Details SET
													  Description = '#UpdateDesc#'
													  <cfif isdefined("UpdateSkill")>
													  ,Skill='#UpdateSkill#'
													  </cfif>
													  where Assessment_ID =  '#session.cs.AssessmentId#'
													  and Pathway_Details_ID = '#UpdateID#'
												
													 </cfquery>
												</cfif>
											   <cfset UpdateSkillcount=0 />
										</cfloop>
								 </cfif>
						  </cfif>

							<cfset cookie.PathwayID="" />
							<cfset cookie.PathwayDescription="" />
							<cfset cookie.PathwayUpdate="" />

							<cfif isdefined('M1010updateF')>
							   <cfif #M1010updateF# NEQ "" and M1010updateF NEQ 'undefined'>
												<cfif isdefined('session.cs.AssessmentId')>
														<cfquery name="Updaterowsempty" datasource="#Application.DataSrc#">
														update #Request.prefix_db_agency#.Assessment_New 
														set HHRG_175_Score="",HHRG_230_Score="",HHRG_250_Score="",
														HHRG_390_Score="",HHRG_420_Score="",HHRG_440_Score=""
														 where assessment_id=#session.cs.AssessmentId#
														</cfquery>
												 </cfif>
												 <cfloop index="UpdateOrder" list ='#M1010updateF#' delimiters="!">
													  <cfset UpdateDx=0 />
														<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
															<cfset UpdateDx=UpdateDx+1 />
															<cfif UpdateDx EQ 1>
															<cfset UpdateID=#UpdateDescandSkill# />
															</cfif>
															<cfif UpdateDx EQ 2>
															<cfset Order=#UpdateDescandSkill# />
															</cfif>
														</cfloop>
									
														<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
														UPDATE #Request.prefix_db_agency#.Diagnosis SET Dx_Order = '#Order#'
														WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
														</cfquery>
									
														<cfquery name="geticd" datasource="#Application.DataSrc#">
														select ICD from #Request.prefix_db_agency#.Diagnosis where assessment_id=#session.cs.AssessmentId# and Dx_Order = '#Order#'
														</cfquery>
														
														<cfif Order eq 1>
																<cfquery name="primary" datasource="#Application.DataSrc#">
																 update #Request.prefix_db_agency#.Assessment_New set HHRG_175_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
																</cfquery>
															<cfelseif Order eq 2>
																<cfquery name="secondary" datasource="#Application.DataSrc#">
																 update #Request.prefix_db_agency#.Assessment_New set HHRG_230_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
																</cfquery>
															<cfelseif Order eq 3>
																<cfquery name="third" datasource="#Application.DataSrc#">
																 update #Request.prefix_db_agency#.Assessment_New set HHRG_250_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
																</cfquery>
															<cfelseif Order eq 4>
																<cfquery name="fourth" datasource="#Application.DataSrc#">
																 update #Request.prefix_db_agency#.Assessment_New set HHRG_390_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
																</cfquery>
															<cfelseif Order eq 5>
																<cfquery name="fifth" datasource="#Application.DataSrc#">
																 update #Request.prefix_db_agency#.Assessment_New set HHRG_420_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
																</cfquery>
															<cfelseif Order eq 6>
																<cfquery name="sixth" datasource="#Application.DataSrc#">
																 update #Request.prefix_db_agency#.Assessment_New set HHRG_440_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
																</cfquery>
														 </cfif>
													   <cfset UpdateDx=0 />
									</cfloop>
							  
							
								<cfloop index="UpdateOrder" list ='#M1010updateF#' delimiters="!">
								 <cfset UpdateDx=0 />
									<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
									   <cfset UpdateDx=UpdateDx+1 />
											<cfif UpdateDx EQ 1>
											<cfset UpdateID=#UpdateDescandSkill# />
											</cfif>
											<cfif UpdateDx EQ 2>
											<cfset Order=#UpdateDescandSkill# />
											</cfif>
									</cfloop>
									<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
									UPDATE #Request.prefix_db_agency#.Diagnosis SET Dx_Order = <cfif isdefined('#Order#')>'#Order#'<cfelse>''</cfif>
									WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
									</cfquery>
								 <cfset UpdateDx=0 />
								</cfloop>
								</cfif>
							</cfif>

							<cfif isdefined('M1016updateF')>
							  <cfif #M1016updateF# NEQ "" and M1016updateF NEQ 'undefined'>
								<cfloop index="UpdateOrder" list ='#M1016updateF#' delimiters="!">
								<cfset UpdateDx=0 />
									<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
									<cfset UpdateDx=UpdateDx+1 />
									<cfif UpdateDx EQ 1>
									<cfset UpdateID=#UpdateDescandSkill# />
									</cfif>
									<cfif UpdateDx EQ 2>
									<cfset Order=#UpdateDescandSkill# />
									</cfif>
									</cfloop>
									<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
									UPDATE #Request.prefix_db_agency#.Diagnosis SET Dx_Order = '#Order#'
									WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
									</cfquery>
									<cfset UpdateDx=0 />
								</cfloop>
								</cfif>
							</cfif>

							<cfset Secondcount=0 />
							<cfset Id='' />
							<cfset severity='' />
							<cfset dxorder='' />
							<cfset primary='' />
							<cfset secondary='' />

							<cfif isdefined('M0230updateF')>
							<cfif #M0230updateF# NEQ "" and M0230updateF NEQ 'undefined'>
									<cfloop index="First" list="#M0230updateF#" delimiters="!">
										   <cfset Secondcount=0 />
											<cfloop index="Second1" list="#First#" delimiters="-">
												<cfset Secondcount=Secondcount+1 />
												<cfif Secondcount eq 1>
												<cfset Id=#Second1# />
												</cfif>
												<cfif Secondcount eq 2>
												<cfset severity=#Second1# />
												</cfif>
												<cfif Secondcount eq 3>
												<cfset dxorder=#Second1# />
												</cfif>
												<cfif Secondcount eq 4>
												<cfset primary=#Second1# />
												</cfif>
												<cfif Secondcount eq 5>
												<cfset secondary=#Second1# />
												</cfif>
											</cfloop>
										   <cfoutput>
												<cfquery name="M1020upd" datasource="#Application.DataSrc#">
												UPDATE IGNORE  #Request.prefix_db_agency#.Diagnosis
												 SET Severity='#severity#',Primary_Diagnosis='#primary#',Secondary_Diagnosis='#secondary#',
												Dx_Order = '#dxorder#' where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#Id#
												</cfquery>
										  </cfoutput>
										 <cfset Secondcount=0 />
										<cfset Id='' />
										<cfset severity='' />
										<cfset dxorder='' />
										<cfset primary='' />
										<cfset secondary='' />
							   </cfloop>
						</cfif>
						</cfif>
							
				 </cfif>
			 <cfset response_key={"statusCode"= 200,"statusText"= 'success',"data"= #count# } />
			<cfreturn  response_key >
</cffunction>


	<cffunction name="StartCareUPWound" access="remote" returnformat="plain"  returntype="string">
			<cfargument name="wndtype" required="yes" hint="SOC Step Wound">
			<cfargument name="wndsurr" required="yes" hint="SOC Step Wound">
			<cfargument name="wndchar" required="yes" hint="SOC Step Wound">
			<cfargument name="location" required="yes" hint="SOC Step Wound">
			<cfargument name="stage" required="yes" hint="SOC Step Wound">
			<cfargument name="status" required="yes" hint="SOC Step Wound">
			<cfargument name="lengh1" required="yes" hint="SOC Step Wound">
			<cfargument name="lengh2" required="yes" hint="SOC Step Wound">
			<cfargument name="width1" required="yes" hint="SOC Step Wound">
			<cfargument name="width2" required="yes" hint="SOC Step Wound">
			<cfargument name="depth1" required="yes" hint="SOC Step Wound">
			<cfargument name="depth2" required="yes" hint="SOC Step Wound">
			<cfargument name="notes" required="yes" hint="SOC Step Wound">

			<cfset WS=replace(wndsurr,'!',',','All') />
			<cfset WC=replace(wndchar,'!',',','All') />

			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery  name="InsertPathway" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">

					 INSERT INTO #Request.prefix_db_agency#.Pathway_Details(Agency_ID,Patient_ID,Assessment_ID,Description,Type,Skill,Care_PathWay) VALUES                      ('#session.AgencyId#','#session.cs.patientid#','#session.cs.AssessmentId#','#wndtype#','Wound','SSN','25')

			</cfquery>
							</cfif>
			<cfquery  name="LastPath" datasource="#Application.DataSrc#">
					select LAST_INSERT_ID() as keyvalue
			</cfquery>

				<cfif isdefined('session.cs.AssessmentId')>
		   <cfquery  name="WoundForm1" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="1000">
               INSERT INTO #Request.prefix_db_agency#.PatientVisitDetails
				    			(Wnd_Type,
								Wnd_Location,
								Wnd_Stage,
								Wnd_Status,
								Wnd_Len_1,
								Wnd_Len_2,
								Wnd_Wid_1,
								Wnd_Wid_2,
								Wnd_Dep_1,
								Wnd_Dep_2,
								Wnd_Surr_Tiss,
								Wnd_Chara,
								Notes,
								Agency_ID,
								Patient_ID,
								Assessment_ID,
								Record_Creation_Date,
								Pathway_Details_ID,
								Type)
								values('#wndtype#',
									   '#location#',
									   '#left(stage,100)#',
									   '#status#',
									   '#lengh1#',
									   '#lengh2#',
									   '#width1#',
									   '#width2#',
									   '#depth1#',
									   '#depth2#',
									   '#WS#',
									   '#WC#',
									   '#notes#',
									   '#session.AgencyId#',
									   '#session.cs.patientid#',
									   '#session.cs.AssessmentId#',
									   '#DateFormat(now(),"yyyy-mm-dd")#',
									   '#LastPath.keyvalue#',
									   'Wound')

		   </cfquery>
					</cfif>
					<cfif isdefined('session.cs.AssessmentId')>
		   <cfquery  name="ViewWnd" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="1000">

					SELECT count(DISTINCT Pathway_Details_ID) as CouNt from #Request.prefix_db_agency#.PatientVisitDetails
					where Patient_ID='#session.cs.patientid#' and Assessment_ID='#session.cs.AssessmentId#'
					and Wnd_Location<>'' and Wnd_Type<>'' and trim(Type)='Wound'

		   </cfquery>
		   <cfoutput><cfset cookie.WoundCount='#ViewWnd.CouNt#'></cfoutput>
		   </cfif>
        <cfreturn 'Wound'>
     </cffunction>

	<cffunction  name="StartCareUPVital" access="remote" returnformat="plain"  returntype="string">
			<cfargument name="AssTrackID" required="yes" hint="SOC Step AddVital">
			<cfargument name="Type" required="no" hint="SOC Step AddVital">
			<cfargument name="Reading" required="no" hint="SOC Step AddVital">
			<cfargument name="Severity" required="no" hint="SOC Step AddVital">
			<cfargument name="Notes" required="no" hint="SOC Step AddVital">
	   <cfset patientid= Val(Trim(#session.cs.patientid#))>
       <cfset AssessmentTrackerID= Val(Trim(#AssTrackID#))>
       <cfset AssessmentID= Val(Trim(#session.cs.AssessmentId#))>

	    <!---<cfif isdefined('session.cs.AssessmentId')>
	  <cfquery  name="InsertPathwayvital" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">
				INSERT INTO #Request.prefix_db_agency#.Pathway_Details(Agency_ID,Patient_ID,Assessment_Tracker_ID,Assessment_ID,Description,Type,Record_Creation_Date,Created_By) VALUES ('#Session.AgencyLogin#','#patientid#','#AssessmentTrackerID#','#AssessmentID#','#Type#','vital sign','#DateFormat(now(),"yyyy-mm-dd")#','#session.EmployeeID#')
	   </cfquery>
	   </cfif>
		<cfquery  name="LastPathvital" datasource="#Application.DataSrc#">
				select LAST_INSERT_ID() as keyvalue
		</cfquery>  --->
		<cfif isdefined('session.cs.AssessmentId')>
		   <cfquery  name="patientaddvital" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="1000">

				 INSERT INTO #Request.prefix_db_agency#.PatientVisitDetails(ScheduleItems_ID,Description,Agency_ID,
Patient_ID,Assessment_ID,Assessment_Tracker_ID,Record_Creation_Date,Type,Notes,Reading1<cfif isdefined('Severity')>,Severity</cfif>) VALUES ('#session.cs.ScheduleId#','#Type#','#Session.AgencyLogin#','#patientid#','#AssessmentID#','#AssessmentTrackerID#','#DateFormat(now(),"yyyy-mm-dd")#','vital sign','#Notes#','#Reading#'<cfif isdefined('Severity')>,'#Severity#'</cfif>)
		   </cfquery>
					</cfif>
					<cfquery  name="patientaddvital1" datasource="#Application.DataSrc#">
					select LAST_INSERT_ID() as keyvalue
			     </cfquery>

		<cfreturn 'AddVital'>
    </cffunction>

    <cffunction  name="StartCareUPPain" access="remote" returnformat="plain"  returntype="string">
		<cfargument name="painlevel" required="yes" hint="SOC Step Pain">
		<cfargument name="chkthrobbing" required="yes" hint="SOC Step Pain">
		<cfargument name="radthreshold" required="yes" hint="SOC Step Pain">
		<cfargument name="radscale" required="yes" hint="SOC Step Pain">
		<cfargument name="raddose" required="yes" hint="SOC Step Pain">
		<cfargument name="chkphysical" required="yes" hint="SOC Step Pain">

		<cfset TB=replace(chkthrobbing,'!',',','All') />
		<cfset PC=replace(chkphysical,'!',',','All') />

		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="PainForm" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

				  UPDATE #Request.prefix_db_agency#.Assessment_New SET
				  M0420_Assess='#painlevel#',
				  Pain1='#TB#',
				  Pain2='#radthreshold#',
				  Pain3='#radscale#',
				  Pain4='#raddose#',
				  Pain5='#PC#'
				  Where Assessment_New.Assessment_ID= '#session.cs.AssessmentId#'

		 </cfquery>
			</cfif>
    <cfreturn 'Pain'>
    </cffunction>


	<cffunction  name="StartCareUPRisk" access="remote" returnformat="plain" returntype="string">
			<cfargument name="drlPresureUlcersSensory" required="yes" hint="SOC Step Risk">
			<cfargument name="drlPresureUlcersMoisture" required="yes" hint="SOC Step Risk">
			<cfargument name="drlPresureUlcersActivity" required="yes" hint="SOC Step Risk">
			<cfargument name="drlPresureUlcersMobility" required="yes" hint="SOC Step Risk">
			<cfargument name="drlPresureUlcersNutrition" required="yes" hint="SOC Step Risk">
			<cfargument name="drlPresureUlcersFriction" required="yes" hint="SOC Step Risk">

			<cfif isdefined('session.cs.AssessmentId')>
			 <cfquery  name="RiskForm" datasource="#Application.DataSrc#">
			 <cfsetting requesttimeout="1000">

					UPDATE #Request.prefix_db_agency#.Assessment_New SET
					Braden_1_Sensory='#drlPresureUlcersSensory#',
					Braden_2_Moisture='#drlPresureUlcersMoisture#',
					Braden_3_Activity='#drlPresureUlcersActivity#',
					Braden_4_Mobility='#drlPresureUlcersMobility#',
					Braden_5_Nutrition='#drlPresureUlcersNutrition#',
					Braden_6_Friction='#drlPresureUlcersFriction#'
			  		Where Assessment_New.Assessment_ID= '#session.cs.AssessmentId#'

			</cfquery>
				</cfif>
        <cfreturn 'Risk'>
    </cffunction>


	<cffunction name="StartCareUPFallRisk" access="remote" returnformat="plain" returntype="string">
		<cfargument name="Fall_A" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_B" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_C" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_D" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_E" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_F" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_G" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_H" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_I" required="yes" hint="SOC Step Fall">
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="FallRiskForm" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

				UPDATE #Request.prefix_db_agency#.Assessment_New SET
				Fall_A='#Fall_A#',
				Fall_B='#Fall_B#',
				Fall_C='#Fall_C#',
				Fall_D='#Fall_D#',
				Fall_E='#Fall_E#',
				Fall_F='#Fall_F#',
				Fall_G='#Fall_G#',
				Fall_H='#Fall_H#',
				Fall_I='#Fall_I#'
				Where Assessment_New.Assessment_ID= '#session.cs.AssessmentId#'

		</cfquery>
			</cfif>
        <cfreturn 'fallRisk'>
    </cffunction>


	<cffunction  name="M1010Diagnosis" access="remote" returnformat="plain" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1010 Diagnosis">
		<cfargument name="vcode" required="yes" hint="SOC M1010 Diagnosis">

		<cfset DupDiagnosis="M1010">
		<cfset m02301='#session.cs.AssessmentId#'&' M0190'>

		<cfif isdefined('session.cs.AssessmentId')>
			<cfquery  name="AssID" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">

					Select Assessment_Tracker_ID,Patient_ID,Agency_ID From #Request.prefix_db_agency#.Assessment_New
					where Assessment_ID= '#session.cs.AssessmentId#'

			</cfquery>
			<cfquery  name="new" datasource="#Application.DataSrc#">
     SELECT Assessment_Completed_M0090 FROM #Request.prefix_db_agency#.Assessment_New where Assessment_ID = '#session.cs.AssessmentId#'
        </cfquery>
<cfif new.Assessment_Completed_M0090 gt '2015-09-30'>
		<cfquery  name="M1010fetch" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="30">
				select Diagnosis,ICD,Code_Type,Pathway_Type,Short_Diagnosis from #Request.prefix_db_lookup#.Dx_list_ICD10 WHERE
					Dx_list_ICD10.id=#DiagnosisID#
			</cfquery>
		<cfelse>
			<cfquery  name="M1010fetch" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">

					select Diagnosis,ICD,Code_Type,Pathway_Type,Short_Diagnosis from #Request.prefix_db_lookup#.diagnosis_list WHERE
					diagnosis_list.id=#DiagnosisID#

			</cfquery>
			</cfif>
			<cfset M1010fetchICD_1 = ''>
			<cfset M1010fetchICD_sub = ''>
			<cfset i =1>
			<cfif M1010fetch.ICD contains "." or M1010fetch.ICD neq ".">
			<cfset M1010fetch_ICD = M1010fetch.ICD>
			<!---<cfelse>
			<!---<cfset M1010fetch_ICD = M1010fetch.ICD>--->
			<cfset M1010fetch_ICD = M1010fetch.ICD&'.'&'00'>--->
			<!---<cfelse>
			<cfset M1010fetch_ICD = M1010fetch.ICD>--->
			</cfif>
			<cfloop list="#M1010fetch_ICD#" delimiters="." index="m">
			<cfif i eq 1>
		<cfoutput><cfset M1010fetchICD_1 = #m#></cfoutput>
			</cfif>
			<cfset i =0>
			<cfoutput><cfset M1010fetchICD_sub = #m#></cfoutput>
		</cfloop>

		<!---<cfif len(M1010fetchICD_1) eq 1>
		<cfset M1010fetchICD_1 = '00'&#M1010fetchICD_1#>
		<cfelseif len(M1010fetchICD_1) eq 2>
		<cfset M1010fetchICD_1 = '0'&#M1010fetchICD_1#>
		</cfif>
		<cfif len(M1010fetchICD_sub) eq 1>
		<cfset M1010fetchICD_sub = M1010fetchICD_sub&'0'>
		</cfif>
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#&'.'&#M1010fetchICD_sub#>--->

		<cfif len(M1010fetchICD_1) eq 1>
		<cfset M1010fetchICD_1 = '0'&#M1010fetchICD_1#>
		<cfelseif len(M1010fetchICD_1) eq 2>
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#>
		</cfif>
		<cfif len(M1010fetchICD_sub) eq 1>
		<cfset M1010fetchICD_sub = M1010fetchICD_sub>
		</cfif>

		<cfif M1010fetch.ICD contains ".">
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#&'.'&#M1010fetchICD_sub#>
		</cfif>

			<cfquery  name="M1010count" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">
					select Count(Diagnosis.Diagnosis_ID) as M1010RecordCount from #Request.prefix_db_agency#.Diagnosis where
					Diagnosis.Assessment_ID='#session.cs.AssessmentId#' and Diagnosis.Diagnosis LIKE '%#M1010fetch.Diagnosis#%'
					and M0190_Link LIKE '%#m02301#%'
			</cfquery>
		</cfif>
		<cfif M1010count.M1010RecordCount eq 0>
		<cfquery  name="M1010order" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">
              select Max(Dx_Order)+1 as dxorder_id from #Request.prefix_db_agency#.Diagnosis where
				Diagnosis.Assessment_ID='#session.cs.AssessmentId#'
				and M0190_Link LIKE '%#m02301#%'

		</cfquery>
		<cfset count = 1 >
		<cfif M1010order.dxorder_id  neq ''>
		<cfset count = #M1010order.dxorder_id#>
		</cfif>

		<cfset M1010fetchICD = M1010fetchICD_1>

		<cfif M1010fetchICD contains(".")>

		<cfelse>
			<cfif len(M1010fetchICD) lte "3" >
				<cfset M1010fetchICD = M1010fetchICD>
			</cfif>
		</cfif>
		<cfset M1010fetchICDlen = ''>
		<cfset M1010fetchICDlen = right(M1010fetch.ICD,1)>
		<cfif M1010fetchICDlen eq '.' >
				<cfset M1010fetchICD = M1010fetch.ICD>
		</cfif>
		<cfset ICDV = #left(M1010fetchICD,1)# />
		<cfif new.Assessment_Completed_M0090 gt '2015-09-30' and (ICDV eq 'V' or ICDV eq 'W' or  ICDV eq 'X' or  ICDV eq 'Y' or  ICDV eq 'Z')>
		<cfset DupDiagnosis="M1010NOTAdded" />
		<cfelseif isdefined('session.cs.AssessmentId')>
		<cfif vcode neq '00'>
		<cfquery  name="M1010Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

					INSERT INTO #Request.prefix_db_agency#.Diagnosis(Assessment_ID,Assessment_Tracker_ID, Patient_ID, Agency_ID, Diagnosis, ICD, Code_Type,
					Pathway_Type,Short_Diagnosis,Text_ICD,M0190_Link,Dx_Order) VALUES
					('#session.cs.AssessmentId#','#AssID.Assessment_Tracker_ID#','#AssID.Patient_ID#','#AssID.Agency_ID#',
					'#M1010fetch.Diagnosis#','#vcode#','#M1010fetch.Code_Type#','#M1010fetch.Pathway_Type#',
					'#M1010fetch.Short_Diagnosis#','#vcode#','#m02301#','#count#')

		</cfquery>
		<cfelse>
		<cfquery  name="M1010Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

			INSERT INTO #Request.prefix_db_agency#.Diagnosis(
			Assessment_ID,
			<cfif #AssID.Assessment_Tracker_ID# neq '' or #AssID.Assessment_Tracker_ID# neq 0>Assessment_Tracker_ID,</cfif>            Patient_ID,
			Agency_ID,
			Diagnosis,
			ICD,
			Code_Type,
			Pathway_Type,
			Short_Diagnosis,
			<cfif #M1010fetchICD# neq ''>
			Text_ICD,
			</cfif>
			M0190_Link,
			Dx_Order
			)
			VALUES
			('#session.cs.AssessmentId#',
		<cfif #AssID.Assessment_Tracker_ID# neq '' or #AssID.Assessment_Tracker_ID# neq 0>'#AssID.Assessment_Tracker_ID#',</cfif>            '#AssID.Patient_ID#',
		    '#AssID.Agency_ID#',
			'#M1010fetch.Diagnosis#',
			'#M1010fetchICD#',
			'#M1010fetch.Code_Type#',
			'#M1010fetch.Pathway_Type#',
			'#M1010fetch.Short_Diagnosis#',
			<cfif #M1010fetchICD# neq ''>
			'#M1010fetchICD#',
			</cfif>
			'#m02301#',
			'#count#'
			)

		</cfquery>
		</cfif>

		<cfif new.Assessment_Completed_M0090 gt '2015-09-30' and (ICDV neq 'V' or ICDV neq 'W' or  ICDV neq 'X' or  ICDV neq 'Y' or  ICDV neq 'Z')>
		<cfquery  datasource="#Application.DataSrc#" name="Last_Invoice_ID">
          <cfsetting requesttimeout="30">
	            SELECT LAST_INSERT_ID() as LastInsertID
        </cfquery>
		<cfquery  name="M1010Update" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
			UPDATE #Request.prefix_db_agency#.Diagnosis SET ICD10 = 1 WHERE Diagnosis_ID =#Last_Invoice_ID.LastInsertID#
           </cfquery>
		   </cfif>
		<cfset DupDiagnosis="M1010Added">
		<cfelse>
		<cfset DupDiagnosis="M1010DUP">
		</cfif>
       </cfif>
    <cfreturn DupDiagnosis>
    </cffunction>


	<cffunction  name="M1012Diagnosis" access="remote" returnformat="plain" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1012 Diagnosis">

		<cfset DupDiagnosis="M1012">
		<cfset m02301='#session.cs.AssessmentId#'&' M1012'>

		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="AssID" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

				Select Assessment_Tracker_ID,Patient_ID,Agency_ID From #Request.prefix_db_agency#.Assessment_New
				 where Assessment_ID= '#session.cs.AssessmentId#'
		</cfquery>
			</cfif>


		<!---<cfquery  name="M1012fetch" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			select Diagnosis,ICD,Code_Type,Pathway_Type,Short_Diagnosis from #Request.prefix_db_lookup#.diagnosis_list WHERE
			diagnosis_list.id=#DiagnosisID#

		</cfquery>--->

		<cfquery  name="M1012fetch" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			select s.id,s.CPT,s.Procedure,s.Short_Procedure from #Request.prefix_db_lookup#.surgical_codes s  where id=#DiagnosisID#
		</cfquery>


			<cfif isdefined('session.cs.AssessmentId')>
				<cfquery  name="M1012count" datasource="#Application.DataSrc#">
					<cfsetting requesttimeout="1000">
					select Count(Diagnosis.Diagnosis_ID) as M1012RecordCount from #Request.prefix_db_agency#.Diagnosis where
					Diagnosis.Assessment_ID='#session.cs.AssessmentId#' and Diagnosis.Diagnosis LIKE '%#M1012fetch.Procedure#%'
					and M1012_Link LIKE '%#m02301#%'
				</cfquery>
			</cfif>
				<cfquery  name="new" datasource="#Application.DataSrc#">
     SELECT Assessment_Completed_M0090 FROM #Request.prefix_db_agency#.Assessment_New where Assessment_ID = '#session.cs.AssessmentId#'
</cfquery>
		<cfif M1012count.M1012RecordCount eq 0>
		<cfquery  name="M1012order" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">
              select Max(Dx_Order)+1 as dxorder_id from #Request.prefix_db_agency#.Diagnosis where
				Diagnosis.Assessment_ID='#session.cs.AssessmentId#'
				and M1012_Link LIKE '%#m02301#%'

		</cfquery>
		
		<cfset count = 1 >
		<cfif M1012count.dxorder_id  neq ''>
		<cfset count = #M1012count.dxorder_id#>
		</cfif>

					<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="M1012Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
				INSERT INTO  #Request.prefix_db_agency#.Diagnosis  (Assessment_ID, Assessment_Tracker_ID, Patient_ID, Agency_ID, Diagnosis,ICD,
				Code_Type,Text_ICD,M1012_Link,Dx_Order)
				VALUES
				('#session.cs.AssessmentId#', '#AssID.Assessment_Tracker_ID#', '#AssID.Patient_ID#', '#AssID.Agency_ID#', '#M1012fetch.Procedure#', '#M1012fetch.CPT#',
				 'CPT','#M1012fetch.CPT#','#m02301#','#count#')

		</cfquery>
			</cfif>
			<cfif new.Assessment_Completed_M0090 gt '2015-09-30'>
		<cfquery  datasource="#Application.DataSrc#" name="Last_Invoice_ID">
          <cfsetting requesttimeout="30">
	            SELECT LAST_INSERT_ID() as LastInsertID
        </cfquery>
		<cfquery  name="M1010Update" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
			UPDATE #Request.prefix_db_agency#.Diagnosis SET ICD10 = 1 WHERE Diagnosis_ID =#Last_Invoice_ID.LastInsertID#
           </cfquery>
		   </cfif>
		<cfset DupDiagnosis="M1012Added">
		<cfelse>
		<cfset DupDiagnosis="M1012DUP">
		</cfif>

    <cfreturn DupDiagnosis>
    </cffunction>

	<cffunction name="M1016Diagnosis" access="remote" returnformat="plain" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1016 Diagnosis">
		<cfargument name="vcode" required="yes" hint="SOC M1016 Diagnosis">

		<cfset DupDiagnosis="M1016">
		<cfset m02301='#session.cs.AssessmentId#'&' M0210'>

		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="AssID" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

				Select Assessment_Tracker_ID,Patient_ID,Agency_ID From #Request.prefix_db_agency#.Assessment_New
				where Assessment_ID= '#session.cs.AssessmentId#'

		</cfquery>
		</cfif>
		<cfquery  name="new" datasource="#Application.DataSrc#">
     SELECT Assessment_Completed_M0090 FROM #Request.prefix_db_agency#.Assessment_New where Assessment_ID = '#session.cs.AssessmentId#'
        </cfquery>
		<cfif new.Assessment_Completed_M0090 gt '2015-09-30'>
		<cfquery  name="M1016fetch" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="30">
				select Diagnosis,ICD,Code_Type,Pathway_Type,Short_Diagnosis from #Request.prefix_db_lookup#.Dx_list_ICD10 WHERE
					Dx_list_ICD10.id=#DiagnosisID#
			</cfquery>
		<cfelse>
		<cfquery  name="M1016fetch" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
				select Diagnosis,ICD,Code_Type,Pathway_Type,Short_Diagnosis from #Request.prefix_db_lookup#.diagnosis_list WHERE
				diagnosis_list.id=#DiagnosisID#
		</cfquery>
		</cfif>
		<cfset M1010fetchICD_1 = ''>
			<cfset M1010fetchICD_sub = ''>
			<cfset i =1>
			<cfif M1016fetch.ICD contains "." or M1016fetch.ICD neq ".">
			<cfset M1010fetch_ICD = M1016fetch.ICD>
			<!---<cfelse>
			<cfset M1010fetch_ICD = M1016fetch.ICD&'.'&'00'>--->
			</cfif>
			<cfloop list="#M1010fetch_ICD#" delimiters="." index="m">
			<cfif i eq 1>
		<cfoutput><cfset M1010fetchICD_1 = #m#></cfoutput>
			</cfif>
			<cfset i =0>
			<cfoutput><cfset M1010fetchICD_sub = #m#></cfoutput>
		</cfloop>

		<!---<cfif len(M1010fetchICD_1) eq 1>
		<cfset M1010fetchICD_1 = '00'&#M1010fetchICD_1#>
		<cfelseif len(M1010fetchICD_1) eq 2>
		<cfset M1010fetchICD_1 = '0'&#M1010fetchICD_1#>
		</cfif>
		<cfif len(M1010fetchICD_sub) eq 1>
		<cfset M1010fetchICD_sub = M1010fetchICD_sub&'0'>
		</cfif>--->

		<cfif len(M1010fetchICD_1) eq 1>
		<cfset M1010fetchICD_1 = '0'&#M1010fetchICD_1#>
		<cfelseif len(M1010fetchICD_1) eq 2>
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#>
		</cfif>
		<cfif len(M1010fetchICD_sub) eq 1>
		<cfset M1010fetchICD_sub = M1010fetchICD_sub>
		</cfif>

		<cfif M1016fetch.ICD contains ".">
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#&'.'&#M1010fetchICD_sub#>
		</cfif>
		<cfset M1016fetchICDlen = ''>
		<cfset M1016fetchICDlen = right(M1016fetch.ICD,1)>
		<cfif M1016fetchICDlen eq '.' >
				<cfset M1010fetchICD_1 = M1016fetch.ICD>
		</cfif>
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="M1016count" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

				select Count(Diagnosis.Diagnosis_ID) as M1016RecordCount from #Request.prefix_db_agency#.Diagnosis where
				Diagnosis.Assessment_ID='#session.cs.AssessmentId#' and Diagnosis.Diagnosis LIKE '%#M1016fetch.Diagnosis#%'
				and M0210_Link LIKE '%#m02301#%'

		</cfquery>
			</cfif>
		<cfif M1016count.M1016RecordCount eq 0>
		<cfset count = 1>

		<cfset ICDV = #left(M1010fetchICD_1,1)# />
		<cfif new.Assessment_Completed_M0090 gt '2015-09-30' and (ICDV eq 'V' or ICDV eq 'W' or  ICDV eq 'X' or  ICDV eq 'Y' or  ICDV eq 'Z')>
		<cfset DupDiagnosis="M1016NOTAdded" />
		<cfelseif isdefined('session.cs.AssessmentId')>
		<cfif vcode neq '00'>
		<cfquery  name="M1016Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

		INSERT INTO #Request.prefix_db_agency#.Diagnosis(Assessment_ID,Assessment_Tracker_ID,Patient_ID,Agency_ID,Diagnosis,ICD,Code_Type,Pathway_Type,
					Short_Diagnosis,Text_ICD,M0210_Link,Dx_Order) VALUES
					('#session.cs.AssessmentId#','#AssID.Assessment_Tracker_ID#','#AssID.Patient_ID#','#AssID.Agency_ID#',
					'#M1016fetch.Diagnosis#','#vcode#','#M1016fetch.Code_Type#','#M1016fetch.Pathway_Type#',
					'#M1016fetch.Short_Diagnosis#','#vcode#','#m02301#','#count#')

		</cfquery>
		<cfelse>
		<cfquery  name="M1016Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

		INSERT INTO #Request.prefix_db_agency#.Diagnosis(Assessment_ID,Assessment_Tracker_ID,Patient_ID,Agency_ID,Diagnosis,ICD,Code_Type,Pathway_Type,
					Short_Diagnosis,Text_ICD,M0210_Link,Dx_Order) VALUES
					('#session.cs.AssessmentId#','#AssID.Assessment_Tracker_ID#','#AssID.Patient_ID#','#AssID.Agency_ID#',
					'#M1016fetch.Diagnosis#','#M1010fetchICD_1#','#M1016fetch.Code_Type#','#M1016fetch.Pathway_Type#',
					'#M1016fetch.Short_Diagnosis#','#M1010fetchICD_1#','#m02301#','#count#')

		</cfquery>
		</cfif>
		<cfif new.Assessment_Completed_M0090 gt '2015-09-30'>
		<cfquery  datasource="#Application.DataSrc#" name="Last_Invoice_ID">
          <cfsetting requesttimeout="30">
	            SELECT LAST_INSERT_ID() as LastInsertID
        </cfquery>
		<cfquery  name="M1010Update" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
			UPDATE #Request.prefix_db_agency#.Diagnosis SET ICD10 = 1 WHERE Diagnosis_ID =#Last_Invoice_ID.LastInsertID#
           </cfquery>
		   </cfif>
		<cfset DupDiagnosis="M1016Added">
		<cfelse>
		<cfset DupDiagnosis="M1016DUP">
		</cfif>
       </cfif>
    <cfreturn DupDiagnosis>
    </cffunction>

	<cffunction  name="M0230Diagnosis" access="remote" returnformat="plain" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="M0230Primary" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="M0230Secondary" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="M0230Severity" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="M0230Onset" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="vcodediag" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="vcodeicd" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="typecode" required="yes" hint="SOC M0230 Diagnosis">

		<cfset DupDiagnosis="M0230">
		<cfset m02301='#session.cs.AssessmentId#'&' M0230'>

		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="AssID" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
				Select Assessment_Tracker_ID,Patient_ID,Agency_ID From #Request.prefix_db_agency#.Assessment_New
				where Assessment_ID= '#session.cs.AssessmentId#'
		</cfquery>
			</cfif>
			<cfquery  name="new" datasource="#Application.DataSrc#">
     SELECT Assessment_Completed_M0090 FROM #Request.prefix_db_agency#.Assessment_New where Assessment_ID = '#session.cs.AssessmentId#'
        </cfquery>
		<cfif new.Assessment_Completed_M0090 gte '2019-11-01'>
              <cfset diag = CreateObject("Component", "components.diagnosis") />	
              <cfset M0230fetch = diag.get_diagnosis_ID(DiagnosisID="#arguments.DiagnosisID#") />
        <cfelse>
                <cfquery  name="M0230fetch" datasource="#Application.DataSrc#">
                <cfsetting requesttimeout="1000">
                    select Diagnosis,ICD,Code_Type,Pathway_Type,Short_Diagnosis,Other_DG from #Request.prefix_db_lookup#.Dx_list_ICD10 WHERE
                            Dx_list_ICD10.id=#DiagnosisID#
                </cfquery>
		</cfif>
		<cfset M1010fetchICD_1 = ''>
			<cfset M1010fetchICD_sub = ''>
			<cfset i =1>
			<cfif M0230fetch.ICD contains "." or M0230fetch.ICD neq ".">
			<cfset M1010fetch_ICD = M0230fetch.ICD>
			<!---<cfelse>
			<cfset M1010fetch_ICD = M0230fetch.ICD&'.'&'00'>--->
			</cfif>
			<cfloop list="#M1010fetch_ICD#" delimiters="." index="m">
			<cfif i eq 1>
		<cfoutput><cfset M1010fetchICD_1 = #m#></cfoutput>
			</cfif>
			<cfset i =0>
			<cfoutput><cfset M1010fetchICD_sub = #m#></cfoutput>
		</cfloop>
		<!---<cfif len(M1010fetchICD_1) eq 1>
		<cfset M1010fetchICD_1 = '00'&#M1010fetchICD_1#>
		<cfelseif len(M1010fetchICD_1) eq 2>
		<cfset M1010fetchICD_1 = '0'&#M1010fetchICD_1#>
		</cfif>
		<cfif len(M1010fetchICD_sub) eq 1>
		<cfset M1010fetchICD_sub = M1010fetchICD_sub&'0'>
		</cfif>	--->
		<cfif len(M1010fetchICD_1) eq 1>
		<cfset M1010fetchICD_1 = '0'&#M1010fetchICD_1#>
		<cfelseif len(M1010fetchICD_1) eq 2>
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#>
		</cfif>
		<cfif len(M1010fetchICD_sub) eq 1>
		<cfset M1010fetchICD_sub = M1010fetchICD_sub>
		</cfif>

		<cfif M0230fetch.ICD contains ".">
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#&'.'&#M1010fetchICD_sub#>
		</cfif>

		<cfset strlen = len(#M0230fetch.Diagnosis#)>

		<cfif isdefined('session.cs.AssessmentId')>
			<cfquery  name="M0230count" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">
	              select Count(Diagnosis.Diagnosis_ID) as M0230RecordCount from #Request.prefix_db_agency#.Diagnosis where
					Diagnosis.Assessment_ID='#session.cs.AssessmentId#' and Diagnosis.Diagnosis LIKE '%#M0230fetch.Diagnosis#%'
					and M0230_Link LIKE '%#m02301#%' AND Disabled != 1
			</cfquery>
			</cfif>

		<cfif M0230count.M0230RecordCount eq 0>
			<cfset M0230fetchICD= M1010fetchICD_1>
			<cfquery  name="get_order" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">
	              select Max(Dx_Order)+1 as dxorder_id from #Request.prefix_db_agency#.Diagnosis where
					Diagnosis.Assessment_ID='#session.cs.AssessmentId#'
					and M0230_Link LIKE '%#m02301#%'
			</cfquery>
			<cfset count =  1 >
			<cfif get_order.dxorder_id neq ''>
			<cfset count = #get_order.dxorder_id#>
			</cfif>

			<cfif M0230fetchICD contains(".")>

			<cfelse>
				<cfif len(M0230fetchICD) lte "3" >
					<!---<cfset M0230fetchICD = M0230fetchICD & ".00">--->
					<cfset M0230fetchICD = M0230fetchICD>
				</cfif>
			</cfif>

			<cfset M0230fetchICDlen = ''>
			<cfset M0230fetchICDlen = right(M0230fetch.ICD,1)>
			<cfif M0230fetchICDlen eq '.' >
			<cfset M0230fetchICD =M0230fetch.ICD>
			</cfif>
		<cfset ICDV = #left(M0230fetchICD,1)# />
			<cfif new.Assessment_Completed_M0090 gt '2015-09-30' and  #M0230Primary# eq 1 and (ICDV eq 'V' or ICDV eq 'W' or  ICDV eq 'X' or  ICDV eq 'Y')>
				<cfset DupDiagnosis="M0230NOTAdded" />
			<cfelseif isdefined('session.cs.AssessmentId')>
			    <cfif #M0230fetch.Code_Type# eq 'V_Code'>
					<cfquery  name="M0230Insert" datasource="#Application.DataSrc#">
						<cfsetting requesttimeout="1000">
						INSERT INTO #Request.prefix_db_agency#.Diagnosis(Assessment_ID,Assessment_Tracker_ID,Patient_ID,Agency_ID,Diagnosis,ICD,Code_Type,Pathway_Type,
						Short_Diagnosis,Text_ICD,M0230_Link,Severity,Primary_Diagnosis,Secondary_Diagnosis,Dx_Order,DG_Type,M0245a_Diagnosis,M0245_ICD) VALUES
						('#session.cs.AssessmentId#','#AssID.Assessment_Tracker_ID#','#AssID.Patient_ID#',
						'#AssID.Agency_ID#','#M0230fetch.Diagnosis#','#M0230fetchICD#','#M0230fetch.Code_Type#','#M0230fetch.Pathway_Type#',
						'#M0230fetch.Short_Diagnosis#','#typecode#','#m02301#','#M0230Severity#','#M0230Primary#',
						'#M0230Secondary#','#count#','#M0230fetch.Other_DG#','#vcodediag#','#vcodeicd#')
						</cfquery>
						<!---'#typecode#'--->
						<cfelse>
						<cfquery  name="M0230Insert" datasource="#Application.DataSrc#">
						<cfsetting requesttimeout="1000">
						INSERT INTO #Request.prefix_db_agency#.Diagnosis(
						Assessment_ID,
						<cfif #AssID.Assessment_Tracker_ID# neq '' or #AssID.Assessment_Tracker_ID# neq 0>Assessment_Tracker_ID,</cfif>        Patient_ID,
						Agency_ID,
						Diagnosis,
						ICD,
						Code_Type,
						Pathway_Type,
						Short_Diagnosis,
						Text_ICD,
						M0230_Link,
						Severity,
						Primary_Diagnosis,
						Secondary_Diagnosis,
						Dx_Order,
						DG_Type
						<cfif #vcodediag# neq ''>
						,M0245a_Diagnosis
						</cfif>
						<cfif #vcodeicd# neq ''>
						,M0245_ICD
						</cfif>
						)
						VALUES
						('#session.cs.AssessmentId#',
						<cfif #AssID.Assessment_Tracker_ID# neq '' or #AssID.Assessment_Tracker_ID# neq 0>'#AssID.Assessment_Tracker_ID#',</cfif>        '#AssID.Patient_ID#',
						'#AssID.Agency_ID#',
						'#M0230fetch.Diagnosis#',
						'#M0230fetchICD#',
						'#M0230fetch.Code_Type#',
						'#M0230fetch.Pathway_Type#',
						'#M0230fetch.Short_Diagnosis#',
						'#M0230fetchICD#',
						'#m02301#',
						'#M0230Severity#',
						'#M0230Primary#',
						'#M0230Secondary#',
						'#count#',
						'#M0230fetch.Other_DG#'
						<cfif #vcodediag# neq ''>
						,'#vcodediag#'
						</cfif>
						<cfif #vcodeicd# neq ''>
						,'#vcodeicd#'
						</cfif>
						)
					</cfquery>
				</cfif>

				<cfif new.Assessment_Completed_M0090 gt '2015-09-30'>
					<cfquery  datasource="#Application.DataSrc#" name="Last_Invoice_ID">
			          <cfsetting requesttimeout="30">
				            SELECT LAST_INSERT_ID() as LastInsertID
			        </cfquery>
					<cfquery  name="M1010Update" datasource="#Application.DataSrc#">
					<cfsetting requesttimeout="30">
						UPDATE #Request.prefix_db_agency#.Diagnosis SET ICD10 = 1 WHERE Diagnosis_ID =#Last_Invoice_ID.LastInsertID#
			        </cfquery>
				</cfif>
					<cfset DupDiagnosis="M0230Added">
			</cfif>	
		<cfelse>
			<cfset DupDiagnosis="M0230DUP">
		</cfif>

    <cfreturn DupDiagnosis>
    </cffunction>


	<cffunction  name="M1010Delete" access="remote" returnformat="plain" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1010 Diagnosis Delete">
		<cfargument name="M1010update" required="yes" hint="SOC M1010 Diagnosis Update">

		<cfquery  name="M1010Delete" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			 delete from #Request.prefix_db_agency#.Diagnosis where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#DiagnosisID#
		</cfquery>

		<cfloop index="UpdateOrder" list ='#M1010update#' delimiters="!">
			<cfset UpdateDx=0>
			<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
			<cfset UpdateDx=UpdateDx+1>
			<cfif UpdateDx EQ 1>
			<cfset UpdateID=#UpdateDescandSkill#>
			</cfif>
			<cfif UpdateDx EQ 2>
			<cfset Order=#UpdateDescandSkill#>
			</cfif>
			</cfloop>

			<cfif IsNumeric(Order)>
				<cfif isdefined('session.cs.AssessmentId')>
					<cfquery  name="UpdateDxOrder" datasource="#Application.DataSrc#">
						<cfsetting requesttimeout="1000">
						UPDATE #Request.prefix_db_agency#.Diagnosis SET Dx_Order = '#Order#'
						WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
					</cfquery>
					<cfquery  name="geticd" datasource="#Application.DataSrc#">
					select ICD from #Request.prefix_db_agency#.Diagnosis where assessment_id=#session.cs.AssessmentId# and Dx_Order = '#Order#'
					</cfquery>
					<cfif Order eq 1>
							<cfquery  name="primary" datasource="#Application.DataSrc#">
							 update #Request.prefix_db_agency#.Assessment_New set HHRG_175_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
							</cfquery>
						<cfelseif Order eq 2>
							<cfquery  name="secondary" datasource="#Application.DataSrc#">
							 update #Request.prefix_db_agency#.Assessment_New set HHRG_230_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
							</cfquery>
						<cfelseif Order eq 3>
							<cfquery  name="third" datasource="#Application.DataSrc#">
							 update #Request.prefix_db_agency#.Assessment_New set HHRG_250_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
							</cfquery>
						<cfelseif Order eq 4>
							<cfquery  name="fourth" datasource="#Application.DataSrc#">
							 update #Request.prefix_db_agency#.Assessment_New set HHRG_390_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
							</cfquery>
						<cfelseif Order eq 5>
							<cfquery  name="fifth" datasource="#Application.DataSrc#">
							 update #Request.prefix_db_agency#.Assessment_New set HHRG_420_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
							</cfquery>
						<cfelseif Order eq 6>
							<cfquery  name="sixth" datasource="#Application.DataSrc#">
							 update #Request.prefix_db_agency#.Assessment_New set HHRG_440_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
							</cfquery>
					 </cfif>
				</cfif>
			</cfif>

		<cfset UpdateDx=0>
		</cfloop>

    <cfreturn 'M1010Delete'>
    </cffunction>

	<cffunction  name="M1012Delete" access="remote" returnformat="plain" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1012 Diagnosis Delete">
		<cfargument name="M1012update" required="yes" hint="SOC M1012 Diagnosis Update">

			<cfif isdefined('session.cs.AssessmentId')>
				<cfquery  name="M1012Delete" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
					 delete from #Request.prefix_db_agency#.Diagnosis where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#DiagnosisID#
				</cfquery>
			</cfif>

		<cfloop index="UpdateOrder" list ='#M1012update#' delimiters="!">
			<cfset UpdateDx=0>
			<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
			<cfset UpdateDx=UpdateDx+1>
			<cfif UpdateDx EQ 1>
			<cfset UpdateID=#UpdateDescandSkill#>
			</cfif>
			<cfif UpdateDx EQ 2>
			<cfset Order=#UpdateDescandSkill#>
			</cfif>
			</cfloop>

			<cfif IsNumeric(Order)>

							<cfif isdefined('session.cs.AssessmentId')>
			<cfquery  name="UpdateDxOrder" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">

					UPDATE #Request.prefix_db_agency#.Diagnosis SET Dx_Order = '#Order#'
					WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#

			</cfquery>
							</cfif>
							</cfif>

		<cfset UpdateDx=0>
		</cfloop>

    <cfreturn 'M1012Delete'>
    </cffunction>

	<cffunction  name="M1016Delete" access="remote" returnformat="plain" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1016 Diagnosis Delete">
		<cfargument name="M1016update" required="yes" hint="SOC M1016 Diagnosis Update">

			<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="M1016Delete" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

			 delete from #Request.prefix_db_agency#.Diagnosis where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#DiagnosisID#

		</cfquery>
			</cfif>

		<cfloop index="UpdateOrder" list ='#M1016update#' delimiters="!">
			<cfset UpdateDx=0>
			<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
			<cfset UpdateDx=UpdateDx+1>
			<cfif UpdateDx EQ 1>
			<cfset UpdateID=#UpdateDescandSkill#>
			</cfif>
			<cfif UpdateDx EQ 2>
			<cfset Order=#UpdateDescandSkill#>
			</cfif>
			</cfloop>

						<cfif IsNumeric(Order)>

			<cfif isdefined('session.cs.AssessmentId')>
				<cfquery  name="UpdateDxOrder" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
					UPDATE #Request.prefix_db_agency#.Diagnosis SET Dx_Order = '#Order#'
					WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
				</cfquery>

			</cfif>
			</cfif>
		<cfset UpdateDx=0>
		</cfloop>

    <cfreturn 'M1016Delete'>
    </cffunction>

	<cffunction  name="M0230Delete" access="remote" returnformat="plain" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M0230 Diagnosis Delete">
		<cfargument name="M0230update" required="yes" hint="SOC M0230 Diagnosis Update">

			<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="M0230Delete" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">
				 <!--- delete from #Request.prefix_db_agency#.Diagnosis where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#DiagnosisID# --->
				UPDATE #Request.prefix_db_agency#.Diagnosis SET Disabled=1 WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#DiagnosisID#
		</cfquery>
			</cfif>

		<cfset secondary= ''>
		<cfset primary= ''>
		<cfset dxorder= ''>
		<cfset severity= ''>
		<cfset Id= ''>

		<cfloop index="First" list="#M0230update#" delimiters="!">
		<cfset Secondcount=0>
		<cfloop index="Second1" list="#First#" delimiters="-">
		<cfset Secondcount=Secondcount+1>
		<cfif Secondcount eq 1>
		<cfset Id=#Second1#>
		</cfif>
		<cfif Secondcount eq 2>
		<cfset severity=#Second1#>
		</cfif>
		<cfif Secondcount eq 3>
		<cfset dxorder=#Second1#>
		</cfif>
		<cfif Secondcount eq 4>
		<cfset primary=#Second1#>
		</cfif>
		<cfif Secondcount eq 5>
		<cfset secondary=#Second1#>
		</cfif>
		</cfloop>

		<cfoutput>
				<cfif isdefined('session.cs.AssessmentId')>
					<cfquery  name="M1020upd" datasource="#Application.DataSrc#">
					<cfsetting requesttimeout="1000">
					UPDATE IGNORE  #Request.prefix_db_agency#.Diagnosis SET Severity = '#severity#',Primary_Diagnosis = '#primary#',Secondary_Diagnosis = '#secondary#',
					Dx_Order = '#dxorder#' where Assessment_ID = '#session.cs.AssessmentId#' and Diagnosis_ID= '#Id#'
					</cfquery>
				</cfif>
		</cfoutput>
		<cfset Secondcount=0>
		<cfset Id=''>
		<cfset severity=''>
		<cfset dxorder=''>
		<cfset primary=''>
		<cfset secondary=''>
		</cfloop>

    <cfreturn 'M0230Delete'>
    </cffunction>



	<cffunction  name="WoundDelete" access="remote" returnformat="plain" returntype="string">
		<cfargument name="WoundID" required="yes" hint="SOC Wound Delete">

		<cfquery  name="WoundDelete" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			   delete from #Request.prefix_db_agency#.PatientVisitDetails where Progress_Details_ID='#WoundID#'
		</cfquery>

		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="ViewWnd" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

				SELECT count(DISTINCT Pathway_Details_ID) as CouNt from #Request.prefix_db_agency#.PatientVisitDetails
				where Patient_ID='#session.cs.patientid#' and Assessment_ID='#session.cs.AssessmentId#'
				and Wnd_Location<>'' and Wnd_Type<>'' and trim(Type)='Wound'

		   </cfquery>
		</cfif>

		<cfoutput><cfset cookie.WoundCount='#ViewWnd.CouNt#'></cfoutput>

    <cfreturn 'WoundDel'>
    </cffunction>



	<cffunction  name="Medication" access="remote" returnformat="plain" returntype="string">
		<cfargument name="tradeid" required="yes" hint="SOC Medication">
		<cfargument name="doseid" required="yes" hint="SOC Medication">

		 <cfquery  name="MDose" datasource="#Application.DataSrc#">
		 <cfsetting requesttimeout="1000">
		 SELECT Dose FROM #Request.prefix_db_lookup#.Meds_New_Dose WHERE Dose_ID='#doseid#'
		 </cfquery>
		 <cfquery  name="MName" datasource="#Application.DataSrc#">
		 <cfsetting requesttimeout="1000">
		 SELECT Name FROM #Request.prefix_db_lookup#.Meds_New WHERE Trade_ID='#tradeid#'
		 </cfquery>

		 <cfif MDose.Dose NEQ '' and MName.Name NEQ ''>
		 <cfquery  name="Insertpatientmeds" datasource="#Application.DataSrc#">
		 <cfsetting requesttimeout="1000">
		 INSERT INTO #Request.prefix_db_agency#.PatientMeds(Patient_ID,Medication_ID,Drug_Name,Dose,DateOrdered,Med_Status) VALUES
				('#session.cs.patientid#','#tradeid#','#MName.Name#','#MDose.Dose#',CURDATE(),'active')
		 </cfquery>
		 </cfif>

    <cfreturn 'AMedication'>
    </cffunction>

	<cffunction  name="MedicationOwn1" access="remote" returnformat="plain" returntype="string">
		<cfargument name="typeown1" required="yes" hint="SOC Medication">


		<cfif typeown1 EQ '????'>
		<cfquery  name="Insertpatientmeds" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
		   INSERT INTO #Request.prefix_db_agency#.PatientMeds(Patient_ID,Drug_Name,DateOrdered) VALUES ('#session.cs.patientid#','????',CURDATE())
		</cfquery>
		</cfif>

    <cfreturn 'ATypeOwn1'>
    </cffunction>


	<cffunction  name="MedicationOwn2" access="remote" returnformat="plain" returntype="string">
		<cfargument name="tradeid" required="yes" hint="SOC Medication">

		<cfif tradeid NEQ ''>
	       <cfquery  name="TypeMName" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="1000">
			 SELECT Name FROM #Request.prefix_db_lookup#.Meds_New WHERE Trade_ID='#tradeid#'
		   </cfquery>
		   <cfquery  name="InsertTypepatientmeds" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="1000">
			 INSERT INTO #Request.prefix_db_agency#.PatientMeds(Patient_ID,Medication_ID,Drug_Name,DateOrdered,Med_Status) VALUES
					('#session.cs.patientid#','#tradeid#','#TypeMName.Name#',CURDATE(),'active')
		   </cfquery>
	    </cfif>

    <cfreturn 'ATypeOwn2'>
    </cffunction>


	<cffunction  name="UpMedication" access="remote" returnformat="plain" returntype="string">
		<cfargument name="hdnPatientMedsID" required="yes" hint="SOC Update Medication">
		<cfargument name="hdnPatientMedsUpdate" required="yes" hint="SOC Update Medication">
		<cfargument name="hdnPatientMedsInsert" required="yes" hint="SOC Update Medication">

		<cfif isdefined('hdnPatientMedsID') and isdefined('hdnPatientMedsInsert') and isdefined('hdnPatientMedsUpdate')>

		<cfif hdnPatientMedsID neq ''>
		<cfquery  name="DeletePatientMedsID" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
		delete from #Request.prefix_db_agency#.PatientMeds where Patient_ID='#session.cs.patientid#' and PatientMeds_ID not in(#hdnPatientMedsID#)
		</cfquery>
		</cfif>

		<cfif hdnPatientMedsUpdate NEQ "">
		<cfloop index="ContentUpdate" list ='#hdnPatientMedsUpdate#' delimiters=",">

		<cfset Medscount=0>
		<cfloop index="PatientMedsUpdate" list=#ContentUpdate# delimiters="*~*">
		<cfset Medscount=Medscount+1>


		<cfif Medscount EQ 1>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset Pmedid=''>
		<cfelse>
		<cfset Pmedid=#PatientMedsUpdate#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 2>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PName=''>
		<cfelse>
		<cfset PName=#PatientMedsUpdate#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 3>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PDose=''>
		<cfelse>
		<cfset PDose=#PatientMedsUpdate#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 4>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PUnitType=''>
		<cfelse>
		<cfset PUnitType=#PatientMedsUpdate#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 5>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PRoute=''>
		<cfelse>
		<cfset PRoute=#PatientMedsUpdate#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 6>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PFreq=''>
		<cfelse>
		<cfset PFreq=#PatientMedsUpdate#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 7>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PNotes=''>
		<cfelse>
		<cfset PNotes=#PatientMedsUpdate#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 8>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset POrdered=''>
		<cfelse>
		<cfset POrdered=#PatientMedsUpdate#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 9>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PDiscontinued=''>
		<cfelse>
		<cfset PDiscontinued=#PatientMedsUpdate#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 10>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PTnewChange=''>
		<cfelse>
		<cfset PTnewChange=#PatientMedsUpdate#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 11>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset Pactive=''>
		<cfelse>
		<cfset Pactive=#PatientMedsUpdate#>
		</cfif>
		</cfif>
		</cfloop>
        <cfif POrdered eq 'undefined'><cfset POrdered=''></cfif>
        <cfif PDiscontinued eq 'undefined'><cfset PDiscontinued=''></cfif>
		<cfquery  name="UpdatePatientMeds" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
		UPDATE #Request.prefix_db_agency#.PatientMeds SET Notes='#PNotes#',Med_Status='#Pactive#',DateOrdered=<cfif POrdered EQ ''>NULL<cfelse>
		'#DateFormat(POrdered,"yyyy-mm-dd")#'</cfif>,Dose='#PDose#',Route='#PRoute#', Freq='#PFreq#',Drug_Name='#PName#',
		DateDCed=<cfif PDiscontinued EQ ''>NULL<cfelse>'#DateFormat(PDiscontinued,"yyyy-mm-dd")#'</cfif>
		,Dose_Units='#PUnitType#',NewChanged='#PTnewChange#' WHERE Patient_ID='#session.cs.patientid#' and
		PatientMeds_ID='#Pmedid#'
		</cfquery>
		<cfset Medscount=0>
		</cfloop>
		</cfif>

		<cfif hdnPatientMedsInsert NEQ "00*~*00*~*00*~*00*~*00*~*00*~*00*~*00*~*00*~*00*~*active" and hdnPatientMedsInsert NEQ ''>
		<cfloop index="ContentInsert" list ='#hdnPatientMedsInsert#' delimiters=",">
		<cfif ContentInsert NEQ "00*~*00*~*00*~*00*~*00*~*00*~*00*~*00*~*00*~*00*~*active">
		<cfset Medscount=0>
		<cfloop index="PatientMedsInsert" list=#ContentInsert# delimiters="*~*">
		<cfset Medscount=Medscount+1>


		<cfif Medscount EQ 1>
		<cfif PatientMedsInsert EQ '00'>
		<cfset Pmedid=''>
		<cfelse>
		<cfset Pmedid=#PatientMedsInsert#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 2>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PName=''>
		<cfelse>
		<cfset PName=#PatientMedsInsert#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 3>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PDose=''>
		<cfelse>
		<cfset PDose=#PatientMedsInsert#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 4>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PUnitType=''>
		<cfelse>
		<cfset PUnitType=#PatientMedsInsert#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 5>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PRoute=''>
		<cfelse>
		<cfset PRoute=#PatientMedsInsert#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 6>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PFreq=''>
		<cfelse>
		<cfset PFreq=#PatientMedsInsert#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 7>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PNotes=''>
		<cfelse>
		<cfset PNotes=#PatientMedsInsert#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 8>
		<cfif PatientMedsInsert EQ '00'>
		<cfset POrdered=''>
		<cfelse>
		<cfset POrdered=#PatientMedsInsert#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 9>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PDiscontinued=''>
		<cfelse>
		<cfset PDiscontinued=#PatientMedsInsert#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 10>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PTnewChange=''>
		<cfelse>
		<cfset PTnewChange=#PatientMedsInsert#>
		</cfif>
		</cfif>

		<cfif Medscount EQ 11>
		<cfif PatientMedsInsert EQ '00'>
		<cfset Pactive=''>
		<cfelse>
		<cfset Pactive=#PatientMedsInsert#>
		</cfif>
		</cfif>
		</cfloop>


		<cfquery  name="InsertPatientMeds" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
		INSERT INTO #Request.prefix_db_agency#.PatientMeds(Patient_ID,Notes,Med_Status,DateOrdered,Dose,Route,Freq,Drug_Name,DateDCed,Dose_Units,NewChanged)
		VALUES ('#session.cs.patientid#','#PNotes#','#Pactive#',<cfif POrdered EQ ''>NULL<cfelse>'#DateFormat(POrdered,"yyyy-mm-dd")#'
		</cfif>,'#PDose#','#PRoute#','#PFreq#','#PName#',<cfif PDiscontinued EQ ''>NULL<cfelse>
		'#DateFormat(PDiscontinued,"yyyy-mm-dd")#'</cfif>,'#PUnitType#','#PTnewChange#')
		</cfquery>

		<cfset Medscount=0>
		</cfif>
		</cfloop>
		</cfif>



		</cfif>



    <cfreturn 'AUpMedication'>
    </cffunction>


	<cffunction  name="WoundAutoFill" access="remote" returnformat="plain" returntype="string">

	    <cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="Assessment_Details" datasource="#Application.DataSrc#" timeout="1000">
				SELECT  Patient_ID,Agency_Id,Assessment_Tracker_ID,Assessment_Reason_M0100,Discharged_From_M0175,
				Assessment_Completed_M0090 ,Braden_1_Sensory, Braden_2_Moisture, Braden_3_Activity, Braden_4_Mobility,
				Braden_5_Nutrition, Braden_6_Friction,M1310_1,M1308_d_3_Pressure,M1308_d_2_Pressure,Pressure_Ulcer_b_M0450,
				Pressure_Ulcer_c_M0450,Pressure_Ulcer_d_M0450,Pressure_Ulcer_e_M0450,M1300_Pressure,Stasis_Ulcer_M0468,
				Surgical_Wound_M0482
				FROM #Request.prefix_db_agency#.Assessment_New
				WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>



		<cfset Surgical_Wound_M0482 = Assessment_Details.Surgical_Wound_M0482>
		<cfset Stasis_Ulcer_M0468 = Assessment_Details.Stasis_Ulcer_M0468>
		<cfset M1300_Pressure = Assessment_Details.M1300_Pressure >
		<cfset M1308_d_2_Pressure = Assessment_Details.M1308_d_2_Pressure>
		<cfset M1308_d_3_Pressure = Assessment_Details.M1308_d_3_Pressure>
		<cfset M1310_1 = Assessment_Details.M1310_1>

		<cfset Pressure_Ulcer_b_M0450 = Assessment_Details.Pressure_Ulcer_b_M0450 >
		<cfset Pressure_Ulcer_c_M0450 = Assessment_Details.Pressure_Ulcer_c_M0450 >
		<cfset Pressure_Ulcer_d_M0450 = Assessment_Details.Pressure_Ulcer_d_M0450 >
		<cfset Pressure_Ulcer_e_M0450 = Assessment_Details.Pressure_Ulcer_e_M0450 >

		<cfset Assessment_Reason_M0100 = Assessment_Details.Assessment_Reason_M0100 >
		<cfset Discharged_From_M0175 = Assessment_Details.Discharged_From_M0175 >
		<cfset Assessment_Completed_M0090 = Assessment_Details.Assessment_Completed_M0090 >
		<cfset Braden_1_Sensory = Assessment_Details.Braden_1_Sensory >
		<cfset Braden_2_Moisture = Assessment_Details.Braden_2_Moisture >
		<cfset Braden_3_Activity = Assessment_Details.Braden_3_Activity >
		<cfset Braden_4_Mobility = Assessment_Details.Braden_4_Mobility >
		<cfset Braden_5_Nutrition = Assessment_Details.Braden_5_Nutrition >
		<cfset Braden_6_Friction = Assessment_Details.Braden_6_Friction >
		<cfset M1310_1 = Assessment_Details.M1310_1 >


		<cfquery  name="Wound_Details1" datasource="#Application.DataSrc#" timeout="1000">
				SELECT Wnd_Len_1,Wnd_Len_2,Wnd_Wid_1,Wnd_Wid_2,Wnd_Dep_1,Wnd_Dep_2 FROM #Request.prefix_db_agency#.PatientVisitDetails
				where assessment_id ='#session.cs.AssessmentId#' and
				type='Wound' and wnd_type is not null limit 1
		</cfquery>


		<cfif Wound_Details1.RecordCount gt 0>
			<cfset Wnd_Len_1 = Wound_Details1.Wnd_Len_1>
			<cfset Wnd_Len_2 = Wound_Details1.Wnd_Len_2>
			<cfset Wnd_Wid_1 = Wound_Details1.Wnd_Wid_1>
			<cfset Wnd_Wid_2 = Wound_Details1.Wnd_Wid_2>
			<cfset Wnd_Dep_1 = Wound_Details1.Wnd_Dep_1>
			<cfset Wnd_Dep_2 = Wound_Details1.Wnd_Dep_2>
		<cfelse>
			<cfset Wnd_Len_1 = 0>
			<cfset Wnd_Len_2 = 0>
			<cfset Wnd_Wid_1 = 0>
			<cfset Wnd_Wid_2 = 0>
			<cfset Wnd_Dep_1 = 0>
			<cfset Wnd_Dep_2 = 0>
		</cfif>


		<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
				SELECT Wnd_Type,Wnd_Stage,Wnd_Status FROM #Request.prefix_db_agency#.PatientVisitDetails
				where assessment_id ='#session.cs.AssessmentId#' and
				type='Wound' and wnd_type is not null
		</cfquery>


		<cfset Wnd_Stage = Wound_Details.Wnd_Stage>
		<cfset Wnd_Status = Wound_Details.Wnd_Status>



		<!---#set M1302  --->
		<cfset Braden_Risk = "" >

		<cfset Braden_1 =left(Braden_1_Sensory,1)>
		<cfset Braden_2 =left(Braden_2_Moisture,1)>
		<cfset Braden_3 =left(Braden_3_Activity,1)>
		<cfset Braden_4 =left(Braden_4_Mobility,1)>
		<cfset Braden_5 =left(Braden_5_Nutrition,1)>
		<cfset Braden_6 =left(Braden_6_Friction,1)>

		<cfif trim(Braden_1) eq "">
			<cfset Braden_1=0>
		</cfif>
		<cfif trim(Braden_2) eq "">
			<cfset Braden_2=0>
		</cfif>
		<cfif trim(Braden_3) eq "">
			<cfset Braden_3=0>
		</cfif>
		<cfif trim(Braden_4) eq "">
			<cfset Braden_4=0>
		</cfif>
		<cfif trim(Braden_5) eq "">
			<cfset Braden_5=0>
		</cfif>
		<cfif trim(Braden_6) eq "">
			<cfset Braden_6=0>
		</cfif>

		<cfset Braden_Sum = Braden_1 + Braden_2 + Braden_3 + Braden_4 + Braden_5 + Braden_6 >

		<cfif Braden_1 eq 0 or Braden_2 eq 0 or Braden_3 eq 0 or Braden_4 eq 0 or Braden_5 eq 0 or Braden_6 eq 0 >
			<cfset Braden_Risk = "Braden scale incomplete" >
		<cfelseif Braden_Sum lt 13>
			<cfset Braden_Risk = "HIGH RISK for Pressure Ulcers" >
		<cfelseif Braden_Sum gt 12 and Braden_Sum lt 15>
			<cfset Braden_Risk = "MODERATE RISK for Pressure Ulcers" >
		<cfelseif Braden_Sum gt 14>
			<cfset Braden_Risk = "LOW RISK for Pressure Ulcers" >
		</cfif>

		<cfif Braden_Risk contains("MODERATE") or Braden_Risk contains("HIGH")>
		    <cfset M1302_Pressure = "1 - Yes">
			<cfset cookie.M1302Pressure="1 - Yes">
		<cfelse>
			<cfset cookie.M1302Pressure="0 - No">
			<cfset M1302_Pressure = "0 - No">
		</cfif>

		<!--- #set M1306  --->

		<cfset Count_Stage_1  = 0 >
		<cfset Count_Stage_2  = 0 >
		<cfset Count_Stage_3  = 0 >
		<cfset Count_Stage_4  = 0 >
		<cfset Count_Stage_5  = 0 >
		<cfset Count_Stage_6  = 0 >
		<cfset Count_Stage_7  = 0 >

		<cfloop query="Wound_Details">
			<cfif Wnd_Stage contains("1") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_1  =  Count_Stage_1 + 1 >
			<cfelseif Wnd_Stage contains("2") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_2  = Count_Stage_2 + 1 >
			<cfelseif Wnd_Stage contains("3") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_3  = Count_Stage_3 + 1 >
			<cfelseif Wnd_Stage contains("4") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_4  = Count_Stage_4 + 1 >
			<cfelseif Wnd_Stage contains("5") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_5  = Count_Stage_5 + 1 >
			<cfelseif Wnd_Stage contains("6") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_6  = Count_Stage_6 + 1 >
			<cfelseif Wnd_Stage contains("7") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_7  = Count_Stage_7 + 1 >
			</cfif>
		</cfloop>

		<cfif Count_Stage_2 neq 0 or Count_Stage_3 neq 0 or Count_Stage_4 neq 0 or Count_Stage_5 neq 0 or Count_Stage_6 neq 0 or Count_Stage_7 neq 0 >
			<cfset cookie.M1306Unhealed="1 - Yes">
			<cfset M1306_Unhealed_Pressure="1 - Yes">
		<cfelse>
			<cfset cookie.M1306Unhealed="0 - No">
			<cfset M1306_Unhealed_Pressure="0 - No">
		</cfif>


		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
				UPDATE #Request.prefix_db_agency#.Assessment_New SET
					M1302_Pressure = '#cookie.M1302Pressure#',
					M1306_Unhealed_Pressure = '#cookie.M1306Unhealed#'
				WHERE Assessment_ID = '#session.cs.AssessmentId#'
		</cfquery>


		<!--- Set M1320 --->

		<cfset Count_Status_3 = 0 >
		<cfset Count_Status_2 = 0 >
		<cfset Count_Status_1 = 0 >

		<cfloop query="Wound_Details">
			<cfif Wnd_Status contains("3")>
				<cfset Count_Status_3 = Count_Status_3 + 1 >
			<cfelseif Wnd_Status contains("2")>
				<cfset Count_Status_2 = Count_Status_2 + 1 >
			<cfelseif Wnd_Status contains("1")>
				<cfset Count_Status_1 = Count_Status_1 + 1 >
			</cfif>
		</cfloop>

		<cfset cookie.PressureUlcerStatus = "">
		<cfset Pressure_Ulcer_Status_M0464 = "">
		<cfif M1310_1 eq "">
			<cfif Count_Status_1 neq 0>
				<cfset cookie.PressureUlcerStatus = "1 - Fully granulating" >
				<cfset Pressure_Ulcer_Status_M0464 = "1 - Fully granulating" >
			<cfelseif Count_Status_2 neq 0 >
				<cfset cookie.PressureUlcerStatus = "2 - Earty/partial granulation" >
				<cfset Pressure_Ulcer_Status_M0464 = "2 - Earty/partial granulation" >
			<cfelseif Count_Status_3 neq 0 >
				<cfset cookie.PressureUlcerStatus = "3 - Not healing" >
				<cfset Pressure_Ulcer_Status_M0464 = "3 - Not healing" >
			<cfelse>
				<cfset cookie.PressureUlcerStatus = "NA - No observable pressure ulcer" >
				<cfset Pressure_Ulcer_Status_M0464 = "NA - No observable pressure ulcer" >
			</cfif>
			<cfquery  name="M1310_Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
				UPDATE #Request.prefix_db_agency#.Assessment_New SET
					Pressure_Ulcer_Status_M0464='#cookie.PressureUlcerStatus#'
				WHERE Assessment_ID = '#session.cs.AssessmentId#'
		    </cfquery>
		</cfif>

		<cfif M1310_1 eq "">
			<cfif Pressure_Ulcer_Status_M0464 contains("NA -")>
				<!---set M1310 --->
				<cfset cookie.M1310Length= Wnd_Len_1>
				<cfset cookie.M13101= Wnd_Len_2>
				<!---set M1312 --->
				<cfset cookie.M1312Width= Wnd_Wid_1>
				<cfset cookie.M13121= Wnd_Wid_2>
				<!---set M1312 --->
				<cfset cookie.M1314Depth= Wnd_Dep_1>
				<cfset cookie.M13141= Wnd_Dep_2>

				<!---set M1310 --->
				<cfset M1310_Length = Wnd_Len_1>
				<cfset M1310_1 = Wnd_Len_2>

				<!---set M1312 --->
				<cfset M1312_Width = Wnd_Wid_1>
				<cfset M1312_1 = Wnd_Wid_2>

				<!---set M1312 --->
				<cfset M1314_Depth = Wnd_Dep_1>
				<cfset M1314_1 = Wnd_Dep_2>

			<cfelse>

				<cfset cookie.M1310Length= 0>
				<cfset cookie.M13101= 0>

				<cfset cookie.M1312Width= 0>
				<cfset cookie.M13121= 0>

				<cfset cookie.M1314Depth= 0>
				<cfset cookie.M13141= 0>

				<cfset M1310_Length = 0>
				<cfset M1310_1 = 0>

				<cfset M1312_Width = 0>
				<cfset M1312_1 = 0>

				<cfset M1314_Depth = 0>
				<cfset M1314_1 = 0>

			</cfif>

			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery  name="M1312_Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
					update #Request.prefix_db_agency#.Assessment_New Set
						M1310_Length = '#cookie.M1310Length#',
						M1310_1 = '#cookie.M13101#',
						M1312_Width = '#cookie.M1312Width#',
						M1312_1 = '#cookie.M13121#',
						M1314_Depth = '#cookie.M1314Depth#',
						M1314_1 = '#cookie.M13141#'
					WHERE Assessment_ID='#session.cs.AssessmentId#'
			</cfquery>
			</cfif>
		</cfif>

		<cfif M1308_d_2_Pressure eq "">
			<cfset M1308_d_2_Pressure = 0>
		</cfif>

		<cfif M1308_d_3_Pressure eq "">
			<cfset M1308_d_3_Pressure = 0>
		</cfif>

		<cfif Pressure_Ulcer_b_M0450 eq "">
			<cfset Pressure_Ulcer_b_M0450 = 0>
		</cfif>

		<cfif Pressure_Ulcer_c_M0450 eq "">
			<cfset Pressure_Ulcer_c_M0450 = 0>
		</cfif>

		<cfif Pressure_Ulcer_d_M0450 eq "">
			<cfset Pressure_Ulcer_d_M0450 = 0>
		</cfif>

		<cfif Pressure_Ulcer_e_M0450 eq "">
			<cfset Pressure_Ulcer_e_M0450 = 0>
		</cfif>

		<cfif M1306_Unhealed_Pressure contains("1 -") and Pressure_Ulcer_Status_M0464 contains("3 -") and
		(Pressure_Ulcer_b_M0450 gt 0 or  M1308_d_3_Pressure gt 0) and Pressure_Ulcer_c_M0450 lt 1 and Pressure_Ulcer_d_M0450 lt 1
			and Pressure_Ulcer_e_M0450 lt 1 and M1308_d_2_Pressure lt 1>
			<cfset cookie.PressureUlcerStatus = "3 - Not healing" >
			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery  name="M1310_Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
					UPDATE #Request.prefix_db_agency#.Assessment_New SET
						Pressure_Ulcer_Status_M0464='#cookie.PressureUlcerStatus#'
					WHERE Assessment_ID = '#session.cs.AssessmentId#'
		    </cfquery>
			</cfif>
		</cfif>


		<!---Set M1308a --->

		<cfif Count_Stage_2 gt 0>
			<cfset Pressure_Ulcer_b_M0450 = Count_Stage_2>
			<cfset cookie.PressureUlcerbM0450 = Count_Stage_2>
		<cfelse>
			<cfset Pressure_Ulcer_b_M0450 = 0>
			<cfset cookie.PressureUlcerbM0450 = 0>
		</cfif>

		<!---Set M1308b --->

		<cfif Count_Stage_3 gt 0>
			<cfset Pressure_Ulcer_c_M0450 = Count_Stage_3>
			<cfset cookie.PressureUlcercM0450 = Count_Stage_3>
		<cfelse>
			<cfset Pressure_Ulcer_c_M0450 = 0>
			<cfset cookie.PressureUlcercM0450 = 0>
		</cfif>

		<!---Set M1308c --->

		<cfif Count_Stage_4 gt 0>
			<cfset Pressure_Ulcer_d_M0450 = Count_Stage_4>
			<cfset cookie.PressureUlcerdM0450 = Count_Stage_4>
		<cfelse>
			<cfset Pressure_Ulcer_d_M0450 = 0>
			<cfset cookie.PressureUlcerdM0450 = 0>
		</cfif>

		<!---Set M1308_d1 --->

		<cfif Count_Stage_5 gt 0>
			<cfset Pressure_Ulcer_e_M0450 = Count_Stage_5>
			<cfset cookie.PressureUlcereM0450 = Count_Stage_5>
		<cfelse>
			<cfset Pressure_Ulcer_e_M0450 = 0>
			<cfset cookie.PressureUlcereM0450 = 0>
		</cfif>

		<!---Set M1308_d2 --->

		<cfif Count_Stage_6 gt 0>
			<cfset M1308_d_2_Pressure = Count_Stage_6>
			<cfset cookie.M1308d2Pressure =  Count_Stage_6>
		<cfelse>
			<cfset M1308_d_2_Pressure = 0>
			<cfset cookie.M1308d2Pressure = 0>
		</cfif>

		<!---Set M1308_d3 --->

		<cfif Count_Stage_7 gt 0>
			<cfset M1308_d_3_Pressure = Count_Stage_7>
			<cfset cookie.M1308d3Pressure = Count_Stage_7>
		<cfelse>
			<cfset M1308_d_3_Pressure = 0>
			<cfset cookie.M1308d3Pressure = 0>
		</cfif>

			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery  name="M1308_Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">

					update #Request.prefix_db_agency#.Assessment_New Set
						Pressure_Ulcer_b_M0450 = '#cookie.PressureUlcerbM0450#',
						Pressure_Ulcer_c_M0450 = '#cookie.PressureUlcercM0450#',
						Pressure_Ulcer_d_M0450 = '#cookie.PressureUlcerdM0450#',
						Pressure_Ulcer_e_M0450 = '#cookie.PressureUlcereM0450#',
						M1308_d_2_Pressure = '#cookie.M1308d2Pressure#',
						M1308_d_3_Pressure = '#M1308_d_3_Pressure#'
					WHERE Assessment_ID='#session.cs.AssessmentId#'
			</cfquery>
			</cfif>


		<cfset M1308_a_12_Pressure = 0 >
		<cfset M1308_b_12_Pressure = 0 >
		<cfset M1308_c_12_Pressure = 0 >
		<cfset M1308_d_12_Pressure = 0 >
		<cfset M1308_d_22_Pressure = 0 >
		<cfset M1308_d_32_Pressure = 0 >

		<cfif Assessment_Reason_M0100.indexOf("1") neq "-1">
			<cfset M1308_a_12_Pressure = Pressure_Ulcer_b_M0450 >
			<cfset M1308_b_12_Pressure = Pressure_Ulcer_c_M0450 >
			<cfset M1308_c_12_Pressure = Pressure_Ulcer_d_M0450 >
			<cfset M1308_d_12_Pressure = Pressure_Ulcer_e_M0450 >
			<cfset M1308_d_22_Pressure = M1308_d_2_Pressure >
			<cfset M1308_d_32_Pressure = M1308_d_3_Pressure >

			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery  name="M1308_PUpdate_Assessment" datasource="#Application.DataSrc#" timeout="1000">

					update #Request.prefix_db_agency#.Assessment_New Set
					M1308_a_12_Pressure = '#M1308_a_12_Pressure#',
					M1308_b_12_Pressure = '#M1308_b_12_Pressure#',
					M1308_c_12_Pressure = '#M1308_c_12_Pressure#',
					M1308_d_12_Pressure = '#M1308_d_12_Pressure#',
					M1308_d_22_Pressure = '#M1308_d_22_Pressure#',
					M1308_d_32_Pressure = '#M1308_d_32_Pressure#'
					WHERE Assessment_ID='#session.cs.AssessmentId#'
			</cfquery>
			</cfif>
		</cfif>



		<!---Set M1322 --->
		<cfset Pressure_Ulcer_a_M0450 = "">

		<cfif Count_Stage_1 eq 0 >
			<cfset Pressure_Ulcer_a_M0450 = "0 - Zero">
			<cfset cookie.PressureUlceraM0450 = "0 - Zero">
		<cfelseif Count_Stage_1 eq "2" >
			<cfset Pressure_Ulcer_a_M0450 = "1 - One">
			<cfset cookie.PressureUlceraM0450 = "1 - One">
		<cfelseif Count_Stage_1 eq "3" >
			<cfset Pressure_Ulcer_a_M0450 = "2 - Two">
			<cfset cookie.PressureUlceraM0450 = "2 - Two">
		<cfelseif Count_Stage_1 eq "4" >
			<cfset Pressure_Ulcer_a_M0450 = "3 - Three">
			<cfset cookie.PressureUlceraM0450 = "3 - Three">
		<cfelseif Count_Stage_1 eq "5" >
			<cfset Pressure_Ulcer_a_M0450 = "4 - Four or more">
			<cfset cookie.PressureUlceraM0450 = "4 - Four or more">
		</cfif>

		<!---Set M1324 --->
		<cfset Pressure_Ulcer_Stage_M0460 = "" >

		<cfif Count_Stage_4 neq 0 >
			<cfset Pressure_Ulcer_Stage_M0460 = "4 - Stage IV">
			<cfset cookie.PressureUlcerStageM0460 = "4 - Stage IV">
		<cfelseif Count_Stage_3 neq 0 >
			<cfset Pressure_Ulcer_Stage_M0460 = "3 - Stage III">
			<cfset cookie.PressureUlcerStageM0460 = "3 - Stage III">
		<cfelseif Count_Stage_2 neq 0 >
			<cfset Pressure_Ulcer_Stage_M0460 = "2 - Stage II">
			<cfset cookie.PressureUlcerStageM0460 = "2 - Stage II">
		<cfelseif Count_Stage_1 neq 0 >
			<cfset Pressure_Ulcer_Stage_M0460 = "1 - Stage I">
			<cfset cookie.PressureUlcerStageM0460 = "1 - Stage I">
		<cfelse>
			<cfset Pressure_Ulcer_Stage_M0460 = "NA - No observable pressure ulcer">
			<cfset cookie.PressureUlcerStageM0460 = "NA - No observable pressure ulcer">
		</cfif>

		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="M0450_Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
				update #Request.prefix_db_agency#.Assessment_New Set
				Pressure_Ulcer_a_M0450 = '#cookie.PressureUlceraM0450#',
				Pressure_Ulcer_Stage_M0460 = '#cookie.PressureUlcerStageM0460#'
				WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
		</cfif>

		<!--- --->

		<cfif M1300_Pressure contains("0 -")>
			<cfset M1302_Pressure = "" >
			<cfset cookie.M1302Pressure="">
			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
					update #Request.prefix_db_agency#.Assessment_New Set M1302_Pressure = '#cookie.M1302Pressure#'
					WHERE Assessment_ID='#session.cs.AssessmentId#'
			</cfquery>
			</cfif>
		</cfif>


		<!---<cfif M1306_Unhealed_Pressure contains("0 -")>
		<cfset Pressure_Ulcer_b_M0450 = 0>
		<cfset cookie.PressureUlcerbM0450 = 0>
		<cfset Pressure_Ulcer_c_M0450 = 0>
		<cfset cookie.PressureUlcercM0450 = 0>
		<cfset Pressure_Ulcer_d_M0450 = 0>
		<cfset cookie.PressureUlcerdM0450 = 0>
		<cfset Pressure_Ulcer_e_M0450 = 0>
		<cfset cookie.PressureUlcereM0450 = 0>
		<cfset M1308_a_12_Pressure = 0 >
		<cfset M1308_b_12_Pressure = 0 >
		<cfset M1308_c_12_Pressure = 0 >
		<cfset M1308_d_12_Pressure = 0 >
		<cfset M1308_d_22_Pressure = 0 >
		<cfset M1308_d_32_Pressure = 0 >
		<cfset M1308_d_2_Pressure = 0>
		<cfset cookie.M1308d2Pressure = 0>
		<cfset M1308_d_3_Pressure = 0>
		<cfset cookie.M1308d3Pressure = 0>
		<cfset Pressure_Ulcer_Status_M0464 = "" >
		<cfset cookie.PressureUlcerStatus = "" >
		<cfset M1310_Length = 0>
		<cfset M1310_1 = 0 >
		<cfset M1312_Width = 0>
		<cfset M1312_1 = 0 >
		<cfset M1314_Depth = 0>
		<cfset M1314_1 = 0>
		<cfset cookie.M1310Length= 0>
		<cfset cookie.M13101= 0>
		<cfset cookie.M1312Width= 0>
		<cfset cookie.M13121= 0>
		<cfset cookie.M1314Depth= 0>
		<cfset cookie.M13141= 0>

		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
				update #Request.prefix_db_agency#.Assessment_New Set Pressure_Ulcer_b_M0450 = '#Pressure_Ulcer_b_M0450#',
				Pressure_Ulcer_c_M0450 = '#Pressure_Ulcer_c_M0450#',
				Pressure_Ulcer_d_M0450 = '#Pressure_Ulcer_d_M0450#',
				Pressure_Ulcer_e_M0450 = '#Pressure_Ulcer_e_M0450#',
				M1308_a_12_Pressure = '#M1308_a_12_Pressure#',
				M1308_b_12_Pressure = '#M1308_b_12_Pressure#',
				M1308_c_12_Pressure = '#M1308_c_12_Pressure#',
				M1308_d_12_Pressure = '#M1308_d_12_Pressure#',
				M1308_d_22_Pressure = '#M1308_d_22_Pressure#',
				M1308_d_32_Pressure = '#M1308_d_32_Pressure#',
				M1308_d_2_Pressure = '#M1308_d_2_Pressure#',
				M1308_d_3_Pressure = '#M1308_d_3_Pressure#',
				Pressure_Ulcer_Status_M0464 = '#Pressure_Ulcer_Status_M0464#',
				M1310_Length = '#M1310_Length#',
				M1310_1 = '#M1310_1#',
				M1312_Width = '#M1312_Width#',
				M1312_1 = '#M1312_1#',
				M1314_Depth = '#M1314_Depth#',
				M1314_1 = '#M1314_1#'
				WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
		</cfif>
	</cfif>--->



	<cfif Pressure_Ulcer_a_M0450 contains("0") and M1306_Unhealed_Pressure contains("0")>
		<cfset Pressure_Ulcer_Stage_M0460 = "NA - No observable pressure ulcer" >
		<cfset cookie.PressureUlcerStageM0460 = "NA - No observable pressure ulcer">
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
				update #Request.prefix_db_agency#.Assessment_New Set Pressure_Ulcer_Stage_M0460 = '#cookie.PressureUlcerStageM0460#'
				WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
		</cfif>
	</cfif>

	<cfif Stasis_Ulcer_M0468 contains("0 -") or Stasis_Ulcer_M0468 contains("3 -")>
		<cfset Surgical_Wound_Status_M0488 = "" >
		<cfset cookie.SurgicalWoundStatusM0488 = "">


		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
				update #Request.prefix_db_agency#.Assessment_New Set Surgical_Wound_Status_M0488 = '#cookie.SurgicalWoundStatusM0488#'
				WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
		</cfif>
	</cfif>

	<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT * FROM #Request.prefix_db_agency#.PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Stasis Ulcer'  and type='Wound'
	</cfquery>

	<Cfset Count_Stasis = Wound_Details.RecordCount>

	<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT count(Wnd_Status) as Wnd_StatusCount FROM #Request.prefix_db_agency#.PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Stasis Ulcer'  and type='Wound' and Wnd_Status like '%NA%'
	</cfquery>

	<cfset Count_Stasis_Status_NA =Wound_Details.Wnd_StatusCount>

	<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT count(Wnd_Status) as Wnd_StatusCount FROM #Request.prefix_db_agency#.PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Stasis Ulcer'  and type='Wound' and Wnd_Status like '%0%'
	</cfquery>

	<cfset Count_Stasis_Status_0 =Wound_Details.Wnd_StatusCount>

	<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT count(Wnd_Status) as Wnd_StatusCount FROM #Request.prefix_db_agency#.PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Stasis Ulcer'  and type='Wound' and Wnd_Status like '%1%'
	</cfquery>

	<cfset Count_Stasis_Status_1 =Wound_Details.Wnd_StatusCount>

	<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT count(Wnd_Status) as Wnd_StatusCount FROM #Request.prefix_db_agency#.PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Stasis Ulcer'  and type='Wound' and Wnd_Status like '%2%'
	</cfquery>

	<cfset Count_Stasis_Status_2 =Wound_Details.Wnd_StatusCount>


	<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT count(Wnd_Status) as Wnd_StatusCount FROM #Request.prefix_db_agency#.PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Stasis Ulcer'  and type='Wound' and Wnd_Status like '%3%'
	</cfquery>

	<cfset Count_Stasis_Status_3 =Wound_Details.Wnd_StatusCount>

	<!--- Set M0470 --->

	<cfif Count_Stasis neq 0 and Count_Stasis_Status_NA eq 0>
	    <cfset cookie.StasisUlcerM0468 = "2 - Yes, patient has observable stasis ulcers ONLY">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update #Request.prefix_db_agency#.Assessment_New Set Stasis_Ulcer_M0468 = '1 - Yes, patient has BOTH observable and unobservable stasis ulcers'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Stasis neq 0 and Count_Stasis_Status_NA neq 0 and Count_Stasis_Status_1 eq 0
	and Count_Stasis_Status_2 eq 0 and Count_Stasis_Status_3 eq 0>
	    <cfset cookie.StasisUlcerM0468 = "1 - Yes, patient has BOTH observable and unobservable stasis ulcers">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update #Request.prefix_db_agency#.Assessment_New Set Stasis_Ulcer_M0468 = '2 - Yes, patient has observable stasis ulcers ONLY'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Stasis eq 0 >
		<cfset cookie.StasisUlcerM0468 = "0 - No">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update #Request.prefix_db_agency#.Assessment_New Set Stasis_Ulcer_M0468 = '0 - No'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelse>
	    <cfset cookie.StasisUlcerM0468 = "3 - Yes, patient has unobservable stasis ulcers ONLY (known but not observable due to non-removable dressing)">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update #Request.prefix_db_agency#.Assessment_New Set Stasis_Ulcer_M0468 = '3 - Yes, patient has unobservable stasis ulcers ONLY (known but not observable due to non-removable dressing)'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	</cfif>

	<cfset Stasis_Ulcer_Num_M0470 = "">

	<cfif Count_Stasis eq 1>
	    <cfset cookie.StasisUlcerNumM0470 = "1 - One">
		<cfset Stasis_Ulcer_Num_M0470 = "1 - One">
	<cfelseif Count_Stasis eq 2>
		<cfset cookie.StasisUlcerNumM0470 = "2 - Two">
		<cfset Stasis_Ulcer_Num_M0470 = "2 - Two">
	<cfelseif Count_Stasis eq 3>
		<cfset cookie.StasisUlcerNumM0470 = "3 - Three">
		<cfset Stasis_Ulcer_Num_M0470 = "3 - Three">
	<cfelseif Count_Stasis eq 4>
		<cfset cookie.StasisUlcerNumM0470 = "4 - Four or more">
		<cfset Stasis_Ulcer_Num_M0470 = "4 - Four or more">
	<cfelse>
		<cfset cookie.StasisUlcerNumM0470 = "0 - Zero">
		<cfset Stasis_Ulcer_Num_M0470 = "0 - Zero">
	</cfif>

	<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.Assessment_New Set Stasis_Ulcer_Num_M0470 = '#Stasis_Ulcer_Num_M0470#'
		WHERE Assessment_ID='#session.cs.AssessmentId#'
	</cfquery>

	<cfset Stasis_Ulcer_Status_M0476 ="">
	<cfif Count_Stasis_Status_3 neq "">
		<cfset Stasis_Ulcer_Status_M0476 ="3 - Not healing">
		<cfset cookie.StasisUlcerStatusM0476 = "3 - Not healing">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update #Request.prefix_db_agency#.Assessment_New Set Stasis_Ulcer_Status_M0476 = '#Stasis_Ulcer_Status_M0476#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Stasis_Status_2 neq "">
		<cfset Stasis_Ulcer_Status_M0476 ="2 - Early/partial granulation">
		<cfset cookie.StasisUlcerStatusM0476 = "2 - Early/partial granulation">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update #Request.prefix_db_agency#.Assessment_New Set Stasis_Ulcer_Status_M0476 = '#Stasis_Ulcer_Status_M0476#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Stasis_Status_1 neq "">
		<cfset Stasis_Ulcer_Status_M0476 ="1 - Fully granulating">
		<cfset cookie.StasisUlcerStatusM0476 = "1 - Fully granulating">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update #Request.prefix_db_agency#.Assessment_New Set Stasis_Ulcer_Status_M0476 = '#Stasis_Ulcer_Status_M0476#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelse>
		<cfset Stasis_Ulcer_Status_M0476 ="0 - Newly epithelialized">
		<cfset cookie.StasisUlcerStatusM0476 = "0 - Newly epithelialized">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update #Request.prefix_db_agency#.Assessment_New Set Stasis_Ulcer_Status_M0476 = '#Stasis_Ulcer_Status_M0476#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	</cfif>


	<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT * FROM #Request.prefix_db_agency#.PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Surgical Wound'  and type='Wound'
	</cfquery>

	<Cfset Count_Surgical = Wound_Details.RecordCount>

	<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT count(Wnd_Status) as Wnd_StatusCount FROM #Request.prefix_db_agency#.PatientVisitDetails
	where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Surgical Wound'  and type='Wound' and Wnd_Status like '%NA%'
	</cfquery>

	<cfset Count_Surgical_Status_NA =Wound_Details.Wnd_StatusCount>

	<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT count(Wnd_Status) as Wnd_StatusCount FROM #Request.prefix_db_agency#.PatientVisitDetails
	where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Surgical Wound'  and type='Wound' and Wnd_Status like '%0%'
	</cfquery>

	<cfset Count_Surgical_Status_0 =Wound_Details.Wnd_StatusCount>

	<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT count(Wnd_Status) as Wnd_StatusCount FROM #Request.prefix_db_agency#.PatientVisitDetails
	where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Surgical Wound'  and type='Wound' and Wnd_Status like '%1%'
	</cfquery>

	<cfset Count_Surgical_Status_1 =Wound_Details.Wnd_StatusCount>

	<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT count(Wnd_Status) as Wnd_StatusCount FROM #Request.prefix_db_agency#.PatientVisitDetails
	where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Surgical Wound'  and type='Wound' and Wnd_Status like '%2%'
	</cfquery>

	<cfset Count_Surgical_Status_2 =Wound_Details.Wnd_StatusCount>

	<cfquery  name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT count(Wnd_Status) as Wnd_StatusCount FROM #Request.prefix_db_agency#.PatientVisitDetails
	where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Surgical Wound'  and type='Wound' and Wnd_Status like '%3%'
	</cfquery>

	<cfset Count_Surgical_Status_3 =Wound_Details.Wnd_StatusCount>

	<cfif Count_Surgical neq 0 and Count_Surgical_Status_NA eq 0>
		<cfset cookie.SurgicalWoundM0482 = "1 - Yes, patient has at least one (observable) surgical wound">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.Assessment_New Set Surgical_Wound_M0482 = '1 - Yes, patient has at least one (observable) surgical wound'
		WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Surgical neq 0 and Count_Surgical_Status_NA neq 0 and Count_Surgical_Status_1 eq 0
	and Count_Surgical_Status_2 eq 0 and Count_Surgical_Status_3 eq 0 >
		<cfset cookie.SurgicalWoundM0482 = "2 - Surgical wound known or likely but not observable due to non-removable dressing">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.Assessment_New Set Surgical_Wound_M0482 = '2 - Surgical wound known or likely but not observable due to non-removable dressing' WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Surgical eq 0 >
		<cfset cookie.SurgicalWoundM0482 = "0 - No">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.Assessment_New Set Surgical_Wound_M0482 = '0 - No'
		WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	</cfif>


	<cfset Surgical_Wound_Status_M0488 ="">
	<cfif Count_Surgical_Status_3 neq "">
		<cfset Surgical_Wound_Status_M0488 ="3 - Not healing">
		<cfset cookie.SurgicalWoundStatusM0488 = "3 - Not healing">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update #Request.prefix_db_agency#.Assessment_New Set Surgical_Wound_Status_M0488 = '#Surgical_Wound_Status_M0488#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Surgical_Status_2 neq "">
		<cfset Surgical_Wound_Status_M0488 ="2 - Early/partial granulation">
		<cfset cookie.SurgicalWoundStatusM0488 = "2 - Early/partial granulation">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update #Request.prefix_db_agency#.Assessment_New Set Surgical_Wound_Status_M0488 = '#Surgical_Wound_Status_M0488#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Surgical_Status_1 neq "">
		<cfset Surgical_Wound_Status_M0488 ="1 - Fully granulating">
		<cfset cookie.SurgicalWoundStatusM0488 = "1 - Fully granulating">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update #Request.prefix_db_agency#.Assessment_New Set Surgical_Wound_Status_M0488 = '#Surgical_Wound_Status_M0488#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelse>
		<cfset Surgical_Wound_Status_M0488 ="0 - Newly epithelialized">
		<cfset cookie.SurgicalWoundStatusM0488 = "0 - Newly epithelialized">
		<cfquery  name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update #Request.prefix_db_agency#.Assessment_New Set Surgical_Wound_Status_M0488 = '#Surgical_Wound_Status_M0488#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	</cfif>


	<cfreturn 'AutoFillComplete'>
	<cfelse>
	<cflocation url="myhomecarebiz.com" addtoken="no">
	</cfif>

	</cffunction>

</cfcomponent>
