ISProcedure.Instruction

Description

Any instructions about the patient's surgical procedure in RTF format.

Syntax

object.Instruction

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

Restriction: This property is readonly.

Return Value

string

Example

Display the number of the patient's surgical procedures within the collection, their descriptions, instructions, 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) & ") " &_ 
    aProcedure.ProcedureExplanation & " (scheduled date and time: " &_ 
    aProcedure.StartTime & ")" 
  if not aProcedure.Instruction = "" then
    aMessage = aMessage & vbNewLine & "  -Any instructions: " &_ 
      Profile.RTF2Plain(aProcedure.Instruction)  
  end if       
next
    
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0