<!---
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,
		Employee_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)#',
		<cfif form.Emp_ID NEQ 1>#form.Emp_ID#<cfelse>#Session.EmployeeID#</cfif>,
		#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>
<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>
<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>

