<!---
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.4 $
$Id: contact_action.cfm,v 1.4 2010/05/04 13:02:39 melissa Exp $
$Date: 2010/05/04 13:02:39 $
--->
<cfparam name="Form.scope" default="" />
<cfparam name="form.Status" default="0">
<cfif isDefined("form.primary")>
	<cfset var.primary = #form.primary# />
<cfelse>
	<cfset var.primary = 0 />
</cfif>
<cfif isDefined("form.status")>
	<cfset var.status = #form.status# />
<cfelse>
	<cfset var.status = 0 />
</cfif>

<cfif isDefined("form.NPI")>
	<cfset form.NPI = #form.NPI# />
<cfelse>
	<cfset form.NPI = "" />
</cfif>

<cfif isDefined("form.Referral_ID")>
	<cfset form.Referral_ID = #form.Referral_ID# />
<cfelse>
	<cfset form.Referral_ID = "" />
</cfif>

<cfif isDefined("form.emergency")>
	<cfset var.emergency = #form.emergency# />
<cfelse>
	<cfset var.emergency = 0 />
</cfif>

<cfif isDefined("form.ContactBill")>
	<cfset var.ContactBill = #form.ContactBill# />
<cfelse>
	<cfset var.ContactBill = 0 />
</cfif>


<cfif isDefined("form.res")>
	<cfset var.res = #form.res# />
<cfelse>
	<cfset var.res = 0 />
</cfif>
<cfif isDefined("form.phone2")>
	<cfset form.phone2 = #form.phone2# />
<cfelse>
	<cfset form.phone2 = "" />
</cfif>
<cfif isDefined("form.ContactStreet")>
	<cfset form.ContactStreet = #form.ContactStreet# />
<cfelse>
	<cfset form.ContactStreet = "" />
</cfif>
<cfif isDefined("form.ContactCity")>
	<cfset form.ContactCity = #form.ContactCity# />
<cfelse>
	<cfset form.ContactCity = "" />
</cfif>
<cfif isDefined("form.contactstate")>
	<cfset form.contactstate = #form.contactstate# />
<cfelse>
	<cfset form.contactstate = "" />
</cfif>

<cfif isDefined("form.Notes")>
	<cfset form.Notes = #form.Notes# />
<cfelse>
	<cfset form.Notes = "" />
</cfif>

<cfif isDefined("form.contactzip")>
	<cfset form.contactzip = #form.contactzip# />
<cfelse>
	<cfset form.contactzip = "" />
</cfif>
<cfif isDefined("form.emailid")>
	<cfset form.emailid = #form.emailid# />
<cfelse>
	<cfset form.emailid = "" />
</cfif>
<cfif isDefined("form.NPI")>
	<cfset form.NPI = #form.NPI# />
<cfelse>
	<cfset form.NPI = "" />
</cfif>
<cfif isDefined("form.Referral_ID")>
	<cfset form.Referral_ID = #form.Referral_ID# />
<cfelse>
	<cfset form.Referral_ID = "" />
</cfif>

<cfif isDefined("form.M2102_CARE_TYPE_SRC_ADL")>
	<cfset form.M2102_CARE_TYPE_SRC_ADL = #form.M2102_CARE_TYPE_SRC_ADL# />
<cfelse>
	<cfset form.M2102_CARE_TYPE_SRC_ADL = "" />
</cfif>
<cfif isDefined("form.M2102_CARE_TYPE_SRC_MDCTN")>
	<cfset form.M2102_CARE_TYPE_SRC_MDCTN = #form.M2102_CARE_TYPE_SRC_MDCTN# />
<cfelse>
	<cfset form.M2102_CARE_TYPE_SRC_MDCTN = "" />
</cfif>
<cfif isDefined("form.M2102_CARE_TYPE_SRC_PRCDR")>
	<cfset form.M2102_CARE_TYPE_SRC_PRCDR = #form.M2102_CARE_TYPE_SRC_PRCDR# />
<cfelse>
	<cfset form.M2102_CARE_TYPE_SRC_PRCDR = "" />
</cfif>
<cfif isDefined("form.M2102_CARE_TYPE_SRC_SPRVSN")>
	<cfset form.M2102_CARE_TYPE_SRC_SPRVSN = #form.M2102_CARE_TYPE_SRC_SPRVSN# />
<cfelse>
	<cfset form.M2102_CARE_TYPE_SRC_SPRVSN = "" />
</cfif>


<cfif isDefined("form.CID") and #form.CID# EQ 0>
	<cfquery  name="getp" datasource="#Application.DataSrc#">
         SELECT IFNULL(MAX(Contact_ID),0)+1 As pContact_ID FROM #Request.prefix_db_agency#.pPtContacts 
    </cfquery>
	<cfset pContact_ID =  #getp.pContact_ID# />
