ISProcedure.ID

Description

ID of the patient's surgical procedure.

Syntax

object.ID

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

Restriction: This property is readonly.

Return Value

int

Example

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

Dim aPatient  
Dim aProcedureList, aProcedure
Dim i
Dim aMessage

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

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

Note:

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

Version information

Added in v7.8.0