ISCDOQuantityRatio.ReferenceRangeOrigin

Example

Display the number of the patient measures loaded on the basis of the selected filter and some information about them.

Dim aPatient
Dim aPatientMeasureFilter, aPhysQuantity
Dim aConcept
Dim aMeasures, aMeasure
Dim aContent
Dim aNumerator
Dim aDenominator 
Dim i
Dim aMessage 

const CID_IBCDO_QRatio = 100650

set aPatient = Profile.SelectPatient 
set aPatientMeasureFilter = Profile.CreatePatientMeasureFilter
set aConcept = Profile.Concept("IH", "zZ.2BH")
aPatientMeasureFilter.MeasureType = 3 ' pmtBoth
aPatientMeasureFilter.Concept = aConcept
set aMeasures = aPatient.GetMeasuresByFilter(aPatientMeasureFilter, aPhysQuantity)

aMessage = "Measures Count = " & aMeasures.Count & vbNewLine

for i = 0 to aMeasures.Count - 1 
  set aMeasure = aMeasures.Item(i) 'ISHRI
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aMeasure.AsString & vbNewLine
  
  set aContent = aMeasure.Content
  if not aContent is nothing then
 
    aMessage = aMessage & vbNewLine &_
      "Content Type ID: " & aContent.TypeID & vbNewLine &_
      "Content Value As String: " & aContent.AsString & vbNewLine &_
      "Get Content Value As String: " & aContent.GetValueAsString & vbNewLine
              
    if aContent.TypeId = CID_IBCDO_QRatio then
      aMessage = aMessage &_
        "Content Reference Range Comment: " & aContent.ReferenceRangeComment & vbNewLine &_
        "Content Reference Range Origin: " & aContent.ReferenceRangeOrigin & vbNewLine 
    end if
  else
    aMessage = aMessage & vbNewLine & "No Content " & vbNewLine       
  end if 
  
  set aNumerator = aContent.Numerator
  if not aNumerator is nothing then
    aMessage = aMessage & "Numerator: " & aNumerator.AsString & vbNewLine
  else  
    aMessage = aMessage & "No Numerator " & vbNewLine                 
  end if
       
  set aDenominator = aContent.Denominator
  if not aDenominator is nothing then
    aMessage = aMessage & "Denominator: " & aDenominator.AsString & vbNewLine
  else  
    aMessage = aMessage & "No Denominator " & vbNewLine                 
  end if    
next
  
Profile.MsgBox(aMessage)