ISWhiteboardItem.CaseID

Example

Display the number of whiteboard items and some information about them, including the titles of the cases to which the whiteboard entries relate.

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

  Set aPatient = Profile.SelectPatient
  set aFilter = Profile.CreateWhiteboardFilter
  aFilter.PatientId = aPatient.Id
  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 &_  
       "Case: " & GetCasebyId(aWhiteboardItem.CaseId) 
  next

  Profile.MsgBox(aMessage)
end sub    

function GetCasebyId(aCaseId)
Dim aCaseTitle
Dim aCase
  
  if aCaseId = 0 then
    aCaseTitle = " - "
  else
    set aCase = Profile.OpenCase(aCaseId)
    aCaseTitle = aCase.CaseTitle
  end if
  
  GetCasebyId = aCaseTitle        
end function