ISLetter.Patient

Description

The patient whom the letter is applied to.

Syntax

object.Patient

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

Restriction: This property is readonly.

Return Value

ISPatient

Example

Display some information about the letter, including the full name of the patient whom the letter is applied to.

Dim aPatient
Dim aLetters, aLetter
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient
set aLetters = aPatient.GetLetters (1) ' slcfWordRTF

aMessage =_
  "The number of the letters of the selected format is " & aLetters.Count

for i = 0 to aLetters.Count - 1
  set aLetter = aLetters.Item(i)
  set aPatientName = aLetter.Patient
  aMessage = aMessage & vbNewLine &_
    "Letter Date: " & aLetter.Date & vbNewLine &_
    "Letter Subject: " & aLetter.Subject2 & vbNewLine &_
    "Patient: " & aPatientName.SurnameFirstName & vbNewLine
next

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Patient can be found in Organisation > Work Centre > Communication > Letters > Patient.

Version information

Added in v7.8.0