Date Function to recur for x days

[Tom Patten]

Hi Again,

I have this function that works great (if my memory serves me correctly, thanks to Jim Chapman)

function RecurDate as D(BgnDate as D,Interval as N,RefDate as D)
RecurDate = IF(Interval<2.or.RefDate<BgnDate,{},IF(BgnDate=RefDate,RefDate,RefDate+(Mod((RefDate-BgnDate),Interval))))
end function

I use it to test if a Med needs administering on this date. For example

BgnDate = Start Date
Interval = 2 (every other day)
RefDate = Reference date, a variable I supply.

I use it in this Expression,

IF(DTOC(RecurDate(Med->Date_Ordered,Med->Recur,var->v_BeginDate+6))=DTOC(var->v_BeginDate+6),"","X")

I need a new function to allow another input for "Days as N"

Function RecurDays

BgnDate = Start Date
Interval = 2 (every other day)
Days as N
RefDate = Reference date, a variable I supply.

RecurDays = ...???

For example, if I begin a Med on April 1st, to repeat every 24 days (Interval=24), and continue for the next 7 Days,
what seven dates in June would include this activity? Would RefDate = 6/1/2013 include the Med?

I need this expression,
IF(DTOC(RecurDays(Med->Date_Ordered,Med->Recur,var->v_BeginDate+6))=DTOC(var->v_BeginDate+6),"","X")
to be true when the RefDate is any of the seven days.

Confusing... I'm sure confused, and losing sleep!!

Thanks ~ Tom

[Tom Patten]

Re: Date Function to recur for x days

Thinking more about this, the best solution would be to edit the current Function to include the "Days as N" parameter.

With a Days = 1 it would work as it does now.

RecurDate = IF(Interval<2.or.RefDate<BgnDate,{},IF(BgnDate=RefDate,RefDate,RefDate+(Mod((RefDate-BgnDate),Interval)))) 'where to add the Days???

~ Tom

[Tom Patten]

Re: Date Function to recur for x days

I'm making a little progress.

My current approach is combine Functions to use RecurDate $ RecurDays

I developed a new function: RecurDays as follows:

FUNCTION RecurDays as C(Begin as D, Days as N)

For i = 1 to Days
Recurdays = dtoc(Begin)+" "+Alltrim(recurdays)
begin = begin+1
'ui_msg_box("Repeating For",DtoC(v_BeginDate))
next

RecurDays = chr(34)+alltrim(recurdays)+Chr(34)

END FUNCTION

If I put the following in the Interactive Window it seems to work, but it sure is a complex and probably a very Slooooooooow calculation.

?DTOC(RecurDate({04/01/2013},7,{05/01/2013})) $ RecurDays({05/01/2013},3)

Is there a better approach?

Thanks ~ Tom

[G Gabriel]

Re: Date Function to recur for x days

If you don't mind, let's start with a clean page:

FUNCTION Med_dates AS C (start AS D, interval AS N, term AS N ,month as C)
start=start+interval
while cmonth(start)<>Month
	start=start+interval
end while

end=start+term
Med_dates=dtoc(start)
while start<end-1
	Med_dates=Med_dates+crlf()+dtoc(start+1)
	start=start+1
	end while
END FUNCTION

It does what you are asking for, though, I think you might mean something else.
You are asking, what would be the dates in June?

?Med_dates({4/1/13},24,7,"june")
= 06/12/2013
06/13/2013
06/14/2013
06/15/2013
06/16/2013
06/17/2013
06/18/2013

But, if you start at the end of a month, there will be dates in that month and the following one.

And, of course, you could modify it to give the medicine every other day or however you want to give it.

[Tom Patten]

Re: Date Function to recur for x days

This looks good. I won't have time to look at it till tomorrow afternoon. I'll get back to you then.

I only need it for one month at a time.

Thank you very VERY much

Tom

[Tom Patten]

Re: Date Function to recur for x days

I had to take a look. I like that it works by the month.

How would you change it to give a med every-other-day; or Three days every 7 days. It would need to start and stop multiple times per month.

So close...

Thanks again - Tom

[Tom Patten]

Re: Date Function to recur for x days

I think I could be more clear in what I need. I'm creating a calendar, so I know the date. So for any date, I need to know if the Med should be given.

I'd like to change the month parameter to a RefDate as D, like in the RecurDate Function above.
So would the RefDate fall between the dates that Gabriel's Function provides?
Now it sounds like I need a Logical Function.

We're getting there. ~ Tom

[G Gabriel]

Re: Date Function to recur for x days

From what you are saying, the function should produce a logical result of true or false, i.e. whether you should or should not give the medicine that specific date.
Here is the function you want with explanation of the parameters and an example.
Function:

FUNCTION Med_dates AS L (start AS D, interval AS N, term AS N ,Frequency as N, date as D)
Med_dates=.f.
start=start+interval
end=start+term
while start<end
	if start=date
		Med_dates=.t.
		exit while
		end 
		else
	start=start+frequency
	end if
end while
END FUNCTION

Explanation of parameters:
Start : The date the medication treatment will start
Interval: The interval between the treatment period.
Term: The length of each treatment cycle
Frequency: The frequency the treatment is given, e.g. every day, every other day etc.
Date: The date in question. whether the treatment should or should not be given that date.

Example:
A chemotherapy protocol to start 4/1/2013, each cycle is to be repeated every 10 days, each cycle to last for 7 days, the chemo is to be given every other day:

?Med_dates({4/1/13},10,7,2,{4/10/13})
= .F.
?Med_dates({4/1/13},10,7,2,{4/11/13})
= .T.

