
<cfcomponent output="false">
	<cffunction name="ptadult1" access="remote" returnformat="plain" returntype="string">	
	           <cfargument name="Ambulation_M0700" required="yes" hint="ot Step 1">
			   <cfargument name="Ambulation_M0700p" required="yes" hint="ot Step 1">
			     <cfargument name="After_Discharge_Services_M0880" required="yes" hint="ot Step 1">
			   <cfargument name="Bowel_Incont_M0540" required="yes" hint="ot Step 1">
			    <cfargument name="Therapies_Home_M0250" required="yes" hint="ot Step 1">
				<!--- <cfargument name="M1010updateF" required="yes" hint="ot Step 1">--->		 
				 <cfargument name="Comments" required="yes" hint="ot Step 1">
			  <cfif isdefined('session.cs.AssessmentId')>
			  <cfquery name="OtpediatricUP1" datasource="#Application.DataSrc#">				
					UPDATE #Request.prefix_db_agency#.Assessment_New SET 
						Ambulation_M0700 ='#Ambulation_M0700#',	
						Ambulation_M0700p = '#Ambulation_M0700p#',
						After_Discharge_Services_M0880 ='#After_Discharge_Services_M0880#',	
						Bowel_Incont_M0540 = '#Bowel_Incont_M0540#',
						Therapies_Home_M0250 = '#Therapies_Home_M0250#'	,
						Assessment_note = '#Comments#'
					WHERE Assessment_ID = '#session.cs.AssessmentId#'				
			   </cfquery>
			   </cfif>			   
			   <!---<cfif #M1010updateF# NEQ "">	
	<cfif isdefined('session.cs.AssessmentId')>
					<cfquery name="Updaterowsempty" datasource="#Application.DataSrc#">
					update 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 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 Diagnosis where assessment_id=#session.cs.AssessmentId# and Dx_Order = '#Order#'
	</cfquery>
	<cfif Order eq 1>
			<cfquery name="primary" datasource="#Application.DataSrc#">
			 update 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 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 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 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 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 Assessment_New set HHRG_440_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
			</cfquery>
	 </cfif>
				 
