ISProfile.CreateOccupancyFilter

Description

This function is used to create the filter for loading occupancies.

Syntax

object.CreateOccupancyFilter()

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

Return Value

ISOccupancyFilter

Returns the filter for loading occupancies.

Example

Display the number of the occupancies loaded on the basis of the selected filter and their descriptions.

Dim aFilter
Dim aOccupancies
Dim aOccupancy
Dim aMessage

Set aFilter = Profile.CreateOccupancyFilter
aFilter.DateFrom = #09/09/2017#
set aOccupancies = Profile.LoadOccupancy(aFilter)

aMessage = "Occupancies Count = " & aOccupancies.Count
for i = 0 to aOccupancies.Count - 1
  set aOccupancy = aOccupancies.Item(i)
  aMessage = aMessage & vbNewLine & aOccupancy.Description
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Occupancy can be found in Clinical > Medical Record > Movements.

Version information

Added in v7.10.80