ISPrescription.Comment

Description

Any additional information, which can also be printed on the script if desired and/or used as an alert.

Syntax

object.Comment

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

Return Value

string

Example

Display some information about the prescriptions loaded on the basis of the selected filter, including the comments added to them.

Dim aPatient 
Dim aFilter
Dim aPrescriptions, aPrescription
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreatePrescriptionFilter
aFilter.Patient = aPatient
set aPrescriptions = Profile.LoadPrescriptions(aFilter)

aMessage = "The number of the prescriptions for " & aPatient.SurnameFirstName &_ 
  " = " & aPrescriptions.Count & vbNewLine
for i = 0 to aPrescriptions.Count - 1
  set aPrescription = aPrescriptions.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aPrescription.RxName &_ 
    " (start date: " & aPrescription.StartDate & ")" & vbNewLine &_ 
    "         -Comment: " & aPrescription.Comment  
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Comment can be found by clicking the Comment icon in Clinical > Medical Record > Prescriptions > Open.

Version information

Added in v7.9.4