<!---  
NAME:  CF_PCDCalendar
AUTHOR:    Sarawuth Naramngam (sarawuth.n@pcd.go.th) 
						Environmental Officer, Pollution Control Department,
						Bangkok, Thailand.  Nov 1, 2002
DESCRIPTION:  A custom tag <CF_PCDCalendar> is the easy way to display a monthly calendar with complete functions or attributes that enables you to customize almost all of necessary displaying properties. In addition it also lets you can merge all data from your database into the calendar easily.
ATTRIBUTES: **** All attributes are OPTIONAL**** and have default values (shown below) that you can reset them new or make them different in each page by yourself;

Header  - Set the header of the calendar , default is nothing.
HeaderFont  - Set the text font family of the calendar header, default is arial black, ms sans serif.
HeaderColor - Set the text color of the calendar header, default is black.
MonthURL  - Set the target page you want to show monthly calendar when you click at the 
						 "Last month" or "Next month" link. Default is the file in which this tag was placed.
DateURL  - Set the target page you want to show an event in required/current month when you click 
					   at the link in each day having any event fall in. Default is the file in which this tag was placed.
QueryFile  - Set the name of file that contains a set of commands to retrieve and make a list of events falling in 
						 each day, in case you want to display any data in the calendar, default is nothing.
LastMonthPic  - Set the image file name (*.gif, *.jpg) for using in the "Last month" link, default link is <<.
NextMonthPic  - Set the image file name (*.gif, *.jpg) for using in the "Next month" link, default link is >>.
TableBorder  - Set the border size of the table  for dislaying the calendar, default is 0.
TableBG  - Set the background color* of the table ,default is black.
CellPadding  - Set the cellpadding size of the table, default is 0.
CellSpacing  - Set the cellspacing size of the table, default is 0.
RowHeight  - Set the height in each row of the table, default is 20.
ColWidth  - Set the width in each column of the table, default is 23.
MonthBG  - Set the background color* of the current/required month-year, default is white.
MonthFont  - Set the text font family of the current/required month-year, default is arial narrow, ms sans serif.
MonthColor - Set the text color of the current/required month-year, default is maroon.
DayLetter  - Set the number of letter in each day of week (Su, Mo,..) you want to show, default is 2.
DayBG  - Set the background color* of the day of week, default is c0c0c0.
DayFont  - Set the text font family of the day of week, default is arial narrow, ms sans serif.
DateBG  - Set the background color* of the date in month (1,2,3,..), default is ffffcc.
DateFont  - Set the text font family of the date in month, default is arial narrow, ms sans serif.
WeekendBG  - Set the background color* of the date in weekends, default is ffff99.
NoDateBG  - Set the background color* of the blank date (no numbered date) in month, default is white.
ThisDateBG  - Set the background color* of the current date in current month calendar, default is ffb77b.
TodayDisplay  - Set the displaying switch (yes/no) to show the current day under the monthly calendar,  default is yes.
TodayFormat  - Set the format of the current day (refered to the dateformat  function), default is dd-mmm- yy.
TodayBG  - Set the background color* of the current day, default is white.
TodayFont  - Set the text font family of the current day, default is "arial narrow, ms sans serif".
TodayColor  - Set teh text color* of the current day, default is ff6600.
Note  * You can use both named color and hexadecimal value, but DO NOT use # with the hexadecimal .

USAGE:  Just call the tag from anywhere within your Cold Fusion template. 

EXAMPLES:  See the example.cfm attached for more detail;
					<CF_PCDCalendar> 
