ISCDOContent.GetValueAsString

Description

This function returns the value description of the CDO content as string.

Syntax

object.GetValueAsString()

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

Return Value

string

Returns the value description of the CDO content as string.

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 

Set aPatient = Profile.SelectPatient 
Set aPatientMeasureFilter = Profile.CreatePatientMeasureFilter
Set aConcept = Profile.Concept("IH", "z..2T")
aPatientMeasureFilter.Concept = aConcept
aPatientMeasureFilter.MeasureType = 3 ' pmtBoth
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
  set aContent = aMeasure.Content 'ISCDOContent  
  
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aMeasure.AsString
  if not aContent is nothing then
    aMessage = aMessage & vbTab & vbTab & "Content Value: " & aContent.GetValueAsString
  end if
next 

Profile.MsgBox(aMessage)

Note: In Profile Client v8 on User Interface Content Value String Descrition can be found in Clinical > Medical Record > Results or in Clinical > Review Results.

Version information

Added in v8.5.0