<!---
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.19 $
$Id: print_schedule.cfm,v 1.19 2010/05/04 16:02:00 arlen Exp $
$Date: 2010/05/04 16:02:00 $
--->

<cfset curntDate = #CreateODBCDateTime(url.dt)#>
<cfparam name="curntWeek" default="#Week(CurntDate)#">
<cfparam name="CurntDayofWeek" default="#DayOfWeek(curntDate)#">

<cfset tempdaycounter = curntDayofWeek - 1>
<cfset tempDate = DateAdd('d', -#tempdaycounter#, curntDate)>
<cfset start = DateAdd('d', -#tempdaycounter#, curntDate)>
<cfset end = DateAdd('d', -#tempdaycounter#+7, curntDate)>
<cfset url.eid="#Session.EmployeeID#">
<cfparam name="url.eid" default="#Session.EmployeeID#">

<cfquery  datasource="#Application.DataSrc#" name="GetName">
	SELECT  Employee.Last_Name as Last_Name, Employee.First_Name as First_Name
	FROM #Request.prefix_db_lookup#.Employee
	WHERE Employee.Employee_ID = #url.eid# AND EmployeeType != 'Physician' 
</cfquery>

<cfquery  datasource="#Application.DataSrc#" name="GetAgencyData">
	SELECT Telephony from #Request.prefix_db_lookup#.Agency where Agency_ID = #Session.AgencyId#
</cfquery>

<cfquery  datasource="#Application.DataSrc#" name="GetAllVisits">
	SELECT patient.Last_Name_M0040, patient.First_Name_M0040, Employee.Last_Name, Employee.First_Name, ScheduleItems.Visit_Type,
	ScheduleItems.Visit_Notes,ScheduleItems.Progress_Note,ScheduleItems.Telephony_ID,ScheduleItems.Assessment_ID,ScheduleItems.Assessment_Tracker_ID,
	ScheduleItems.ScheduleItems_ID, ScheduleItems.StartTime, ScheduleItems.EndTime, ScheduleItems.Visit_Date,ScheduleItems.Patient_ID, SuperUsers.Username
	FROM #Request.prefix_db_agency#.ScheduleItems,#Request.prefix_db_lookup#.Employee, #Request.prefix_db_agency#.patient, #Request.prefix_db_lookup#.SuperUsers, #Request.prefix_db_agency#.Assessment_New
	WHERE (ScheduleItems.Visit_Date >= #CreateODBCDate(start)# AND ScheduleItems.Visit_Date <= #CreateODBCDate(end)#)
	AND ScheduleItems.Agency_ID = '#Session.AgencyId#'
	AND ScheduleItems.Visit_Type = SuperUsers.Password
    AND ScheduleItems.Telephony_Yes = 1
	AND ScheduleItems.Employee_ID = Employee.Employee_ID
	AND ScheduleItems.Assessment_Tracker_ID = Assessment_New.Assessment_Tracker_ID
	<cfif isdefined('Session.eventpatientview') AND Session.eventpatientview neq ''>
	AND ScheduleItems.patient_ID IN (#Session.eventpatientview#)
	</cfif>
	<cfif isdefined('Session.eventemployeeview') AND Session.eventemployeeview neq ''>
		AND Employee.Employee_ID IN (#Session.eventemployeeview#)
	<!---<cfelse>
		AND Employee.Employee_Id = '#Session.EmployeeId#'--->
	</cfif>
	AND  ScheduleItems.Patient_Id = patient.Patient_Id
	AND Assessment_New.Deleted = 0
	AND ScheduleItems.Deleted = 0
	ORDER BY Visit_Date, StartTime
</cfquery>

<cfquery  dbtype="query" name="GetTodaysVisits">
	SELECT * FROM GetAllVisits
	WHERE Visit_Date = #CreateODBCDate(curntDate)#
	ORDER BY StartTime
</cfquery>

<cfdocument   format = "PDF"   orientation = "portrait"   overwrite = "yes">

<cfoutput>
<strong>Weekly Schedule for #Left(DayOfWeekAsString(DayofWeek(CurntDate)), 9)#, #monthasstring(month(CurntDate))# #Day(CurntDate)#, #Year(CurntDate)#</strong>
<br>
<cfloop from="1" to="7" index="dayNumber">
	<cfset year = #year(TempDate)#>
	<cfset month = #month(tempdate)#>
	<cfset day = #day(tempDate)#>
	<cfset td=#CreateDate(year,month,day)#>
	<cfset ThisDate="#Left(DayOfWeekAsString(DayofWeek(td)), 9)#, #monthasstring(month(td))# #Day(td)#, #Year(td)#">
__________________________________________________________________________________

	<br><br><strong>#ThisDate#</strong><br>	
	<cfquery  dbtype="query" name="GetDaysVisits">
		SELECT * FROM GetAllVisits
		WHERE Visit_Date = #CreateODBCDate(CreateDate(year, month, day))#
		ORDER BY StartTime
	</cfquery>
	<cfif GetDaysVisits.recordcount eq 0>
	</cfif>
	<cfloop query="GetDaysVisits">
		<div>
		<table width='800' style='font-family:Arial; font-size:14px;'>
		<tr>
		 <td nowrap width=120 valign='top'>
		  #gettoken(StartTime,1,":")#:#gettoken(StartTime,2,":")#-#gettoken(endTime,1,":")#:#gettoken(endTime,2,":")#
		 </td>
		 <td nowrap style="font-size:12px;font-family:Courier New">
		  <b>Employee:</b> #Last_Name#, #First_Name#
			 <br>
			<b>Patient:</b> #Last_Name_M0040#, #First_Name_M0040#
		   <br>
			<b>Visit Type:</b> #Visit_Type#
     </td>
     <td></td>
		</tr>
		<cfif session.Telephony eq 1 and #len(telephony_id)# neq 0>
			<tr><td nowrap>&nbsp;</td><td  nowrap colspan=2 style="font-size:12px;font-family:Courier New"><b>Telephony Hotline:</b> 877-666-9573 &nbsp;Enter 10-Digit Telephony ID: #mid(telephony_id,1,3)#-#mid(telephony_id,4,3)#-#mid(telephony_id,7,4)#</td></tr>
			<cfquery  datasource="#Application.DataSrc#" name="GetPathwayDetails">
				SELECT *
				FROM   #Request.prefix_db_agency#.Pathway_Details
				WHERE  assessment_tracker_id = '#GetDaysVisits.assessment_tracker_id#'
				AND    patient_id = '#GetDaysVisits.patient_id#'
				AND    Skill = '#GetDaysVisits.Username#'<!---'HHA'--->
				<!--- AND    Type = 'Intervention' --->
				AND    type = 'intervention'
				AND   Deleted IS NULL
				AND    Resolved_Date IS NULL
				<!---Group by RIGHT(Pathway_Details_ID, 2)--->
				ORDER BY Pathway_Details_Id, Description
			</cfquery>
           <!--- <cfdump var="#GetPathwayDetails#">--->

<!--- debug...
<cfif session.Display eq 'Melissa Cott'>
 <cfoutput>
				SELECT *
				FROM   #Request.prefix_db_agency#.Pathway_Details
				WHERE  assessment_tracker_id = '#GetDaysVisits.assessment_tracker_id#'
				AND    patient_id = '#GetDaysVisits.patient_id#'
				AND    Skill = '#GetDaysVisits.Username#'
				AND    Type = 'Intervention'
				AND   (Deleted IS NULL or Deleted = 0)
				AND    Resolved_Date IS NULL
				ORDER BY Pathway_Details_Id, Description
 </cfoutput>
</cfif>
--->

			<cfloop query=GetPathwayDetails>
				<cfset pdid="#Pathway_Details_id#">
				<tr>
				 <td nowrap>&nbsp;</td>
				 <td colspan=2 style="font-size: 12px;font-family: Courier New">
				  &nbsp;&nbsp;&nbsp;&nbsp;Service Code: #mid(pdid,len(pdid)-1,2)#<!---#Right(pdid, 2)#---> - #description#
				 <!--- <br />
				  	SELECT *
				FROM   #Request.prefix_db_agency#.Pathway_Details
				WHERE  assessment_tracker_id = '#GetDaysVisits.assessment_tracker_id#'
				AND    patient_id = '#GetDaysVisits.patient_id#'
				AND    Skill = '#GetDaysVisits.Username#'
				AND    type = 'intervention'
				AND   Deleted IS NULL
				AND    Resolved_Date IS NULL
				Group by RIGHT(Pathway_Details_ID, 2)
				ORDER BY Pathway_Details_Id, Description
				<br/>--->
<!--- JDB: Changed back to the "pdid" code above since GetPathwayDetails.Intervention_Code seems to always be NULL...
			    &nbsp;&nbsp;&nbsp;&nbsp;Service Code: #GetPathwayDetails.Intervention_Code# - #description#
--->
				 </td>
				</tr>
			</cfloop>
		</cfif>
		<cfif #len(Visit_Notes)# neq 0>
			<tr><td nowrap style="font-size:12px;font-family:Courier New">&nbsp;</td><td>#Visit_Notes#</td></tr>
		</cfif>
		</table>
		</div>
	</cfloop>
	<cfset tempDate = DateAdd('d', 1, TempDate)>
</cfloop>

</tr>
</table>	
</cfoutput>

</cfdocument>
