ISCareTeam.RoleId

Example

Display ID of the care team role.

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

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

aCareTeamFilter.Patient = aPatient.Id

set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)

aMessage = "Team Member Count = " & aCareTeams.Count & vbNewLine
for i = 0 to aCareTeams.Count - 1
  set aCareTeam = aCareTeams.Item(i)
  aMessage = aMessage & vbNewLine & " Role ID: " & aCareTeam.RoleID
  if aCareTeam.RoleID > 0 then
    set aRoleShortCode = Profile.LoadShortCode(aCareTeam.RoleID)
    aMessage = aMessage & vbTab & " (" & aRoleShortCode.Description & ")"     
  end if 
next 
Profile.MsgBox (aMessage)