--->
<!-- Built with CF_PCDCalendar, d/l from the Developer Exchange at 
http://devex.macromedia.com/developer/gallery -->
<!---  Set variables of tables and calendar ------------------------------>
<cfparam name = "attributes.MonthURL" default = "#getFileFromPath(getBaseTemplatePath())#">
<!---  Page  you want to show monthly calendar--->
<cfparam name = "attributes.DateURL" default = "#getFileFromPath(getBaseTemplatePath())#">
<!---  Page you want to show event of each date in calendar --->
<cfparam name = "attributes.TableBorder" default="0">
<!--- Table border  size--->
<cfparam name = "attributes.BorderColor" default="##044A84">
<!--- Table border  color--->
<cfparam name = "attributes.TableBG" default="##FFFFFF">
<!--- Table background color --->
<cfparam name = "attributes.CellPadding" default="2">
<!--- Table cell padding size--->
<cfparam name = "attributes.CellSpacing" default="0">
<!--- Table cell spacing size --->
<cfparam name = "attributes.RowHeight" default = "80">
<!---  Row  height of calenar--->
<cfparam name = "attributes.ColWidth" default = "60">
<!---  Column width of calenar--->
<cfparam name = "attributes.MonthBG" default = "##FFFFFF">
<!---  Current Month/Year background color --->
<cfparam name = "attributes.MonthFont" default = "Verdana">
<!---  Current Month/Year  text font family--->
<cfparam name = "attributes.MonthColor" default = "##FFFFFF">
<!---  Current Month/Year  text color --->
<cfparam name = "attributes.DayLetter" default = "2">
<!---  The number of letter in each Day  you want to show --->
<cfparam name = "attributes.DayBG" default = "##33339A">
<!---  Day of Week background color --->
<cfparam name = "attributes.DayFontColor" default = "##FFFFFF">
<!---  Day of Week font color --->
<cfparam name = "attributes.DayFont" default = "Verdana">
<!---  Day  text  font family--->
<cfparam name = "attributes.DateBG" default = "##FFFFFF">
<!---  Dates in Month background color --->
<cfparam name = "attributes.DateFont" default = "Verdana">
<!---  Date  text  font family--->
<cfparam name = "attributes.WeekendBG" default = "##E1E1F0">
<!---  Weekend background color --->
<cfparam name = "attributes.NoDateBG" default = "##EEEEEE">
<!---  No date in Month background color --->
<cfparam name = "attributes.ThisDateBG" default = "##EEF9CE">
<!---  This date or current date background color --->
<cfparam name = "attributes.TodayDisplay" default = "No">
<!---  Today displaying switch (yes/no)--->
<cfparam name = "attributes.TodayFormat" default = "dd-mmm-yy">
<!---  Today  format  you want to display, refered to dateformat  function--->
<cfparam name = "attributes.TodayBG" default = "##FFFFFF">
<!---  Today  background color --->
<cfparam name = "attributes.TodayColor" default = "##0F2B8E">
<!---  Today  text color --->
<cfparam name = "attributes.TodayFont" default = "Verdana">
<!---  Today  text  font family--->
<cfparam name = "attributes.HolidayBG" default="##FFFFBB">
<!--- Background color for holidays --->
<!--- Set current  month and year if they do not exist------------------------------>
<cfparam name = "month" default = "#DatePart('m', Attributes.StartDate)#">
<cfparam name = "year" default = "#DatePart('yyyy', Attributes.StartDate)#">
<!--- Set  date/ (requested/current) month/ year  and  the number of days in the month. --->
<cfset thismonthyear = "#createdate(year, month, '1')#">
<cfset dayinmonth = "#daysinmonth(thismonthyear)#">
<!--- Set the previous and next months for the back/next  month links. --->
<cfset lastmonthyear = "#dateadd('m', -1, thismonthyear)#">
<cfset lastmonth = "#datepart('m', lastmonthyear)#">
<cfset lastyear = "#datepart('yyyy', lastmonthyear)#">
<cfset nextmonthyear = "#dateadd('m', 1, thismonthyear)#">
<cfset nextmonth = "#datepart('m', nextmonthyear)#">
<cfset nextyear = "#datepart('yyyy', nextmonthyear)#">
<cfset certStartDate=DATEFORMAT(Request.certStartDate,"mm/dd/yyyy")>
<cfset certEndDate=DATEFORMAT(Request.certEndDate,"mm/dd/yyyy")>
<cfset certStartDate1=DATEFORMAT(Request.certStartDate,"mm/dd/yyyy")>
<cfset certEndDate1=DATEFORMAT(Request.certEndDate,"mm/dd/yyyy")>
<cfset certStartDate1Obj = ParseDateTime(certStartDate1)>
<cfset certEndDate1Obj = ParseDateTime(certEndDate1)>
<cfset Assmt_ID=Request.Assmt_ID>
<cfset calendarPatientId = (structKeyExists(Request, "calendarPatientId") AND IsNumeric(Request.calendarPatientId)) ? Request.calendarPatientId : session.cs.patientid>
<!--- #10640: admit for this calendar (from selected cert / SOC). Resolve from Assmt_ID if needed. --->
<cfset calendarAdmitId = (structKeyExists(Request, "Admit_ID") AND IsNumeric(Request.Admit_ID)) ? Val(Request.Admit_ID) : 0>
<cfif calendarAdmitId LTE 0 AND Val(Assmt_ID) GT 0>
	<cfquery name="qCalendarAdmit" datasource="#Application.DataSrc#">
		SELECT Admit_ID
		FROM #Request.prefix_db_agency#.pAssessments
		WHERE Assmt_ID = <cfqueryparam cfsqltype="cf_sql_integer" value="#Val(Assmt_ID)#">
		AND status = 0
		LIMIT 1
	</cfquery>
	<cfif qCalendarAdmit.recordCount GT 0>
		<cfset calendarAdmitId = Val(qCalendarAdmit.Admit_ID)>
	</cfif>
