ISPatient.LoadReferenceSeriesData

Description

This function returns the reference series data for each reference series subseries by the start date.

Syntax

object.LoadReferenceSeriesData(aReferenceSeries, aStartDate)

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

Return Value

ISSeriesData

Returns the reference series data for each reference series subseries by the start date.

Example

Display the data for the selected reference series subseries by the start date.

Dim aPatient  
Dim aReferenceSeriesCollection
Dim aReferenceSeries
Dim aStartDate
Dim aReferenceSeriesData

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(1)
aStartDate = #09/19/2018#
aReferenceSeriesData = aPatient.LoadReferenceSeriesData(aReferenceSeries,_ 
 aStartDate).ValuesMax(0)

Profile.MsgBox (aReferenceSeriesData)

Note:

In Profile Client v8 on User Interface Reference Series Data can be found in Clinical > Medical Record > New Encounter > Reference Series > Select Reference Series.

Version information