<!---
This file is Copyright © 1998-2009 by Home Care Business Services. This work may not be reproduced, in whole or in part, 
using any medium, including, but not limited to, electronic transmission, CD-ROM or published in print, without the express 
permission of Home Care Business Services.

$Revision: 1.2 $
$Id: event_action.cfm,v 1.2 2010/03/22 22:03:44 arlen Exp $
$Date: 2010/03/22 22:03:44 $
--->
<cfparam name="form.resolved" default="No">
<cfparam name="form.Memo" default="">
<cfparam name="form.Resolved" default="">
<cfparam name="form.Followup_desc" default="">
<cfparam name="form.Followup_memo" default="">
<cfif isDefined("form.Event_ID") >
<cfif form.Event_ID EQ 0>
	<cfquery  name="Event" datasource="#Application.DataSrc#">
		INSERT INTO #Request.prefix_db_agency#.Event
		(
			EventSub_ID,
			Patient_ID,
			Event_Date,
			Memo,
			Resolved,
			Agency_ID,
			who_observed,
			MD_notified,
			Was_observed,
			injury,
			Followup_desc,
			Followup_memo,
			Record_Creation_Date,
			Record_Created_By,
			Record_Mod_Date,
			Record_Mod_By
		)
		VALUES 
		(
			'#Trim(form.EventSub_ID)#',
			'#Trim(form.Patient_ID)#',
			#CreateODBCDate(form.Event_Date)#,
			'#Trim(form.Memo)#',
			'#Trim(form.Resolved)#',
			#session.AgencyID#,
			'#Trim(form.who_observed)#',
			'#Trim(form.MD_notified)#',
			'#Trim(form.Was_observed)#',
			'#Trim(form.injury)#',
			'#Trim(form.Followup_desc)#',
			'#Trim(form.Followup_memo)#',
			#CreateODBCDate(Now())#,
			#Session.EmployeeID#,
			#CreateODBCDate(Now())#,
			#Session.EmployeeID#
		)
	</cfquery>
	<cfquery name='getId' datasource='#Application.DataSrc#'>
	   Select LAST_INSERT_ID() AS id
	</cfquery>
	<cfset id = getId.id />
	<cfset q = #ListLen(form.employee_id, ",")# />
	<cfset a = #ListToArray(form.employee_id, ",")# />
  	<cfloop index="i" from="1" to="#q#" step="1">
	   <cfquery name='Event_toInsert' datasource='#Application.DataSrc#'>
	    INSERT INTO #Request.prefix_db_agency#.Event_to 
	    (
	       Event_id, Emp_ID
	    ) VALUES (
	      '#id#', '#a[i]#'
	    )
	   </cfquery>
 	</cfloop>
<cfelse>
	<cfquery  name="Event" datasource="#Application.DataSrc#">
		UPDATE #Request.prefix_db_agency#.Event SET
			EventSub_ID = '#Trim(form.EventSub_ID)#',
			Patient_ID = '#Trim(form.Patient_ID)#',
			<!--- Employee_ID = '#Trim(form.Emp_ID)#', --->
			Event_Date = #CreateODBCDate(form.Event_Date)#,
			Memo = '#Trim(form.Memo)#',
			Resolved = '#form.Resolved#',
			who_observed = '#form.who_observed#',
			MD_notified  = '#form.MD_notified#',
			Was_observed = '#form.Was_observed#',
			injury		 = '#form.injury#',
			Followup_desc = '#Trim(form.Followup_desc)#',
			Followup_memo = '#Trim(form.Followup_memo)#',
			Record_Mod_Date = #CreateODBCDate(Now())#,
			Record_Mod_By = #Session.EmployeeID#
		WHERE Event_ID = #form.Event_ID#
	</cfquery>

	<cfif isdefined('form.employee_id')>
	  	<cfquery name='delEvent_to' datasource='#Application.DataSrc#'>
	   		DELETE FROM #Request.prefix_db_agency#.Event_to
	   		 WHERE  Event_ID = '#form.Event_ID#'
	    	AND Emp_ID NOT IN (#form.employee_id#)
	    </cfquery>
	    <cfset q = #ListLen(form.employee_id, ",")# />
	    <cfset a = #ListToArray(form.employee_id, ",")# />
	    <cfloop index="i" from="1" to="#q#" step="1">
		   <cfquery name='checkEmp'  datasource='#Application.DataSrc#'>
		   			 SELECT id FROM #Request.prefix_db_agency#.Event_to 
		   			 WHERE Event_ID = '#form.Event_ID#' AND Emp_ID = '#a[i]#'
		   </cfquery>
		   <cfif checkEmp.RecordCount lt 1>
			    <cfquery name='commInsert' datasource='#Application.DataSrc#'>
			     INSERT INTO #Request.prefix_db_agency#.Event_to (
			        Event_ID, Emp_ID
			     ) VALUES (
			       '#form.Event_ID#', '#a[i]#'
			     )
			    </cfquery>
		   </cfif>
	    </cfloop> 
	</cfif>

</cfif>
<cflocation url="index.cfm?page=agency&cat=AgencyManagement&rpt=event_log&res=No" addtoken="no">
<cfelse>
Unable to Create/Update Event: Form Data is Missing
</cfif>

