ISWhiteboardItem.Delete

Example

Display the whiteboard items before and after deleting, and some information about them.

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

  Set aTrans = Profile.StartMapTransaction
  
  set aPatient = Profile.SelectPatient
  set aFilter = Profile.CreateWhiteboardFilter
  aFilter.PatientId = aPatient.Id
  
  set aWhiteboardItems = Profile.LoadWhiteboardItems(aFilter)  
  aMessage = "before deleting: " & vbNewLine & GetWhiteboardItemInfo(aWhiteboardItems) & vbNewLine
  
  for i = aWhiteboardItems.Count - 1 to 0 step -1
    set aWhiteboardItem = aWhiteboardItems.Item(i)
    aWhiteboardItem.Delete
  next
 
  aTrans.Commit
  
  set aTrans = Profile.StartMapTransaction
  set aWhiteboardItems = Profile.LoadWhiteboardItems(aFilter)
  aMessage = aMessage & "after deleting: " & vbNewLine & GetWhiteboardItemInfo(aWhiteboardItems)

  Profile.MsgBox(aMessage)
end sub    
   
function GetWhiteboardItemInfo(aWhiteboardItems)   
  Dim aMessage
  Dim i
  Dim aWhiteboardItem
  
  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 &_       
      "Board: " & aWhiteboardItem.BoardTypeCode & vbNewLine &_     
      "Added: " & aWhiteboardItem.AddedDT & vbNewLine &_
      "Removed: " & aWhiteboardItem.RemovedDT & vbNewLine &_
      "Privacy Id: " & aWhiteboardItem.PrivacyId & vbNewLine &_
      "Instruction: " & aWhiteboardItem.Instruction & vbNewLine 
  next
       
  GetWhiteboardItemInfo  = aMessage
end function