The status of the patient's intervention.
| 0 | vsstNotDefined |
| 1 | vsstStillDue |
| 2 | vsstCompleted |
| 3 | vsstDeclined |
| 4 | vsstExcluded |
| 6 | vsstIncomplete |
| 7 | vsstPartial |
object.Status
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatientRecallVisit interface |
int
Display the status of the patient's intervention.
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 & "The status of the intervention '" &_
aVisit.Description & "' = " & aVisit.Status
next
GetVisitCollectionInfo = info
end function In Profile Client v8 on User Interface Status can be found in .