Returns True if the patient's intervention is part of a repeating series.
object.IsMasterIntervention
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientRecallVisit interface |
bool
Display IsMasterIntervention for the patient's intervention.
sub main()
Dim aPatient, aRecallPlans, 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 patient's intervention '" &_
aVisit.Description & "' is part of a repeating series = " &_
aVisit.IsMasterIntervention
next
GetVisitCollectionInfo = info & vbNewLine
end function
In Profile Client v8 on User Interface Is Master Intervention can be found in
.