ISRefSeriesSubSeries.IsEligible

Description

This function checks if the sub series of the reference series is eligible for the selected patient.

Syntax

object.IsEligible(aPatient)

Part	Attribute	Type	Description
`object`	Required	ISRefSeriesSubSeries	The `object` always implements the ISRefSeriesSubSeries interface
`aPatient`	In, Required	ISPatient	The patient for checking the eligibility

Return Value

bool

Returns True if the sub series is eligible for the selected patient.

Example

Display IsEligilble for the sub series of the reference series.

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 Eligibility is checked on the basis of the filter settings selected in Maintain > Reference Series > Open reference series > Sub Series > Open sub series > Filter.

Version information

Added in v7.8.0