<!---
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: supply_add_action.cfm,v 1.4 2009/09/02 01:34:06 arlen Exp $
$Date: 2009/09/02 01:34:06 $
--->

<script language="JavaScript" src="../Scripts/supplyedit.js"></script>     
<script language="JavaScript" src="../Scripts/scheduleedit.js"></script>     

<cfparam name="url.action" default=''>

<cfif url.action eq 'delete'>
	<cfquery  name="PC" datasource="#Application.DataSrc#">
		DELETE FROM #Request.prefix_db_agency#.Supply_Sched 			
		WHERE Supply_Sched_ID = #url.sid#
	</cfquery>
<cfelse>

	<cfquery  name="GetP" datasource="#Application.DataSrc#">
	SELECT pSchedules.Schedule_ID, pSchedules.Assmt_ID, pSchedules.Patient_ID, pPtPayer.Payer_ID, 
	pPatients.Pt_Last AS Last_Name, pPatients.Pt_First AS First_Name,
	pSchedules.Visit_Date, pSchedules.Skill AS Visit_Type 
	FROM 
	#Request.prefix_db_agency#.pSchedules
	JOIN #Request.prefix_db_agency#.pPatients ON  pSchedules.Patient_ID = pPatients.Patient_ID
	JOIN #Request.prefix_db_agency#.pPtPayer ON pPtPayer.PtPayer_ID = pSchedules.PtPayer_ID
	WHERE pSchedules.Schedule_ID = #url.ID#
	AND pSchedules.status = 0
	AND pPatients.status < 2 
	AND pPtPayer.status < 2 
	GROUp BY pSchedules.Schedule_ID 
	</cfquery>

	<cfset form.Assmt_ID="#getP.Assmt_ID#">
	<cfset form.Payer_ID="#getP.Payer_ID#">
	<cfset form.Visit_Date="#getP.Visit_Date#">
	<cfset form.Patient_ID="#getP.Patient_ID#">
	<cfset form.Schedule_ID="#url.ID#">
	<cfset form.Supply_Sched_ID="#url.SID#">
	<cfset form.Agency_ID="#Session.AgencyID#" />
	<cfset form.Supply_ID="#url.supply_id#" />
	<cfset form.Total_units="#url.total_units#" />


	<cfquery  name="GetSupply" datasource="#Application.DataSrc#">
		SELECT Supply_ID, Price, HCPCS, Revenue_Code
		FROM #Request.prefix_db_agency#.Supply
		WHERE Supply_ID = '#form.Supply_ID#'
		AND Agency_ID = #session.AgencyID#
	</cfquery>

	<cfset Total_Price = #GetSupply.Price# * #form.Total_Units#>
	<cfset Rev = #GetSupply.Revenue_Code#>
	<cfset HCPCS = #GetSupply.HCPCS#>
	<cfif url.action eq 'add'>

		<cfquery  name="PC" datasource="#Application.DataSrc#">
			INSERT INTO #Request.prefix_db_agency#.Supply_Sched (
				Supply_ID, Schedule_ID,	Patient_ID,	Assmt_ID,Total_Units,Total_Price,Revenue_Code,HCPCS,Payer_ID
			)
			VALUES (
				'#form.Supply_ID#',	#form.Schedule_ID#,	#form.Patient_ID#,	#form.Assmt_ID#,	#form.Total_Units#,	#Total_Price#,'#Rev#','#HCPCS#',#form.Payer_ID#
			)
		</cfquery>
	<cfelseif url.action eq 'edit'>
	      <cfset form.price="#url.total_price#" />
		<cfquery  name="PC" datasource="#Application.DataSrc#">
			UPDATE #Request.prefix_db_agency#.Supply_Sched SET
				Total_Units = #form.Total_Units#,
				Total_Price = #form.price#,
				Revenue_Code = '#Rev#',	
				HCPCS = '#HCPCS#'					
			WHERE Supply_Sched_ID = #form.Supply_Sched_ID#
		</cfquery>
	</cfif>
</cfif>

<cfabort>