ISCareTeamFilter.SortMethod

Description

This filter property is used to sort the loaded care team members when the 'SortMethod' property is set to 1.

Syntax

object.SortMethod

Part	Attribute	Type	Description
`object`	Required	ISCareTeamFilter	The `object` always implements the ISCareTeamFilter interface

Return Value

TSCareTeamSortMethod

Example

Display the number of the care team members loaded on the basis of the selected filter and some information about them.

Dim aPatient
Dim aCareTeamFilter
Dim aCareTeams, aCareTeam
Dim aRoleShortCode
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient
set aCareTeamFilter = Profile.CreateCareTeamFilter

aCareTeamFilter.Patient = aPatient.Id
aCareTeamFilter.SortMethod = 1   ' sctmByCurrentUserSortPref

set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)

aMessage = "Care Team Members Count = " & aCareTeams.Count & vbNewLine
for i = 0 to aCareTeams.Count - 1
  set aCareTeam = aCareTeams.Item(i)
  set aRoleShortCode = Profile.LoadShortCode(aCareTeam.RoleID)
    aMessage = aMessage &  " Team Member Role - " &_ 
      aRoleShortCode.Description & vbNewLine &_
      "    Provider Type Ex: " & aCareTeam.ProviderTypeEx &_
      "    PPPURoleId: " & aCareTeam.PPPURoleId &_
      "    PPPURoleName: " & aCareTeam.PPPURoleName & vbNewLine 
next 
 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface the sorting order is defined in Organisation > Preferences > Patient Preferences > Care Teams.

Version information

Added in v7.8.0