<cfset UpdateDx=0 /> 
</cfloop>
</cfif>--->				   		 		     
			  <cfreturn 'step2'>
	</cffunction>
	
	<cffunction name="ptadult2" access="remote" returnformat="plain" returntype="string">	
	           <cfargument name="Hearing_M0400" required="yes" hint="ot Step 2">
			   <cfargument name="Speech_M0410" required="yes" hint="ot Step 2">
			   <cfargument name="Freq_of_Pain_M0420" required="yes" hint="ot Step 2">
			   <cfargument name="Comments" required="yes" hint="ot Step 2">
			  <cfif isdefined('session.cs.AssessmentId')>
			  <cfquery name="OtpediatricUP1" datasource="#Application.DataSrc#">				
					UPDATE #Request.prefix_db_agency#.Assessment_New SET 
						Hearing_M0400 ='#Hearing_M0400#',	
						Speech_M0410 = '#Speech_M0410#',
						Freq_of_Pain_M0420 = '#Freq_of_Pain_M0420#',
						Assessment_note = '#Comments#'
					WHERE Assessment_ID = '#session.cs.AssessmentId#'				
			   </cfquery>
			   </cfif>    
			  <cfreturn 'step3'>
	</cffunction>
	
	<cffunction name="ptadult3" access="remote" returnformat="plain" returntype="string">	
	           <cfargument name="Intrac_Pain_M0430" required="yes" hint="ot Step 3">
			   <cfargument name="Pressure_Ulcer_M0445" required="yes" hint="ot Step 3">
			   <cfargument name="Open_Wounds_M0440" required="yes" hint="ot Step 3">			  
			   <cfargument name="Comments" required="yes" hint="ot Step 3">
			  <cfif isdefined('session.cs.AssessmentId')>
			  <cfquery name="OtpediatricUP1" datasource="#Application.DataSrc#">				
					UPDATE #Request.prefix_db_agency#.Assessment_New SET 
						Intrac_Pain_M0430 ='#Intrac_Pain_M0430#',	
						Pressure_Ulcer_M0445 = '#Pressure_Ulcer_M0445#',
						Open_Wounds_M0440 = '#Open_Wounds_M0440#',						
						Assessment_note = '#Comments#'	
					WHERE Assessment_ID = '#session.cs.AssessmentId#'				
			   </cfquery>
			   </cfif>     
			  <cfreturn 'step4'>
	</cffunction>
	
	
	<cffunction name="ptadult4" access="remote" returnformat="plain" returntype="string">	
	           <cfargument name="Overall_Prognosis_M0260" required="yes" hint="ot Step 4">
			   <cfargument name="Transferring_M0690p" required="yes" hint="ot Step 4">
			   <cfargument name="Life_Exp_M0280" required="yes" hint="ot Step 4">
			   <cfargument name="High_Risk_Factors_M0290" required="yes" hint="ot Step 4">
			   <cfargument name="Vision_M0390" required="yes" hint="ot Step 4">
			   <cfargument name="Comments" required="yes" hint="ot Step 4">
			  
			  <cfif isdefined('session.cs.AssessmentId')>
			  <cfquery name="OtpediatricUP1" datasource="#Application.DataSrc#">				
					UPDATE #Request.prefix_db_agency#.Assessment_New SET 
						Overall_Prognosis_M0260 ='#Overall_Prognosis_M0260#',	
						Transferring_M0690p = '#Transferring_M0690p#',
						Life_Exp_M0280 = '#Life_Exp_M0280#',
						High_Risk_Factors_M0290 = '#High_Risk_Factors_M0290#',
						Vision_M0390 = '#Vision_M0390#',
						Assessment_note = '#Comments#'	
					WHERE Assessment_ID = '#session.cs.AssessmentId#'				
			   </cfquery>
			   </cfif>	     
			  <cfreturn 'step5'>
	</cffunction>
	
	<cffunction name="ptadult5" access="remote" returnformat="plain" returntype="string">	
	           <cfargument name="Pressure_Ulcer_a_M0450" required="yes" hint="ot Step 5">
			   <cfargument name="Pressure_Ulcer_b_M0450" required="yes" hint="ot Step 5">
			   <cfargument name="Pressure_Ulcer_e_M0450" required="yes" hint="ot Step 5">
			    <cfargument name="Pressure_Ulcer_Stage_M0460" required="yes" hint="ot Step 5">
			   <cfargument name="Comments" required="yes" hint="ot Step 5">
			  
			  <cfif isdefined('session.cs.AssessmentId')>
			  <cfquery name="OtpediatricUP1" datasource="#Application.DataSrc#">				
					UPDATE #Request.prefix_db_agency#.Assessment_New SET 
						Pressure_Ulcer_a_M0450 ='#Pressure_Ulcer_a_M0450#',	
						Pressure_Ulcer_b_M0450 = '#Pressure_Ulcer_b_M0450#',
						Pressure_Ulcer_e_M0450 = '#Pressure_Ulcer_e_M0450#',	
						Pressure_Ulcer_Stage_M0460 = '#Pressure_Ulcer_Stage_M0460#',				
						Assessment_note = '#Comments#'	
					WHERE Assessment_ID = '#session.cs.AssessmentId#'		
			   </cfquery>
			   </cfif>
			   		 		     
			  <cfreturn 'step6'>
	</cffunction>
	
	<cffunction name="ptadult6" access="remote" returnformat="plain" returntype="string">	
	           <cfargument name="Pressure_Ulcer_c_M0450" required="yes" hint="ot Step 6" >
			   <cfargument name="Pressure_Ulcer_d_M0450" required="yes" hint="ot Step 6">
			   <cfargument name="Inject_Meds_m0800p" required="yes" hint="ot Step 6">
			    <cfargument name="Pressure_Ulcer_Status_M0464" required="yes" hint="ot Step 6">
			   <cfargument name="Breathing_M0490" required="yes" hint="ot Step 5">
			   <cfargument name="Stasis_Ulcer_Num_M0470" required="yes" hint="ot Step 6">
			   <cfargument name="Stasis_Ulcer_Hidden_M0474" required="yes" hint="ot Step 6">
			   <cfargument name="Stasis_Ulcer_Status_M0476" required="yes" hint="ot Step 6">
			    <cfargument name="Surgical_Wound_M0482" required="yes" hint="ot Step 6">
			   <cfargument name="Comments" required="yes" hint="ot Step 6">
			  
			  <cfif isdefined('session.cs.AssessmentId')>
			  <cfquery name="OtpediatricUP1" datasource="#Application.DataSrc#">	
			  UPDATE #Request.prefix_db_agency#.Assessment_New SET 
				Pressure_Ulcer_c_M0450 = '#Pressure_Ulcer_c_M0450#',
				Pressure_Ulcer_d_M0450 = '#Pressure_Ulcer_d_M0450#',
				Inject_Meds_m0800p = '#Inject_Meds_m0800p#',
				Pressure_Ulcer_Status_M0464	='#Pressure_Ulcer_Status_M0464#',
				Breathing_M0490 ='#Breathing_M0490#',
				Stasis_Ulcer_Num_M0470 ='#Stasis_Ulcer_Num_M0470#',
				Stasis_Ulcer_Hidden_M0474 ='#Stasis_Ulcer_Hidden_M0474#',
				Stasis_Ulcer_Status_M0476 ='#Stasis_Ulcer_Status_M0476#',
				Surgical_Wound_M0482 ='#Surgical_Wound_M0482#'
				
				WHERE Assessment_ID = '#session.cs.AssessmentId#'	
			   </cfquery>
			   </cfif>
			   		 		     
			  <cfreturn 'step7'>
	</cffunction>
	
	<cffunction name="ptadult7" access="remote" returnformat="plain" returntype="string">	
		<cfargument name="Arr_Elbow" required="yes" type="any" hint="ot Step 7">
		<cfargument name="Arr_Shoulder" required="yes" type="any" hint="ot Step 7">
		<cfargument name="Arr_Hip" required="yes" type="any" hint="ot Step 7">
		<cfargument name="Arr_Ankle" required="yes" type="any" hint="ot Step 7">
		<cfargument name="Arr_Knee" required="yes" type="any" hint="ot Step 7">
		<cfargument name="Cervical_Spine" required="yes" type="any" hint="ot Step 7">
		<cfargument name="M0250_Assess" required="yes" type="any" hint="ot Step 7">
			   <!--- <cfif isdefined('session.cs.AssessmentId')>
				<cfquery  datasource="#Application.DataSrc#">	
				UPDATE #Request.prefix_db_agency#.Assessment_New SET 
				Caregiver_Manage_Equip_M0820 = <cfif #Arr_Elbow[1]# neq ''>'#Arr_Elbow[1]#',<cfelse>null,</cfif>
				Cog_Function_M0560 = <cfif #Arr_Elbow[2]# neq ''>'#Arr_Elbow[2]#',<cfelse>null,</cfif>
				Conditions_Prior_M0220 = <cfif #Arr_Elbow[3]# neq ''>'#Arr_Elbow[3]#',<cfelse>null,</cfif>
				Depressive_Feelings_M0590 = <cfif #Arr_Elbow[4]# neq ''>'#Arr_Elbow[4]#',<cfelse>null,</cfif>
				Discharge_Disposition_M0870 = <cfif #Arr_Elbow[5]# neq ''>'#Arr_Elbow[5]#',<cfelse>null,</cfif>
				Eating_M0710 = <cfif #Arr_Elbow[6]# neq ''>'#Arr_Elbow[6]#',<cfelse>null,</cfif>
				Eating_M0710p = <cfif #Arr_Elbow[7]# neq ''>'#Arr_Elbow[7]#',<cfelse>null,</cfif>
				Emergent_Care_M0830 = <cfif #Arr_Elbow[8]# neq ''>'#Arr_Elbow[8]#',<cfelse>null,</cfif>
				Emergent_Care_Reason_M0840 = <cfif #Arr_Elbow[9]# neq ''>'#Arr_Elbow[9]#',<cfelse>null,</cfif>
				Endocrine_Assess = <cfif #Arr_Elbow[10]# neq ''>'#Arr_Elbow[10]#',<cfelse>null,</cfif>
				Home_Safety_Assess = <cfif #Arr_Elbow[11]# neq ''>'#Arr_Elbow[11]#',<cfelse>null,</cfif>
				Hospice_Assess = <cfif #Arr_Elbow[12]# neq ''>'#Arr_Elbow[12]#',<cfelse>null,</cfif>
				Hospital_Reason_List_M0895 = <cfif #Arr_Elbow[13]# neq ''>'#Arr_Elbow[13]#',<cfelse>null,</cfif>
				Hospital_Reason_M0890 = <cfif #Arr_Elbow[14]# neq ''>'#Arr_Elbow[14]#',<cfelse>null,</cfif>
				Housekeeping_M0750 = <cfif #Arr_Elbow[15]# neq ''>'#Arr_Elbow[15]#',<cfelse>null,</cfif>
				Housekeeping_M0750p = <cfif #Arr_Elbow[16]# neq ''>'#Arr_Elbow[16]#',<cfelse>null,</cfif>
				Inhalant_Meds_M0790 = <cfif #Arr_Shoulder[1]# neq ''>'#Arr_Shoulder[1]#',<cfelse>null,</cfif>
				Inhalant_Meds_M0790p = <cfif #Arr_Shoulder[2]# neq ''>'#Arr_Shoulder[2]#',<cfelse>null,</cfif>
				Inject_Meds_M0800 = <cfif #Arr_Shoulder[3]# neq ''>'#Arr_Shoulder[3]#',<cfelse>null,</cfif> 
				Inpatient_Facility_M0855 = <cfif #Arr_Shoulder[4]# neq ''>'#Arr_Shoulder[4]#',<cfelse>null,</cfif>
				Laundry_M0740 = <cfif #Arr_Shoulder[5]# neq ''>'#Arr_Shoulder[5]#',<cfelse>null,</cfif>
				Laundry_M0740p = <cfif #Arr_Shoulder[6]# neq ''>'#Arr_Shoulder[6]#',<cfelse>null,</cfif>
				M0250_Assess = <cfif #Arr_Shoulder[7]# neq ''>'#Arr_Shoulder[7]#',<cfelse>null,</cfif>
				M0420_Assess = <cfif #Arr_Shoulder[8]# neq ''>'#Arr_Shoulder[8]#',<cfelse>null,</cfif>
				M0440_Assess = <cfif #Arr_Hip[1]# neq ''>'#Arr_Hip[1]#',<cfelse>null,</cfif>
				M0490_Assess = <cfif #Arr_Hip[2]# neq ''>'#Arr_Hip[2]#',<cfelse>null,</cfif>
				M0520_Assess = <cfif #Arr_Hip[3]# neq ''>'#Arr_Hip[3]#',<cfelse>null,</cfif>
				M0540_Assess = <cfif #Arr_Hip[4]# neq ''>'#Arr_Hip[4]#',<cfelse>null,</cfif>
				M0550_Assess = <cfif #Arr_Hip[5]# neq ''>'#Arr_Hip[5]#',<cfelse>null,</cfif>
				M0610_Assess = <cfif #Arr_Hip[6]# neq ''>'#Arr_Hip[6]#',<cfelse>null,</cfif>
				M0650_Assess = <cfif #Arr_Hip[7]# neq ''>'#Arr_Hip[7]#',<cfelse>null,</cfif>
				M0810_Assess = <cfif #Arr_Hip[8]# neq ''>'#Arr_Hip[8]#',<cfelse>null,</cfif>
				Meal_Prep_M0720 = <cfif #Arr_Hip[9]# neq ''>'#Arr_Hip[9]#',<cfelse>null,</cfif>
				Meal_Prep_M0720p = <cfif #Arr_Hip[10]# neq ''>'#Arr_Hip[10]#',<cfelse>null,</cfif>
				Medical_or_Treatment_Change_M0200 = <cfif #Arr_Hip[11]# neq ''>'#Arr_Hip[11]#',<cfelse>null,</cfif>
				Nursing_Home_M0900 = <cfif #Arr_Hip[12]# neq ''>'#Arr_Hip[12]#',<cfelse>null,</cfif>
				Oral_Meds_M0780 = <cfif #Arr_Hip[13]# neq ''>'#Arr_Hip[13]#',<cfelse>null,</cfif>
				Oral_Meds_M0780p = <cfif #Arr_Hip[14]# neq ''>'#Arr_Hip[14]#',<cfelse>null,</cfif>
				Ostomy_for_Bowel_M0550 = <cfif #Arr_Hip[15]# neq ''>'#Arr_Hip[15]#',<cfelse>null,</cfif>
				Patient_Behav_freq_M0620 = <cfif #Arr_Hip[16]# neq ''>'#Arr_Hip[16]#',<cfelse>null,</cfif>
				Patient_Behav_Weekly_M0610 = <cfif #Arr_knee[1]# neq ''>'#Arr_knee[1]#',<cfelse>null,</cfif>
				Patient_Manage_Equip_M0810 = <cfif #Arr_knee[2]# neq ''>'#Arr_knee[2]#',<cfelse>null,</cfif>
				Resp_Treatments_M0500 = <cfif #Arr_knee[3]# neq ''>'#Arr_knee[3]#',<cfelse>null,</cfif>
				Shopping_M0760 = <cfif #Arr_knee[4]# neq ''>'#Arr_knee[4]#',<cfelse>null,</cfif>
				Shopping_M0760p = <cfif #Arr_knee[5]# neq ''>'#Arr_knee[5]#',<cfelse>null,</cfif>
				Stasis_Ulcer_M0468 = <cfif #Arr_knee[6]# neq ''>'#Arr_knee[6]#',<cfelse>null,</cfif>
				Surgical_Wound_Hidden_M0486 = <cfif #Arr_knee[7]# neq ''>'#Arr_knee[7]#',<cfelse>null,</cfif>
				Surgical_Wound_OB_M0484 = <cfif #Arr_knee[8]# neq ''>'#Arr_knee[8]#',<cfelse>null,</cfif>
				Surgical_Wound_Status_M0488 = <cfif #Arr_Ankle[1]# neq ''>'#Arr_Ankle[1]#',<cfelse>null,</cfif>
				Therapy_Need_M0825 = <cfif #Arr_Ankle[2]# neq ''>'#Arr_Ankle[2]#',<cfelse>null,</cfif>
				Toileting_M0680p = <cfif #Arr_Ankle[3]# neq ''>'#Arr_Ankle[3]#',<cfelse>null,</cfif>
				Transferring_M0690 = <cfif #Arr_Ankle[4]# neq ''>'#Arr_Ankle[4]#',<cfelse>null,</cfif>
				Transport_M0730 = <cfif #Arr_Ankle[5]# neq ''>'#Arr_Ankle[5]#',<cfelse>null,</cfif>
				Transport_M0730p = <cfif #Arr_Ankle[6]# neq ''>'#Arr_Ankle[6]#',<cfelse>null,</cfif>
				Urinary_INcont_M0520 = <cfif #Arr_Ankle[7]# neq ''>'#Arr_Ankle[7]#',<cfelse>null,</cfif>
				Urinary_INcont_when_M0530 = <cfif #Arr_Ankle[8]# neq ''>'#Arr_Ankle[8]#',<cfelse>null,</cfif>
				Use_Phone_M0770 = <cfif #Cervical_Spine[1]# neq ''>'#Cervical_Spine[1]#',<cfelse>null,</cfif> 
				Use_Phone_M0770p = <cfif #Cervical_Spine[2]# neq ''>'#Cervical_Spine[2]#',<cfelse>null,</cfif> 
				UTI_M0510 = <cfif #Cervical_Spine[3]# neq ''>'#Cervical_Spine[3]#',<cfelse>null,</cfif> 
				When_Anxious_M0580 = <cfif #Cervical_Spine[4]# neq ''>'#Cervical_Spine[4]#',<cfelse>null,</cfif> 
				Assessment_note = '#M0250_Assess#'
				WHERE Assessment_ID = '#session.cs.AssessmentId#'
				 </cfquery>
				 </cfif>	--->
				
				 <cfquery  datasource="#Application.DataSrc#">	
				UPDATE #Request.prefix_db_agency#.Assessment_New SET 
				Caregiver_Manage_Equip_M0820 = <cfif GetToken(Arr_Elbow, 1, ',') neq ''>'#GetToken(Arr_Elbow, 1, ',')#',<cfelse>null,</cfif>
				Cog_Function_M0560 = <cfif GetToken(Arr_Elbow, 2, ',') neq ''>'#GetToken(Arr_Elbow, 2, ',')#',<cfelse>null,</cfif>
				Conditions_Prior_M0220 = <cfif GetToken(Arr_Elbow, 3, ',') neq ''>'#GetToken(Arr_Elbow, 3, ',')#',<cfelse>null,</cfif>
				Depressive_Feelings_M0590 = <cfif GetToken(Arr_Elbow, 4, ',') neq ''>'#GetToken(Arr_Elbow, 4, ',')#',<cfelse>null,</cfif>
				Discharge_Disposition_M0870 = <cfif GetToken(Arr_Elbow, 5, ',') neq ''>'#GetToken(Arr_Elbow, 5, ',')#',<cfelse>null,</cfif>
				Eating_M0710 = <cfif GetToken(Arr_Elbow, 6, ',') neq ''>'#GetToken(Arr_Elbow, 6, ',')#',<cfelse>null,</cfif>
				Eating_M0710p = <cfif GetToken(Arr_Elbow, 7, ',') neq ''>'#GetToken(Arr_Elbow, 7, ',')#',<cfelse>null,</cfif>
				Emergent_Care_M0830 = <cfif GetToken(Arr_Elbow, 8, ',') neq ''>'#GetToken(Arr_Elbow, 8, ',')#',<cfelse>null,</cfif>
				Emergent_Care_Reason_M0840 = <cfif GetToken(Arr_Elbow, 9, ',') neq ''>'#GetToken(Arr_Elbow, 9, ',')#',<cfelse>null,</cfif>
				Endocrine_Assess = <cfif GetToken(Arr_Elbow, 10, ',') neq ''>'#GetToken(Arr_Elbow, 10, ',')#',<cfelse>null,</cfif>
				Home_Safety_Assess = <cfif GetToken(Arr_Elbow, 11, ',') neq ''>'#GetToken(Arr_Elbow, 11, ',')#',<cfelse>
				null,</cfif>
				Hospice_Assess = <cfif GetToken(Arr_Elbow, 12, ',') neq ''>'#GetToken(Arr_Elbow, 12, ',')#',<cfelse>null,</cfif>
				Hospital_Reason_List_M0895 = <cfif GetToken(Arr_Elbow, 13, ',') neq ''>'#GetToken(Arr_Elbow, 13, ',')#',<cfelse>null,</cfif>
				Hospital_Reason_M0890 = <cfif GetToken(Arr_Elbow, 14, ',') neq ''>'#GetToken(Arr_Elbow, 14, ',')#',<cfelse>null,</cfif>
				Housekeeping_M0750 = <cfif GetToken(Arr_Elbow, 15, ',') neq ''>'#GetToken(Arr_Elbow, 15, ',')#',<cfelse>null,</cfif>
				Housekeeping_M0750p = <cfif GetToken(Arr_Elbow, 16, ',') neq ''>'#GetToken(Arr_Elbow, 16, ',')#',<cfelse>null,</cfif>
				Inhalant_Meds_M0790 = <cfif GetToken(Arr_Shoulder, 1, ',') neq ''>'#GetToken(Arr_Shoulder, 1, ',')#',<cfelse>null,</cfif>
				Inhalant_Meds_M0790p = <cfif GetToken(Arr_Shoulder, 2, ',') neq ''>'#GetToken(Arr_Shoulder, 2, ',')#',<cfelse>null,</cfif>
				Inject_Meds_M0800 = <cfif GetToken(Arr_Shoulder, 3, ',') neq ''>'#GetToken(Arr_Shoulder, 3, ',')#',<cfelse>null,</cfif> 
				Inpatient_Facility_M0855 = <cfif GetToken(Arr_Shoulder, 4, ',') neq ''>'#GetToken(Arr_Shoulder, 4, ',')#',<cfelse>null,</cfif>
				Laundry_M0740 = <cfif GetToken(Arr_Shoulder, 5, ',') neq ''>'#GetToken(Arr_Shoulder, 5, ',')#',<cfelse>null,</cfif>
				Laundry_M0740p = <cfif GetToken(Arr_Shoulder, 6, ',') neq ''>'#GetToken(Arr_Shoulder, 6, ',')#',<cfelse>null,</cfif>
				M0250_Assess = <cfif GetToken(Arr_Shoulder, 7, ',') neq ''>'#GetToken(Arr_Shoulder, 7, ',')#',<cfelse>null,</cfif>
				M0420_Assess = <cfif GetToken(Arr_Shoulder, 8, ',') neq ''>'#GetToken(Arr_Shoulder, 8, ',')#',<cfelse>null,</cfif>
				M0440_Assess = <cfif GetToken(Arr_Hip, 1, ',') neq ''>'#GetToken(Arr_Hip, 1, ',')#',<cfelse>null,</cfif>
				M0490_Assess = <cfif GetToken(Arr_Hip, 2, ',') neq ''>'#GetToken(Arr_Hip, 2, ',')#',<cfelse>null,</cfif>
				M0520_Assess = <cfif GetToken(Arr_Hip, 3, ',') neq ''>'#GetToken(Arr_Hip, 3, ',')#',<cfelse>null,</cfif>
				M0540_Assess = <cfif GetToken(Arr_Hip, 4, ',') neq ''>'#GetToken(Arr_Hip, 4, ',')#',<cfelse>null,</cfif>
				M0550_Assess = <cfif GetToken(Arr_Hip, 5, ',') neq ''>'#GetToken(Arr_Hip, 5, ',')#',<cfelse>null,</cfif>
				M0610_Assess = <cfif GetToken(Arr_Hip, 6, ',') neq ''>'#GetToken(Arr_Hip, 6, ',')#',<cfelse>null,</cfif>
				M0650_Assess = <cfif GetToken(Arr_Hip, 7, ',') neq ''>'#GetToken(Arr_Hip, 7, ',')#',<cfelse>null,</cfif>
				M0810_Assess = <cfif GetToken(Arr_Hip, 8, ',') neq ''>'#GetToken(Arr_Hip, 8, ',')#',<cfelse>null,</cfif>
				Meal_Prep_M0720 = <cfif GetToken(Arr_Hip, 9, ',') neq ''>'#GetToken(Arr_Hip, 9, ',')#',<cfelse>null,</cfif>
				Meal_Prep_M0720p = <cfif GetToken(Arr_Hip, 10, ',') neq ''>'#GetToken(Arr_Hip, 10, ',')#',<cfelse>null,</cfif>
				Medical_or_Treatment_Change_M0200 = <cfif GetToken(Arr_Hip, 11, ',') neq ''>'#GetToken(Arr_Hip, 11, ',')#',<cfelse>null,</cfif>
				Nursing_Home_M0900 = <cfif GetToken(Arr_Hip, 12, ',') neq ''>'#GetToken(Arr_Hip, 12, ',')#',<cfelse>null,</cfif>
				Oral_Meds_M0780 = <cfif GetToken(Arr_Hip, 13, ',') neq ''>'#GetToken(Arr_Hip, 13, ',')#',<cfelse>null,</cfif>
				Oral_Meds_M0780p = <cfif GetToken(Arr_Hip, 14, ',') neq ''>'#GetToken(Arr_Hip, 14, ',')#',<cfelse>null,</cfif>
				Ostomy_for_Bowel_M0550 = <cfif GetToken(Arr_Hip, 15, ',') neq ''>'#GetToken(Arr_Hip, 15, ',')#',<cfelse>null,</cfif>
				Patient_Behav_freq_M0620 = <cfif GetToken(Arr_Hip, 16, ',') neq ''>'#GetToken(Arr_Hip, 16, ',')#',<cfelse>null,</cfif>
				Patient_Behav_Weekly_M0610 = <cfif GetToken(Arr_Knee, 1, ',') neq ''>'#GetToken(Arr_Knee, 1, ',')#',<cfelse>null,</cfif>
				Patient_Manage_Equip_M0810 = <cfif GetToken(Arr_Knee, 2, ',') neq ''>'#GetToken(Arr_Knee, 2, ',')#',<cfelse>null,</cfif>
				Resp_Treatments_M0500 = <cfif GetToken(Arr_Knee, 3, ',') neq ''>'#GetToken(Arr_Knee, 3, ',')#',<cfelse>null,</cfif>
				Shopping_M0760 = <cfif GetToken(Arr_Knee, 4, ',') neq ''>'#GetToken(Arr_Knee, 4, ',')#',<cfelse>null,</cfif>
				Shopping_M0760p = <cfif GetToken(Arr_Knee, 5, ',') neq ''>'#GetToken(Arr_Knee, 5, ',')#',<cfelse>null,</cfif>
				Stasis_Ulcer_M0468 = <cfif GetToken(Arr_Knee, 6, ',') neq ''>'#GetToken(Arr_Knee, 6, ',')#',<cfelse>null,</cfif>
				Surgical_Wound_Hidden_M0486 = <cfif GetToken(Arr_Knee, 7, ',') neq ''>'#GetToken(Arr_Knee, 7, ',')#',<cfelse>null,</cfif>
				Surgical_Wound_OB_M0484 = <cfif GetToken(Arr_Knee, 8, ',') neq ''>'#GetToken(Arr_Knee, 8, ',')#',<cfelse>null,</cfif>
				Surgical_Wound_Status_M0488 = <cfif GetToken(Arr_Ankle, 1, ',') neq ''>'#GetToken(Arr_Ankle, 1, ',')#',<cfelse>null,</cfif>
				Therapy_Need_M0825 = <cfif GetToken(Arr_Ankle, 2, ',') neq ''>'#GetToken(Arr_Ankle, 2, ',')#',<cfelse>null,</cfif>
				Toileting_M0680p = <cfif GetToken(Arr_Ankle, 3, ',') neq ''>'#GetToken(Arr_Ankle, 3, ',')#',<cfelse>null,</cfif>
				Transferring_M0690 = <cfif GetToken(Arr_Ankle, 4, ',') neq ''>'#GetToken(Arr_Ankle, 4, ',')#',<cfelse>null,</cfif>
				Transport_M0730 = <cfif GetToken(Arr_Ankle, 5, ',') neq ''>'#GetToken(Arr_Ankle, 5, ',')#',<cfelse>null,</cfif>
				Transport_M0730p = <cfif GetToken(Arr_Ankle, 6, ',') neq ''>'#GetToken(Arr_Ankle, 6, ',')#',<cfelse>null,</cfif>
				Urinary_INcont_M0520 = <cfif GetToken(Arr_Ankle, 7, ',') neq ''>'#GetToken(Arr_Ankle, 7, ',')#',<cfelse>null,</cfif>
				Urinary_INcont_when_M0530 = <cfif GetToken(Arr_Ankle, 8, ',') neq ''>'#GetToken(Arr_Ankle, 8, ',')#',<cfelse>null,</cfif>
				Use_Phone_M0770 = <cfif GetToken(Cervical_Spine, 1, ',') neq ''>'#GetToken(Cervical_Spine, 1, ',')#',<cfelse>null,</cfif> 
				Use_Phone_M0770p = <cfif GetToken(Cervical_Spine, 2, ',') neq ''>'#GetToken(Cervical_Spine, 2, ',')#',<cfelse>null,</cfif>
				UTI_M0510 = <cfif GetToken(Cervical_Spine, 3, ',') neq ''>'#GetToken(Cervical_Spine, 3, ',')#',<cfelse>null,</cfif>
				When_Anxious_M0580 = <cfif GetToken(Cervical_Spine, 4, ',') neq ''>'#GetToken(Cervical_Spine, 4, ',')#',<cfelse>null,</cfif>
				Assessment_note = '#M0250_Assess#'
				WHERE Assessment_ID = '#session.cs.AssessmentId#'
				 </cfquery>	
				
			 <cfreturn 'step8'>
	</cffunction>
	
	<cffunction name="ptadult8" access="remote" returnformat="plain" returntype="string">	
	           <cfargument name="Dress_Lower_M0660p" required="yes" hint="ot Step 8">
			   <cfargument name="Bathing_M0670" required="yes" hint="ot Step 8">
			   <cfargument name="When_Confused_M0570" required="yes" hint="ot Step 8">			   
			   <cfargument name="Discharged_From_M0175" required="yes" hint="ot Step 8">
			  <cfargument name="M0440_Assess" required="yes" hint="ot Step 8">
			  
			  <cfif isdefined('session.cs.AssessmentId')>
			  <cfquery name="OtpediatricUP2" datasource="#Application.DataSrc#">				
					UPDATE #Request.prefix_db_agency#.Assessment_New SET 
						Dress_Lower_M0660p ='#Dress_Lower_M0660p#',	
						Bathing_M0670 = '#Bathing_M0670#',	
						When_Confused_M0570 = '#When_Confused_M0570#',						
						Discharged_From_M0175 = '#Discharged_From_M0175#',
						Assessment_note = '#M0440_Assess#'	
					WHERE Assessment_ID = '#session.cs.AssessmentId#'				
			   </cfquery>
			   </cfif>   
			  <cfreturn 'step9'>
	</cffunction>
	
	<cffunction name="ptadult9" access="remote" returnformat="plain" returntype="string">	
	           <cfargument name="Bathing_M0670p" required="yes" hint="ot Step 8">
			   <cfargument name="Toileting_M0680" required="yes" hint="ot Step 8">
			   <cfargument name="Rehab_Prognosis_M0270" required="yes" hint="ot Step 8">
			   <cfargument name="AssessmentType_New" required="yes" hint="ot Step 8">
			  
			  
			  <cfif isdefined('session.cs.AssessmentId')>
			  <cfquery name="OtpediatricUP2" datasource="#Application.DataSrc#">				
					UPDATE #Request.prefix_db_agency#.Assessment_New SET 
						Bathing_M0670p ='#Bathing_M0670p#',	
						Toileting_M0680 = '#Toileting_M0680#',	
						Rehab_Prognosis_M0270 = '#Rehab_Prognosis_M0270#',
						AssessmentType_New = '#AssessmentType_New#'	
					WHERE Assessment_ID = '#session.cs.AssessmentId#'				
			   </cfquery>
			   </cfif>
			   		 		     
			  <cfreturn 'finish'>
	</cffunction>
	
	<cffunction name="ptadult_finish" access="remote" returnformat="plain" returntype="string">	
	           <cfargument name="Bathing_M0670p" required="yes" hint="ot Step 8">
			   <cfargument name="Toileting_M0680" required="yes" hint="ot Step 8">
			   <cfargument name="Rehab_Prognosis_M0270" required="yes" hint="ot Step 8">
			   <cfargument name="AssessmentType_New" required="yes" hint="ot Step 8">
			   
			  <cfif isdefined('session.cs.AssessmentId')>
			  <cfquery name="OtpediatricUP2" datasource="#Application.DataSrc#">				
					UPDATE #Request.prefix_db_agency#.Assessment_New SET 
						Bathing_M0670p ='#Bathing_M0670p#',	
						Toileting_M0680 = '#Toileting_M0680#',	
						Rehab_Prognosis_M0270 = '#Rehab_Prognosis_M0270#',
						Admission_Status='Complete',
						AssessmentType_New = '#AssessmentType_New#'	
					WHERE Assessment_ID = '#session.cs.AssessmentId#'				
			   </cfquery>
			   </cfif>     
			  <cfreturn 'finish'>
	</cffunction>
	
	<cffunction name="pain" access="remote" returnformat="plain" returntype="string">	
	           <cfargument name="Psy_Nursing_M0630" required="yes" hint="ot Step 7">
			   <cfargument name="Grooming_M0640" required="yes" hint="ot Step 7">	
			   <cfargument name="Grooming_M0640p" required="yes" hint="ot Step 7">
			   <cfargument name="Dress_Upper_M0650" required="yes" hint="ot Step 7">	
			   <cfargument name="Dress_Upper_M0650p" required="yes" hint="ot Step 7">
				
			  <cfif isdefined('session.cs.AssessmentId')>
			  <cfquery name="OtpediatricUP2" datasource="#Application.DataSrc#">				
					UPDATE #Request.prefix_db_agency#.Assessment_New SET 
						Psy_Nursing_M0630 ='#Psy_Nursing_M0630#',	
						Grooming_M0640 = '#Grooming_M0640#',	
						Grooming_M0640p ='#Grooming_M0640p#',	
						Dress_Upper_M0650 = '#Dress_Upper_M0650#',
						Dress_Upper_M0650p ='#Dress_Upper_M0650p#'
					WHERE Assessment_ID = '#session.cs.AssessmentId#'				
			   </cfquery>
			   </cfif>
			   		 		     
			  <cfreturn 'pain'>
	</cffunction>
	
	<cffunction  name="M1010Diagnosis" access="remote" returnformat="plain" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1010 Diagnosis">
		<cfargument name="DiadDxOrder" required="yes" hint="SOC M1010 Diagnosis">
		<cfargument name="vcode" required="yes" hint="SOC M1010 Diagnosis">
		
		<cfset DupDiagnosis="fail" />
		<cfif isdefined('session.cs.AssessmentId')>
		<cfset m02301='#session.cs.AssessmentId#'&' ptadult' />
			<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>
			
			<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="30">
				
					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 ".">
			<cfset M1010fetch_ICD = M1010fetch.ICD />
			<cfelse>
			<cfset M1010fetch_ICD = M1010fetch.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>
		
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#&'.'&#M1010fetchICD_sub# />
			<cfquery name="M1010count" datasource="#Application.DataSrc#">	     
			<cfsetting requesttimeout="30">	
					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 = DiadDxOrder />		
		
		<cfset M1010fetchICD = M1010fetchICD_1 />
		
		<cfif M1010fetchICD contains(".")>
			
		<cfelse>
			<cfif len(M1010fetchICD) lte "3" >	
				<cfset M1010fetchICD = M1010fetchICD & ".00" />		
			</cfif>
		</cfif>
		
		<cfif isdefined('session.cs.AssessmentId')>
		<cfif vcode neq '00'>
		<cfquery name="M1010Insert" 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,M0190_Link,Dx_Order,M0230_Link) VALUES 	
					('#session.cs.AssessmentId#','#AssID.Assessment_Tracker_ID#','#AssID.Patient_ID#','#session.AgencyLogin#',
					'#M1010fetch.Diagnosis#','#vcode#','#M1010fetch.Code_Type#','#Replace(M1010fetch.Pathway_Type, "'", '', 'ALL')#',
					'#M1010fetch.Short_Diagnosis#','#vcode#','#m02301#','#count#','#session.cs.AssessmentId# M0230')

		</cfquery>
		<cfelse>
		<cfquery name="M1010Insert" 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,M0190_Link,Dx_Order,M0230_Link) VALUES 	
					('#session.cs.AssessmentId#','#AssID.Assessment_Tracker_ID#','#AssID.Patient_ID#','#session.AgencyLogin#',
					'#M1010fetch.Diagnosis#','#M1010fetchICD#','#M1010fetch.Code_Type#','#Replace(M1010fetch.Pathway_Type, "'", '', 'ALL')#',
					'#M1010fetch.Short_Diagnosis#','#M1010fetchICD#','#m02301#','#count#','#session.cs.AssessmentId# M0230')

		</cfquery>
		</cfif>
		<cfquery name="setscore" datasource="#Application.DataSrc#">
		select Dx_Order from #Request.prefix_db_agency#.Diagnosis where assessment_id=#session.cs.AssessmentId#
		</cfquery>
		<cfoutput query="setscore">
		
		<cfquery name="geticd" datasource="#Application.DataSrc#">
					select ICD from #Request.prefix_db_agency#.Diagnosis where assessment_id=#session.cs.AssessmentId# and Dx_Order ='#setscore.Dx_Order#'
		</cfquery>
		
		<cfif #setscore.Dx_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 #setscore.Dx_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 #setscore.Dx_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 #setscore.Dx_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 #setscore.Dx_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 #setscore.Dx_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>
		</cfoutput>
		
	
		</cfif> 				
		<cfset DupDiagnosis="Added" />
		<cfelse>
		<cfset DupDiagnosis="DUP" />		
		</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 gt '2015-09-30'>
		<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>
		<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#.diagnosis_list WHERE
			diagnosis_list.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>
			</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 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#%'

		</cfquery>
			</cfif>

		<cfif M0230count.M0230RecordCount eq 0>

		<cfset M0230fetchICD= M1010fetchICD_1>
		<cfset count = 1>

		<cfif M0230fetchICD contains(".")>

		<cfelse>
			<cfif len(M0230fetchICD) lte "3" >
				<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#','1','#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#',
		'1',
		'#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">
		<cfelse>
		<cfset DupDiagnosis="M0230DUP">
		</cfif>	</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="30">
			 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="30">
						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 'PTDelete'>
    </cffunction>
	
	
	
	<cffunction  name="PTadultUPVital" access="remote" returnformat="plain"  returntype="string">
			<cfargument name="AssTrackID" required="yes" hint="PTadult Step AddVital">
			<cfargument name="Type" required="no" hint="PTadult Step AddVital">
			<cfargument name="Reading" required="no" hint="PTadult Step AddVital">
			<cfargument name="Severity" required="no" hint="PTadult Step AddVital">
			<cfargument name="Notes" required="no" hint="PTadult 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="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>
	
	
	</cfcomponent>
	