ISPatientRecallVisit.DateConcl

Description

The date when the patient's intervention was finished, i. e. all the actions associated with the intervention were closed off.

Syntax

object.DateConcl

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

Return Value

DateTime

Example

Display the date when the patient's intervention was finished, i. e. all the actions associated with the intervention were closed off.

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 Concl can be found in Clinical > Medical Record > Care Plans > Open active object(s) > general > Intervention Outcome > Concluded Date.

Version information

Added in v7.8.0