ISPatientRecallVisit.DateCompleted

Description

The date when the last action of the patient's intervention was marked as done (completed, excluded or declined).

Syntax

object.DateCompleted

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

Restriction: This property is readonly.

Return Value

DateTime

Example

Display the date when the last action of the patient's intervention was marked as done (completed, excluded or declined).

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 
    set aPlan = aVisit.ParentPlan
    info = info & vbNewLine & "Intervention: " & aVisit.Description & vbNewLine &_
       "DateSeen = " & aVisit.DateSeen & "   " &_
       "DateCompleted = " & aVisit.DateCompleted & "   " &_
       "DateConcl = " & aVisit.DateConcl
  next
  
  GetVisitCollectionInfo = info
end function

Note:

In Profile Client v8 on User Interface Date Completed can be found in Clinical > Medical Record > Care Plans > Ends.

Version information

Added in v7.8.0