<cfelse>
	<cfquery name="PC" datasource="#Application.DataSrc#">
		UPDATE #Request.prefix_db_agency#.pPtContacts SET
		    Status = <cfqueryparam value = "3" CFSQLType ="CF_SQL_INTEGER">,
			Record_Mod_date = <cfqueryparam value="#now()#" cfsqltype="cf_sql_TIMESTAMP">, 
			Record_Mod_By = <cfqueryparam value = "#session.employeeid#" CFSQLType ="CF_SQL_INTEGER">
		WHERE Contact_ID =<cfqueryparam value = "#form.CID#" CFSQLType ="CF_SQL_INTEGER">
		AND Patient_ID = <cfqueryparam value = "#session.cs.patientid#" CFSQLType ="CF_SQL_INTEGER">
	</cfquery>
	<cfset pContact_ID =  #form.CID# />
</cfif>
<cfquery name="PC" datasource="#Application.DataSrc#">
		INSERT INTO #Request.prefix_db_agency#.pPtContacts (Contact_ID,
			 Patient_ID, Agency_ID, Status, First_Name, Last_Name, Pt_Realtionship, Emergency, Availability,Contact_Email, Location, Telephone1, Telephone2, M2102_CARE_TYPE_SRC_ADL, M2102_CARE_TYPE_SRC_MDCTN, M2102_CARE_TYPE_SRC_PRCDR, M2102_CARE_TYPE_SRC_SPRVSN, Notes, Record_Creation_Date, Record_Created_By, Record_Mod_date, Record_Mod_By
		)
		VALUES (
			<cfqueryparam value = "#pContact_ID#" CFSQLType ="CF_SQL_INTEGER">,
			<cfqueryparam value = "#session.cs.patientid#" CFSQLType ="CF_SQL_INTEGER">,
			<cfqueryparam value = "#session.AgencyID#" CFSQLType ="CF_SQL_INTEGER">,
			<cfqueryparam value = "#var.status#" CFSQLType ="CF_SQL_INTEGER">,
			<cfqueryparam value = "#Trim(form.First_Name)#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#Trim(form.Last_Name)#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#form.Pt_Realtionship#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#form.Emergency#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#form.Availability#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#form.Contact_Email#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#form.Location#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#Trim(form.phone1)#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#Trim(form.phone2)#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#Trim(form.M2102_CARE_TYPE_SRC_ADL)#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#Trim(form.M2102_CARE_TYPE_SRC_MDCTN)#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#Trim(form.M2102_CARE_TYPE_SRC_PRCDR)#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#Trim(form.M2102_CARE_TYPE_SRC_SPRVSN)#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value = "#Trim(form.Notes)#" CFSQLType ="CF_SQL_VARCHAR">,
			<cfqueryparam value="#now()#" cfsqltype="cf_sql_timestamp">,
			<cfqueryparam value = "#session.employeeid#" CFSQLType ="CF_SQL_INTEGER">,
	        <cfqueryparam value="#now()#" cfsqltype="cf_sql_timestamp">,
	        <cfqueryparam value = "#session.employeeid#" CFSQLType ="CF_SQL_INTEGER">
		)
</cfquery>

<cfquery name="getemergency" datasource="#Application.DataSrc#">
      SELECT * FROM #Request.prefix_db_agency#.pPtContacts
      WHERE Patient_ID = <cfqueryparam VALUE="#session.cs.patientid#"  cfsqltype="cf_sql_integer">
      AND Emergency =  <cfqueryparam VALUE="1"  cfsqltype="cf_sql_integer">
      AND status != <cfqueryparam VALUE="3"  cfsqltype="cf_sql_integer">
</cfquery>

<cfquery name="getP" datasource="#Application.DataSrc#">
      SELECT * FROM #Request.prefix_db_agency#.pPatients
      WHERE Patient_ID = <cfqueryparam VALUE="#session.cs.patientid#"  cfsqltype="cf_sql_integer">
       AND status NOT IN (2,3)
</cfquery>




<cfif getemergency.recordcount EQ 0 AND  getP.status LT 2>
	<cflocation url="#application.secure#/patientadmin_new/index.cfm?page=patient&ID=#session.cs.enc_patientid#&cat=contactaction&CID=0&message=At least one Emergency Contact is required. Please complete below." addtoken="no">
</cfif>
<cfquery name="getptpayer" datasource="#Application.DataSrc#">
        SELECT * FROM #Request.prefix_db_agency#.pPtPayer 
        WHERE Patient_ID =  <cfqueryparam VALUE="#session.cs.patientid#"  cfsqltype="cf_sql_integer">
</cfquery>
 <cfset enc_patid  = encrypt(#session.cs.patientid#,#application.enckey#,"AES","Hex") />


<cfif getptpayer.recordcount EQ 0 AND  getP.status LT 2 >
    <cflocation url="#application.siteurl#/patientadmin_new/index.cfm?page=patient&ID=#enc_patid#&cat=patientpayers_forms&PPID=0&action=new&message=Payer information is required. Please complete below." addtoken="no">
<cfelse>  
	<cflocation url="#application.siteurl#/patientadmin_new/index.cfm?page=patient&cat=PatientInform&tab=Contact" addtoken="no">
</cfif>
