ISReferenceSeries.SubSeries

Description

The sub series that is included into the reference series.

Syntax

object.SubSeries(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISReferenceSeries	The `object` always implements the ISReferenceSeries interface
`aIndex`	In, Required	int	The index of the sub series

Restriction: This property is readonly.

Return Value

ISRefSeriesSubSeries

Example

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

Dim aReferenceSeriesCollection
Dim aReferenceSeries
Dim aRefSeriesSubSeries
Dim aPatient
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 Sub Series can be found in Maintain > Reference Series > Open reference series > Sub Series.

Version information

Added in v7.8.0