ISReferenceSeries.SubSeriesCount

Description

The number of sub series that are included into the reference series.

Syntax

object.SubSeriesCount

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

Restriction: This property is readonly.

Return Value

int

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