<cfcomponent>
	<cffunction name="UpdateStep1Function" access="remote" returnformat="plain" returntype="string">
	    <cfargument name="rdnAdmitted" type="string" required="yes">
		<cfargument name="careplan" type="string" required="yes">
		<cfargument name="rdncardio" type="string" required="yes">
		<cfargument name="dtM640" type="string" required="yes">
		<cfargument name="rdnf2100" type="string" required="yes">
		<cfargument name="dtM650" type="string" required="yes">
		<cfargument name="rdnf2200" type="string" required="yes">
		<cfargument name="dtM660" type="string" required="yes">
		<cfargument name="rdnj0900" type="string" required="yes">
		<cfargument name="dtM690" type="string" required="yes">
		<cfargument name="rdnf3000" type="string" required="yes">
		<cfargument name="dtM670" type="string" required="yes">
		<cfargument name="rdnI0100" type="string" required="yes">
		<cfargument name="rdnj0900c" type="string" required="yes">
		<cfargument name="rdnj0900d" type="string" required="yes">
		<cfargument name="rdnj0905" type="string" required="yes">
		<cfargument name="rdnj0910a" type="string" required="yes">
		<cfargument name="dtM710" type="string" required="yes">
		<cfargument name="chkComprehen" type="string" required="yes">
		<cfargument name="rdnj2030" type="string" required="yes">
		<cfargument name="dtM720" type="string" required="yes">
		<cfargument name="rdnj2030c" type="string" required="yes">
		<cfargument name="rdnj2040" type="string" required="yes">
		<cfargument name="dtM740" type="string" required="yes">
		<cfargument name="rdn2040c" type="string" required="yes">
		<cfargument name="rdnn0500" type="string" required="yes">
		<cfargument name="dtM750" type="string" required="yes">
		<cfargument name="rdnn0510a" type="string" required="yes">
		<cfargument name="rdnn0520a" type="string" required="yes">
		<cfargument name="dtM770" type="string" required="yes">
		<cfargument name="dtM780" type="string" required="yes">
		<cfargument name="rdnKarnofsky" type="string" required="yes">
		<cfargument name="chkComprehensive" type="string" required="yes">
		<cfargument name="chkTherapies" type="string" required="yes">
		<cfargument name="ChkOverweight" type="string" required="yes">
		<cfargument name="chkEndocrine" type="string" required="yes">
		<cfargument name="rdnPain" type="string" required="yes">
		<cfargument name="ChkThrobbing" type="string" required="yes">
		<cfargument name="rdnThreshold" type="string" required="yes">
		<cfargument name="rdnRate" type="string" required="yes">
		<cfargument name="rdnLong" type="string" required="yes">
		<cfargument name="Chkact" type="string" required="yes">
		<cfargument name="chkSkin" type="string" required="yes">
		<cfargument name="chkDyspnea" type="string" required="yes">
		<cfargument name="chkUrinecolor" type="string" required="yes">
		<cfargument name="chkBowelSound" type="string" required="yes">
		<cfargument name="chkFlatulence" type="string" required="yes">
		<cfargument name="chkMusclo" type="string" required="yes">
		<cfargument name="chkPT" type="string" required="yes">
		<cfargument name="chkPoor" type="string" required="yes">
		<cfargument name="chkMental" type="string" required="yes">
		<cfargument name="chkFinanical" type="string" required="yes">
		<cfargument name="chkpatdep" type="string" required="yes">
		<cfargument name="chkSpiritual" type="string" required="yes">
		<cfargument name="chkHome" type="string" required="yes">	
		<cfargument name="finishValue" type="string" required="yes">		
		<cfargument name="txtsurgical1" type="string" required="yes">
		<cfargument name="txtsurgical" type="string" required="yes">	
		<cfargument name="dateass2" type="string" required="yes">
		<cfargument name="Comments" type="string" required="no">	
		
		<cfquery name="Step1"  datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
			<cfif isdefined('session.cs.AssessmentId')>
				UPDATE #Request.prefix_db_agency#.Assessment_New SET 
				Surgical_ICD_485 = '#txtsurgical1#',
				Surgical_ICD_485_Description  = '#txtsurgical#',
				M0063_Pattern ='#careplan#',
				<cfif dateass2 NEQ ''>
				Assessment_New.Surgical_ICD_Date_485=#CreateODBCDate(dateass2)#,
				<cfelse>
				Assessment_New.Surgical_ICD_Date_485= null,
				</cfif>	
				Psy_Nursing_M0630 = '#rdnAdmitted#',
				Grooming_M0640 = '#rdncardio#',
				<cfif dtM640 NEQ ''>
				Assessment_New.Grooming_M0640p=#CreateODBCDate(dtM640)#,
				<cfelse>
				Assessment_New.Grooming_M0640p= null,
				</cfif>	
				Dress_Upper_M0650 = '#rdnf2100#',
				<cfif dtM650 NEQ ''>
				Assessment_New.Dress_Upper_M0650p=#CreateODBCDate(dtM650)#,
				<cfelse>
				Assessment_New.Dress_Upper_M0650p= null,
				</cfif>	
				Dress_Lower_M0660 = '#rdnf2200#',
				<cfif dtM660 NEQ ''>
				Assessment_New.Dress_Lower_M0660p=#CreateODBCDate(dtM660)#,
				<cfelse>
				Assessment_New.Dress_Lower_M0660p= null,
				</cfif>	
				Bathing_M0670 = '#rdnf3000#',
				<cfif dtM670 NEQ ''>
				Assessment_New.Bathing_M0670p=#CreateODBCDate(dtM670)#,
				<cfelse>
				Assessment_New.Bathing_M0670p= null,
				</cfif>	
				Toileting_M0680 = '#rdnI0100#',
				Toileting_M0680p = '#rdnj0900#',
				<cfif dtM690 NEQ ''>
				Assessment_New.Transferring_M0690=#CreateODBCDate(dtM690)#,
				<cfelse>
				Assessment_New.Transferring_M0690= null,
				</cfif>	
				Transferring_M0690p = '#rdnj0900c#',
				Ambulation_M0700 = '#rdnj0900d#',
				Breathing_M0490 = '#rdnj0905#', 
				Ambulation_M0700p = '#rdnj0910a#',
				<cfif dtM710 NEQ ''>
				Assessment_New.Eating_M0710=#CreateODBCDate(dtM710)#,
				<cfelse>
				Assessment_New.Eating_M0710= null,
				</cfif>	
				Eating_M0710p = '#chkComprehen#',
				Meal_Prep_M0720 = '#rdnj2030#',
				<cfif dtM720 NEQ ''>
				Assessment_New.Meal_Prep_M0720p=#CreateODBCDate(dtM720)#,
				<cfelse>
				Assessment_New.Meal_Prep_M0720p= null,
				</cfif>	
				Transport_M0730 = '#rdnj2030c#',
                Transport_M0730p = '#rdnj2040#',
				<cfif dtM740 NEQ ''>
				Assessment_New.Laundry_M0740=#CreateODBCDate(dtM740)#,
				<cfelse>
				Assessment_New.Laundry_M0740= null,
				</cfif>	
				Laundry_M0740p = '#rdn2040c#',
				Housekeeping_M0750 = '#rdnn0500#',
				<cfif dtM750 NEQ ''>
				Assessment_New.Housekeeping_M0750p=#CreateODBCDate(dtM750)#,
				<cfelse>
				Assessment_New.Housekeeping_M0750p= null,
				</cfif>	
				Shopping_M0760 = '#rdnn0510a#',
				Shopping_M0760p = '#rdnn0520a#',
				<cfif dtM770 NEQ ''>
				Assessment_New.Use_Phone_M0770=#CreateODBCDate(dtM770)#,
				<cfelse>
				Assessment_New.Use_Phone_M0770= null,
				</cfif>	
				<cfif dtM780 NEQ ''>
				Assessment_New.Oral_Meds_M0780=#CreateODBCDate(dtM780)#,
				<cfelse>
				Assessment_New.Oral_Meds_M0780= null,
				</cfif>	
				Hospice_Assess = '#rdnKarnofsky#',
				Home_Safety_Assess = '#chkComprehensive#',
				Therapies_Home_M0250 = '#chkTherapies#',
				M0250_Assess = '#ChkOverweight#',
				Endocrine_Assess = '#chkEndocrine#',
				M0420_Assess = '#rdnPain#',
				pain1 = '#ChkThrobbing#',
				pain2 = '#rdnThreshold#',
				pain3 = '#rdnRate#',
				pain4 = '#rdnLong#',
				pain5 = '#Chkact#',
				M0440_Assess= '#chkSkin#',
				M0490_Assess = '#chkDyspnea#',
				M0520_Assess = '#chkUrinecolor#',
				M0540_Assess = '#chkBowelSound#',
				M0650_Assess = '#chkMusclo#',
				M0610_Assess = '#chkPT#',
				Urinary_INcont_M0520 = '#chkPoor#',
				Patient_Behav_freq_M0620 = '#chkMental#',
				Urinary_INcont_when_M0530 = '#chkFinanical#',
				Bowel_Incont_M0540 = '#chkpatdep#',
				Ostomy_for_Bowel_M0550 = '#chkSpiritual#',
				Cog_Function_M0560 = '#chkHome#',
				M0550_Assess = '#chkFlatulence#',
				Assessment_note='#Comments#',
				<cfif finishValue eq 1>
				AssessmentType_New = 1,
				Admission_Status = 'Complete'
				<cfelse>
				AssessmentType_New = 0,
				Admission_Status = 'In Progress'
				</cfif>
				where Assessment_ID='#session.cs.AssessmentId#' 
			</cfif>
		</cfquery>
		
		<cfset myResult=#finishValue# />
		<cfreturn myResult>
	</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="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 gt '2015-09-30'>	
        <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#.diagnosis_list WHERE 
			diagnosis_list.id=#DiagnosisID# 	
		</cfquery>
