ISWhiteboardItem.ToProviderGroupID

Example

Display the number of whiteboard items and some information about them, including the names of the provider groups.

sub main
  Dim aFilter
  Dim aWhiteboardItems, aWhiteboardItem
  Dim aMessage
  Dim i

  Set aFilter = Profile.CreateWhiteboardFilter
  aFilter.BoardTypeCode = "NORMAL"
  set aWhiteboardItems = Profile.LoadWhiteboardItems(aFilter)
  aMessage = "Whiteboard Items Count = " & aWhiteboardItems.Count

  for i = 0 to aWhiteboardItems.Count - 1
    set aWhiteboardItem = aWhiteboardItems.Item(i)
    aMessage = aMessage & vbNewLine & " ---------------------- " & vbNewLine &_
       "Acuity: " & aWhiteboardItem.AcuityTypeCode & vbNewLine &_
       "Reason: " & aWhiteboardItem.ReasonTypeCode & vbNewLine &_       
       "Instruction: " & aWhiteboardItem.Instruction & vbNewLine &_  
       "Group: " & aWhiteboardItem.FromProviderGroupID & vbNewLine &_
       "Provider Group Name: " & GetGroupName(aWhiteboardItem.ToProviderGroupID)
  next 
  
  Profile.MsgBox(aMessage)
end sub

function GetGroupName(aGroupId)
  Dim aFilter
  Dim aProviderGroups
  Dim aName
    
  set aFilter = Profile.CreateProviderGroupFilter
  aFilter.ID = aGroupId
  set aProviderGroups = Profile.LoadProviderGroups(aFilter)
  if aProviderGroups.Count > 0 then
    aName = aProviderGroups.Items(0).Name
  else
    aName = ""
  end if  
  GetGroupName = aName     

end function