ISDiseaseMonitorBase.getMonitoringRangeAsQuantity_Max

Example

Display the number of the disease monitors and some information about them, including the maximum values of the monitoring ranges for the monitors of the Quantity type measurements.

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)