</cfif>
		<cfset M1010fetchICD_1 = '' />
			<cfset M1010fetchICD_sub = '' />
			<cfset i =1 />
			<cfif M0230fetch.ICD contains ".">
			<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>--->
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#&'.'&#M1010fetchICD_sub# />
		<cfset strlen = len(#M0230fetch.Diagnosis#) />	
		<cfset M0230fetchICD= M1010fetchICD_1 /> 
		<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')>     	   
		<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>--->
		
		<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#',
		'#session.AgencyLogin#','#M0230fetch.Diagnosis#','#typecode#','#M0230fetch.Code_Type#','#Replace(M0230fetch.Pathway_Type, "'", '', 'ALL')#',
		'#M0230fetch.Short_Diagnosis#','#typecode#','#m02301#','#M0230Severity#','#M0230Primary#',
		'#M0230Secondary#','1','#M0230fetch.Other_DG#','#vcodediag#','#vcodeicd#')
		</cfquery>
		<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#',
		'#session.AgencyLogin#','#M0230fetch.Diagnosis#','#M0230fetchICD#','#M0230fetch.Code_Type#','#Replace(M0230fetch.Pathway_Type, "'", '', 'ALL')#',
		'#M0230fetch.Short_Diagnosis#','#M0230fetchICD#','#m02301#','#M0230Severity#','#M0230Primary#',
		'#M0230Secondary#','1','#M0230fetch.Other_DG#','#vcodediag#','#vcodeicd#')	
		</cfquery>
		</cfif>
		
						
		<cfset DupDiagnosis="M0230Added" />
		<cfelse>
		<cfset DupDiagnosis="M0230DUP" />		
		</cfif></cfif>		
       
    <cfreturn DupDiagnosis>
    </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="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#">
					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="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="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="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"> 
				
		<cfquery name="M0230Delete" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
			<cfif isdefined('session.cs.AssessmentId')>
			    delete from #Request.prefix_db_agency#.Diagnosis where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#DiagnosisID#
			</cfif>
		</cfquery>
		
		<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>
		<cfquery name="M1020upd" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
			<cfif isdefined('session.cs.AssessmentId')>
				 UPDATE #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#	
			</cfif>
		</cfquery>
		</cfoutput>
		
		<cfset Secondcount=0 />
		<cfset Id='' />
		<cfset severity='' />
		<cfset dxorder='' />
		<cfset primary='' />
		<cfset secondary='' />
		
		</cfloop>
       
    <cfreturn 'M0230Delete'>
    </cffunction>
