ISProcedureList.Item

Description

Each of the patient's surgical procedures within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISProcedureList	The `object` always implements the ISProcedureList interface
`aIndex`	In, Required	int	The index of the procedure

Restriction: This property is readonly.

Return Value

ISProcedure

Example

Display the number of the patient's surgical procedures within the collection, their descriptions, dates and start time.

Dim aPatient  
Dim aProcedureList, aProcedure
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aProcedureList = aPatient.ProcedureList
aMessage = "Procedures Count = " & aProcedureList.Count & vbNewLine

for i = 0 to aProcedureList.Count - 1
  set aProcedure = aProcedureList.Item(i)
  aMessage = aMessage & vbNewLine & vbNewLine & (i + 1) & ") " &_ 
    "Description: " & aProcedure.ProcedureExplanation &_ 
    " (scheduled date and time: " & aProcedure.StartTime & ")"      
next
    
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0