ISPatient.LoadRefSeriesStartDates

Description

This function returns the collection of start dates for each reference series subseries.

Syntax

object.LoadRefSeriesStartDates(aReferenceSeries)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aReferenceSeries`	In, Required	ISReferenceSeries	The reference series of the patient

Return Value

ISCollection

Returns the collection of ISRefSeriesStartDate.

Example

Display the reference series start dates for the selected reference series subseries.

Dim aPatient  
Dim aReferenceSeriesCollection
Dim aReferenceSeries
Dim aRefSeriesStartDates
Dim aRefSeriesStartDate

Set aPatient = Profile.SelectPatient

set aReferenceSeriesCollection = Profile.GetReferenceSeriesCollection
if aReferenceSeriesCollection.Count = 0 then
  aMessage = "Reference Series Collection Count = 0"
  exit sub
end if 
   
set aReferenceSeries = aReferenceSeriesCollection.Item(0)
set aRefSeriesStartDates = aPatient.LoadRefSeriesStartDates(aReferenceSeries)
for i = 0 to aRefSeriesStartDates.Count - 1
  set aRefSeriesStartDate = aRefSeriesStartDates.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & aRefSeriesStartDate.Name & ": " 
  aMessage = aMessage & aRefSeriesStartDate.Date
next

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Ref Series Start Dates can be found in Clinical > Medical Record > New Encounter > Reference Series > Select > Start Date field.

Version information