</cfcomponent>


<!---<cfcomponent>
	<cffunction name="UpdateStep1Function" access="remote" returnformat="plain" returntype="string">
	    <cfargument name="rdnAdmitted" type="string" required="yes">
		<cfargument name="rdncardio" type="string" required="yes">
		<cfargument name="dtM640" type="string" required="yes">
		<cfargument name="rdnf2100" type="string" required="yes">
		<cfargument name="dtM650" type="string" required="yes">
		<cfargument name="rdnf2200" type="string" required="yes">
		<cfargument name="dtM660" type="string" required="yes">
		<cfargument name="rdnj0900" type="string" required="yes">
		<cfargument name="dtM690" type="string" required="yes">
		<cfargument name="rdnKarnofsky" type="string" required="yes">
		<cfargument name="chkComprehensive" type="string" required="yes">
		<cfargument name="chkTherapies" type="string" required="yes">
		<cfargument name="ChkOverweight" type="string" required="yes">
		<cfargument name="chkEndocrine" type="string" required="yes">
		<cfargument name="rdnPain" type="string" required="yes">
		<cfargument name="ChkThrobbing" type="string" required="yes">
		<cfargument name="rdnThreshold" type="string" required="yes">
		<cfargument name="rdnRate" type="string" required="yes">
		<cfargument name="rdnLong" type="string" required="yes">
		<cfargument name="Chkact" type="string" required="yes">
		<cfargument name="chkSkin" type="string" required="yes">
		<cfargument name="chkDyspnea" type="string" required="yes">
		<cfargument name="chkUrinecolor" type="string" required="yes">
		<cfargument name="chkBowelSound" type="string" required="yes">
		<cfargument name="chkFlatulence" type="string" required="yes">
		<cfargument name="chkMusclo" type="string" required="yes">
		<cfargument name="chkPT" type="string" required="yes">
		<cfargument name="chkPoor" type="string" required="yes">
		<cfargument name="chkMental" type="string" required="yes">
		<cfargument name="chkFinanical" type="string" required="yes">
		<cfargument name="chkpatdep" type="string" required="yes">
		<cfargument name="chkSpiritual" type="string" required="yes">
		<cfargument name="chkHome" type="string" required="yes">	
		<cfargument name="finishValue" type="string" required="yes">		
		<cfargument name="txtsurgical1" type="string" required="yes">
		<cfargument name="txtsurgical" type="string" required="yes">	
		<cfargument name="dateass2" type="string" required="yes">
		<cfargument name="Comments" type="string" required="no">	
		
		<cfquery name="Step1"  datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
			<cfif isdefined('session.cs.AssessmentId')>
				UPDATE Assessment_New SET 
				Surgical_ICD_485 = '#txtsurgical1#',
				Surgical_ICD_485_Description  = '#txtsurgical#',
				<cfif dateass2 NEQ ''>
				Assessment_New.Surgical_ICD_Date_485=#CreateODBCDate(dateass2)#,
				<cfelse>
				Assessment_New.Surgical_ICD_Date_485= null,
				</cfif>	
				M0630 = '#rdnAdmitted#',
				M640 = '#rdncardio#',
				<cfif dtM640 NEQ ''>
				Assessment_New.M640p=#CreateODBCDate(dtM640)#,
				<cfelse>
				Assessment_New.M640p= null,
				</cfif>	
				M650 = '#rdnf2100#',
				<cfif dtM650 NEQ ''>
				Assessment_New.M650p=#CreateODBCDate(dtM650)#,
				<cfelse>
				Assessment_New.M650p= null,
				</cfif>	
				M660 = '#rdnf2200#',
				<cfif dtM660 NEQ ''>
				Assessment_New.M660p=#CreateODBCDate(dtM660)#,
				<cfelse>
				Assessment_New.M660p= null,
				</cfif>	
				M680p = '#rdnj0900#',
				<cfif dtM660 NEQ ''>
				Assessment_New.M690=#CreateODBCDate(dtM690)#,
				<cfelse>
				Assessment_New.M690= null,
				</cfif>
				Hospice_Assess = '#rdnKarnofsky#',
				Home_Safety_Assess = '#chkComprehensive#',
				Therapies_Home_M0250 = '#chkTherapies#',
				M0250_Assess = '#ChkOverweight#',
				Endocrine_Assess = '#chkEndocrine#',
				M0420_Assess = '#rdnPain#',
				pain1 = '#ChkThrobbing#',
				pain2 = '#rdnThreshold#',
				pain3 = '#rdnRate#',
				pain4 = '#rdnLong#',
				pain5 = '#Chkact#',
				M0440_Assess= '#chkSkin#',
				M0490_Assess = '#chkDyspnea#',
				M0520_Assess = '#chkUrinecolor#',
				M0540_Assess = '#chkBowelSound#',
				M0650_Assess = '#chkMusclo#',
				M0610_Assess = '#chkPT#',
				Urinary_INcont_M0520 = '#chkPoor#',
				Patient_Behav_freq_M0620 = '#chkMental#',
				Urinary_INcont_when_M0530 = '#chkFinanical#',
				Bowel_Incont_M0540 = '#chkpatdep#',
				Ostomy_for_Bowel_M0550 = '#chkSpiritual#',
				Cog_Function_M0560 = '#chkHome#',
				M0550_Assess = '#chkFlatulence#',
				Assessment_note='#Comments#',
				<cfif finishValue eq 1>
				AssessmentType_New = 1,
				Admission_Status = 'Complete'
				<cfelse>
				AssessmentType_New = 0,
				Admission_Status = 'In Progress'
				</cfif>
				where Assessment_ID='#session.cs.AssessmentId#' 
			</cfif>
		</cfquery>
		
		<cfset myResult=#finishValue# />
		<cfreturn myResult>
	</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="30">
			
				Select Assessment_Tracker_ID,Patient_ID,Agency_ID From Assessment_New 
				where Assessment_ID= '#session.cs.AssessmentId#'

		</cfquery>
			</cfif>
					
		<cfquery name="M0230fetch" datasource="#Application.DataSrc#">	    
		<cfsetting requesttimeout="30">
			select Diagnosis,ICD,Code_Type,Pathway_Type,Short_Diagnosis,Other_DG from diagnosis_list WHERE 
			diagnosis_list.id=#DiagnosisID# 	
		</cfquery>
		<cfset M1010fetchICD_1 = '' />
			<cfset M1010fetchICD_sub = '' />
			<cfset i =1 />
			<cfif M0230fetch.ICD contains ".">
			<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>
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#&'.'&#M1010fetchICD_sub# />
		<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 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>
		
		<cfif isdefined('session.cs.AssessmentId')>
		<cfif #M0230fetch.Code_Type# eq 'V_Code'>		
		<cfquery name="M0230Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">		
		INSERT INTO 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#',
		'#session.AgencyLogin#','#M0230fetch.Diagnosis#','#typecode#','#M0230fetch.Code_Type#','#Replace(M0230fetch.Pathway_Type, "'", '', 'ALL')#',
		'#M0230fetch.Short_Diagnosis#','#typecode#','#m02301#','#M0230Severity#','#M0230Primary#',
		'#M0230Secondary#','1','#M0230fetch.Other_DG#','#vcodediag#','#vcodeicd#')
		</cfquery>
		<cfelse>
		<cfquery name="M0230Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">		
		INSERT INTO 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#',
		'#session.AgencyLogin#','#M0230fetch.Diagnosis#','#M0230fetchICD#','#M0230fetch.Code_Type#','#Replace(M0230fetch.Pathway_Type, "'", '', 'ALL')#',
		'#M0230fetch.Short_Diagnosis#','#M0230fetchICD#','#m02301#','#M0230Severity#','#M0230Primary#',
		'#M0230Secondary#','1','#M0230fetch.Other_DG#','#vcodediag#','#vcodeicd#')	
		</cfquery>
		</cfif>
		</cfif>
						
		<cfset DupDiagnosis="M0230Added" />
		<cfelse>
		<cfset DupDiagnosis="M0230DUP" />		
		</cfif>		
       
    <cfreturn DupDiagnosis>
    </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 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 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="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 Pathway_Details(Agency_ID,Patient_ID,Assessment_ID,Description,Type,Skill,Care_PathWay) VALUES                      ('#session.AgencyId#','#session.cs.patientid#','#session.cs.AssessmentId#','#wndtype#','Wound','SSN','25')

			</cfquery>
							</cfif>
			<cfquery name="LastPath" datasource="#Application.DataSrc#">
					select LAST_INSERT_ID() as keyvalue
			</cfquery>   
				
				<cfif isdefined('session.cs.AssessmentId')>		          
		   <cfquery name="WoundForm1" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="30">
		   		
				   insert into 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 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="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="patientaddvital" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="30">
		   		
				 INSERT INTO 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="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"> 
				
		<cfquery name="M0230Delete" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
			<cfif isdefined('session.cs.AssessmentId')>
			    delete from Diagnosis where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#DiagnosisID#
			</cfif>
		</cfquery>
		
		<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>
		<cfquery name="M1020upd" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="30">
			<cfif isdefined('session.cs.AssessmentId')>
				 UPDATE Diagnosis SET Severity='#severity#',Primary_Diagnosis='#primary#',Secondary_Diagnosis='#secondary#',
				 Dx_Order = '#dxorder#' where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#Id#	
			</cfif>
		</cfquery>
		</cfoutput>
		
		<cfset Secondcount=0 />
		<cfset Id='' />
		<cfset severity='' />
		<cfset dxorder='' />
		<cfset primary='' />
		<cfset secondary='' />
		
		</cfloop>
       
    <cfreturn 'M0230Delete'>
    </cffunction>
</cfcomponent>--->

