CalculateCalendarYear

Calculate Calendar Year

Minor Business Rule

Object Name: N1700820

Parent DLL: CCRIN

Location: Client/Server

Language: NER

1.1Purpose
This NER will calculate the calendar year for a given date, then return the end date of each month to the calling UBE or Application.

1.2Setup Notes and Prerequisites

1.3Special Logic
There are 2 system functions used within this NER to manuipulate dates.  The first is called "add_days".  There are two parameters to this system 
function: (date, days).  You pass in a date and how many days you want added to that day and assign it to variable.  The other system function is called 
"last_day".  This system function accepts a date and will return the last day of the month for that date.

Both of these system functions will handle leap year and year 2000 issues.

2.4Processing
//
//    Initializing 'Date' to be 1/1/XX, XX being the year of the date passed in
//
VA_szMonthDay = "01/01/"
VA_szYearReturned = date_year(BF jdDateOfCalendarYear)
VA_szYearReturned = substring (VA_szYearReturned, 3, 2)
VA_szDate = concat (VA_MonthDay, VA_YearReturned)
Convert String to Date
VA_jdDate <- jdDateConvertedDate
VA_szDate -> szStringToConvert

//
//    Calculating End Dates of Calendar Year
//- Period 13 & 14 are the same date as Period 12
//
Period1EndDate = last_day(VA_jdDate)
VA_jdDateadd_day(Period1EndDate, 1)
Period2EndDate = last_day(VA_jdDate)
VA_jdDate = add_day(Period2EndDate, 1)
Period3EndDate = last_day(VA_jdDate)
VA_jdDate = add_day(Period3EndDate, 1)
Period4EndDate = last_day(VA_jdDate)
VA_jdDate = add_day(Period4EndDate, 1)
Period5EndDate = last_day(VA_jdDate)
VA_jdDate = add_day(Period5EndDate, 1)
Period6EndDate = last_day(VA_jdDate)
VA_jdDate = add_day(Period6EndDate, 1)
Period7EndDate = last_day(VA_jdDate)
VA_jdDate = add_day(Period7EndDate, 1)
Period8EndDate = last_day(VA_jdDate)
VA_jdDate = add_day(Period8EndDate, 1)
Period9EndDate = last_day(VA_jdDate)
VA_jdDate = add_day(Period9EndDate, 1)
Period10EndDate = last_day(VA_jdDate)
VA_jdDate = add_day(Period10EndDate, 1)
Period11EndDate = last_day(VA_jdDate)
VA_jdDate = add_day(Period11EndDate, 1)
Period12EndDate = last_day(VA_jdDate)
Peirod13EndDate = Period12EndDate
Period14EndDate = Period12EndDate