ISProfile.GetDiseaseMonitors

Example

Display the number of the disease monitors and some information about them, including the names of their linked concepts.

Dim aDiseaseMonitors, aDiseaseMonitor
Dim aMessage
Dim i

Set aDiseaseMonitors = Profile.GetDiseaseMonitors 'collection of ISDiseaseMonitorBase

aMessage = "Disease Monitors Count = " & aDiseaseMonitors.Count & vbNewLine
  
for i = 0 to aDiseaseMonitors.Count - 1 
  set aDiseaseMonitor = aDiseaseMonitors.Item(i)
  aMessage = aMessage & vbNewLine & "-----------------" & (i + 1) & "-----------------" & vbNewLine &_      
    "Disease Monitor Concept: " & aDiseaseMonitor.MonitorConcept.Name & vbNewLine &_
    "Disease Condition Concept: " & aDiseaseMonitor.DiseaseConditionConcept.Name & vbNewLine &_
    "Monitor Type: " & aDiseaseMonitor.MonitorType & vbNewLine &_
    "Principal: " & aDiseaseMonitor.Principal & vbNewLine &_
    "Time Line Num: " & aDiseaseMonitor.TimeLineNum & vbNewLine &_
    "Time Line Unit: " & aDiseaseMonitor.TimeLineUnit & vbNewLine &_
    "Time Line As String: " & aDiseaseMonitor.GetTimeLineAsString & vbNewLine
                        
  select case aDiseaseMonitor.MonitorType
    case 1
      aMessage = aMessage &_
        "Monitoring Range As Text: " & aDiseaseMonitor.getMonitoringRangeAsText & vbNewLine       
    case 2
      aMessage = aMessage &_         
        "Monitoring Range As Multi Text: " & aDiseaseMonitor.getMonitoringRangeAsMultiText & vbNewLine
    case 3
      aMessage = aMessage &_         
        "Monitoring Range As Quantity Max: " & aDiseaseMonitor.getMonitoringRangeAsQuantity_Max & vbNewLine &_
        "Monitoring Range As Quantity Min: " & aDiseaseMonitor.getMonitoringRangeAsQuantity_Min & vbNewLine
    case 4      
      aMessage = aMessage &_    
        "Monitoring Range As Quantity Max High: " & aDiseaseMonitor.getMonitoringRangeAsQuantity_MaxHigh & vbNewLine &_
        "Monitoring Range As Quantity Max Low: " & aDiseaseMonitor.getMonitoringRangeAsQuantity_MaxLow & vbNewLine &_
        "Monitoring Range As Quantity Min High: " & aDiseaseMonitor.getMonitoringRangeAsQuantity_MinHigh & vbNewLine &_
        "Monitoring Range As Quantity Min Low: " & aDiseaseMonitor.getMonitoringRangeAsQuantity_MinLow & vbNewLine
    case 6
      aMessage = aMessage &_    
        "Monitoring Range As Date Time Max: " & aDiseaseMonitor.getMonitoringRangeAsDateTimeMax & vbNewLine &_
        "Monitoring Range As Date Time Min: " & aDiseaseMonitor.getMonitoringRangeAsDateTimeMin & vbNewLine
    case 8
      aMessage = aMessage &_
        "Monitoring Range As Boolean Max: " & aDiseaseMonitor.getMonitoringRangeAsBooleanMax & vbNewLine &_
        "Monitoring Range As Boolean Min: " & aDiseaseMonitor.getMonitoringRangeAsBooleanMin & vbNewLine                        
  end select           
next

Profile.MsgBox(aMessage)