</cfif>

<!--- #10570 / #10640: active visits in the certification date window for THIS admission only.
     Match the Schedules list skill column: pAuths.Skill, then pSchedules.Skill. --->
<cfquery name="GetScheduledvisits" datasource="#Application.DataSrc#" cachedwithin="#CreateTimeSpan(0,0,0,0)#">
	SELECT
		pSchedules.Schedule_ID,
		pSchedules.Skill AS Sched_Skill,
		pAuths.Skill AS Auth_Skill,
		schedRev.HCPCS AS Schedule_HCPCS,
		pSchedules.Visit_Type,
		pSchedules.Followup_visit,
		pSchedules.Missed,
		pSchedules.Assmt_ID,
		DATE(pSchedules.Visit_Date) AS Visit_Date,
		DATE_FORMAT(DATE(pSchedules.Visit_Date), '%m/%d/%Y') AS VisitDate
	FROM #Request.prefix_db_agency#.pSchedules
	LEFT OUTER JOIN #Request.prefix_db_agency#.pAuths
		ON pAuths.Auth_ID = pSchedules.Auth_ID
		AND pAuths.status = 0
	LEFT OUTER JOIN #Request.prefix_db_agency#.pRevenue_Code schedRev
		ON schedRev.Rev_CodeID = pSchedules.HCPCS_ID
		AND schedRev.status = 0
	WHERE pSchedules.Patient_ID = <cfqueryparam cfsqltype="cf_sql_integer" value="#calendarPatientId#">
	AND pSchedules.status = 0
	AND DATE(pSchedules.Visit_Date) >= <cfqueryparam cfsqltype="cf_sql_date" value="#certStartDate1Obj#">
	AND DATE(pSchedules.Visit_Date) <= <cfqueryparam cfsqltype="cf_sql_date" value="#certEndDate1Obj#">
	<cfif calendarAdmitId GT 0>
		AND (
			pSchedules.Assmt_ID IN (
				SELECT a.Assmt_ID
				FROM #Request.prefix_db_agency#.pAssessments a
				WHERE a.Admit_ID = <cfqueryparam cfsqltype="cf_sql_integer" value="#calendarAdmitId#">
				AND a.Patient_ID = <cfqueryparam cfsqltype="cf_sql_integer" value="#calendarPatientId#">
				AND a.status = 0
			)
			OR (
				IFNULL(pSchedules.Assmt_ID, 0) = 0
				AND IFNULL(pAuths.Assmt_ID, 0) IN (
					SELECT a2.Assmt_ID
					FROM #Request.prefix_db_agency#.pAssessments a2
					WHERE a2.Admit_ID = <cfqueryparam cfsqltype="cf_sql_integer" value="#calendarAdmitId#">
					AND a2.Patient_ID = <cfqueryparam cfsqltype="cf_sql_integer" value="#calendarPatientId#">
					AND a2.status = 0
				)
			)
		)
	</cfif>
</cfquery>

<cfparam name="request.CalendarDates" default="">
<cfquery name="GetActiveScheduledvisits" dbtype="query">
	SELECT * FROM GetScheduledvisits
	WHERE (Missed = 0 OR Missed IS NULL)
