<cfcomponent output="false">
<cfinclude template='/__Security-Block.cfm' />
<cfif not isdefined('session.cs.AssessmentId')>
 <cflocation url = '/?ai=0' addtoken = 'no' />
</cfif>

<cffunction name="recert_insert"   access="remote" returnFormat= "JSON" >
	           <cfargument name="answers" required="yes" hint="Recertification Step">
			   <cfargument name="wizard" required="yes" hint="Recertification Step ">
			     <cfargument name="total_wizard" default="" hint="Recertification 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 1 and isdefined('M0230updateF')>  
					  <cfif #M0230UpdateF# neq ''>
							<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>
							<cfset M0230update= #M0230UpdateF# />
							<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') and isdefined('severity') and isdefined('primary') 
							and isdefined('secondary') and isdefined('dxorder')>
									<cfquery name="M1020upd" datasource="#Application.DataSrc#">
									<cfsetting requesttimeout="30">				
											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>
									<cfquery name="geticd" datasource="#Application.DataSrc#">
									select ICD from #Request.prefix_db_agency#.Diagnosis where assessment_id=#session.cs.AssessmentId# and Dx_Order = '#dxorder#'
									</cfquery>
									<cfif dxorder 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 dxorder 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 dxorder 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 dxorder 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 dxorder 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 dxorder 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>
							</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="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="30">
				INSERT INTO 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="30">
		   		
				 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="M1010Diagnosis" access="remote" returnformat="plain" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="Recert M1010 Diagnosis">
		<cfargument name="vcode" required="yes" hint="Recert 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>
			
			</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 = '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>
		<cfset count = 1>

		<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="M1010Delete" access="remote" returnformat="plain" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="Recert M1010 Diagnosis Delete">
		<cfargument name="M1010update" required="yes" hint="Recert 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="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="values" 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="30">
			
				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="30">
                    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="30">	
			
				 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#%'

		</cfquery>
			</cfif>
					
		<cfif M0230count.M0230RecordCount eq 0>	
		
		<cfset M0230fetchICD= M1010fetchICD_1 /> 
		<!---<cfif M0230fetchICD contains(".")>
			<cfloop index="y" list="#M0230fetchICD#" delimiters=".">
				<cfset ans=#y# />
				<cfif len(ans) eq 1>
					<cfset M0230fetchICD = M0230fetchICD & "0" />
				<cfelse>
					<cfset M0230fetchICD =M0230fetchICD />
				</cfif>
			</cfloop>
		<cfelse>
			<cfset  M0230fetchICD = M0230fetchICD & ".00" />
		</cfif>--->
			<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 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="30">		
		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#','#values#','#m02301#','#M0230Severity#','#M0230Primary#',
		'#M0230Secondary#','#count#','#M0230fetch.Other_DG#','#vcodediag#','#vcodeicd#')
		</cfquery>
		<!---'#values#'--->
		<cfelse>
		<cfquery name="M0230Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">		
		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#','#M0230fetchICD#','#m02301#','#M0230Severity#','#M0230Primary#',
		'#M0230Secondary#','#count#','#M0230fetch.Other_DG#','#vcodediag#','#vcodeicd#')	
		</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="M1010Insert" 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" />
		<cfelse>
		<cfset DupDiagnosis="M0230DUP" />		
		</cfif>	</cfif>	
       
    <cfreturn DupDiagnosis>
    </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="30">			
				 delete from #Request.prefix_db_agency#.Diagnosis where Diagnosis.Assessment_ID='#session.cs.AssessmentId#' and Diagnosis_ID=#DiagnosisID#			
		</cfquery>
		</cfif>
		

		<cfset Id = '' />
		<cfset severity = '' />
		<cfset dxorder = '' />
		<cfset primary = '' />
		<cfset secondary = '' />
		
		<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="30">			
					 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>
			<cfquery name="geticd" datasource="#Application.DataSrc#">
					select ICD from #Request.prefix_db_agency#.Diagnosis where assessment_id=#session.cs.AssessmentId# and Dx_Order = '#dxorder#'
			</cfquery>
					<cfif dxorder 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 dxorder 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 dxorder 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 dxorder 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 dxorder 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 dxorder 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>
		</cfoutput>
		
		
		<cfset Secondcount=0 />
		<cfset Id='' />
		<cfset severity='' />
		<cfset dxorder='' />
		<cfset primary='' />
		<cfset secondary='' />
		
		</cfloop>
       <cfreturn 'M0230Delete'>
        </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="30">
			 	
					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="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="30">				
					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#">
			<cfsetting requesttimeout="30">
					select LAST_INSERT_ID() as keyvalue
			</cfquery>   
			
		   <cfif isdefined('session.cs.AssessmentId')>				          
		   <cfquery name="WoundForm1" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="30">		   		
				   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="30">		   		
					SELECT count(Wnd_Type) 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 'Wound'>
     </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="30">
			   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="30">			
				SELECT count(Wnd_Type) 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="30">
		 SELECT Dose FROM #Request.prefix_db_lookup#.Meds_New_Dose WHERE Dose_ID='#doseid#'
		 </cfquery>
		 <cfquery name="MName" datasource="#Application.DataSrc#">
		 <cfsetting requesttimeout="30">
		 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="30">
		 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="30">
		   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="30">
			 SELECT Name FROM #Request.prefix_db_lookup#.Meds_New WHERE Trade_ID='#tradeid#'
		   </cfquery>			 			 
		   <cfquery name="InsertTypepatientmeds" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="30">
			 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="30">
		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> 
			
		 
		<cfquery name="UpdatePatientMeds" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
		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="30">
		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>
		</cfif>
		
		
		<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  />
		
		<cfif isdefined('session.cs.AssessmentId')>
		<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>
		
		<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 />
		
		<cfif isdefined('session.cs.AssessmentId')>
		<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>
		</cfif>
		
		<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>		
		
		<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#',
					M1306_Unhealed_Pressure = '#cookie.M1306Unhealed#'																
				WHERE Assessment_ID = '#session.cs.AssessmentId#'			
		</cfquery>
		</cfif>
		
		
		
		<!--- 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')>
				<cfif cookie.M1310Length eq "">
					<cfset cookie.M1310Length= 0 />
				</cfif>
				<cfif cookie.M13101 eq "">
					<cfset cookie.M13101= 0 />
				</cfif>
				<cfif cookie.M1312Width eq "">
					<cfset cookie.M1312Width= 0 />
				</cfif>
				<cfif cookie.M13121 eq "">
					<cfset cookie.M13121= 0 />
				</cfif>
				<cfif cookie.M1314Depth eq "">
					<cfset cookie.M1314Depth= 0 />
				</cfif>
				<cfif cookie.M13141 eq "">
					<cfset cookie.M13141= 0 />
				</cfif>

				<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 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'>		
	</cffunction>
</cfcomponent>