?Med_dates({4/1/13},10,7,2,{4/12/13})
= .F.

?Med_dates({4/1/13},10,7,2,{4/13/13})
= .T.

?Med_dates({4/1/13},10,7,2,{4/14/13})
= .F.

?Med_dates({4/1/13},10,7,2,{4/15/13})
= .T.

?Med_dates({4/1/13},10,7,2,{4/16/13})
= .F.

?Med_dates({4/1/13},10,7,2,{4/17/13})
= .T.

?Med_dates({4/1/13},10,7,2,{4/18/13})
= .F.
?Med_dates({4/1/13},10,7,2,{4/19/13})
= .F.

[Tom Patten]

Re: Date Function to recur for x days

So close. Example: I want to give a pill every other week for 7 days (one week on, next week off)
Whether I make the interval 7 or 14 I can't get it to show .T. every other week.
What am I missing? How should this example be entered?

?Med_dates({09/01/2013},14,7,1,{09/01/2013})
= .F.

?Med_dates({09/01/2013},14,7,1,{09/08/2013})
= .F.

?Med_dates({09/01/2013},14,7,1,{09/15/2013})
= .T.

?Med_dates({09/01/2013},14,7,1,{09/22/2013})
= .F.

?Med_dates({09/01/2013},14,7,1,{09/29/2013})
= .F.

The following didn't work either

?Med_dates({09/01/2013},7,7,1,{09/01/2013})
= .F.

?Med_dates({09/01/2013},7,7,1,{09/08/2013})
= .T.

?Med_dates({09/01/2013},7,7,1,{09/15/2013})
= .F.

?Med_dates({09/01/2013},7,7,1,{09/22/2013})
= .F.

?Med_dates({09/01/2013},7,7,1,{09/29/2013})
= .F.

[G Gabriel]

Re: Date Function to recur for x days

You added a new element: Every Other Week.
I could modify it yet again and add one more parameter or you could use it the way it is.
The first round will be 1 week away.
The second round will be 3 weeks away, or 21 days.

'For the first round:?
Med_dates({9/1/13},7,7,1,{9/7/13})
= .F.
?Med_dates({9/1/13},7,7,1,{9/8/13})
= .T.
?Med_dates({9/1/13},7,7,1,{9/9/13})
= .T.

..etc

'For the second round:
?Med_dates({9/1/13},21,7,1,{9/21/13})
= .F.
?Med_dates({9/1/13},21,7,1,{9/22/13})
= .T.

[Tom Patten]

Re: Date Function to recur for x days

In your example, the med would need to be entered twice each month?

I need the med to be entered once and continue forever!

Could you modify the Frequency parameter to define the number of contiguous days from the Start Date?

Thanks ~ Tom

[G Gabriel]

Re: Date Function to recur for x days

As you wish.
All parameters are as explained prior.
I added one more parameter, recurrence, which is how often the cycles recur.

FUNCTION Med_dates AS L (start AS D, interval AS N, recurrence as N, term AS N ,Frequency as N, date as D)
Med_dates=.f.
cycles=round_up((date-start)/(interval*recurrence),0)
end_date=start+interval*recurrence*cycles
while end_date>=date.and.end_date>=start+(interval*recurrence*(cycles-1))
	if end_date=date
		Med_dates=.t.
		exit while
		end
		else
		end_date=end_date-frequency
	end if
end while
End Function

In the following example, the medication is given every other week, for a duration of one week, and during that week, it is given every other day.

?Med_dates({9/1/13},7,2,7,2,{9/22/13})
= .F.
?Med_dates({9/1/13},7,2,7,2,{9/23/13})
= .T.

[Tom Patten]

Re: Date Function to recur for x days

So the code below I changed to reflect med given every 7 days

I changed your code for the med to given daily, not every other day. But it still shows as .T. for every week. Not every other week.

What am I doing wrong? I tried making the 14 days, and that didn't work either.

How to make it .T. for every other week, to be given every day?

?Med_dates({9/1/13},7,4,7,1,{9/8/13})
= .T.

?Med_dates({9/1/13},7,4,7,1,{9/15/13})
= .T.

?Med_dates({9/1/13},7,4,7,1,{9/22/13})
= .T.

?Med_dates({9/1/13},7,4,7,1,{9/29/13})
= .T.

[G Gabriel]

Re: Date Function to recur for x days

Modified:

FUNCTION Med_dates AS L (start AS D, interval AS N, recurrence as N, term AS N ,Frequency as N, date as D)
Med_dates=.f.
start=start+int((date-start)/(interval*recurrence))*(interval*recurrence)
end=start+term-1
while start<=date.and.start<=end
	if  start=date
		Med_dates=.t.
		exit while
		end
		else
		start=start+frequency
	end if
end while	
END FUNCTION

Example:

?Med_dates({9/1/13},7,4,7,1,{9/7/13})
= .T.
?Med_dates({9/1/13},7,4,7,1,{9/8/13})
= .F.
?Med_dates({9/1/13},7,4,7,1,{9/15/13})
= .F.
?Med_dates({9/1/13},7,4,7,1,{9/22/13})
= .F.
?Med_dates({9/1/13},7,4,7,1,{9/29/13})
= .T.

[Tom Patten]

Re: Date Function to recur for x days

Just looking at your example code: every other week should be .T. and remain so for 7 days.
I see the first week and last week as .T.
Sorry this is so frustrating. I've been putting it off for years. Your efforts are much appreaciated
~ Tom