ISProcedureList.ItemByID

Description

The patient's surgical procedure, loaded from the collection by its ID.

Syntax

object.ItemByID(aId)

Part	Attribute	Type	Description
`object`	Required	ISProcedureList	The `object` always implements the ISProcedureList interface
`aId`	In, Required	int	ID of the procedure, that should be loaded

Restriction: This property is readonly.

Return Value

ISProcedure

Example

Display the description, date, start time and ID of the patient's surgical procedure, loaded from the collection by its ID.

Dim aPatient  
Dim aProcedureList
Dim aId
Dim aProcedure
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aProcedureList = aPatient.ProcedureList
if aProcedureList.Count = 0 then
  aMessage = "No procedures"
else    
  aId = aProcedureList.Item(0).ID 
  set aProcedure = aProcedureList.ItemByID(aId)
  aMessage = aMessage & vbNewLine & "Procedure Explanation is '" &_ 
    aProcedure.ProcedureExplanation & "; ID: " & aProcedure.ID &_ 
    "; Scheduled date and time: " & aProcedure.StartTime 
end if

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Procedure ID cannot be found, but Procedure List can be found in Special > Procedures.

Version information

Added in v7.8.0