ISCDOContent.AsString

Description

The CDO content value description that is returned as string.

Syntax

object.AsString

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

Restriction: This property is readonly.

Return Value

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.AsString
  end if
next 

Profile.MsgBox(aMessage)

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

Version information

Added in v7.8.0