ISPatientProblemVers.IsCaseAlert

Example

Display IsCaseAlert for the patient's problems versions.

sub main
  Dim aPatient
  Dim aAlertList, aAlert
  Dim aFilter
  Dim aProblemVersColl, aVersion
  Dim aMessage
  
  Set aPatient = Profile.SelectPatient
  set aAlertList = aPatient.AlertList
  aMessage = "Patient Alert Count = " & aAlertList.Count & vbNewLine

  for i = 0 to aAlertList.Count - 1
    set aAlert = aAlertList.Item(i)
    aMessage = aMessage & "    " & GetProblemInfo(aAlert) & vbNewLine
    set aFilter = Profile.CreateVersionFilter
    aFilter.FromDate = #01/01/2019#
    aFilter.ToDate = #06/06/2019#
    set aProblemVersColl = aAlert.FindVersions(aFilter)
    for each aVersion in aProblemVersColl
      aMessage = aMessage & "      -" & GetProblemInfo(aVersion) & vbNewLine 
    next ' aVersion                  
  next ' aAlert
  Profile.MsgBox(aMessage)
end sub

function GetProblemInfo(aAlert)
  Dim aInfo

  aInfo = "Code: " & aAlert.DxCode & "; Description: " & aAlert.DxDescription &_
    "'; IsCaseAlert = " & aAlert.IsCaseAlert
  GetProblemInfo = aInfo
end function