Is Add_Months allowed in a Fast Formula?

Question

Hi
Im trying to add the following to the carry over fast formula.
: Mid_Month_DDMM = to_char(to_date(to_char(ADD_MONTHS(Continuous_Service_Date, +1),'YYYYMM'),'YYYYMM')-1,'DDMM')
But it seems the formula does not like the "Add_months". Im trying to get the formula to work that when an employees continuous_service_date is not the 1st of the Month the carry over will happen at the end of the month.
Thanks
Andrew

Answer 1

The logic is as follows
Every 12 months employees forfiet their leave and carry over any balance.
From the PTO_CARRY_OVER with abit of customisation
IF ISNULL(OverrideHireDate) = 'Y'
THEN
Continuous_Service_Date = Continuous_Service_Date
ELSE
Continuous_Service_Date = OverrideHireDate
Ann_Date_DDMM = to_char(Continuous_Service_Date,'DDMM') /* ----Put this check to make sure 2902 is not concatenated to a non-leap YYYY ------ */
IF Ann_Date_DDMM = '2902' THEN
Anniversary_Date = to_date('0103' || to_char(Calculation_Date,'YYYY'),'DDMMYYYY')
ELSE
Anniversary_Date = to_date(Ann_Date_DDMM || to_char(Calculation_Date,'YYYY'),'DDMMYYYY')
**Anniversary_Date = to_date('01' || to_char(Anniversary_Date, 'MMYYYY'), 'DDMMYYYY')**
The last line makes sure that everyone no matter when you started has their forfieture date on the 1st of their anniversary month.
I want to us the logic that if your Ann_Date_DDMM does not equal 0101,0102,0103,0104,0105,0106,0107,0108,0109,0110,0111,0112
then your Anniversary date is the end of the anniversay month.
So hence my code of : to_char(to_date(to_char(ADD_MONTHS(Continuous_Service_Date, +1),'YYYYMM'),'YYYYMM')-1,'DDMM') that if working will concatinate with to_char(Calculation_Date,'YYYY'),
So for exampble. My anniversay date is the 13-May-2002.
On the 13-May-2013 the process is run to work out my forfieture-carryover for the 14th. But now the company wants me to only forfeit on the 31-May-2013
Calculation_Date = 13-May-2013 but with to_char(Calculation_Date,'YYYY') I get just the 2013 out.
the code to_char(to_date(to_char(ADD_MONTHS(Continuous_Service_Date, +1),'YYYYMM'),'YYYYMM')-1,'DDMM') should return (and it does in SQL developer) 3105. Concatinated its 31052013 , that would be my new forfeiture - carry over date.
So would be great to get the add_months working in the formula itself. Else if you can tell me where I can find the code for the seeded Continuous_Service_date then I can do the add_months in the package for the function.
Below is the full Formula:
/* Default Statements */
DEFAULT FOR ACP_CONTINUOUS_SERVICE_DATE IS '4712/12/31 00:00:00' (date)
DEFAULT FOR ACP_SERVICE_START_DATE IS '4712/12/31 00:00:00' (date)
/* Inputs Are Statements */
INPUTS ARE
Calculation_Date (date)
,Accrual_Term (text)
/* trace=za_set_trace_on('CARRYOVER')*/
/*--------------------------------- Formula Body -------------------------------------*/
/* ------- Check whether the Continuous Service Date was Set or the Hire Date. ------ */
/* ------- Accordingly set the Continuous Service Date. ------ */
IF ACP_CONTINUOUS_SERVICE_DATE WAS DEFAULTED THEN
Continuous_Service_Date = ACP_SERVICE_START_DATE
ELSE
Continuous_Service_Date = ACP_CONTINUOUS_SERVICE_DATE
OverrideHireDate = KPMG_GET_OVERRIDE_HIRE_DATE(Calculation_Date)
IF ISNULL(OverrideHireDate) = 'Y'
THEN
Continuous_Service_Date = Continuous_Service_Date
ELSE
Continuous_Service_Date = OverrideHireDate
Ann_Date_DDMM = to_char(Continuous_Service_Date,'DDMM') /*Andrew Campbell 30-November-2012*/
/*Mid_Month_DDMM = to_char(to_date(to_char(ADD_MONTHS(Continuous_Service_Date, +1),'YYYYMM'),'YYYYMM')-1,'DDMM')*/
/* ----Put this check to make sure 2902 is not concatenated to a non-leap YYYY ------ */
IF Ann_Date_DDMM = '2902' THEN
Anniversary_Date = to_date('0103' || to_char(Calculation_Date,'YYYY'),'DDMMYYYY')
ELSE
Anniversary_Date = to_date(Ann_Date_DDMM || to_char(Calculation_Date,'YYYY'),'DDMMYYYY')
Anniversary_Date = to_date('01' || to_char(Anniversary_Date, 'MMYYYY'), 'DDMMYYYY')
/* Set Accrual Term to Previous, the requirement is to run CO once per month at the end of the */
/* month for all assgs with Anniversary Dates during that month */
IF Accrual_Term = 'PREVIOUS' THEN
Effective_Date = add_years(add_days(Anniversary_Date, -1), -1)
ELSE
Effective_Date = add_days(Anniversary_Date,-1)
/* For months in later half of the Year and process running for Six Monthly run then reduce */
/* the Effective Date by one year. */
Anniversary_Month = to_char(Anniversary_Date,'MM')
IF (Calculation_Date < Anniversary_Date)
AND ((Anniversary_Month = '07')
OR (Anniversary_Month = '08')
OR (Anniversary_Month = '09')
OR (Anniversary_Month = '10')
OR (Anniversary_Month = '11')
OR (Anniversary_Month = '12')) THEN
Effective_Date = add_years(Effective_Date, -1)
/* Effective_Date = Effective_Date */ /* koos */
/* Calculate Previous Cycle's Start Date,End Date and Six Monthly Anniversary Date in Current Cycle */
Effective_End_Date = Effective_Date
Effective_Start_Date = add_months(Effective_End_Date, -12)
/* Semi_Anniversary_Date = add_months(Effective_End_Date,6) */
Semi_Anniversary_Date = add_months(Effective_End_Date,12) /* Change forfeiture to 12 months after carry over */
/* ------- Calculate the Number of Years completed -------*/
Years_service = floor(months_between(add_days(Effective_date,1), Continuous_Service_Date) / 12)
/* This PROCESS flag is set up so that CO will not run for those employees with eff dates -*/
/* ----------------------------- before calculation_date --------------------------------------*/
IF /* (Calculation_Date >= Effective_Date) */ /* Koos */
(((to_char(Effective_Date,'MMYYYY') = to_char(Calculation_Date,'MMYYYY'))
AND (last_day(Effective_Date) <> Effective_Date ))
OR ((to_char(Anniversary_Date,'MM') = to_char(Calculation_Date,'MM'))
AND (last_day(Effective_Date) = Effective_Date ))) THEN
/* Calculating for Yearly Run */
Process = 'YES'
/* Expiry_Date = add_months(Effective_Date, 6) */
Expiry_Date = add_months(Effective_Date, 12) /* Change forfeiture to 12 months after carry over */
/* After 1 year set the date for calculating for Six Months period */
IF Years_service > 1 THEN
/* Effective_start_Date = add_months(Effective_start_Date,6) */
Effective_start_Date = add_months(Effective_start_Date,12) /* Change forfeiture to 12 months after carry over */
Annual_Cal = 1
ELSE IF /* (Calculation_Date < add_years(Effective_Date,1)) */ /* Koos */
(((to_char(Semi_Anniversary_Date,'MMYYYY') = to_char(Calculation_Date,'MMYYYY'))
AND (last_day(Semi_Anniversary_Date) <> Semi_Anniversary_Date ))
/* OR ((to_char(add_months(Anniversary_Date,6),'MM') = to_char(Calculation_Date,'MM')) */
OR ((to_char(add_months(Anniversary_Date,12),'MM') = to_char(Calculation_Date,'MM')) /* Change forfeiture to 12 months after carry over */
AND (last_day(Semi_Anniversary_Date) = Semi_Anniversary_Date ))) THEN
/* Calculating for Six Monthly Run */
Process = 'YES'
/* Expiry_Date = add_months(Semi_Anniversary_Date,6) */
Expiry_Date = Semi_Anniversary_Date /* Koos */
/* For Semi Annual run set the date for calculation for Six Months */
IF Years_service > 0 THEN
Effective_start_Date = Effective_end_Date
Effective_end_Date = Semi_Anniversary_Date
Annual_Cal = 0
ELSE
/* If neither Annual or Semi Annual Run then Donot process */
Process = 'NO'
Expiry_Date = add_years(Effective_Date, 1)
Annual_Cal = 1
/* --------- Set the Public Variables eg. Maximum Carry Over from the accrual bands ------- */
IF (GET_ACCRUAL_BAND(years_service) = 0) THEN
IF Years_service > 1 then
Max_Carryover = KPMG_GET_ANNUAL_ACCRUAL(Effective_End_Date)
else
Max_Carryover = KPMG_GET_ANNUAL_ACCRUAL(Effective_End_Date)
ELSE
Max_Carryover = KPMG_GET_ANNUAL_ACCRUAL(Effective_End_Date)
/*---------------------- Return Statements --------------------------------------
Effective_date is the last date of an accrual term
Expiry_date is the date by which employees must use carried over PTO or lose it.
/*trace_off = za_set_trace_off*/
RETURN Max_Carryover, Effective_date, Expiry_Date, Process
Thanks