ISPatientRecallVisit.RepeatEndDate

Description

The end date for the intervention, after which it should not be repeated.

Syntax

object.RepeatEndDate

Part	Attribute	Type	Description
`object`	Required	ISPatientRecallVisit	The `object` always implements the ISPatientRecallVisit interface

Return Value

DateTime

Example

Display the end date for the intervention, after which it should not be repeated.

sub main()
   Dim aPatient, aRecallVisits, aMessage
     
   set aPatient = Profile.SelectPatient
   set aRecallPlans = aPatient.RecallPlans
   
   for each aPlan in aRecallPlans
     aMessage = aMessage & GetVisitCollectionInfo(aPlan.Visits)
   next

  Profile.MsgBox(aMessage)
end sub

function GetVisitCollectionInfo(aVisits)
 
  for each aVisit in aVisits
    info = info & vbNewLine & "The end date for the intervention '" &_
    aVisit.Description & "'" & ", after which it should " &_
    "not be repeated = " & aVisit.RepeatEndDate
             
  next
  GetVisitCollectionInfo = info &  vbNewLine
end function

Note:

In Profile Client v8 on User Interface Repeat End Date can be found in Clinical > Medical Record > Care Plans > Open active object(s) > until field.

Version information

Added in v7.8.0