ISCDOQuantityRange.DefaultPresentation

Description

The default presentation of the quantity range HRI content value.

0	qrpInterval
1	qrpMinDotsMax
2	qrpMinDashMax
3	qrpMinSlashMax
4	qrpMaxSlashMin

Syntax

object.DefaultPresentation

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

Restriction: This property is readonly.

Return Value

int

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 i
Dim aMessage 

const CID_IBCDO_QRange = 100640

Set aPatient = Profile.SelectPatient 
set aPatientMeasureFilter = Profile.CreatePatientMeasureFilter
set aConcept = Profile.Concept("IH", "z..2W")
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_QRange then
      aMessage = aMessage &_
        "Content Default Presentation: " & aContent.DefaultPresentation & vbNewLine &_
        "Get Content Reference Range: " & aContent.GetReferenceRange & vbNewLine &_
        "Content Reference Range Comment: " & aContent.ReferenceRangeComment & vbNewLine &_
        "Content Reference Range Origin: " & aContent.ReferenceRangeOrigin & vbNewLine &_ 
        "Content Min: " & aContent.Min.AsString & vbNewLine &_
        "Content Max: " & aContent.Max.AsString & vbNewLine        
    end if    
  else
    aMessage = aMessage & vbNewLine & "No Content " & vbNewLine       
  end if
next
  
Profile.MsgBox(aMessage)

Note: In Profile Client v8 on User Interface Quantity Range HRI Contents with specific Defaults can be found in Clinical > Medical Record > Results or in Clinical > Review Results.

Version information

Added in v7.8.0