The date and time the patient's intervention was last modified.
object.DTModified
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientRecallVisit interface |
DateTime
Display some information about the patient's interventions, including the dates and time they were last modified.
sub main()
Dim aPatient
Dim aRecallPlans, aPlan
Dim 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)
Dim aVisit
Dim aPlan
for each aVisit in aVisits
set aPlan = aVisit.ParentPlan
info = info & vbNewLine & "Intervention: " & aVisit.Description & vbNewLine &_
"DateSeen = " & aVisit.DateSeen & vbNewLine &_
"DateCompleted = " & aVisit.DateCompleted & vbNewLine &_
"DateConcluded = " & aVisit.DateConcl & vbNewLine &_
"Date/Time Modified = " & aVisit.DTModified & vbNewLine
next
GetVisitCollectionInfo = info
end function