ISRefSeriesSubSeries.Name

Description

The name of the sub series related to the reference series.

Syntax

object.Name

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

Restriction: This property is readonly.

Return Value

string

Example

Display the number of reference series, the number of sub series and some information about them, including their names.

Dim aReferenceSeriesCollection
Dim aPatient
Dim aReferenceSeries
Dim aRefSeriesSubSeries
Dim aMessage
Dim i, j     

Set aReferenceSeriesCollection = Profile.GetReferenceSeriesCollection
set aPatient = Profile.SelectPatient

aMessage = "Reference Series Count = " & aReferenceSeriesCollection.Count & vbNewLine

for i = 0 to aReferenceSeriesCollection.Count - 1
  set aReferenceSeries = aReferenceSeriesCollection.Item (i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Series Name: " & aReferenceSeries.SeriesName & " (" &_
    "Sub Series Count = " & aReferenceSeries.SubSeriesCount & ")" & vbNewLine 
  
  for j = 0 to aReferenceSeries.SubSeriesCount - 1
    set aRefSeriesSubSeries = aReferenceSeries.SubSeries(j)
    aMessage = aMessage & (i + 1) & "." & (j + 1) &_
      " Sub Series Name: " & aRefSeriesSubSeries.Name & vbNewLine &_
      "      ID: " & aRefSeriesSubSeries.ID & vbNewLine &_
      "      Is Eligible for the patient " & aPatient.SurnameFirstName & ": " &_
      aRefSeriesSubSeries.IsEligible(aPatient) & vbNewLine   
  next 'j        
next 'i 

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Name can be found in Maintain > Reference Series > Open reference series > Sub Series > Name.

Version information

Added in v7.8.0