<% '------------------------------------------------------------ ' This function finds the last date of the given month '------------------------------------------------------------ Function GetLastDay(intMonthNum, intYearNum) Dim dNextStart If CInt(intMonthNum) = 12 Then dNextStart = CDate( "1/1/" & intYearNum) Else dNextStart = CDate(intMonthNum + 1 & "/1/" & intYearNum) End If GetLastDay = Day(dNextStart - 1) End Function '------------------------------------------------------------------------- ' This routine prints the individual table divisions for days of the month '------------------------------------------------------------------------- Sub Write_TD(sValue, sClass) Response.Write " " & sValue & "" & vbCrLf End Sub ' Constants for the days of the week Const cSUN = 1, cMON = 2, cTUE = 3, cWED = 4, cTHU = 5, cFRI = 6, cSAT = 7 ' Get the name of this file sScript = Request.ServerVariables("SCRIPT_NAME") ' Check for valid month input If IsEmpty(Request("MONTH")) OR NOT IsNumeric(Request("MONTH")) Then datToday = Date() intThisMonth = Month(datToday) ElseIf CInt(Request("MONTH")) < 1 OR CInt(Request("MONTH")) > 12 Then datToday = Date() intThisMonth = Month(datToday) Else intThisMonth = CInt(Request("MONTH")) End If ' Check for valid year input If IsEmpty(Request("YEAR")) OR NOT IsNumeric(Request("YEAR")) Then datToday = Date() intThisYear = Year(datToday) Else intThisYear = CInt(Request("YEAR")) End If strMonthName = MonthName(intThisMonth) datFirstDay = DateSerial(intThisYear, intThisMonth, 1) intFirstWeekDay = WeekDay(datFirstDay, vbSunday) intLastDay = GetLastDay(intThisMonth, intThisYear) ' Get the previous month and year intPrevMonth = intThisMonth - 1 If intPrevMonth = 0 Then intPrevMonth = 12 intPrevYear = intThisYear - 1 Else intPrevYear = intThisYear End If ' Get the next month and year intNextMonth = intThisMonth + 1 If intNextMonth > 12 Then intNextMonth = 1 intNextYear = intThisYear + 1 Else intNextYear = intThisYear End If ' Get the last day of previous month. Using this, find the sunday of ' last week of last month LastMonthDate = GetLastDay(intLastMonth, intPrevYear) - intFirstWeekDay + 2 NextMonthDate = 1 ' Initialize the print day to 1 intPrintDay = 1 ' Open a record set of schedules Set Rs = Server.CreateObject("ADODB.RecordSet") ' These dates are used in the SQL dFirstDay = intThisMonth & "/1/" & intThisYear dLastDay = intThisMonth & "/" & intLastDay & "/" & intThisYear sSQL = "SELECT DISTINCT Start_Date, End_Date FROM t50Events WHERE " & _ "(Start_Date >=#" & dFirstDay & "# AND Start_Date <= #" & dLastDay & "#) " & _ "OR " & _ "(End_Date >=#" & dFirstDay & "# AND End_Date <= #" & dLastDay & "#) " & _ "OR " & _ "(Start_Date < #" & dFirstDay & "# AND End_Date > #" & dLastDay & "# )" & _ "ORDER BY Start_Date" 'Response.Write sSQL ' Open the RecordSet with a static cursor. This cursor provides bi-directional navigation Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText %> Richmond Parents Monthly | Fifty Plus - Richmond magazines for seniors and parents

 

Fifty Plus Logo Banner
First Thoughts by Angela Lehman-Rios

My father is a pacifist. In the 1950s, he was classified 1-W, conscientious objector, and served at a school for emotionally disturbed boys. He continues to speak out against violence of all types, including war.
 
Yet for nearly his whole career as a social worker, he worked in VA hospitals with veterans in the psychiatric units. For him, being a part of the system that enables war mattered less than helping people who needed help.
 
Perhaps more than most people who never spent time in military service, he understood how expensive war is, even long after a conflict is over.
 
 
Although in 1996 the Veterans Health Care Reform Act promised VA care for all vets, demand outstripped funding. In 2002, waiting lists were lengthy and some veterans had to wait six months or more for an appointment to receive care. In January 2003, the Secretary of Veterans Affairs halted enrollment for vets without service-connected illnesses and with incomes above 80 percent of the average income in their area.
 
More recently, poor conditions at Walter Reed Army Medical Center in Washington, D.C., have made the news. Likewise, the VA hospital in Seattle was cited for dangerous conditions on its psychiatric wards. The problem of a lack of funding is compounded by a lack of understanding of the extent of conflict’s psychological costs to service members.
 
Poor care at any hospital is outrageous, but the inability to care for veterans is especially galling, as it represents a broken promise.
 
 
It should go without saying that the cost of veterans’ health care is a cost of war, even if those costs are incurred after a military operation is over. As the saying goes among waitstaff, “If you can’t afford to tip, don’t go out to eat.” If our nation is not willing to calculate the long-term expenses of health care for military servicepeople, it shouldn’t be  signing them up.
 
The Fiscal Year 2008 budget allots $85 billion dollars in general veterans’ benefits. This is separate from the $585 billion Department of Defense budget (plus an estimated $20 billion in unbudgeted appropriation requests).
 
Perhaps it’s just a shell game to suggest that veterans’ health care be calculated in the DoD budget, but philosophically speaking, such a move would speak volumes. It would begin to show the true costs of maintaining a national military. However, many costs will never show up on any budget line: the emotional strain on veterans’ families, the sorrow of loved ones when a service member or veteran commits suicide, the hours of extra time that injured veterans must take to perform daily tasks—things my father saw daily for many years.
 
The costs we don’t have to bear ourselves are the costs we must not forget.

 

archives:

 September 07 October 07