This filter property is used to load the care team members by ID of the case to which the selected care team role applies.
object.CaseID
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISCareTeamFilter interface |
int
Display the number of the care team roles filtered by ID of the case to which the selected care team role applies.
Dim aPatient
Dim aCareTeamFilter
Dim aCareTeams
Dim aSelected
Dim aMessage
aSelected = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _
"Select Patient and Case", true)
if not aSelected then exit sub
set aCareTeamFilter = Profile.CreateCareTeamFilter
aCareTeamFilter.Patient = aPatientId
aCareTeamFilter.CaseId = aCaseId
set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)
aMessage = "The number of the patient's care team members loaded " &_
"by the filtering condition (Case ID = " &_
aCareTeamFilter.CaseId & ") is " & aCareTeams.Count
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Case ID cannot be found.