</cfquery>
<!--- All active (non-missed) scheduled visits consume the week's visit frequency cap. OASIS/eval still show as dots. Missed visits stay excluded above so replacements can still be scheduled (#10552). --->
<cfset request.CalendarDates = "" />
<cfloop query="GetActiveScheduledvisits">
	<cfset calVisitDate = "" />
	<cfif StructKeyExists(GetActiveScheduledvisits, "VisitDate") AND Len(Trim(GetActiveScheduledvisits.VisitDate))>
		<cfset calVisitDate = Trim(GetActiveScheduledvisits.VisitDate) />
	<cfelseif IsDate(GetActiveScheduledvisits.Visit_Date)>
		<cfset calVisitDate = DateFormat(GetActiveScheduledvisits.Visit_Date, "mm/dd/yyyy") />
	</cfif>
	<cfif Len(calVisitDate)>
		<cfset request.CalendarDates = ListAppend(request.CalendarDates, calVisitDate) />
	</cfif>
</cfloop>

<!--- Build color lists from the loaded set --->
<cfloop list="SN,PT,OT,ST,HHA,MSW" index="skillitem">
	<cfset request[skillitem & "visits"] = "" />
</cfloop>
<cfset request["visitsmissed"] = "" />
<cfset request["SOCvisits"] = "" />
<cfset request["Evalvisits"] = "" />

