ISCareTeamFilter.HideNotVisitbleByShortCodes

Description

This filter property is used to load the care team members for which the care team roles short codes are marked as visible.

Syntax

object.HideNotVisitbleByShortCodes

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

Return Value

bool

Example

Display the care team members for which the care team roles short codes are marked as visible.

Dim aPatient
Dim aCareTeamFilter
Dim aCareTeams
Dim aCareTeam
Dim aRoleShortCode
Dim aMessage

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

aCareTeamFilter.Patient = aPatient.Id
aCareTeamFilter.HideNotVisitbleByShortCodes = true

set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)

aMessage = "Team Member 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: The visibility of the short code can be changed in Maintain/Short Codes/Care Team Roles/Alter current short code.

In Profile Client v8 on User Interface HideNotVisitbleByShortCodes cannot be found.

Version information

Added in v7.8.0