ISClinicalViews.ItemByID

Description

The clinical view loaded from the collection by its ID.

Syntax

object.ItemByID(aId)

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

Restriction: This property is readonly.

Return Value

ISClinicalView

Example

Display some information about the clinical views, loaded from the collection by their IDs.

Dim aPatient  
Dim aClinicalView, aClinicalViews
Dim aIntColl
Dim i
Dim aMessage

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

'collect views identifiers
set aIntColl = Profile.CreateIntCollection
for i = 0 to aClinicalViews.Count - 1
  aIntColl.Add(aClinicalViews.Item(i).ViewId)
next 'i

'load views by identifiers
for i = 0 to aIntColl.Count - 1                   
  set aClinicalView = aClinicalViews.ItemByID(aIntColl.Item(i)) 
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ") " & aClinicalView.Caption & vbNewLine &_
    " Patient: " & Profile.LoadPatient(aClinicalView.PatientId).SurnameFirstName & vbNewLine &_
    " PatientId: " & aClinicalView.PatientId & vbNewLine &_
    " CaseID: " & aClinicalView.CaseID & vbNewLine &_
    " ViewID: " & aClinicalView.ViewID & vbNewLine &_
    " Desc: " & aClinicalView.Desc & vbNewLine &_
    " URL: " & aClinicalView.URL & vbNewLine
next 'i

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Clinical View ID cannot be found.

Version information

Added in v7.8.0