ISRefSeriesSubSeries.ID

Description

ID of the sub series related to the reference series.

Syntax

object.ID

Part	Attribute	Type	Description
`object`	Required	ISRefSeriesSubSeries	The `object` always implements the ISRefSeriesSubSeries 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, including their IDs.

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 ID cannot be found, but Sub Series can be found in Maintain > Reference Series > Open reference series > Sub Series.

Version information

Added in v7.8.0