The description from the service code linked to the surgical procedure.
object.ProcedureExplanation
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProcedure interface |
string
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)
In Profile Client v8 on User Interface Procedure Explanation can be found in
.