<cfloop query="GetScheduledvisits">
	<cfset calVisitDate = "" />
	<cfif IsDate(GetScheduledvisits.Visit_Date)>
		<cfset calVisitDate = DateFormat(GetScheduledvisits.Visit_Date, "mm/dd/yyyy") />
	<cfelseif Len(Trim(GetScheduledvisits.VisitDate))>
		<cfset calVisitDate = Trim(GetScheduledvisits.VisitDate) />
	</cfif>
	<cfif NOT Len(calVisitDate)><cfcontinue /></cfif>

	<cfset calIsMissed = (IsNumeric(GetScheduledvisits.Missed) AND Val(GetScheduledvisits.Missed) NEQ 0) />
	<cfif calIsMissed>
		<cfif NOT ListFind(request.visitsmissed, calVisitDate, ",")>
			<cfset request.visitsmissed = ListAppend(request.visitsmissed, calVisitDate) />
		</cfif>
	<cfelse>
		<cfset calVisitType = Trim(GetScheduledvisits.Visit_Type) />
		<!--- Same skill the visit list prints (auth_skill), not the possibly-stale schedule Skill. --->
		<cfset calSkillRaw = Trim(GetScheduledvisits.Auth_Skill) />
		<cfif NOT Len(calSkillRaw)>
			<cfset calSkillRaw = Trim(GetScheduledvisits.Sched_Skill) />
		</cfif>
		<cfset s = UCase(calSkillRaw) />
		<cfset vt = UCase(calVisitType) />
		<cfset calSkill = "" />
		<cfif Len(s)>
			<cfif ListFind("SN,RN,LPN,LVN", s) OR Left(s, 2) EQ "SN" OR FindNoCase("NURS", s)>
				<cfset calSkill = "SN" />
			<cfelseif ListFind("PT,PTA", s) OR Left(s, 2) EQ "PT" OR FindNoCase("PHYSICAL", s)>
				<cfset calSkill = "PT" />
			<cfelseif ListFind("OT,COTA", s) OR Left(s, 2) EQ "OT" OR FindNoCase("OCCUPATIONAL", s)>
				<cfset calSkill = "OT" />
			<cfelseif ListFind("ST,SLP,STA,SLPA", s) OR Left(s, 2) EQ "ST" OR FindNoCase("SPEECH", s)>
				<cfset calSkill = "ST" />
			<cfelseif ListFind("HHA,HCA,AIDE", s) OR FindNoCase("HHA", s) OR FindNoCase("AIDE", s)>
				<cfset calSkill = "HHA" />
			<cfelseif ListFind("MSW,SW", s) OR FindNoCase("MSW", s) OR FindNoCase("SOCIAL", s)>
				<cfset calSkill = "MSW" />
			</cfif>
		</cfif>
		<cfif NOT Len(calSkill) AND Len(vt)>
			<cfif REFind("^SN\b", vt) OR FindNoCase("SOC - SN", vt) OR FindNoCase(" - SN", vt) OR FindNoCase("NURS", vt)>
				<cfset calSkill = "SN" />
			<cfelseif REFind("^PT\b", vt) OR FindNoCase("PHYSICAL", vt)>
				<cfset calSkill = "PT" />
			<cfelseif REFind("^OT\b", vt) OR FindNoCase("OCCUPATIONAL", vt)>
				<cfset calSkill = "OT" />
			<cfelseif REFind("^ST\b", vt) OR FindNoCase("SPEECH", vt)>
				<cfset calSkill = "ST" />
			<cfelseif FindNoCase("HHA", vt) OR FindNoCase("AIDE", vt)>
				<cfset calSkill = "HHA" />
			<cfelseif FindNoCase("MSW", vt) OR FindNoCase("SOCIAL", vt)>
				<cfset calSkill = "MSW" />
			</cfif>
		</cfif>

		<cfif NOT Len(calSkill) AND ListFindNoCase(GetScheduledvisits.columnList, "Schedule_HCPCS")>
			<cfset h = UCase(Trim(GetScheduledvisits.Schedule_HCPCS)) />
			<cfif ListFind("G0151,G0157,G0159,G2168", h)>
				<cfset calSkill = "PT" />
			<cfelseif ListFind("G0152,G0158,G0160,G2169", h)>
				<cfset calSkill = "OT" />
			<cfelseif ListFind("G0153,G0161", h)>
				<cfset calSkill = "ST" />
			<cfelseif ListFind("G0154,G0299,G0300,G0493,G0494,G0495,G0496", h)>
				<cfset calSkill = "SN" />
			<cfelseif ListFind("G0156", h)>
				<cfset calSkill = "HHA" />
			<cfelseif ListFind("G0155", h)>
				<cfset calSkill = "MSW" />
			</cfif>
		</cfif>

		<cfset calIsEval = (Len(calVisitType) AND FindNoCase("Eval", calVisitType)) />
		<!--- Numbered OASIS visit types: "1 - SOC - SN", "4 - Recertification", etc. --->
		<cfset calIsOasis = (Len(calVisitType) AND REFind("^[1-9]\s*-", calVisitType)) />

		<!--- Skill color for routine visits; OASIS/Eval use their own markers --->
		<cfif Len(calSkill) AND ListFind("SN,PT,OT,ST,HHA,MSW", calSkill) AND NOT calIsEval AND NOT calIsOasis>
			<cfset skillKey = calSkill & "visits" />
			<cfif NOT ListFind(request[skillKey], calVisitDate, ",")>
				<cfset request[skillKey] = ListAppend(request[skillKey], calVisitDate) />
			</cfif>
		</cfif>
		<!--- If still unclassified, default to SN so the day is not blank --->
		<cfif NOT Len(calSkill) AND NOT calIsEval AND NOT calIsOasis>
			<cfif NOT ListFind(request.SNvisits, calVisitDate, ",")>
				<cfset request.SNvisits = ListAppend(request.SNvisits, calVisitDate) />
			</cfif>
		</cfif>
		<cfif calIsOasis>
			<cfif NOT ListFind(request.SOCvisits, calVisitDate, ",")>
				<cfset request.SOCvisits = ListAppend(request.SOCvisits, calVisitDate) />
			</cfif>
		</cfif>
		<cfif calIsEval>
			<cfif NOT ListFind(request.Evalvisits, calVisitDate, ",")>
				<cfset request.Evalvisits = ListAppend(request.Evalvisits, calVisitDate) />
			</cfif>
		</cfif>
	</cfif>
</cfloop>




<style>
	.checboxcoloryellow
	{
			height:5px;width:5px;background-color: yellow;
	}
	.checboxcolorred
	{
			height:5px;width:5px;background-color: darkgrey;
	}
</style>

