<cfcomponent>
<cffunction name="transfer_discharge_insert"   access="remote" returnFormat= "JSON" >
	           <cfargument name="answers" required="yes" hint="SOC Step 1">
			   <cfargument name="wizard" required="yes" hint="SOC Step 1">
			    <cfargument name="total_wizard" default="" hint="SOC Step">
				<cfargument name="assessment_reason" default="" hint="SOC Step">
			    <cfset count = 0 >
			     <cfif isdefined('session.cs.AssessmentId')>
						<cfset data=ArrayNew(1) />
						<cfset datalist=ArrayNew(2) />
						<cfset datalist=ListToArray(answers,"~",false,true) />
						<!---<cfdump var="#datalist#">--->
						<cfloop from="1" to="#ArrayLen(datalist)#" index="i" step="2">
						<!---<cfoutput> #(datalist[i])#  =  '#datalist[i+1]#' <br></cfoutput>--->
							 <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>"#datalist[i+1]#"</cfif>
										 	<cfif wizard eq #total_wizard#>
												,AssessmentType_New = 1
												,Admission_Status='Complete'
											</cfif>
									   WHERE Assessment_ID =  '#session.cs.AssessmentId#'
								   </cfquery><!---<br>--->
							 </cfoutput>
						</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>
			      <cfset response_key={"statusCode"= 200,"statusText"= 'success',"data"= #count# } />
			<cfreturn  response_key >
</cffunction>

	<cffunction name="UpdateStep1" access="remote" returnformat="plain" returntype="string">
		<cfargument name="hdnM1040_Influ" type="string" required="yes">
		<cfargument name="hdnM1045_Influ" type="string" required="yes">
		<cfargument name="hdnM1050_Pneu" type="string" required="yes">
		<cfargument name="hdnM1055_Pneu" type="string" required="yes">	
		<cfargument name="Comments" type="string" required="no">
		<cfif isdefined('session.cs.AssessmentId')>		
		<cfquery name="AssessmentForm1" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
		
				UPDATE #Request.prefix_db_agency#.Assessment_New SET
					M1040_Influ = '#hdnM1040_Influ#',
					M1045_Influ  = '#hdnM1045_Influ#',
					M1050_Pneu  = '#hdnM1050_Pneu#',
					Assessment_note='#Comments#',
					M1055_Pneu  = '#hdnM1055_Pneu#'	
				Where Assessment_New.Assessment_ID= '#session.cs.AssessmentId#'			
		</cfquery>		
		</cfif>
		
		<cfset myResult="foo" />
		<cfreturn myResult>
	</cffunction>
	<cffunction name="UpdateStep2" access="remote" returnformat="plain" returntype="string">	
	    <cfargument name="Breathing_M0490" type="string" required="yes">
		<cfargument name="Resp_Treatments_M0500" type="string" required="yes">
		<cfargument name="M1500_Symptoms" type="string" required="yes">
		<cfargument name="M1510_Hrt_FU" type="string" required="yes">
		<cfargument name="Comments" type="string" required="no">
	    <cfset Resp=replace(Resp_Treatments_M0500,'!',',','All') />
		<cfset M1510=replace(M1510_Hrt_FU,'!',',','All') />		
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery name="AssessmentForm2" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
				UPDATE #Request.prefix_db_agency#.Assessment_New SET
					Breathing_M0490='#Breathing_M0490#',
					Resp_Treatments_M0500='#Resp#',
					M1500_Symptoms='#M1500_Symptoms#',
					Assessment_note='#Comments#',
					M1510_Hrt_FU='#M1510#'				
				Where Assessment_New.Assessment_ID= '#session.cs.AssessmentId#'	
				
		</cfquery>
		</cfif>	
	    <cfreturn 'step2'>
	</cffunction> 
	<cffunction name="UpdateStep3" access="remote" returnformat="plain" returntype="string">	
	    <cfargument name="M2004_Med_Int" type="string" required="yes">
		<cfargument name="M2015_Drug_Edu" type="string" required="yes">
		<cfargument name="Oral_Meds_M0780" type="string" required="yes">		
		<cfargument name="Inject_Meds_M0800" type="string" required="yes">	
		<cfargument name="Comments" type="string" required="no">
		<cfif isdefined('session.cs.AssessmentId')>			
		<cfquery name="AssessmentForm3" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
			
				UPDATE #Request.prefix_db_agency#.Assessment_New SET
					M2004_Med_Int='#M2004_Med_Int#',
					M2015_Drug_Edu='#M2015_Drug_Edu#',
					Oral_Meds_M0780='#Oral_Meds_M0780#',
					Assessment_note='#Comments#',
					Inject_Meds_M0800='#Inject_Meds_M0800#'
				Where Assessment_New.Assessment_ID='#session.cs.AssessmentId#'		
			
		</cfquery>
		</cfif>
	    <cfreturn 'step3'>
	</cffunction> 
		<cffunction name="UpdateStep4" access="remote" returnformat="plain" returntype="string">	
	    <cfargument name="Emergent_Care_M0830" type="string" required="yes">
		<cfargument name="Emergent_Care_Reason_M0840" type="string" required="yes">
		<cfargument name="Comments" type="string" required="no">
		<cfset Reason=replace(Emergent_Care_Reason_M0840,'!',',','All') />
		<cfif isdefined('session.cs.AssessmentId')>					
		<cfquery name="AssessmentForm4" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
		
				UPDATE #Request.prefix_db_agency#.Assessment_New SET
					Emergent_Care_M0830='#Emergent_Care_M0830#',
					Assessment_note='#Comments#',
					Emergent_Care_Reason_M0840='#Reason#'
				Where Assessment_New.Assessment_ID='#session.cs.AssessmentId#'			
		
		</cfquery>
		</cfif>
	    <cfreturn 'step4'>
	</cffunction>
	<cffunction name="UpdateStep5" access="remote" returnformat="plain" returntype="string">	
	    <cfargument name="M2400a_Diabetic" type="string" required="yes">
		<cfargument name="M2400b_FallsPrev" type="string" required="yes">
		<cfargument name="M2400c_Depress" type="string" required="yes">
		<cfargument name="M2400d_Pain" type="string" required="yes">
	    <cfargument name="M2400e_PressUlc" type="string" required="yes">
		<cfargument name="M2400f_PressUlcMoist" type="string" required="yes">
		<cfargument name="Inpatient_Facility_M0855" type="string" required="yes">
		<cfargument name="Discharge_Disposition_M0870" type="string" required="yes">	
		<cfargument name="Comments" type="string" required="no">	
		<cfif isdefined('session.cs.AssessmentId')>					
		<cfquery name="AssessmentForm5" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
		
				UPDATE #Request.prefix_db_agency#.Assessment_New SET
					M2400a_Diabetic='#M2400a_Diabetic#',
					M2400b_FallsPrev='#M2400b_FallsPrev#',
					M2400c_Depress='#M2400c_Depress#',
					M2400d_Pain='#M2400d_Pain#',
					M2400e_PressUlc='#M2400e_PressUlc#',
					M2400f_PressUlcMoist='#M2400f_PressUlcMoist#',
					Inpatient_Facility_M0855='#Inpatient_Facility_M0855#',
					Assessment_note='#Comments#',
					Discharge_Disposition_M0870='#Discharge_Disposition_M0870#'
				Where Assessment_New.Assessment_ID='#session.cs.AssessmentId#'	
					
		</cfquery>
		</cfif>
	    <cfreturn 'step5'>
	</cffunction>
	<cffunction name="UpdateStep6" access="remote" returnformat="plain" returntype="string">	
		 <cfargument name="Hospital_Reason_List_M0895" type="string" required="yes">
		<cfargument name="Nursing_Home_M0900" type="string" required="yes">
	    <cfargument name="Date_Most_Recent_M0903" type="string" required="yes">
		<cfargument name="Date_Discharge_M0906" type="string" required="yes">
	    <cfargument name="Assessment_Completed_M0090" type="string" required="yes">
		<cfargument name="Previous_Assessment_number" type="string" required="yes">
		<cfargument name="Comments" type="string" required="no">
		<cfset Reason1=replace(Hospital_Reason_List_M0895,'!',',','All') />
		<cfset Reason2=replace(Nursing_Home_M0900,'!',',','All') />
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery name="AssessmentForm6" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
				UPDATE #Request.prefix_db_agency#.Assessment_New SET
					Hospital_Reason_List_M0895='#Reason1#',
					Nursing_Home_M0900='#Reason2#',
					Date_Most_Recent_M0903='#DateFormat(Date_Most_Recent_M0903,"yyyy-mm-dd")#',
					Date_Discharge_M0906='#DateFormat(Date_Discharge_M0906,"yyyy-mm-dd")#',									
					Assessment_Completed_M0090='#DateFormat(Assessment_Completed_M0090,"yyyy-mm-dd")#',
					Previous_Assessment_number='#Previous_Assessment_number#',
					AssessmentType_New ='1',
					Assessment_note='#Comments#',
					Admission_Status='Complete'
				Where Assessment_New.Assessment_ID='#session.cs.AssessmentId#'	
		</cfquery>
		</cfif>
	    <cfreturn 'step6'>
	</cffunction>
</cfcomponent>