ISProfile.GetFlowChartDefs

Description

This function returns flow sheets on the basis of the selected filter.

Syntax

object.GetFlowChartDefs(Patient)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`Patient`	In, Required	int	The patient whose flow sheets are loaded

Return Value

ISCollection

Returns flow sheets on the basis of the selected filter.

Example

Display the number of the flow sheets loaded on the basis of the selected filter and some information about them.

Dim aPatient
Dim aPatientID
Dim aFilter
Dim aFlowChartDefs, aFlowChartDef
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient
aPatientID = aPatient.ID 
set aFilter = Profile.CreateFlowChartFilter
aFilter.DateFrom = #03/04/2004#
aFilter.DateTo = #03/04/2008#
aFilter.Last = 2

set aFlowChartDefs = Profile.GetFlowChartDefsByFilter(aPatient.ID, aFilter)

aMessage = "Flow Chart Defs Count = " & aFlowChartDefs.Count &_
  vbNewLine & vbNewLine

for i = 0 to aFlowChartDefs.Count - 1
  set aFlowChartDef = aFlowChartDefs.Item(i)  
  aMessage = aMessage & (i + 1) & ". " &_
    "Caption: " & aFlowChartDef.Caption & vbNewLine &_
    "Display Time Mode: " & aFlowChartDef.DisplayTimeMode & vbNewLine 

next   

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0