This property value is True if the patient's care plan was deleted.
object.IsDeleted
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientRecallPlan interface |
bool
Display IsDeleted for the patient's care plan.
Dim aPatient
Dim aRecallPlans
Dim aMessage
Dim aPlan
Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans
if aRecallPlans.Count = 0 then
Profile.MsgBox("The patient has no care plans!")
exit sub
end if
for each aPlan in aRecallPlans
aMessage = aMessage & vbNewLine & "The plan '" & aPlan.Description
aMessage = aMessage & " Before: " & aPlan.IsDeleted
aPlan.Delete
aMessage = aMessage & " After: " & aPlan.IsDeleted
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Care Plans can be found and deleted in
.