ISDiseaseMonitorBase.GetTimeLineAsString

Description

This function returns the disease monitor timeliness as string.

Syntax

object.GetTimeLineAsString()

Part	Attribute	Type	Description
`object`	Required	ISDiseaseMonitorBase	The `object` always implements the ISDiseaseMonitorBase interface

Return Value

string

Returns the timeliness of the disease monitor as string.

Example

Display the number of the disease monitors and some information about them, including their timeliness returned as string.

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)

Note: In Profile Client v8 on User Interface String Description of Disease Monitor Time Line can be found in Maintain > Disease Monitors > Edit Line > General > Timeliness.

Version information

Added in v7.8.0