<cfsetting enablecfoutputonly="no">
<!--- Display the required/current  month calendar  ------------------------------>
<cfoutput>
  <table cellpadding="#attributes.CellPadding#" cellspacing="#attributes.CellSpacing#"  id="tblvisitorder" bgcolor="#attributes.TableBG#" align="center" border="#attributes.TableBorder#" bordercolor="#attributes.BorderColor#" width="95%" class="schedule">
  		<!--- Display the current month/year as well as the previous and next  month links. --->
		  <tr>
		    <td colspan="7">
		    	<table width="100%" cellpadding="0" cellspacing="0" bgcolor="#attributes.MonthBG#" align="center">
		        <tr>
		          <td width="33%" style="font-size: 120%;">&nbsp;</td>
		          <td width="34%" style="font-size: 120%;"><div align="center"><strong>#MonthAsString(month)#&nbsp;#year#</strong></div></td>
		          <td width="33%" style="font-size: 120%;">&nbsp;</td>
		        </tr>
		      </table>
		    </td>
		  </tr>
  		<!--- Display the day of week headers --->
		<tr bgcolor="#attributes.DayBG#" height="25">
		</cfoutput>
				<cfloop from = "1" to = "7" index = "LoopDay">
				  <cfoutput>
				    <th align="center" width="#attributes.ColWidth#" style="border-top: 1px solid black; border-bottom: 1px solid black; border-right: 1px solid black;text-transform: uppercase;text-align:center; <cfif LoopDay IS 1>border-left: 1px solid black;</cfif>"><font color="#Attributes.DayFontColor#">#Left(DayOfWeekAsString(LoopDay), attributes.DayLetter)#</font></th>
				  </cfoutput>
				</cfloop>
		</tr>
		<!--- Display the date in month  ------------------------------>
		<cfset DateInMonth = 0>
		<!--- Loop until the DateInMonth is greater than  the DayInMonth--->
		<cfloop condition = "DateInMonth LTE DayInMonth">
		  <cfoutput>
		    <tr height="#attributes.RowHeight#" bgcolor="#attributes.NoDateBG#">
		  </cfoutput>
	  <!--- Loop through each day of the week. --->
			  <cfloop from = "1" to = "7" index = "LoopDay">
			    <!---  Set DateInMonth to 1 when  LoopDay matches with the first day of required/current month and the DateInMonth is 0 --->
				    <cfif DateInMonth is 0 and  DayOfWeek(thismonthyear) is loopday>
				      <cfset DateInMonth = 1>
				    </cfif>
			    <!--- If DateInMonth is 0 or greater than DayInMonth, display nothing in the calendar. 
						 Otherwise, display DateInMonth as the dates of the month and increment the value. --->
			   		<cfif (DateInMonth is not 0) and (DateInMonth lte DayInMonth)>
			   				<cfset tempDate = DateFormat(CreateDate(year,  month,  DateInMonth), "mm/dd/yyyy")>
			      	<cfset ThisDate="#DateFormat(CreateDate(year, month, DateInMonth),"yyyy-mm-dd")#">
			      	<!--- If ThisDate is equal to Now() , display the different background --->
			      	<cfif  ThisDate is DateFormat(Now())>
					        <cfoutput>
					        	<cfset backgrndcolor = "#attributes.ThisDateBG#" />
					          <cfif tempDate GTE certStartDate1 AND tempDate LTE certEndDate1 >
						        	<cfset episodeDayNum = DateDiff("d", certStartDate1Obj, ParseDateTime(tempDate)) + 1>
						        	<cfif episodeDayNum LTE 30><cfset backgrndcolor = "##FFFFE9" />
						        	<cfelseif episodeDayNum LTE 60><cfset backgrndcolor = "##caf1ca" />
					        		</cfif>
					        	</cfif>
					          <td align="left" valign="top" bgcolor="#backgrndcolor#" style="border-bottom: 1px solid black; border-right: 1px solid black; <cfif DateInMonth IS 1>border-left: 1px solid black;</cfif>">
					        </cfoutput>
			        <!--- If the day of week of ThisDate is 1 or 7  (weekend), display the different background --->
			        <cfelseif DayOfWeek(ThisDate) is 1 or DayOfWeek(ThisDate) is 7>
					        <cfoutput>
					        	<cfset backgrndcolor = "#attributes.WeekendBG#" />
					        	<cfif tempDate GTE certStartDate1 AND tempDate LTE certEndDate1 >
						        	<cfset episodeDayNum = DateDiff("d", certStartDate1Obj, ParseDateTime(tempDate)) + 1>
						        	<cfif episodeDayNum LTE 30><cfset backgrndcolor = "##FFFFE9" />
						        	<cfelseif episodeDayNum LTE 60><cfset backgrndcolor = "##caf1ca" />
					        		</cfif>
					        	</cfif>
										<td nowrap align="left" valign="top" bgcolor="#backgrndcolor#" style="border-bottom: 1px solid black; border-right: 1px solid black; <cfif DayOfWeek(ThisDate) IS 1 OR DateInMonth IS 1>border-left: 1px solid black;</cfif>">
					        </cfoutput>
			        <cfelse>
					        <cfoutput>
					        	  <cfset backgrndcolor = "#attributes.DateBG#" />
					        		<cfif tempDate GTE certStartDate1 AND tempDate LTE certEndDate1 >
							        	<cfset episodeDayNum = DateDiff("d", certStartDate1Obj, ParseDateTime(tempDate)) + 1>
							        	<cfif episodeDayNum LTE 30><cfset backgrndcolor = "##FFFFE9" />
							        	<cfelseif episodeDayNum LTE 60><cfset backgrndcolor = "##caf1ca" />
						        		</cfif>
						        	</cfif>
					        		<td nowrap align="left" valign="top" bgcolor="#backgrndcolor#" style="border-bottom: 1px solid black; border-right: 1px solid black; <cfif DateInMonth IS 1>border-left: 1px solid black;</cfif>">
					        </cfoutput>
			      	</cfif>
			      <cfoutput>
			           #DateInMonth# 
			        <cfset tempDateObj = CreateDate(year, month, DateInMonth) />
			        <cfif tempDateObj GTE certStartDate1Obj AND tempDateObj LTE certEndDate1Obj >			
								 		<br>
								 		<cfif isdefined("request.SNvisits") and ListFind(request.SNvisits, tempDate, ",") GT 0> 	
											<span class="minicolors-swatch minicolors-sprite"><span class="minicolors-swatch-color" style="background-color:##FF99FF;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>
										</cfif>
										<cfif isdefined("request.PTvisits") and ListFind(request.PTvisits, tempDate, ",") GT 0> 	
											<span class="minicolors-swatch minicolors-sprite"><span class="minicolors-swatch-color" style="background-color:blue;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>
										</cfif>
										<cfif isdefined("request.OTvisits") and ListFind(request.OTvisits, tempDate, ",") GT 0> 	
											<span class="minicolors-swatch minicolors-sprite"><span class="minicolors-swatch-color" style="background-color:green;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>
										</cfif>
										<cfif isdefined("request.STvisits") and ListFind(request.STvisits, tempDate, ",") GT 0> 	
											<span class="minicolors-swatch minicolors-sprite"><span class="minicolors-swatch-color" style="background-color:orange;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>
										</cfif>
										<cfif isdefined("request.HHAvisits") and ListFind(request.HHAvisits, tempDate, ",") GT 0> 	
											<span class="minicolors-swatch minicolors-sprite"><span class="minicolors-swatch-color" style="background-color:yellow;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>
										</cfif>
										<cfif isdefined("request.MSWvisits") and ListFind(request.MSWvisits, tempDate, ",") GT 0> 	
											<span class="minicolors-swatch minicolors-sprite"><span class="minicolors-swatch-color" style="background-color:purple;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>
										</cfif>

										<cfif isdefined("request.visitsmissed") and ListFind(request.visitsmissed, tempDate, ",") GT 0> 	
													<span class="minicolors-swatch minicolors-sprite"><span class="minicolors-swatch-color" style="background-color:red;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>
										</cfif>

										<cfif isdefined("request.SOCvisits") and ListFind(request.SOCvisits, tempDate, ",") GT 0> 	
													<span class="minicolors-swatch minicolors-sprite"><span class="minicolors-swatch-color" style="background-color:black;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>
										</cfif>
										<cfif isdefined("request.Evalvisits") and ListFind(request.Evalvisits, tempDate, ",") GT 0> 	
													<span class="minicolors-swatch minicolors-sprite"><span class="minicolors-swatch-color" style="background-color:gray;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>
										</cfif>
			        </cfif>
			      </cfoutput>
			      <cfset DateInMonth = #DateInMonth# + 1>
			      </td>
			      <cfelse>
			      <td bgcolor="<cfoutput>#attributes.NoDateBG#</cfoutput>">&nbsp;</td>
			    </cfif>
			  </cfloop>
  </tr>
</cfloop>
</table>