ISFlowSheets.Items

Description

Each of the loaded flow sheets.

Syntax

object.Items(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISFlowSheets	The `object` always implements the ISFlowSheets interface
`aIndex`	In, Required	int	The index of the flow sheet

Restriction: This property is readonly.

Return Value

ISFlowSheet

Example

Display the number of the flow sheets loaded on the basis of the selected filter, their names and codes.

Dim aPatient
Dim aFilter
Dim aFlowSheet
Dim aFlowSheets
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateFlowSheetFilter
aFilter.PatientId = aPatient.Id
set aFlowSheets = Profile.LoadFlowSheets(aFilter)

aMessage = "Flow Sheets Count = " & aFlowSheets.Count
for i = 0 to aFlowSheets.Count - 1
  set aFlowSheet = aFlowSheets.Items(i)
  aMessage = aMessage & vbNewLine & "The name of the flow sheet is " &_
  aFlowSheet.Name & " (" & aFlowSheet.Code & ")"
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Flow Sheets can be found in Clinical > Medical Record > Flow Sheets or in Maintain > Flow Sheets.

Version information

Added in v8.4.32