This filter property is used to load the care plans by ID of the patient.
object.PatientId
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISRecallPlanFilter interface |
int
Display the number of the care plans filtered by ID of the patient.
sub main
Dim aPatient
Dim aFilter
Dim aRecallPlans
Dim aMessage
Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans
set aFilter = Profile.CreateRecallPlanFilter
aFilter.PatientId = aPatient.Id
set aRecallPlans = Profile.LoadRecallPlansExt(aFilter)
aMessage = aMessage & vbNewLine &_
"The number of the care plans of the selected patient is " &_
aRecallPlans.Count
Profile.MsgBox(aMessage)
end sub
In Profile Client v8 on User Interface Patient ID cannot be found.