ISClinicalViews.GetClinicalViewsForGroup

Description

This function returns some information about each clinical view group in XML format.

Syntax

object.GetClinicalViewsForGroup(aGroupID)

Part	Attribute	Type	Description
`object`	Required	ISClinicalViews	The `object` always implements the ISClinicalViews interface
`aGroupID`	In, Required	int	ID of the clinical view group

Return Value

string

Returns information about each clinical view group in XML format.

Example

Display some information about the clinical view groups in XML format.

Dim aPatient  
Dim aClinicalViews
Dim aMessage
     
const cNoGroupID       = 0
const cEMRGroupID      = -1
const cPatientGroupID  = -2
const cCaseGroupID     = -3
const cAccessionPatientGroupID = -4
const cHealthLinkFormsGroupID = -5

set aPatient = Profile.SelectPatient
set aClinicalViews = aPatient.LoadClinicalViews

aMessage =_
  "GroupId = " & cNoGroupID & vbNewLine &_
  aClinicalViews.GetClinicalViewsForGroup(cNoGroupID) & vbNewLine & vbNewLine &_ 
  "GroupId = " & cEMRGroupID & vbNewLine &_
  aClinicalViews.GetClinicalViewsForGroup(cEMRGroupID) & vbNewLine & vbNewLine &_
  "GroupId = " & cPatientGroupID & vbNewLine &_
  aClinicalViews.GetClinicalViewsForGroup(cPatientGroupID) & vbNewLine & vbNewLine &_
  "GroupId = " & cCaseGroupID & vbNewLine &_
  aClinicalViews.GetClinicalViewsForGroup(cCaseGroupID) & vbNewLine & vbNewLine &_
  "GroupId = " & cAccessionPatientGroupID & vbNewLine &_
  aClinicalViews.GetClinicalViewsForGroup(cAccessionPatientGroupID) & vbNewLine & vbNewLine &_  
  "GroupId = " & cHealthLinkFormsGroupID & vbNewLine &_
  aClinicalViews.GetClinicalViewsForGroup(cHealthLinkFormsGroupID) & vbNewLine & vbNewLine
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Clinical View Groups can be found in Maintain > HTML Views Setup.

Version information

Added in v7.8.0