ISCareTeamFilter.PosID

Description

This filter property is used to load the care team members with the specified ID of the place of service.

Syntax

object.PosID

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

Return Value

int

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 aProvider
Dim aCareTeamFilter
Dim aCareTeams, aCareTeam
Dim aRoleShortCode
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("LONSDALE")
set aCareTeamFilter = Profile.CreateCareTeamFilter

aCareTeamFilter.Patient = aPatient.Id
aCareTeamFilter.PosID = aProvider.Id 

set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)

aMessage = "Care Team Members Count = " & aCareTeams.Count & vbNewLine & vbNewLine 

for i = 0 to aCareTeams.Count - 1
  set aCareTeam = aCareTeams.Item(i)
  set aRoleShortCode = Profile.LoadShortCode(aCareTeam.RoleID)
  aMessage = aMessage & (i + 1) & ") " & "CARE TEAM INFO:" & vbNewLine &_
    "    Care Team Member Role: " & aRoleShortCode.Description & vbNewLine &_
    "    Date added: " & aCareTeam.DateAdded & vbNewLine &_
    "    Care Team ID: " & aCareTeam.ID & vbNewLine & vbNewLine 
next 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Pos ID cannot be found.

Version information

Added in v8.5.0