ISProcedure.AnaesthetistID

Description

ID of the external provider giving the anaesthetic during the surgical procedure.

Syntax

object.AnaesthetistID

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, dates, start time and the full names of the anaesthetists assigned to them.

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 & (i + 1) & ") " &_ 
    aProcedure.ProcedureExplanation & " (started on " & aProcedure.StartTime &_ 
    ")" & vbNewLine
  if aProcedure.AnaesthetistID <> 0 then 
    aMessage = aMessage & "        -Anaesthetist: " &_ 
      Profile.LoadExternalProviderById(aProcedure.AnaesthetistID).FullName
  else
    aMessage = aMessage & "        -Anaesthetist: not selected" & vbNewLine    
  end if     
next
    
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0