Class ID of the CDO content.
| Type ID | Content Type |
| 100610 | Text |
| 100620 | MultiText |
| 100630 | Quantity |
| 100640 | QRange |
| 100650 | QRatio |
| 100660 | Time |
| 100680 | Bool |
| 100693 | MultimediaData |
| 100695 | RtfData |
| 100696 | HtmlData |
| 100697 | SliceImage |
object.TypeID
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISCDOContent interface |
int
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 Type ID: " & aContent.TypeID
end if
next
Profile.MsgBox(aMessage)