ISProfilePatientGroup.ShowOnMobileDevices

Description

This property is True if the patient group is shown on mobile devices.

Syntax

object.ShowOnMobileDevices

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

Return Value

bool

Example

Display ShowOnMobileDevices for the patient groups.

Dim aFilter
Dim aPatientGroups
Dim aPatientGroup
Dim aMessage

Set aFilter = Profile.CreateProfilePatientGroupFilter
aFilter.PatientGroupStatuses = 1 'Active
set aPatientGroups = Profile.LoadProfilePatientGroupsByFilter(aFilter)

aMessage = "Patient Groups Count: "  & aPatientGroups.Count
for i = 0 to aPatientGroups.Count - 1 
  set aPatientGroup = aPatientGroups.Item(i)
  aMessage = aMessage & vbNewLine & "The group " & aPatientGroup.Name &_
  " is shown on mobile devices: " & aPatientGroup.ShowOnMobileDevices
next 

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface the Show On Mobile Devices checkbox can be checked in Organisation > Work Centre > Clinical > Groups > Properties.

Version information

Added in v7.8.0