Get a unit's current time block and create some key dates (i.e. pay periods [2wks]) from the schedule start date
<cfobject component="MedSchedDataAccess" name="SchedData">
<cfinvoke component="#SchedData#" method="CalcSchedBlockBoundaries" returnvariable="TB_Bounds">
<cfinvokeargument name="UnitId" value="#variables.unit_Id#">
</cfinvoke>
<cfset session.curr_strt_dt = TB_Bounds.curr_tb_strt_date>
<cfset today = dateformat(now(),"mm/dd/yyy")>
<cfset pp3 = dateformat(dateadd("d", (+28),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset pp2 = dateformat(dateadd("d", (+14),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset pp1 = TB_Bounds.work_tb_strt_date>
<cfset bk1 = dateformat(dateadd("d", (-14),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk2 = dateformat(dateadd("d", (-28),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk3 = dateformat(dateadd("d", (-42),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk4 = dateformat(dateadd("d", (-56),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk5 = dateformat(dateadd("d", (-70),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk6 = dateformat(dateadd("d", (-84),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk7 = dateformat(dateadd("d", (-98),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk8 = dateformat(dateadd("d", (-112),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfset bk9 = dateformat(dateadd("d", (-126),TB_Bounds.work_tb_strt_date),"mm/dd/yyy")>
<cfif today ge pp3>
<cfset dfltPP = "pp3">
</cfif>
<cfif today ge pp2 and today lt pp3>
<cfset dfltPP = "pp2">
</cfif>
<cfif today ge pp1 and today lt pp2>
<cfset dfltPP = "pp1">
</cfif>
<cfset dateCodes = "pp3,pp2,pp1,bk1,bk2,bk3,bk4,bk5,bk6,bk7,bk8,bk9">
<cfset datetexts = "#pp3#,#pp2#,#pp1#,#bk1#,#bk2#,#bk3#,#bk4#,#bk5#,#bk6#,#bk7#,#bk8#,#bk9#">
<cfif isdefined("form.dateRange")>
<cfset variables.date_range = form.dateRange>
<cfelseif isdefined("url.dateRange")>
<cfset variables.date_range = url.dateRange>
<cfelse>
<cfset variables.date_range = #dfltPP#>
</cfif>
<cfif variables.date_range eq "today">
<cfset StartDate = #today#>
</cfif>
<cfif variables.date_range eq "lastpp">
<cfset StartDate = #lastpp#>
</cfif>
<cfif variables.date_range eq "pp1">
<cfset StartDate = #pp1#>
</cfif>
<cfif variables.date_range eq "pp2">
<cfset StartDate = #pp2#>
</cfif>
<cfif variables.date_range eq "pp3">
<cfset StartDate = #pp3#>
</cfif>
<cfif variables.date_range eq "bk1">
<cfset StartDate = #bk1#>
</cfif>
<cfif variables.date_range eq "bk2">
<cfset StartDate = #bk2#>
</cfif>
<cfif variables.date_range eq "bk3">
<cfset StartDate = #bk3#>
</cfif>
<cfif variables.date_range eq "bk4">
<cfset StartDate = #bk4#>
</cfif>
<cfif variables.date_range eq "bk5">
<cfset StartDate = #bk5#>
</cfif>
<cfif variables.date_range eq "bk6">
<cfset StartDate = #bk6#>
</cfif>
<cfif variables.date_range eq "bk7">
<cfset StartDate = #bk7#>
</cfif>
<cfif variables.date_range eq "bk8">
<cfset StartDate = #bk8#>
</cfif>
<cfif variables.date_range eq "bk9">
<cfset StartDate = #bk9#>
</cfif>
<CF_Choice ctrl_type="opt"
ctrl_name="dateRange"
val_list="#datecodes#"
delim=","
displ_list="#datetexts#"
style="font-size:10pt"
onChange="this.style.background='pink';"
DB_Val="#variables.date_range#"
mult="no"
AddQuotes="no"
InclNull="no"
Rqd="no"
LineBreak="no">