ISFlowSheets.Count

Description

The number of the flow sheets loaded on the basis of the selected filter.

Syntax

object.Count

Part	Attribute	Type	Description
`object`	Required	ISFlowSheets	The `object` always implements the ISFlowSheets interface

Restriction: This property is readonly.

Return Value

int

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.Item(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